CE PLUS - Nota 000477
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Vinculação
Data/Hora da Publicação: 16/12/2005 00:00:00
Data/Hora Última Alteração: 18/02/2011 14:51:05
Descrição da Nota: IMPRESSÃO DOS DADOS DA DEVOLUÇÃO NO HISTÓRICO CONTÁBIL
Sintoma
O valor e o documento de PDD não estão sendo exibidos no histórico contábil.
Solução
Foi alterado essa comparação. É comparado agora se existe cancelamento para o contrato e executamos
a impressão no histórico contábil
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 00477 Data: 16/12/2005 Hora: 15:59:15
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 00477
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00021
Agrupamento : 00091
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
IMPRESSÃO DOS DADOS DA DEVOLUÇÃO NO HISTÓRICO CONTÁBIL
----------------------------------------------------------------------------------------------------
Palavras Chave:
DEVOLUÇÃO HISTÓRICO CONTÁBIL
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/ZYCBR059
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBR059
...
MOVE text-048 TO itab_excel-f1.
APPEND itab_excel.
FORM imprime_devolucoes.
DATA: v_nrinvoic(30).
PERFORM dados_devolucao. "Chamado 174923 - AnaB
IF itab_zycbt050[] IS INITIAL.
EXIT.
ENDIF.
FORMAT COLOR COL_KEY INTENSIFIED OFF.
ULINE AT /001(012).
WRITE: /001 '|', 002(010) text-048 CENTERED, "Devoluções
012 '|'.
APPEND itab_excel.
CLEAR itab_excel.
CLEAR itab_excel.
MOVE text-048 TO itab_excel-f1.
APPEND itab_excel.
CLEAR itab_excel.
*Chamado 174923 - AnaB - 01/09/2004 - inicio
CLEAR: v_can, v_apr, v_pdd1, v_pdd2.
LOOP AT itab_zycbt050.
* >> Início da Inclusão
* CHAMADO 275332 - 16/12/2005 - INICIO
* << Fim da Inclusão
* >> Início da Exclusão
* IF itab_zycbt050-belnr_canc NE 0.
* << Fim da Exclusão
* >> Início da Inclusão
IF NOT itab_zycbt050-fcanc IS INITIAL.
* CHAMADO 275332 - 16/12/2005 - FIM
* << Fim da Inclusão
v_can = 'X'.
ENDIF.
ENDLOOP.
LOOP AT itab_zycbt051..
IF itab_zycbt051-belnr_apr NE 0.
v_apr = 'X'.
ENDIF.
IF itab_zycbt051-belnr_pdd1 NE 0.
v_pdd1 = 'X'.
ENDIF.
IF itab_zycbt051-belnr_pdd2 NE 0.
v_pdd2 = 'X'.
ENDIF.
IF itab_zycbt051-belnr_rd NE 0.
v_rd = 'X'.
ENDIF.
IF itab_zycbt051-belnr_rp NE 0.
v_rp = 'X'.
ENDIF.
ENDLOOP.
************************************
*Define tamanho da linha
...
ENDFORM. " imprime_devolucoes
FORM dados_devolucao.
...
DESCRIBE TABLE itab_dados_rp LINES cont_rp.
DESCRIBE TABLE itab_dados_rd LINES cont_rd.
DESCRIBE TABLE itab_dados_dp LINES cont_dp.
DESCRIBE TABLE itab_dados_pd LINES cont_pd.
* >> Início da Exclusão
IF cont_rp >= cont_rd.
* << Fim da Exclusão
* >> Início da Inclusão
IF cont_rp >= cont_rd
AND NOT cont_rp IS INITIAL. "275332 - 14/12/2005
* << Fim da Inclusão
cont_geral = cont_rp.
* >> Início da Exclusão
ELSEIF cont_rd >= cont_rp.
* << Fim da Exclusão
* >> Início da Inclusão
ELSEIF cont_rd >= cont_rp
AND NOT cont_rd IS INITIAL. "275332 - 14/12/2005
* << Fim da Inclusão
cont_geral = cont_rd.
* >> Início da Exclusão
ELSEIF cont_dp >= cont_geral.
* << Fim da Exclusão
* >> Início da Inclusão
ELSEIF cont_dp >= cont_geral
AND NOT cont_dp IS INITIAL. "275332 - 14/12/2005
* << Fim da Inclusão
cont_geral = cont_dp.
* >> Início da Exclusão
ELSEIF cont_pd >= cont_geral.
* << Fim da Exclusão
* >> Início da Inclusão
ELSEIF cont_pd >= cont_geral
AND NOT cont_pd IS INITIAL. "275332 - 14/12/2005
* << Fim da Inclusão
cont_geral = cont_pd.
ENDIF.
* Armazenando dados na itab_dados_dev que será impressa
LOOP AT itab_zycbt050.
* 275304 - Início
* v_canc = itab_zycbt050-vldev_fat * itab_zycbt050-txcanc.
v_canc = itab_zycbt050-vldev_fat.
* 275304 - Fim
itab_dados_dev-nrinvoic = itab_zycbt050-nrinvoic.
itab_dados_dev-nrparcf = itab_zycbt050-nrparcf.
itab_dados_dev-gsberf = itab_zycbt050-gsberf.
itab_dados_dev-dtvincul = itab_zycbt050-dtvincul.
itab_dados_dev-vldev = itab_zycbt050-vldev.
itab_dados_dev-belnr_dev = itab_zycbt050-belnr_dev.
itab_dados_dev-v_can = v_canc.
itab_dados_dev-belnr_canc = itab_zycbt050-belnr_canc.
itab_dados_dev-dtdevol = itab_zycbt050-dtdevol.
itab_dados_dev-dtcanc = itab_zycbt050-dtcanc.
IF cont_geral EQ 0.
APPEND itab_dados_dev.
ELSE.
DO cont_geral TIMES.
READ TABLE itab_dados_rp INDEX sy-index.
IF sy-subrc = 0.
itab_dados_dev-vlme_rp = itab_dados_rp-vlme.
itab_dados_dev-belnr_rp = itab_dados_rp-belnr_rp.
itab_dados_dev-dtreceb = itab_dados_rp-dtreceb.
ENDIF.
READ TABLE itab_dados_rd INDEX sy-index.
IF sy-subrc = 0.
itab_dados_dev-vlme_rd = itab_dados_rd-vlme.
itab_dados_dev-belnr_rd = itab_dados_rd-belnr_rd.
itab_dados_dev-dtfech = itab_dados_rd-dtfech.
ENDIF.
READ TABLE itab_dados_dp INDEX sy-index.
IF sy-subrc = 0.
itab_dados_dev-vlme_apr = itab_dados_dp-vlme.
itab_dados_dev-belnr_apr = itab_dados_dp-belnr_apr.
itab_dados_dev-dtapr = itab_dados_dp-dtapr.
ENDIF.
READ TABLE itab_dados_pd INDEX sy-index.
IF sy-subrc = 0.
itab_dados_dev-vlme_pdd1 = itab_dados_pd-vlme.
itab_dados_dev-belnr_pdd1 = itab_dados_pd-belnr_pdd1.
itab_dados_dev-vlme_pdd2 = itab_dados_pd-vlme.
itab_dados_dev-belnr_pdd2 = itab_dados_pd-belnr_pdd2.
itab_dados_dev-dtpdd = itab_dados_pd-dtpdd.
ENDIF.
APPEND itab_dados_dev.
CLEAR itab_dados_dev.
ENDDO.
ENDIF.
ENDLOOP.
...
ENDFORM. " dados_devolucao