Sintoma

Abertura de EXit no item DO EMBARQUE, para permitir que o campo peso liquido fique aberto após

criação da fatura.

Solução

criada a chamada de exit na tela 102 que possibilitará alterar campos de tela do pedido.

Informações Complementares

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

Nota Número 05121 Data: 31/10/2007 Hora: 14:53:15

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

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

Nota Número              : 05121

Categoria                : Melhoria

Prioridade               : Alta

Versão PW.CE             : 7.0

Pacote                   : 00003

Agrupamento              : 00019

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

CHAMADA DE EXIT NA TELA 0102 - PEDIDO DO EMBARQUE

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

Palavras Chave:

EXIT - CHAMADA DE EXIT - ABA PEDIDOS - EMBARQUE

ESPECÍFICO

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

Objetos da nota:

DYNP /PWS/SAPMZYCI001                        0102

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

Modificações efetuadas em DYNP /PWS/SAPMZYCI001                        0102

PROCESS BEFORE OUTPUT.

  MODULE:

          set_screen,

          carrega_instrucao,

          atualiza_posicao.

  LOOP AT itab_zycit003 WITH CONTROL tc_ped CURSOR tc_ped-current_line.

    MODULE: set_screen_table,

            carrega_zycie003.

*<<Inicio Inclusão

    MODULE exit_tela.

*<< Fim inclusão.

  ENDLOOP.

PROCESS AFTER INPUT.

...

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

Modificações efetuadas em REPS /PWS/MZYCI001TOP

...

* >> Início da exclusão:

DATA: BEGIN OF itab_zycit003_aux1 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycie003.

DATA: slqtde LIKE /pws/zycie013-slqtde,

      uebto  LIKE ekpo-uebto,

      uebtk  LIKE ekpo-uebtk,

      noinitial,

      mark,

      idnlf         LIKE mepo1319-idnlf,

      invoiced LIKE /pws/zycie263-qtd_iten.

DATA: END OF itab_zycit003_aux1.

DATA: BEGIN OF itab_zycit134 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycie134.

DATA: matnr    LIKE /pws/zycit003-matnr,

      descr    LIKE /pws/zycit003-descr,

      qtd_iten LIKE /pws/zycit003-qtd_iten,

      slqtde   LIKE /pws/zycit013-slqtde,

      meins    LIKE /pws/zycit003-meins,

      mark.

DATA: END OF itab_zycit134.

DATA: BEGIN OF itab_zycit374 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit374.

DATA: mark,

      dele.

DATA: END OF itab_zycit374.

DATA: BEGIN OF itab_zycit396 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycie396.

DATA: marc,

      dele.

DATA: END OF itab_zycit396.

DATA: BEGIN OF itab_zycit396_aux1 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycie396.

DATA: END OF itab_zycit396_aux1.

DATA: BEGIN OF itab_zycit396_aux OCCURS 0.

        INCLUDE STRUCTURE /pws/zycie396.

DATA: marc,

      dele.

DATA: END OF itab_zycit396_aux.

DATA: BEGIN OF itab_zycit396aux OCCURS 0.

        INCLUDE STRUCTURE /pws/zycie396.

DATA: marc,

      dele.

DATA: END OF itab_zycit396aux.

DATA: BEGIN OF itab_zycit003_aux OCCURS 0.

       INCLUDE STRUCTURE /pws/zycie003.

.

DATA: slqtde LIKE /pws/zycie013-slqtde,

      uebto  LIKE ekpo-uebto,

      uebtk  LIKE ekpo-uebtk.

DATA: END OF itab_zycit003_aux.

DATA: BEGIN OF itab_zycit003_aux2 OCCURS 0.

.

        INCLUDE STRUCTURE /pws/zycie003.

DATA: slqtde LIKE /pws/zycie013-slqtde,

      uebto  LIKE ekpo-uebto,

      uebtk  LIKE ekpo-uebtk,

      noinitial,

      mark,

      idnlf         LIKE mepo1319-idnlf,

      invoiced LIKE /pws/zycie263-qtd_iten.

DATA: END OF itab_zycit003_aux2.

