Sintoma

Criação ponto de exit RME001

Solução

Criação ponto de exit RME001

Informações Complementares

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

Nota Número 05294 Data: 23/11/2007 Hora: 11:39:07

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

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

Nota Número              : 05294

Categoria                : Melhoria

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00003

Agrupamento              : 00022

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

Referência às notas relacionadas:

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

03651  - 00001 - 7.0    - 00001  - ROTINA MENSAL DE EXPORTAÇÃO - JUROS ACC X PRÉ

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

ROTINA MENSAL EXPORTAÇÃO - PONTO DE EXIT RME001

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

Palavras Chave:

ROTINA MENSAL EXPORTAÇÃO - PONTO DE EXIT RME PREENCHER C.LUC./CUSTO CRED

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

Objetos da nota:

REPS /PWS/ZYCBI003

REPS /PWS/ZYCBI003X

REPS /PWS/ZYCBR003

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

Modificações efetuadas em REPS /PWS/ZYCBI003

...

      waers LIKE /pws/zycbt001-waers,

      slacc LIKE /pws/zycbt001-vlme,

      slace LIKE /pws/zycbt001-vlme,

      END OF itab_total_ac.

DATA: itab_zycbt009  LIKE /pws/zycbt009 OCCURS 3   WITH HEADER LINE,

      itab_zycbt010  LIKE /pws/zycbt010 OCCURS 2   WITH HEADER LINE,

      itab_zycbt011  LIKE /pws/zycbt011 OCCURS 5   WITH HEADER LINE,

      itab_zycbt022  LIKE /pws/zycbt022 OCCURS 5   WITH HEADER LINE,

      itab_zycbt154  LIKE /pws/zycbt154 OCCURS 10  WITH HEADER LINE,

      itab_tcurx     LIKE tcurx         OCCURS 10  WITH HEADER LINE.

* >> Início da exclusão:

DATA : BEGIN OF itab_zycbt036 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycbt036.

DATA : END OF itab_zycbt036.

DATA: BEGIN OF itab_contabil OCCURS 20,

        tpcontab(2)  TYPE c,

        tpcontr      LIKE /pws/zycbt001-tpcontr,

        bco          LIKE /pws/zycbt001-bconegoc,

        descbanc     LIKE lfa1-name1,

        dtcont       LIKE sy-datum,

        bukrs        LIKE /pws/zycbt001-bukrs,

        gsber        LIKE /pws/zycbt001-gsber,

        waers        LIKE /pws/zycbt001-waers,

        vlme         LIKE /pws/zycbt001-vlme,

        vlmi         LIKE /pws/zycbt001-vlme,

        kursf        LIKE /pws/zycbt001-txcneg,

        d_newko      LIKE /pws/zycbe033-d_newko,

        c_newko      LIKE /pws/zycbe033-c_newko,

        kostl        LIKE /pws/zycbt001-kostl,

        prctr        LIKE /pws/zycbt001-prctr,

        fipos        LIKE /pws/zycbt001-fipos,

        fipos_transf LIKE /pws/zycbt001-fipos_transf,

        fictr        LIKE /pws/zycbt002-fictr,

        blart        LIKE /pws/zycbe033-blart,

        d_sgtxt      LIKE /pws/zycbe033-d_sgtxt,

        c_sgtxt      LIKE /pws/zycbe033-c_sgtxt,

        nrcorresp    LIKE /pws/zycbt154-nrcorresp,

        vlrprov      LIKE /pws/zycbt154-vlme,

        vlirprov     LIKE /pws/zycbt154-vlme,

        nrparcp      LIKE /pws/zycbt002-nrparc,

        vlmetransf   LIKE /pws/zycbt001-vlme,

        przcontr     LIKE /pws/zycbt001-przcontr,

        belnr        LIKE /pws/zycbt001-belnr,

        vlmeir       LIKE /pws/zycbt002-vlme,

        d_newkoir    LIKE /pws/zycbe033-d_newko,

        c_newkoir    LIKE /pws/zycbe033-c_newko,

        d_sgtxtir    LIKE /pws/zycbe033-d_sgtxt,

        c_sgtxtir    LIKE /pws/zycbe033-c_sgtxt,

        blartir      LIKE /pws/zycbe033-blart,

        subtotal     TYPE c,

        nrparcj      TYPE /pws/zycbt002-nrparc,

      END OF itab_contabil.

