CE PLUS - Nota 010840
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Transmissão Siscomex
Data/Hora da Publicação: 16/12/2010 00:00:00
Data/Hora Última Alteração: 17/12/2010 14:59:36
Descrição da Nota: AO TRANSMITIR DI NÃO LEVA DESCRIÇÃO DE PAÍS DO FORNECEDOR/FABRICANTE
Sintoma
Ao transmitir DI não leva descrição de País do fornecedor/fabricante
Solução
Ao transmitir DI levar descrição de País do fornecedor/fabricante
Versões Tratadas
8.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 10840 Data: 16/12/2010 Hora: 15:29:00
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 10840
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 8.0
Pacote : 00006
Agrupamento : 00052
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
AO TRANSMITIR DI NÃO LEVA DESCRIÇÃO DE PAÍS DO FORNECEDOR/FABRICANTE
----------------------------------------------------------------------------------------------------
Palavras Chave:
TRANSMISSÃO - SISCOMEX - DI - FORNECEDOR - FABRICANTE
----------------------------------------------------------------------------------------------------
Objetos da nota:
FUNC /PWS/ZYCI_TRANSFER_DI
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCI_TRANSFER_DI
...
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.
* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSFER_DI
it_forn-forn_regio = wa_adrc-region.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSFER_DI
SELECT SINGLE bezei FROM t005u INTO it_forn-forn_regio
WHERE land1 = wa_lfa1-land1 AND
spras = sy-langu AND
bland = wa_adrc-region.
* << Fim da 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-lifnrfabr IS INITIAL.
it_forn-fabr_name1 = it_det_itens_di-descfab.
it_forn-fabr_landa = it_det_itens_di-paisfab.
ELSE.
IF it_det_itens_di-flagfabr = 'N'.
...
...
INTO CORRESPONDING FIELDS OF wa_lfa1
WHERE lifnr EQ it_det_itens_di-lifnrfabr.
SELECT SINGLE * FROM adrc INTO wa_adrc
WHERE addrnumber EQ wa_lfa1-adrnr.
IF sy-subrc EQ 0.
it_forn-fabr_name1 = wa_lfa1-name1.
it_forn-fabr_logradouro = wa_adrc-street.
it_forn-fabr_nrlogr = wa_adrc-house_num1.
it_forn-fabr_compl = wa_lfa1-ort02.
it_forn-fabr_city = wa_adrc-city1.
* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSFER_DI
it_forn-fabr_regio = wa_adrc-region.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSFER_DI
SELECT SINGLE bezei FROM t005u INTO it_forn-fabr_regio
WHERE land1 = wa_lfa1-land1 AND
spras = sy-langu AND
bland = wa_adrc-region.
* << Fim da inclusão
PERFORM load_pais(/pws/sapmzyci023):
USING wa_adrc-country
CHANGING it_forn-fabr_landa v_txtpais.
ENDIF.
ENDIF.
ENDIF.
ELSEIF it_faturas_di-fabricante EQ '3'.
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.
* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSFER_DI
it_forn-forn_regio = wa_adrc-region.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSFER_DI
SELECT SINGLE bezei FROM t005u INTO it_forn-forn_regio
WHERE land1 = wa_lfa1-land1 AND
spras = sy-langu AND
bland = wa_adrc-region.
* << Fim da 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-lifnrfabr IS INITIAL.
it_forn-fabr_name1 = it_det_itens_di-descfab.
it_forn-fabr_landa = it_det_itens_di-paisfab.
ELSE.
IF it_det_itens_di-flagfabr = 'N'.
...
...
INTO CORRESPONDING FIELDS OF wa_lfa1
WHERE lifnr EQ it_det_itens_di-lifnrfabr.
SELECT SINGLE * FROM adrc INTO wa_adrc
WHERE addrnumber EQ wa_lfa1-adrnr.
IF sy-subrc EQ 0.
it_forn-fabr_name1 = wa_lfa1-name1.
it_forn-fabr_logradouro = wa_adrc-street.
it_forn-fabr_nrlogr = wa_adrc-house_num1.
it_forn-fabr_compl = wa_lfa1-ort02.
it_forn-fabr_city = wa_adrc-city1.
* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSFER_DI
it_forn-fabr_regio = wa_adrc-region.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSFER_DI
SELECT SINGLE bezei FROM t005u INTO it_forn-fabr_regio
WHERE land1 = wa_lfa1-land1 AND
spras = sy-langu AND
bland = wa_adrc-region.
* << Fim da inclusão
PERFORM load_pais(/pws/sapmzyci023):
USING wa_adrc-country
CHANGING it_forn-fabr_landa v_txtpais.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
it_forn-vinculo = it_faturas_di-vinculo.
it_forn-nrseqdi = i_nrseqdi.
it_forn-adicao = it_116-adicao.
...