CE PLUS - Nota 003821
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Fatura Mercadoria
Data/Hora da Publicação: 01/06/2007 00:00:00
Data/Hora Última Alteração: 22/02/2011 16:07:39
Descrição da Nota: ERROS COM TIPO DE FABRICANTE NA FATURA, DI E TRANSMISSÃO SISCOMEX
Sintoma
ocorrem erros de tratamento quando na fatura escolhido tipos de fabricante diferentes.
Erros ocorrem na Fatura, DI e transmissão siscomex
Solução
ajustado conforme siscomex.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 03821 Data: 01/06/2007 Hora: 10:45:52
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 03821
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00001
Agrupamento : 00168
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
03682 - 00001 - 7.0 - 00001 - ERRO AO MUDAR TIPO DE FABRICANTE NA FATURA
----------------------------------------------------------------------------------------------------
ERROS COM TIPO DE FABRICANTE NA FATURA, DI E TRANSMISSÃO SISCOMEX
----------------------------------------------------------------------------------------------------
Palavras Chave:
TIPO DE FABRICANTE - FATURA - DI - TRANSMISSÃO SISCOMEX
DADOS DO FABRICANTE
----------------------------------------------------------------------------------------------------
Objetos da nota:
DYNP /PWS/SAPMZYCI003 0200
DYNP /PWS/SAPMZYCI003 0400
REPS /PWS/MZYCI003F01
REPS /PWS/MZYCI003F02
REPS /PWS/MZYCI003I01
REPS /PWS/MZYCI003O01
REPS /PWS/MZYCI023F01
REPS /PWS/MZYCI023F02
REPS /PWS/MZYCI023F04
REPS /PWS/MZYCI023O01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI003 0200
*Os seguintes elementos de dados foram modificados:
Nome
Ctg. Linha Coluna CmprDf CmVis Altura Format Dict Modif At.Des.Só At
Gr1 Gr2 Gr3 Gr4 SPA GPA ID parâm Cód.F TCmp TpoLoopExbLoop
Outros atributos
*Foi alterado o código de função de FC_FORN para FC_EXP
*de:
- TAB_FORN3
Push 1 1 30 30 1 CHAR
F3 FC_FORN P
Elem.em TabStripControl
*para:
- TAB_FORN3
Push 1 1 30 30 1 CHAR
F3 FC_EXP P
Elem.em TabStripControl
*Foi alterado o código de função de FC_FORN para FC_FAB
*de:
- TAB_FORN1
Push 1 2 30 30 1 CHAR
F1 FC_FORN P
Elem.em TabStripControl
*para:
- TAB_FORN1
Push 1 2 30 30 1 CHAR
F1 FC_FAB P
Elem.em TabStripControl
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003F01
...
INTO CORRESPONDING FIELDS OF wa_lfa1
WHERE lifnr EQ /pws/zycie006-lifnr.
SELECT SINGLE * FROM adrc INTO wa_adrc
WHERE addrnumber EQ wa_lfa1-adrnr.
SELECT SINGLE bezei FROM t005u INTO /pws/zycie080-regio
WHERE land1 = wa_lfa1-land1 AND
spras = sy-langu AND
bland = wa_adrc-region.
/pws/zycie080-lifnr = wa_lfa1-lifnr.
/pws/zycie080-name1 = wa_lfa1-name1.
* >> Início da exclusão: FORM LOAD_FORN
IF NOT itab_zycit003-paisfab IS INITIAL.
/pws/zycie080-landa = itab_zycit003-paisfab.
ELSE.
* << Fim da exclusão
/pws/zycie080-landa = wa_lfa1-land1.
* >> Início da exclusão: FORM LOAD_FORN
ENDIF.
* << Fim da exclusão
/pws/zycie080-nrlogr = wa_lfa1-adrnr.
/pws/zycie080-logradouro = wa_lfa1-stras.
/pws/zycie080-compl = wa_lfa1-ort02.
/pws/zycie080-city = wa_lfa1-ort01.
/pws/zycie003-ebeln = itab_zycit003-ebeln.
/pws/zycie003-ebelp = itab_zycit003-ebelp.
...
...
INTO CORRESPONDING FIELDS OF wa_lfa1
WHERE lifnr EQ /pws/zycie006-lifnr.
SELECT SINGLE * FROM adrc INTO wa_adrc
WHERE addrnumber EQ wa_lfa1-adrnr.
SELECT SINGLE bezei FROM t005u INTO /pws/zycie080-regio
WHERE land1 = wa_lfa1-land1 AND
spras = sy-langu AND
bland = wa_adrc-region.
/pws/zycie080-lifnr = wa_lfa1-lifnr.
/pws/zycie080-name1 = wa_lfa1-name1.
* >> Início da exclusão: FORM LOAD_FORN
IF NOT itab_zycit003-paisfab IS INITIAL.
/pws/zycie080-landa = itab_zycit003-paisfab.
ELSE.
* << Fim da exclusão
/pws/zycie080-landa = wa_lfa1-land1.
* >> Início da exclusão: FORM LOAD_FORN
ENDIF.
* << Fim da exclusão
/pws/zycie080-nrlogr = wa_lfa1-adrnr.
/pws/zycie080-logradouro = wa_lfa1-stras.
/pws/zycie080-compl = wa_lfa1-ort02.
/pws/zycie080-city = wa_lfa1-ort01.
/pws/zycie003-ebeln = itab_zycit003-ebeln.
/pws/zycie003-ebelp = itab_zycit003-ebelp.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003F02
...
ENDIF.
SELECT SINGLE * FROM lfa1
WHERE lifnr EQ /pws/zycie006-lifnr.
LOOP AT itab_zycit003.
itab_zycit003-paquis = lfa1-land1.
if not itab_zycit003-lifnrfabr is initial.
SELECT SINGLE land1 FROM lfa1
INTO itab_zycit003-porigem
WHERE lifnr EQ itab_zycit003-lifnrfabr.
else.
* >> Início da exclusão: FORM TRATA_FABRICANTE
if not /pws/zycie006-fabricante eq '3'.
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_FABRICANTE
if not itab_zycit003-fabric eq '3'.
* << Fim da inclusão
clear itab_zycit003-porigem.
endif.
endif.
MODIFY itab_zycit003.
ENDLOOP.
ENDFORM.
FORM atualiza_novo_seq.
IF /pws/zycie006-tpfatura EQ '04'.
LOOP AT itab_zycit047.
itab_zycit047-nrseq = /pws/zycie006-nrseq.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003I01
...
IF '023' CA /pws/zycie006-fabricante .
CLEAR : itab_zycit003-paisfab,
itab_zycit003-lifnrfabr,
itab_zycit003-descfab ,
itab_zycit003-porigem ,
/pws/zycie003-porigem .
CLEAR : /pws/zycie003-paisfab,
/pws/zycie003-lifnrfabr,
/pws/zycie003-descfab .
ENDIF.
* >> Início da inclusão: MODULE ATUALIZA_PAIS
IF /pws/zycie006-fabricante EQ '0'.
itab_zycit003-fabric = '2'.
itab_zycit003-flagfabr = 'S' .
ELSE.
* << Fim da inclusão
itab_zycit003-fabric = /pws/zycie006-fabricante.
* >> Início da inclusão: MODULE ATUALIZA_PAIS
ENDIF.
* << Fim da inclusão
MODIFY itab_zycit003 .
ENDLOOP .
ENDMODULE.
MODULE consiste_fabr INPUT.
ENDMODULE.
MODULE verifica_tpfatura INPUT.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003O01
...
IF screen-group2 = 'C2'.
screen-invisible = '1'.
ENDIF.
IF screen-name EQ 'TAB_FORN2' .
screen-invisible = '0'.
ELSEIF screen-name EQ 'TAB_FORN1' OR
screen-name EQ 'TAB_FORN3'.
screen-invisible = '1'.
ENDIF.
MODIFY SCREEN.
* >> Início da exclusão: MODULE SET_SCREEN_200
ELSEIF v_fabricante EQ '2'.
IF screen-group1 = 'F1'.
screen-invisible = '0'.
ENDIF.
IF screen-group1 = 'F2'.
screen-invisible = '1'.
ENDIF.
IF screen-group1 = 'F3'.
screen-invisible = '0'.
ENDIF.
IF screen-group2 = 'C1' AND itab_zycit003-flagfabr = 'S'.
screen-invisible = '0'.
ELSEIF screen-group2 = 'C1'.
screen-invisible = '1'.
ENDIF.
IF screen-group2 = 'C2'.
screen-invisible = '1'.
ENDIF.
IF screen-name EQ 'TAB_FORN1' .
screen-invisible = '0'.
ELSEIF screen-name EQ 'TAB_FORN2' OR
screen-name EQ 'TAB_FORN3'.
screen-invisible = '1'.
ENDIF.
MODIFY SCREEN.
ELSEIF v_fabricante EQ '3'.
* << Fim da exclusão
* >> Início da inclusão: MODULE SET_SCREEN_200
ELSEIF v_fabricante EQ '3'.
* << Fim da inclusão
IF screen-group1 = 'F1'.
screen-invisible = '1'.
ENDIF.
IF screen-group1 = 'F2'.
screen-invisible = '1'.
ENDIF.
IF screen-group1 = 'F3'.
screen-invisible = '0'.
ENDIF.
IF screen-group2 = 'C1'.
...
...
IF screen-group2 = 'C2'.
screen-invisible = '0'.
ENDIF.
IF screen-name EQ 'TAB_FORN3' .
screen-invisible = '0'.
ELSEIF screen-name EQ 'TAB_FORN2' OR
screen-name EQ 'TAB_FORN1'.
screen-invisible = '1'.
ENDIF.
MODIFY SCREEN.
* >> Início da exclusão: MODULE SET_SCREEN_200
ELSEIF v_fabricante EQ '0'.
* << Fim da exclusão
* >> Início da inclusão: MODULE SET_SCREEN_200
ELSEIF '02' CA v_fabricante.
* << Fim da inclusão
IF screen-group1 = 'F1'.
* >> Início da exclusão: MODULE SET_SCREEN_200
screen-invisible = '1'.
* << Fim da exclusão
* >> Início da inclusão: MODULE SET_SCREEN_200
screen-invisible = '0'.
* << Fim da inclusão
ENDIF.
IF screen-group1 = 'F2'.
screen-invisible = '1'.
ENDIF.
IF screen-group1 = 'F3'.
screen-invisible = '0'.
ENDIF.
IF screen-group2 = 'C1'.
screen-invisible = '1'.
ENDIF.
IF screen-group2 = 'C2'.
screen-invisible = '0'.
ENDIF.
* >> Início da exclusão: MODULE SET_SCREEN_200
IF screen-name EQ 'TAB_FORN3' .
* << Fim da exclusão
* >> Início da inclusão: MODULE SET_SCREEN_200
IF screen-name EQ 'TAB_FORN2' .
screen-invisible = '1'.
ELSEIF screen-name EQ 'TAB_FORN3' OR
screen-name EQ 'TAB_FORN1'.
* << Fim da inclusão
screen-invisible = '0'.
* >> Início da exclusão: MODULE SET_SCREEN_200
ELSEIF screen-name EQ 'TAB_FORN2' OR
screen-name EQ 'TAB_FORN1'.
* << Fim da exclusão
* >> Início da inclusão: MODULE SET_SCREEN_200
ENDIF.
IF NOT screen-group1 IS INITIAL.
* << Fim da inclusão
screen-invisible = '1'.
* >> Início da inclusão: MODULE SET_SCREEN_200
CASE screen-group1.
WHEN 'F1' .
screen-invisible = '0'.
WHEN 'F3' .
screen-invisible = '0'.
ENDCASE.
MODIFY SCREEN.
* << Fim da inclusão
ENDIF.
* >> Início da exclusão: MODULE SET_SCREEN_200
MODIFY SCREEN.
* << Fim da exclusão
ENDIF.
ENDLOOP.
ENDMODULE.
MODULE set_screen_202 OUTPUT.
ENDMODULE.
MODULE status_0400 OUTPUT.
...
...
screen-input = 0.
screen-invisible = 1.
ENDIF.
ENDIF.
IF screen-group2 = 'FAB' AND /pws/zycie006-fabricante NE '2'.
screen-input = '0'.
ENDIF.
ELSE.
screen-input = '0'.
ENDIF.
* >> Início da exclusão: MODULE SET_SCREEN_0400
IF /pws/zycie006-fabricante = '2'.
* << Fim da exclusão
* >> Início da inclusão: MODULE SET_SCREEN_0400
IF /pws/zycie003-fabric = '2'.
* << Fim da inclusão
IF ( screen-name = '/PWS/ZYCIE003-LIFNRFABR' AND
/pws/zycie003-flagfabr = 'S' )
OR ( screen-name = '/PWS/ZYCIE003-DESCFAB' AND
/pws/zycie003-flagfabr = 'N' )
OR ( screen-name = '/PWS/ZYCIE003-PAISFAB' AND
/pws/zycie003-flagfabr = 'N' ).
screen-input = '1'.
ELSEIF ( screen-name = '/PWS/ZYCIE003-LIFNRFABR'
AND /pws/zycie003-flagfabr = 'N' ) OR
( screen-name = '/PWS/ZYCIE003-DESCFAB'
AND /pws/zycie003-flagfabr = 'S' ) OR
( screen-name = '/PWS/ZYCIE003-PAISFAB'
AND /pws/zycie003-flagfabr = 'S' ).
screen-input = '0'.
* >> Início da inclusão: MODULE SET_SCREEN_0400
ENDIF.
* << Fim da inclusão
ENDIF.
* >> Início da exclusão: MODULE SET_SCREEN_0400
IF /pws/zycie006-fabricante = '1' AND
* << Fim da exclusão
* >> Início da inclusão: MODULE SET_SCREEN_0400
IF /pws/zycie003-fabric = '1' AND
* << Fim da inclusão
( screen-name = '/PWS/ZYCIE003-LIFNRFABR' OR
screen-name = '/PWS/ZYCIE003-DESCFAB' OR
screen-name = '/PWS/ZYCIE003-FLAGFABR' OR
screen-name = '/PWS/ZYCIE003-PAISFAB' ).
screen-input = '0'.
* >> Início da exclusão: MODULE SET_SCREEN_0400
ENDIF.
* << Fim da exclusão
ENDIF.
* >> Início da exclusão: MODULE SET_SCREEN_0400
IF /pws/zycie006-fabricante = '3'.
* << Fim da exclusão
* >> Início da inclusão: MODULE SET_SCREEN_0400
IF /pws/zycie003-fabric = '3'.
* << Fim da inclusão
IF screen-name = '/PWS/ZYCIE003-PAISFAB'.
screen-input = '1'.
ELSEIF screen-name = '/PWS/ZYCIE003-LIFNRFABR' OR
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F01
...
ebelp = itab_it-ebelp.
IF sy-subrc EQ 0.
READ TABLE itab_zycit006 WITH KEY
nrseq_pgfat = itab_zycit263-nrseq_pgfat.
IF sy-subrc = 0.
itab_it-zterm = itab_zycit006-zterm.
itab_it-nrseqfat = itab_zycit006-nrseq.
itab_it-nrfat = itab_zycit006-nrfat.
itab_it-vinculo = itab_zycit006-vinculo.
itab_it-codcambial = itab_zycit006-codcambial.
* >> Início da exclusão: FORM FILL_ITABIT
IF itab_zycit006-fabricante EQ '3'.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_ITABIT
IF itab_it-fabric EQ '3'.
* << Fim da inclusão
IF itab_it-porigem IS INITIAL.
itab_it-porigem = itab_zycit006-paisfab.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
IF v_waers IS INITIAL.
v_waers = itab_it-waersbem.
ELSE.
IF v_waers NE itab_it-waersbem.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F02
...
ENDFORM.
FORM load_forn USING p_lifnr p_zycie.
CLEAR wa_lfa1.
SELECT SINGLE lifnr name1 land1 adrnr stras ort01 ort02 regio
FROM lfa1
INTO CORRESPONDING FIELDS OF wa_lfa1
WHERE lifnr EQ p_lifnr.
CLEAR wa_adrc.
SELECT SINGLE * FROM adrc INTO wa_adrc
WHERE addrnumber EQ wa_lfa1-adrnr.
* >> Início da exclusão: FORM LOAD_FORN
CLEAR /pws/zycie080-regio.
* << Fim da exclusão
* >> Início da inclusão: FORM LOAD_FORN
IF p_zycie = '800'.
CLEAR /pws/zycie080.
* << Fim da inclusão
SELECT SINGLE bezei FROM t005u INTO /pws/zycie080-regio
WHERE land1 = wa_lfa1-land1 AND
spras = sy-langu AND
bland = wa_adrc-region.
* >> Início da exclusão: FORM LOAD_FORN
IF p_zycie = '800'.
* << Fim da exclusão
/pws/zycie080-lifnr = wa_lfa1-lifnr.
/pws/zycie080-name1 = wa_lfa1-name1.
/pws/zycie080-landa = wa_adrc-country.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F04
...
ENDIF.
MODIFY SCREEN.
ENDLOOP.
ENDFORM.
FORM set_screen_0310.
LOOP AT SCREEN.
IF NOT screen-group1 IS INITIAL.
screen-invisible = '1'.
CASE screen-group1.
WHEN 'F3'.
* >> Início da exclusão: FORM SET_SCREEN_0310
IF '1' CA /pws/zycie006-fabricante .
* << Fim da exclusão
* >> Início da inclusão: FORM SET_SCREEN_0310
IF '1' CA wa_it-fabric .
* << Fim da inclusão
screen-invisible = '0'.
ENDIF.
* >> Início da exclusão: FORM SET_SCREEN_0310
WHEN 'F1' OR 'F2'.
IF '023' CA /pws/zycie006-fabricante.
* << Fim da exclusão
* >> Início da inclusão: FORM SET_SCREEN_0310
WHEN 'F1'.
IF '023' CA wa_it-fabric.
* << Fim da inclusão
screen-invisible = '0'.
ENDIF.
* >> Início da exclusão: FORM SET_SCREEN_0310
WHEN 'ALL'.
IF '012' CA /pws/zycie006-fabricante.
* << Fim da exclusão
* >> Início da inclusão: FORM SET_SCREEN_0310
WHEN 'F2' .
IF '02' CA wa_it-fabric.
* << Fim da inclusão
screen-invisible = '0'.
ENDIF.
ENDCASE.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
ENDFORM.
FORM set_screen_0350.
v_input = '0'.
IF v_acto = 'A'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023O01
...
WHEN '0120'.
PERFORM set_screen_0120.
WHEN '0222'.
PERFORM set_screen_0222.
WHEN '0223'.
PERFORM set_screen_0223.
WHEN '0232' OR '0233' OR '0234'.
PERFORM set_screen_0232.
WHEN '0310'.
PERFORM set_screen_0310.
* >> Início da exclusão: MODULE SET_SCREEN
WHEN '0312'.
LOOP AT SCREEN.
screen-invisible = '0'.
IF screen-group1 = 'UNK'.
IF /pws/zycie006-fabricante NE '3'.
screen-invisible = '1'.
ENDIF.
ELSE.
IF /pws/zycie006-fabricante EQ '3'.
screen-invisible = '1'.
ENDIF.
ENDIF.
MODIFY SCREEN.
ENDLOOP.
* << Fim da exclusão
WHEN '0350'.
PERFORM set_screen_0350.
WHEN '0353'.
LOOP AT SCREEN.
IF screen-group1 EQ 'AC'.
screen-input = '0'.
IF v_acto EQ 'A'.
screen-input = '1'.
ENDIF.
IF ( screen-group2 = 'FIX' AND
...
...
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 /pws/zycie006-fabricante EQ '1'.
* << Fim da exclusão
* >> Início da inclusão: MODULE LOAD_ADIC
IF itab_zycit003-fabric EQ '1'.
* << Fim da inclusão
PERFORM load_forn USING: /pws/zycie006-lifnr '800'.
* >> Início da exclusão: MODULE LOAD_ADIC
ELSEIF /pws/zycie006-fabricante CA '02'.
* << Fim da exclusão
* >> Início da inclusão: MODULE LOAD_ADIC
ELSEIF itab_zycit003-fabric CA '02'.
* << Fim da inclusão
PERFORM load_forn USING: /pws/zycie006-lifnr '800'.
* >> Início da exclusão: MODULE LOAD_ADIC
IF itab_zycit003-flagfabr = 'N'.
* << Fim da exclusão
/pws/zycie080a-name1 = itab_zycit003-descfab.
/pws/zycie080a-landa = /pws/zycie006-paisfab.
CLEAR: /pws/zycie080a-logradouro, /pws/zycie080a-nrlogr,
/pws/zycie080a-compl,
/pws/zycie080a-city, /pws/zycie080a-regio.
* >> Início da exclusão: MODULE LOAD_ADIC
ELSE.
* << Fim da exclusão
PERFORM load_forn USING itab_zycit003-lifnrfabr '80A'.
* >> Início da exclusão: MODULE LOAD_ADIC
ENDIF.
ELSEIF /pws/zycie006-fabricante EQ '3'.
* << Fim da exclusão
* >> Início da inclusão: MODULE LOAD_ADIC
ELSEIF itab_zycit003-fabric EQ '3'.
* << Fim da inclusão
PERFORM load_forn USING /pws/zycie006-lifnr '800'.
ENDIF.
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
a_pais1,
load_inco,
load_regt USING wa_it-codregtri /pws/zycie085-ntimp '1'
CHANGING t_regdes,
load_regt USING wa_it-codregtriipi /pws/zycie085-ntimp '2'
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023O01
...
ELSEIF it_det_itens_di-fabric EQ '2'.
CLEAR: wa_lfa1, wa_adrc, it_forn.
SELECT SINGLE lifnr name1 land1 adrnr
stras ort01 ort02 FROM lfa1
INTO CORRESPONDING FIELDS OF wa_lfa1
WHERE lifnr EQ it_faturas_di-lifnr.
SELECT SINGLE * FROM adrc INTO wa_adrc
WHERE addrnumber EQ wa_lfa1-adrnr.
IF sy-subrc EQ 0.
it_forn-forn_name1 = wa_lfa1-name1.
it_forn-forn_logradouro = wa_adrc-street.
it_forn-forn_nrlogr = wa_adrc-house_num1.
it_forn-forn_compl = wa_lfa1-ort02.
it_forn-forn_city = wa_adrc-city1.
*<<Inicio inclusão
it_forn-forn_regio = wa_adrc-region.
*<<Fim inclusão
PERFORM load_pais(/pws/sapmzyci023):
USING wa_adrc-country
CHANGING it_forn-forn_landa v_txtpais.
ENDIF.
CLEAR: wa_lfa1, wa_adrc.
IF it_det_itens_di-flagfabr = 'N'.
it_forn-fabr_name1 = it_det_itens_di-descfab.
it_forn-fabr_landa = it_faturas_di-paisfab.
...
...
...