CE PLUS - Nota 009060

Módulo: DOC. IMPORTAÇÃO

Funcionalidade: LI

Data/Hora da Publicação: 22/09/2009 00:00:00

Data/Hora Última Alteração: 18/05/2012 14:49:21

Descrição da Nota: NÃO ESTÁ PREENCHENDO A QUANTIDADE DO PRODUTO NAS INFORMAÇÕES DE DRAWBACK

Sintoma

Não está preenchendo a quantidade do produto nas informações de drawback.

 

 

Solução

Ajustado programa para atualizar a quantidade e peso total antes de vincular o ato concessório e não

permitir salvar a LI que possuir ato concessório vinculado e item com quantidade do produto igual a

zero nas informações drawback .

 

Versões Tratadas

7.0


Pré-Requisitos

Produto:

Nota

Descrição

VINCULAÇÃO DE ATO CONCESSÓRIO NA LI

LI - QUANTIDADE UM ESTATÍSTICA

Informações Complementares

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

Nota Número 09060 Data: 22/09/2009 Hora: 10:49:08

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

 

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

Nota Número              : 09060

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 8.0

Pacote                   : 00001

Agrupamento              : 00001

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

Referência às notas relacionadas:

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

 

03820  - 00001 - 7.0    - 00001  - LI - QUANTIDADE UM ESTATÍSTICA

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

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

NÃO ESTÁ PREENCHENDO A QUANTIDADE DO PRODUTO NAS INFORMAÇÕES DE DRAWBACK

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

Palavras Chave:

QUANTIDADE - INFORMAÇÃO - DRAWBACK - GRAVAR - LI

/PWS/SAPMZYCI020

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

Objetos da nota:

REPS /PWS/MZYCI020I01

REPT /PWS/SAPMZYCI020

 

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

Modificações efetuadas em REPS /PWS/MZYCI020I01

 

...

      WHEN 'SAVE'.

        IF ( v_tcode EQ '/PWS/ZYCI020_A' OR

            v_tcode EQ '/PWS/ZYCI020_C' ) AND

           ( NOT /pws/zycie078-codregtri IS INITIAL AND

             /pws/zycie078-codregtri <> 1 AND

             /pws/zycie078-codfunleg IS INITIAL ).

          MESSAGE e015 WITH text-462.

        ENDIF.

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

        IF NOT /pws/zycie078-nrseqd IS INITIAL.

          CLEAR: it_zycit079.

          LOOP AT it_zycit079 WHERE qtd_drawback EQ space.

            EXIT.

          ENDLOOP.

          IF it_zycit079-ebeln NE space.

            MESSAGE e015 WITH text-465 text-466.

            EXIT.

          ENDIF.

        ENDIF.

* << Fim da inclusão

        PERFORM comm_save.

      WHEN 'PED'.

        IF /pws/zycie078-nrseqd IS INITIAL.

          PERFORM comm_selecitem.

        ELSE.

          MESSAGE i015 WITH text-394.

        ENDIF.

      WHEN 'COPY'.

        PERFORM comm_copy.

      WHEN 'CANCEL'.

...

 

...

      WHEN 'EXTLI'.

        PERFORM comm_extli.

      WHEN 'ENVIO'.

        PERFORM envio_dados.

      WHEN 'DESVIN'.

        PERFORM desvin_li.

      WHEN 'DESVINATO'.

        PERFORM desvincula_ato.

      WHEN 'VINCULATO'.

        IF /pws/zycie078-nrseqd IS INITIAL.

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

          CLEAR: v_peso, v_qtdtot.

          LOOP AT it_zycit079.

            v_peso = v_peso + it_zycit079-ntgew.

            v_qtdtot = v_qtdtot + it_zycit079-qtd_iten.

            IF NOT it_ekpo-matnr IS INITIAL AND

               /pws/zycie078-qtdest IS INITIAL.

              PERFORM converte_um_ncm USING it_ekpo-matnr

                                   CHANGING it_zycit079-meins

                                            it_zycit079-qtd_iten.

              v_qtdest = v_qtdest +

                         it_zycit079-qtd_iten.

            ENDIF.

          ENDLOOP.

          IF /pws/zycie078-qtdest IS INITIAL AND

            NOT v_qtdest IS INITIAL.

            /pws/zycie078-qtdest = v_qtdest.

          ENDIF.

* << Fim da inclusão

          PERFORM vincula_ato.

        ELSE.

          MESSAGE i015 WITH text-394.

        ENDIF.

      WHEN 'CLI'.

        PERFORM comm_cli.

      WHEN 'TRANSM'.

        PERFORM: envio_dados,

                 send.

      WHEN 'VERIFY'.

...

 

 

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

Modificações efetuadas em REPT /PWS/SAPMZYCI020

 

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

Incluído símbolo de texto:

 

Idioma: EN

 

Símbolo: 465

 

Texto: (36 caracteres)

"LI has item with quantity equal zero"

 

Comprimento máximo: 50

 

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

Incluído símbolo de texto:

 

Idioma: PT

 

Símbolo: 465

 

Texto: (42 caracteres)

"LI possui item com quantidade igual a zero"

 

Comprimento máximo: 50

 

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

Incluído símbolo de texto:

 

Idioma: EN

 

Símbolo: 466

 

Texto: (27 caracteres)

"at information of drawback."

 

Comprimento máximo: 50

 

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

Incluído símbolo de texto:

 

Idioma: PT

 

Símbolo: 466

 

Texto: (28 caracteres)

"nas informações de drawback."

 

Comprimento máximo: 50