CE PLUS - Nota 010667

Módulo: CÂMBIO EXPORTAÇÃO

Funcionalidade: Liquidação de Fatura

Data/Hora da Publicação: 15/10/2010 00:00:00

Data/Hora Última Alteração: 18/02/2011 17:02:48

Descrição da Nota: LIQUIDAÇÃO CÂMBIO PRONTO - ERROS CONTABILIZAÇÕES IDA/ESTORNO

Sintoma

Ao vincular e liquidar contrato de câmbio pronto, liquidação automática ou não, com arbitragem ou

sem, não esta finalizando as contabilizações corretamente. Estorno também com erro. Sendo:

 

- Liquidação automática e não automática - Mensagem incorreta de saldo na tela da liquidação.

- Liquidação automática - Estorno - se ocorre algum erro durante o processo, perde as informações da

tabela /PWS/ZYCBT005

- Liquidação automática - quando é feito estorno do mesmo processo pela segunda vez, se perde na

contabilização, tanto com arbitragem como sem.

- Liquidação não automática - Esta permitindo liquidar/estornar contrato de Câmbio Pronto

parcialmente.

 

 

Solução

- Só exibir esta mensagem quando for liquidação NÃO automática e ajustar inconsistência do cálculo

para não exibir esta mensagem

- Comentar o trecho de exclusão da tabela /PWS/ZYCBT005 antes das contabilizações, pois o mesmo já é

feito após.

- Considerar também o ano contábil do documento da fatura(/pws/zycbt030-budat) na seleção da BSAD,

para sempre levar a partida do cliente, independente de liquidar ou não em ano posterior ao contrato

(contrato com ano diferente da fatura/vinculação/liquidação).

- Se vinculou mais de uma fatura, verificar se esta liquidando o mesmo numero. Se não, barrar

exibindo mensagem. Se esta liquidando todas as faturas, verificar também se o valor não foi alterado

para menor. Se sim, barrar exibindo mensagem.

 

Versões Tratadas

8.0


Pré-Requisitos

Produto:

Nota

Descrição

LIQUIDAÇÃO COM ARBITRAGEM - ATRIBUIÇÃO - /PWS/ZYGLT321 - FTE

DA-VINCULAÇÃO/LIQUIDAÇÃO-OTIMIZAÇÃO-BUSCA TAXAS/TIPO DOCTO. POR CONTRATO

DA - DATA CREDITO NO EXTERIOR NA VINCULAÇÃO- PRÉ-PAGAMENTO SECURITIZAÇÃO

CAMBIO EXPORTAÇÃO - LIQUIDAÇÃO - EXIT 'LIQ034'

VINCULAÇÃO LIQ. AUT. / LIQUIDAÇÃO - CÂMBIO PRONTO - ARBITRAGEM

LIQUIDAÇÃO - PREENCHIMENTO DO CAMPO SOCIEDADE PARCEIRA.

LIQUIDAÇÃO ARBITRAGEM VALOR INCORRETO DA FATURA NA MOEDA DO CONTRATO

DA-LIQUIDAÇÃO E VINCULAÇÃO LIQ. AUTOMÁT - NORMAL/ARBITRAGEM/PERFORMANCE

RETIRADA DE TEXTOS FIXOS EM TELAS DE REGISTRO DE CRÉDITO

SELECIONAR RECURSO PARA LIQUIDAÇÃO DE FATURAS

LIQUIDAÇÃO - ARBITRAGEM - CONTA ARB INCORRETA PT-NÃO FAZ ARREDONDAMENTO

Informações Complementares

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

Nota Número 10667 Data: 15/10/2010 Hora: 16:27:06

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

 

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

Nota Número              : 10667

Categoria                : Erro de Programa

Prioridade               : Alta

Versão PW.CE             : 8.0

Pacote                   : 00005

Agrupamento              : 00043

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

Referência às notas relacionadas:

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

 

