CE PLUS - Nota 003343
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Recebimento
Data/Hora da Publicação: 29/03/2007 00:00:00
Data/Hora Última Alteração: 23/02/2011 09:53:27
Descrição da Nota: VERIFICA TIPO DE TIPO DE DECLARAÇÃO NO RECEBIMENTO.
Sintoma
Quando o embarque é modalidade 04 e o tipo de declaração é DSI o recebimento não está realizando a
contabilização dos impostos.
Solução
Atualização do programa de recebimento para que no momento de gerar o recebimento o sistema realize
a verificação de modalidade e tipo de declaração para lançar corretamente os impostos.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 03343 Data: 29/03/2007 Hora: 09:17:14
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 03343
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00001
Agrupamento : 00160
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
01771 - 00001 - 6.0 - 00024 - NA ADMISSÃO EM ENTREPOSTO, NO RECEBIMENTO NÃO CHAMAR A TRANSAÇÃO
----------------------------------------------------------------------------------------------------
VERIFICA TIPO DE TIPO DE DECLARAÇÃO NO RECEBIMENTO.
----------------------------------------------------------------------------------------------------
Palavras Chave:
CONTABILIZAÇÃO - IMPOSTOS - MODALIDADE - DSI - RECEBIMENTO
/PWS/SAPMZYCI017
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI017F01
REPS /PWS/MZYCI017F02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI017F01
...
MOVE-CORRESPONDING wa_nf TO /pws/zycie043.
MODIFY /pws/zycit043 FROM /pws/zycie043.
ENDIF.
ENDIF.
ELSE.
IF wa_nf-belnr_f_02 IS INITIAL.
IF t001-land1 = 'AR' OR t001-land1 = 'CL'.
PERFORM fill_date_f_02_ana.
ELSE.
IF /pws/zycie001-modalidade NE '99' AND
* >> Início da exclusão: FORM EXECUTA_BATCH_INPUT
/pws/zycie001-regime NE '04'.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_BATCH_INPUT
( /pws/zycie001-regime NE '04' OR
/pws/zycie001-tpdecl EQ 'DSI' ).
* << Fim da inclusão
PERFORM fill_date_f_02.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
SELECT SINGLE * FROM t001 WHERE bukrs = /pws/zycie043a-bukrs.
SELECT SINGLE *
FROM /pws/zycit000
INTO wa_zycit000
WHERE land1 EQ t001-land1.
...
...
IF v_existe_nfr NE 'S'.
MOVE-CORRESPONDING wa_nf TO /pws/zycie041.
MODIFY /pws/zycit041 FROM /pws/zycie041.
ELSE.
MOVE-CORRESPONDING wa_nf TO /pws/zycie043.
MODIFY /pws/zycit043 FROM /pws/zycie043.
ENDIF.
ENDIF.
ELSE.
IF wa_nf-belnrf02seg IS INITIAL.
* >> Início da exclusão: FORM EXECUTA_BATCH_INPUT
IF /pws/zycie001-regime NE '04'.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_BATCH_INPUT
IF /pws/zycie001-regime NE '04' OR
/pws/zycie001-tpdecl EQ 'DSI'.
* << Fim da inclusão
PERFORM fill_date_f_02b.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
IF /pws/zycit031-inco1_ci = 'FOB' AND wa_zycit000-provfre = 'X'.
SELECT SINGLE * FROM /pws/zycit041
INTO wa_global
WHERE nrseq = wa_nf-nrseq
AND nfglobal = wa_nf-nfglobal
...
...
IF v_existe_nfr NE 'S'.
MOVE-CORRESPONDING wa_nf TO /pws/zycie041.
MODIFY /pws/zycit041 FROM /pws/zycie041.
ELSE.
MOVE-CORRESPONDING wa_nf TO /pws/zycie043.
MODIFY /pws/zycit043 FROM /pws/zycie043.
ENDIF.
ENDIF.
ELSE.
IF wa_nf-belnrf02fre IS INITIAL.
* >> Início da exclusão: FORM EXECUTA_BATCH_INPUT
IF /pws/zycie001-regime NE '04'.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_BATCH_INPUT
IF /pws/zycie001-regime NE '04' OR
/pws/zycie001-tpdecl EQ 'DSI'.
* << Fim da inclusão
PERFORM fill_date_f_02fre.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
PERFORM fill_date_j1b3_saida.
ELSE.
IF NOT wa_nf-belnr_mr1m IS INITIAL AND
NOT wa_nf-mblnr_mb01 IS INITIAL AND
wa_nf-belnr_f_51 IS INITIAL AND
...
...
CLEAR itab_itemdata.
REFRESH itab_itemdata.
SELECT SINGLE * FROM t001 WHERE bukrs = wa_nf-bukrs.
PERFORM get_parameters_mrm1_receb.
PERFORM fill_date_f_51.
IF wa_nf-belnr_f_02 IS INITIAL.
IF t001-land1 = 'AR' OR t001-land1 = 'CL'.
PERFORM fill_date_f_02_ana.
ELSE.
IF /pws/zycie001-modalidade NE '99' AND
* >> Início da exclusão: FORM EXECUTA_BATCH_INPUT
/pws/zycie001-regime NE '04'.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_BATCH_INPUT
( /pws/zycie001-regime NE '04' OR
/pws/zycie001-tpdecl EQ 'DSI' ).
* << Fim da inclusão
PERFORM fill_date_f_02.
ENDIF.
ENDIF.
ENDIF.
SELECT SINGLE * FROM t001 WHERE bukrs = /pws/zycie043a-bukrs.
SELECT SINGLE *
FROM /pws/zycit000
INTO wa_zycit000
WHERE land1 EQ t001-land1.
IF /pws/zycit031-inco1_ci NE 'CIF' AND wa_zycit000-provseg = 'X'.
SELECT SINGLE * FROM /pws/zycit041
INTO wa_global
WHERE nrseq = wa_nf-nrseq
AND nfglobal = wa_nf-nfglobal
AND cancel NE 'X'.
IF wa_nf-belnrf02seg IS INITIAL.
* >> Início da exclusão: FORM EXECUTA_BATCH_INPUT
IF /pws/zycie001-regime NE '04'.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_BATCH_INPUT
IF /pws/zycie001-regime NE '04' OR
/pws/zycie001-tpdecl EQ 'DSI'.
* << Fim da inclusão
PERFORM fill_date_f_02b.
ENDIF.
ENDIF.
ENDIF.
IF /pws/zycit031-inco1_ci = 'FOB' AND wa_zycit000-provfre = 'X'.
SELECT SINGLE * FROM /pws/zycit041
INTO wa_global
WHERE nrseq = wa_nf-nrseq
AND nfglobal = wa_nf-nfglobal
AND cancel NE 'X'.
IF wa_nf-belnrf02fre IS INITIAL.
* >> Início da exclusão: FORM EXECUTA_BATCH_INPUT
IF /pws/zycie001-regime NE '04'.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_BATCH_INPUT
IF /pws/zycie001-regime NE '04' OR
/pws/zycie001-tpdecl EQ 'DSI'.
* << Fim da inclusão
PERFORM fill_date_f_02fre.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
PERFORM fill_date_j1b3_saida.
IF v_existe_nfr EQ 'S'.
/pws/zycie041-dt_mr1m = wa_nf-dt_mr1m .
itab_nf-dt_mr1m = wa_nf-dt_mr1m .
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI017F02
...
wa_global-statusp_f_02 = 'C'.
wa_nf-dt_f_02 = sy-datlo.
wa_global-dt_f_02 = sy-datlo.
ENDIF.
ELSE.
IF wa_nf-belnr_f_02 IS INITIAL.
IF t001-land1 = 'AR' OR t001-land1 = 'CL'.
PERFORM fill_date_f_02_ana.
ELSE.
IF /pws/zycie001-modalidade NE '99' AND
* >> Início da exclusão: FORM EVENTO_ESTORNO
/pws/zycie001-regime NE '04'.
* << Fim da exclusão
* >> Início da inclusão: FORM EVENTO_ESTORNO
( /pws/zycie001-regime NE '04' or
/pws/zycie001-TPDECL eq 'DSI' ).
* << Fim da inclusão
PERFORM fill_date_f_02.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
MOVE-CORRESPONDING wa_nf TO itab_zycit050.
ADD 1 TO itab_zycit050-indice.
CLEAR: itab_zycit050-estorno, itab_zycit050-marc.
...