CE PLUS - Nota 008741
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Embarque
Data/Hora da Publicação: 27/07/2009 00:00:00
Data/Hora Última Alteração: 09/03/2010 17:10:35
Descrição da Nota: NO EMBARQUE VERIFICAR SE O FORNECEDOR É NACIONAL
Sintoma
O cliente está fazendo uma importação que o pagamento será em reais. Ao
tentar vincular o pedido de compras ao embarque, aparece a mensagem "Verificar Pedido, fornecedor
Nacional".
Solução
Verificar no cadatro do fornecedor se o mesmo é nacional
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 08741 Data: 27/07/2009 Hora: 16:29:40
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 08741
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00010
Agrupamento : 00107
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
NO EMBARQUE VERIFICAR SE O FORNECEDOR É NACIONAL
----------------------------------------------------------------------------------------------------
Palavras Chave:
EMBARQUE - FORNECEDOR - NACIONAL
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI001F01
REPS /PWS/MZYCI001X01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI001F01
...
DELETE itab_itens WHERE ebeln = itab_itens-ebeln
AND ebelp = itab_itens-ebelp.
ENDIF.
IF /pws/zycie001-modalidade NE '02' AND
/pws/zycie001-modalidade NE '03'.
IF itab_itens-j_1bmatuse EQ ' ' AND
v_land1 = 'BR'.
MESSAGE e013 WITH text-314 text-320.
ENDIF.
ENDIF.
* >> Início da exclusão: FORM SELECIONAR_ITENS
IF itab_itens-waers = /pws/zycbt007-waersb.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONAR_ITENS
CLEAR: it_lfa1.
REFRESH: it_lfa1.
SELECT lifnr adrnr FROM lfa1
APPENDING TABLE it_lfa1
WHERE lifnr EQ itab_itens-lifnr.
IF NOT it_lfa1[] IS INITIAL.
SELECT addrnumber name1 country street house_num1 city1 region
FROM adrc
INTO TABLE it_adrc
FOR ALL ENTRIES IN it_lfa1
WHERE addrnumber EQ it_lfa1-adrnr.
READ TABLE it_adrc INDEX 1.
IF it_adrc-country = v_land1.
* << Fim da inclusão
MESSAGE e013 WITH text-314 text-321.
* >> Início da inclusão: FORM SELECIONAR_ITENS
ENDIF.
* << Fim da inclusão
ENDIF.
READ TABLE itab_ekes WITH KEY ebeln = itab_itens-ebeln
ebelp = itab_itens-ebelp.
IF sy-subrc EQ 0 AND
itab_itens-wepos EQ 'X' AND
itab_itens-elikz NE 'X'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI001X01
...
nennr LIKE t006-nennr,
exp10 LIKE t006-exp10,
END OF itab_t006.
DATA: v_ntgew LIKE /pws/zycit003-ntgew.
DATA: BEGIN OF tt_bwkey_productive OCCURS 0.
INCLUDE STRUCTURE t001k.
DATA: END OF tt_bwkey_productive.
DATA: BEGIN OF tt_bwkey_not_productive OCCURS 0.
INCLUDE STRUCTURE t001k.
DATA: END OF tt_bwkey_not_productive.
* >> Início da inclusão:
DATA: BEGIN OF it_lfa1 OCCURS 10,
lifnr LIKE lfa1-lifnr,
adrnr LIKE lfa1-adrnr,
END OF it_lfa1.
DATA: BEGIN OF it_adrc OCCURS 10,
addrnumber LIKE adrc-addrnumber,
name1 LIKE adrc-name1,
country LIKE adrc-country,
street LIKE adrc-street,
house_num1 LIKE adrc-house_num1,
city1 LIKE adrc-city1,
region LIKE adrc-region,
END OF it_adrc.
* << Fim da inclusão
DATA: v_produtivo TYPE i,
v_improdutivo TYPE i,
v_tem_produtivo TYPE c,
e_contab TYPE c ,
v_tem_improdutivo TYPE c.
DATA: BEGIN OF itab_zycit013 OCCURS 0.
INCLUDE STRUCTURE /pws/zycie013.
DATA: END OF itab_zycit013.
DATA v_form(5) .
DATA: v_sort(30),
...