Módulo: DRAWBACK
Funcionalidade: Transmissão Siscomex
Data/Hora da Publicação: 31/10/2006 00:00:00
Data/Hora Última Alteração: 17/02/2011 14:26:49
Descrição da Nota: CORREÇÃO DA FUNÇÃO PARA ABERTURA DO ATO NO SISCOMEX
Sintoma
1- Não informou no SISCOMEX valor de seguro de importação;
2- Exportação - Informado no AC que trata-se de uma operação com cobertura cambial, no SISCOMEX
repete-se o valor com e sem cobertura. Quando processo com cobertura o campo sem cobertura deve
ficar em branco;
3- Importação - Transmissão da usagem ao invés da quantidade a ser importada para os itens;
4- Importação - Descrição das matérias-primas importadas no SISCOMEX em inglês no AC está em
português.Devem ser transmitidas em português;
5- Importação - Campos quantidade e quantidade líquida NCM (usagem) no SISCOMEX;
6- Exportação - Informado no AC ao invés do valor USD, está a quantidade a exportar no SISCOMEX.
Solução
Foi criado tratativa no programa para levar o valor das tabelas /pws/zycit245 e /pws/zycit247 ao
invés de levar a porcentagem. Foi incluído na seleção da tabela MAKT a condição do idioma: "PT".
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 02353 Data: 31/10/2006 Hora: 09:21:55
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 02353
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00025
Agrupamento : 00138
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
CORREÇÃO DA FUNÇÃO PARA ABERTURA DO ATO NO SISCOMEX
----------------------------------------------------------------------------------------------------
Palavras Chave:
SISCOMEX, TRANSMISSÃO, ATO CONCESSÓRIO, VL_SEG_T, VL_FRETE_T, QTD_NCM
----------------------------------------------------------------------------------------------------
Objetos da nota:
FUNC /PWS/ZYCI_TRANSFER_DRAWBACK
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCI_TRANSFER_DRAWBACK
...
into table it_zycit245 where
nrseqd = i_nrseqd.
if sy-subrc eq 0.
select matnr maktx from makt into table it_makt
for all entries in it_zycit245
* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSFER_DRAWBACK
where matnr = it_zycit245-codcomp.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSFER_DRAWBACK
where matnr = it_zycit245-codcomp
and spras = 'PT'.
* << Fim da inclusão
endif.
if not it_zycit245[] is initial.
loop at it_zycit245.
move:
it_zycit245-mandt to it_ac_matimp-mandt ,
it_zycit245-nrseqd to it_ac_matimp-nrseqd ,
it_zycit245-codcomp to it_ac_matimp-codcomp ,
it_zycit245-werks to it_ac_matimp-werks ,
it_zycit245-proced to it_ac_matimp-proced ,
it_zycit245-meins to it_ac_matimp-meins ,
* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSFER_DRAWBACK
it_zycit245-qtd_iten to it_ac_matimp-qtd_iten ,
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSFER_DRAWBACK
it_zycit245-qtd_ncm to it_ac_matimp-qtd_iten ,
* << Fim da inclusão
it_zycit245-qtd_tot to it_ac_matimp-qtd_tot ,
it_zycit245-gewei to it_ac_matimp-gewei ,
it_zycit245-brgew to it_ac_matimp-brgew ,
it_zycit245-ntgew to it_ac_matimp-ntgew ,
it_zycit245-sdocomp_i to it_ac_matimp-sdocomp_i ,
it_zycit245-waers to it_ac_matimp-waers ,
it_zycit245-netpr to it_ac_matimp-netpr ,
it_zycit245-netpr_t to it_ac_matimp-netpr_t ,
* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSFER_DRAWBACK
it_zycit245-vl_frete to it_ac_matimp-vl_frete ,
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSFER_DRAWBACK
it_zycit245-vl_frete_t to it_ac_matimp-vl_frete ,
* << Fim da inclusão
it_zycit245-vl_frete_t to it_ac_matimp-vl_frete_t,
it_zycit245-pctseg to it_ac_matimp-pctseg ,
* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSFER_DRAWBACK
it_zycit245-vl_seg to it_ac_matimp-vl_seg ,
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSFER_DRAWBACK
it_zycit245-vl_seg_t to it_ac_matimp-vl_seg ,
* << Fim da inclusão
it_zycit245-vl_seg_t to it_ac_matimp-vl_seg_t ,
it_zycit245-j_1bnbm to it_ac_matimp-j_1bnbm .
append it_ac_matimp.
endloop.
endif.
...
...
into table it_zycit247 where
nrseqd = i_nrseqd.
if sy-subrc eq 0.
select matnr maktx from makt into table it_makt
for all entries in it_zycit247
* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSFER_DRAWBACK
where matnr = it_zycit247-codmat.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSFER_DRAWBACK
where matnr = it_zycit247-codmat
and spras = 'PT'.
* << Fim da inclusão
endif.
if not it_zycit247[] is initial.
loop at it_zycit247.
move:
it_zycit247-mandt to it_ac_matexp-mandt ,
...
...
it_zycit247-sdomat_e to it_ac_matexp-sdomat_e ,
it_zycit247-esgotado to it_ac_matexp-esgotado ,
it_zycit247-waers to it_ac_matexp-waers ,
it_zycit247-netpr to it_ac_matexp-netpr ,
it_zycit247-netpr_t to it_ac_matexp-netpr_t ,
* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSFER_DRAWBACK
it_zycit247-vl_frete to it_ac_matexp-vl_frete ,
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSFER_DRAWBACK
it_zycit247-vl_frete_t to it_ac_matexp-vl_frete ,
* << Fim da inclusão
it_zycit247-vl_frete_t to it_ac_matexp-vl_frete_t ,
it_zycit247-pctcomis to it_ac_matexp-pctcomis ,
it_zycit247-vl_comis to it_ac_matexp-vl_comis ,
it_zycit247-vl_comis_t to it_ac_matexp-vl_comis_t ,
it_zycit247-gewei to it_ac_matexp-gewei ,
it_zycit247-brgew to it_ac_matexp-brgew ,
it_zycit247-ntgew to it_ac_matexp-ntgew ,
* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSFER_DRAWBACK
it_zycit247-j_1bnbm to it_ac_matexp-j_1bnbm .
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSFER_DRAWBACK
it_zycit247-j_1bnbm to it_ac_matexp-j_1bnbm ,
it_zycit247-vl_scamb to it_ac_matexp-vl_scamb .
* << Fim da inclusão
append it_ac_matexp.
endloop.
endif.
if not it_makt[] is initial.
loop at it_ac_matexp.
...
* Tabelas
* Antigo:
IT_AC_MATEXP LIKE /PWS/ZYCIE247D CI - Ato Concessório Materiais Exportados - função
* Novo
IT_AC_MATEXP LIKE /PWS/ZYCIE247 CI - Ato Concessório Materiais Exportados - função