Sintoma

Disponibilizar variáveis e tabelas internas do tratamento de ordem de pagamento, na saída de

pagamento, para desenvolvimento específico do ponto de exit SPG002.

Solução

Declarar variáveis e tabelas internas no include X.

Informações Complementares

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

Nota Número 04470 Data: 21/08/2007 Hora: 11:34:00

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

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

Nota Número              : 04470

Categoria                : Melhoria

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00002

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

Texto Rápido:

SAÍDA DE PAGAMENTO - PONTO DE EXIT SPG002 - INCLUDE X

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

Palavras Chave:

SAÍDA DE PAGAMENTO PONTO DE EXIT SPG002 INCLUDE X

DISPONIBILIZAR VARIÁVEIS TABELAS INTERNAS ORDEM PAGAMENTO

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

Objetos da nota:

REPS /PWS/MZYCB115TOP

REPS /PWS/MZYCB115X01

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

Modificações efetuadas em REPS /PWS/MZYCB115TOP

...

DATA: END OF itab_zycbt064.

DATA: BEGIN OF itab_zycbt064_aux OCCURS 0.

        INCLUDE STRUCTURE /pws/zycbt064.

DATA: END OF itab_zycbt064_aux.

DATA: BEGIN OF itab_zyglt316 OCCURS 0.

        INCLUDE STRUCTURE /pws/zyglt316.

DATA: END OF itab_zyglt316.

DATA: BEGIN OF itab_pf_status OCCURS 10,

        fcode LIKE rsmpe-func,

      END OF itab_pf_status.

* >> Início da exclusão:

DATA: BEGIN OF itab_zycbt226 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycbt226.

DATA: END OF itab_zycbt226.

DATA: BEGIN OF itab_ordens OCCURS 0,

        nrseq        TYPE /pws/zycbt226-nrseq,

        nrinvoic     TYPE /pws/zycbt226-nrinvoic,

        gsberf       TYPE /pws/zycbt226-gsberf,

        nrparcf      TYPE /pws/zycbt226-nrparcf,

        bukrs        TYPE /pws/zycbt226-bukrs,

        bco_me       TYPE /pws/zycbt226-bco_me,

        waers        TYPE /pws/zycbt226-waers,

        werks        TYPE /pws/zycbt226-werks,

        j_1bbranch   TYPE /pws/zycbt226-j_1bbranch,

        dtcredext    TYPE /pws/zycbt226-dtcredext,

        vlr_exterior TYPE /pws/zycbt226-vlr_exterior,

        sld_exterior TYPE /pws/zycbt226-sld_exterior,

        selk,

     END OF itab_ordens.

DATA: BEGIN OF itab_zycbt232 OCCURS 0.

DATA:   indx(5)          TYPE n.

        INCLUDE STRUCTURE /pws/zycbt232.

DATA:   vlr_associado    TYPE /pws/zycbe226-vlr_exterior,

        vlr_exterior     TYPE /pws/zycbe226-vlr_exterior,

        sld_exterior     TYPE /pws/zycbe226-sld_exterior,

        bco_me           TYPE /pws/zycbe226-bco_me,

        sld_vl_pagto     TYPE /pws/zycbe226-sld_exterior,

        ok               TYPE c,

        mark.

DATA: END OF itab_zycbt232.

DATA: itab_zycbt232_assoc  LIKE itab_zycbt232 OCCURS 0 WITH HEADER LINE,

      itab_zycbt232_dados  LIKE itab_zycbt232 OCCURS 0 WITH HEADER LINE,

      itab_zycbt232_dados2 LIKE itab_zycbt232 OCCURS 0 WITH HEADER LINE.

* << Fim da exclusão

DATA:

  itab_zycbt013     LIKE /pws/zycbt013 OCCURS 10 WITH HEADER LINE,

  itab_zycbt013_aux LIKE /pws/zycbt013 OCCURS 10 WITH HEADER LINE,

  itab_zycbt012     LIKE /pws/zycbt012 OCCURS 10 WITH HEADER LINE,

  itab_zycbt133     LIKE /pws/zycbt133 OCCURS 10 WITH HEADER LINE,

  itab_zycbt011_aux LIKE /pws/zycbt011 OCCURS 10 WITH HEADER LINE,

  itab_zycbt012c    LIKE /pws/zycbt012 OCCURS 10 WITH HEADER LINE,

  wa_zycbt007       LIKE /pws/zycbt007.

