Sintoma

O sistema emite um dump na hora de salvar uma liquidação quando o usuario está logado em ingles.

Solução

Textos modificados para constantes para que o sistema não emita um dump, pois os textos são códigos

internos e não devem ser traduzidos.

Informações Complementares

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

Nota Número 06615 Data: 21/05/2008 Hora: 18:42:23

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

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

Nota Número              : 06615

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00005

Agrupamento              : 00048

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

Referência às notas relacionadas:

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

01705  - 00001 - 6.0    - 00024  - LIQUIDAÇÃO ESTORNO SALDO À PAGAR

03270  - 00002 - 6.0    - 00026  - DESENVOLVIMENTO ADICIONAL COMPLETO - ORDEM DE PAGAMENTO

03538  - 00003 - 7.0    - 00001  - VINCULAÇÃO - LIQUIDAÇÃO CAMBIO PRONTO

04274  - 00004 - 7.0    - 00002  - LIQUIDAÇÃO - CORREÇÃO DA TAXA DA LIQUIDAÇÃO EM ANDAMENTO

04862  - 00005 - 7.0    - 00003  - DA LIQUIDAÇÃO - COMPENSAÇÃO AUTOMÁTICA CONTA CORRENTE ME

05486  - 00006 - 7.0    - 00003  - SELECIONAR RECURSO PARA LIQUIDAÇÃO DE FATURAS

05512  - 00007 - 7.0    - 00004  - TRATAMENTO CAMPOS /PWS/ZYCBT030-BELNR_T /PWS/ZYCBT030-BUDAT_T

05666  - 00008 - 7.0    - 00004  - LIQUIDAÇÃO DE FATURAS

05897  - 00009 - 7.0    - 00004  - LIQUIDAÇÃO - BOTÃO MARCAR/DESMARCAR - BLOQUEIO DE CONTAS

06093  - 00010 - 7.0    - 00004  - CB - 444548 - CODE INSPECTOR E VERIFICAÇÃO AMPLIADA

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

LIQUIDAÇÃO - TRADUÇÃO TEXTOS 253 254 255

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

Palavras Chave:

LIQUIDAÇÃO - TRADUÇÃO TEXTOS 253 254 255

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

Objetos da nota:

REPS /PWS/MZYCB004F02

REPS /PWS/MZYCB004F03

REPS /PWS/MZYCB004O01

REPS /PWS/MZYCB004TOP

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

Modificações efetuadas em REPS /PWS/MZYCB004F02

...

      ENDIF.

      itab_zycbt006-v_vldif_arb =  itab_zycbt006-v_vldif *

                                                 itab_zycbt005-parid.

      v_slpagar001 = v_slpagar001 + itab_zycbt006-v_vldif_arb.

      MODIFY itab_zycbt006.

      CLEAR itab_recurso_aux.

      READ TABLE itab_recurso_aux

           WITH KEY nrinvoic   = itab_zycbt006-nrinvoic

                    gsberf   = itab_zycbt006-gsberf

                    nrparcf  = itab_zycbt006-nrparcf.

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

      IF itab_recurso_aux-descorigem EQ text-253.

* << Fim da exclusão

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

      IF itab_recurso_aux-descorigem EQ c_liq_vme.

* << Fim da inclusão

        MOVE 'X' TO /pws/zycbt006-tpfatura_or.

        MODIFY /pws/zycbt006.

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

      ELSEIF itab_recurso_aux-descorigem EQ text-254.

* << Fim da exclusão

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

      ELSEIF itab_recurso_aux-descorigem EQ c_liq_and.

* << Fim da inclusão

        MOVE 'X' TO /pws/zycbt006-tpfatura_or.

        MODIFY /pws/zycbt006.

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

      ELSEIF itab_recurso_aux-descorigem EQ text-255.

* << Fim da exclusão

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

      ELSEIF itab_recurso_aux-descorigem EQ c_liq_cliente.