DATA: BEGIN OF itab_zycit003_del OCCURS 0.

DATA: ebeln     LIKE /pws/zycie003-ebeln,

      ebelp     LIKE /pws/zycie003-ebelp,

      qtd_iten  LIKE /pws/zycit003-qtd_iten,

      werks     LIKE /pws/zycie003-werks,

      itseqda   LIKE /pws/zycie003-itseqda,

END OF itab_zycit003_del.

DATA: BEGIN OF itab_zycit036_del OCCURS 0.

DATA: nrseq     LIKE /pws/zycie036-nrseq,

      ebeln     LIKE /pws/zycie036-ebeln,

      ebelp     LIKE /pws/zycie036-ebelp,

END OF itab_zycit036_del.

DATA: itab_zycit455_del LIKE /pws/zycit455 OCCURS 0 WITH HEADER LINE.

DATA t_zycit003 LIKE /pws/zycit003 OCCURS 0 WITH HEADER LINE.

DATA: BEGIN OF itab_zycit008 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit008.

DATA: END OF itab_zycit008.

DATA: BEGIN OF itab_zycit354 OCCURS 10.

        INCLUDE STRUCTURE /pws/zycit354.

DATA: END OF itab_zycit354.

DATA: BEGIN OF itab_zycit356 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit356.

DATA: END OF itab_zycit356.

DATA: BEGIN OF itab_ekko_aux OCCURS 0,

      ebeln LIKE ekko-ebeln,

      ekorg LIKE ekko-ekorg,

      ekgrp LIKE ekko-ekgrp,

END OF itab_ekko_aux.

DATA: BEGIN OF itab_aviso OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit125.

DATA: END OF itab_aviso.

DATA: it_zycit041 LIKE /pws/zycie041 OCCURS 0 WITH HEADER LINE,

      it_zycit042 LIKE /pws/zycie042 OCCURS 0 WITH HEADER LINE.

DATA: BEGIN OF itab_itens OCCURS 0,

        bukrs LIKE ekko-bukrs,

        waers LIKE ekko-waers,

        lifnr LIKE ekko-lifnr,

        aedat LIKE ekko-aedat,

        inco1 LIKE ekko-inco1,

        ebeln LIKE ekko-ebeln,

        ebelp LIKE ekpo-ebelp,

        loekz LIKE ekpo-loekz,

        werks LIKE ekpo-werks,

        bednr LIKE ekpo-bednr,

        menge LIKE ekpo-menge,

        ktmng LIKE ekpo-ktmng,

        bstyp LIKE ekpo-bstyp,

        meins LIKE ekpo-meins,

        ntgew LIKE ekpo-ntgew,

        gewei LIKE ekpo-gewei,

        netpr LIKE ekpo-netpr,

        txz01 LIKE ekpo-txz01,

        uebto LIKE ekpo-uebto,

        uebtk LIKE ekpo-uebtk,

        j_1bnbm LIKE ekpo-j_1bnbm,

        matnr LIKE ekpo-matnr,

        mtart LIKE ekpo-mtart,

        spras LIKE ekko-spras,

        idnlf LIKE ekpo-idnlf,

        elikz LIKE ekpo-elikz,

        wepos LIKE ekpo-wepos,

        webre LIKE ekpo-webre,

        j_1bmatuse LIKE ekpo-j_1bmatuse,

      END OF itab_itens.

DATA: BEGIN OF itab_divisao OCCURS 0,

        ebeln LIKE ekko-ebeln       ,

        ebelp LIKE ekpo-ebelp       ,

        gsber LIKE ekkn-gsber       ,

      END OF itab_divisao           .

DATA: BEGIN OF itab_divisao2 OCCURS 0,

        ebeln LIKE ekko-ebeln        ,

        ebelp LIKE ekpo-ebelp        ,

        gsber LIKE ekkn-gsber        ,

      END OF itab_divisao2           .

