CE PLUS - Nota 002469
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Recebimento
Data/Hora da Publicação: 17/11/2006 00:00:00
Data/Hora Última Alteração: 21/02/2011 12:43:48
Descrição da Nota: AJUSTE PARA SALVAR A NF GLOBAL AO INVÉS DA NF DE REMESSA
Sintoma
Ao fazer o recebimento estava gravando o N° de NF Remessa na tabela /PWS/ZYCIT279.
Solução
Foi criado tratativa no programa para selecionar os registros da tabela /PWS/ZYCIT042, com as
chaves: nrseq, ebeln e ebelp, levando os campos docnum, nfnum e series para a tabela /pws/zycit279
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 02469 Data: 17/11/2006 Hora: 10:43:40
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 02469
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00025
Agrupamento : 00140
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
AJUSTE PARA SALVAR A NF GLOBAL AO INVÉS DA NF DE REMESSA
----------------------------------------------------------------------------------------------------
Palavras Chave:
/PWS/ZYCIE043-NFGLOBAL, /PWS/ZYCIE043-NFREMESSA, /PWS/ZYCIT042
NRSEQ, EBELN, EBELP, ITAB_ITENS_NF, DOCNUM, NFNUM, SERIES
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI017F02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI017F02
...
FOR ALL ENTRIES IN itab_itens_nf
WHERE nrseq = itab_itens_nf-nrseq
AND ebeln = itab_itens_nf-ebeln
AND ebelp = itab_itens_nf-ebelp.
ENDIF.
* >> Início da inclusão: FORM ADICIONA_SALDO_ATO
IF itab_zycit042[] IS INITIAL AND NOT itab_itens_nf[] IS INITIAL.
SELECT * FROM /pws/zycit042
INTO TABLE itab_zycit042
FOR ALL ENTRIES IN itab_itens_nf
WHERE nrseq = itab_itens_nf-nrseq
AND ebeln = itab_itens_nf-ebeln
AND ebelp = itab_itens_nf-ebelp.
ENDIF.
IF NOT itab_zycit042[] IS INITIAL.
SELECT *
FROM j_1bnfdoc
INTO TABLE itab_j_1bnfdoc
FOR ALL ENTRIES IN itab_zycit042
WHERE docnum = itab_zycit042-docnum.
ENDIF.
* << Fim da inclusão
IF itab_zycit100[] IS INITIAL.
SELECT * FROM /pws/zycit100 INTO TABLE itab_zycit100
WHERE nrseqdi EQ /pws/zycit085-nrseqdi.
ENDIF.
IF NOT itab_zycit003[] IS INITIAL.
...
...
ENDIF.
LOOP AT itab_zycit003 WHERE NOT nrseqd IS initial.
READ TABLE itab_itens_nf WITH KEY nrseq = itab_zycit003-nrseq
ebeln = itab_zycit003-ebeln
ebelp = itab_zycit003-ebelp.
* >> Início da inclusão: FORM ADICIONA_SALDO_ATO
READ TABLE itab_zycit042 WITH KEY nrseq = itab_itens_nf-nrseq
ebeln = itab_itens_nf-ebeln
ebelp = itab_itens_nf-ebelp.
READ TABLE itab_j_1bnfdoc WITH KEY docnum = itab_zycit042-docnum.
* << Fim da inclusão
v_qtd_nftp = itab_itens_nf-qtd_item.
READ TABLE itab_matuse1 WITH KEY ebeln = itab_zycit003-ebeln
ebelp = itab_zycit003-ebelp.
itab_matuse1-ntgew = itab_matuse1-ntgew * itab_zycit003-qtd_iten.
READ TABLE itab_zycit078 WITH KEY nrseqli = itab_zycit003-nrseqli.
...
...
itab_zycit279-esgotado = space.
itab_zycit279-menge = itab_zycit003-qtd_iten.
itab_zycit279-meins = itab_zycit003-meins.
itab_zycit279-werks = itab_zycit003-werks.
itab_zycit279-slqtde = itab_itens_nf-qtd_item.
* >> Início da exclusão: FORM ADICIONA_SALDO_ATO
itab_zycit279-docnum = itab_itens_nf-docnum.
itab_zycit279-nfnum = itab_itens_nf-nfnum.
itab_zycit279-serie = itab_itens_nf-series.
* << Fim da exclusão
* >> Início da inclusão: FORM ADICIONA_SALDO_ATO
itab_zycit279-docnum = itab_j_1bnfdoc-docnum.
itab_zycit279-nfnum = itab_j_1bnfdoc-nfnum.
itab_zycit279-serie = itab_j_1bnfdoc-series.
* << Fim da inclusão
itab_zycit279-dtnf = /pws/zycie041-dtincl.
MOVE:
/pws/zycit085-nrseqdi TO itab_zycit279-nrseqdi ,
/pws/zycit085-nrdi TO itab_zycit279-nrdi ,
/pws/zycit085-tpdi TO itab_zycit279-tpdi ,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI017X01
...
DATA: BEGIN OF itab_zycit044 OCCURS 0. "Recebe itens NF Remessa
INCLUDE STRUCTURE /pws/zycit044.
DATA: "menge like /pws/zycie045-menge,
saldo LIKE /pws/zycie045-saldo,
mark.
DATA: END OF itab_zycit044.
* >> Início da inclusão:
DATA: BEGIN OF itab_j_1bnfdoc OCCURS 0.
INCLUDE STRUCTURE j_1bnfdoc.
DATA: END OF itab_j_1bnfdoc.
* << Fim da inclusão
DATA: BEGIN OF itab_itens_nf OCCURS 0.
INCLUDE STRUCTURE itab_zycit044.
DATA: END OF itab_itens_nf.
...