Sintoma

Controle do ciplo produtivo dos materiais exportados.

Solução

Novo controle de ciclo produtivo na composição de isenção.

Informações Complementares

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

Nota Número 06855 Data: 26/06/2008 Hora: 11:10:45

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

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

Nota Número              : 06855

Categoria                : Melhoria

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00006

Agrupamento              : 00054

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

Referência às notas relacionadas:

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

05439  - 00001 - 7.0    - 00004  - PERFORMANCE

06470  - 00002 - 7.0    - 00005  - AJUSTES NO CALCULO DO VALOR E PESO LIQUIDO PARA COMPOSIÇÃO ISENÇÃ

06556  - 00003 - 7.0    - 00005  - ATUALIZAÇÃO DA VINCULAÇÃO DAS DI'S

06667  - 00004 - 7.0    - 00005  - DESENVOLVIMENTO COMPOSIÇÃO ISENÇÃO INTERMEDIARIO IMPORTADOR

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

CONTROLE DE CICLO PRODUTIVO (DIAS PARA PRODUÇÃO)

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

Palavras Chave:

DRAWBACK COMPOSIÇÃO ISENÇÃO CICLO PRODUTIVO

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

Objetos da nota:

DYNP /PWS/SAPMZYCI064                        0003

REPS /PWS/MZYCI064F03

REPS /PWS/MZYCI064X01

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

Modificações efetuadas em DYNP /PWS/SAPMZYCI064                        0003

* Retirar a verificação de chave externa do campo "/PWS/ZYCIE258-NRSEQD"

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

Modificações efetuadas em REPS /PWS/MZYCI064F03

...

                itab_zycet002-vlfrete_r TO itab_det_exp_final-vlfre   ,

                itab_zycet002-vrkme     TO itab_det_exp_final-meins   ,

                itab_zycet002-fkimg     TO itab_det_exp_final-qtd_iten,

                itab_re_final-waers     TO itab_det_exp_final-waersfob,

                itab_re_final-waers     TO itab_det_exp_final-waerscif,

                itab_re_final-vfob      TO itab_det_exp_final-vlfob   ,

                itab_re_final-waers     TO itab_det_exp_final-waersemb,

                itab_re_final-vfob      TO itab_det_exp_final-vlfobemb,

                itab_re_final-netpr     TO itab_det_exp_final-vlcif   ,

                v_nrre_temp             TO itab_det_exp_final-nrre    .

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

              IF /pws/zycit321-ltopc NE '1'.

               MOVE itab_zycit281-nrdprod TO itab_det_exp_final-nrdprod.

              ELSE.

               MOVE itab_zycit423-nrdprod TO itab_det_exp_final-nrdprod.

              ENDIF.

* << Fim da inclusão

              itab_det_exp_final-waersfre = 'USD'.

              IF itab_det_exp_final-gewei IS INITIAL.

                SELECT SINGLE * FROM mara

                 INTO mara

                  WHERE matnr EQ itab_re_final-matnr.

                MOVE mara-gewei TO itab_det_exp_final-gewei.

              ENDIF.

              READ TABLE itab_mess_un WITH KEY meins =

                                               itab_det_exp_final-meins

                                      matnr = itab_det_exp_final-codmat.

...

...

    INSERT INTO /pws/zycit285 VALUES it_zycit285.

    MOVE text-194 TO v_mensagem.

  ENDIF.

  IF sy-subrc EQ 0.

    MESSAGE i015 WITH v_mensagem(42) v_mensagem+42(50).

  ELSE.

    MESSAGE e015 WITH text-196.

  ENDIF.

ENDFORM.

FORM trata_sequencial.

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

  WRITE /pws/zycie244-nrseqd TO /pws/zycie244-nrseqd RIGHT-JUSTIFIED.

  OVERLAY /pws/zycie244-nrseqd WITH '0000000000'.

* << Fim da exclusão

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

  WRITE /pws/zycie258-nrseqd TO /pws/zycie258-nrseqd RIGHT-JUSTIFIED.

  OVERLAY /pws/zycie258-nrseqd WITH '0000000000'.