00835  - 00001 - 6.0    - 00022  - RETIRADA DE TEXTOS FIXOS EM TELAS DE REGISTRO DE CRÉDITO

03478  - 00002 - 7.0    - 00001  - VINCULAÇÃO LIQ. AUT. / LIQUIDAÇÃO - CÂMBIO PRONTO - ARBITRAGEM

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

06009  - 00004 - 7.0    - 00004  - LIQUIDAÇÃO COM ARBITRAGEM - ATRIBUIÇÃO - /PWS/ZYGLT321 - FTE

07760  - 00005 - 7.0    - 00007  - DA-LIQUIDAÇÃO E VINCULAÇÃO LIQ. AUTOMÁT - NORMAL/ARBITRAGEM/PERFO

08164  - 00006 - 7.0    - 00008  - DA - DATA CREDITO NO EXTERIOR NA VINCULAÇÃO- PRÉ-PAGAMENTO SECURI

08536  - 00007 - 7.0    - 00009  - DA-VINCULAÇÃO/LIQUIDAÇÃO-OTIMIZAÇÃO-BUSCA TAXAS/TIPO DOCTO. POR C

10020  - 00008 - 8.0    - 00003  - LIQUIDAÇÃO - ARBITRAGEM - CONTA ARB INCORRETA PT-NÃO FAZ ARREDOND

10204  - 00009 - 8.0    - 00003  - LIQUIDAÇÃO - PREENCHIMENTO DO CAMPO SOCIEDADE PARCEIRA.

10487  - 00010 - 8.0    - 00004  - CAMBIO EXPORTAÇÃO - LIQUIDAÇÃO - EXIT 'LIQ034'

10638  - 00011 - 8.0    - 00005  - LIQUIDAÇÃO ARBITRAGEM VALOR INCORRETO DA FATURA NA MOEDA DO CONTR

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

LIQUIDAÇÃO CÂMBIO PRONTO - ERROS CONTABILIZAÇÕES IDA/ESTORNO

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

Palavras Chave:

LIQUIDAÇÃO CÂMBIO PRONTO ERROS CONTABILIZAÇÕES IDA ESTORNO

 

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

Objetos da nota:

FUNC /PWS/ZYCB_TRANSACAO_F_30_S

REPS /PWS/MZYCB004F01

REPS /PWS/MZYCB004F02

REPS /PWS/MZYCB004I01

REPS /PWS/MZYCB004X01

REPS /PWS/MZYCB009F03

REPT /PWS/SAPMZYCB004

 

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

Modificações efetuadas em FUNC /PWS/ZYCB_TRANSACAO_F_30_S

 

...

    IF NOT t_dados-d_sgtxt IS INITIAL.

      PERFORM bdc_field USING: 'BSEG-SGTXT' t_dados-d_sgtxt.

    ENDIF.

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

                                    chave = 'D'.

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

      PERFORM bdc_field USING 'BSEG-ZFBDT' v_zfbdt.

    ENDIF.

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

                                    chave = 'D'.

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

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

* << Fim da exclusão

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

    IF sy-subrc NE 0 AND NOT t_dados-d_valut IS INITIAL

       and v_tela ne '0301'.

* << Fim da inclusão

      PERFORM bdc_field USING 'BSEG-VALUT' v_valut.

    ENDIF.

    PERFORM verifica_sociedade_parceira  USING  t_dados-blart

                                                t_dados-vbund

                                                t_dados-bukrs

                                                t_dados-d_newko

                                      CHANGING  v_soc_parc.

    IF v_soc_parc = 'S' AND v_tela EQ '0300'.

       PERFORM bdc_field  USING 'BDC_OKCODE' '=ZK'.

    ELSE.

...

 

 

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

Modificações efetuadas em REPS /PWS/MZYCB004F01

 

