Sintoma

Ao criar uma remessa de pagamento em regime de competência, os campos atribuição (ZUONR) e texto

(SGTXT) não são preenchidos para as partidas de débito dos documentos contábeis de pricipal e dos

impostos.

Solução

Foi corrigida a inconsistência ao enviar os campos para a partida de débito.

Informações Complementares

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

Nota Número 00456 Data: 15/12/2005 Hora: 11:00:58

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

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

Nota Número              : 00456

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 6.0

Pacote                   : 00022

Agrupamento              : 00093

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

REMESSA PAGTO. - CAMPOS ATRIBUIÇÃO E TEXTO NÃO SÃO PREENCHIDOS

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

Palavras Chave:

REMESSA PAGAMENTO ATRIBUIÇÃO ZUONR TEXTO SGTXT PARTIDA DÉBITO

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

Objetos da nota:

FUNC /PWS/ZYCA_TRANSACAO_F_63R

REPS /PWS/MZYCA109F01

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

Modificações efetuadas em FUNC /PWS/ZYCA_TRANSACAO_F_63R

...

    PERFORM bdc_field  USING:

             'BDC_CURSOR'  'RF05V-NEWKO',

             'BSEG-WRBTR'  v_wrbtr,           "Montante ME

             'BSEG-DMBTR'  v_dmbtr,           "Montante MI

             'BSEG-ZUONR'  t_debito-d_zuonr.  "Atribuição

    IF t_debito-bschl = '50'.

      v_deb_cred = 'C'.

    ELSE.

      v_deb_cred = 'D'.

    ENDIF.

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

                                    chave = v_deb_cred.

    IF sy-subrc NE 0 AND NOT t_debito-c_sgtxt IS INITIAL.

      PERFORM bdc_field  USING 'BSEG-SGTXT'  t_debito-c_sgtxt.

    ENDIF.

* >> Início da inclusão

* CHAMADO 277140 - 15/12/2005 - INICIO

    READ TABLE itab_oculto

      WITH KEY campo = 'BSEG-ZUONR'

               chave = v_deb_cred

      TRANSPORTING NO FIELDS.

    IF sy-subrc NE 0 AND NOT t_debito-c_zuonr IS INITIAL.

      PERFORM bdc_field  USING 'BSEG-ZUONR'  t_debito-c_zuonr.

    ENDIF.

* CHAMADO 277140 - 15/12/2005 - FIM

* << Fim da inclusão

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

                                    chave = v_deb_cred.

    IF sy-subrc NE 0 AND NOT v_database IS INITIAL.

      PERFORM bdc_field  USING 'BSEG-ZFBDT' v_database.   "Data Base

    ENDIF.

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

                                    chave = v_deb_cred.

    IF sy-subrc NE 0 AND NOT t_dados-brnch IS INITIAL.

      PERFORM bdc_field  USING 'BSEG-BUPLA'  t_dados-brnch.

    ENDIF.

* 269885 - Início

*   Pedido de compra / No. item doc. compra

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

                                    chave = v_deb_cred.

    IF sy-subrc NE 0 AND NOT t_debito-ebeln IS INITIAL.

      PERFORM bdc_field  USING 'BSEG-EBELN'  t_debito-ebeln.

      PERFORM bdc_field  USING 'BSEG-EBELP'  t_debito-ebelp.

    ENDIF.

* 269885 - Fim

*   verificando registro seguinte

...

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

Modificações efetuadas em REPS /PWS/MZYCA109F01

...

                                      text-120.

    LOOP AT itab_zyglt321.

      CASE itab_zyglt321-cpor3.

        WHEN 'SGTXT'.

          IF itab_zyglt321-cpocb = 'NRFAT'.

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

            itab_zycbe033-c_sgtxt = /pws/zycbe124-nrfat.

            itab_zycbe033-d_sgtxt = /pws/zycbe124-nrfat.

* << Fim da exclusão

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

            itab_zycbe035-c_sgtxt = /pws/zycbe124-nrfat.

            itab_zycbe035-d_sgtxt = /pws/zycbe124-nrfat.

