CE PLUS - Nota 013762
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: PLI
Data/Hora da Publicação: 05/03/2014 16:29:59
Data/Hora Última Alteração: 05/03/2014 16:29:59
Descrição da Nota: AO INFORMAR DADOS DO FABRICANTE NA PLI, NAO ESTA SALVANDO
Sintoma
Ao informar dados do fabricante na PLI, nao esta salvando
Solução
Atualizado programa para salvar dados do fabricante na navegação.
Versões Tratadas
9.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 13762 Data: 28/02/2014 Hora: 09:47:18
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 13762
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 9.0
Pacote : 00007
Agrupamento : 00170
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
10420 - 00001 - 8.0 - 00004 - NA PLI AO COLOCAR ORGÃO ANUENTE PARA O ITEM DUPLICA PARA OS DEMAI
11138 - 00002 - 8.0 - 00007 - CORREÇÃO DE DESCRIÇÃO BOTÕES DE TRANSMISSÃO
12308 - 00003 - 9.0 - 00001 - INCLUSÃO DE CAMPOS PARA INFORMAR O FABRICANTE.
13363 - 00004 - 9.0 - 00006 - ABRIR CAMPO DE FABRICANTE NA PLI PARA INFORMAR NÃO CADASTRADOS
13400 - 00005 - 9.0 - 00006 - A PLI NÃO PERMITE GERAR O TXT SEM POSSUIR LI VINCULADA
13617 - 00006 - 9.0 - 00007 - SUFRAMA 5.0 - AJUSTE NA FORMATAÇÃO DO NCM E PRODUTO ZFM
13656 - 00007 - 9.0 - 00007 - PLI - TIPO DE FORNECEDOR 2 - PAÍS DE ORIGEM ERRADO NO TXT
13706 - 00008 - 9.0 - 00007 - REMESSA - COMPLEMENTO BOLETO
13707 - 00009 - 9.0 - 00007 - PERMITIR PREENCHER MANUALMENTE OS DADOS DO FABRICANTE NA LI
----------------------------------------------------------------------------------------------------
AO INFORMAR DADOS DO FABRICANTE NA PLI, NAO ESTA SALVANDO
----------------------------------------------------------------------------------------------------
Palavras Chave:
FABRICANTE - PLI - TIPO 2 - 3 - FORNECEDOR - SUFRAMA
----------------------------------------------------------------------------------------------------
Objetos da nota:
DYNP /PWS/SAPMZYCI020 0521
REPS /PWS/MZYCI020F01
REPS /PWS/MZYCI020F02
REPS /PWS/MZYCI020I01
REPS /PWS/MZYCI020O01
REPS /PWS/MZYCI020X01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI020 0521
PROCESS AFTER INPUT.
FIELD : /pws/zycie079a-codsufra MODULE load_sufra ON REQUEST,
/pws/zycie079a-destaque MODULE load_suframa.
* >> Início da exclusão:
FIELD /pws/zycie079a-lifnr MODULE : load_forn ON REQUEST.
* << Fim da exclusão
* >> Início da inclusão:
FIELD /pws/zycie079a-lifnr MODULE load_forn ON REQUEST.
* << Fim da inclusão
FIELD /pws/zycie079a-fabric MODULE load_desc_fabr ON REQUEST.
FIELD v_frn1 MODULE check_fabric ON REQUEST.
FIELD v_frn2 MODULE check_fornec ON REQUEST.
MODULE: grava_texto_t,
atual_text,
concatena_desc,
* >> Início da inclusão:
atualiza_fabricante,
* << Fim da inclusão
user_command_0521.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020F01
...
FORM quest_gravacao.
* >> Início da inclusão: FORM QUEST_GRAVACAO
CLEAR v_salvo.
* << Fim da inclusão
...
...
ELSEIF /pws/zycie080c NE wa_zycit080_aux4.
v_save = 'X'.
ELSEIF it_zycit081[] NE it_zycit081_aux[].
v_save = 'X'.
ELSEIF it_anu2[] NE it_anu2_aux[].
v_save = 'X'.
ELSEIF ittxt1[] NE ittxt2[].
v_save = 'X'.
ENDIF.
IF NOT v_save IS INITIAL.
* >> Início da inclusão: FORM QUEST_GRAVACAO
v_salvo = 'N' .
* << Fim da inclusão
CALL FUNCTION 'POPUP_TO_CONFIRM'
EXPORTING
text_question = text-003
text_button_1 = text-004
icon_button_1 = 'ICON_OKAY'
text_button_2 = text-005
icon_button_2 = 'ICON_CONCEL'
default_button = '1'
display_cancel_button = 'X'
IMPORTING
...
...
v_existe_bl NE 'S'.
IF NOT itab_itens_aux-ntgew IS INITIAL AND
NOT it_zycit079-qtd_iten IS INITIAL AND NOT
itab_t006-nennr IS INITIAL.
PERFORM calcula_peso.
ENDIF.
ENDIF.
ENDIF.
it_zycit079-gewei = 'KG'.
ENDIF.
* >> Início da inclusão: FORM VERIFICA_ITENS
IF /pws/zycie078-flagpli NE 'X'.
* << Fim da inclusão
it_zycit079-fabric = /PWS/ZYCIE078-FABRIC.
* >> Início da inclusão: FORM VERIFICA_ITENS
ENDIF.
* << Fim da inclusão
IF /pws/zycie078-fabricante EQ 2.
IF it_zycit079-fabric IS INITIAL.
it_zycit079-fabric = '2'.
ENDIF.
ENDIF.
READ TABLE it_ekpo WITH KEY ebeln = it_zycit079-ebeln
...
...
IF NOT /pws/zycie079a-lifnr IS INITIAL.
SELECT SINGLE name1 land1 FROM lfa1
INTO (/pws/zycie079a-descfab,/pws/zycie079a-paisfab)
WHERE lifnr EQ /pws/zycie079a-lifnr.
IF /pws/zycie079a-fabric EQ 2 .
CLEAR lfa1.
lfa1-lifnr = ekko-lifnr.
SELECT SINGLE name1 land1 FROM lfa1
INTO (lfa1-name1,lfa1-land1)
WHERE lifnr EQ lfa1-lifnr.
* >> Início da inclusão: FORM LOAD_DESC_FABR
READ TABLE itab_zycit080 WITH KEY
ebeln = /pws/zycie079a-ebeln
ebelp = /pws/zycie079a-ebelp
lifnr = /pws/zycie079a-lifnr
tipoforn = 'F' .
IF sy-subrc EQ 0.
/pws/zycie079a-descfab = itab_zycit080-name1.
/pws/zycie079a-paisfab = itab_zycit080-landa.
ENDIF.
* << Fim da inclusão
ENDIF.
ENDIF.
CLEAR lfa1.
lfa1-lifnr = ekko-lifnr.
SELECT SINGLE name1 land1 FROM lfa1
INTO (lfa1-name1,lfa1-land1)
WHERE lifnr EQ lfa1-lifnr.
ENDFORM.
...
...
* >> Início da inclusão: FORM SAVEPLI
v_salvo = 'S' .
* << Fim da inclusão
ENDFORM.
...
...
/pws/zycie080-logradouro = it_adrc-street.
/pws/zycie080-nrlogr = it_adrc-house_num1.
/pws/zycie080-city = it_adrc-city1.
/pws/zycie080-regio = v_bezei.
/pws/zycie080-compl = it_adrc-city2.
MODIFY /pws/zycit080 FROM /pws/zycie080.
MOVE-CORRESPONDING /pws/zycie080 TO /pws/zycit080.
PERFORM carrega_log USING '/PWS/ZYCIT080' 'I'
sy-tcode '/PWS/SAPMZYCI020' /pws/zycit080-nrseqli.
CLEAR /pws/zycie080.
* >> Início da inclusão: FORM SALVA_FORNPLI
READ TABLE itab_zycit080 WITH KEY
ebeln = p_it_zycit079-ebeln
ebelp = p_it_zycit079-ebelp
tipoforn = 'F' .
IF sy-subrc EQ 0.
MOVE-CORRESPONDING itab_zycit080 TO /pws/zycie080.
ELSE.
* << Fim da inclusão
/pws/zycie080-name1 = p_it_zycit079-descfab.
/pws/zycie080-landa = p_it_zycit079-paisfab.
/pws/zycie080-tipoforn = 'F' .
* >> Início da inclusão: FORM SALVA_FORNPLI
ENDIF.
* << Fim da inclusão
MOVE: p_zycie078-nrseqli TO /pws/zycie080-nrseqli,
p_it_zycit079-lifnr TO /pws/zycie080-lifnr,
p_it_zycit079-ebeln TO /pws/zycie080-ebeln,
p_it_zycit079-ebelp TO /pws/zycie080-ebelp.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020F02
...
itab_zycit080-prog = sy-repid.
APPEND itab_zycit080 .
ELSE.
v_tabix = sy-tabix.
MOVE-CORRESPONDING /pws/zycie080a TO itab_zycit080 .
itab_zycit080-nrseqli = /pws/zycie078-nrseqli .
itab_zycit080-ebeln = /pws/zycie079a-ebeln .
itab_zycit080-ebelp = /pws/zycie079a-ebelp .
itab_zycit080-tipoforn = 'F' .
/pws/zycie080a-nrforn = it_zycit079-nrforn1.
* >> Início da inclusão: FORM SALVA_FABRIC_ITEM
itab_zycit080-lifnr = /pws/zycie079a-lifnr.
* << Fim da inclusão
MODIFY itab_zycit080 INDEX v_tabix.
ENDIF.
/pws/zycie079a-descfab = /pws/zycie080a-name1.
/pws/zycie079a-paisfab = /pws/zycie080a-landa.
ENDFORM.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020I01
...
CLEAR it_zycit081r.
REFRESH it_zycit081r.
IF /pws/zycie078-flagpli EQ 'X'.
LOOP AT it_zycit081
WHERE ebeln = /pws/zycie079a-ebeln
AND ebelp = /pws/zycie079a-ebelp.
it_zycit081r = it_zycit081.
APPEND it_zycit081r.
ENDLOOP.
ENDIF.
* >> Início da inclusão: MODULE USER_COMMAND_0200
PERFORM salva_fabric_item.
* << Fim da inclusão
ENDIF.
WHEN 'PRIM'.
PERFORM field_industrializacao.
v_ip = 1.
READ TABLE it_zycit079 INDEX v_ip.
MOVE-CORRESPONDING it_zycit079 TO /pws/zycie079a.
MOVE : it_zycit079-nrforn1 TO v_frn1,
it_zycit079-nrforn2 TO v_frn2.
PERFORM load_descri_suframa.
PERFORM load_desc_fabr.
...
...
WHEN 'ENVIO'.
* >> Início da inclusão: MODULE USER_COMMAND_0500
PERFORM quest_gravacao.
IF v_salvo IS INITIAL OR
v_salvo EQ 'S' .
* << Fim da inclusão
PERFORM envio_dados.
* >> Início da inclusão: MODULE USER_COMMAND_0500
ENDIF.
* << Fim da inclusão
WHEN 'TRANSMS'.
* >> Início da inclusão: MODULE USER_COMMAND_0500
PERFORM quest_gravacao.
IF v_salvo IS INITIAL OR
v_salvo EQ 'S' .
* << Fim da inclusão
PERFORM: consiste_transm.
IF v_transm NE 'N'.
PERFORM: envio_dados,
send.
ENDIF.
* >> Início da inclusão: MODULE USER_COMMAND_0500
ENDIF .
* << Fim da inclusão
WHEN 'EXTPLI'.
PERFORM comm_extpli.
...
...
MODULE load_forn INPUT.
IF NOT /pws/zycie079a-lifnr IS INITIAL.
SELECT SINGLE nrforn FROM /pws/zycit080
INTO v_frn1
WHERE lifnr EQ /pws/zycie079a-lifnr.
* >> Início da inclusão: MODULE LOAD_FORN
SELECT SINGLE name1 land1 FROM lfa1
INTO (/pws/zycie079a-descfab,/pws/zycie079a-paisfab)
WHERE lifnr EQ /pws/zycie079a-lifnr.
* << Fim da inclusão
ENDIF.
ENDMODULE.
...
...
* >> Início da inclusão:
MODULE atualiza_fabricante INPUT.
IF /pws/zycie079a-fabric EQ '2' AND
NOT /pws/zycie079a-lifnr IS INITIAL .
READ TABLE itab_zycit080 WITH KEY
ebeln = /pws/zycie079a-ebeln
ebelp = /pws/zycie079a-ebelp
tipoforn = 'F' .
IF sy-subrc EQ 0.
v_tabix = sy-tabix.
MOVE-CORRESPONDING itab_zycit080 TO /pws/zycie080a.
IF /pws/zycie080a-lifnr NE /pws/zycie079a-lifnr.
SELECT SINGLE *
FROM lfa1
WHERE lifnr EQ /pws/zycie079a-lifnr.
SELECT SINGLE *
FROM adrc
WHERE addrnumber EQ lfa1-adrnr.
SELECT SINGLE bezei FROM t005u INTO v_bezei
WHERE land1 = lfa1-land1 AND
spras = sy-langu AND
bland = adrc-region.
/pws/zycie080a-logradouro = adrc-street.
/pws/zycie080a-nrlogr = adrc-house_num1.
/pws/zycie080a-city = adrc-city1.
/pws/zycie080a-regio = v_bezei.
/pws/zycie080a-compl = adrc-city2.
/pws/zycie080a-name1 = /pws/zycie079a-descfab.
/pws/zycie080a-landa = /pws/zycie079a-paisfab.
/pws/zycie080a-lifnr = /pws/zycie079a-lifnr .
MOVE-CORRESPONDING /pws/zycie080a TO itab_zycit080.
MODIFY itab_zycit080 INDEX v_tabix.
ENDIF.
else.
/pws/zycie080a-mandt = sy-mandt .
/pws/zycie080a-nrseqli = /pws/zycie078-nrseqli.
/pws/zycie080a-ebeln = /pws/zycie079a-ebeln .
/pws/zycie080a-ebelp = /pws/zycie079a-ebelp .
SELECT SINGLE *
FROM lfa1
WHERE lifnr EQ /pws/zycie079a-lifnr.
SELECT SINGLE *
FROM adrc
WHERE addrnumber EQ lfa1-adrnr.
SELECT SINGLE bezei FROM t005u INTO v_bezei
WHERE land1 = lfa1-land1 AND
spras = sy-langu AND
bland = adrc-region.
/pws/zycie080a-logradouro = adrc-street.
/pws/zycie080a-nrlogr = adrc-house_num1.
/pws/zycie080a-city = adrc-city1.
/pws/zycie080a-regio = v_bezei.
/pws/zycie080a-compl = adrc-city2.
/pws/zycie080a-name1 = /pws/zycie079a-descfab.
/pws/zycie080a-landa = /pws/zycie079a-paisfab.
/pws/zycie080a-lifnr = /pws/zycie079a-lifnr .
/pws/zycie080a-tipoforn = 'F' .
MOVE-CORRESPONDING /pws/zycie080a TO itab_zycit080.
append itab_zycit080.
ENDIF.
ENDIF.
ENDMODULE.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020O01
...
MODULE load_fornec_509 OUTPUT.
* >> Início da exclusão: MODULE LOAD_FORNEC_509
IF /pws/zycie079a-lifnr IS INITIAL.
READ TABLE itab_zycit080 WITH KEY
ebeln = /pws/zycie079a-ebeln
ebelp = /pws/zycie079a-ebelp
lifnr = /pws/zycie079a-lifnr
tipoforn = 'F' .
IF sy-subrc EQ 0 .
IF v_propoe = 'X' .
IF itab_zycit080-lifnr EQ /pws/zycie079a-lifnr.
MOVE-CORRESPONDING itab_zycit080 TO /pws/zycie080a .
ENDIF.
/pws/zycie080a-name1 = /pws/zycie079a-descfab.
/pws/zycie080a-landa = /pws/zycie079a-paisfab.
CLEAR v_propoe.
ENDIF.
ELSE.
IF v_propoe = 'X' .
/pws/zycie080a-name1 = /pws/zycie079a-descfab.
/pws/zycie080a-landa = /pws/zycie079a-paisfab.
CLEAR v_propoe.
ENDIF.
ENDIF.
ELSE.
IF /pws/zycie079a-fabric EQ '2'.
IF /pws/zycie080a-lifnr NE /pws/zycie079a-lifnr.
READ TABLE itab_zycit080 WITH KEY
ebeln = /pws/zycie079a-ebeln
ebelp = /pws/zycie079a-ebelp
lifnr = /pws/zycie079a-lifnr
tipoforn = 'F' .
IF sy-subrc EQ 0 .
MOVE-CORRESPONDING itab_zycit080 TO /pws/zycie080a .
/pws/zycie080a-name1 = /pws/zycie079a-descfab.
/pws/zycie080a-landa = /pws/zycie079a-paisfab.
ELSE.
/pws/zycie080a-lifnr = /pws/zycie079a-lifnr.
SELECT SINGLE *
FROM lfa1
WHERE lifnr EQ /pws/zycie079a-lifnr.
SELECT SINGLE *
FROM adrc
WHERE addrnumber EQ lfa1-adrnr.
SELECT SINGLE bezei FROM t005u INTO v_bezei
WHERE land1 = lfa1-land1 AND
spras = sy-langu AND
bland = adrc-region.
/pws/zycie080a-name1 = adrc-name1.
/pws/zycie080a-landa = adrc-country.
/pws/zycie080a-logradouro = adrc-street.
/pws/zycie080a-nrlogr = adrc-house_num1.
/pws/zycie080a-city = adrc-city1.
/pws/zycie080a-regio = v_bezei.
/pws/zycie080a-compl = adrc-city2.
IF NOT /pws/zycie080a-landa IS INITIAL.
SELECT SINGLE /pws/codpa FROM t005
INTO (v_descr31)
WHERE land1 EQ /pws/zycie080a-landa.
SELECT SINGLE landx FROM t005t
INTO (v_descrpais2)
WHERE land1 EQ /pws/zycie080a-landa
AND spras EQ sy-langu.
ELSE.
CLEAR: v_descr31,
v_descrpais2.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
* << Fim da exclusão
ENDMODULE.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020X01
...
* >> Início da inclusão:
data: v_salvo.
* << Fim da inclusão
DATA: END OF COMMON PART.