CE PLUS - Nota 007624
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Nota Fiscal
Data/Hora da Publicação: 24/11/2008 00:00:00
Data/Hora Última Alteração: 23/02/2011 09:18:13
Descrição da Nota: SUGERE TIPO DE NOTA DE DRAWBACK QUANDO POSSUIR LI COM DRAWBACK
Sintoma
O programa de nota fiscal não está sugerindo o tipo de nota fiscal de drawback parametrizado para
os itens que possuem LI com drawback.
Solução
Ajustado programa para verificar se o numero do ato concessório está preenchido na LI para sugerir o
tipo de nota fiscal de drawback.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 07624 Data: 24/11/2008 Hora: 16:22:26
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 07624
Categoria : Erro de Programa
Prioridade : Baixa
Versão PW.CE : 7.0
Pacote : 00007
Agrupamento : 00075
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
03036 - 00001 - 6.0 - 00026 - ADEQUAÇÃO DO PW.CE PARA ATENDER AO FUNDAP.
06760 - 00002 - 7.0 - 00005 - NACIONALIZAÇÃO DE RECOF
----------------------------------------------------------------------------------------------------
SUGERE TIPO DE NOTA DE DRAWBACK QUANDO POSSUIR LI COM DRAWBACK
----------------------------------------------------------------------------------------------------
Palavras Chave:
ATO - CONCESSÓRIO - NUMERO - TIPO - NF - DRAWBACK - LI
/PWS/SAPMZYCI016
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI016F01
REPS /PWS/MZYCI016X01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016F01
...
IF t001 IS INITIAL OR /pws/zycit000 IS INITIAL.
SELECT SINGLE * FROM t001 WHERE bukrs = /pws/zycie041-bukrs.
SELECT SINGLE * FROM /pws/zycit000 WHERE land1 EQ t001-land1.
ENDIF.
CLEAR v_graneis.
FREE: itab_zycit003.
IF NOT itab_zycit100[] IS INITIAL.
SELECT nrseq ebeln ebelp netpr vlreal qtd_iten ntgew nrseq_pgfat
waers tpnf meins werks lifnr mfrpn aliqii aliqipi advalipi
aliqicms advalicms vlfre_fat vlseg_fat basred qtd_itend
* >> Início da exclusão: FORM SELECIONA_ITENS_NFG
ntgewd nrseqd FROM /pws/zycit003
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_ITENS_NFG
ntgewd nrseqd nrseqli FROM /pws/zycit003
* << Fim da inclusão
INTO CORRESPONDING FIELDS OF TABLE itab_zycit003
FOR ALL ENTRIES IN itab_zycit100
WHERE nrseq EQ itab_zycit100-nrseq
AND ebeln EQ itab_zycit100-ebeln
AND ebelp EQ itab_zycit100-ebelp.
* >> Início da inclusão: FORM SELECIONA_ITENS_NFG
LOOP AT itab_zycit003 WHERE nrseqli NE space.
REFRESH itab_zycit078.
SELECT * FROM /pws/zycit078 INTO TABLE itab_zycit078
FOR ALL ENTRIES IN itab_zycit003
WHERE nrseqli EQ itab_zycit003-nrseqli.
EXIT.
ENDLOOP.
* << Fim da inclusão
ENDIF.
CLEAR: v_tot_ntgew.
LOOP AT itab_zycit003.
v_tot_ntgew = v_tot_ntgew + itab_zycit003-ntgew.
ENDLOOP.
DESCRIBE TABLE itab_zycit003 LINES v_nolin.
IF v_nolin IS INITIAL.
MESSAGE w015 WITH text-003.
ELSE.
IF /pws/zycit001-waers IS INITIAL AND
...
...
SELECT SINGLE j_1bmatuse INTO ekpo-j_1bmatuse
FROM ekpo
WHERE ebeln EQ itab_zycit042-ebeln
AND ebelp EQ itab_zycit042-ebelp.
SELECT SINGLE * INTO CORRESPONDING FIELDS OF /pws/zycit012
FROM /pws/zycit012
WHERE j_1bmatuse EQ ekpo-j_1bmatuse.
READ TABLE itab_zycit100 WITH KEY nrseq = itab_zycit003-nrseq
ebeln = itab_zycit003-ebeln
ebelp = itab_zycit003-ebelp.
* >> Início da inclusão: FORM GERA_ITAB_ZYCIT042
CLEAR: itab_zycit078.
READ TABLE itab_zycit078 WITH KEY nrseqli = itab_zycit003-nrseqli.
* << Fim da inclusão
IF NOT /pws/zycit085-opfundap IS INITIAL AND
NOT /pws/zycit012-tpnf_fd IS INITIAL .
itab_zycit042-tpnf = /pws/zycit012-tpnf_fd.
* >> Início da exclusão: FORM GERA_ITAB_ZYCIT042
ELSEIF NOT itab_zycit003-nrseqd IS INITIAL
* << Fim da exclusão
* >> Início da inclusão: FORM GERA_ITAB_ZYCIT042
ELSEIF NOT itab_zycit078-reg_drawback IS INITIAL
* << Fim da inclusão
AND NOT /pws/zycit012-tpnf_db IS INITIAL.
...
...
FROM ekpo
WHERE ebeln EQ itab_zycit042-ebeln
AND ebelp EQ itab_zycit042-ebelp.
SELECT SINGLE * INTO CORRESPONDING FIELDS OF /pws/zycit012
FROM /pws/zycit012
WHERE j_1bmatuse EQ ekpo-j_1bmatuse.
IF itab_zycit042-tpnf IS INITIAL.
READ TABLE itab_zycit100 WITH KEY nrseq = itab_zycit003-nrseq
ebeln = itab_zycit003-ebeln
ebelp = itab_zycit003-ebelp.
* >> Início da inclusão: FORM GERA_ITAB_ZYCIT042
CLEAR: itab_zycit078.
READ TABLE itab_zycit078 WITH KEY nrseqli = itab_zycit003-nrseqli.
* << Fim da inclusão
IF NOT /pws/zycit085-opfundap IS INITIAL AND
NOT /pws/zycit012-tpnf_fd IS INITIAL .
itab_zycit042-tpnf = /pws/zycit012-tpnf_fd.
* >> Início da exclusão: FORM GERA_ITAB_ZYCIT042
ELSEIF NOT itab_zycit003-nrseqd IS INITIAL
* << Fim da exclusão
* >> Início da inclusão: FORM GERA_ITAB_ZYCIT042
ELSEIF NOT itab_zycit078-reg_drawback IS INITIAL
* << Fim da inclusão
AND NOT /pws/zycit012-tpnf_db IS INITIAL.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016X01
...
* >> Início da inclusão:
DATA: itab_zycit078 TYPE /pws/zycit078 OCCURS 0 WITH HEADER LINE.
* << Fim da inclusão
DATA: END OF COMMON PART a.