* << Fim da inclusão

          ELSEIF itab_zyglt321-cpocb = 'NRCONTR'.

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

            itab_zycbe033-c_sgtxt = /pws/zycbe124-nrcontr.

            itab_zycbe033-d_sgtxt = /pws/zycbe124-nrcontr.

* << Fim da exclusão

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

            itab_zycbe035-c_sgtxt = /pws/zycbe124-nrcontr.

            itab_zycbe035-d_sgtxt = /pws/zycbe124-nrcontr.

* << Fim da inclusão

          ELSEIF itab_zyglt321-cpocb = 'NRFECH'.

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

            itab_zycbe033-c_sgtxt = /pws/zycbe124-nrfech.

            itab_zycbe033-d_sgtxt = /pws/zycbe124-nrfech.

* << Fim da exclusão

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

            itab_zycbe035-c_sgtxt = /pws/zycbe124-nrfech.

            itab_zycbe035-d_sgtxt = /pws/zycbe124-nrfech.

* << Fim da inclusão

          ELSEIF itab_zyglt321-cpocb = 'NRSEQ'.

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

            itab_zycbe033-c_sgtxt = /pws/zycbe124-nrseq.

            itab_zycbe033-d_sgtxt = /pws/zycbe124-nrseq.

          ELSEIF itab_zyglt321-cpocb = 'TXINF'.

            itab_zycbe033-c_sgtxt = /pws/zycbe124-txtinf.

            itab_zycbe033-d_sgtxt = /pws/zycbe124-txtinf.

* << Fim da exclusão

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

            itab_zycbe035-c_sgtxt = /pws/zycbe124-nrseq.

            itab_zycbe035-d_sgtxt = /pws/zycbe124-nrseq.

          ELSEIF itab_zyglt321-cpocb = 'TXTINF'.

            itab_zycbe035-c_sgtxt = /pws/zycbe124-txtinf.

            itab_zycbe035-d_sgtxt = /pws/zycbe124-txtinf.

* << Fim da inclusão

          ELSEIF itab_zyglt321-cpocb = 'CODPAGTO'.

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

            itab_zycbe033-c_sgtxt = /pws/zycbe124-codpagto.

            itab_zycbe033-d_sgtxt = /pws/zycbe124-codpagto.

* << Fim da exclusão

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

            itab_zycbe035-c_sgtxt = /pws/zycbe124-codpagto.

            itab_zycbe035-d_sgtxt = /pws/zycbe124-codpagto.

* << Fim da inclusão

          ELSEIF itab_zyglt321-cpocb = 'SBU'.

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

            itab_zycbe033-c_sgtxt = /pws/zycbe124-sbu.

            itab_zycbe033-d_sgtxt = /pws/zycbe124-sbu.

* << Fim da exclusão

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

            itab_zycbe035-c_sgtxt = /pws/zycbe124-sbu.

            itab_zycbe035-d_sgtxt = /pws/zycbe124-sbu.

* << Fim da inclusão

          ELSEIF itab_zyglt321-cpocb = 'TPIMP'.

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

            itab_zycbe033-c_sgtxt = p_tpimp.

            itab_zycbe033-d_sgtxt = p_tpimp.

* << Fim da exclusão

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

            itab_zycbe035-c_sgtxt = p_tpimp.

            itab_zycbe035-d_sgtxt = p_tpimp.

* << Fim da inclusão

          ELSEIF itab_zyglt321-cpocb IS INITIAL AND

             NOT itab_zyglt321-descr IS INITIAL.

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

            itab_zycbe033-c_sgtxt = itab_zyglt321-descr.

            itab_zycbe033-d_sgtxt = itab_zyglt321-descr.

* << Fim da exclusão

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

            itab_zycbe035-c_sgtxt = itab_zyglt321-descr.

            itab_zycbe035-d_sgtxt = itab_zyglt321-descr.