...

                    and nrparcf  = /pws/zycbe006-nrparcf

                    and gsberf   = /pws/zycbe006-gsberf.

        if itab_zycbt006-dtvincul  = v_dtvincul and

           itab_zycbt006-dtpagto   = v_dtpagto  and

           itab_zycbt006-dtpagext  = v_dtpagext.

        else.

          v_total_liq = v_total_liq + itab_zycbt006-vlme.

        endif.

      endloop.

      v_total_liq = v_total_liq + /pws/zycbe006-vlme.

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

      IF v_vinculacao IS INITIAL.

* << Fim da inclusão

      if v_total_liq > itab_zycbt005-vlme_p.

        move /pws/zycbe006-vlme       to v_aux_1.

        move itab_zycbt005_s-slliquid to v_aux_2.

        condense: v_aux_1 no-gaps,

                  v_aux_2 no-gaps.

        concatenate: text-025 v_aux_1 into v_msg_1,

                     'é superior ao saldo     => ' v_aux_2

                                      into v_msg_2.

        perform msg_valor_invalido using v_msg_1 v_msg_2.

        exit.

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

        ENDIF.

* << Fim da inclusão

      endif.

    endif.

    if /pws/zycbe006-vlme = itab_zycbt005_s-vlme.

      v_vlmedif = itab_zycbt005_s-slpagar.

    endif.

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

    IF itab_zycbt005-waers NE itab_zycbt005-waers_c.

* << Fim da inclusão

    itab_zycbt005-slpagar =

      itab_zycbt005_s-slliquid - v_vlmedif.

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

    ELSE.

      itab_zycbt005-slpagar =

        itab_zycbt005_s-slpagar - v_vlmedif.

    ENDIF.

* << Fim da inclusão

    if itab_zycbt005-slpagar lt 0.

      if sy-ucomm = 'DELE'.

        modify itab_zycbt005

        index tc_faturas-current_line transporting mark.

        exit.

      endif.

      clear: v_aux_1, v_aux_2, v_msg_1, v_msg_2.

      if itab_zycbt005-waers eq itab_zycbt005-waers_c.

        move /pws/zycbe006-vlme         to v_aux_1.

        move itab_zycbt005_s-slpagar to v_aux_2.

...

 

...

                      dtpagext = itab_zycbt006-dtpagext

                      tdesmemb = ' '

                      vbeln    = itab_zycbt030-vbeln.

          if sy-subrc = 0.

            itab_zycbt006_aux4-belnr = itab_zycbt084-belnr.

            clear v_year.

            call function '/PWS/ZYGL_OBTEM_ANO_CONTABIL'

                 exporting

                      v_bukrs                = itab_zycbt006-bukrs

                      v_date                 = itab_zycbt006-dtpagto

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

                 IMPORTING

                      v_year                 = v_year

                 EXCEPTIONS

                      variante_de_exercicio  = 1

                      data_nao_encontrada    = 2

                      empresa_nao_encontrada = 3

                      period_in_not_valid    = 4

                      period_not_assigned    = 5

                      version_undefined      = 6

                      OTHERS                 = 7.

          ENDIF.

          IF itab_zycbt030-budat(4) NE itab_zycbt006-dtpagto(4).

            CLEAR v_year.

            CALL FUNCTION '/PWS/ZYGL_OBTEM_ANO_CONTABIL'

                 EXPORTING

                      v_bukrs                = itab_zycbt006-bukrs

                      v_date                 = itab_zycbt030-budat

* << Fim da inclusão

                 importing

                      v_year                 = v_year

                 exceptions

                      variante_de_exercicio  = 1

                      data_nao_encontrada    = 2

                      empresa_nao_encontrada = 3

                      period_in_not_valid    = 4

                      period_not_assigned    = 5

                      version_undefined      = 6

                      others                 = 7.

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

            itab_zycbt006_aux4-gjahr = v_year.

            APPEND itab_zycbt006_aux4.

