Sintoma

Desenvolvimento para reapuração parcial dos itens  de importação.

Solução

Desenvolvimento para reapuração parcial dos itens  de importação.

Informações Complementares

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

Nota Número 00768 Data: 01/02/2006 Hora: 14:26:24

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

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

Nota Número              : 00768

Categoria                : Melhoria

Prioridade               : Média

Versão PW.CE             : 6.0

Pacote                   : 00022

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

Texto Rápido:

REAPURAÇÃO PARCIAL DOS ITENS DE IMPORTAÇÃO

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

Palavras Chave:

ATO CONCESSÓRIO - REAPURAÇÃO - ITENS - IMPORTAÇÃO

/PWS/SAPMZYCI040

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

Objetos da nota:

REPS /PWS/MZYCI040F02

REPS /PWS/MZYCI040F03

REPS /PWS/MZYCI040TOP2

REPT /PWS/SAPMZYCI040

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

Modificações efetuadas em REPS /PWS/MZYCI040F02

...

ENDFORM.

FORM verifica_componentes2.

  DATA: v_subrc   LIKE sy-subrc       ,

        v_qtdbase LIKE itab_stko-bmeng,

        v_flag(1) TYPE c              ,

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

        v_erro_conv             ,

        v_verificp2_temp            .

* << Fim da exclusão

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

        v_erro_conv                   ,

        v_verificp2_temp              .

  DATA: itab_zycit245_rp LIKE itab_zycit245 OCCURS 0 WITH HEADER LINE.

* << Fim da inclusão

  CHECK /pws/zycie244-tipo NE 'G' AND /pws/zycie244-tipo NE 'F'.

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

    CHECK v_tcode2 NE '/PWS/ZYCI040_E'.

    IF v_verificp2_merc EQ 'S'.

      EXIT.

...

...

  ENDIF.

ENDFORM.

FORM confirm_expl_bom2 CHANGING p_flag.

  DATA: v_cfm(1) TYPE c,

        v_pergunta(128).

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

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

    CALL FUNCTION 'POPUP_TO_DECIDE_COMPL_QUEST'

      EXPORTING

       txt01                = text-295

        qtext                = text-296

        title                = text-300

   answer01             = text-297

   answer02             = text-298

   answer03             = text-299

   default_answer       = 'Y'

        length               = 60

 IMPORTING

       answer               = v_cfm

              .

    CLEAR: p_flag.

    CASE v_cfm.

      WHEN 'J'.

        p_flag = 'S'.

      WHEN 'N'.

        PERFORM reapura_parcial.

        p_flag = 'N'.

      WHEN 'A'.

        p_flag = 'N'.

    ENDCASE.

    CLEAR: v_exp_novo.

  ELSE.

* << Fim da inclusão

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

    v_pergunta = text-213.

  ELSE.

    v_pergunta = text-157.

  ENDIF.

...

...

    WHEN '1'.

      p_flag = 'S'.

    WHEN '2'.

      p_flag = 'N'.

  ENDCASE.

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

  ENDIF.

* << Fim da inclusão

ENDFORM.

FORM trata_button_trans2.

  DATA: v_resposta(1) TYPE c.

  IF itab_zycit247[] IS INITIAL.

    MESSAGE i015 WITH text-163 text-165.

...

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

Modificações efetuadas em REPS /PWS/MZYCI040F03

...

         AND posnr    = itab_comp_vinc-posnr

         AND codcomp  = itab_comp_vinc-codcomp.

ENDFORM.

form GERA_PRG_BTN2.

endform.

* >> Início da inclusão:

FORM reapura_parcial.

  DATA: itab_zycit245_rp LIKE itab_zycit245 OCCURS 0 WITH HEADER LINE.

  REFRESH: itab_zycit245_rp.

  itab_zycit245_rp[] = itab_zycit245[].

  CLEAR itab_zycit245.

  MODIFY itab_zycit245 TRANSPORTING qtd_tot qtd_ncm netpr_t vl_seg_t

                      WHERE nrseqd EQ /pws/zycie244-nrseqd.

  LOOP AT itab_zycit247.

    SELECT SINGLE * FROM /pws/zycit281

        WHERE matnr = itab_zycit247-codmat

          AND werks = itab_zycit247-werks.

    PERFORM explode_lista USING /pws/zycit281-matnr

                                /pws/zycit281-capid

                                /pws/zycit281-werks

                                /pws/zycit281-stlan

                                /pws/zycit281-stlnr

                                /pws/zycit281-stlal.

    LOOP AT i_final.

      READ TABLE itab_zycit245 WITH KEY

                               codcomp = i_final-insumo.

      IF sy-subrc NE 0.

        CONTINUE.

      ENDIF.

      i_final-qtunit = i_final-qtunit * itab_zycit247-qtd_iten.

      itab_zycit245-qtd_ncm = itab_zycit245-qtd_ncm + i_final-qtunit.

      PERFORM converte_um_base USING itab_zycit245-codcomp

                            CHANGING i_final-meins

                                     i_final-qtunit.

      itab_zycit245-qtd_tot = itab_zycit245-qtd_tot + i_final-qtunit.

      itab_zycit245-netpr_t = itab_zycit245-netpr_t +

          ( itab_zycit245-netpr * i_final-qtunit ).

      itab_zycit245-vl_seg_t =

        ( ( ( itab_zycit245-netpr + itab_zycit245-vl_frete )

               * itab_zycit245-pctseg ) / 100 ) * i_final-qtunit.

     MODIFY itab_zycit245 TRANSPORTING qtd_tot qtd_ncm netpr_t vl_seg_t

                          WHERE nritem EQ itab_zycit245-nritem.

    ENDLOOP.

  ENDLOOP.

  LOOP AT itab_zycit245 WHERE qtd_tot IS initial.

    read table itab_zycit245_rp with key nritem = itab_zycit245-nritem.

    itab_zycit245 = itab_zycit245_rp.

    modify itab_zycit245.

  ENDloop..

ENDFORM.

.

* << Fim da inclusão

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

Modificações efetuadas em REPS /PWS/MZYCI040TOP2

...

      v_stlnr            LIKE /pws/zycie247-stlnr             ,

      v_stlan            LIKE /pws/zycie247-stlan             ,

      v_stlal            LIKE /pws/zycie247-stlal             ,

      v_stfield          TYPE i                          ,

      v_agrup            TYPE c,

* >> Início da inclusão:

      v_exp_novo         TYPE c,

* << Fim da inclusão

      idmemory            LIKE indx-srtfd VALUE 'SEQD'   ,

      v_perc_vinc TYPE p DECIMALS 14,

      v_refkey  LIKE j_1bnflin-refkey                    ,

      v_refitm  LIKE j_1bnflin-refitm                    ,

      v_cols             TYPE cxtab_column           ,

...

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

Modificações efetuadas em REPT /PWS/SAPMZYCI040

Criar os textos:

Simbolo|Texto

295 |Foram realizados ajustes na pasta de exportação

296 |Reapurar os itens de Importação:

297 |Total

298 |Parcial

299 |Cancelar

300 |Reapurar