* << Fim da inclusão

          ENDIF.

        WHEN 'VALUT'.

          IF itab_zyglt321-cpocb = 'DTINCL'.

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

            itab_zycbe033-c_valut = /pws/zycbe124-dtincl.

            itab_zycbe033-d_valut = /pws/zycbe124-dtincl.

* << Fim da exclusão

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

            itab_zycbe035-c_valut = /pws/zycbe124-dtincl.

            itab_zycbe035-d_valut = /pws/zycbe124-dtincl.

* << Fim da inclusão

          ELSEIF itab_zyglt321-cpocb = 'DTDOCTO'.

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

            itab_zycbe033-c_valut = /pws/zycbe124-dtdocto.

            itab_zycbe033-d_valut = /pws/zycbe124-dtdocto.

* << Fim da exclusão

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

            itab_zycbe035-c_valut = /pws/zycbe124-dtdocto.

            itab_zycbe035-d_valut = /pws/zycbe124-dtdocto.

* << Fim da inclusão

          ELSEIF itab_zyglt321-cpocb = 'DTVENCTO'.

            IF p_tpimp = 'PRINCIPAL'.

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

              itab_zycbe033-c_valut = /pws/zycbe124-dtvencto.

              itab_zycbe033-d_valut = /pws/zycbe124-dtvencto.

* << Fim da exclusão

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

              itab_zycbe035-c_valut = /pws/zycbe124-dtvencto.

              itab_zycbe035-d_valut = /pws/zycbe124-dtvencto.

* << Fim da inclusão

            ELSE.

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

              itab_zycbe033-c_valut = itab_zycat025-dtvencto.

              itab_zycbe033-d_valut = itab_zycat025-dtvencto.

* << Fim da exclusão

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

              itab_zycbe035-c_valut = itab_zycat025-dtvencto.

              itab_zycbe035-d_valut = itab_zycat025-dtvencto.

* << Fim da inclusão

            ENDIF.

          ELSEIF itab_zyglt321-cpocb = 'DTLANC'.

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

            itab_zycbe033-c_valut = itab_zycat025-dtlanc.

            itab_zycbe033-d_valut = itab_zycat025-dtlanc.

* << Fim da exclusão

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

            itab_zycbe035-c_valut = itab_zycat025-dtlanc.

            itab_zycbe035-d_valut = itab_zycat025-dtlanc.

* << Fim da inclusão

          ENDIF.

        WHEN 'XBLNR'.

          IF itab_zyglt321-cpocb = 'NRSEQ'.

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

            itab_zycbe033-xblnr = /pws/zycbe124-nrseq.

* << Fim da exclusão

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

            itab_zycbe035-d_xblnr = /pws/zycbe124-nrseq.

            itab_zycbe035-c_xblnr = /pws/zycbe124-nrseq.

* << Fim da inclusão

          ELSEIF itab_zyglt321-cpocb = 'NRFECH'.

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

            itab_zycbe033-xblnr = /pws/zycbe124-nrfech.

* << Fim da exclusão

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

            itab_zycbe035-d_xblnr = /pws/zycbe124-nrfech.

            itab_zycbe035-c_xblnr = /pws/zycbe124-nrfech.

* << Fim da inclusão

          ELSEIF itab_zyglt321-cpocb = 'NRFAT'.

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

            itab_zycbe033-xblnr = /pws/zycbe124-nrfat.

* << Fim da exclusão

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

            itab_zycbe035-d_xblnr = /pws/zycbe124-nrfat.

            itab_zycbe035-c_xblnr = /pws/zycbe124-nrfat.

* << Fim da inclusão

          ELSEIF itab_zyglt321-cpocb = 'NRCONTR'.

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

            itab_zycbe033-xblnr = /pws/zycbe124-nrcontr.

          ELSEIF itab_zyglt321-cpocb = 'TXINF'.

            itab_zycbe033-xblnr = /pws/zycbe124-txtinf.

* << Fim da exclusão

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

            itab_zycbe035-d_xblnr = /pws/zycbe124-nrcontr.

            itab_zycbe035-c_xblnr = /pws/zycbe124-nrcontr.

          ELSEIF itab_zyglt321-cpocb = 'TXTINF'.

            itab_zycbe035-d_xblnr = /pws/zycbe124-txtinf.

            itab_zycbe035-c_xblnr = /pws/zycbe124-txtinf.

