Sintoma

Ajustes para tratar Admissão Temporária com pagamento proporcional de impostos.

Solução

Ajustes para tratar Admissão Temporária com pagamento proporcional de impostos.

Informações Complementares

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

Nota Número 04082 Data: 03/07/2007 Hora: 07:24:30

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

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

Nota Número              : 04082

Categoria                : Melhoria

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00002

Agrupamento              : 00002

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

Referência às notas relacionadas:

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

03274  - 00001 - 7.0    - 00001  - ALTERAR SEQUENCIAL DO EMBARQUE QUANDO EMPRESA FOR ALTERADA.

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

PAGAMENTO PROPORCIONAL DE IMPOSTOS PARA ADMISSÃO TEMPORARIA.

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

Palavras Chave:

EMBARQUE - ADIMISSÃO - TEMPORARIA - IMPOSTOS - PROPORCIONAL

/PWS/SAPMZYCI001

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

Objetos da nota:

DYNP /PWS/SAPMZYCI001                        0109

REPS /PWS/MZYCI001F02

REPS /PWS/MZYCI001I01

REPS /PWS/MZYCI001O01

REPS /PWS/MZYCI001TOP

TABD /PWS/ZYCIE374

TABD /PWS/ZYCIT374

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

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

*Alterações no Layout:

   Nome

      Ctg.      Linha   Coluna  CmprDf  CmVis   Altura  Format Dict  Modif At.Des.Só At

      Gr1 Gr2 Gr3 Gr4  SPA GPA ID parâm             Cód.F                TCmp   TpoLoopExbLoop

      Outros atributos

* >> Início da inclusão:

 - /PWS/ZYCIE374-TP_PERMAN

      Texto      1        9      11       5       1     CHAR      X    F

      Título de coluna TC

 - /PWS/ZYCIE374-TP_VIDA_UTIL

      Texto      1       10       9       5       1     CHAR      X    F

      Título de coluna TC

 - /PWS/ZYCIE374-TP_PERMAN

      I/O        1        9       5      11       1     NUMC   X           Ent Off

      Elem.TC

 - /PWS/ZYCIE374-TP_VIDA_UTIL

      I/O        1       10       5      11       1     NUMC   X           Ent Off

      Elem.TC

* << Fim da inclusão

*Alterações no codigo fonte:

...

PROCESS AFTER INPUT.

  LOOP AT itab_zycit374.

* >> Início da inclusão:

    CHAIN.

      FIELD: /pws/zycie374-tp_perman,

             /pws/zycie374-tp_vida_util

             MODULE mod_374 ON CHAIN-REQUEST.

    ENDCHAIN.

* << Fim da inclusão

    MODULE: altera_itab_zycit374.

  ENDLOOP.

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

Modificações efetuadas em REPS /PWS/MZYCI001I01

...

        IF v_resposta EQ 'A'.

          CLEAR v_resposta.

          EXIT.

        ENDIF.

      ENDIF.

      SET PARAMETER ID '/PWS/ZYCIP001' FIELD /pws/zycie001-nrseq.

      CLEAR:

        v_resposta, v_cont,

        /pws/zycie001, /pws/zycie000, /pws/zycie000a, /pws/zycie003.

      FREE:

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

        itab_zycit003_aux2, itab_zycit374.

* << Fim da exclusão

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

        itab_zycit003_aux2.

* << Fim da inclusão

      IF sy-tcode = '/PWS/ZYCI001_C'

       OR okcode = '%EX'.

        CLEAR: v_dposto, v_ddespach, v_dagente.

        PERFORM unlock_pedido.

        LEAVE PROGRAM.

      ELSEIF okcode = 'BACK' AND /pws/zycie006-nrseq IS INITIAL

                             AND /pws/zycie004-nrseq IS INITIAL

                             AND /pws/zycie005-nrseq IS INITIAL.

        PERFORM unlock_record.

        PERFORM unlock_pedido.

...

