CE PLUS - Nota 001352

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.

 

Versões Tratadas

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

...