CE PLUS - Nota 001771
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Recebimento
Data/Hora da Publicação: 19/07/2006 00:00:00
Data/Hora Última Alteração: 20/06/2011 12:57:20
Descrição da Nota: NA ADMISSÃO EM ENTREPOSTO, NO RECEBIMENTO NÃO CHAMAR A TRANSAÇÃO F-02.
Sintoma
Para o regime 04 (Admissão em Entreposto), no recebimento Físico / Fiscal, após a atualização da
data de lançamento da Nota Fiscal, o programa está emitindo a seguinte mensagem: "Campo Moeda não
está preenchido! Lançamento não será realizado". Para este tipo de regime, onde não incidem
impostos, o programa deve ter o mesmo tratamento de embarques de Drawback por exemplo, não chamar a
transação F-02 para reclassificação de impostos, porque não existe incidência.
Solução
Atualização do programa de recebimento para tratar o regime 04 que não tem contabilizações de
impostos.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 01771 Data: 19/07/2006 Hora: 11:02:44
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 01771
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 6.0
Pacote : 00024
Agrupamento : 00123
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
01591 - 00001 - 6.0 - 00023 - DATAS DO CUSTO EFETIVO
01700 - 00002 - 6.0 - 00024 - QUANDO OCORRE ERRO NO RECEBIMENTO E NÃO É ESTORNADO NÃO PERMITE C
----------------------------------------------------------------------------------------------------
NA ADMISSÃO EM ENTREPOSTO, NO RECEBIMENTO NÃO CHAMAR A TRANSAÇÃO F-02.
----------------------------------------------------------------------------------------------------
Palavras Chave:
REGIME 04 - ADMISSÃO EM ENTREPOSTO - RECEBIMENTO FÍSICO / FISCAL
LANÇAMENTO DA NOTA FISCAL - F-02
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI010F01
REPS /PWS/MZYCI010TOP
REPS /PWS/MZYCI017F01
REPS /PWS/MZYCI017F02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI010F01
...
AND ebeln = itab_zycit003-ebeln
AND ebelp = itab_zycit003-ebelp.
READ TABLE itab_zycit003 INDEX 1.
SELECT SINGLE * FROM /pws/zycit442
WHERE nrseqda EQ itab_zycit003-nrseqda.
* >> Início da inclusão: FORM CUSTEAR_ITENS
IF NOT sy-subrc IS INITIAL.
SELECT SINGLE *
INTO wa_zycit443
FROM /pws/zycit443
WHERE nrseq EQ itab_zycit003-nrseq
AND ebeln EQ itab_zycit003-ebeln
AND ebelp EQ itab_zycit003-ebelp.
SELECT SINGLE *
FROM /pws/zycit442
WHERE nrseqda EQ wa_zycit443-nrseqda.
* << Fim da inclusão
ENDIF.
* >> Início da inclusão: FORM CUSTEAR_ITENS
ENDIF.
* << Fim da inclusão
SELECT SINGLE * FROM t001w
...
...
IF NOT /pws/zycit085-dttax IS INITIAL.
PERFORM taxa_converte USING itab_zycit036_plan-waers
/pws/zycit085-dttax
CHANGING v_taxa.
ELSEIF /pws/zycit085-dttax IS INITIAL.
* >> Início da inclusão: FORM CUSTEAR_ITENS
IF /pws/zycie001-regime EQ '04'.
PERFORM taxa_converte USING /pws/zycie001-waers
/pws/zycit442-dttax
CHANGING v_taxa.
ELSE.
* << Fim da inclusão
PERFORM taxa_converte USING itab_zycit036_plan-waers
sy-datlo
CHANGING v_taxa.
* >> Início da inclusão: FORM CUSTEAR_ITENS
ENDIF.
* << Fim da inclusão
ENDIF.
itab_zycit036_plan-netpr = itab_zycit036_plan-netpr * v_taxa.
IF NOT /pws/zycit085-dttax IS INITIAL.
PERFORM taxa_converte USING /pws/zycie001-waers
/pws/zycit085-dttax
CHANGING v_taxa.
ELSEIF /pws/zycit085-dttax IS INITIAL.
* >> Início da inclusão: FORM CUSTEAR_ITENS
IF /pws/zycie001-regime EQ '04'.
PERFORM taxa_converte USING /pws/zycie001-waers
/pws/zycit442-dttax
CHANGING v_taxa.
ELSE.
* << Fim da inclusão
PERFORM taxa_converte USING /pws/zycie001-waers
sy-datlo
CHANGING v_taxa.
* >> Início da inclusão: FORM CUSTEAR_ITENS
ENDIF.
* << Fim da inclusão
ENDIF.
IF NOT v_taxa IS INITIAL.
v_vlplan = itab_zycit036_plan-netpr / v_taxa.
ELSE.
MESSAGE e015 WITH text-074.
...
...
IF NOT /pws/zycit442-dttax IS INITIAL.
PERFORM taxa_converte USING /pws/zycie001-waers
/pws/zycit442-dttax
CHANGING v_taxa.
ELSEIF /pws/zycit442-dttax IS INITIAL.
* >> Início da inclusão: FORM CUSTEAR_ITENS
IF /pws/zycie001-regime EQ '04'.
PERFORM taxa_converte USING /pws/zycie001-waers
/pws/zycit442-dttax
CHANGING v_taxa.
ELSE.
* << Fim da inclusão
PERFORM taxa_converte USING /pws/zycie001-waers
sy-datum
CHANGING v_taxa.
* >> Início da inclusão: FORM CUSTEAR_ITENS
ENDIF.
* << Fim da inclusão
ENDIF.
IF NOT v_taxa IS INITIAL.
v_vlplan = itab_zycit036_plan-netpr / v_taxa.
ELSE.
MESSAGE e015 WITH text-074.
...
...
IF NOT /pws/zycit085-dttax IS INITIAL.
PERFORM taxa_converte USING /pws/zycie001-waers
/pws/zycit085-dttax
CHANGING v_taxa.
ELSEIF /pws/zycit085-dttax IS INITIAL.
* >> Início da inclusão: FORM CUSTEAR_ITENS
IF /pws/zycie001-regime EQ '04'.
PERFORM taxa_converte USING /pws/zycie001-waers
/pws/zycit442-dttax
CHANGING v_taxa.
ELSE.
* << Fim da inclusão
PERFORM taxa_converte USING /pws/zycie001-waers
sy-datum
CHANGING v_taxa.
* >> Início da inclusão: FORM CUSTEAR_ITENS
ENDIF.
* << Fim da inclusão
ENDIF.
IF NOT v_taxa IS INITIAL.
v_vlreal = itab_zycit036_aux2-vlreal / v_taxa.
ELSE.
IF /pws/zycie001-modalidade = '02'.
...
...
IF NOT /pws/zycit085-dttax IS INITIAL.
PERFORM taxa_converte USING /pws/zycie001-waers
/pws/zycit085-dttax
CHANGING v_taxa.
ELSEIF /pws/zycit085-dttax IS INITIAL.
* >> Início da inclusão: FORM CUSTEAR_ITENS
IF /pws/zycie001-regime EQ '04'.
* << Fim da inclusão
PERFORM taxa_converte USING /pws/zycie001-waers
* >> Início da inclusão: FORM CUSTEAR_ITENS
/pws/zycit442-dttax
CHANGING v_taxa.
ELSE.
PERFORM taxa_converte USING /pws/zycie001-waers
* << Fim da inclusão
sy-datum
CHANGING v_taxa.
ENDIF.
* >> Início da inclusão: FORM CUSTEAR_ITENS
ENDIF.
* << Fim da inclusão
IF NOT v_taxa IS INITIAL.
v_vlreal = itab_zycit036_aux2-vlreal / v_taxa.
ELSE.
IF /pws/zycie001-modalidade = '02'.
MESSAGE w015 WITH text-074.
...
...
IF NOT /pws/zycit442-dttax IS INITIAL.
PERFORM taxa_converte USING /pws/zycie001-waers
/pws/zycit442-dttax
CHANGING v_taxa.
ELSEIF /pws/zycit442-dttax IS INITIAL.
* >> Início da inclusão: FORM CUSTEAR_ITENS
IF /pws/zycie001-regime EQ '04'.
PERFORM taxa_converte USING /pws/zycie001-waers
/pws/zycit442-dttax
CHANGING v_taxa.
ELSE.
* << Fim da inclusão
PERFORM taxa_converte USING /pws/zycie001-waers
sy-datum
CHANGING v_taxa.
ENDIF.
* >> Início da inclusão: FORM CUSTEAR_ITENS
ENDIF.
* << Fim da inclusão
IF NOT v_taxa IS INITIAL.
v_vlreal = itab_zycit036_aux2-vlreal / v_taxa.
ELSE.
IF /pws/zycie001-modalidade = '02'.
MESSAGE w015 WITH text-074.
...
...
IF NOT /pws/zycit442-dttax IS INITIAL.
PERFORM taxa_converte USING /pws/zycie001-waers
/pws/zycit442-dttax
CHANGING v_taxa.
ELSEIF /pws/zycit442-dttax IS INITIAL.
* >> Início da inclusão: FORM CUSTEAR_ITENS
IF /pws/zycie001-regime EQ '04'.
PERFORM taxa_converte USING /pws/zycie001-waers
/pws/zycit442-dttax
CHANGING v_taxa.
ELSE.
* << Fim da inclusão
PERFORM taxa_converte USING /pws/zycie001-waers
sy-datum
CHANGING v_taxa.
ENDIF.
* >> Início da inclusão: FORM CUSTEAR_ITENS
ENDIF.
* << Fim da inclusão
IF NOT v_taxa IS INITIAL.
v_vlreal = itab_zycit036_aux2-vlreal / v_taxa.
ELSE.
IF /pws/zycie001-modalidade = '02'.
MESSAGE w015 WITH text-074.
...
...
IF NOT /pws/zycit085-dttax IS INITIAL.
PERFORM taxa_converte USING /pws/zycie001-waers
/pws/zycit085-dttax
CHANGING v_taxa.
ELSEIF /pws/zycit085-dttax IS INITIAL.
* >> Início da inclusão: FORM CUSTEAR_ITENS
IF /pws/zycie001-regime EQ '04'.
PERFORM taxa_converte USING /pws/zycie001-waers
/pws/zycit442-dttax
CHANGING v_taxa.
ELSE.
* << Fim da inclusão
PERFORM taxa_converte USING /pws/zycie001-waers
sy-datum
CHANGING v_taxa.
* >> Início da inclusão: FORM CUSTEAR_ITENS
ENDIF.
* << Fim da inclusão
ENDIF.
PERFORM trata_decimais USING /pws/zycie001-waers
CHANGING itab_zycit036_aux2-vlreal.
IF NOT v_taxa IS INITIAL.
v_vlreal = itab_zycit036_aux2-vlreal / v_taxa.
...
...
IF NOT /pws/zycit442-dttax IS INITIAL.
PERFORM taxa_converte USING /pws/zycie001-waers
/pws/zycit442-dttax
CHANGING v_taxa.
ELSEIF /pws/zycit442-dttax IS INITIAL.
* >> Início da inclusão: FORM CUSTEAR_ITENS
IF /pws/zycie001-regime EQ '04'.
PERFORM taxa_converte USING /pws/zycie001-waers
/pws/zycit442-dttax
CHANGING v_taxa.
ELSE.
* << Fim da inclusão
PERFORM taxa_converte USING /pws/zycie001-waers
sy-datum
CHANGING v_taxa.
* >> Início da inclusão: FORM CUSTEAR_ITENS
ENDIF.
* << Fim da inclusão
ENDIF.
IF NOT v_taxa IS INITIAL.
v_vlreal = itab_zycit036_aux2-vlreal / v_taxa.
ELSE.
IF /pws/zycie001-modalidade = '02'.
...
...
IF NOT /pws/zycit085-dttax IS INITIAL.
PERFORM taxa_converte USING /pws/zycie001-waers
/pws/zycit085-dttax
CHANGING v_taxa.
ELSEIF /pws/zycit085-dttax IS INITIAL.
* >> Início da inclusão: FORM CUSTEAR_ITENS
IF /pws/zycie001-regime EQ '04'.
PERFORM taxa_converte USING /pws/zycie001-waers
/pws/zycit442-dttax
CHANGING v_taxa.
ELSE.
* << Fim da inclusão
PERFORM taxa_converte USING /pws/zycie001-waers
sy-datum
CHANGING v_taxa.
* >> Início da inclusão: FORM CUSTEAR_ITENS
ENDIF.
* << Fim da inclusão
ENDIF.
ELSE.
IF NOT /pws/zycit442-dttax IS INITIAL.
PERFORM taxa_converte USING /pws/zycie001-waers
/pws/zycit442-dttax
...
...
IF NOT /pws/zycit085-dttax IS INITIAL.
PERFORM taxa_converte USING /pws/zycie001-waers
/pws/zycit085-dttax
CHANGING v_taxa.
ELSEIF /pws/zycit085-dttax IS INITIAL.
* >> Início da inclusão: FORM CONVERSAO_AUX
IF /pws/zycie001-regime EQ '04'.
PERFORM taxa_converte USING /pws/zycie001-waers
/pws/zycit442-dttax
CHANGING v_taxa.
ELSE.
* << Fim da inclusão
PERFORM taxa_converte USING /pws/zycie001-waers
sy-datum
CHANGING v_taxa.
* >> Início da inclusão: FORM CONVERSAO_AUX
ENDIF.
* << Fim da inclusão
ENDIF.
IF NOT v_taxa IS INITIAL.
v_vlreal = v_vlreal_t / v_taxa.
ELSE.
IF /pws/zycie001-modalidade = '02'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI010TOP
...
* >> Início da inclusão:
data:
wa_zycit443 like /pws/zycit443.
* << Fim da inclusão
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI017F01
...
ELSE.
IF wa_nf-belnr_f_02 IS INITIAL.
IF t001-land1 = 'AR' OR t001-land1 = 'CL'.
PERFORM fill_date_f_02_ana.
ELSE.
* >> Início da exclusão: FORM EXECUTA_BATCH_INPUT
IF /pws/zycie001-modalidade NE '99'.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_BATCH_INPUT
IF /pws/zycie001-modalidade NE '99' AND
/pws/zycie001-regime NE '04'.
* << Fim da inclusão
PERFORM fill_date_f_02.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
...
...
MODIFY /pws/zycit043 FROM /pws/zycie043.
ENDIF.
ENDIF.
ELSE.
IF wa_nf-belnrf02seg IS INITIAL.
* >> Início da inclusão: FORM EXECUTA_BATCH_INPUT
IF /pws/zycie001-regime NE '04'.
* << Fim da inclusão
PERFORM fill_date_f_02b.
ENDIF.
ENDIF.
* >> Início da inclusão: FORM EXECUTA_BATCH_INPUT
ENDIF.
* << Fim da inclusão
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
...
...
MODIFY /pws/zycit043 FROM /pws/zycie043.
ENDIF.
ENDIF.
ELSE.
IF wa_nf-belnrf02fre IS INITIAL.
* >> Início da inclusão: FORM EXECUTA_BATCH_INPUT
IF /pws/zycie001-regime NE '04'.
* << Fim da inclusão
PERFORM fill_date_f_02fre.
* >> Início da inclusão: FORM EXECUTA_BATCH_INPUT
ENDIF.
* << Fim da inclusão
ENDIF.
...
...
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.
* >> Início da exclusão: FORM EXECUTA_BATCH_INPUT
IF /pws/zycie001-modalidade NE '99'.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_BATCH_INPUT
IF /pws/zycie001-modalidade NE '99' AND
/pws/zycie001-regime NE '04'.
* << Fim da inclusão
PERFORM fill_date_f_02.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
...
...
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 inclusão: FORM EXECUTA_BATCH_INPUT
IF /pws/zycie001-regime NE '04'.
* << Fim da inclusão
PERFORM fill_date_f_02b.
ENDIF.
ENDIF.
* >> Início da inclusão: FORM EXECUTA_BATCH_INPUT
ENDIF.
* << Fim da inclusão
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 inclusão: FORM EXECUTA_BATCH_INPUT
IF /pws/zycie001-regime NE '04'.
* << Fim da inclusão
PERFORM fill_date_f_02fre.
* >> Início da inclusão: FORM EXECUTA_BATCH_INPUT
ENDIF.
* << Fim da inclusão
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI017F02
...
ELSE.
IF wa_nf-belnr_f_02 IS INITIAL.
IF t001-land1 = 'AR' OR t001-land1 = 'CL'.
PERFORM fill_date_f_02_ana.
ELSE.
* >> Início da exclusão: FORM EVENTO_ESTORNO
IF /pws/zycie001-modalidade NE '99'.
* << Fim da exclusão
* >> Início da inclusão: FORM EVENTO_ESTORNO
IF /pws/zycie001-modalidade NE '99' AND
/pws/zycie001-regime NE '04'.
* << Fim da inclusão
PERFORM fill_date_f_02.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
...