CE PLUS - Nota 005284
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DSI
Data/Hora da Publicação: 22/11/2007 00:00:00
Data/Hora Última Alteração: 09/03/2010 11:02:13
Descrição da Nota: NÃO ESTÁ LEVANDO CÓDIGO SISCOMEX DE PAÍS E MOEDA PARA O ORIENTADOR.
Sintoma
Não está levando código siscomex de país e moeda para o orientador.
Solução
Tratamento de código siscomex de país e moeda antes do envio para o orientador.
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 05284 Data: 22/11/2007 Hora: 15:49:38
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 05284
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00003
Agrupamento : 00022
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
NÃO ESTÁ LEVANDO CÓDIGO SISCOMEX DE PAÍS E MOEDA PARA O ORIENTADOR.
----------------------------------------------------------------------------------------------------
Palavras Chave:
DSI - CÓDIGO SISCOMEX - ORIENTADOR - PAÍS - MOEDA
----------------------------------------------------------------------------------------------------
Objetos da nota:
FUNC /PWS/ZYCI_TRANSFER_DI
REPS /PWS/MZYCI023F02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCI_TRANSFER_DI
...
PERFORM trata_decimais_di USING p_moeda
p_valor.
it_cabecalho_di-vlseg = p_valor.
MODIFY it_cabecalho_di INDEX 1 TRANSPORTING opfundap vlseg.
MOVE it_cabecalho_di TO wa_085.
PERFORM load_pais(/pws/sapmzyci023) USING wa_085-land
CHANGING it_cabecalho_di-land v_txtpais.
PERFORM load_waers(/pws/sapmzyci023):
USING wa_085-waersseg
CHANGING it_cabecalho_di-waersseg v_txtw,
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSFER_DI
USING wa_085-waersfre
CHANGING it_cabecalho_di-waersfre v_txtw,
* << Fim da inclusão
USING wa_085-waers
CHANGING it_cabecalho_di-waers v_txtw.
MODIFY it_cabecalho_di INDEX 1 TRANSPORTING
* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSFER_DI
land waersseg waers.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSFER_DI
land waersseg waersfre waers.
* << Fim da inclusão
IF NOT it_cabecalho_di[] IS INITIAL.
...
...
nrseq = it_itens_di-nrseq.
IF it_031[] IS INITIAL.
SELECT * FROM /pws/zycit031 INTO TABLE it_031.
ENDIF.
READ TABLE it_031 WITH KEY inco1 = s_inco1.
IF sy-subrc EQ 0.
s_inco1_ci = it_031-inco1_ci.
ELSE.
s_inco1_ci = s_inco1.
ENDIF.
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSFER_DI
LOOP AT it_itens_di.
PERFORM load_waers(/pws/sapmzyci023):
USING it_itens_di-waersbem
CHANGING it_itens_di-waersbem v_txtw.
PERFORM load_pais(/pws/sapmzyci023) USING it_itens_di-pproc
CHANGING it_itens_di-pproc v_txtpais.
MODIFY it_itens_di.
ENDLOOP.
* << Fim da inclusão
SORT it_itens_di BY adicao ASCENDING.
LOOP AT it_det_itens_di.
SELECT SINGLE * FROM /pws/zycft007 INTO /pws/zycft007.
IF /pws/zycft007-modncm EQ space.
CONCATENATE it_det_itens_di-j_1bnbm(4)
it_det_itens_di-j_1bnbm+5(2)
it_det_itens_di-j_1bnbm+8(2) INTO
it_det_itens_di-j_1bnbm.
MODIFY it_det_itens_di INDEX sy-tabix.
ELSEIF /pws/zycft007-modncm EQ '2'.
...
...
IF NOT it_itens_di-adicao IS INITIAL .
MOVE it_itens_di-adicao TO it_doc_vinc_di-adicao.
MODIFY it_doc_vinc_di.
ELSE.
DELETE it_doc_vinc_di.
ENDIF.
ELSE.
DELETE it_doc_vinc_di.
ENDIF.
ENDLOOP.
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSFER_DI
LOOP AT it_faturas_di .
PERFORM load_pais(/pws/sapmzyci023) USING it_faturas_di-paquis
CHANGING it_faturas_di-paquis v_txtpais.
PERFORM load_waers(/pws/sapmzyci023):
USING it_faturas_di-waers
CHANGING it_faturas_di-waers v_txtw.
PERFORM load_waers(/pws/sapmzyci023):
USING it_faturas_di-waers_emb
CHANGING it_faturas_di-waers_emb v_txtw.
MODIFY it_faturas_di.
ENDLOOP.
* << Fim da inclusão
SELECT * FROM /pws/zycit116 INTO TABLE it_116
WHERE nrseqdi EQ i_nrseqdi.
IF NOT it_116[] IS INITIAL.
LOOP AT it_116.
CLEAR: it_adicao_di.
MOVE-CORRESPONDING it_116 TO it_adicao_di.
IF it_116-parcvar EQ 'X'.
it_adicao_di-parcvar2 = 'S'.
ELSE.
it_adicao_di-parcvar2 = 'N'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F02
...
SELECT SINGLE descdesp FROM /pws/zycet132 INTO s_urfe
WHERE codesp = /pws/zycie085-urfent.
ENDFORM.
FORM load_agen.
PERFORM texto_dominio USING '/PWS/ZYCID051' /pws/zycie085-tpagente
CHANGING s_tpa.
ENDFORM.
FORM load_waers USING p_waers
CHANGING p_s_cm
p_s_desc.
* >> Início da exclusão: FORM LOAD_WAERS
CLEAR: p_s_cm, p_s_desc.
* << Fim da exclusão
SELECT SINGLE /pws/codmo FROM tcurc INTO p_s_cm
WHERE waers = p_waers.
IF sy-subrc EQ 0.
SELECT SINGLE ltext FROM tcurt INTO p_s_desc
WHERE spras = sy-langu AND
waers = p_waers.
ENDIF.
ENDFORM.
FORM load_sn USING p_sn
CHANGING p_sntxt.
...
...
WHERE codmotivo = p_motivo.
ENDFORM.
FORM load_clas.
PERFORM texto_dominio USING '/PWS/ZYCID057'
/pws/zycie100a-classific
CHANGING t_clades.
ENDFORM.
FORM load_pais USING p_country
CHANGING p_siscomex
p_descr.
* >> Início da exclusão: FORM LOAD_PAIS
CLEAR: p_siscomex, p_descr.
* << Fim da exclusão
SELECT SINGLE /pws/codpa FROM t005 INTO p_siscomex
WHERE land1 = p_country.
IF sy-subrc EQ 0.
SELECT SINGLE landx FROM t005t INTO p_descr WHERE spras = sy-langu
AND land1 = p_country.
ENDIF.
ENDFORM.
FORM load_blid.
CLEAR: t_blid.
SELECT SINGLE * FROM /pws/zycit093 INTO /pws/zycie093 WHERE
...