Sintoma

O campo Item do drawback está fechado nos detalhes do item da LI.

Solução

Abertura do campo para preenchimento manual.

Informações Complementares

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

Nota Número 07621 Data: 24/11/2008 Hora: 10:03:37

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

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

Nota Número              : 07621

Categoria                : Melhoria

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00007

Agrupamento              : 00075

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

Referência às notas relacionadas:

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

07616  - 00001 - 7.0    - 00007  - VINCULAÇÃO DE ATO CONCESSÓRIO NA LI

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

PREENCHIMENTO DO CAMPO ITEM DO DRAWBACK

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

Palavras Chave:

LI DRAWBACK VINCULAÇÃO ITEM

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

Objetos da nota:

REPS /PWS/MZYCI020F01

REPS /PWS/MZYCI020F02

REPS /PWS/MZYCI020I01

REPS /PWS/MZYCI020O01

TABD /PWS/ZYCIE079

TABD /PWS/ZYCIT079

TABD /PWS/ZYCIE079A

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

Modificações efetuadas em REPS /PWS/MZYCI020F01

...

  SELECT SINGLE * FROM /pws/zycit078 INTO wa_zycit078

        WHERE nrseqli EQ /pws/zycie078-nrseqli.

  IF NOT wa_zycit078-nrseqd IS INITIAL.

    SELECT * FROM /pws/zycit245 INTO TABLE it_zycit245

          WHERE nrseqd EQ wa_zycit078-nrseqd

           AND nritem < 90000.                            "#EC PORTABLE

    SELECT  * FROM /pws/zycit079 INTO TABLE itab_zycit079a

          WHERE nrseqli EQ /pws/zycie078-nrseqli.

    LOOP AT itab_zycit079a.

      READ TABLE it_zycit245 WITH KEY

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

                  nritem+2 = itab_zycit079a-item_drawback.

* << Fim da exclusão

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

                  nritem = itab_zycit079a-nritem_db.

* << Fim da inclusão

      READ TABLE it_ekpo WITH KEY ebeln = itab_zycit079a-ebeln

                                  ebelp = itab_zycit079a-ebelp.

      IF sy-subrc NE 0.

        SELECT SINGLE * FROM ekpo INTO it_ekpo

                WHERE ebeln = itab_zycit079a-ebeln

                  AND ebelp = itab_zycit079a-ebelp.

        APPEND it_ekpo.

      ENDIF.

      v_vl_temp = itab_zycit079a-qtd_iten *

                  itab_zycit079a-netpr.

...

...

           EXPORTING

                nrseqd = itab_atos2-nrseqd.

    ENDIF.

    SELECT * FROM /pws/zycit245 APPENDING TABLE it_zycit245

          WHERE nrseqd EQ /pws/zycie078-nrseqd

           AND nritem < 90000.                            "#EC PORTABLE

  ENDIF.

  IF NOT /pws/zycie078-nrseqd IS INITIAL.

    LOOP AT it_zycit079.

      READ TABLE it_zycit245 WITH KEY

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

                  nritem+2 = it_zycit079-item_drawback

* << Fim da exclusão

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

                  nritem = it_zycit079-nritem_db

* << Fim da inclusão

                  nrseqd   = /pws/zycie078-nrseqd.

      READ TABLE it_ekpo WITH KEY ebeln = it_zycit079-ebeln

                                  ebelp = it_zycit079-ebelp.

      IF sy-subrc NE 0.

        SELECT SINGLE * FROM ekpo INTO it_ekpo

                WHERE ebeln = it_zycit079-ebeln

                  AND ebelp = it_zycit079-ebelp.

        APPEND it_ekpo.

      ENDIF.

      v_vl_temp = it_zycit079-qtd_iten *

...

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

Modificações efetuadas em REPS /PWS/MZYCI020F02

...

  CLEAR: v_descr11.

  MOVE: /pws/zycie078-nrseqd TO v_nrseqd   ,

        space TO /pws/zycie078-nrseqd      ,

        space TO /pws/zycie078-reg_drawback,

        space TO /pws/zycie078-codregtri   ,

        space TO /pws/zycie078-modalidade  ,

        space TO /pws/zycie078-tipodb      ,

        space TO /pws/zycie078-digito      .

  CLEAR: it_zycit079.

  MODIFY it_zycit079 TRANSPORTING item_drawback qtd_drawback

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

                                  vl_prod_drawback

* << Fim da exclusão

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

                                  vl_prod_drawback nritem_db

* << Fim da inclusão

                            WHERE nrseqli EQ /pws/zycie078-nrseqli.

ENDFORM.

