Sintoma

Programa não esta calculando corretamente o saldo para tranferencia de saldo para atos concessórios

Genéricos e a pasta nascionalização não esta trasendo todos os insumos importados quando o ato

concessório cumum é controlado por ncm.

Solução

Ajustar verificação das quantidades nacionalizada para verificar o material corrente e ajustar

tratamento da nacionalização para tratamento de atos comum por NCM.

Informações Complementares

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

Nota Número 01536 Data: 07/06/2006 Hora: 09:16:29

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

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

Nota Número              : 01536

Categoria                : Erro de Programa

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:

AJUSTE NA NACIONALIZAÇÃO DE ATOS COMUM POR NCM E NO CALCULO DE TRANSF.

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

Palavras Chave:

ATO - CONCESSÓRIO - NACIONALIZAÇÃO - TRANSFERENCIA - SALDO

NACIONALIZAÇÃO - /PWS/SAPMZYCI040 -

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

Objetos da nota:

REPS /PWS/MZYCI040F02

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

Modificações efetuadas em REPS /PWS/MZYCI040F02

...

  ENDIF.

ENDFORM.

FORM trata_tab_nacion.

  DATA: v_marcados3 TYPE i VALUE 0,

        v_datatx LIKE /pws/zycit246-dtdi.

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

  READ TABLE itab_zycit245 WITH KEY codcomp = itab_resumo_ap-matnr.

* << Fim da exclusão

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

  CLEAR: itab_zycit246_final, itab_zycit245.

  READ TABLE itab_zycit246_final WITH KEY matnr = itab_resumo_ap-matnr.

  READ TABLE itab_zycit245 WITH KEY nritem = itab_zycit246_final-nritem.

* << Fim da inclusão

  MOVE: sy-tabix TO v_indicatu2.

  MOVE: itab_zycit245-nritem   TO /pws/zycie245c-nritem  ,

        itab_zycit245-nritem   TO i_nritem          ,

        itab_zycit245-nritem   TO i_nritem2         ,

        itab_zycit245-maktx    TO v_descr2_0210     ,

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

        itab_zycit245-codcomp  TO /pws/zycie245c-codcomp ,

* << Fim da exclusão

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

        itab_resumo_ap-matnr   TO /pws/zycie245c-codcomp ,

* << Fim da inclusão

        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   .

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

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

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

* << Fim da exclusão

    CLEAR: itab_zycit246. REFRESH: itab_zycit246.

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

    LOOP AT itab_zycit246_final.

      CHECK itab_zycit246_final-nritem  EQ /pws/zycie245c-nritem

        AND itab_zycit246_final-codcomp EQ /pws/zycie245c-codcomp

        AND itab_zycit246_final-qtd_ncm >

* << Fim da exclusão

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

  LOOP AT itab_zycit246_final WHERE matnr EQ itab_resumo_ap-matnr.

    CHECK itab_zycit246_final-qtd_ncm >

* << Fim da inclusão

                                   itab_zycit246_final-qtd_compv.

      MOVE-CORRESPONDING itab_zycit246_final TO itab_zycit246.

      APPEND itab_zycit246.

    ENDLOOP.

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

  ELSE.

    CLEAR: itab_zycit246. REFRESH: itab_zycit246.

    LOOP AT itab_zycit246_final.

      CHECK itab_zycit246_final-nritem  EQ /pws/zycie245c-nritem

        AND itab_zycit246_final-j_1bnbm EQ /pws/zycie245c-j_1bnbm

        AND itab_zycit246_final-qtd_ncm >

                                   itab_zycit246_final-qtd_compv.

      MOVE-CORRESPONDING itab_zycit246_final TO itab_zycit246.

      APPEND itab_zycit246.

    ENDLOOP.

  ENDIF.

* << Fim da exclusão

ENDFORM.

FORM check_button_first_0210.

  MOVE: 1 TO v_indicatu2.

  LOOP AT itab_zycit245 WHERE markci = 'X'.

    itab_zycit245-markci = ' '.

...

...

  REFRESH itab_zycit279_ap_aux.

  CLEAR itab_zycit279_ap.

  MODIFY itab_zycit279_ap TRANSPORTING mark

              WHERE mark EQ 'X'.

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

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

    READ TABLE itab_zycit246_final WITH KEY

                  matnr = itab_resumo_ap-matnr.

* << Fim da inclusão

    READ TABLE itab_zycit245 WITH KEY

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

                  codcomp = itab_resumo_ap-matnr.

* << Fim da exclusão

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

                  nritem = itab_zycit246_final-nritem.

* << Fim da inclusão

    /pws/zycie245 = itab_zycit245.

    /pws/zycie245-meins = itab_zycit245-um_ncm.

    /pws/zycie245-qtd_transf = itab_resumo_ap-qtd_di *

        ( /pws/zycie245-transf / 100 ).

    v_saldo_transf = /pws/zycie245-qtd_transf.

...

...

      APPEND itab_zycit279_ap_aux.

    ENDLOOP.

  ELSE.

    READ TABLE itab_zycit245 INDEX 1.

    /pws/zycie245 = itab_zycit245.

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

    /pws/zycie245-qtd_transf = itab_resumo_ap-qtd_di *

        ( /pws/zycie245-transf / 100 ).

* << Fim da inclusão

    v_saldo_transf = /pws/zycie245-qtd_transf.

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

    LOOP AT itab_zycit279_ap WHERE esgotado EQ space.

* << Fim da exclusão

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

    LOOP AT itab_zycit279_ap WHERE matnr    EQ itab_resumo_ap-matnr

                               AND esgotado EQ space.

* << Fim da inclusão

      itab_zycit279_ap_aux = itab_zycit279_ap.

      IF NOT itab_zycit279_ap_aux-qtd_transf IS INITIAL.

        v_saldo_transf = v_saldo_transf -

              itab_zycit279_ap_aux-qtd_transf.

        itab_zycit279_ap_aux-mark = 'X'.

      ENDIF.

      APPEND itab_zycit279_ap_aux.

    ENDLOOP.

  ENDIF.

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

  /pws/zycie245-codcomp = itab_resumo_ap-matnr.

* << Fim da inclusão

  /pws/zycie245-qtd_ncm = itab_resumo_ap-qtd_di.

ENDFORM.

FORM transf_saldo USING p_status_tf.

  DATA: itab_zycit244_ap LIKE /pws/zycit244 OCCURS 0 WITH HEADER LINE,

        itab_zycit245_ap LIKE /pws/zycit245 OCCURS 0 WITH HEADER LINE,

...