CE PLUS - Nota 013230
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Embarque
Data/Hora da Publicação: 09/09/2013 00:00:00
Data/Hora Última Alteração: 11/09/2013 10:07:00
Descrição da Nota: ERRO AO VINCULAR A LI AO EMBARQUE - FABRICANTE DIFERENTE
Sintoma
Quando tentamos vincular uma LI à um Embarque está indicando que o Fabricante da LI é diferente do
da Fatura mas não é.
Solução
Atualizado programa para verificar tipos e códigos de fabricante entre
LI e fatura corretamente.
Versões Tratadas
9.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 13230 Data: 09/09/2013 Hora: 13:54:59
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 13230
Categoria : Erro de Programa
Prioridade : Baixa
Versão PW.CE : 9.0
Pacote : 00005
Agrupamento : 00163
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
12783 - 00001 - 9.0 - 00003 - LEVAR DADOS DE CÂMBIO E FABRICANTE AO VINCULAR LI OU CRIAR FATURA
13175 - 00002 - 9.0 - 00005 - ERRO AO VINCULAR LI AO EMBARQUE
----------------------------------------------------------------------------------------------------
ERRO AO VINCULAR A LI AO EMBARQUE - FABRICANTE DIFERENTE
----------------------------------------------------------------------------------------------------
Palavras Chave:
/PWS/SAPMZYCI001 - EMBARQUE - VINCULAR LI - LI - FABRICANTE DIFERENTE
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI001X01
REPS /PWS/MZYCI001F01
REPT /PWS/SAPMZYCI001
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI001X01
...
* >> Início da inclusão:
DATA: v_lando TYPE /pws/zycit080-lando.
* << Fim da inclusão
DATA: END OF COMMON PART a.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI001F01
...
APPEND itab_log.
CLEAR v_descrlog.
CONCATENATE text-483 itab_zycit078-codinst
text-484 /pws/zycit006-codinst
INTO v_descrlog SEPARATED BY space.
MOVE v_descrlog TO itab_log-descr.
itab_log-pos = v_pos.
APPEND itab_log.
ENDIF.
ENDIF.
* >> Início da inclusão: FORM VINCULACAO_LI
CLEAR: v_lando.
* << Fim da inclusão
CLEAR: v_descrlog.
* >> Início da exclusão: FORM VINCULACAO_LI
SELECT SINGLE lifnr INTO v_lifnrfabr
* << Fim da exclusão
* >> Início da inclusão: FORM VINCULACAO_LI
SELECT SINGLE lifnr lando INTO (v_lifnrfabr, v_lando)
* << Fim da inclusão
FROM /pws/zycit080
WHERE nrseqli EQ itab_zycit078-nrseqli
AND tipoforn EQ 'F'.
* >> Início da inclusão: FORM VINCULACAO_LI
IF sy-subrc NE 0.
SELECT SINGLE lifnr lando INTO (v_lifnrfabr, v_lando)
FROM /pws/zycit080
WHERE nrseqli EQ itab_zycit078-nrseqli.
ENDIF.
* << Fim da inclusão
IF /pws/zycit006-fabricante EQ '2'.
CLEAR: vl_lifnr.
SELECT SINGLE lifnr INTO vl_lifnr
FROM /pws/zycit080
WHERE nrseqli EQ /pws/zycit006-nrseq
AND ebeln EQ itab_zycit003-ebeln
AND ebelp EQ itab_zycit003-ebelp.
IF v_lifnrfabr NE vl_lifnr.
CONCATENATE text-540 itab_zycit003-ebeln text-081
itab_zycit003-ebelp text-091
INTO v_descrlog SEPARATED BY space.
MOVE: itab_zycit003-ebeln TO itab_log-ebeln ,
itab_zycit003-ebelp TO itab_log-ebelp ,
itab_zycit078-nrseqli TO itab_log-nrseqli,
v_descrlog TO itab_log-descr .
v_pos = v_pos + 1.
itab_log-pos = v_pos.
APPEND itab_log.
ENDIF.
* >> Início da exclusão: FORM VINCULACAO_LI
ELSE.
* << Fim da exclusão
* >> Início da inclusão: FORM VINCULACAO_LI
ELSEIF itab_zycit078-fabric EQ '3' AND
itab_zycit078-fabric EQ /pws/zycit006-fabricante AND
v_lando NE itab_zycit003-paisfab.
CONCATENATE text-546 text-003 itab_zycit003-ebeln text-081
itab_zycit003-ebelp text-091
INTO v_descrlog SEPARATED BY space.
MOVE: itab_zycit003-ebeln TO itab_log-ebeln ,
itab_zycit003-ebelp TO itab_log-ebelp ,
itab_zycit078-nrseqli TO itab_log-nrseqli,
v_descrlog TO itab_log-descr .
v_pos = v_pos + 1.
itab_log-pos = v_pos.
APPEND itab_log.
ELSEIF /pws/zycit006-fabricante NE '3'.
* << Fim da inclusão
IF v_lifnrfabr NE /pws/zycit006-lifnrfabr.
CONCATENATE text-540 itab_zycit003-ebeln text-081
itab_zycit003-ebelp text-091
INTO v_descrlog SEPARATED BY space.
MOVE: itab_zycit003-ebeln TO itab_log-ebeln ,
itab_zycit003-ebelp TO itab_log-ebelp ,
itab_zycit078-nrseqli TO itab_log-nrseqli,
v_descrlog TO itab_log-descr .
v_pos = v_pos + 1.
itab_log-pos = v_pos.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCI001
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 546
Texto: (4 caracteres)
"Land"
Comprimento máximo: 4
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 546
Texto: (4 caracteres)
"País"
Comprimento máximo: 4
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 546
Texto: (4 caracteres)
"País"
Comprimento máximo: 4