* << Fim da inclusão

          endif.

        endif.

      endif.

      if sy-subrc ne 0.

        read table itab_zycbt209

              with key nrinvoic = itab_zycbt006-nrinvoic

                        nrparcf = itab_zycbt006-nrparcf

                         gsberf = itab_zycbt006-gsberf.

        if sy-subrc = 0.

          read table itab_zycbt084

...

 

...

                                       p_newko.

  data: v_nrdias_arb  type i,

        v_prazo_arb,

        v_codaux_arb  like /pws/zyglt316-codaux1.

  v_nrdias_arb = itab_zycbt006-dtpagto - itab_zycbt006-dtvincul.

  if v_nrdias_arb > 360.

    v_prazo_arb = 'L'.

  else.

    v_prazo_arb = 'S'.

  endif.

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

  CLEAR itab_zyglt316.

* << Fim da inclusão

  if /pws/zycbt001-tpcontr(01) eq 'E'

    or /pws/zycbt001-tpcontr(01) eq 'C'.

    concatenate /pws/zycbt001-tpcontr v_prazo_arb

      into v_codaux_arb separated by space .

    call function '/PWS/ZYGL_READ_ACCOUNT_NUMBER'

         exporting

              bukrs           = /pws/zycbt001-bukrs

              ktosl           = 'ARB'

              codaux1         = v_codaux_arb

         tables

...

 

...

                  version_undefined      = 6

                  others                 = 7.

        itab_zycbt006_aux4-gjahr = v_year.

        append itab_zycbt006_aux4.

      endif.

      read table itab_zycbt030 with key

                               nrinvoic = itab_zycbt006-nrinvoic

                               nrparcf  = itab_zycbt006-nrparcf

                               gsberf   = itab_zycbt006-gsberf.

      if sy-subrc = 0.

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

        IF itab_zycbt030-budat(4) NE itab_zycbt006-dtpagto(4).

          CLEAR v_year.

          CALL FUNCTION '/PWS/ZYGL_OBTEM_ANO_CONTABIL'

               EXPORTING

                    v_bukrs                = itab_zycbt006-bukrs

                    v_date                 = itab_zycbt030-budat

               IMPORTING

                    v_year                 = v_year

               EXCEPTIONS

                    variante_de_exercicio  = 1

                    data_nao_encontrada    = 2

                    empresa_nao_encontrada = 3

                    period_in_not_valid    = 4

                    period_not_assigned    = 5

                    version_undefined      = 6

                    OTHERS                 = 7.

          itab_zycbt006_aux4-gjahr = v_year.

          APPEND itab_zycbt006_aux4.

        ENDIF.

* << Fim da inclusão

        if not itab_zycbt030-budat_t is initial and

           itab_zycbt030-budat_t ne itab_zycbt006_aux4-dtpagto.

          itab_zycbt006_aux4-dtpagto = itab_zycbt030-budat_t.

          clear v_year.

          call function '/PWS/ZYGL_OBTEM_ANO_CONTABIL'

               exporting

                    v_bukrs                = itab_zycbt006-bukrs

                    v_date                 = itab_zycbt006_aux4-dtpagto

               importing

                    v_year                 = v_year

...

 

 

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

Modificações efetuadas em REPS /PWS/MZYCB004F02

 

...

                  version_undefined      = 6

                  others                 = 7.

        itab_zycbt006_aux4-gjahr = v_year.

        append itab_zycbt006_aux4.

      endif.

      read table itab_zycbt030 with key

                               nrinvoic = itab_zycbt006-nrinvoic

                               nrparcf  = itab_zycbt006-nrparcf

                               gsberf   = itab_zycbt006-gsberf.

      if sy-subrc = 0.

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

        if itab_zycbt030-budat(4) ne itab_zycbt006-dtpagto(4).

          clear v_year.

          call function '/PWS/ZYGL_OBTEM_ANO_CONTABIL'

               exporting

                    v_bukrs                = itab_zycbt006-bukrs

                    v_date                 = itab_zycbt030-budat

               importing

                    v_year                 = v_year

               exceptions

                    variante_de_exercicio  = 1

                    data_nao_encontrada    = 2

                    empresa_nao_encontrada = 3

                    period_in_not_valid    = 4

                    period_not_assigned    = 5

                    version_undefined      = 6

                    others                 = 7.

          itab_zycbt006_aux4-gjahr = v_year.

          append itab_zycbt006_aux4.

        endif.

