Sintoma

Ao fazer uma vinculação e em seguida o estorno da fatura, o sistema assume no documento de abertura

do cliente no campo "Data Base" uma data diferente do parametrizado.

Solução

Foram efetuados ajustes para a busca correta do campo.

Informações Complementares

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

Nota Número 00622 Data: 09/01/2006 Hora: 10:38:48

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

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

Nota Número              : 00622

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 6.0

Pacote                   : 00022

Agrupamento              : 00095

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

VINCULAÇÃO - O SISTEMA ESTÁ ASSUMINDO A DATA BASE INCORRETA AO ESTORNAR

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

Palavras Chave:

VINCULAÇÃO ESTORNO DATA BASE

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

Objetos da nota:

FUNC /PWS/ZYCB_TRANSACAO_F_30_A

REPS /PWS/MZYCB009F09

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

Modificações efetuadas em FUNC /PWS/ZYCB_TRANSACAO_F_30_A

...

        WHERE kunnr = t_dados-d_newko

          AND bukrs = t_dados-bukrs.

      SELECT SINGLE plcontas FROM /pws/zycbt007

                             INTO /pws/zycbt007-plcontas

                             WHERE bukrs EQ t_dados-bukrs.

* >> Início da inclusão: FUNCTION /PWS/ZYCB_TRANSACAO_F_30_A

      v_cconta = knb1-akont.

* << Fim da inclusão

* >> Início da exclusão: FUNCTION /PWS/ZYCB_TRANSACAO_F_30_A

      SELECT SINGLE skont FROM t074

        INTO v_cconta

        WHERE ktopl = /pws/zycbt007-plcontas

          AND koart = 'D'

          AND hkont = knb1-akont.

* << Fim da exclusão

      PERFORM determina_string USING v_chave_debito

                                   t_dados-bukrs

                                   v_cconta

                             CHANGING v_string_debito.

      PERFORM trata_string_debito TABLES t_dados

...

...

    ELSEIF t_dados-newbs EQ '07' OR

           t_dados-newbs EQ '17' OR

           t_dados-newbs EQ '01'.

      PERFORM bdc_screen USING 'SAPMF05A' '0301'.

      IF NOT t_dados-d_gsber IS INITIAL.

* >> Início da inclusão: FUNCTION /PWS/ZYCB_TRANSACAO_F_30_A

        READ TABLE itab_oculto WITH KEY campo = 'BSEG-GSBER'

                                        chave = 'D'.

        IF sy-subrc NE 0.

* << Fim da inclusão

        PERFORM bdc_field USING:

                'BSEG-GSBER' t_dados-d_gsber.

* >> Início da inclusão: FUNCTION /PWS/ZYCB_TRANSACAO_F_30_A

        ENDIF.

* << Fim da inclusão

      ENDIF.

      PERFORM bdc_field USING:

              'BSEG-WRBTR'     v_wrbtr,

              'BSEG-SGTXT'     t_dados-d_sgtxt,

              'BSEG-ZUONR'     t_dados-d_zuonr.

...

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

Modificações efetuadas em REPS /PWS/MZYCB009F09

...

    REFRESH itab_zyglt321.

    SELECT * FROM /pws/zyglt321

             INTO TABLE itab_zyglt321

             WHERE ktosl   = 'CPT'

               AND codeven = v_codeven.

* >> Início da exclusão: FORM LANCA_CLIENTE

    READ TABLE itab_zycbt017 WITH KEY nrinvoic = itab_zycbt005-nrinvoic

                                      gsberf   = itab_zycbt005-gsberf.

* << Fim da exclusão

    LOOP AT itab_zyglt321.

      CASE itab_zyglt321-cpor3.

        WHEN 'SGTXT'.

          IF itab_zyglt321-cpocb = 'NRSEQ' OR

            itab_zyglt321-cpocb = 'NRSEQC'.

...

...

          IF itab_zyglt321-cpocb = 'DTBL'.

            itab_zycbe033-zfbdt = itab_zycbt017-dtbl.

          ELSEIF itab_zyglt321-cpocb = 'DTINCL'.

            SELECT SINGLE dtincl FROM /pws/zycet001

                   INTO itab_zycbe033-zfbdt

