CE PLUS - Nota 000755
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Vinculação
Data/Hora da Publicação: 31/01/2006 00:00:00
Data/Hora Última Alteração: 18/02/2011 14:46:10
Descrição da Nota: VINCULAÇÃO - PREENCHIMENTO DOS CAMPOS DO BATCH INPUT
Sintoma
Busca incorreta dos campos para preenchimento do batch input no processo de estorno.
Solução
Alterado o preenchimento dos campos do batch input no processo de estorno.
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 00755 Data: 31/01/2006 Hora: 10:57:25
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 00755
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00022
Agrupamento : 00097
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
VINCULAÇÃO - PREENCHIMENTO DOS CAMPOS DO BATCH INPUT
----------------------------------------------------------------------------------------------------
Palavras Chave:
ESTORNO DE VINCULAÇÃO COM BAIXA NO CLIENTE
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB009F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009F01
...
itab_zycbe033-bldat = itab_zycbe033-budat.
ENDIF.
itab_zycbe033-bktxt = wa_zycbt007-bktxt.
CONCATENATE '002' /pws/zycbe001-tpcontr INTO v_codeven.
REFRESH itab_zyglt321.
* >> Início da inclusão: FORM FILL_DATE1_F02
IF wa_zycbt089-bx_cli_vinc IS INITIAL.
* << Fim da inclusão
SELECT * FROM /pws/zyglt321
INTO TABLE itab_zyglt321
WHERE ktosl = 'CPT'
AND codeven = v_codeven.
READ TABLE itab_zycbt017 WITH KEY nrinvoic = itab_vinc-nrinvoic
...
...
IF itab_zyglt321-cpocb = 'ZTERM'.
itab_zycbe033-zterm = itab_zycbt017-zterm.
ENDIF.
ENDCASE.
ENDLOOP.
* >> Início da inclusão: FORM FILL_DATE1_F02
ELSE.
SELECT * FROM /pws/zyglt321
INTO TABLE itab_zyglt321
WHERE ktosl = 'FTE'
AND codeven = v_codeven.
READ TABLE itab_zycbt017 WITH KEY nrinvoic = itab_vinc-nrinvoic
nrparcf = itab_vinc-nrparcf
gsberf = itab_vinc-gsberf.
IF sy-subrc EQ 0.
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
IF itab_zyglt321-cpocb = 'NRINVOIC'.
itab_zycbe033-d_sgtxt = itab_zycbt017-nrinvoic.
itab_zycbe033-c_sgtxt = itab_zycbt017-nrinvoic.
itab_zycbe033-augtx = itab_zycbt017-nrinvoic.
ELSEIF itab_zyglt321-cpocb = 'NREMB'.
itab_zycbe033-d_sgtxt = itab_zycbt017-nremb.
itab_zycbe033-c_sgtxt = itab_zycbt017-nremb.
itab_zycbe033-augtx = itab_zycbt017-nremb.
ENDIF.
WHEN 'XBLNR'.
IF itab_zyglt321-cpocb = 'NRINVOIC'.
itab_zycbe033-xblnr = itab_zycbt017-nrinvoic.
ELSEIF itab_zyglt321-cpocb = 'NREMB'.
itab_zycbe033-xblnr = itab_zycbt017-nremb.
ENDIF.
WHEN 'ZFBDT'.
IF itab_zyglt321-cpocb = 'FKDAT'.
itab_zycbe033-zfbdt = itab_zycbt017-fkdat.
ELSEIF itab_zyglt321-cpocb = 'DTINVOIC'.
itab_zycbe033-zfbdt = itab_zycbt017-dtinvoic.
ELSEIF itab_zyglt321-cpocb = 'DTEMB'.
SELECT SINGLE dtemb FROM /pws/zycet001
INTO itab_zycbe033-zfbdt
WHERE nrseq = itab_vinc-nrinvoic.
ELSEIF itab_zyglt321-cpocb = 'DTVENCTO'.
itab_zycbe033-zfbdt = itab_zycbt017-dtvencto.
ELSEIF itab_zyglt321-cpocb = 'DTBL'.
itab_zycbe033-zfbdt = itab_zycbt017-dtbl.
ENDIF.
WHEN 'ZUORN'.
IF itab_zyglt321-cpocb = 'NRINVOIC'.
itab_zycbe033-d_zuonr = itab_zycbt017-nrinvoic.
ELSEIF itab_zyglt321-cpocb = 'NREMB'.
itab_zycbe033-d_zuonr = itab_zycbt017-nremb.
ENDIF.
WHEN 'VALUT'.
IF itab_zyglt321-cpocb = 'FKDAT'.
itab_zycbe033-d_valut = itab_zycbt017-fkdat.
itab_zycbe033-c_valut = itab_zycbt017-fkdat.
ELSEIF itab_zyglt321-cpocb = 'DTINVOIC'.
itab_zycbe033-c_valut = itab_zycbt017-dtinvoic.
itab_zycbe033-c_valut = itab_zycbt017-dtinvoic.
ELSEIF itab_zyglt321-cpocb = 'DTEMB'.
SELECT SINGLE dtemb FROM /pws/zycet001
INTO itab_zycbe033-c_valut
WHERE nrseq = itab_vinc-nrinvoic.
itab_zycbe033-d_valut = itab_zycbe033-c_valut.
ELSEIF itab_zyglt321-cpocb = 'DTVENCTO'.
itab_zycbe033-c_valut = itab_zycbt017-dtvencto.
itab_zycbe033-c_valut = itab_zycbt017-dtvencto.
ELSEIF itab_zyglt321-cpocb = 'DTBL'.
itab_zycbe033-c_valut = itab_zycbt017-dtbl.
itab_zycbe033-c_valut = itab_zycbt017-dtbl.
ENDIF.
WHEN 'ZTERM'.
IF itab_zyglt321-cpocb = 'ZTERM'.
itab_zycbe033-zterm = itab_zycbt017-zterm.
ENDIF.
ENDCASE.
ENDLOOP.
ENDIF.
ENDIF.
* << Fim da inclusão
PERFORM verify_null_field USING /pws/zycbe001-bukrs
'BUKRS'
text-004.
itab_zycbe033-bukrs = /pws/zycbe001-bukrs.
PERFORM verify_null_field USING /pws/zycbe001-waers
...