* << Fim da inclusão

        if not itab_zycbt030-budat_t is initial and

           itab_zycbt030-budat_t ne itab_zycbt006_aux4-dtpagto.

          itab_zycbt006_aux4-dtpagto = itab_zycbt030-budat_t.

          clear v_year.

          call function '/PWS/ZYGL_OBTEM_ANO_CONTABIL'

               exporting

                    v_bukrs                = itab_zycbt006-bukrs

                    v_date                 = itab_zycbt006_aux4-dtpagto

               importing

                    v_year                 = v_year

...

 

...

            itab_zycbt030-vlslliq + itab_zycbt006-vlme.

        else.

          itab_zycbt030-budat = itab_zycbt006-dtpagto.

          if /pws/zycbe001-desc_receb is initial.

            itab_zycbt030-vlsltrans =

              itab_zycbt030-vlsltrans + itab_cli-wrbtr.

          endif.

          itab_zycbt030-vlslliq =

            itab_zycbt030-vlslliq + itab_cli-wrbtr.

        endif.

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

        if v_vinculacao is initial.

* << Fim da inclusão

        if itab_zycbt030-belnr6 = itab_zycbt030-belnr.

          clear: itab_zycbt030-belnr_t, itab_zycbt030-budat_t.

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

          endif.

        else.

          if itab_zycbt030-belnr6 = itab_zycbt030-belnr.

            clear: itab_zycbt030-belnr_t.

          endif.

* << Fim da inclusão

        endif.

...

 

...

                  version_undefined      = 6

                  others                 = 7.

        itab_zycbt006_aux4-gjahr = v_year.

        append itab_zycbt006_aux4.

      endif.

      read table itab_zycbt030 with key

                               nrinvoic = itab_zycbt006-nrinvoic

                               nrparcf  = itab_zycbt006-nrparcf

                               gsberf   = itab_zycbt006-gsberf.

      if sy-subrc = 0.

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

        if itab_zycbt030-budat(4) ne itab_zycbt006-dtpagto(4).

          clear v_year.

          call function '/PWS/ZYGL_OBTEM_ANO_CONTABIL'

               exporting

                    v_bukrs                = itab_zycbt006-bukrs

                    v_date                 = itab_zycbt030-budat

               importing

                    v_year                 = v_year

               exceptions

                    variante_de_exercicio  = 1

                    data_nao_encontrada    = 2

                    empresa_nao_encontrada = 3

                    period_in_not_valid    = 4

                    period_not_assigned    = 5

                    version_undefined      = 6

                    others                 = 7.

          itab_zycbt006_aux4-gjahr = v_year.

          append itab_zycbt006_aux4.

        endif.

* << Fim da inclusão

        if not itab_zycbt030-budat_t is initial and

           itab_zycbt030-budat_t ne itab_zycbt006_aux4-dtpagto.

          itab_zycbt006_aux4-dtpagto = itab_zycbt030-budat_t.

          clear v_year.

          call function '/PWS/ZYGL_OBTEM_ANO_CONTABIL'

               exporting

                    v_bukrs                = itab_zycbt006-bukrs

                    v_date                 = itab_zycbt006_aux4-dtpagto

               importing

                    v_year                 = v_year

...

 

...

