Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Recebimento
Data/Hora da Publicação: 03/09/2007 00:00:00
Data/Hora Última Alteração: 23/02/2011 09:54:43
Descrição da Nota: NACIONALIZAÇÃO DE RECOF RECUPERAÇÃO DE IMPOSTOS
Sintoma
NA CONTABILIZAÇÃO DA DI DE NACIONALIZAÇÃO o pwce NAO RECLASSIFICA OS IMPOSTOS A RECUPERAR
Solução
NA CONTABILIZAÇÃO DA DI DE NACIONALIZAÇÃO o pwce NAO RECLASSIFICA OS IMPOSTOS A RECUPERAR
7.0
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 04608 Data: 03/09/2007 Hora: 18:58:24
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 04608
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00002
Agrupamento : 00011
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
04091 - 00001 - 7.0 - 00002 - NA CRIAÇÃO DA NF, NÃO TRAZ O VALOR DO PESO BRUTO VINDO DA DI.
----------------------------------------------------------------------------------------------------
NACIONALIZAÇÃO DE RECOF RECUPERAÇÃO DE IMPOSTOS
----------------------------------------------------------------------------------------------------
Palavras Chave:
NACIONALIZAÇÃO DE RECOF RECUPERAÇÃO DE IMPOSTOS
RECEBIMENTO - F-02
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI001O01
REPS /PWS/MZYCI017F01
REPT /PWS/SAPMZYCI017
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI001O01
...
ENDIF.
IF /pws/zycie001-regime EQ '04' AND
/pws/zycie001-tpdecl EQ 'DI'.
it_code-fcode = 'DI'. APPEND it_code.
SET PF-STATUS '0100' EXCLUDING 'DI'.
ENDIF.
IF /pws/zycie001-tpdecl EQ 'DSI' .
it_code-fcode = 'DA'. APPEND it_code.
ENDIF.
IF /pws/zycie001-regime EQ '16' .
* >> Início da exclusão: MODULE STATUS_0050
it_code-fcode = 'RECEB'. APPEND it_code.
* << Fim da exclusão
it_code-fcode = 'BL'. APPEND it_code.
it_code-fcode = 'FAT'. APPEND it_code.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI017F01
...
ENDLOOP.
ELSE.
LOOP AT itab_zycit042 WHERE lgort IS initial.
READ TABLE itab_deposito WITH KEY ebeln = itab_zycit042-ebeln
ebelp = itab_zycit042-ebelp.
IF itab_deposito-knttp IS INITIAL.
v_receb = 'X'.
ENDIF.
ENDLOOP.
ENDIF.
* >> Início da exclusão: FORM EXECUTA_BATCH_INPUT
IF v_receb = 'X'.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_BATCH_INPUT
IF v_receb = 'X' and /pws/zycie001-regime ne '16' .
* << Fim da inclusão
MESSAGE w015 WITH text-044.
* >> Início da inclusão: FORM EXECUTA_BATCH_INPUT
ELSEif /pws/zycie001-regime EQ '16' and /pws/zycie001-tpdecl = 'DI'.
message I015 with text-108 text-109 text-110.
* << Fim da inclusão
ELSE.
PERFORM executa_recebimento.
IF e_subrc EQ '8'.
EXIT.
ENDIF.
...
...
ELSE.
IF wa_nf-belnrf02fre IS INITIAL.
IF /pws/zycie001-regime NE '04' OR
/pws/zycie001-tpdecl EQ 'DSI'.
PERFORM fill_date_f_02fre.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
PERFORM fill_date_j1b3_saida.
* >> Início da inclusão: FORM EXECUTA_BATCH_INPUT
elseif /pws/zycie001-regime EQ '16' and /pws/zycie001-tpdecl = 'DI'.
IF e_f_02 EQ 'S'.
IF wa_nf-belnr_f_02 IS INITIAL.
wa_nf-belnr_f_02 = wa_nf_aux-belnr_f_02 .
wa_global-belnr_f_02 = wa_nf_aux-belnr_f_02.
wa_nf-statusp_f_02 = wa_nf_aux-statusp_f_02 .
wa_global-statusp_f_02 = wa_nf_aux-statusp_f_02 .
wa_nf-dt_f_02 = wa_nf_aux-dt_f_02.
wa_global-dt_f_02 = wa_nf_aux-dt_f_02.
MESSAGE i057 WITH wa_nf-belnr_f_02.
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-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
( /pws/zycie001-regime NE '04' OR
/pws/zycie001-tpdecl EQ 'DSI' ).
PERFORM fill_date_f_02.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
* << Fim da inclusão
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
wa_nf-belnr_f_02 IS INITIAL AND
wa_nf-belnrf02seg IS INITIAL.
CLEAR itab_itemdata.
REFRESH itab_itemdata.
SELECT SINGLE * FROM t001 WHERE bukrs = wa_nf-bukrs.
PERFORM get_parameters_mrm1_receb.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCI017
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 108
Texto: (51 caracteres)
"Será executado somente a classificação dos impostos"
Comprimento máximo: 51
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 109
Texto: (50 caracteres)
"Não será executado o recebimento físico nem fiscal"
Comprimento máximo: 50
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 110
Texto: (44 caracteres)
"por se tratar de uma nacionalização de Recof"
Comprimento máximo: 44