Módulo: CÂMBIO IMPORTAÇÃO
Funcionalidade: Associação
Data/Hora da Publicação: 16/05/2006 00:00:00
Data/Hora Última Alteração: 18/02/2011 09:38:36
Descrição da Nota: ASSOCIAÇÃO DE FATURAS - CONDIÇÃO DE PAGAMENTO - F-51
Sintoma
Esta ocorrendo erro na hora de associar parte da fatura a um financiamento.
Criei um financiamento e ao tentar associar valor parcial da fatura a este financiamento,
o programa está desmembrando a fatura de acordo com a condição de pagamento que está cadastrada
no cadastro mestre do fornecedor. Por exemplo: tentei associar 2000,00 de uma fatura no valor de
3.300,00 ( a condição de pagamento que está no cadastro do fornecedor é a "0016 - 50% para 21 dd
e mais 50% para 28dd". Aconteceu que o sistema desmembro esta fatura em 4 parcelas( duas de
1.000,00 ( 50% dos 2000,00 que estavam sendo associados) e mais duas de 650,00 ( 50% dos
1300,00 que estavam sendo associados)).
Solução
Mapear o campo ZTERM no desmembramento do documento da fatura gerada na Documentação Importação.
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 01352 Data: 16/05/2006 Hora: 16:28:33
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 01352
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00023
Agrupamento : 00114
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
ASSOCIAÇÃO DE FATURAS - CONDIÇÃO DE PAGAMENTO - F-51
----------------------------------------------------------------------------------------------------
Palavras Chave:
ASSOCIAÇÃO DE FATURAS CONDIÇÃO DE PAGAMENTO ZTERM
F-51 DESMEMBRAMENTO DOCUMENTO FATURA DOCUMENTAÇÃO IMPORTAÇÃO
----------------------------------------------------------------------------------------------------
Objetos da nota:
FUNC /PWS/ZYCM_TRANSACAO_F_51N
REPS /PWS/LZYCMGF2F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCM_TRANSACAO_F_51N
...
READ TABLE itab_oculto WITH KEY campo = 'BSEG-FIPOS'
chave = v_chv.
IF sy-subrc <> 0 AND NOT t_dados-d_fipos IS INITIAL.
PERFORM bdc_field USING 'BSEG-FIPOS' t_dados-d_fipos.
ENDIF.
* >> Início da inclusão: FUNCTION /PWS/ZYCM_TRANSACAO_F_51N
READ TABLE itab_oculto WITH KEY campo = 'BSEG-ZTERM'
chave = v_chv.
IF sy-subrc <> 0 AND NOT t_dados-zterm IS INITIAL.
PERFORM bdc_field USING 'BSEG-ZTERM' t_dados-zterm.
ENDIF.
* << Fim da inclusão
IF t_dados-wrbtr1 > 0.
PERFORM bdc_field USING 'RF05A-NEWKO' t_dados-agkon.
PERFORM bdc_field USING 'RF05A-NEWUM' t_dados-agums.
PERFORM bdc_field USING 'RF05A-NEWBS' t_dados-newbs.
READ TABLE itab_oculto WITH KEY campo = 'BSEG-SGTXT'
...
...
ENDIF.
READ TABLE itab_oculto WITH KEY campo = 'BSEG-FIPOS'
chave = v_chv.
IF sy-subrc <> 0 AND NOT t_dados-c_sgtxt IS INITIAL.
PERFORM bdc_field USING 'BSEG-SGTXT' t_dados-c_sgtxt.
* >> Início da inclusão: FUNCTION /PWS/ZYCM_TRANSACAO_F_51N
ENDIF.
READ TABLE itab_oculto WITH KEY campo = 'BSEG-ZTERM'
chave = v_chv.
IF sy-subrc <> 0 AND NOT t_dados-zterm IS INITIAL.
PERFORM bdc_field USING 'BSEG-ZTERM' t_dados-zterm.
* << Fim da inclusão
ENDIF.
PERFORM bdc_field USING:'BDC_OKCODE' '=SL'.
ENDIF.
CLEAR v_xpos.
SELECT SINGLE selps FROM t021r
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/LZYCMGF2F01
...
'BLART'
text-066.
itab_zycbe033-blart = wa_zycbt011-blart.
itab_zycbe033-c_gsber = /pws/zycbt119-gsber.
itab_zycbe033-d_gsber = /pws/zycbt119-gsber.
* >> Início da exclusão: FORM DESMEMBRA_DOCTO_FATURA
itab_zycbe033-c_kostl = /pws/zycbe119-kostl.
itab_zycbe033-d_kostl = /pws/zycbe119-kostl.
itab_zycbe033-c_prctr = /pws/zycbe119-prctr.
itab_zycbe033-d_prctr = /pws/zycbe119-prctr.
itab_zycbe033-c_fipos = /pws/zycbe119-fipos.
itab_zycbe033-d_fipos = /pws/zycbe119-fipos.
itab_zycbe033-c_fictr = /pws/zycbe119-fictr.
itab_zycbe033-d_fictr = /pws/zycbe119-fictr.
* << Fim da exclusão
* >> Início da inclusão: FORM DESMEMBRA_DOCTO_FATURA
itab_zycbe033-c_kostl = /pws/zycbt119-kostl.
itab_zycbe033-d_kostl = /pws/zycbt119-kostl.
itab_zycbe033-c_prctr = /pws/zycbt119-prctr.
itab_zycbe033-d_prctr = /pws/zycbt119-prctr.
itab_zycbe033-c_fipos = /pws/zycbt119-fipos.
itab_zycbe033-d_fipos = /pws/zycbt119-fipos.
itab_zycbe033-c_fictr = /pws/zycbt119-fictr.
itab_zycbe033-d_fictr = /pws/zycbt119-fictr.
itab_zycbe033-zterm = /pws/zycbt119-zterm.
* << Fim da inclusão
itab_zycbe033-zfbdt = /pws/zycbt119-dtvencto.
CLEAR: itab_zyglt100.
REFRESH: itab_zyglt100.
v_syrepid = sy-repid.
CALL FUNCTION '/PWS/ZYGL_BUSCA_EXIT_CLIENTE'
...
...
'BLART'
text-066.
itab_zycbe033-blart = wa_zycbt011-blart.
itab_zycbe033-c_gsber = /pws/zycbt119-gsber.
itab_zycbe033-d_gsber = /pws/zycbt119-gsber.
* >> Início da exclusão: FORM RECLASSIFICA_FATURA
itab_zycbe033-c_kostl = /pws/zycbe119-kostl.
itab_zycbe033-d_kostl = /pws/zycbe119-kostl.
itab_zycbe033-c_prctr = /pws/zycbe119-prctr.
itab_zycbe033-d_prctr = /pws/zycbe119-prctr.
itab_zycbe033-c_fipos = /pws/zycbe119-fipos.
itab_zycbe033-d_fipos = /pws/zycbe119-fipos.
itab_zycbe033-c_fictr = /pws/zycbe119-fictr.
itab_zycbe033-d_fictr = /pws/zycbe119-fictr.
* << Fim da exclusão
* >> Início da inclusão: FORM RECLASSIFICA_FATURA
itab_zycbe033-c_kostl = /pws/zycbt119-kostl.
itab_zycbe033-d_kostl = /pws/zycbt119-kostl.
itab_zycbe033-c_prctr = /pws/zycbt119-prctr.
itab_zycbe033-d_prctr = /pws/zycbt119-prctr.
itab_zycbe033-c_fipos = /pws/zycbt119-fipos.
itab_zycbe033-d_fipos = /pws/zycbt119-fipos.
itab_zycbe033-c_fictr = /pws/zycbt119-fictr.
itab_zycbe033-d_fictr = /pws/zycbt119-fictr.
itab_zycbe033-zterm = /pws/zycbt119-zterm.
* << Fim da inclusão
CLEAR: itab_zyglt100.
REFRESH: itab_zyglt100.
v_syrepid = sy-repid.
CALL FUNCTION '/PWS/ZYGL_BUSCA_EXIT_CLIENTE'
EXPORTING
...