CE PLUS - Nota 012795
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 05/02/2013 00:00:00
Data/Hora Última Alteração: 10/06/2013 09:54:00
Descrição da Nota: TRATAMENTO PARA FORNECEDOR INTERCOMPANY
Sintoma
Tratamento para fornecedor Intercompany
Solução
Feito desenvolvimento para respeitar parâmetro e buscar fornecedor diferente para a DI e NF.
Versões Tratadas
9.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 12795 Data: 05/02/2013 Hora: 15:21:32
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 12795
Categoria : Melhoria
Prioridade : Alta
Versão PW.CE : 9.0
Pacote : 00003
Agrupamento : 00147
----------------------------------------------------------------------------------------------------
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)
03036 - 00003 - 6.0 - 00026 - ADEQUAÇÃO DO PW.CE PARA ATENDER AO FUNDAP.
03821 - 00004 - 7.0 - 00001 - ERROS COM TIPO DE FABRICANTE NA FATURA, DI E TRANSMISSÃO SISCOMEX
04371 - 00005 - 7.0 - 00002 - ERROS AO NAVEGAR NO FORNECEDOR DA FATURA , TIPO 0 E TIPO 2.
10673 - 00006 - 8.0 - 00005 - AO CRIAR AS ADIÇÕES DA DI,NÃO LEVA DADOS DA PASTA CÂMBIO AUTOMATI
12714 - 00007 - 9.0 - 00002 - QUANDO FATURA É LATAM, GRAVA ARQUIVOS DE CÂMBIO
----------------------------------------------------------------------------------------------------
TRATAMENTO PARA FORNECEDOR INTERCOMPANY
----------------------------------------------------------------------------------------------------
Palavras Chave:
DI - INTERCOMPANY - FORNECEDOR PARCEIRO.
----------------------------------------------------------------------------------------------------
Objetos da nota:
DTEL /PWS/ZYCIL942
TABD /PWS/ZYCIT000
DYNP /PWS/SAPLZYCIGF1 0005
REPS /PWS/MZYCI023O01
REPS /PWS/MZYCI016F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DTEL /PWS/ZYCIL942
------------------------------------------------------------------------
Elemento de dados incluído: /PWS/ZYCIL942
Classe de desenvolvimento: /PWS/ZYGL
Idioma original: PT
Descrição breve incluída: (36 caracteres), idioma: PT
"Forn. DI diferente Emissor da Fatura"
Descrição breve incluída: (34 caracteres), idioma: ES
"DI Supplier different from invoice"
Categoria de dados: Domínio
Domínio: XFELD
ID parâmetro:
Nome componente default:
Documentar modificações: NÃO
Nome da ajuda de pesquisa:
Parâmetro da ajuda de pesquisa:
Comprimento máximo do denominador breve: 10
Denominador breve incluído (7 caracteres), idioma: PT
"Forn.DI"
Denominador breve incluído (9 caracteres), idioma: ES
"DI suppl."
Comprimento máximo do denominador médio: 16
Denominador médio incluído (16 caracteres), idioma: PT
"Forn.DI dif.Fat."
Denominador médio incluído (15 caracteres), idioma: ES
"DI diff.Invoice"
Comprimento máximo do denominador longo: 21
Denominador longo incluído (18 caracteres), idioma: PT
"Forn.DI dif.Fatura"
Denominador longo incluído (15 caracteres), idioma: ES
"DI diff.Invoice"
Comprimento máximo do título: 21
Título incluído (18 caracteres), idioma: PT
"Forn.DI dif.Fatura"
Título incluído (15 caracteres), idioma: ES
"DI diff.Invoice"
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCIT000
Ao final da tabela /PWS/ZYCIT000 acrescentar o campo "/PWS/ZYCIT000-DI_DIF_FAT"
Nome de campo Chv Elem.dados Tab.verif. N CtDt Comp. Grupo
DI_DIF_FAT /PWS/ZYCIL942 CHAR 1
*Favor atualizar novamente a geração de atualização de tabela através da SE54
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023O01
...
MODULE load_adic OUTPUT.
* >> Início da inclusão: MODULE LOAD_ADIC
DATA : v_lifnr TYPE /pws/zycie006-lifnr,
v_output(2).
clear v_lifnr.
* << Fim da inclusão
...
...
a_1taxarate = a_2taxarate = a_3taxarate =
/pws/zycie116-taxarate.
a_1parcnum = a_2parcnum = a_3parcnum =
/pws/zycie116-parcnum.
a_1periodic = a_2periodic = a_3periodic =
/pws/zycie116-periodic.
a_1indice = a_2indice = a_3indice =
/pws/zycie116-indice.
a_1valtot = a_2valtot = a_3valtot =
/pws/zycie116-valtot.
* >> Início da exclusão: MODULE LOAD_ADIC
IF itab_zycit003-fabric EQ '1'.
PERFORM load_forn USING: /pws/zycie006-lifnr '800'.
* << Fim da exclusão
* >> Início da inclusão: MODULE LOAD_ADIC
IF /pws/zycit000-di_dif_fat NE 'X' .
v_lifnr = /pws/zycie006-lifnr.
ELSE.
CALL FUNCTION 'CONVERSION_EXIT_PARVW_INPUT'
EXPORTING
input = 'FO'
IMPORTING
OUTPUT = v_output .
SELECT SINGLE lifn2 INTO v_lifnr
FROM ekpa
WHERE ebeln = itab_zycit003-ebeln
AND parvw = v_output.
ENDIF.
IF itab_zycit003-fabric EQ '1'.
PERFORM load_forn USING: v_lifnr '800'.
* << Fim da inclusão
ELSEIF itab_zycit003-fabric CA '02'.
* >> Início da exclusão: MODULE LOAD_ADIC
PERFORM load_forn USING: /pws/zycie006-lifnr '800'.
* << Fim da exclusão
* >> Início da inclusão: MODULE LOAD_ADIC
PERFORM load_forn USING: v_lifnr '800'.
* << Fim da inclusão
/pws/zycie080a-name1 = itab_zycit003-descfab.
/pws/zycie080a-landa = /pws/zycie006-paisfab.
CLEAR: /pws/zycie080a-logradouro, /pws/zycie080a-nrlogr,
...
...
ELSE.
/pws/zycie080a-name1 = itab_zycit003-descfab.
/pws/zycie080a-landa = itab_zycit003-paisfab.
PERFORM load_pais USING /pws/zycie080a-landa
CHANGING a_spais2 a_pais2.
CLEAR: /pws/zycie080a-logradouro, /pws/zycie080a-nrlogr,
/pws/zycie080a-compl,
/pws/zycie080a-city, /pws/zycie080a-regio.
ENDIF.
ELSEIF itab_zycit003-fabric EQ '3'.
* >> Início da exclusão: MODULE LOAD_ADIC
PERFORM load_forn USING /pws/zycie006-lifnr '800'.
* << Fim da exclusão
* >> Início da inclusão: MODULE LOAD_ADIC
PERFORM load_forn USING v_lifnr '800'.
* << Fim da inclusão
ENDIF.
PERFORM load_cambio USING wa_it-ebeln wa_it-ebelp .
PERFORM: load_cncm USING wa_it-j_1bnbm,
load_pais USING wa_it-porigem CHANGING a_spais a_pais,
load_pais USING /pws/zycie080-landa CHANGING a_spais1
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016F01
...
FORM seleciona_itens_nfg.
* >> Início da inclusão: FORM SELECIONA_ITENS_NFG
DATA : v_output(2).
* << Fim da inclusão
...
...
WHERE regio = adrc-region.
LOOP AT itab_zycit003.
READ TABLE itab_zycit042 WITH KEY nrseq = itab_zycit003-nrseq
ebeln = itab_zycit003-ebeln
ebelp = itab_zycit003-ebelp.
MOVE-CORRESPONDING itab_zycit003 TO itab_zycit042.
IF NOT /pws/zycit085-opfundap IS INITIAL.
itab_zycit042-lifnr = /pws/zycit085-fundapiana.
ENDIF.
IF sy-subrc NE 0.
* >> Início da inclusão: FORM SELECIONA_ITENS_NFG
IF /pws/zycit000-di_dif_fat EQ 'X' .
CALL FUNCTION 'CONVERSION_EXIT_PARVW_INPUT'
EXPORTING
input = 'FO'
IMPORTING
output = v_output.
SELECT SINGLE lifn2 INTO itab_zycit042-lifnr
FROM ekpa
WHERE ebeln = itab_zycit003-ebeln
AND parvw = v_output.
ENDIF.
* << Fim da inclusão
itab_zycit042-embarca = /pws/zycit001-embarca.
itab_zycit042-j_1bbranch = /pws/zycit001-j_1bbranch.
itab_zycit042-nrseqnf = /pws/zycie041-nrseq.
IF NOT itab_zycit003-waers IS INITIAL.
ENDIF.
IF NOT itab_zycit003-qtd_itend IS INITIAL.
MOVE itab_zycit003-qtd_itend TO itab_zycit042-qtd_iten.
ENDIF.
CLEAR v_subrc.
MOVE itab_zycit042 TO wa_zycit042.
...