CE PLUS - Nota 000316

Módulo: DRAWBACK

Funcionalidade: Composição

Data/Hora da Publicação: 21/11/2005 00:00:00

Data/Hora Última Alteração: 17/02/2011 12:47:58

Descrição da Nota: A COMPOSIÇÃO ISENÇÃO ESTA TRAZENDO ITENS DE EXPORTAÇÃO JÁ APROPRIADOS.

Sintoma

A composição isenção esta trazendo itens de Exportação já apropriados.

 

 

Solução

Ajustada seleção da exportação.

 

Versões Tratadas

6.0

Informações Complementares

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

Nota Número 00316 Data: 21/11/2005 Hora: 16:13:32

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

 

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

Nota Número              : 00316

Categoria                : Erro de Programa

Prioridade               : Alta

Versão PW.CE             : 6.0

Pacote                   : 00021

Agrupamento              : 00089

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

 

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

A COMPOSIÇÃO ISENÇÃO ESTA TRAZENDO ITENS DE EXPORTAÇÃO JÁ APROPRIADOS.

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

Palavras Chave:

COMPOSIÇÃO DE ISENÇÃO - ITENS APROPRIADOS

 

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

Objetos da nota:

REPS /PWS/MZYCI064F03

REPS /PWS/MZYCI064TOP3

 

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

Modificações efetuadas em REPS /PWS/MZYCI064F03

 

...

  ELSE.

    SELECT a~nrseqre a~nrre a~dtincl a~agrupado a~codenq1

           b~matnr b~vbeln_va b~vbeln_vf b~posnr b~vbeln_vl b~posnl

           b~gewei b~ntgew b~brgew b~waers

           b~vfob  b~vlagente  b~netpr b~seqagrupado b~codnrseq

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

           d~nrseqexp

* << Fim da inclusão

           INTO TABLE itab_re_final

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

           FROM /pws/zycet116 AS a INNER JOIN /pws/zycet118 AS b

* << Fim da exclusão

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

           FROM ( /pws/zycet116 AS a INNER JOIN /pws/zycet118 AS b

* << Fim da inclusão

           ON a~nrseqre EQ b~nrseqre

           INNER JOIN /pws/zycet002 AS c

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

           ON b~vbeln_va EQ c~vbeln_va AND b~vbeln_vf EQ c~vbeln_vf

* << Fim da exclusão

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

           ON b~vbeln_va EQ c~vbeln_va AND b~vbeln_vf EQ c~vbeln_vf )

             LEFT OUTER JOIN /pws/zycit282 as d

              on c~nrseq    EQ d~nrseqexp

             AND c~vbeln_va EQ d~vbeln_va

             AND c~vbeln_vl EQ d~vbeln_vl

             AND c~posnl    EQ d~posnl

* << Fim da inclusão

           FOR ALL ENTRIES IN itab_zycit434

           WHERE a~dtincl >= p_dtexp1 AND

                 a~dtincl <= p_dtexp2 AND

                 b~nrato  EQ space    AND

                 c~werks  EQ itab_zycit434-werks AND

                 c~bukrs  EQ /pws/zycie258-bukrs AND

                 b~matnr  IN p_matnr.

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

    delete itab_re_final where nrseqexp ne space.

* << Fim da inclusão

    SELECT * FROM /pws/zycet130 INTO TABLE itab_zycet130

             WHERE codenq = '80000'

                OR codenq = '80116'.

    IF NOT itab_re_final[] IS INITIAL.

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

...

 

 

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

Modificações efetuadas em REPS /PWS/MZYCI064TOP3

 

...

      waers       LIKE /pws/zycet118-waers   ,

      vfob        LIKE /pws/zycet118-vfob    ,

      vlagente    LIKE /pws/zycet118-vlagente,

      netpr       LIKE /pws/zycet118-netpr   ,

      seqagrupado LIKE /pws/zycet118-seqagrupado,

* >> Início da exclusão:

      codnrseq    LIKE /pws/zycet118-codnrseq.

* << Fim da exclusão

* >> Início da inclusão:

      codnrseq    LIKE /pws/zycet118-codnrseq,

      nrseqexp    like /pws/zycit282-nrseqexp.

* << Fim da inclusão

DATA: END OF itab_re_final.

DATA: BEGIN OF itab_res_imp OCCURS 0,

        codcomp   LIKE /pws/zycie260-codcomp ,

        qtd_di    LIKE /pws/zycie260-qtd_di  ,

        qtd_vinc  LIKE /pws/zycie260-qtd_vinc,

...