* << Fim da exclusão

DATA: itab_contabil_aux LIKE itab_contabil OCCURS 0 WITH HEADER LINE.

DATA: BEGIN OF itab_relat OCCURS 50,

        tpcontab(2) TYPE c,

        nrseqc      LIKE /pws/zycbt001-nrseqc,

        ftpj        TYPE c,

        nrcontr     LIKE /pws/zycbt001-nrcontr,

        tpcontr     LIKE /pws/zycbt001-tpcontr,

        nrparcp     LIKE /pws/zycbt002-nrparc,

        nrparcj     LIKE /pws/zycbt002-nrparc,

        nrinvoic    LIKE /pws/zycbt005-nrinvoic,

...

...

DATA: itab_relat_aux LIKE itab_relat OCCURS 10 WITH HEADER LINE.

DATA: BEGIN OF itab_msg OCCURS 10,

        nrseqc   LIKE /pws/zycbt001-nrseqc,

        nrcontr  LIKE /pws/zycbt001-nrcontr,

        tpcontr  LIKE /pws/zycbt001-tpcontr,

        nrinvoic LIKE /pws/zycbt005-nrinvoic,

        nrparc   LIKE /pws/zycbt002-nrparc,

        tpmsg    LIKE /pws/zycbt032-tpmsg,

        msg      LIKE /pws/zycbt032-msg,

      END OF itab_msg.

* >> Início da exclusão:

DATA: itab_zycbt032 LIKE /pws/zycbt032 OCCURS 10 WITH HEADER LINE,

      itab_zycbe033 LIKE /pws/zycbe033 OCCURS 10 WITH HEADER LINE,

      itab_zycbt034 LIKE /pws/zycbt034 OCCURS 10 WITH HEADER LINE.

* << Fim da exclusão

* >> Início da inclusão:

DATA: itab_zyglt100 LIKE /pws/zyglt100 OCCURS 0 WITH HEADER LINE,

      v_repid TYPE sy-repid.

* << Fim da inclusão

DATA: wa_itab_relat LIKE itab_relat,

      wa_zycbt007 LIKE /pws/zycbt007,

      v_contabilizado,

      v_cpochv    LIKE /pws/zycbe033-cpochv,

      v_codeven   LIKE /pws/zycbt011-codeven,

      aux_relat   LIKE itab_relat.

DATA: BEGIN OF wa_taxa_cambial,

        txc  LIKE tcurr-ukurs,

        ftme LIKE tcurr-ffact,

        ftmi LIKE tcurr-ffact,

...

...

        itab_zycbe033-d_newko = itab_contabil-d_newkoir.

        itab_zycbe033-c_newko = itab_contabil-c_newkoir.

        itab_zycbe033-blart   = itab_contabil-blartir.

        APPEND itab_zycbe033.

      ENDIF.

      LOOP AT itab_zycbt034.

        MESSAGE i016 WITH itab_zycbt034-descricao.

      ENDLOOP.

      IF     itab_zycbt034   IS INITIAL AND

         NOT itab_zycbe033[] IS INITIAL.

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

        CLEAR:   itab_zyglt100.

        REFRESH: itab_zyglt100.

        v_repid = sy-repid.

        CALL FUNCTION '/PWS/ZYGL_BUSCA_EXIT_CLIENTE'

             EXPORTING

                  i_codmod                = 'E'

                  i_func                  = v_repid

             TABLES

                  itab_zyglt100           = itab_zyglt100

             EXCEPTIONS

                  i_codmod_nao_encontrado = 1

                  i_func_nao_encontrado   = 2

                  i_zexit_nao_encontrado  = 3

                  OTHERS                  = 4.

        READ TABLE itab_zyglt100 WITH KEY zexit = 'RME001'

                                                  BINARY SEARCH.

        IF sy-subrc EQ 0 AND NOT itab_zyglt100-zexit_ativa IS INITIAL.

          PERFORM (itab_zyglt100-formulario)

                  IN PROGRAM (itab_zyglt100-programa).

        ELSE.

* << Fim da inclusão

        IF itab_contabil-tpcontab IS INITIAL OR

           itab_contabil-tpcontab = 'PR'     OR

           itab_contabil-tpcontab EQ 'C'.

          CALL FUNCTION '/PWS/ZYCB_TRANSACAO_F_02'

               EXPORTING

                    v_modo          = v_modo_bi

               TABLES

                    t_dados         = itab_zycbe033

                    t_campo         = itab_zycbt034

                    t_zycbt032      = itab_zycbt032