FORM vincula_ato.

  DATA: v_nrseqd_v LIKE /pws/zycit244-nrseqd.

  REFRESH itab_zycit376.

  DELETE it_zycit079 WHERE qtd_iten <= 0.

  IF NOT it_zycit079[] IS INITIAL.

    SELECT * FROM /pws/zycit376 INTO TABLE itab_zycit376

        FOR ALL ENTRIES IN it_zycit079

        WHERE ebeln EQ it_zycit079-ebeln

...

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

Modificações efetuadas em REPS /PWS/MZYCI020I01

...

                                  WHERE ebeln = it_ekpo-ebeln

                                    AND ebelp = it_ekpo-ebelp.

              ENDLOOP.

            ENDLOOP.

          ELSE.

            LOOP AT it_ekpo WHERE matnr EQ itab_atos-matnr.

              READ TABLE it_zycit079 WITH KEY

                                        ebeln = it_ekpo-ebeln

                                        ebelp = it_ekpo-ebelp.

              MOVE:

* >> Início da exclusão: MODULE USER_COMMAND_0810

                   itab_atos-nritem+2 TO it_zycit079-item_drawback.

* << Fim da exclusão

* >> Início da inclusão: MODULE USER_COMMAND_0810

                   itab_atos-nritem+2 TO it_zycit079-item_drawback,

                   itab_atos-nritem TO it_zycit079-nritem_db.

* << Fim da inclusão

              IF v_qtdtot > 0.

                it_zycit079-qtd_drawback =

             ( it_zycit079-qtd_iten * /pws/zycie078-qtdest ) / v_qtdtot.

              ELSE.

                it_zycit079-qtd_drawback =

                ( it_zycit079-qtd_iten * /pws/zycie078-qtdest ).

              ENDIF.

              it_zycit079-vl_prod_drawback =

                      it_zycit079-qtd_iten * it_zycit079-netpr.

              MODIFY it_zycit079 TRANSPORTING  item_drawback

                                qtd_drawback vl_prod_drawback

                                WHERE ebeln = it_ekpo-ebeln

                                  AND ebelp = it_ekpo-ebelp.

            ENDLOOP.

          ENDIF.

        ENDLOOP.

      ELSE.

        READ TABLE itab_atos WITH KEY nrseqd = itab_atos2-nrseqd.

        LOOP AT it_zycit079.

          MOVE itab_atos-nritem+2 TO it_zycit079-item_drawback.

* >> Início da inclusão: MODULE USER_COMMAND_0810

          MOVE itab_atos-nritem TO it_zycit079-nritem_db.

* << Fim da inclusão

          IF v_qtdtot > 0.

            it_zycit079-qtd_drawback =

           ( it_zycit079-qtd_iten * /pws/zycie078-qtdest ) / v_qtdtot.

          ELSE.

            it_zycit079-qtd_drawback =

            ( it_zycit079-qtd_iten * /pws/zycie078-qtdest ).

          ENDIF.

          it_zycit079-vl_prod_drawback =

                  it_zycit079-qtd_iten * it_zycit079-netpr.

          MODIFY it_zycit079.

...

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

Modificações efetuadas em REPS /PWS/MZYCI020O01

...

         screen-name EQ '/PWS/ZYCIE079A-DESCFAB' OR

         screen-name EQ '/PWS/ZYCIE079A-PAISFAB'.

        screen-input = 0.

        MODIFY SCREEN.

        screen-invisible = 1.

      ENDIF.

    ENDIF.

    IF /pws/zycit000-flagdraw EQ 'X' AND

       ( v_tcode EQ '/PWS/ZYCI020_A' OR

         v_tcode EQ '/PWS/ZYCI020_C' ) .

* >> Início da exclusão: MODULE SET_SCREEN_200

      IF screen-name EQ '/PWS/ZYCIE079A-ITEM_DRAWBACK'  OR

         screen-name EQ '/PWS/ZYCIE079A-QTD_DRAWBACK'   OR

* << Fim da exclusão

* >> Início da inclusão: MODULE SET_SCREEN_200

      IF screen-name EQ '/PWS/ZYCIE079A-QTD_DRAWBACK'   OR

* << Fim da inclusão

         screen-name EQ '/PWS/ZYCIE079A-VL_PROD_DRAWBACK' .

        screen-input = 0.

      ENDIF.

    ENDIF.

    MODIFY SCREEN.

  ENDLOOP.

ENDMODULE.

MODULE carrega_zycie081_506 OUTPUT.

  MOVE: it_zycit081r-nranuente TO /pws/zycie081-nranuente,

        it_zycit081r-orgao     TO /pws/zycie081-orgao.

...

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

Modificações efetuadas em TABD /PWS/ZYCIT079

...

CODSUFRA /PWS/ZYCIL392 NUMC 4 0 GL - Cód.SUFRAMA

BEMENCOMENDA /PWS/ZYCIL237 CHAR 1 0 GL - Material Usado

MATUSADO /PWS/ZYCIL237 CHAR 1 0 GL - Material Usado

