Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Nota Fiscal
Data/Hora da Publicação: 01/10/2008 00:00:00
Data/Hora Última Alteração: 09/03/2010 14:45:38
Descrição da Nota: PREENCHIMENTO DO MATERIAL NA NOTA FISCAL DE REMESSA
Sintoma
Ao criar a nota fiscal global e logo após criar a nota fiscal de remessa sem sair do programa de
nota não está sendo gravado o codigo do material na tabela /PWS/zycit044.
Solução
Ajuste para preencher o codigo de material na tabela interna de itens.
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 07386 Data: 01/10/2008 Hora: 11:57:35
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 07386
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00007
Agrupamento : 00067
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
PREENCHIMENTO DO MATERIAL NA NOTA FISCAL DE REMESSA
----------------------------------------------------------------------------------------------------
Palavras Chave:
MATERIAL - NOTA - FISCAL - REMESSA - TABELA
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI016O01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016O01
...
PERFORM seleciona_itens_nfg.
ENDLOOP.
PERFORM seleciona_despesas.
SORT itab_zycit042 BY tpnf j_1bbranch lifnr nrseq ebeln ebelp.
MOVE itab_zycit042[] TO itab_zycit042_aux[].
v_status_s = 0.
ELSE.
MESSAGE s015 WITH text-063. LEAVE PROGRAM.
ENDIF.
ENDIF.
* >> Início da inclusão: MODULE LOAD_DATA_0100
IF NOT itab_zycit042[] IS INITIAL AND
itab_matuse_aux[] IS INITIAL.
SELECT ebeln ebelp matnr FROM ekpo
INTO TABLE itab_matuse_aux
FOR ALL ENTRIES IN itab_zycit042
WHERE ebeln EQ itab_zycit042-ebeln
AND ebelp EQ itab_zycit042-ebelp.
ENDIF.
LOOP AT itab_zycit042 WHERE matnr EQ space.
READ TABLE itab_matuse_aux WITH KEY ebeln = itab_zycit042-ebeln
ebelp = itab_zycit042-ebelp.
IF sy-subrc EQ 0.
itab_zycit042-matnr = itab_matuse_aux-matnr.
MODIFY itab_zycit042.
ENDIF.
ENDLOOP.
* << Fim da inclusão
SELECT SINGLE * FROM j_1bbranch
WHERE bukrs = /pws/zycie041-bukrs
AND branch = /pws/zycit085-j_1bbranch.
SELECT SINGLE * FROM adrc
WHERE addrnumber = j_1bbranch-adrnr.
READ TABLE itab_zycit042 INDEX 1.
SELECT SINGLE modalidade FROM /pws/zycit001 INTO v_modalidade
WHERE nrseq = itab_zycit042-nrseq.
ENDMODULE.
MODULE carrega_zycie042 OUTPUT.
...