CE PLUS - Nota 000918
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Relatórios
Data/Hora da Publicação: 21/02/2006 00:00:00
Data/Hora Última Alteração: 18/02/2011 14:54:02
Descrição da Nota: NO HISTÓRICO CONTÁBIL AS INFORMAÇÕES ESTAVAM SENDO IMPRESSAS ERRADAS.
Sintoma
Quando temos a mesma fatura vinculada e liquidada várias vezes e em datas diferentes, as informações
no histórico contábil aparecem alinhadas. Elas devem aparecer uma em cada linha.
Solução
Foram efetuadas novas consistências para a impressão do cenário acima descrito..
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 00918 Data: 21/02/2006 Hora: 13:24:01
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 00918
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00022
Agrupamento : 00101
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
NO HISTÓRICO CONTÁBIL AS INFORMAÇÕES ESTAVAM SENDO IMPRESSAS ERRADAS.
----------------------------------------------------------------------------------------------------
Palavras Chave:
HISTÓRICO CONTÁBIL CONTRATO VINCULAÇÃO LIQUIDAÇÃO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/ZYCBR059
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBR059
...
ENDON.
ON CHANGE OF itab_dados-dtvincul.
IF v_flag = ' '.
WRITE:
/(01) '|' NO-GAP,(010) space NO-GAP,
* >> Início da exclusão: FORM IMPRIME_DADOS_PRE
(01) '|' NO-GAP, (010) itab_dados-nrparcf CENTERED NO-ZERO
* << Fim da exclusão
* >> Início da inclusão: FORM IMPRIME_DADOS_PRE
12 '|' NO-GAP, (010) itab_dados-nrparcf CENTERED NO-ZERO
* << Fim da inclusão
NO-GAP,
(01) '|' NO-GAP, (010) itab_dados-gsberf CENTERED NO-ZERO
NO-GAP ,
(01) '|' NO-GAP,(010) itab_dados-dtvincul CENTERED NO-ZERO
NO-GAP,
...
...
ENDON.
ON CHANGE OF itab_dados-dtliquid.
IF v_flag2 = ' ' AND v_flag = ' '.
WRITE :
/(01) '|' NO-GAP, (10) space NO-GAP,
* >> Início da exclusão: FORM IMPRIME_DADOS_PRE
(01) '|' NO-GAP, (010) space NO-GAP,
(01) '|' NO-GAP, (010) space NO-GAP,
(01) '|' NO-GAP, (10) space NO-GAP,
(01) '|' NO-GAP, (16) space NO-GAP,
* << Fim da exclusão
* >> Início da inclusão: FORM IMPRIME_DADOS_PRE
12 '|' NO-GAP, (010) space NO-GAP,
23 '|' NO-GAP, (010) space NO-GAP,
34 '|' NO-GAP, (10) space NO-GAP,
45 '|' NO-GAP, (16) space NO-GAP,
* << Fim da inclusão
(01) '|' NO-GAP,(010) itab_dados-belnr_vinc COLOR
COL_HEADING INVERSE HOTSPOT CENTERED NO-GAP,
(01) '|' NO-GAP,(016) itab_dados-vlme NO-ZERO CURRENCY
v_moeda_contrato NO-GAP,
(01) '|' NO-GAP,(010) itab_dados-dtpagext CENTERED
...
...
ELSEIF v_flag3 = 'X'.
v_flag3 = ' '.
ELSE.
WRITE:
/(01) '|' NO-GAP, (10) space NO-GAP,
* >> Início da exclusão: FORM IMPRIME_DADOS_PRE
(01) '|' NO-GAP, (010) space NO-GAP,
(01) '|' NO-GAP, (010) space NO-GAP,
(01) '|' NO-GAP, (10) space NO-GAP,
(01) '|' NO-GAP, (16) space NO-GAP,
* << Fim da exclusão
* >> Início da inclusão: FORM IMPRIME_DADOS_PRE
12 '|' NO-GAP, (010) space NO-GAP,
23 '|' NO-GAP, (010) space NO-GAP,
34 '|' NO-GAP, (10) space NO-GAP,
45 '|' NO-GAP, (16) space NO-GAP,
* << Fim da inclusão
(01) '|' NO-GAP,(010) itab_dados-belnr_vinc COLOR COL_HEADING
INVERSE HOTSPOT CENTERED NO-GAP,
* >> Início da exclusão: FORM IMPRIME_DADOS_PRE
(01) '|' NO-GAP, (16) space NO-GAP,
(01) '|' NO-GAP, (10) space NO-GAP,
* << Fim da exclusão
* >> Início da inclusão: FORM IMPRIME_DADOS_PRE
73 '|' NO-GAP, (16) space NO-GAP,
90 '|' NO-GAP, (10) space NO-GAP,
* << Fim da inclusão
(01) '|' NO-GAP, (010) itab_dados-belnr_perf CENTERED COLOR
COL_HEADING INVERSE HOTSPOT NO-GAP,
(01) '|' NO-GAP,(010) itab_dados-belnr_liq COLOR
COL_HEADING INVERSE CENTERED HOTSPOT NO-GAP,
(01) '|' NO-GAP, (10) space NO-GAP,
...
...
(01) '|' NO-GAP, (010) text-009 CENTERED NO-GAP.
ENDIF.
WRITE:
(01) '|' NO-GAP.
WRITE:
* >> Início da exclusão: FORM IMPRIME_DADOS_PRE
/(01) '|' NO-GAP, (010) space NO-GAP ,
(01) '|' NO-GAP, (009) space NO-GAP,
* << Fim da exclusão
* >> Início da inclusão: FORM IMPRIME_DADOS_PRE
/(01) '|' NO-GAP, (010) space NO-GAP,
12 '|' NO-GAP, (009) space NO-GAP,
* << Fim da inclusão
(01) '|' NO-GAP, (010) text-075 CENTERED NO-GAP ,
(01) '|' NO-GAP, (010) text-075 CENTERED NO-GAP ,
(01) '|' NO-GAP, (010) text-006 CENTERED NO-GAP,
(01) '|' NO-GAP, (016) text-008 CENTERED NO-GAP.
IF v_belnr_vinc IS INITIAL.
...
...
ENDON.
ON CHANGE OF itab_dados-dtliquid.
IF v_flag2 = ' ' AND v_flag = ' '.
WRITE:
/(01) '|' NO-GAP, (010) space NO-GAP,
* >> Início da exclusão: FORM IMPRIME_DADOS_PRE
(01) '|' NO-GAP, (009) space NO-GAP ,
(01) '|' NO-GAP, (010) space NO-GAP ,
(01) '|' NO-GAP, (010) space NO-GAP ,
(01) '|' NO-GAP, (010) space NO-GAP ,
(01) '|' NO-GAP, (016) space NO-GAP .
* << Fim da exclusão
* >> Início da inclusão: FORM IMPRIME_DADOS_PRE
12 '|' NO-GAP, (009) space NO-GAP ,
22 '|' NO-GAP, (010) space NO-GAP ,
33 '|' NO-GAP, (010) space NO-GAP ,
44 '|' NO-GAP, (010) space NO-GAP ,
55 '|' NO-GAP, (016) space NO-GAP .
* << Fim da inclusão
IF v_belnr_vinc IS INITIAL.
WRITE:
(01) '|' NO-GAP,(010) itab_dados-belnr_vinc CENTERED COLOR
COL_HEADING INVERSE HOTSPOT NO-GAP.
ENDIF.
...
...
ELSEIF v_flag3 = 'X'.
v_flag3 = ' '.
ELSE.
WRITE:
/(01) '|' NO-GAP, (010) space NO-GAP,
* >> Início da exclusão: FORM IMPRIME_DADOS_PRE
(01) '|' NO-GAP, (009) space NO-GAP ,
(01) '|' NO-GAP, (010) space NO-GAP ,
(01) '|' NO-GAP, (010) space NO-GAP ,
(01) '|' NO-GAP, (010) space NO-GAP ,
(01) '|' NO-GAP, (016) space NO-GAP .
* << Fim da exclusão
* >> Início da inclusão: FORM IMPRIME_DADOS_PRE
12 '|' NO-GAP, (009) space NO-GAP ,
22 '|' NO-GAP, (010) space NO-GAP ,
33 '|' NO-GAP, (010) space NO-GAP ,
44 '|' NO-GAP, (010) space NO-GAP ,
55 '|' NO-GAP, (016) space NO-GAP .
* << Fim da inclusão
IF v_belnr_vinc IS INITIAL.
WRITE:
(01) '|' NO-GAP,(010) itab_dados-belnr_vinc CENTERED COLOR
COL_HEADING INVERSE HOTSPOT NO-GAP.
ENDIF.
...