* << Fim da inclusão

        MOVE 'X' TO /pws/zycbt006-tpfatura_or.

        MODIFY /pws/zycbt006.

      ENDIF.

    ENDIF.

  ENDLOOP.

  UPDATE /pws/zycbt001

    SET slpagar = slpagar - v_slpagar001

    WHERE nrseqc EQ itab_zycbt006-nrseqc.

  MODIFY /pws/zycbt030 FROM TABLE itab_zycbt030.

  MODIFY /pws/zycbt209 FROM TABLE itab_zycbt209.

...

...

                                nrparcf  = itab_zycbt006-nrparcf.

      CLEAR: v_flag_la, wa_recurso_aux.

      IF itab_zycbt209-saldo NE 0.

        IF itab_zycbt209-saldo LE v_slliq.

          itab_zycbt209-baixa   = 'X'.

          itab_zycbt209-vlbaixa = itab_zycbt209-saldo.

          LOOP AT itab_recurso_aux INTO wa_recurso_aux

                WHERE    nrinvoic = itab_zycbt006-nrinvoic AND

                           gsberf = itab_zycbt006-gsberf   AND

                          nrparcf = itab_zycbt006-nrparcf.

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

            IF wa_recurso_aux-descorigem EQ text-254.

* << Fim da exclusão

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

            IF wa_recurso_aux-descorigem EQ c_liq_and.

* << Fim da inclusão

              PERFORM desmembra_liq_and.

              IF sy-subrc EQ 0.

                v_slliq = v_slliq - itab_zycbt209-saldo.

                MODIFY itab_zycbt209.

              ELSE.

                v_subrc = 4.

              ENDIF.

            ENDIF.

            v_flag_la = 'X'.

          ENDLOOP.

...

...

            ENDIF.

          ENDIF.

        ELSE.

          itab_zycbt209-baixa   = 'X'.

          itab_zycbt209-vlbaixa = v_slliq.

          CLEAR v_flag_la.

          LOOP AT itab_recurso_aux INTO wa_recurso_aux

                WHERE    nrinvoic = itab_zycbt006-nrinvoic AND

                           gsberf = itab_zycbt006-gsberf   AND

                          nrparcf = itab_zycbt006-nrparcf.

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

            IF wa_recurso_aux-descorigem EQ text-254.

* << Fim da exclusão

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

            IF wa_recurso_aux-descorigem EQ c_liq_and.

* << Fim da inclusão

              PERFORM desmembra_liq_and.

              IF sy-subrc EQ 0.

                CLEAR v_slliq.

                MODIFY itab_zycbt209.

              ELSE.

                v_subrc = 4.

              ENDIF.

            ENDIF.

            v_flag_la = 'X'.

          ENDLOOP.

...

...

          ELSE.

            itab_zycbt030-v_belnr = belnr_.

          ENDIF.

          MODIFY itab_zycbt030.

        ENDIF.

        CLEAR: v_flag_la, wa_recurso_aux.

        LOOP AT itab_recurso_aux INTO wa_recurso_aux

                WHERE    nrinvoic = itab_zycbt006-nrinvoic AND

                           gsberf = itab_zycbt006-gsberf   AND

                          nrparcf = itab_zycbt006-nrparcf.

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

          IF wa_recurso_aux-descorigem EQ text-255.

* << Fim da exclusão

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

          IF wa_recurso_aux-descorigem EQ c_liq_cliente.

* << Fim da inclusão

            PERFORM desmembra_cliente.

            IF sy-subrc EQ 0.

              v_slliq = v_slliq - itab_zycbt030-vlsltrans.

            ELSE.

              v_flag_la = 'X'.

              v_subrc = 4.

              EXIT.

            ENDIF.

          ENDIF.

          v_flag_la = 'X'.

...

