CE PLUS - Nota 000384
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Liquidação de Fatura
Data/Hora da Publicação: 02/12/2005 00:00:00
Data/Hora Última Alteração: 18/02/2011 14:54:12
Descrição da Nota: BUSCA DA CONTA CONTÁBIL DO DESMEMBRAMENTO DO ACE
Sintoma
Ao salvar a liquidação para todos os tipos de contrato, ao fazer o desmembramento do ACE (2ª F-30),
o programa está buscando a conta errada: Ao invés de buscar a conta na chave CPT codaux 1 ( E +
prazo) e codaux 2 ( = Tipo de contrato), o programa está buscando a conta do codaux 1 (por tipo de
contrato) e está errado, favor efetuar os ajustes antes do fechamento do pacote.
Solução
Foi inserido no código para verificar o tipo do contrato no desmembramento do ACE
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 00384 Data: 02/12/2005 Hora: 11:43:40
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 00384
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00021
Agrupamento : 00090
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
BUSCA DA CONTA CONTÁBIL DO DESMEMBRAMENTO DO ACE
----------------------------------------------------------------------------------------------------
Palavras Chave:
ACE CONTA CONTÁBIL DESMEMBRAMENTO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB004F02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB004F02
FORM desmembra_ace.
...
v_prazo = 'L'.
ELSE.
v_prazo = 'S'.
ENDIF.
IF /pws/zycbe001-desc_receb IS INITIAL.
* >> Início da exclusão: FORM DESMEMBRA_ACE
IF /pws/zycbt001-tpcontr(01) EQ 'E'.
* << Fim da exclusão
* >> Início da inclusão: FORM DESMEMBRA_ACE
IF /pws/zycbt001-tpcontr(01) NE 'E' AND
/pws/zycbt001-tpcontr(01) NE 'C'.
* << Fim da inclusão
CONCATENATE 'E' v_prazo INTO v_codaux SEPARATED BY space.
v_tpcontr = /pws/zycbt001-tpcontr.
ELSE.
CONCATENATE /pws/zycbt001-tpcontr v_prazo
INTO v_codaux SEPARATED BY space.
...
ENDFORM. " desmembra_ace