...

        ENDLOOP.

      ENDIF.

    WHEN OTHERS.

      IF okcode NE 'SAVE'

      AND okcode NE 'ENTE'

      AND okcode NE 'FC_BX_TR'

      AND okcode NE 'FC_SD_TR'

      AND okcode NE 'DELE'

      AND okcode NE 'DESM'

      AND okcode NE 'MALL'.

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

        FREE itab_zycit374.

* << Fim da exclusão

      ENDIF.

      READ TABLE itab_zycit003 INDEX 1.

      MOVE itab_zycit003-waers TO v_moeda.

      LOOP AT itab_zycit003 WHERE waers NE v_moeda.

        v_waers_diferente = 'X'.

      ENDLOOP.

      IF sy-subrc NE 0.

        /pws/zycie001-waers = v_moeda.

      ENDIF.

      IF /pws/zycie001-regime NE '14'  AND

...

...

MODULE altera_itab_zycit374 INPUT.

  /pws/zycie374-slqtde =

            /pws/zycie374-qtd_iten - /pws/zycie374-qtd_baixa.

  MOVE:

        /pws/zycie374-ebeln       TO itab_zycit374-ebeln,

        /pws/zycie374-ebelp       TO itab_zycit374-ebelp,

        /pws/zycie374-matnr       TO itab_zycit374-matnr,

        /pws/zycie374-descr       TO itab_zycit374-descr,

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

        /pws/zycie374-tp_perman   TO itab_zycit374-tp_perman,

        /pws/zycie374-tp_vida_util TO itab_zycit374-tp_vida_util,

* << Fim da inclusão

        /pws/zycie374-qtd_iten    TO itab_zycit374-qtd_iten,

        /pws/zycie374-meins       TO itab_zycit374-meins,

        /pws/zycie374-slqtde      TO itab_zycit374-slqtde.

  MOVE:               mark          TO itab_zycit374-mark    .

  MODIFY itab_zycit374 INDEX tc_ped_tr-current_line.

ENDMODULE.

...

...

* >> Início da inclusão:

MODULE mod_374 INPUT.

  READ TABLE itab_zycit003 WITH KEY ebeln = /pws/zycie374-ebeln

                                    ebelp = /pws/zycie374-ebelp.

  IF NOT /pws/zycie374-tp_vida_util IS INITIAL AND

     NOT /pws/zycie374-tp_perman IS INITIAL.

    SELECT SINGLE nrseq FROM /pws/zycit100

      INTO itab_zycit003-nrseq

      WHERE nrseq EQ /pws/zycie001-nrseq.

    IF sy-subrc EQ 0.

      EXIT.

    ENDIF.

    itab_zycit003-advalii = itab_zycit003-aliqii *

           ( 1 - ( ( 12 * /pws/zycie374-tp_vida_util -

                   /pws/zycie374-tp_perman )

                     / ( 12 * /pws/zycie374-tp_vida_util ) ) ).

    itab_zycit003-advalipi = itab_zycit003-aliqipi *

           ( 1 - ( ( 12 * /pws/zycie374-tp_vida_util -

                   /pws/zycie374-tp_perman )

                     / ( 12 * /pws/zycie374-tp_vida_util ) ) ).

  ELSE.

    SELECT SINGLE nrseq FROM /pws/zycit100

      INTO itab_zycit003-nrseq

      WHERE nrseq EQ /pws/zycie001-nrseq.

    IF sy-subrc EQ 0.

      EXIT.

    ENDIF.

    CLEAR: itab_zycit003.

  ENDIF.

  MODIFY itab_zycit003 TRANSPORTING advalii advalipi

              WHERE ebeln = /pws/zycie374-ebeln

                AND ebelp = /pws/zycie374-ebelp.

ENDMODULE.

* << Fim da inclusão

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

Modificações efetuadas em REPS /PWS/MZYCI001O01

