Sintoma

Necessário desenvolvimento específico

Solução

Abertura de Exit no programa de transmissão. Exit TPLI001 na função /PWS/ZYCI_TRANSFER_PLI.

Informações Complementares

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

Nota Número 13073 Data: 20/06/2013 Hora: 11:27:43

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

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

Nota Número              : 13073

Categoria                : Melhoria

Prioridade               : Alta

Versão PW.CE             : 9.0

Pacote                   : 00005

Agrupamento              : 00157

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

Referência às notas relacionadas:

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

07564  - 00001 - 7.0    - 00007  - NECESSÁRIO EXIT NO PROGRAMA DE TRANSMISSÃO DA LI

12245  - 00002 - 8.0    - 00011  - NECESSÁRIO AJUSTAR SEQUENCIAL TRANSMITIDO AO SUFRAMA

12341  - 00003 - 9.0    - 00001  - ENVIAR NÚMERO DE LI DE REFERÊNCIA NA TRANSMISSÃO

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

NECESSÁRIO DESENVOLVIMENTO ESPECÍFICO

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

Palavras Chave:

EXTI - ZYGLT100 - TRANSMISSÃO - PLI - SUFRAMA

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

Objetos da nota:

FUNC /PWS/ZYCI_TRANSFER_PLI

REPS /PWS/LZYCIGF5X01

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

Modificações efetuadas em FUNC /PWS/ZYCI_TRANSFER_PLI

...

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

  PERFORM carrega_exits

          CHANGING

              itab_zyglt100[].

* << Fim da inclusão

  TABLES: j_1bbranch,

          adrc,

          /pws/zycit133.

...

...

    li_cabec-seq_sufra = v_seq.

    MODIFY li_cabec INDEX 1.

    UPDATE /pws/zycit078 SET seq_sufra = v_seq

               WHERE nrseqli = i_nrseqli.

    MOVE-CORRESPONDING li_cabec TO /pws/zycit078 .

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

    IF NOT li_cabec-li_ref IS INITIAL.

      SELECT SINGLE nrli FROM /pws/zycit078

      INTO li_cabec-identifysuba

      WHERE nrseqli EQ li_cabec-li_ref.

      MODIFY li_cabec INDEX 1.

    ENDIF.

    e_subrc = 0.

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

    IF sy-subrc = 0 AND

    NOT itab_zyglt100-programa IS INITIAL AND

        itab_zyglt100-zexit_ativa EQ 'X'.

      li_cabec2[]     = li_cabec[].

      li_itens2[]     = li_itens[].

      li_itens_add2[] = li_itens_add[].

      li_anuente2[]   = li_anuente[].

      li_destncm2[]   = li_destncm[].

      li_forn_a2[]    = li_forn_a[] .

      li_forn_b2[]    = li_forn_b[] .

      li_txt2[]       = li_txt[]    .

      li_imp2         = li_imp[]    .

      li_mercad2      = li_mercad[] .

      PERFORM (itab_zyglt100-formulario)

         IN PROGRAM (itab_zyglt100-programa)

         IF FOUND.

      IF e_subrc EQ 0 .

        li_cabec[]       = li_cabec2[].

        li_itens[]       = li_itens2[].

        li_itens_add[]   = li_itens_add2[].

        li_anuente[]     = li_anuente2[].

        li_destncm[]     = li_destncm2[].

        li_forn_a[]      = li_forn_a2[] .

        li_forn_b[]      = li_forn_b2[] .

        li_txt[]         = li_txt2[]    .

        li_imp[]         = li_imp2[]    .

        li_mercad[]      = li_mercad2[] .

      ENDIF.

    ENDIF.

* << Fim da inclusão

    PERFORM carrega_log

        USING

          '/PWS/ZYCIT078'

          'U'

          '/PWS/ZYCI033_E'

          '/PWS/SAPMZYCI020'

          i_nrseqli.

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

  ENDIF.

  IF NOT li_cabec-li_ref IS INITIAL.

    SELECT SINGLE nrli FROM /pws/zycit078

    INTO li_cabec-identifysuba

    WHERE nrseqli EQ li_cabec-li_ref.

    MODIFY li_cabec INDEX 1.

* << Fim da exclusão

  ENDIF.

ENDFUNCTION.

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

Modificações efetuadas em REPS /PWS/LZYCIGF5X01

...

  DATA:

        li_cabec2     TYPE  /pws/zycit078  OCCURS 0,

        li_itens2     TYPE  /pws/zycit079  OCCURS 0,

        li_itens_add2 TYPE  /pws/zycie079b OCCURS 0,

        li_anuente2   TYPE  /pws/zycie081  OCCURS 0,

        li_destncm2   TYPE  /pws/zycie109  OCCURS 0,

        li_forn_a2    TYPE  /pws/zycie080  OCCURS 0,

        li_forn_b2    TYPE  /pws/zycie080  OCCURS 0,

        li_txt2       TYPE  /pws/zycie078b OCCURS 0.

* >> Início da inclusão:

data:

        LI_IMP2    type /PWS/ZYCIE078A occurs 0,

        LI_MERCAD2 type /PWS/ZYCIE078D occurs 0.

* << Fim da inclusão

...