Sintoma

O histórico contábil da captação não mostra os documentos corretos depois que a contabilização da

vinculação e liquidação automatica é concluída.

Solução

Adicionado tratamento para que a data de pagamento no exterior seja gravada de forma correta.

Informações Complementares

----------------------------------------------------------------------------------------------------

Nota Número 06211 Data: 20/03/2008 Hora: 08:53:18

----------------------------------------------------------------------------------------------------

----------------------------------------------------------------------------------------------------

Nota Número              : 06211

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00005

Agrupamento              : 00039

----------------------------------------------------------------------------------------------------

Referência às notas relacionadas:

Número - Ordem - Versão - Pacote - Descrição Breve

05825  - 00001 - 7.0    - 00004  - VALORES MANTIDOS NO EXTERIOR COM VINCULAÇÃO E LIQUIDAÇÃO AUTOMÁTI

----------------------------------------------------------------------------------------------------

VINCULAÇÃO - HISTORICO CONTABIL DA CAPTAÇÃO

----------------------------------------------------------------------------------------------------

Palavras Chave:

VINCULAÇÃO - HISTORICO CONTABIL DA CAPTAÇÃO

----------------------------------------------------------------------------------------------------

Objetos da nota:

REPS /PWS/MZYCB009F03

REPS /PWS/MZYCB009F07

REPS /PWS/MZYCB009F08

REPS /PWS/MZYCB009F09

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCB009F03

...

  /pws/zycbt084-nrparc   = itab_zycbt005-nrparc.

  /pws/zycbt084-dtincl   = itab_zycbt005-dtincl.

  /pws/zycbt084-nrinvoic = itab_zycbt005-nrinvoic.

  /pws/zycbt084-nrparcf  = itab_zycbt005-nrparcf.

  /pws/zycbt084-gsberf   = itab_zycbt005-gsberf.

  /pws/zycbt084-dtvincul = itab_zycbt005-dtvincul.

  /pws/zycbt084-dtvencto = itab_zycbt005-dtvencto.

  /pws/zycbt084-dtpagto  = itab_zycbt005-dtvincul.

  /pws/zycbt084-vbeln    = itab_zycbt030-vbeln.

  /pws/zycbt084-belnr    = itab_zycbt030-belnr6.

* >> Início da inclusão: FORM GRAVA_ZYCBT084

  /pws/zycbt084-dtpagext = /pws/zycbe006-dtpagext.

  /pws/zycbt084-dtpagto  = /pws/zycbe006-dtpagto.

* << Fim da inclusão

  MODIFY /pws/zycbt084 FROM /pws/zycbt084.

ENDFORM.

FORM seleciona_zycbt030_c.

  DATA: v_s_kwert LIKE /pws/zycbt030-kwert.

  REFRESH itab_zycbt030.

  IF NOT itab_zycbt005_ant[] IS INITIAL.

    SELECT  /pws/zycbt030~nrinvoic  /pws/zycbt030~vbeln

            /pws/zycbt030~nrparcf   /pws/zycbt030~gsberf

            /pws/zycbt030~belnr     /pws/zycbt030~kwert

            /pws/zycbt030~waers     /pws/zycbt030~kostl

...

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCB009F07

...

        CLEAR itab_contabil-vbeln.

        itab_contabil-nrparcf  = wa_zycbt005-nrparcf.

        itab_contabil-gsberf   = itab_zycbe033-c_gsber.

        itab_contabil-docto    = itab_zycbt032-belnr.

        itab_contabil-msg      = text-325.

        itab_contabil-dtdocto  = /pws/zycbe006-dtpagto.

        itab_contabil-bukrs    = itab_zycbe033-bukrs.

        APPEND itab_contabil.

        v_subrc = 0.

        CLEAR /pws/zycbt084.

* >> Início da inclusão: FORM DESMEMBRA_ACE_CP

        /pws/zycbt084-dtpagext  = /pws/zycbe006-dtpagext.

* << Fim da inclusão

        /pws/zycbt084-nrseqc   = wa_zycbt005-nrseqc.

        /pws/zycbt084-tpdesp   = wa_zycbt005-tpdesp.

        /pws/zycbt084-nrparc   = wa_zycbt005-nrparc.

        /pws/zycbt084-dtincl   = wa_zycbt005-dtincl.

        /pws/zycbt084-nrinvoic = wa_zycbt005-nrinvoic.

        /pws/zycbt084-nrparcf  = wa_zycbt005-nrparcf.

        /pws/zycbt084-gsberf   = wa_zycbt005-gsberf.

        /pws/zycbt084-dtvincul = wa_zycbt005-dtvincul.

        /pws/zycbt084-dtvencto = wa_zycbt005-dtvencto.

        /pws/zycbt084-dtpagto  = /pws/zycbe006-dtpagto.