DATA: BEGIN OF itab_itens_aux OCCURS 50,

        ebeln      LIKE ekko-ebeln     ,

        inco1      LIKE ekko-inco1     ,

        spras      LIKE ekko-spras     ,

        ebelp      LIKE ekpo-ebelp     ,

        txz01      LIKE ekpo-txz01     ,

        menge      LIKE ekpo-menge     ,

        ktmng      LIKE ekpo-ktmng     ,

        bstyp      LIKE ekpo-bstyp     ,

        meins      LIKE ekpo-meins     ,

        ntgew      LIKE ekpo-ntgew     ,

        gewei      LIKE ekpo-gewei     ,

        netpr      LIKE ekpo-netpr     ,

        bednr      LIKE ekpo-bednr     ,

        uebto      LIKE ekpo-uebto     ,

        uebtk      LIKE ekpo-uebtk     ,

        loekz      LIKE ekpo-loekz     ,

        elikz      LIKE ekpo-elikz     ,

        j_1bnbm    LIKE ekpo-j_1bnbm   ,

        werks      LIKE ekpo-werks     ,

        lifnr      LIKE ekko-lifnr     ,

        j_1bmatuse LIKE ekpo-j_1bmatuse,

        matnr      LIKE ekpo-matnr     ,

        mtart      LIKE ekpo-mtart     ,

        mfrnr      LIKE ekpo-mfrnr     ,

      END OF itab_itens_aux            .

DATA: itab_itens_aux2 LIKE itab_itens_aux OCCURS 0 WITH HEADER LINE,

      itab_itens_aux3 LIKE itab_itens_aux OCCURS 0 WITH HEADER LINE,

      itab_zycit263   LIKE /pws/zycie263 OCCURS 0 WITH HEADER LINE,

      itab_zycit006   LIKE /pws/zycie006 OCCURS 0 WITH HEADER LINE.

DATA: BEGIN OF itab_itens_auxs OCCURS 0,

            kschl LIKE a016-kschl,

            ebeln LIKE ekpo-ebeln,

            ebelp LIKE ekpo-ebelp,

      END   OF itab_itens_auxs.

DATA: BEGIN OF it_ekbe OCCURS 0,

            ebeln LIKE ekbe-ebeln,

            ebelp LIKE ekbe-ebelp,

            zekkn LIKE ekbe-zekkn,

            vgabe LIKE ekbe-vgabe,

            gjahr LIKE ekbe-gjahr,

            belnr LIKE ekbe-belnr,

            buzei LIKE ekbe-buzei,

            menge LIKE ekbe-menge,

            shkzg LIKE ekbe-shkzg,

      END OF it_ekbe.

DATA: BEGIN OF itab_t006 OCCURS 0,

        msehi LIKE t006-msehi,

        zaehl LIKE t006-zaehl,

        nennr LIKE t006-nennr,

        exp10 LIKE t006-exp10,

      END OF itab_t006.

* << Fim da exclusão

...

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

Modificações efetuadas em REPS /PWS/MZYCI001X01

...

DATA: BEGIN OF COMMON PART a.

...

...

* >> Início da Inclusão:

DATA: BEGIN OF itab_zycit003_aux1 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycie003.

DATA: slqtde LIKE /pws/zycie013-slqtde,

      uebto  LIKE ekpo-uebto,

      uebtk  LIKE ekpo-uebtk,

      noinitial,

      mark,

      idnlf         LIKE mepo1319-idnlf,

      invoiced LIKE /pws/zycie263-qtd_iten.

DATA: END OF itab_zycit003_aux1.

DATA: BEGIN OF itab_zycit134 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycie134.

DATA: matnr    LIKE /pws/zycit003-matnr,

      descr    LIKE /pws/zycit003-descr,

      qtd_iten LIKE /pws/zycit003-qtd_iten,

      slqtde   LIKE /pws/zycit013-slqtde,

      meins    LIKE /pws/zycit003-meins,

      mark.

DATA: END OF itab_zycit134.

DATA: BEGIN OF itab_zycit374 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit374.

DATA: mark,

      dele.

DATA: END OF itab_zycit374.

DATA: BEGIN OF itab_zycit396 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycie396.

DATA: marc,

      dele.

DATA: END OF itab_zycit396.

DATA: BEGIN OF itab_zycit396_aux1 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycie396.