* << Fim da inclusão

ENDFORM.

FORM trata_button_doc.

  CONSTANTS: c_docimp LIKE /pws/zycet067-codmod  VALUE 'D',

             c_drw_is LIKE /pws/zycet067-progreq VALUE 'DRW'.

  REFRESH: itab_forms.

  SELECT *

    FROM /pws/zycet067

    INTO TABLE itab_forms

    WHERE codmod  EQ c_docimp AND

          progreq EQ c_drw_is.

...

...

                    codcomp = itab_comp_vinc_final-codcomp.

        IF sy-subrc NE 0.

          DELETE itab_comp_vinc_final

                WHERE codcomp EQ itab_comp_vinc_final-codcomp.

          CONTINUE.

        ENDIF.

      ENDIF.

      IF NOT itab_det_exp-dtre IS INITIAL.

        v_dtini = /pws/zycie258-dtpr.

        v_dtini(4) = v_dtini(4) - 2.

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

        v_dtfim = itab_det_exp-dtre.

* << Fim da exclusão

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

        v_dtfim = itab_det_exp-dtre - itab_det_exp-nrdprod.

* << Fim da inclusão

      ELSE.

        v_dtini = /pws/zycie258-dtpr.

        v_dtini(4) = v_dtini(4) - 2.

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

        v_dtfim = itab_det_exp-dtnf.

* << Fim da exclusão

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

        v_dtfim = itab_det_exp-dtnf - itab_det_exp-nrdprod.

* << Fim da inclusão

      ENDIF.

...

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

Modificações efetuadas em REPS /PWS/MZYCI064X01

...

DATA: itab_msg_erro_aux LIKE itab_msg_erro OCCURS 0 WITH HEADER LINE.

DATA:

      v_dtini           LIKE /pws/zycee116-dtincl             ,

      v_codigo          LIKE /pws/zycie371-codigo             ,

      v_dtfim           LIKE /pws/zycee116-dtincl             .

DATA: BEGIN OF itab_det_exp OCCURS 0.

        INCLUDE STRUCTURE /pws/zycie259.

DATA: it_docfat  LIKE /pws/zycit373-it_docfat,

      fornec     LIKE /pws/zycit373-fornec   ,

      it_fornec  LIKE /pws/zycit373-it_fornec,

* >> Início da exclusão:

      matnr      LIKE /pws/zycit372-matnr    .

* << Fim da exclusão

* >> Início da inclusão:

      matnr      LIKE /pws/zycit372-matnr    ,

      nrdprod    LIKE /pws/zycit281-nrdprod  .

* << Fim da inclusão

DATA: marcd_l(1) TYPE c.

DATA: END OF itab_det_exp.

DATA: BEGIN OF itab_det_exp_final OCCURS 0.

        INCLUDE STRUCTURE /pws/zycie259.

DATA: it_docfat  LIKE /pws/zycit373-it_docfat,

      fornec     LIKE /pws/zycit373-fornec   ,

      it_fornec  LIKE /pws/zycit373-it_fornec,

* >> Início da exclusão:

      matnr      LIKE /pws/zycit372-matnr    .

* << Fim da exclusão

* >> Início da inclusão:

      matnr      LIKE /pws/zycit372-matnr    ,

      nrdprod    LIKE /pws/zycit281-nrdprod  .

* << Fim da inclusão

DATA: marcd_l(1) TYPE c.

DATA: END OF itab_det_exp_final.

DATA: itab_det_exp_dele LIKE itab_det_exp_final

                                      OCCURS 0 WITH HEADER LINE.

DATA: itab_zycit423 TYPE /pws/zycit423 OCCURS 0 WITH HEADER LINE,

      itab_zycit422 TYPE /pws/zycit422 OCCURS 0 WITH HEADER LINE,

      itab_zycit421 TYPE /pws/zycit421 OCCURS 0 WITH HEADER LINE,

      itab_mvke     TYPE mvke OCCURS 0 WITH HEADER LINE.

DATA: BEGIN OF itab_names OCCURS 0,

        werks TYPE /pws/zycit434-werks,

...