DATA:

  v_answer,

...

...

  v_flag(1)          TYPE n,

  v_dtlanc2(10)      TYPE c,

  v_waersb           LIKE /pws/zycbt007-waersb,

  v_bukrs_aux        LIKE /pws/zycbt031-bukrs,

  v_bukrs_p          LIKE /pws/zycbt031-bukrs,

  v_index2           LIKE sy-index           ,

  v_cred_imp         LIKE /pws/zyglt009-cont_impostos,

  v_cod_mod          TYPE c VALUE 'E',

  v_exit             LIKE /pws/zyglt100-zexit VALUE 'SPG001',

  v_associado        type c,

* >> Início da exclusão:

  v_ccbrasil          TYPE c,

  v_ccexterior        TYPE c,

  v_30_porc           TYPE c,

  v_70_porc           TYPE c,

* << Fim da exclusão

  v_porcentagem(2)    TYPE c,

  v_propdcont(1)      TYPE c,

  v_propdcont2(1)     TYPE c,

  v_subtela(4)        TYPE n,

  v_bcopagto(10)      TYPE c,

  v_soma_bol          TYPE /pws/zycbe134-vlme,

  v_soma_ordem        TYPE /pws/zycbe134-vlme,

  v_saldo_boleto      TYPE /pws/zycbe134-vlme,

  v_moeda_ordem       TYPE /pws/zycbe134-waers,

  v_bcooper1          TYPE /pws/zycbt031-bcooper,

...

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

Modificações efetuadas em REPS /PWS/MZYCB115X01

...

        nrseq     LIKE /pws/zycbt134-nrseq,

        tpproc    LIKE /pws/zycbt134-tpproc,

        bukrs     LIKE /pws/zycbt134-bukrs,

        gsber     LIKE /pws/zycbt119-gsber,

        dtcont    LIKE /pws/zycbt134-dtlanc,

        nrcorresp LIKE /pws/zycbt134-nrcorresp,

        belnr     LIKE /pws/zycbt005-belnr,

        tipo      LIKE /pws/zycbt134-tipo,

        texto(40) type c,

      END OF itab_acerto_s.

* >> Início da inclusão:

DATA: BEGIN OF itab_zycbt226 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycbt226.

DATA: END OF itab_zycbt226.

DATA: BEGIN OF itab_ordens OCCURS 0,

        nrseq        TYPE /pws/zycbt226-nrseq,

        nrinvoic     TYPE /pws/zycbt226-nrinvoic,

        gsberf       TYPE /pws/zycbt226-gsberf,

        nrparcf      TYPE /pws/zycbt226-nrparcf,

        bukrs        TYPE /pws/zycbt226-bukrs,

        bco_me       TYPE /pws/zycbt226-bco_me,

        waers        TYPE /pws/zycbt226-waers,

        werks        TYPE /pws/zycbt226-werks,

        j_1bbranch   TYPE /pws/zycbt226-j_1bbranch,

        dtcredext    TYPE /pws/zycbt226-dtcredext,

        vlr_exterior TYPE /pws/zycbt226-vlr_exterior,

        sld_exterior TYPE /pws/zycbt226-sld_exterior,

        selk,

     END OF itab_ordens.

DATA: BEGIN OF itab_zycbt232 OCCURS 0.

DATA:   indx(5)          TYPE n.

        INCLUDE STRUCTURE /pws/zycbt232.

DATA:   vlr_associado    TYPE /pws/zycbe226-vlr_exterior,

        vlr_exterior     TYPE /pws/zycbe226-vlr_exterior,

        sld_exterior     TYPE /pws/zycbe226-sld_exterior,

        bco_me           TYPE /pws/zycbe226-bco_me,

        sld_vl_pagto     TYPE /pws/zycbe226-sld_exterior,

        ok               TYPE c,

        mark.

DATA: END OF itab_zycbt232.

DATA: itab_zycbt232_assoc  like itab_zycbt232 OCCURS 0 WITH HEADER LINE,

      itab_zycbt232_dados  like itab_zycbt232 OCCURS 0 WITH HEADER LINE,

      itab_zycbt232_dados2 like itab_zycbt232 OCCURS 0 WITH HEADER LINE.

DATA: v_ccbrasil           TYPE c,

      v_ccexterior         TYPE c,

      v_30_porc            TYPE c,

      v_70_porc            type c.

* << Fim da inclusão

DATA: END OF COMMON PART.