Sintoma

Melhoria

Solução

Inserido o Icone e tratamento da DA na Tela do Embarque.

Informações Complementares

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

Nota Número 00774 Data: 02/02/2006 Hora: 09:52:44

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

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

Nota Número              : 00774

Categoria                : Melhoria

Prioridade               : Média

Versão PW.CE             : 6.0

Pacote                   : 00022

Agrupamento              : 00098

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

Referência às notas relacionadas:

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

01268  - 00001 - 6.0    - 00023  - DESENVOLVIMENTO ENTREPOSTO ADUANEIRO

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

ENTREPOSTO ADUANEIRO

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

Palavras Chave:

ENTREPOSTO ADUANEIRO

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

Objetos da nota:

DYNP /PWS/SAPMZYCI001                        0101

REPS /PWS/MZYCI001F01

REPS /PWS/MZYCI001F03

REPS /PWS/MZYCI001I01

REPS /PWS/MZYCI001O01

REPS /PWS/MZYCI001TOP

REPS /PWS/MZYCI001X01

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

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

Foram Eliminados os campos abaixo da Tela 0101.

/PWS/ZYCIE001-DT_ENT_DE

/PWS/ZYCIE001-DT_ENT_ATE

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

Modificações efetuadas em REPS /PWS/MZYCI001F01

...

  ELSE.

    PERFORM valida_trans USING '/PWS/ZYCI018_C' 'skip'.

  ENDIF.

ENDFORM.

FORM call_di.

* >> Início da exclusão: FORM CALL_DI

  DATA: v_nrseqdi LIKE /pws/zycie085-nrseqdi VALUE space,

        v_qtd_iten LIKE itab_zycit003-invoiced          .

* << Fim da exclusão

  EXPORT /pws/zycie001-nrseq TO MEMORY ID rimc7.

  LOOP AT itab_zycit003.

    v_qtd_iten = itab_zycit003-qtd_iten.

    IF itab_zycit003-invoiced NE v_qtd_iten AND

       itab_zycit003-servico NE 'X'.

...

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

Modificações efetuadas em REPS /PWS/MZYCI001F03

...

    for all entries in itab_zycit003

    where ebeln eq itab_zycit003-ebeln

    and   ebelp eq itab_zycit003-ebelp.

  endif.

endform.

* >> Início da inclusão:

form call_da.

  EXPORT /pws/zycie001-nrseq TO MEMORY ID rimc7.

  LOOP AT itab_zycit003.

    v_qtd_iten = itab_zycit003-qtd_iten.

    IF itab_zycit003-invoiced NE v_qtd_iten AND

       itab_zycit003-servico NE 'X'.

      MESSAGE e061 WITH text-046 itab_zycit003-ebeln

                                 itab_zycit003-ebelp text-193.

      EXIT.

    ELSEIF v_consist = 'X'.

      MESSAGE e015 WITH text-048.

      EXIT.

    ENDIF.

  ENDLOOP.

  IF /pws/zycie001-tpdecl IS INITIAL.

    EXIT.

  ENDIF.

  IF NOT itab_zycit003[] IS INITIAL.

    SELECT * FROM /pws/zycit443

       INTO TABLE itab_zycit443

       FOR ALL ENTRIES IN itab_zycit003

       WHERE nrseq EQ itab_zycit003-nrseq

       AND   ebeln EQ itab_zycit003-ebeln

       AND   ebelp EQ itab_zycit003-ebelp.

    IF sy-subrc EQ 0.

      READ TABLE itab_zycit443 INDEX 1.

      IF sy-subrc EQ 0.

        SELECT SINGLE * FROM /pws/zycit442

            WHERE nrseqda = itab_zycit443-nrseqda.

        v_nrseqda = /pws/zycit442-nrseqda.

      ENDIF.

      SET PARAMETER ID '/PWS/ZYCIP442' FIELD v_nrseqda.

      EXPORT v_nrseqda TO MEMORY ID rimc1.

      IF /pws/zycie001-tpdecl = 'DI'.

        IF sy-tcode EQ '/PWS/ZYCI001_A' OR sy-tcode EQ '/PWS/ZYCI001_C'.

          PERFORM valida_trans USING '/PWS/ZYCI070_A' 'skip'.

        ELSE.

          PERFORM valida_trans USING '/PWS/ZYCI070_E' 'skip'.

        ENDIF.

      ENDIF.

    ELSE.

      SELECT SINGLE * FROM /pws/zycit093

         WHERE nrseqce = /pws/zycit094-nrseqce.

      IF sy-subrc EQ 0.

        MOVE-CORRESPONDING /pws/zycit093 TO wa_zycie085.

        MOVE: /pws/zycit093-nrseqce TO wa_zycie442-nrbl,

              /pws/zycie001-embarca TO wa_zycie442-identify.

        EXPORT wa_zycie442 TO MEMORY ID rimc4.

        IF /pws/zycie001-tpdecl EQ 'DI'.

          IF sy-tcode NE '/PWS/ZYCI001_E'.

            PERFORM valida_trans USING '/PWS/ZYCI070_C' ''.

          ELSE.

            MESSAGE e015 WITH text-166.

          ENDIF.

        ENDIF.

        FREE wa_zycie442.

      ENDIF.

    ENDIF.

    PERFORM recuperando_itens.

  ELSE.

    MESSAGE i015 WITH text-026.

  ENDIF.

endform.

* << Fim da inclusão

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

Modificações efetuadas em REPS /PWS/MZYCI001I01