...

    CLEAR: v_flag_la, wa_recurso_aux.

    LOOP AT itab_zycbt226 ASSIGNING <fs_zycbt226>

      WHERE nrinvoic EQ itab_zycbt006-nrinvoic

      AND   nrparcf  EQ itab_zycbt006-nrparcf

      AND   gsberf   EQ itab_zycbt006-gsberf.

      IF <fs_zycbt226>-sld_exterior LE v_slliq.

        LOOP AT itab_recurso_aux INTO wa_recurso_aux

               WHERE    nrinvoic = itab_zycbt006-nrinvoic AND

                          gsberf = itab_zycbt006-gsberf   AND

                         nrparcf = itab_zycbt006-nrparcf.

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

          IF wa_recurso_aux-descorigem EQ text-253.

* << Fim da exclusão

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

          IF wa_recurso_aux-descorigem EQ c_liq_vme.

* << Fim da inclusão

            IF v_slliq > 0.

              PERFORM desm_conta_corrente

                  USING

                     v_slliq.

            IF ( sy-subrc EQ 0 AND NOT itab_zycbt032-belnr IS INITIAL )

                                OR /pws/zyglt009-comp_aut_cc IS INITIAL.

                v_slliq = v_slliq - <fs_zycbt226>-sld_exterior.

             PERFORM atualiza_zycbt231 USING <fs_zycbt226>-sld_exterior.

                CLEAR <fs_zycbt226>-sld_exterior.

                PERFORM atualiza_tabelas.

...

...

          ELSEIF sy-subrc NE 0.

            v_subrc = 4.

            EXIT.

          ENDIF.

        ENDIF.

      ELSE.

        LOOP AT itab_recurso_aux INTO wa_recurso_aux

               WHERE nrinvoic = itab_zycbt006-nrinvoic AND

                       gsberf = itab_zycbt006-gsberf   AND

                      nrparcf = itab_zycbt006-nrparcf.

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

          IF wa_recurso_aux-descorigem EQ text-253.

* << Fim da exclusão

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

          IF wa_recurso_aux-descorigem EQ c_liq_vme.

* << Fim da inclusão

            IF v_slliq > 0.

              PERFORM desm_conta_corrente

                  USING

                       v_slliq.

            IF ( sy-subrc EQ 0 AND NOT itab_zycbt032-belnr IS INITIAL )

                                OR /pws/zyglt009-comp_aut_cc IS INITIAL.

                <fs_zycbt226>-sld_exterior =

                <fs_zycbt226>-sld_exterior - v_slliq.

                PERFORM atualiza_zycbt231 USING v_slliq.

                CLEAR v_slliq.

...

...

        ENDIF.

        itab_zycbt030-budat  = itab_zycbt006-dtpagto.

        IF itab_zycbt030-belnr_t IS INITIAL.

          itab_zycbt030-belnr_t = itab_zycbt030-belnr6.

          itab_zycbt030-budat_t = itab_zycbt030-budat.

        ENDIF.

        READ TABLE itab_recurso_aux

              WITH KEY nrinvoic = itab_zycbt006-nrinvoic

                       gsberf   = itab_zycbt006-gsberf

                       nrparcf  = itab_zycbt006-nrparcf

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

                     descorigem = text-255.

* << Fim da exclusão

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

                     descorigem = c_liq_cliente.

* << Fim da inclusão

        IF sy-subrc EQ 0.

          itab_zycbt030-vlsltrans = itab_zycbt030-vlsltrans -

                                    itab_recurso_aux-vl_total_saldo.

        ELSE.

          IF itab_zycbt030-v_duplica NE 'X'.

            itab_zycbt030-vlslliq =

              itab_zycbt030-vlslliq - itab_zycbt030-v_kwert.

          ENDIF.

          IF /pws/zycbe001-desc_receb IS INITIAL.

            itab_zycbt030-vlsltrans =

...

...

                                itab_zycbe033-kursf.

  ENDIF.

  IF /pws/zycbt089-tx_desm_cli EQ 'VIATRANS' AND

     itab_zycbe033-kursf IS INITIAL.

    MESSAGE i061 WITH text-215 itab_zycbt030-nrinvoic text-216 text-217.

    PERFORM verify_null_field USING itab_zycbe033-kursf

                                    'KURSF'

                                    text-051.

  ENDIF.

  PERFORM valor_baixar_f28.

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

  IF wa_recurso_aux-descorigem EQ text-255.