form get_parameters_002_arb using v_sinal.

  data: v_nrdias_arb  type i,

        v_prazo_arb,

        v_codaux_arb  like /pws/zyglt316-codaux1.

  v_nrdias_arb = itab_zycbt006-dtpagto - itab_zycbt006-dtvincul.

  if v_nrdias_arb > 360.

    v_prazo_arb = 'L'.

  else.

    v_prazo_arb = 'S'.

  endif.

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

  CLEAR itab_zyglt316.

* << Fim da inclusão

  if /pws/zycbt001-tpcontr(01) eq 'E'

     or /pws/zycbt001-tpcontr(01) eq 'C'.

    concatenate /pws/zycbt001-tpcontr v_prazo_arb

      into v_codaux_arb separated by space .

    call function '/PWS/ZYGL_READ_ACCOUNT_NUMBER'

         exporting

              bukrs           = /pws/zycbt001-bukrs

              ktosl           = 'ARB'

              codaux1         = v_codaux_arb

         tables

...

 

...

                  version_undefined      = 6

                  others                 = 7.

        itab_zycbt006_aux4-gjahr = v_year.

        append itab_zycbt006_aux4.

      endif.

      read table itab_zycbt030 with key

                               nrinvoic = itab_zycbt006-nrinvoic

                               nrparcf  = itab_zycbt006-nrparcf

                               gsberf   = itab_zycbt006-gsberf.

      if sy-subrc = 0.

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

        if itab_zycbt030-budat(4) ne itab_zycbt006-dtpagto(4).

          clear v_year.

          call function '/PWS/ZYGL_OBTEM_ANO_CONTABIL'

               exporting

                    v_bukrs                = itab_zycbt006-bukrs

                    v_date                 = itab_zycbt030-budat

               importing

                    v_year                 = v_year

               exceptions

                    variante_de_exercicio  = 1

                    data_nao_encontrada    = 2

                    empresa_nao_encontrada = 3

                    period_in_not_valid    = 4

                    period_not_assigned    = 5

                    version_undefined      = 6

                    others                 = 7.

          itab_zycbt006_aux4-gjahr = v_year.

          append itab_zycbt006_aux4.

        endif.

* << Fim da inclusão

        if not itab_zycbt030-budat_t is initial and

           itab_zycbt030-budat_t ne itab_zycbt006_aux4-dtpagto.

          itab_zycbt006_aux4-dtpagto = itab_zycbt030-budat_t.

          clear v_year.

          call function '/PWS/ZYGL_OBTEM_ANO_CONTABIL'

               exporting

                    v_bukrs                = itab_zycbt006-bukrs

                    v_date                 = itab_zycbt006_aux4-dtpagto

               importing

                    v_year                 = v_year

...

 

 

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

Modificações efetuadas em REPS /PWS/MZYCB004I01

 

...

      endif.

      if v_vinculacao is initial.

        perform limpa_tabela.

        perform selecao_faturas.

        if not it_zycbt226[] is initial and

         ( not it_zycbt209[] is initial or

           not it_zycbt030[] is initial ).

          call screen '102' starting at 2 2  ending at 124 20.

          check ok_code eq 'ENTER'.

        endif.

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

        IF /pws/zycbe001-tpcontr(1) = 'C'.

          SELECT nrinvoic nrparcf gsberf slpagar vlvinc slpagar

                 FROM /pws/zycbt005

                 INTO TABLE itab_zycbt005_cp

                   WHERE nrseqc = /pws/zycbe001-nrseqc.

          DESCRIBE TABLE itab_zycbt005_cp LINES v_linha.

          DESCRIBE TABLE itab_zycbt005    LINES v_line.

          REFRESH itab_zycbt005_cp.

          IF v_linha NE v_line AND

             NOT itab_zycbt005[] IS INITIAL.

            MESSAGE i061 WITH text-465 text-466.

            EXIT.

          ENDIF.

          CLEAR v_disp.

          LOOP AT itab_zycbt005_cp.

            READ TABLE itab_zycbt005 WITH KEY

                                    nrinvoic = itab_zycbt005_cp-nrinvoic

                                    gsberf   = itab_zycbt005_cp-gsberf

                                    nrparcf  = itab_zycbt005_cp-nrparcf.

            IF sy-subrc EQ 0 AND

               itab_zycbt005_cp-vlme NE itab_zycbt005-vlme.

              MESSAGE i061 WITH text-465 text-466.

              v_disp = 'X'.

              EXIT.

            ENDIF.

          ENDLOOP.

          IF NOT v_disp IS INITIAL.

            CLEAR v_disp.

            EXIT.

          ENDIF.

        ENDIF.