...

        CALL SCREEN '0800'.

      WHEN 'DLEGAIS'.

        PERFORM call_dados_legais.

      WHEN 'ZYCET042'.

        CALL TRANSACTION '/PWS/ZYCET042'.

* >> Início da inclusão: MODULE USER_COMMAND_0050

      WHEN 'DA'.

        IF v_status_s NE 0.

          PERFORM grava_tabelas.

        ENDIF.

        PERFORM call_da.

        SELECT SINGLE status

               FROM /pws/zycit001

               INTO /pws/zycie001-status

               WHERE nrseq = /pws/zycie001-nrseq.

* << Fim da inclusão

    ENDCASE.

  ENDIF.

  CLEAR okcode.

ENDMODULE.

MODULE user_command_0002 INPUT.

...

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

Modificações efetuadas em REPS /PWS/MZYCI001O01

...

              screen-input = 1.

              MODIFY SCREEN.

            ENDIF.

          ENDIF.

        ENDIF.

* >> Início da exclusão: MODULE SET_SCREEN

        IF screen-name = '/PWS/ZYCIE001-DT_ENT_DE' OR

           screen-name = '/PWS/ZYCIE001-DT_ENT_ATE'.

          IF /pws/zycie001-regime = '02' AND v_status_s = 0.

            screen-input = 0.

            screen-invisible = 0.

          ELSEIF /pws/zycie001-regime = '02'.

            screen-input = 1.

            screen-invisible = 0.

          ELSE.

            screen-input = 0.

            screen-invisible = 1.

          ENDIF.

          MODIFY SCREEN.

        ENDIF.

* << Fim da exclusão

        IF screen-name EQ '/PWS/ZYCIE001-NRDESPADU'.

          IF NOT /pws/zycit000-oil IS INITIAL.

            screen-required = '1'.

          ELSE.

            screen-required = 0  .

...

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

Modificações efetuadas em REPS /PWS/MZYCI001TOP

...

      END OF wa093.

DATA: wa_zycit001  LIKE /pws/zycie001,

      wa_zycit003  LIKE itab_zycit003,

      wa_selemb    LIKE /pws/zycie094,

      wa_zycie085  LIKE /pws/zycie085,

* >> Início da inclusão:

      wa_zycie442  LIKE /pws/zycie442,

* << Fim da inclusão

      wa_thead     LIKE thead   ,

      wa_thead2    LIKE thead   ,

      wa_thead3    LIKE thead   ,

      wa_thead4    LIKE thead   ,

      wa_zycit134  LIKE /pws/zycie134,

...

...

  v_txtkey4       LIKE thead-tdname,

  v_field(30)                               ,

  v_field2(30)                              ,

  v_tot_qtd_baixa  LIKE /pws/zycie374a-qtd_baixa,

  v_descrimp          LIKE j_1bbranch-name  ,

* >> Início da exclusão:

  v_nrseqdi           LIKE /pws/zycit100-nrseqdi ,

* << Fim da exclusão

  v_modi_cria(1)                            ,

  v_ip                LIKE sy-tabix         ,

  i_nrseq             LIKE /pws/zycit001-nrseq   ,

  v_ebeln_vin         LIKE /pws/zycit079-ebeln   ,

  v_ebelp_vin         LIKE /pws/zycit079-ebelp   ,

...

...

DATA: v_despach LIKE /pws/zycit003-lifnr,

      v_nrseq   LIKE /pws/zycit001-nrseq,

      v_werks   LIKE /pws/zycit003-werks,

      v_werks_prod TYPE  boole,

      v_tot_ntgew LIKE /pws/zycit003-ntgew.

* >> Início da inclusão:

  DATA: v_nrseqdi LIKE /pws/zycie085-nrseqdi VALUE space,

        v_nrseqda LIKE /pws/zycie442-nrseqda VALUE space,

        v_qtd_iten LIKE itab_zycit003-invoiced          .

* << Fim da inclusão

SELECTION-SCREEN BEGIN OF SCREEN 0104.

SELECT-OPTIONS : so_iemb FOR /pws/zycie010-nrseq NO INTERVALS.

SELECTION-SCREEN END OF SCREEN 0104.

SELECTION-SCREEN BEGIN OF SCREEN 0300.

PARAMETERS:     pa_bukrs LIKE /pws/zycie001-bukrs DEFAULT

...

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

Modificações efetuadas em REPS /PWS/MZYCI001X01

tables:

  /pws/zycit001,

  /pws/zycie001,

  /pws/zycit003,

  /pws/zycie003,

* >> Início da exclusão:

  /pws/zyglt217.

* << Fim da exclusão

* >> Início da inclusão:

  /pws/zyglt217,

  /pws/zycit442,

  /pws/zycit443.

* << Fim da inclusão

* >> Início da exclusão:

data: begin of common part a.

* << Fim da exclusão

* >> Início da inclusão:

data: begin of common part a.

* << Fim da inclusão

DATA: BEGIN OF itab_zycit003 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycie003.

DATA: slqtde LIKE /pws/zycie013-slqtde,

      uebto  LIKE ekpo-uebto,

      uebtk  LIKE ekpo-uebtk,

...

...

data: begin of itab_fabric occurs 0.

data:   ebeln like ekpo-ebeln,

        ebelp like ekpo-ebelp,

        mfrnr like ekpo-mfrnr.

data: end of itab_fabric.

* >> Início da inclusão:

DATA: BEGIN OF itab_zycit442 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit442.

DATA: END OF itab_zycit442.

DATA: BEGIN OF itab_zycit443 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit443.

DATA: END OF itab_zycit443.

* << Fim da inclusão

data: end of common part a.