* << Fim da exclusão

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

  IF wa_recurso_aux-descorigem EQ c_liq_cliente.

* << Fim da inclusão

    IF itab_zycbt030-vlsltrans >= v_slliq_30.

      wa_recurso_aux-vl_total_saldo = v_slliq_30.

    ELSEIF itab_zycbt030-vlsltrans =< v_slliq_30.

      wa_recurso_aux-vl_total_saldo =  itab_zycbt030-vlsltrans.

    ENDIF.

    MODIFY itab_recurso_aux FROM wa_recurso_aux.

    v_slliq_30 = v_slliq_30 - itab_zycbt030-vlsltrans.

    IF v_slliq_30 < 0.

      v_slliq_30 = v_slliq_30 * ( -1 ).

    ENDIF.

...

...

              v_codaux1

              v_codaux2

              space

        CHANGING itab_zycbe033-c_newko.

      itab_zycbe033-wrbtr   = itab_zycbt006-vlme.

      CLEAR v_restante.

      LOOP AT itab_recurso_aux

           WHERE nrinvoic = itab_zycbt006-nrinvoic  AND

                   gsberf = itab_zycbt006-gsberf    AND

                  nrparcf = itab_zycbt006-nrparcf   AND

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

               descorigem NE text-253.

* << Fim da exclusão

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

               descorigem NE c_liq_vme.

* << Fim da inclusão

        v_restante = v_restante + itab_recurso_aux-vl_saldo.

      ENDLOOP.

      READ TABLE itab_recurso_aux

      WITH KEY nrinvoic = itab_zycbt006-nrinvoic

                 gsberf = itab_zycbt006-gsberf

                nrparcf = itab_zycbt006-nrparcf

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

             descorigem = text-253.

* << Fim da exclusão

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

             descorigem = c_liq_vme.

* << Fim da inclusão

      IF sy-subrc EQ 0.

        itab_zycbe033-wrbtr = itab_zycbt006-vlme - v_restante.

      ENDIF.

    ENDIF.

  ENDIF.

  SELECT * FROM /pws/zycbt084 INTO TABLE itab_zycbt084

           WHERE nrseqc = itab_zycbt006-nrseqc.

  LOOP AT itab_zycbt084 WHERE nrseqc   = itab_zycbt006-nrseqc

                          AND nrinvoic = itab_zycbt006-nrinvoic

                          AND gsberf   = itab_zycbt006-gsberf

...

...

   WHERE bukrs EQ itab_zycbt209-bukrs

     AND belnr EQ v_belnr

     AND gjahr EQ itab_zycbt209-dtbelnr(4).

  IF /pws/zycbt089-tx_desm_cli EQ 'VIATRANS' AND

     itab_zycbe033-kursf IS INITIAL.

    MESSAGE i061 WITH text-215 itab_zycbt006-nrinvoic text-216 text-217.

    PERFORM verify_null_field USING itab_zycbe033-kursf

                                    'KURSF'

                                    text-051.

  ENDIF.

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

  IF wa_recurso_aux-descorigem EQ text-254.

* << Fim da exclusão

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

  IF wa_recurso_aux-descorigem EQ c_liq_and.

* << Fim da inclusão

    IF itab_zycbt209-saldo >= itab_zycbt006-vlme.

      wa_recurso_aux-vl_total_saldo = itab_zycbt006-vlme.

    ELSEIF itab_zycbt209-saldo <= itab_zycbt006-vlme.

      wa_recurso_aux-vl_total_saldo = itab_zycbt209-saldo.

    ENDIF.

    MODIFY itab_recurso_aux FROM wa_recurso_aux.

    v_slliq_30 = itab_zycbt006-vlme - itab_zycbt209-saldo.

    IF v_slliq_30 < 0.

      v_slliq_30 = v_slliq_30 * ( -1 ).

    ENDIF.

...

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

