Sintoma

Remessa - criação ponto de exit REM007

Solução

Remessa - criação ponto de exit REM007

Informações Complementares

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

Nota Número 05637 Data: 14/01/2008 Hora: 17:07:36

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

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

Nota Número              : 05637

Categoria                : Melhoria

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00004

Agrupamento              : 00030

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

REMESSA - CRIAÇÃO PONTO DE EXIT REM007

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

Palavras Chave:

REMESSA - CRIAÇÃO PONTO DE EXIT REM007

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

Objetos da nota:

REPS /PWS/MZYCA109F01

REPS /PWS/MZYCA109TOP

REPS /PWS/MZYCA109X01

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

Modificações efetuadas em REPS /PWS/MZYCA109F01

...

    IF sy-subrc = 0.

      itab_rel-tpoper = /pws/zycbt124-tpoper.

      itab_rel-nrseq  = /pws/zycbt124-nrseq.

      itab_rel-waers  = /pws/zycbt124-waers.

      itab_rel-vlme   = /pws/zycbt124-vlme.

      itab_rel-recrem = /pws/zycbt124-recrem.

      APPEND itab_rel.

      PERFORM preenche_pasta_contabilizacao TABLES i_bseg.

    ENDIF.

  ENDLOOP.

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

  IF itab_zyglt100[] IS INITIAL.

    v_syrepid = sy-repid.

    CALL FUNCTION '/PWS/ZYGL_BUSCA_EXIT_CLIENTE'

         EXPORTING

              i_codmod                = 'F'

              i_func                  = v_syrepid

         TABLES

              itab_zyglt100           = itab_zyglt100

         EXCEPTIONS

              i_codmod_nao_encontrado = 1

              i_func_nao_encontrado   = 2

              i_zexit_nao_encontrado  = 3

              OTHERS                  = 4.

  ENDIF.

  READ TABLE itab_zyglt100 WITH KEY zexit = 'REM007' BINARY SEARCH.

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

    PERFORM (itab_zyglt100-formulario)

            IN PROGRAM (itab_zyglt100-programa)

              USING      ok_code

              CHANGING   e_subrc.

    IF e_subrc NE 0.

      EXIT.

    ENDIF.

  ENDIF.

* << Fim da inclusão

  IF NOT itab_rel[] IS INITIAL.

    CALL SCREEN '0003' STARTING AT 1 13 ENDING AT 100 18.

  ENDIF.

ENDFORM.

FORM imprime_relatorio_remessas.

  DATA: v_valor(15)  TYPE c,

        v_dados(100) TYPE c.

  FORMAT COLOR COL_BACKGROUND INTENSIFIED OFF.

  LOOP AT itab_rel.

    WRITE: /1  text-127.

...

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

Modificações efetuadas em REPS /PWS/MZYCA109TOP

...

  /pws/zyglt321,

  rm06b,

  t16fe,

  j_1bbranch,

  adrc,

  tcurx,

  afko,

  afvc,

  /pws/zycat024.

DATA:

* >> Início da exclusão:

     wa_zycbt031a LIKE /pws/zycbe031,

     wa_vbfa      LIKE vbfa,

     wa_bkpf      LIKE bkpf,

     wa_rbkp      LIKE rbkp.

* << Fim da exclusão

* >> Início da inclusão:

     wa_zycbt031a LIKE /pws/zycbe031.

* << Fim da inclusão

* >> Início da exclusão:

DATA: BEGIN OF itab_bseg OCCURS 0.

        INCLUDE STRUCTURE bseg.

DATA : END OF itab_bseg.

DATA: BEGIN OF itab_bseg_aux OCCURS 0.

        INCLUDE STRUCTURE bseg.

DATA : END OF itab_bseg_aux.

* << Fim da exclusão

DATA: BEGIN OF itab_rel OCCURS 0,

       tpoper    LIKE /pws/zycbt124-tpoper,

       nrseq(10) TYPE n,

       waers     LIKE /pws/zycbt124-waers,

       vlme      LIKE /pws/zycbt124-vlme,

       recrem    LIKE /pws/zycbt124-recrem,

      END OF itab_rel.

DATA: v_nrboleto LIKE  /pws/zycbt064-nrboleto OCCURS 10 WITH HEADER

 LINE.

DATA: BEGIN OF itab_pf_status OCCURS 10,

...

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

Modificações efetuadas em REPS /PWS/MZYCA109X01

...

      v_control_ir(10)    TYPE n,

      v_control_io(10)    TYPE n,

      v_totdep    TYPE /pws/zyglt342-valorinc,

      e_subrc     TYPE sy-subrc,

      v_area      TYPE /pws/zycbt141-cod_area,

      v_vlme      TYPE /pws/zycbt124-vlme,

      v_vlmi      type /pws/zycbt124-vlme,

      erro_bi(1)  type c,

      v_lib(1)    TYPE c,

      v_frgzu     type /pws/zycbt124-frgzu.

* >> Início da inclusão:

DATA: wa_vbfa TYPE vbfa,

      wa_bkpf TYPE bkpf,

      wa_rbkp TYPE rbkp.

DATA: BEGIN OF itab_bseg OCCURS 0.

        INCLUDE STRUCTURE bseg.

DATA : END OF itab_bseg.

DATA: BEGIN OF itab_bseg_aux OCCURS 0.

        INCLUDE STRUCTURE bseg.

DATA : END OF itab_bseg_aux.

* << Fim da inclusão

DATA: END OF COMMON PART.