CE PLUS - Nota 012915
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Fatura Mercadoria
Data/Hora da Publicação: 18/04/2013 00:00:00
Data/Hora Última Alteração: 18/06/2013 15:14:45
Descrição da Nota: FATURA SE PERDE ENTRE FABRICANTES E NÃO GRAVA ESTADO.
Sintoma
Fatura se perde entre fabricantes e não grava Estado.
Solução
Atualizada fatura, para visualização correta do fabricante em 'dados do fabricante' e preenchimento
de 'dados do fabricante' uma unica vez.
Versões Tratadas
9.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 12915 Data: 18/04/2013 Hora: 14:30:12
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 12915
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 9.0
Pacote : 00004
Agrupamento : 00152
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
00731 - 00001 - 6.0 - 00022 - PREENCHER O FABRICANTE DE ACORDO COM O INFORMADO NO PEDIDO DE COM
00965 - 00002 - 6.0 - 00022 - FABRICANTE NO PEDIDO DE COMPRAS (EKPO-MFRNR)
12838 - 00003 - 9.0 - 00003 - ABRIR CAMPOS FABRICANTE NA FATURA QUANDO É TIPO 0 E 2
12880 - 00004 - 9.0 - 00004 - AO INFORMAR FABRICANTE NO EMBARQUE, DÁ ERRO NA FATURA.
----------------------------------------------------------------------------------------------------
FATURA SE PERDE ENTRE FABRICANTES E NÃO GRAVA ESTADO.
----------------------------------------------------------------------------------------------------
Palavras Chave:
FATURA - FABRICANTE - DADOS FABRICANTE - ESTADO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI003F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003F01
...
v_trunc = trunc( v_trunc ) .
v_qtd_iten = v_trunc / 10000.
IF itab_zycit003-invoiced NE v_qtd_iten AND
itab_zycit003-servico NE 'X'.
MESSAGE e061 WITH text-192 itab_zycit003-ebeln
itab_zycit003-ebelp text-193.
ENDIF.
ENDLOOP.
ELSEIF /pws/zycie006-tpfatura EQ '01'.
IF '02' CA /pws/zycie006-fabricante.
* >> Início da inclusão: FORM SALVAR_DADOS
IF itab_zycit080[] IS INITIAL AND
sy-tcode NE '/PWS/ZYCI003_C' .
SELECT * FROM /pws/zycit080
INTO TABLE itab_zycit080
WHERE nrseqli = /pws/zycie006-nrseq
AND tipoforn = 'D' .
ENDIF.
* << Fim da inclusão
LOOP AT itab_zycit003.
READ TABLE itab_zycit080 WITH KEY ebeln = itab_zycit003-ebeln
ebelp = itab_zycit003-ebelp.
IF sy-subrc NE 0 AND
NOT itab_zycit003-lifnrfabr IS INITIAL.
MOVE itab_zycit003 TO /pws/zycie003 .
PERFORM carrega_fabricante .
ENDIF.
ENDLOOP.
IF itab_zycit080[] IS INITIAL.
...
...
ENDIF.
READ TABLE itab_zycit080 WITH KEY ebeln = itab_zycit003-ebeln
ebelp = itab_zycit003-ebelp.
IF sy-subrc EQ 0.
MOVE-CORRESPONDING itab_zycit080 TO /pws/zycie080a.
itab_zycit003-descfab = /pws/zycie080a-name1 .
itab_zycit003-paisfab = /pws/zycie080a-landa.
MODIFY itab_zycit003 TRANSPORTING descfab paisfab
WHERE ebeln = itab_zycit080-ebeln
AND ebelp = itab_zycit080-ebelp.
* >> Início da inclusão: FORM LOAD_FORN
/pws/zycie003-lifnrfabr = itab_zycit003-lifnrfabr.
* << Fim da inclusão
ELSE.
IF NOT itab_zycit003-lifnrfabr IS INITIAL.
/pws/zycie003-lifnrfabr = itab_zycit003-lifnrfabr.
IF itab_zycit003-flagfabr = 'N'.
/pws/zycie080a-name1 = itab_zycit003-descfab.
IF NOT itab_zycit003-paisfab IS INITIAL.
/pws/zycie080a-landa = itab_zycit003-paisfab.
ELSE.
/pws/zycie080a-landa = wa_lfa1-land1.
ENDIF.
...