Modificações efetuadas em REPS /PWS/MZYCB004F03

...

    PERFORM log IN PROGRAM (w_prog) USING    p_dados

                                             p_tabela

                                    CHANGING p_wa_log

                                    IF FOUND.

  ENDIF.

ENDFORM.

FORM desm_conta_corrente

  USING

     p_v_slliq TYPE /pws/zycbt006-vlme.

  IF /pws/zyglt009-comp_aut_cc IS INITIAL.

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

    IF wa_recurso_aux-descorigem EQ text-253.

* << Fim da exclusão

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

   IF wa_recurso_aux-descorigem EQ c_liq_vme.

* << Fim da inclusão

      IF <fs_zycbt226>-sld_exterior >= p_v_slliq.

        wa_recurso_aux-vl_total_saldo = p_v_slliq.

      ELSEIF <fs_zycbt226>-sld_exterior =< p_v_slliq.

        wa_recurso_aux-vl_total_saldo = <fs_zycbt226>-sld_exterior.

      ENDIF.

      MODIFY itab_recurso_aux FROM wa_recurso_aux.

      CLEAR /pws/zycbt084.

      /pws/zycbt084-result_saldo = wa_recurso_aux-vl_total_saldo.

      /pws/zycbt084-nrseqc      = itab_zycbt006-nrseqc.

      /pws/zycbt084-tpdesp      = itab_zycbt006-tpdesp.

...

...

      itab_zycbt036-residuo = <fs_zycbt226>-sld_exterior.

    ELSE.

      itab_zycbt036-residuo = v_vldesm.

      CLEAR v_vldesm.

    ENDIF.

    IF itab_zycbt036-residuo LT 0.

      itab_zycbt036-residuo = itab_zycbe033-wrbtr * ( -1 ).

    ENDIF.

    CHECK itab_zycbt036-residuo NE 0.

    APPEND itab_zycbt036.

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

    IF wa_recurso_aux-descorigem EQ text-253.

* << Fim da exclusão

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

    IF wa_recurso_aux-descorigem EQ c_liq_vme.

* << Fim da inclusão

      IF <fs_zycbt226>-sld_exterior > itab_zycbt006-vlme.

        wa_recurso_aux-vl_total_saldo = itab_zycbt006-vlme.

      ELSEIF <fs_zycbt226>-sld_exterior < itab_zycbt006-vlme.

        wa_recurso_aux-vl_total_saldo =  <fs_zycbt226>-sld_exterior.

      ENDIF.

      MODIFY itab_recurso_aux FROM wa_recurso_aux.

    ENDIF.

    IF itab_zycbt034[] IS INITIAL.

      CALL FUNCTION '/PWS/ZYCB_TRANSACAO_F_30_P'

           EXPORTING

...

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

Modificações efetuadas em REPS /PWS/MZYCB004O01

...

      CHECK sy-subrc EQ 0.

      <fs_recurso>-vlme = <fi_zycbt006>-vlme.

    ENDLOOP.

  ENDLOOP.

  LOOP AT it_zycbt226 INTO wa_zycbt226.

    MOVE: wa_zycbt226-nrinvoic TO wa_recurso_aux-nrinvoic,

          wa_zycbt226-gsberf   TO wa_recurso_aux-gsberf,

          wa_zycbt226-nrparcf  TO wa_recurso_aux-nrparcf,

          wa_zycbt226-sld_exterior TO wa_recurso_aux-vl_saldo,

          wa_zycbt226-conta_contabil TO wa_recurso_aux-conta_razao.

* >> Início da exclusão: MODULE SELECIONA_RECURSO

    wa_recurso_aux-descorigem = text-253.

* << Fim da exclusão

* >> Início da inclusão: MODULE SELECIONA_RECURSO

    wa_recurso_aux-descorigem = c_liq_vme.

