Sintoma

Acrescentada pasta resumo do realizado de exportação e importação para o atoconcessório comum por

ncm.

Solução

Acrescentada pasta resumo do realizado de exportação e importação para o atoconcessório comum por

ncm.

Informações Complementares

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

Nota Número 01359 Data: 17/05/2006 Hora: 14:26:36

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

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

Nota Número              : 01359

Categoria                : Melhoria

Prioridade               : Média

Versão PW.CE             : 6.0

Pacote                   : 00023

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

Texto Rápido:

PASTA RESUMO PARA ATO CONCESSÓRIO COMUM POR NCM

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

Palavras Chave:

ATO CONCESSÓRIO - PASTA - RESUMO - IMPORTAÇÃO - EXPORTAÇÃO

/PWS/SAPMZYCI040

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

Objetos da nota:

DYNP /PWS/SAPMZYCI040                        0224

REPS /PWS/MZYCI040F02

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

Modificações efetuadas em DYNP /PWS/SAPMZYCI040                        0224

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

Modificações efetuadas em REPS /PWS/MZYCI040F02

...

          MODIFY SCREEN.

        ELSEIF /pws/zycie244-modalidade NE 'I' AND

               ( /pws/zycie244-tipo NE 'G' AND /pws/zycie244-tipo NE 'F'

 ).

          screen-invisible = 1.

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

          IF /pws/zycit321-c_comum EQ 'X' AND

             /pws/zycie244-tipo    EQ 'C'.

            screen-invisible = 0.

          ENDIF.

* << Fim da inclusão

          MODIFY SCREEN.

        ENDIF.

      WHEN 'FS_DICOMP'.

        IF /pws/zycie244-modalidade EQ 'S'.

          screen-invisible = 1.

...

...

          MODIFY SCREEN.

        ELSEIF /pws/zycie244-modalidade NE 'I' AND

               ( /pws/zycie244-tipo NE 'G' AND /pws/zycie244-tipo NE 'F'

 ).

          screen-invisible = 1.

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

          IF /pws/zycit321-c_comum EQ 'X' AND

             /pws/zycie244-tipo    EQ 'C'.

            screen-invisible = 0.

          ENDIF.

* << Fim da inclusão

          MODIFY SCREEN.

        ENDIF.

      WHEN 'FS_RECOMP2'.

        IF /pws/zycie244-modalidade EQ 'S'.

          screen-invisible = 1.

...

...

  LOOP AT itab_zycit248_final.

    IF /pws/zycie244-tipo EQ 'G'.

      CHECK itab_zycit248_final-nritem  EQ /pws/zycie247c-nritem AND

            itab_zycit248_final-j_1bnbm EQ /pws/zycie247c-j_1bnbm.

    ELSE.

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

      CHECK itab_zycit248_final-nritem  EQ /pws/zycie247c-nritem AND

            itab_zycit248_final-codmat  EQ /pws/zycie247c-codmat.

* << Fim da exclusão

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

      CHECK itab_zycit248_final-nritem  EQ /pws/zycie247c-nritem.

* << Fim da inclusão

    ENDIF.

    MOVE-CORRESPONDING itab_zycit248_final TO itab_zycit248.

    APPEND itab_zycit248.

  ENDLOOP.

  CLEAR: itab_zycit248_res. REFRESH: itab_zycit248_res.

...

...

        itab_zycit245-j_1bnbm  TO /pws/zycie245c-j_1bnbm ,

        itab_zycit245-werks    TO /pws/zycie245c-werks   ,

        itab_zycit245-waers    TO /pws/zycie245c-waers   ,

        itab_zycit245-netpr_t  TO /pws/zycie245c-netpr_t ,

        itab_zycit245-meins    TO /pws/zycie245c-meins   .

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

  MOVE: itab_zycit245-qtd_tot TO /pws/zycie245c-qtd_iten.

* << Fim da exclusão

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

  MOVE: itab_zycit245-qtd_ncm TO /pws/zycie245c-qtd_ncm.

* << Fim da inclusão

  IF /pws/zycie244-tipo NE 'F'.

    CLEAR: itab_zycit246. REFRESH: itab_zycit246.

    LOOP AT itab_zycit246_final.

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

      CHECK itab_zycit246_final-nritem  EQ /pws/zycie245c-nritem

        AND itab_zycit246_final-codcomp EQ /pws/zycie245c-codcomp.

* << Fim da exclusão

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

      CHECK itab_zycit246_final-nritem  EQ /pws/zycie245c-nritem.

* << Fim da inclusão

      MOVE-CORRESPONDING itab_zycit246_final TO itab_zycit246.

      APPEND itab_zycit246.

    ENDLOOP.

  ELSE.

    CLEAR: itab_zycit246. REFRESH: itab_zycit246.

    LOOP AT itab_zycit246_final.

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

      CHECK itab_zycit246_final-nritem  EQ /pws/zycie245c-nritem

        AND itab_zycit246_final-j_1bnbm EQ /pws/zycie245c-j_1bnbm.

* << Fim da exclusão

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

      CHECK itab_zycit246_final-nritem  EQ /pws/zycie245c-nritem.

* << Fim da inclusão

      MOVE-CORRESPONDING itab_zycit246_final TO itab_zycit246.

      APPEND itab_zycit246.

    ENDLOOP.

  ENDIF.

  CLEAR: itab_zycit246_res. REFRESH: itab_zycit246_res.

...