TXT_LONGO CHAR200 CHAR 200 0 Campo de texto comprimento 200

TXT_CURTO CHAR253 CHAR 253 0 Campo de caracteres do comprimento 253

UMDESC CHAR20 CHAR 20 0 Char 20

* >> Início da inclusão:

NRITEM_DB CHAR5 CHAR 5 0 Tabela R/2

* << Fim da inclusão

* Criação da Chave externa para o campo "DESTAQUE"

Tab. Verif.   Cpo.tab.ver. Tabela chave externa   Cpo. chave externa   Genérico

/PWS/ZYCIT219 MANDT       /PWS/ZYCIT079         MANDT

/PWS/ZYCIT219 CODIGO                                       X

/PWS/ZYCIT219 NCM                                              X

/PWS/ZYCIT219 DESTAQUE /PWS/ZYCIT079         DESTAQUE

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

Modificações efetuadas em TABD /PWS/ZYCIE079

* >> Início da exclusão:

MANDT MANDT CLNT 3 0 Mandante

NRSEQLI /PWS/ZYCIL229 CHAR 10 0 GL - Número Sequencial

TPLI /PWS/ZYCIL231 CHAR 1 0 GL - Tipo de LI

EBELN EBELN CHAR 10 0 Nº documento de compra

EBELP /PWS/ZYGLL913 NUMC 5 0 GL - Item do Documento de Compra

NRLI /PWS/ZYCIL185 CHAR 12 0 GL - Número da  LI

NUMLI /PWS/ZYCIL229 CHAR 10 0 GL - Número Sequencial

STEUC1 J_1BNBMCO1 CHAR 16 0 Code NBM brasileiro

DESCR MAKTX CHAR 40 0 Texto breve de material

QTD_ITEN /PWS/ZYCIL193 DEC 15 5 GL - Qtd. Estatística

MENGE /PWS/ZYCIL193 DEC 15 5 GL - Qtd. Estatística

NETPR /PWS/ZYCIL128 DEC 20 7 GL - Preço Liquido

WAERS WAERS CUKY 5 0 Chave da moeda

SLQTDE /PWS/ZYCIL050 QUAN 13 3 GL - Saldo do Item +/-

MEINS BSTME UNIT 3 0 Unidade de medida do pedido

NTGEW /PWS/ZYCIL858 QUAN 18 6 GL - Peso Líquido

GEWEI EGEWE UNIT 3 0 Unidade de peso

BEDNR BEDNR CHAR 10 0 Nº acompanhamento

NRSEQ /PWS/ZYCIL001 CHAR 10 0 GL - Nr. Sequencial do Embarque

ITEM_DRAWBACK CHAR03 CHAR 3 0 Campo de texto de três posições para IDocs

QTD_DRAWBACK /PWS/ZYCIL193 DEC 15 5 GL - Qtd. Estatística

VL_PROD_DRAWBACK /PWS/ZYCIL193 DEC 15 5 GL - Qtd. Estatística

DESTAQUE /PWS/ZYCIL395 CHAR 4 0 GL - Destaque

ESPEC_TECNICA /PWS/ZYCIL370 CHAR 80 0 GL - Especificação  técnica  do  Item

REF_FABRICANTE /PWS/ZYCIL371 CHAR 20 0 GL - Referência do Fabricante

PART_NUMBER /PWS/ZYCIL372 CHAR 20 0 GL - Part Number do Item

MAT_PRIMA_BASICA /PWS/ZYCIL373 CHAR 20 0 GL - Matéria-prima básica do item

DESC_COMPLEM /PWS/ZYCIL374 CHAR 148 0 GL - Descrição complementar

NCM /PWS/ZYCIL394 CHAR 8 0 GL - NCM Code

FABRIC /PWS/ZYCIL201 CHAR 1 0 GL - Tipo de Fabricante

LIFNR LIFNR CHAR 10 0 Nº conta do fornecedor ou credor

DESCFAB /PWS/ZYCIL084 CHAR 35 0 GL - Descrição ( 35 Char )

PAISFAB /PWS/ZYCIL042 CHAR 3 0 GL - País do Fabricante

TRANSM_IT /PWS/ZYCIL237 CHAR 1 0 GL - Material Usado

QTDEST /PWS/ZYCIL193 DEC 15 5 GL - Qtd. Estatística

ZUM /PWS/ZYCEL081 CHAR 2 0 GL - Unidade de Medida.

FATOR CHAR5 CHAR 5 0 Tabela R/2

ALADI /PWS/ZYCIL198 CHAR 3 0 GL - Aladi

CODTARIF /PWS/ZYCIL197 CHAR 1 0 GL - Código Acordo Tarifário

NALADI /PWS/ZYCEL158 CHAR 8 0 GL - Naladi.

CODSUFRA /PWS/ZYCIL392 NUMC 4 0 GL - Cód.SUFRAMA