* << Fim da inclusão

          ELSEIF itab_zyglt321-cpocb = 'CODPAGTO'.

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

            itab_zycbe033-xblnr = /pws/zycbe124-codpagto.

* << Fim da exclusão

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

            itab_zycbe035-d_xblnr = /pws/zycbe124-codpagto.

            itab_zycbe035-c_xblnr = /pws/zycbe124-codpagto.

* << Fim da inclusão

          ELSEIF itab_zyglt321-cpocb = 'SBU'.

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

            itab_zycbe033-xblnr = /pws/zycbe124-sbu.

* << Fim da exclusão

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

            itab_zycbe035-d_xblnr = /pws/zycbe124-sbu.

            itab_zycbe035-c_xblnr = /pws/zycbe124-sbu.

* << Fim da inclusão

          ELSEIF itab_zyglt321-cpocb = 'TPIMP'.

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

            itab_zycbe033-xblnr = p_tpimp.

* << Fim da exclusão

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

            itab_zycbe035-d_xblnr = p_tpimp.

            itab_zycbe035-c_xblnr = p_tpimp.

* << Fim da inclusão

          ELSEIF itab_zyglt321-cpocb IS INITIAL AND

                 NOT itab_zyglt321-descr IS INITIAL.

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

            itab_zycbe033-xblnr = itab_zyglt321-descr.

* << Fim da exclusão

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

            itab_zycbe035-d_xblnr = itab_zyglt321-descr.

            itab_zycbe035-c_xblnr = itab_zyglt321-descr.

* << Fim da inclusão

          ENDIF.

        WHEN 'ZFBDT'.

          IF itab_zyglt321-cpocb = 'DTVENCTO'.

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

            itab_zycbe033-zfbdt = /pws/zycbe124-dtvencto.

* << Fim da exclusão

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

            itab_zycbe035-zfbdt = /pws/zycbe124-dtvencto.

* << Fim da inclusão

          ELSEIF itab_zyglt321-cpocb = 'DTINCL'.

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

            itab_zycbe033-zfbdt = /pws/zycbe124-dtincl.

* << Fim da exclusão

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

            itab_zycbe035-zfbdt = /pws/zycbe124-dtincl.

* << Fim da inclusão

          ELSEIF itab_zyglt321-cpocb = 'DTDOCTO'.

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

            itab_zycbe033-zfbdt = /pws/zycbe124-dtdocto.

* << Fim da exclusão

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

            itab_zycbe035-zfbdt = /pws/zycbe124-dtdocto.

* << Fim da inclusão

          ELSEIF itab_zyglt321-cpocb = 'DTLANC'.

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

            itab_zycbe033-zfbdt = itab_zycat025-dtlanc.

* << Fim da exclusão

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

            itab_zycbe035-zfbdt = itab_zycat025-dtlanc.

* << Fim da inclusão

          ENDIF.

        WHEN 'ZUONR'.

          IF itab_zyglt321-cpocb = 'NRSEQ'.

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

            itab_zycbe033-c_zuonr = /pws/zycbe124-nrseq.

* << Fim da exclusão

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

            itab_zycbe035-c_zuonr = /pws/zycbe124-nrseq.

* << Fim da inclusão

          ELSEIF itab_zyglt321-cpocb = 'NRFECH'.

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

            itab_zycbe033-c_zuonr = /pws/zycbe124-nrfech.

* << Fim da exclusão

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

            itab_zycbe035-c_zuonr = /pws/zycbe124-nrfech.

* << Fim da inclusão

          ELSEIF itab_zyglt321-cpocb = 'NRFAT'.

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

            itab_zycbe033-c_zuonr = /pws/zycbe124-nrfat.

* << Fim da exclusão

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

            itab_zycbe035-c_zuonr = /pws/zycbe124-nrfat.

