Sintoma

1) NCM do Produto a ser fabricado (CdNcmProdFinal): Manter a busca que faz atualmente. Se o campo

continuar em branco, preencher com a NCM da Adição que está sendo processada (Campo NCM da aba 1 da

pasta Mercadoria das Adições.

2) Código SUFRAMA do produto a ser fabricado (cdSuframa): Manter a busca que faz atualmente para

todas as opções e não somente quando aplicação da capa da PLI = "PEXPAM". Se o campo

continuar em branco, preencher com a informação da tabela /pws/zycit079-codsufra.

Solução

Atualizado programa para preencher informações de NCM e COD.Produto SUFRAMA na DAI

Informações Complementares

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

Nota Número 12317 Data: 25/06/2012 Hora: 16:57:27

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

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

Nota Número              : 12317

Categoria                : Melhoria

Prioridade               : Baixa

Versão PW.CE             : 9.0

Pacote                   : 00001

Agrupamento              : 00118

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

Referência às notas relacionadas:

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

12154  - 00001 - 8.0    - 00011  - DAI - DECLARAÇÃO AMAZONENSE DE IMPORTAÇÃO

12298  - 00002 - 9.0    - 00001  - DAI - OBRIGATORIEDADE DE CAMPOS

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

DAI - NOVAS DEFINIÇÕES PARA O NCM E CÓDIGO SUFRAMA

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

Palavras Chave:

NCM DO PRODUTO A SER FABRICADO (CDNCMPRODFINAL)

CÓDIGO SUFRAMA DO PRODUTO A SER FABRICADO (CDSUFRAMA)

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

Objetos da nota:

FUNC /PWS/ZYCI_CARREGA_DAI

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

Modificações efetuadas em FUNC /PWS/ZYCI_CARREGA_DAI

FUNCTION /pws/zyci_carrega_dai.

  DATA: it_001     TYPE /pws/zycie001  OCCURS 0  WITH HEADER LINE,

        it_049     TYPE /pws/zycie049  OCCURS 0  WITH HEADER LINE,

        it_520     TYPE /pws/zycit520  OCCURS 0  WITH HEADER LINE,

        it_523     TYPE /pws/zycit523  OCCURS 0  WITH HEADER LINE,

        itab_116   TYPE /pws/zycit116  OCCURS 0  WITH HEADER LINE,

        it_055     TYPE /pws/zycit055  OCCURS 0  WITH HEADER LINE,

        it_078     TYPE /pws/zycit078  OCCURS 0  WITH HEADER LINE,

* >> Início da inclusão: FUNCTION /PWS/ZYCI_CARREGA_DAI

        it_079     TYPE /pws/zycit079  OCCURS 0  WITH HEADER LINE,

* << Fim da inclusão

        t_despesas TYPE /pws/zycie123b OCCURS 0  WITH HEADER LINE.

  DATA:  wa_t001w      LIKE t001w,

         wa_j_1bbranch LIKE j_1bbranch,

         wa_197        LIKE /pws/zycit197,

         wa_198        LIKE /pws/zycit198,

         wa_289        LIKE /pws/zycit289,

         wa_218        LIKE /pws/zycit218,

         wa_219        LIKE /pws/zycit219,

         wa_079        TYPE /pws/zycit079.

  DATA: s_tax      TYPE /pws/zycie085-ukursfob,

...

...

  IF NOT it_itens_di[] IS INITIAL.

    SELECT * FROM /pws/zycit001 INTO TABLE it_001

           FOR ALL ENTRIES IN it_itens_di

           WHERE nrseq EQ it_itens_di-nrseq.

  ENDIF.

  IF NOT it_det_itens_di[] IS INITIAL.

    SELECT * FROM /pws/zycit078 INTO TABLE it_078

      FOR ALL ENTRIES IN it_det_itens_di

      WHERE flagpli = 'X'

        AND nrpli   = it_det_itens_di-nrli.