DATA: END OF itab_zycit396_aux1.

DATA: BEGIN OF itab_zycit396_aux OCCURS 0.

        INCLUDE STRUCTURE /pws/zycie396.

DATA: marc,

      dele.

DATA: END OF itab_zycit396_aux.

DATA: BEGIN OF itab_zycit396aux OCCURS 0.

        INCLUDE STRUCTURE /pws/zycie396.

DATA: marc,

      dele.

DATA: END OF itab_zycit396aux.

DATA: BEGIN OF itab_zycit003_aux OCCURS 0.

       INCLUDE STRUCTURE /pws/zycie003.

.

DATA: slqtde LIKE /pws/zycie013-slqtde,

      uebto  LIKE ekpo-uebto,

      uebtk  LIKE ekpo-uebtk.

DATA: END OF itab_zycit003_aux.

DATA: BEGIN OF itab_zycit003_aux2 OCCURS 0.

.

        INCLUDE STRUCTURE /pws/zycie003.

DATA: slqtde LIKE /pws/zycie013-slqtde,

      uebto  LIKE ekpo-uebto,

      uebtk  LIKE ekpo-uebtk,

      noinitial,

      mark,

      idnlf         LIKE mepo1319-idnlf,

      invoiced LIKE /pws/zycie263-qtd_iten.

DATA: END OF itab_zycit003_aux2.

DATA: BEGIN OF itab_zycit003_del OCCURS 0.

DATA: ebeln     LIKE /pws/zycie003-ebeln,

      ebelp     LIKE /pws/zycie003-ebelp,

      qtd_iten  LIKE /pws/zycit003-qtd_iten,

      werks     LIKE /pws/zycie003-werks,

      itseqda   LIKE /pws/zycie003-itseqda,

END OF itab_zycit003_del.

DATA: BEGIN OF itab_zycit036_del OCCURS 0.

DATA: nrseq     LIKE /pws/zycie036-nrseq,

      ebeln     LIKE /pws/zycie036-ebeln,

      ebelp     LIKE /pws/zycie036-ebelp,

END OF itab_zycit036_del.

DATA: itab_zycit455_del LIKE /pws/zycit455 OCCURS 0 WITH HEADER LINE.

DATA t_zycit003 LIKE /pws/zycit003 OCCURS 0 WITH HEADER LINE.

DATA: BEGIN OF itab_zycit008 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit008.

DATA: END OF itab_zycit008.

DATA: BEGIN OF itab_zycit354 OCCURS 10.

        INCLUDE STRUCTURE /pws/zycit354.

DATA: END OF itab_zycit354.

DATA: BEGIN OF itab_zycit356 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit356.

DATA: END OF itab_zycit356.

DATA: BEGIN OF itab_ekko_aux OCCURS 0,

      ebeln LIKE ekko-ebeln,

      ekorg LIKE ekko-ekorg,

      ekgrp LIKE ekko-ekgrp,

END OF itab_ekko_aux.

DATA: BEGIN OF itab_aviso OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit125.

DATA: END OF itab_aviso.

DATA: it_zycit041 LIKE /pws/zycie041 OCCURS 0 WITH HEADER LINE,

      it_zycit042 LIKE /pws/zycie042 OCCURS 0 WITH HEADER LINE.

DATA: BEGIN OF itab_itens OCCURS 0,

        bukrs LIKE ekko-bukrs,

        waers LIKE ekko-waers,

        lifnr LIKE ekko-lifnr,

        aedat LIKE ekko-aedat,

        inco1 LIKE ekko-inco1,

        ebeln LIKE ekko-ebeln,

        ebelp LIKE ekpo-ebelp,

        loekz LIKE ekpo-loekz,

        werks LIKE ekpo-werks,

        bednr LIKE ekpo-bednr,

        menge LIKE ekpo-menge,

        ktmng LIKE ekpo-ktmng,

        bstyp LIKE ekpo-bstyp,

        meins LIKE ekpo-meins,

        ntgew LIKE ekpo-ntgew,

        gewei LIKE ekpo-gewei,

        netpr LIKE ekpo-netpr,

        txz01 LIKE ekpo-txz01,

        uebto LIKE ekpo-uebto,

        uebtk LIKE ekpo-uebtk,

        j_1bnbm LIKE ekpo-j_1bnbm,

        matnr LIKE ekpo-matnr,

        mtart LIKE ekpo-mtart,

        spras LIKE ekko-spras,

        idnlf LIKE ekpo-idnlf,

        elikz LIKE ekpo-elikz,

        wepos LIKE ekpo-wepos,

        webre LIKE ekpo-webre,

        j_1bmatuse LIKE ekpo-j_1bmatuse,

      END OF itab_itens.