...

          IF /pws/zycie134-desp_at_ad = 'INDEFIRO'.

            screen-input = '1'.

            MODIFY SCREEN.

          ELSE.

            screen-input = '0'.

            MODIFY SCREEN.

            CLEAR /pws/zycie134-justifica_3.

          ENDIF.

        ENDIF.

      ENDLOOP.

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

    WHEN '0109'.

      LOOP AT tc_ped_tr-cols INTO wa_cols.

        IF v_status_s = 0 or not /pws/zycit085 is initial.

          IF wa_cols-screen-name EQ '/PWS/ZYCIE374-TP_PERMAN' OR

             wa_cols-screen-name EQ '/PWS/ZYCIE374-TP_VIDA_UTIL' .

            wa_cols-screen-input = '0'.

            MODIFY tc_ped_tr-cols FROM wa_cols.

          ENDIF.

        ELSE.

          IF wa_cols-screen-name EQ '/PWS/ZYCIE374-TP_PERMAN' OR

             wa_cols-screen-name EQ '/PWS/ZYCIE374-TP_VIDA_UTIL' .

            wa_cols-screen-input = '1'.

            MODIFY tc_ped_tr-cols FROM wa_cols.

          ENDIF.

        ENDIF.

      ENDLOOP.

* << Fim da inclusão

    WHEN '0500'.

      IF v_status_s EQ 0.

        LOOP AT SCREEN.

          screen-input = '0'.

          MODIFY SCREEN.

        ENDLOOP.

      ELSEIF v_status_s EQ 1.

        LOOP AT SCREEN.

          IF NOT itab_vincula-ebeln IS INITIAL AND

             NOT itab_vincula-ebelp IS INITIAL.

...

...

MODULE move_itab OUTPUT.

  MOVE: itab_zycit374-nrseq     TO /pws/zycie374-nrseq,

        itab_zycit374-ebeln     TO /pws/zycie374-ebeln,

        itab_zycit374-ebelp     TO /pws/zycie374-ebelp,

        itab_zycit374-matnr     TO /pws/zycie374-matnr,

        itab_zycit374-qtd_baixa TO /pws/zycie374-qtd_baixa,

        itab_zycit374-descr     TO /pws/zycie374-descr,

        itab_zycit374-meins     TO /pws/zycie374-meins,

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

        itab_zycit374-tp_perman   TO /pws/zycie374-tp_perman,

        itab_zycit374-tp_vida_util TO /pws/zycie374-tp_vida_util,

* << Fim da inclusão

        itab_zycit374-dtbaixa   TO /pws/zycie374-dtbaixa,

        itab_zycit374-qtd_iten  TO /pws/zycie374-qtd_iten.

  MOVE               itab_zycit374-mark  TO mark.

/pws/zycie374-slqtde = /pws/zycie374-qtd_iten - /pws/zycie374-qtd_baixa.

  DESCRIBE TABLE itab_zycit374 LINES v_line.

ENDMODULE.

...

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

Modificações efetuadas em TABD /PWS/ZYCIE374

Nome campo   Elem.dados    Tab.verif. N CtDt Comp.

...

TP_DOC       /PWS/ZYGLL927              CHAR    10

NUM_DOC      /PWS/ZYGLL928              CHAR    15

DT_DOC       /PWS/ZYGLL929              DATS     8

* >> Início da inclusão:

TP_PERMAN    NUMC5                      NUMC     5

TP_VIDA_UTIL NUMC5                      NUMC     5

* << Fim da inclusão

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

Modificações efetuadas em TABD /PWS/ZYCIT374

Nome campo   Chv Elem.dados    Tab.verif. N CtDt Comp.

...

TP_DOC           /PWS/ZYGLL927              CHAR    10

NUM_DOC          /PWS/ZYGLL928              CHAR    15

DT_DOC           /PWS/ZYGLL929              DATS     8

* >> Início da inclusão:

TP_PERMAN        NUMC5                      NUMC     5

TP_VIDA_UTIL     NUMC5                      NUMC     5

* << Fim da inclusão