...

...

               EXPORTING

                    v_modo          = v_modo_bi

               TABLES

                    t_dados         = itab_zycbe033

                    t_campo         = itab_zycbt034

                    t_zycbt032      = itab_zycbt032

                    t_zycbt036      = itab_zycbt036

               EXCEPTIONS

                    campo_em_branco = 1

                    OTHERS          = 2.

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

          ENDIF.

* << Fim da inclusão

        ENDIF.

        IF sy-subrc = 0.

          v_contabilizado = 'X'.

          SELECT SINGLE name1 INTO (lfa1-name1)

            FROM lfa1

            WHERE lifnr = itab_contabil-bco.

          IF sy-subrc EQ 0.

            itab_contabil-descbanc = lfa1-name1.

          ENDIF.

          IF itab_contabil-tpcontab IS INITIAL.

...

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

Modificações efetuadas em REPS /PWS/ZYCBI003X

*----------------------------------------------------------------------*

*   INCLUDE /PWS/ZYCBI003X                                             *

*----------------------------------------------------------------------*

data: begin of common part c.

DATA: BEGIN OF itab_contabil OCCURS 20,

        tpcontab(2)  TYPE c,            " Indica se é juros ou transf.

        tpcontr      LIKE /pws/zycbt001-tpcontr,

        bco          LIKE /pws/zycbt001-bconegoc,

        descbanc     LIKE lfa1-name1,

        dtcont       LIKE sy-datum,

        bukrs        LIKE /pws/zycbt001-bukrs,

        gsber        LIKE /pws/zycbt001-gsber,

        waers        LIKE /pws/zycbt001-waers,

        vlme         LIKE /pws/zycbt001-vlme,

        vlmi         LIKE /pws/zycbt001-vlme,

        kursf        LIKE /pws/zycbt001-txcneg,

        d_newko      LIKE /pws/zycbe033-d_newko,

        c_newko      LIKE /pws/zycbe033-c_newko,

        kostl        LIKE /pws/zycbt001-kostl,

        prctr        LIKE /pws/zycbt001-prctr,

        fipos        LIKE /pws/zycbt001-fipos,

        fipos_transf LIKE /pws/zycbt001-fipos_transf,

        fictr        LIKE /pws/zycbt002-fictr,

        blart        LIKE /pws/zycbe033-blart,

        d_sgtxt      LIKE /pws/zycbe033-d_sgtxt,

        c_sgtxt      LIKE /pws/zycbe033-c_sgtxt,

        nrcorresp    LIKE /pws/zycbt154-nrcorresp,

        vlrprov      LIKE /pws/zycbt154-vlme,

        vlirprov     LIKE /pws/zycbt154-vlme,

        nrparcp      LIKE /pws/zycbt002-nrparc,

        vlmetransf   LIKE /pws/zycbt001-vlme,

        przcontr     LIKE /pws/zycbt001-przcontr,

        belnr        LIKE /pws/zycbt001-belnr,

        vlmeir       LIKE /pws/zycbt002-vlme,

        d_newkoir    LIKE /pws/zycbe033-d_newko,

        c_newkoir    LIKE /pws/zycbe033-c_newko,

        d_sgtxtir    LIKE /pws/zycbe033-d_sgtxt,

        c_sgtxtir    LIKE /pws/zycbe033-c_sgtxt,

        blartir      LIKE /pws/zycbe033-blart,

        subtotal     TYPE c,

        nrparcj      TYPE /pws/zycbt002-nrparc,

      END OF itab_contabil.

DATA: itab_zycbt032 type /pws/zycbt032 OCCURS 0 WITH HEADER LINE,

      itab_zycbe033 type /pws/zycbe033 OCCURS 0 WITH HEADER LINE,

      itab_zycbt034 type /pws/zycbt034 OCCURS 0 WITH HEADER LINE,

      itab_zycbt036 type /pws/zycbt036 OCCURS 0 WITH HEADER LINE,

      itab_zyglt321 type /pws/zyglt321 OCCURS 0 WITH HEADER LINE.

DATA: v_modo_bi.

data: end of common part.

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

Modificações efetuadas em REPS /PWS/ZYCBR003