DATA: BEGIN OF itab_divisao OCCURS 0,

        ebeln LIKE ekko-ebeln       ,

        ebelp LIKE ekpo-ebelp       ,

        gsber LIKE ekkn-gsber       ,

      END OF itab_divisao           .

DATA: BEGIN OF itab_divisao2 OCCURS 0,

        ebeln LIKE ekko-ebeln        ,

        ebelp LIKE ekpo-ebelp        ,

        gsber LIKE ekkn-gsber        ,

      END OF itab_divisao2           .

DATA: BEGIN OF itab_itens_aux OCCURS 50,

        ebeln      LIKE ekko-ebeln     ,

        inco1      LIKE ekko-inco1     ,

        spras      LIKE ekko-spras     ,

        ebelp      LIKE ekpo-ebelp     ,

        txz01      LIKE ekpo-txz01     ,

        menge      LIKE ekpo-menge     ,

        ktmng      LIKE ekpo-ktmng     ,

        bstyp      LIKE ekpo-bstyp     ,

        meins      LIKE ekpo-meins     ,

        ntgew      LIKE ekpo-ntgew     ,

        gewei      LIKE ekpo-gewei     ,

        netpr      LIKE ekpo-netpr     ,

        bednr      LIKE ekpo-bednr     ,

        uebto      LIKE ekpo-uebto     ,

        uebtk      LIKE ekpo-uebtk     ,

        loekz      LIKE ekpo-loekz     ,

        elikz      LIKE ekpo-elikz     ,

        j_1bnbm    LIKE ekpo-j_1bnbm   ,

        werks      LIKE ekpo-werks     ,

        lifnr      LIKE ekko-lifnr     ,

        j_1bmatuse LIKE ekpo-j_1bmatuse,

        matnr      LIKE ekpo-matnr     ,

        mtart      LIKE ekpo-mtart     ,

        mfrnr      LIKE ekpo-mfrnr     ,

      END OF itab_itens_aux            .

DATA: itab_itens_aux2 LIKE itab_itens_aux OCCURS 0 WITH HEADER LINE,

      itab_itens_aux3 LIKE itab_itens_aux OCCURS 0 WITH HEADER LINE,

      itab_zycit263   LIKE /pws/zycie263 OCCURS 0 WITH HEADER LINE,

      itab_zycit006   LIKE /pws/zycie006 OCCURS 0 WITH HEADER LINE.

DATA: BEGIN OF itab_itens_auxs OCCURS 0,

            kschl LIKE a016-kschl,

            ebeln LIKE ekpo-ebeln,

            ebelp LIKE ekpo-ebelp,

      END   OF itab_itens_auxs.

DATA: BEGIN OF it_ekbe OCCURS 0,

            ebeln LIKE ekbe-ebeln,

            ebelp LIKE ekbe-ebelp,

            zekkn LIKE ekbe-zekkn,

            vgabe LIKE ekbe-vgabe,

            gjahr LIKE ekbe-gjahr,

            belnr LIKE ekbe-belnr,

            buzei LIKE ekbe-buzei,

            menge LIKE ekbe-menge,

            shkzg LIKE ekbe-shkzg,

      END OF it_ekbe.

DATA: BEGIN OF itab_t006 OCCURS 0,

        msehi LIKE t006-msehi,

        zaehl LIKE t006-zaehl,

        nennr LIKE t006-nennr,

        exp10 LIKE t006-exp10,

      END OF itab_t006.

* << Fim da Inclusão

DATA: END OF COMMON PART a.

...