CE PLUS - Nota 007702
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Nota Fiscal Remessa
Data/Hora da Publicação: 03/12/2008 00:00:00
Data/Hora Última Alteração: 23/02/2011 09:17:37
Descrição da Nota: CALCULA SALDO DISPONIVEL PARA NOTA FISCAL DE REMESSA.
Sintoma
Ajuste para efetuar o calculo do saldo disponivel para criação de nota fiscal de remessa.
Solução
Ajuste para efetuar o calculo do saldo disponivel para criação de nota fiscal de remessa.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 07702 Data: 03/12/2008 Hora: 15:51:08
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 07702
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00007
Agrupamento : 00076
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
05719 - 00001 - 7.0 - 00004 - OPERAÇÃO FUNDAP (PARTE II)
06534 - 00002 - 7.0 - 00005 - NOTA FISCAL DE REMESSA ESTÁ SE COM SALDO ERRADO PARA ALGUNS ITENS
----------------------------------------------------------------------------------------------------
CALCULA SALDO DISPONIVEL PARA NOTA FISCAL DE REMESSA.
----------------------------------------------------------------------------------------------------
Palavras Chave:
SALDO - CRIAR - NOTA - FISCAL - REMESSA - CALCULO
/PWS/SAPMZYCI016
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI016F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016F01
...
FORM seleciona_itens_nfr.
* >> Início da inclusão: FORM SELECIONA_ITENS_NFR
DATA: itab_zycit044sd TYPE /pws/zycit044 OCCURS 0 WITH HEADER LINE.
* << Fim da inclusão
...
...
LOOP AT itab_zycit042 WHERE docnum = /pws/zycie043-docnumnfg.
CLEAR itab_zycit042-docnum.
MOVE itab_zycit042 TO itab_zycit042_aux2.
APPEND itab_zycit042_aux2.
ENDLOOP.
SELECT * FROM /pws/zycit045
INTO TABLE itab_zycit045
WHERE nrseqnf EQ /pws/zycie043-nrseq
AND nfglobal EQ /pws/zycie043-nfglobal.
* >> Início da inclusão: FORM SELECIONA_ITENS_NFR
READ TABLE itab_zycit042_aux2 INDEX 1.
SELECT * FROM /pws/zycit044 INTO TABLE itab_zycit044sd
WHERE nrseq EQ itab_zycit042_aux2-nrseq.
* << Fim da inclusão
LOOP AT itab_zycit042_aux2.
READ TABLE itab_zycit044 WITH KEY nrseq = itab_zycit042_aux2-nrseq
ebeln = itab_zycit042_aux2-ebeln
ebelp = itab_zycit042_aux2-ebelp.
IF sy-subrc NE 0.
MOVE-CORRESPONDING itab_zycit042_aux2 TO itab_zycit044.
CLEAR: itab_zycit044-nfnum, itab_zycit044-series,
itab_zycit044-subser.
itab_zycit044-docnumnfg = /pws/zycie043-docnumnfg.
itab_zycit044-menge = itab_zycit042_aux2-qtd_iten.
itab_zycit044-saldo = itab_zycit042_aux2-qtd_iten.
* >> Início da exclusão: FORM SELECIONA_ITENS_NFR
READ TABLE itab_zycit045 WITH KEY nrseq = itab_zycit042_aux2-nrseq
ebeln = itab_zycit042_aux2-ebeln
ebelp = itab_zycit042_aux2-ebelp.
IF sy-subrc EQ 0.
itab_zycit044-menge = itab_zycit045-menge.
itab_zycit044-saldo = itab_zycit045-saldo.
itab_zycit044-meins = itab_zycit045-meins.
ENDIF.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_ITENS_NFR
LOOP AT itab_zycit044sd WHERE nrseq = itab_zycit042_aux2-nrseq
AND ebeln = itab_zycit042_aux2-ebeln
AND ebelp = itab_zycit042_aux2-ebelp.
itab_zycit045-saldo = itab_zycit044-saldo =
itab_zycit044-saldo - itab_zycit044sd-qtd_item.
ENDLOOP.
MODIFY itab_zycit045 TRANSPORTING saldo
WHERE nrseq = itab_zycit042_aux2-nrseq
AND ebeln = itab_zycit042_aux2-ebeln
AND ebelp = itab_zycit042_aux2-ebelp.
* << Fim da inclusão
IF itab_zycit044-saldo GT 0.
APPEND itab_zycit044.
ENDIF.
ENDIF.
ENDLOOP.
REFRESH itab_zycit480r.
LOOP AT itab_zycit480.
itab_zycit480r = itab_zycit480.
READ TABLE itab_zycit042 WITH KEY nrseq = itab_zycit480-nrseq
ebeln = itab_zycit480-ebeln
...