CE PLUS - Nota 013656
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: PLI
Data/Hora da Publicação: 31/01/2014 15:55:44
Data/Hora Última Alteração: 31/01/2014 15:55:44
Descrição da Nota: PLI - TIPO DE FORNECEDOR 2 - PAÍS DE ORIGEM ERRADO NO TXT
Sintoma
Tipo de Fornecedor 2:
Está repetindo o país do Fornecedor no campo CD_PAIS_ORIG_MERC. Deve levar para o arquivo o país do
fabricante ou o que estiver digitado no campo manualmente.
Solução
Salvar o registro na tabela /pws/zycit080 corretamente.
Versões Tratadas
9.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 13656 Data: 31/01/2014 Hora: 16:05:40
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 13656
Categoria : Erro de Programa
Prioridade : Baixa
Versão PW.CE : 9.0
Pacote : 00007
Agrupamento : 00170
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
12308 - 00001 - 9.0 - 00001 - INCLUSÃO DE CAMPOS PARA INFORMAR O FABRICANTE.
13363 - 00002 - 9.0 - 00006 - ABRIR CAMPO DE FABRICANTE NA PLI PARA INFORMAR NÃO CADASTRADOS
13597 - 00003 - 9.0 - 00007 - SUFRAMA 5.0 - AJUSTE NA FORMATAÇÃO DO NCM
13636 - 00004 - 9.0 - 00007 - CORRIGIR A INFORMAÇÃO DA LI DE REFERÊNCIA NO ARQUIVO SUFRAMA 5.0
13645 - 00005 - 9.0 - 00007 - QUANDO O TIPO DE FABRICANTE É 1 NÃO ESTÁ PREENCHENDO O CD_PAIS_OR
----------------------------------------------------------------------------------------------------
PLI - TIPO DE FORNECEDOR 2 - PAÍS DE ORIGEM ERRADO NO TXT
----------------------------------------------------------------------------------------------------
Palavras Chave:
PLI - SUFRAMA 5.0 - 2 - FORNECEDOR - FABRICANTE - PAÍS
/PWS/ZYCIT080 - /PWS/ZYCIR041 -
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/ZYCIR041
REPS /PWS/MZYCI020F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCIR041
...
WHERE nrseqli EQ it_reg03-nrseqli
AND ebeln EQ it_reg03-ebeln
AND ebelp EQ it_reg03-ebelp
AND tipoforn EQ 'E'.
ENDSELECT.
PERFORM busca_regio.
PERFORM descricao_estado USING it_reg08-pais_aquis_merc.
MOVE v_desc TO it_reg08-uf_forn.
PERFORM load_pais USING it_reg08-pais_aquis_merc.
MOVE v_cod_pais TO it_reg08-pais_aquis_merc.
* >> Início da exclusão: FORM BUSCA_TABELA_080
it_reg08-pais_orig_merc = it_reg08-pais_aquis_merc.
* << Fim da exclusão
IF it_reg08-ausencia_fabric EQ '3'.
...
...
ELSE.
CLEAR: it_reg08-fabricante, it_reg08-end_fabric, it_reg08-nr_fabric,
it_reg08-compl_fabric, it_reg08-mun_fabric, it_reg08-uf_fabric.
* >> Início da inclusão: FORM BUSCA_TABELA_080
it_reg08-pais_orig_merc = it_reg08-pais_aquis_merc.
* << Fim da inclusão
ENDIF.
APPEND it_reg08.
ENDFORM.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020F01
...
CLEAR /pws/zycie080.
* >> Início da exclusã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 exclusão
/pws/zycie080-name1 = p_it_zycit079-descfab.
/pws/zycie080-landa = p_it_zycit079-paisfab.
/pws/zycie080-tipoforn = 'F' .
* >> Início da exclusão: FORM SALVA_FORNPLI
ENDIF.
* << Fim da exclusã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.
IF ( v_tcode EQ '/PWS/ZYCI020_I' OR
v_tcode EQ '/PWS/ZYCI020_G' ) AND
NOT p_it_zycit079-nrforn1 IS INITIAL.
MOVE p_it_zycit079-nrforn1 TO /pws/zycie080-nrforn.
ELSE.
PERFORM gera_nrforn.
ENDIF.
MODIFY /pws/zycit080 FROM /pws/zycie080.
...
* Atenção:
* O código abaixo é somente para Clientes que aplicaram a nota 11506 - Log de modificação
...
/pws/zycie080-landa = it_adrc-country.
/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.
* >> Início da inclusão: FORM SALVA_FORNPLI
CLEAR /pws/zycie080.
/pws/zycie080-landa = p_it_zycit079-paisfab.
/pws/zycie080-tipoforn = 'F' .
MOVE: p_zycie078-nrseqli TO /pws/zycie080-nrseqli,
p_it_zycit079-ebeln TO /pws/zycie080-ebeln,
p_it_zycit079-ebelp TO /pws/zycie080-ebelp.
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.
* << Fim da inclusão
ENDIF.
ENDLOOP.
COMMIT WORK.
ENDIF.
ENDFORM.
...
* Atenção:
* O código abaixo é somente para Clientes que NÃO aplicaram a nota 11506 - Log de modificação
...
* >> Início da inclusão: FORM SALVA_FORNPLI
CLEAR /pws/zycie080.
/pws/zycie080-landa = p_it_zycit079-paisfab.
/pws/zycie080-tipoforn = 'F' .
MOVE: p_zycie078-nrseqli TO /pws/zycie080-nrseqli,
p_it_zycit079-ebeln TO /pws/zycie080-ebeln,
p_it_zycit079-ebelp TO /pws/zycie080-ebelp.
MODIFY /pws/zycit080 FROM /pws/zycie080.
* << Fim da inclusão
ENDIF.
ENDLOOP.
COMMIT WORK.
ENDIF.
ENDFORM.
...