* >> Início da exclusão: FORM LANCA_CLIENTE

                   WHERE nrseq = itab_zycbt005-nrinvoic.

* << Fim da exclusão

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

                   WHERE nrseq = /pws/zycbe005-nrinvoic.

* << Fim da inclusão

          ELSEIF itab_zyglt321-cpocb = 'DTEMB'.

            SELECT SINGLE dtemb FROM /pws/zycet001

                   INTO itab_zycbe033-zfbdt

* >> Início da exclusão: FORM LANCA_CLIENTE

                   WHERE nrseq = itab_zycbt005-nrinvoic.

* << Fim da exclusão

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

                   WHERE nrseq = /pws/zycbe005-nrinvoic.

* << Fim da inclusão

          ELSEIF itab_zyglt321-cpocb = 'DTVENCTO'.

            SELECT SINGLE dtvencto FROM /pws/zycet001

                   INTO itab_zycbe033-zfbdt

                   WHERE nrseq = itab_zycbt030-nrinvoic.

          ELSEIF itab_zyglt321-cpocb = 'DTVINCUL'.

            itab_zycbe033-zfbdt = /pws/zycbe005-dtvincul.

          ENDIF.

        WHEN 'VALUT'.

          IF itab_zyglt321-cpocb = 'DTVENCTO'.

* >> Início da exclusão: FORM LANCA_CLIENTE

            itab_zycbe033-d_valut = itab_zycbt005-dtvencto.

            itab_zycbe033-c_valut = itab_zycbt005-dtvencto.

* << Fim da exclusão

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

            itab_zycbe033-d_valut = /pws/zycbe005-dtvencto.

            itab_zycbe033-c_valut = /pws/zycbe005-dtvencto.

* << Fim da inclusão

          ELSEIF itab_zyglt321-cpocb = 'DTBL'.

            itab_zycbe033-d_valut = itab_zycbt017-dtbl.

            itab_zycbe033-c_valut = itab_zycbt017-dtbl.

          ELSEIF itab_zyglt321-cpocb = 'DTINCL'.

            SELECT SINGLE dtincl FROM /pws/zycet001

                   INTO itab_zycbe033-d_valut

* >> Início da exclusão: FORM LANCA_CLIENTE

                   WHERE nrseq = itab_zycbt005-nrinvoic.

* << Fim da exclusão

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

                   WHERE nrseq = /pws/zycbe005-nrinvoic.

* << Fim da inclusão

            itab_zycbe033-c_valut = itab_zycbe033-d_valut.

          ELSEIF itab_zyglt321-cpocb = 'DTEMB'.

            SELECT SINGLE dtemb FROM /pws/zycet001

                   INTO itab_zycbe033-d_valut

* >> Início da exclusão: FORM LANCA_CLIENTE

                   WHERE nrseq = itab_zycbt005-nrinvoic.

* << Fim da exclusão

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

                   WHERE nrseq = /pws/zycbe005-nrinvoic.

* << Fim da inclusão

            itab_zycbe033-c_valut = itab_zycbe033-d_valut.

          ELSEIF itab_zyglt321-cpocb = 'DTVINCUL'.

* >> Início da exclusão: FORM LANCA_CLIENTE

            itab_zycbe033-d_valut = itab_zycbt005-dtvincul.

            itab_zycbe033-c_valut = itab_zycbt005-dtvincul.

* << Fim da exclusão

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

            itab_zycbe033-d_valut = /pws/zycbe005-dtvincul.

            itab_zycbe033-c_valut = /pws/zycbe005-dtvincul.

* << Fim da inclusão

          ENDIF.

        WHEN 'ZUONR'.

          IF itab_zyglt321-cpocb = 'NRSEQ' OR

            itab_zyglt321-cpocb = 'NRSEQC'.

            itab_zycbe033-d_zuonr = /pws/zycbe001-nrseqc.

...