Sintoma

Ao salvar um contrato de Down Payment, gerado através do programa de liquidação de ACC com pré, está

sendo exibida a mensagem de que o campo BSEG-ZFBDT não existe na tela, não gerando as

contabilizações.

Solução

Foram efetuados ajustes e o programa passou a enviar a tela correta para o batch-input.

Informações Complementares

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

Nota Número 01622 Data: 22/06/2006 Hora: 09:52:35

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

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

Nota Número              : 01622

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 6.0

Pacote                   : 00024

Agrupamento              : 00119

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

LIQUIDAÇÃO ACC/DP - CAMPO BSEG-ZFBDT

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

Palavras Chave:

LIQUIDAÇÃO ACC DP CAMPO BSEG-ZFBDT

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

Objetos da nota:

FUNC /PWS/ZYCB_TRANSACAO_F_02H

FUNC /PWS/ZYCB_TRANSACAO_F_30_F

FUNC /PWS/ZYCB_TRANSACAO_F_30_P

REPS /PWS/LZYCBGF2F01

REPS /PWS/LZYGLGF2F01

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

Modificações efetuadas em FUNC /PWS/ZYCB_TRANSACAO_F_02H

...

                              v_newbs

                     CHANGING v_umskz

                              v_tela.

    PERFORM define_campo TABLES t_telas

                         USING  v_programa

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

                                v_tela.

* << Fim da exclusão

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

                                v_tela

                                'BSEG-ZFBDT'.

* << Fim da inclusão

    IF v_invisible EQ 0.

      IF v_input EQ 1 AND v_required EQ 1 AND NOT

         t_dados-zfbdt IS INITIAL.

        WRITE t_dados-zfbdt TO v_zfbdt.

      ENDIF.

...

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

Modificações efetuadas em FUNC /PWS/ZYCB_TRANSACAO_F_30_F

...

    v_selecao(2)    TYPE n,

    v_tabix         LIKE sy-tabix,

    v_agkoa         LIKE /pws/zycbe033-agkoa,

    v_year          LIKE bkpf-gjahr,

    v_idx221        LIKE sy-tabix,

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

    v_programa(40)       TYPE c VALUE 'SAPMF05A',

* << Fim da inclusão

    v_lines221      TYPE i.

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

  DATA: t_telas TYPE rpy_dyfatc OCCURS 0 WITH HEADER LINE.

* << Fim da inclusão

  DATA: BEGIN OF itab_parts OCCURS 0,

...

...

    IF NOT t_dados-brnch IS INITIAL.

      PERFORM bdc_field USING 'BKPF-BRNCH' t_dados-brnch.

    ENDIF.

    IF wa_zycbt221 IS INITIAL.

      WRITE t_dados-wrbtr TO v_wrbtr CURRENCY t_dados-waers.

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

      PERFORM bdc_screen USING 'SAPMF05A' '0304'.

* << Fim da exclusão

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

      PERFORM define_tela USING t_dados-tcode

                                t_dados-bukrs

                                t_dados-d_newko

                                t_dados-newbs

                       CHANGING t_dados-umskz

                                v_tela.

      PERFORM bdc_screen USING 'SAPMF05A' v_tela.

* << Fim da inclusão

      PERFORM bdc_field USING:

            'BSEG-WRBTR'  v_wrbtr,

            'BSEG-ZUONR'  t_dados-c_zuonr,

            'BSEG-SGTXT'  t_dados-d_sgtxt.

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

      PERFORM define_campo TABLES t_telas

                           USING  v_programa

                                  v_tela

                                  'BSEG-ZFBDT'.

      IF v_invisible EQ 0.

        IF v_input EQ 1 OR v_required EQ 1

           AND NOT v_zfbdt IS INITIAL

           AND NOT v_zfbdt = '00.00.0000'

           AND NOT v_zfbdt = '00/00/0000'.

          PERFORM bdc_field  USING: 'BSEG-ZFBDT' v_zfbdt.

        ENDIF.

      ENDIF.

* << Fim da inclusão

      READ TABLE itab_oculto

        WITH KEY campo = 'BSEG-GSBER' chave = 'C'.

      IF sy-subrc <> 0.

        PERFORM bdc_field USING:

              'BSEG-GSBER'  t_dados-d_gsber.

...

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

Modificações efetuadas em FUNC /PWS/ZYCB_TRANSACAO_F_30_P

...

                    'BSEG-GSBER' t_dados-d_gsber.

          ENDIF.

        ENDIF.

        PERFORM define_campo TABLES t_telas

                             USING  v_programa

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

                                    v_tela.

* << Fim da exclusão

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

                                    v_tela

                                    'BSEG-ZFBDT'.

* << Fim da inclusão

        IF v_invisible EQ 0.

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

          IF v_input EQ 1 AND v_required EQ 1

* << Fim da exclusão

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

          IF v_input EQ 1 OR v_required EQ 1

* << Fim da inclusão

             and not v_zfbdt is initial

             and not v_zfbdt = '00.00.0000'

             and not v_zfbdt = '00/00/0000'.

            PERFORM bdc_field  USING: 'BSEG-ZFBDT' v_zfbdt.

          ENDIF.

...

...

                      'BSEG-GSBER' t_dados-d_gsber.

            ENDIF.

          ENDIF.

          PERFORM define_campo TABLES t_telas

                               USING  v_programa

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

                                      v_tela.

* << Fim da exclusão

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

                                      v_tela

                                      'BSEG-ZFBDT'.

* << Fim da inclusão

          IF v_invisible EQ 0.

            IF NOT v_zfbdt IS INITIAL

             and not v_zfbdt = '00.00.0000'

             and not v_zfbdt = '00/00/0000'.

.

...

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

Modificações efetuadas em REPS /PWS/LZYCBGF2F01

...

                 buvar EQ ' '.

  ENDIF.

ENDFORM.

FORM define_campo TABLES   p_telas structure wa_RPY_DYFATC

                  USING    p_programa

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

                           p_tela.

* << Fim da exclusão

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

                           p_tela

                           p_campo.

* << Fim da inclusão

  CLEAR: v_input,

         v_output,

         v_required,

         v_invisible.

  CALL FUNCTION 'RPY_DYNPRO_READ'

...

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

Modificações efetuadas em REPS /PWS/LZYGLGF2F01

...

                 buvar EQ ' '.

  ENDIF.

ENDFORM.

FORM define_campo TABLES   p_telas structure wa_RPY_DYFATC

                  USING    p_programa

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

                           p_tela.

* << Fim da exclusão

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

                           p_tela

                           p_campo.

* << Fim da inclusão

  CLEAR: v_input,

         v_output,

         v_required,

         v_invisible.

  CALL FUNCTION 'RPY_DYNPRO_READ'

       EXPORTING

            progname             = p_programa

            dynnr                = p_tela

       TABLES

            fields_to_containers = p_telas.

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

  READ TABLE p_telas WITH KEY name = 'BSEG-ZFBDT'

* << Fim da exclusão

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

  READ TABLE p_telas WITH KEY name = p_campo

* << Fim da inclusão

                              type = 'TEMPLATE'.

  IF p_telas-group1 NE space OR p_telas-group2 NE space.

    IF p_telas-input_fld EQ 'X'.

      v_input     = 1.

    ELSE.

...