* << Fim da inclusão

          ELSEIF itab_zyglt321-cpocb = 'NRCONTR'.

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

            itab_zycbe033-c_zuonr = /pws/zycbe124-nrcontr.

          ELSEIF itab_zyglt321-cpocb = 'TXINF'.

            itab_zycbe033-c_zuonr = /pws/zycbe124-txtinf.

* << Fim da exclusão

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

            itab_zycbe035-c_zuonr = /pws/zycbe124-nrcontr.

          ELSEIF itab_zyglt321-cpocb = 'TXTINF'.

            itab_zycbe035-c_zuonr = /pws/zycbe124-txtinf.

* << Fim da inclusão

          ELSEIF itab_zyglt321-cpocb = 'CODPAGTO'.

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

            itab_zycbe033-c_zuonr = /pws/zycbe124-codpagto.

* << Fim da exclusão

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

            itab_zycbe035-c_zuonr = /pws/zycbe124-codpagto.

* << Fim da inclusão

          ELSEIF itab_zyglt321-cpocb = 'SBU'.

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

            itab_zycbe033-c_zuonr = /pws/zycbe124-sbu.

* << Fim da exclusão

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

            itab_zycbe035-c_zuonr = /pws/zycbe124-sbu.

* << Fim da inclusão

          ELSEIF itab_zyglt321-cpocb = 'TPIMP'.

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

            itab_zycbe033-c_zuonr = p_tpimp.

* << Fim da exclusão

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

            itab_zycbe035-c_zuonr = p_tpimp.

* << Fim da inclusão

          ELSEIF itab_zyglt321-cpocb IS INITIAL AND

                 NOT itab_zyglt321-descr IS INITIAL.

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

            itab_zycbe033-c_zuonr = itab_zyglt321-descr.

* << Fim da exclusão

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

            itab_zycbe035-c_zuonr = itab_zyglt321-descr.

* << Fim da inclusão

          ENDIF.

      ENDCASE.

    ENDLOOP.

    APPEND itab_zycbe035.

  ENDLOOP.

...

...

          itab_zycbe033-xblnr = /pws/zycbe124-nrfech.

        ELSEIF itab_zyglt321-cpocb = 'NRFAT'.

          itab_zycbe033-xblnr = /pws/zycbe124-nrfat.

        ELSEIF itab_zyglt321-cpocb = 'NRCONTR'.

          itab_zycbe033-xblnr = /pws/zycbe124-nrcontr.

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

        ELSEIF itab_zyglt321-cpocb = 'TXINF'.

* << Fim da exclusão

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

        ELSEIF itab_zyglt321-cpocb = 'TXTINF'.

* << Fim da inclusão

          itab_zycbe033-xblnr = /pws/zycbe124-txtinf.

        ELSEIF itab_zyglt321-cpocb = 'CODPAGTO'.

          itab_zycbe033-xblnr = /pws/zycbe124-codpagto.

        ELSEIF itab_zyglt321-cpocb = 'SBU'.

          itab_zycbe033-xblnr = /pws/zycbe124-sbu.

...

...

          itab_zycbe033-c_zuonr = /pws/zycbe124-nrfech.

        ELSEIF itab_zyglt321-cpocb = 'NRFAT'.

          itab_zycbe033-c_zuonr = /pws/zycbe124-nrfat.

        ELSEIF itab_zyglt321-cpocb = 'NRCONTR'.

          itab_zycbe033-c_zuonr = /pws/zycbe124-nrcontr.

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

        ELSEIF itab_zyglt321-cpocb = 'TXINF'.

* << Fim da exclusão

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

        ELSEIF itab_zyglt321-cpocb = 'TXTINF'.

* << Fim da inclusão

          itab_zycbe033-c_zuonr = /pws/zycbe124-txtinf.

        ELSEIF itab_zyglt321-cpocb = 'CODPAGTO'.

          itab_zycbe033-c_zuonr = /pws/zycbe124-codpagto.

        ELSEIF itab_zyglt321-cpocb = 'SBU'.

          itab_zycbe033-c_zuonr = /pws/zycbe124-sbu.

...