...

  itab_zycbt005_ence LIKE /pws/zycbt005 OCCURS 10 WITH HEADER LINE,

  itab_zycbt006_pos  LIKE /pws/zycbt006 OCCURS 10 WITH HEADER LINE,

  itab_zycbt006      LIKE /pws/zycbt006 OCCURS 20 WITH HEADER LINE,

  itab_zycbt006_aux  LIKE /pws/zycbt006 OCCURS 20 WITH HEADER LINE,

  itab_zycbt006_ence LIKE /pws/zycbt006 OCCURS 20 WITH HEADER LINE,

  itab_pagos         LIKE /pws/zycbt006 OCCURS  0 WITH HEADER LINE,

                                                            "#EC NEEDED

  itab_zycbt017      LIKE /pws/zycbt017 OCCURS 20 WITH HEADER LINE,

  itab_zycbt136      LIKE /pws/zycbt136 OCCURS 20 WITH HEADER LINE,

  itab_lancados      LIKE /pws/zycbt154 OCCURS 20 WITH HEADER LINE,

* >> Início da exclusão:

  itab_zyglt321      LIKE /pws/zyglt321 OCCURS  0 WITH HEADER LINE,

* << Fim da exclusão

  itab_zycbt060      LIKE /pws/zycbt060 OCCURS  0 WITH HEADER LINE,

  itab_period        LIKE casdayattr OCCURS 0 WITH HEADER LINE.

DATA: BEGIN OF itab_contas OCCURS 0.

        INCLUDE STRUCTURE /pws/zyglt316.

DATA: END OF itab_contas.

DATA: BEGIN OF itab_zycbt062 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycbt062.

DATA: END OF itab_zycbt062.

DATA: BEGIN OF itab_modo OCCURS 0.

        INCLUDE STRUCTURE spopli.

...

...

  v_codaux1       LIKE /pws/zyglt316-codaux1,

  v_confirm(1)    TYPE c VALUE space,                       "#EC NEEDED

  v_txt_f(95)     TYPE c VALUE space,                       "#EC NEEDED

  v_tamr          TYPE i VALUE 254,

  v_nrlines       TYPE i,

  v_per_dias      TYPE i,

  v_nrdias        TYPE i,                                   "#EC NEEDED

  v_base_dias     TYPE i,

  v_lin           TYPE i,

  v_imp           TYPE i,

* >> Início da exclusão:

  v_modo_bi,

* << Fim da exclusão

  v_nrparcj       TYPE /pws/zycbt002-nrparc,

 v_programa       TYPE sy-cprog,

  v_defator       LIKE tcurr-ffact,

  v_parafator     LIKE tcurr-tfact,

  v_separa        TYPE c,

  v_vlprov_aux    LIKE /pws/zycbt004-vlme,

  v_liq           type c.

SELECTION-SCREEN BEGIN OF BLOCK a1 WITH FRAME TITLE text-001.

PARAMETERS: s_bukrs  LIKE /pws/zycbt001-bukrs OBLIGATORY,

            s_dtentr LIKE sy-datum OBLIGATORY.

...

...

SELECTION-SCREEN END OF BLOCK b2.

SELECTION-SCREEN BEGIN OF BLOCK c3 WITH FRAME TITLE text-045.

PARAMETERS: s_rbmens RADIOBUTTON GROUP rg2,

            s_rbinte RADIOBUTTON GROUP rg2.

SELECTION-SCREEN END OF BLOCK c3.

SELECTION-SCREEN BEGIN OF BLOCK d4 WITH FRAME TITLE text-047.

SELECT-OPTIONS: s_nrseqc FOR /pws/zycbt001-nrseqc

                         MATCHCODE OBJECT /pws/zycba050,

                s_tpcont FOR /pws/zycbt001-tpcontr.

SELECTION-SCREEN END OF BLOCK d4.

* >> Início da inclusão:

INCLUDE /PWS/ZYCBI003X.

* << Fim da inclusão

INCLUDE /pws/zycbi003.

INITIALIZATION.

  SET PF-STATUS '1001'.

AT SELECTION-SCREEN.

  CASE sy-ucomm.

      WHEN'DEL'.

      CLEAR wa_zycbt007.

      IF NOT s_bukrs IS INITIAL.

        SELECT SINGLE * FROM /pws/zycbt007

                        INTO wa_zycbt007

...