BEMENCOMENDA /PWS/ZYCIL237 CHAR 1 0 GL - Material Usado

MATUSADO /PWS/ZYCIL237 CHAR 1 0 GL - Material Usado

TXT_LONGO CHAR200 CHAR 200 0 Campo de texto comprimento 200

TXT_CURTO CHAR253 CHAR 253 0 Campo de caracteres do comprimento 253

UMDESC CHAR20 CHAR 20 0 Char 20

* << Fim da exclusão

* >> Início da inclusão:

.INCLUDE /PWS/ZYCIT079

* << Fim da inclusão

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

Modificações efetuadas em TABD /PWS/ZYCIE079A

* >> Início da exclusão:

MANDT MANDT CLNT 3 0 Mandante

NRSEQLI /PWS/ZYCIL229 CHAR 10 0 GL - Número Sequencial

TPLI /PWS/ZYCIL231 CHAR 1 0 GL - Tipo de LI

EBELN EBELN CHAR 10 0 Nº documento de compra

EBELP EBELP NUMC 5 0 Nº item do documento de compra

NRLI /PWS/ZYCIL185 CHAR 12 0 GL - Número da  LI

NUMLI /PWS/ZYCIL229 CHAR 10 0 GL - Número Sequencial

STEUC1 J_1BNBMCO1 CHAR 16 0 Code NBM brasileiro

DESCR MAKTX CHAR 40 0 Texto breve de material

QTD_ITEN /PWS/ZYCIL193 DEC 15 5 GL - Qtd. Estatística

MENGE /PWS/ZYCIL193 DEC 15 5 GL - Qtd. Estatística

NETPR /PWS/ZYCIL128 DEC 20 7 GL - Preço Liquido

WAERS WAERS CUKY 5 0 Chave da moeda

SLQTDE /PWS/ZYCIL050 QUAN 13 3 GL - Saldo do Item +/-

MEINS BSTME UNIT 3 0 Unidade de medida do pedido

NTGEW /PWS/ZYCIL858 QUAN 18 6 GL - Peso Líquido

GEWEI EGEWE UNIT 3 0 Unidade de peso

BEDNR BEDNR CHAR 10 0 Nº acompanhamento

NRSEQ /PWS/ZYCIL001 CHAR 10 0 GL - Nr. Sequencial do Embarque

ITEM_DRAWBACK CHAR03 CHAR 3 0 Campo de texto de três posições para IDocs

QTD_DRAWBACK /PWS/ZYCIL193 DEC 15 5 GL - Qtd. Estatística

VL_PROD_DRAWBACK /PWS/ZYCIL193 DEC 15 5 GL - Qtd. Estatística

DESTAQUE /PWS/ZYCIL395 CHAR 4 0 GL - Destaque

ESPEC_TECNICA /PWS/ZYCIL370 CHAR 80 0 GL - Especificação  técnica  do  Item

REF_FABRICANTE /PWS/ZYCIL371 CHAR 20 0 GL - Referência do Fabricante

PART_NUMBER /PWS/ZYCIL372 CHAR 20 0 GL - Part Number do Item

MAT_PRIMA_BASICA /PWS/ZYCIL373 CHAR 20 0 GL - Matéria-prima básica do item

DESC_COMPLEM /PWS/ZYCIL374 CHAR 148 0 GL - Descrição complementar

NCM /PWS/ZYCIL394 CHAR 8 0 GL - NCM Code

FABRIC /PWS/ZYCIL201 CHAR 1 0 GL - Tipo de Fabricante

LIFNR LIFNR CHAR 10 0 Nº conta do fornecedor ou credor

DESCFAB /PWS/ZYCIL084 CHAR 35 0 GL - Descrição ( 35 Char )

PAISFAB /PWS/ZYCIL042 CHAR 3 0 GL - País do Fabricante

QTDEST /PWS/ZYCIL193 DEC 15 5 GL - Qtd. Estatística

ZUM /PWS/ZYCEL081 CHAR 2 0 GL - Unidade de Medida.

FATOR CHAR5 CHAR 5 0 Tabela R/2

ALADI /PWS/ZYCEL081 CHAR 2 0 GL - Unidade de Medida.

CODTARIF /PWS/ZYCIL197 CHAR 1 0 GL - Código Acordo Tarifário

NALADI /PWS/ZYCEL158 CHAR 8 0 GL - Naladi.

CODSUFRA /PWS/ZYCIL392 NUMC 4 0 GL - Cód.SUFRAMA

BEMENCOMENDA /PWS/ZYCIL237 CHAR 1 0 GL - Material Usado

MATUSADO /PWS/ZYCIL237 CHAR 1 0 GL - Material Usado

* << Fim da exclusão

* >> Início da inclusão:

.INCLUDE /PWS/ZYCIT079

* << Fim da inclusão