Sintoma

Ao fazer estorno do documento de liquidação de DP, sendo vinculação com liquidação automática, ao

contabilizar o documento do contrato, não está levando a informação ZFBDT. Erro ao fazer a

vinculação com liquidação automática de DP, campo BSEG-VALUT e duplo clique nas partidas ao gerar

documento de liquidação.

Solução

No estorno, fazer verificação se o razão especial esta cadastrado no SAP, para aparecer ou não o

campo BSEG-ZFBDT. Na liquidação automática, não passar o campo BSEG-VALUT quando for duplo clique em

partida gerada pelo SAP e ordenar corretamente as partidas a serem efetuado o duplo clique, para que

utilize a tela correta de acordo com conta: cliente, cliente razão especial e razão.

Informações Complementares

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

Nota Número 02237 Data: 09/10/2006 Hora: 15:18:55

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

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

Nota Número              : 02237

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 6.0

Pacote                   : 00025

Agrupamento              : 00134

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

Referência às notas relacionadas:

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

01959  - 00001 - 6.0    - 00024  - MAPEAMENTO DO CAMPO BSEG-VALUT NO BATCH INPUT DA DEVOLUÇÃO

02176  - 00002 - 6.0    - 00025  - LIQUIDAÇÃO DP - CAMPO DATA DE VENCIMENTO

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

VINCULAÇÃO COM LIQ. AUTOMÁTICA - ESTORNO DP - ZFBDT

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

Palavras Chave:

VINCULAÇÃO LIQ. AUTOMÁTICA LIQUIDAÇÃO AUTOMÁTICA ESTORNO

BSEG-ZFBDT BSEG-VALUT DUPLO CLIQUE PARTIDAS DP DOWN PAYMENT

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

Objetos da nota:

FUNC /PWS/ZYCB_TRANSACAO_F_30_P

FUNC /PWS/ZYCB_TRANSACAO_F_30_W

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

Modificações efetuadas em FUNC /PWS/ZYCB_TRANSACAO_F_30_P

...

    v_newbs              LIKE /pws/zycbe033-newbs,

    v_ulsk1              TYPE t042-ulsk1,

    v_umsks              TYPE t074u-umsks,

    v_tela               LIKE sy-dynnr,

    v_newum              LIKE rf05a-newum,

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

    v_programa(40)       TYPE c VALUE 'SAPMF05A'.

* << Fim da exclusão

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

    v_programa(40)       TYPE c VALUE 'SAPMF05A',

    v_zfbdt_tela(1)      type c.

* << Fim da inclusão

  TABLES: tcurx,

          /pws/zycbt089,

          t042,

          rf05a.

  DATA: itab_t041t       LIKE t041t OCCURS 0 WITH HEADER LINE.

...

...

      IF c_zuonr NE v_zuonr.

        IF NOT c_zuonr IS INITIAL.

          PERFORM bdc_field USING 'BSEG-ZUONR' c_zuonr.

        ENDIF.

      ENDIF.

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

      IF v_tela2 = '0304'.

        IF NOT v_umskz IS INITIAL.

          CLEAR v_zfbdt_tela.

          SELECT SINGLE ulsk1

            INTO v_ulsk1

            FROM t042

            WHERE bukrs EQ t_dados-bukrs.

          IF v_ulsk1 NS v_umskz.

            SELECT SINGLE umsks

              INTO v_umsks

              FROM t074u

              WHERE koart EQ 'D' AND

                    umskz EQ v_umskz.

            IF v_umsks NE 'A'.

              v_zfbdt_tela = 'X'.

            ENDIF.

          ELSE.

            v_zfbdt_tela = 'X'.

          ENDIF.

        ENDIF.

      ENDIF.

* << Fim da inclusão

      READ TABLE itab_oculto

        WITH KEY campo = 'BSEG-ZFBDT' chave = v_lanc1

        TRANSPORTING NO FIELDS.

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

      IF sy-subrc <> 0.

* << Fim da exclusão

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

      IF sy-subrc <> 0

      OR v_zfbdt_tela EQ 'X'.

* << Fim da inclusão

        PERFORM bdc_field

          USING: 'BSEG-ZFBDT' v_zfbdt.

      ENDIF.

      IF NOT v_tela2 = '0304'.

        IF v_vinc_tot IS INITIAL.

...

...

        ENDIF.

      ENDIF.

      IF NOT t_dados-d_valut IS INITIAL AND

         NOT t_dados-d_valut EQ '00000000'

        AND v_vinc_tot IS INITIAL

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

        AND v_dev IS INITIAL.

* << Fim da exclusão

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

        AND v_dev IS INITIAL

        AND v_linhas LT '002'.

* << Fim da inclusão

        IF NOT c_valut IS INITIAL .

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

                                          chave = v_lanc2.

          IF sy-subrc <> 0.

            PERFORM bdc_field USING 'BSEG-VALUT' v_valut.

...

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

Modificações efetuadas em FUNC /PWS/ZYCB_TRANSACAO_F_30_W

...

        SORT itab_parts BY shkzg agkoa agkon agums DESCENDING.

      ELSE.

        SORT itab_parts BY shkzg agkoa agkon agums ASCENDING.

      ENDIF.

      IF v_dp = 'X'.

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

        SORT itab_parts BY shkzg agkoa agkon agums ASCENDING.

* << Fim da exclusão

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

        SORT itab_parts BY agkon shkzg agums agkoa ASCENDING.

* << Fim da inclusão

      ELSE.

        SORT itab_parts BY shkzg agkoa agkon agums.

      ENDIF.

      CLEAR: v_last.

      READ TABLE itab_parts WITH KEY agkon = t_dados-d_newko.

...