* << Fim da inclusão

      endif.

      perform grava_tabelas.

      perform executa_exit_p using 'LIQ016'.

      clear v_modo_bi.

      v_status_s = '0'.

      v_trans = '3'.

      if not v_vinculacao is initial.

        perform consiste_saldos_erro.

        leave program.

      endif.

...

 

 

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

Modificações efetuadas em REPS /PWS/MZYCB004X01

 

...

        dtvencto like /pws/zycbt005-dtvencto,

      end of itab_zycbt005_aux2.

data: begin of itab_zycbt005_s occurs 0,

        nrinvoic  like /pws/zycbt005-nrinvoic,

        nrparcf   like /pws/zycbt005-nrparcf,

        gsberf    like /pws/zycbt005-gsberf,

        slpagar   like /pws/zycbt005-slpagar,

        vlme      like /pws/zycbt006-vlme,

        slliquid  like /pws/zycbt005-slpagar,

      end of itab_zycbt005_s.

* >> Início da inclusão:

  data: itab_zycbt005_cp like itab_zycbt005_s occurs 0

        with header line.

* << Fim da inclusão

data: begin of itab_zycbt005_liq occurs 0,

        nrinvoic  like /pws/zycbt005-nrinvoic,

        nrparcf   like /pws/zycbt005-nrparcf,

        gsberf    like /pws/zycbt005-gsberf,

      end of itab_zycbt005_liq.

data: begin of itab_zycbt006_aux occurs 0,

        nrinvoic like /pws/zycbt006-nrinvoic,

        nrparcf  like /pws/zycbt006-nrparcf,

        dtvincul like /pws/zycbt006-dtvincul,

        dtpagto  like /pws/zycbt006-dtpagto,

...

 

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

Modificações efetuadas em REPS /PWS/MZYCB009F03

 

...

          itab_zycbt005-flag = 'I'.

          modify itab_zycbt005 transporting flag

              where nrinvoic = itab_zycbt005_ant-nrinvoic and

                    gsberf   = itab_zycbt005_ant-gsberf   and

                    nrparcf  = itab_zycbt005_ant-nrparcf.

          v_ind_mudanca = 'X'.

        endif.

      endloop.

    endif.

  endif.

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

  delete /pws/zycbt005 from table itab_zycbt005_ant.

* << Fim da exclusão

  if v_ind_mudanca is initial.

    loop at itab_zycbt005.

      if itab_zycbt005-nrparc = '000'.

        itab_zycbt005-nrparc = sy-tabix.

        modify itab_zycbt005 transporting nrparc.

      endif.

    endloop.

    modify /pws/zycbt005 from table itab_zycbt005.

    if wa_zycbt007-cfm = 'X'.

      loop at itab_zycbt005.

...

 

 

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

Modificações efetuadas em REPT /PWS/SAPMZYCB004

 

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

Incluído símbolo de texto:

 

Idioma: PT

 

Símbolo: 465

 

Texto: (41 caracteres)

"Para contratos do tipo Câmbio Pronto só é"

 

Comprimento máximo: 41

 

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

Incluído símbolo de texto:

 

Idioma: PT

 

Símbolo: 466

 

Texto: (39 caracteres)

"permitido Liquidar ou Estornar o total."

 

Comprimento máximo: 39