* >> Início da inclusão: FUNCTION /PWS/ZYCI_CARREGA_DAI

    SELECT * FROM /pws/zycit079 INTO TABLE it_079

      FOR ALL ENTRIES IN it_det_itens_di

      WHERE numli = it_det_itens_di-nrseqli.

* << Fim da inclusão

  ENDIF.

  IF NOT it_adicao_di IS INITIAL.

    SELECT * FROM /pws/zycit116 INTO TABLE itab_116

      FOR ALL ENTRIES IN it_adicao_di

      WHERE nrseqdi = it_adicao_di-nrseqdi

        AND adicao  = it_adicao_di-adicao.

  ENDIF.

  IF NOT itab_116[] IS INITIAL.

    SELECT * FROM /pws/zycit523 INTO TABLE it_523

      FOR ALL ENTRIES IN itab_116

...

...

    READ TABLE it_forn WITH KEY nrseqdi = it_adicao_di-nrseqdi

                                adicao  = it_adicao_di-adicao.

    IF sy-subrc EQ 0.

      wa_adicao-fornecedor = it_forn-forn_name1.

    ENDIF.

    wa_adicao-destinacao = itab_116-destinacao.

    wa_adicao-utilizacao = itab_116-utilizacao.

    LOOP AT it_itens_di WHERE nrseqdi = it_adicao_di-nrseqdi

                          AND adicao  = it_adicao_di-adicao.

      READ TABLE it_078 WITH KEY nrpli = it_det_itens_di-nrli.

* >> Início da exclusão: FUNCTION /PWS/ZYCI_CARREGA_DAI

      IF sy-subrc EQ 0 AND it_078-aplicpli EQ '4'.

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYCI_CARREGA_DAI

      IF sy-subrc EQ 0.

* << Fim da inclusão

        SELECT SINGLE * FROM /pws/zycit197 INTO wa_197

            WHERE nrproc  = it_078-numpexpam

              AND anoproc = it_078-anopexpam.

        IF sy-subrc EQ 0.

          SELECT SINGLE * FROM /pws/zycit198 INTO wa_198

             WHERE nrseqp = wa_197-nrseqp.

          IF sy-subrc EQ 0.

            SELECT SINGLE * FROM /pws/zycit289 INTO wa_289

              WHERE matcod     = wa_198-codmat

                AND plant      = wa_198-werks

                AND bom_usage  = wa_198-stlan

                AND bom        = wa_198-stlnr

                AND altbom     = wa_198-stlal.

            IF sy-subrc EQ 0.

              wa_adicao-suframa = wa_289-codprod.

              SELECT SINGLE * FROM /pws/zycit218 INTO wa_218

                 WHERE codigo = wa_289-codprod

                 AND   steuc  = wa_289-ncmcod.

              IF sy-subrc EQ 0.

                wa_adicao-ncm = wa_218-steuc.

              ENDIF.

            ENDIF.

          ENDIF.

        ENDIF.

      ENDIF.

* >> Início da inclusão: FUNCTION /PWS/ZYCI_CARREGA_DAI

      IF wa_adicao-ncm IS INITIAL.

        wa_adicao-ncm = it_adicao_di-j_1bnbm.

      ENDIF.

      IF wa_adicao-suframa IS INITIAL.

        READ TABLE it_079 WITH KEY numli = it_itens_di-nrseqli.

        IF sy-subrc EQ 0.

          wa_adicao-suframa = it_079-codsufra.

        ENDIF.

      ENDIF.

* << Fim da inclusão

      PERFORM load_waers USING it_itens_di-waersbem

                      CHANGING it_itens_di-waersbem.

      IF it_itens_di-waersbem EQ wa_zycbt007-waersa.

        wa_adicao-vlfob = wa_adicao-vlfob + ( it_itens_di-vlfob * 100 ).

      ELSE.

        CLEAR: v_vlusd.

        v_vlusd = it_itens_di-vlfob.

        PERFORM calc_conv_moeda(/pws/sapmzyci023)

...