...

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCB009F08

...

        /pws/zycbt084-nrinvoic = itab_zycbt005-nrinvoic.

        /pws/zycbt084-nrparcf  = itab_zycbt005-nrparcf.

        /pws/zycbt084-gsberf   = itab_zycbt005-gsberf.

        /pws/zycbt084-dtvincul = itab_zycbt005-dtvincul.

        /pws/zycbt084-dtvencto = itab_zycbt005-dtvencto.

        /pws/zycbt084-dtpagto  = /pws/zycbe006-dtpagto.

        /pws/zycbt084-vbeln    = itab_zycbt030-vbeln.

        /pws/zycbt084-belnr    = itab_zycbt032-belnr.

        /pws/zycbt084-liq_and  = space.

        /pws/zycbt084-tdesmemb = 'K'.

* >> Início da inclusão: FORM DESMEMBRA_CLIENTE

        /pws/zycbt084-dtpagext  = /pws/zycbe006-dtpagext.

* << Fim da inclusão

        /pws/zycbt084-result_saldo = wa_recurso_aux-vl_total_saldo.

        MODIFY /pws/zycbt084 FROM /pws/zycbt084.

      ELSE.

        LOOP AT itab_zycbt032 WHERE tcode  = 'F-30'

                                AND tabela = 'ZYCBT005'

                                AND cpochv = v_cpochv.

          itab_erro-vbeln = itab_zycbt030-vbeln.

          itab_erro-msg   = itab_zycbt032-msg.

          APPEND itab_erro.

        ENDLOOP.

...

...

        itab_contabil-nrinvoic = itab_zycbt005-nrinvoic.

        CLEAR itab_contabil-vbeln.

        itab_contabil-gsberf   = itab_zycbt005-gsberf.

        itab_contabil-docto    = itab_zycbt032-belnr.

        itab_contabil-msg      = text-325.

        itab_contabil-dtdocto  = itab_zycbt005-dtvincul.

        itab_contabil-bukrs    = itab_zycbt005-bukrs.

        APPEND itab_contabil.

        v_subrc = 0.

        CLEAR /pws/zycbt084.

* >> Início da inclusão: FORM DESMEMBRA_ACE

        /pws/zycbt084-dtpagext  = /pws/zycbe006-dtpagext.

* << Fim da inclusão

        /pws/zycbt084-nrseqc   = itab_zycbt005-nrseqc.

        /pws/zycbt084-tpdesp   = itab_zycbt005-tpdesp.

        /pws/zycbt084-nrparc   = itab_zycbt005-nrparc.

        /pws/zycbt084-dtincl   = itab_zycbt005-dtincl.

        /pws/zycbt084-nrinvoic = itab_zycbt005-nrinvoic.

        /pws/zycbt084-nrparcf  = itab_zycbt005-nrparcf.

        /pws/zycbt084-gsberf   = itab_zycbt005-gsberf.

        /pws/zycbt084-dtvincul = itab_zycbt005-dtvincul.

        /pws/zycbt084-vbeln    = itab_zycbt030-vbeln.

        /pws/zycbt084-belnr    = itab_zycbt032-belnr.

...

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCB009F09

...

        /pws/zycbe001-dtvincul = itab_zycbt005-dtvincul.

        itab_contabil-nrinvoic = itab_zycbt005-nrinvoic.

        CLEAR itab_contabil-vbeln.

        itab_contabil-gsberf   = itab_zycbt005-gsberf.

        itab_contabil-docto    = itab_zycbt032-belnr.

        itab_contabil-msg      = text-325.

        itab_contabil-dtdocto  = itab_zycbt005-dtvincul.

        itab_contabil-bukrs    = itab_zycbt005-bukrs.

        APPEND itab_contabil.

        v_subrc = 0.

* >> Início da inclusão: FORM DESMEMBRA_ACE2

        /pws/zycbt084-dtpagext  = /pws/zycbe006-dtpagext.

* << Fim da inclusão

        /pws/zycbt084-nrseqc   = itab_zycbt005-nrseqc.

        /pws/zycbt084-tpdesp   = itab_zycbt005-tpdesp.

        /pws/zycbt084-nrparc   = itab_zycbt005-nrparc.

        /pws/zycbt084-dtincl   = itab_zycbt005-dtincl.

        /pws/zycbt084-nrinvoic = itab_zycbt005-nrinvoic.

        /pws/zycbt084-nrparcf  = itab_zycbt005-nrparcf.

        /pws/zycbt084-gsberf   = itab_zycbt005-gsberf.

        /pws/zycbt084-dtvincul = itab_zycbt005-dtvincul.

        /pws/zycbt084-vbeln    = itab_zycbt030-vbeln.

        /pws/zycbt084-belnr    = itab_zycbt032-belnr.

...