* << Fim da inclusão

    COLLECT wa_recurso_aux INTO itab_recurso_aux.

  ENDLOOP.

  LOOP AT it_zycbt209[] INTO wa_zycbt209.

    MOVE: wa_zycbt209-nrinvoic TO wa_recurso_aux-nrinvoic,

          wa_zycbt209-gsberf   TO wa_recurso_aux-gsberf,

          wa_zycbt209-nrparcf  TO wa_recurso_aux-nrparcf,

          wa_zycbt209-saldo    TO wa_recurso_aux-vl_saldo,

          wa_zycbt209-hkont TO wa_recurso_aux-conta_razao.

* >> Início da exclusão: MODULE SELECIONA_RECURSO

    wa_recurso_aux-descorigem = text-254.

* << Fim da exclusão

* >> Início da inclusão: MODULE SELECIONA_RECURSO

    wa_recurso_aux-descorigem = c_liq_and.

* << Fim da inclusão

    COLLECT wa_recurso_aux INTO itab_recurso_aux.

  ENDLOOP.

  LOOP AT it_zycbt030[] INTO wa_zycbt030.

    MOVE: wa_zycbt030-nrinvoic TO wa_recurso_aux-nrinvoic,

          wa_zycbt030-gsberf   TO wa_recurso_aux-gsberf,

          wa_zycbt030-nrparcf  TO wa_recurso_aux-nrparcf,

          wa_zycbt030-vlsltrans TO wa_recurso_aux-vl_saldo.

* >> Início da exclusão: MODULE SELECIONA_RECURSO

    wa_recurso_aux-descorigem = text-255.

* << Fim da exclusão

* >> Início da inclusão: MODULE SELECIONA_RECURSO

    wa_recurso_aux-descorigem = c_liq_cliente.

* << Fim da inclusão

    READ TABLE it_zycbt017 INTO wa_zycbt017

         WITH KEY nrinvoic   = wa_zycbt030-nrinvoic

                  gsberf     = wa_zycbt030-gsberf

                  nrparcf    = wa_zycbt030-nrparcf.

    CHECK sy-subrc EQ 0.

    wa_recurso_aux-conta_razao = wa_zycbt017-kunag.

    COLLECT wa_recurso_aux INTO itab_recurso_aux.

  ENDLOOP.

  LOOP AT itab_recurso_aux ASSIGNING <fs_recurso_aux>.

    READ TABLE itab_recurso ASSIGNING <fs_recurso>

...

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

Modificações efetuadas em REPS /PWS/MZYCB004TOP

...

DATA: it_origem   LIKE TABLE OF s_origem

                   WITH HEADER LINE.

DATA: wa_recurso_aux  LIKE LINE OF itab_recurso_aux,

      wa_zycbt226 LIKE LINE OF it_zycbt226,

      wa_zycbt209 LIKE LINE OF it_zycbt209,

      wa_zycbt030 LIKE LINE OF it_zycbt030,

      wa_zycbt017 LIKE LINE OF it_zycbt017,

      wa_zycbt006 LIKE LINE OF it_zycbt006,

      wa_zycbt005 LIKE LINE OF it_zycbt005,

      wa_origem   LIKE LINE OF it_origem.

* >> Início da inclusão:

CONSTANTS:

  c_liq_vme       LIKE itab_recurso-descorigem

    VALUE 'Valores Mantidos no Exterior', "#EC NOTEXT

  c_liq_and       LIKE itab_recurso-descorigem

    VALUE 'Liquidação em Andamento', "#EC NOTEXT

  c_liq_cliente   LIKE itab_recurso-descorigem

    VALUE 'Cliente'. "#EC NOTEXT

* << Fim da inclusão

DATA: v_descorigem(50)  TYPE c,

      v_mark(01),

      v_conti           TYPE i,

      v_flag_f(01)      TYPE c,

      v_contabilizado(1) TYPE c,

      v_209(01)         TYPE c,

      v_030(01)         TYPE c,

      vnrinvoic         TYPE /pws/zycbt017-nrinvoic,

      vgsberf           TYPE /pws/zycbt017-gsberf,

      vnrparcf          TYPE /pws/zycbt017-nrparcf,

...