CE PLUS - Nota 003602
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Débito em Conta DA
Data/Hora da Publicação: 03/05/2007 00:00:00
Data/Hora Última Alteração: 22/02/2011 14:42:04
Descrição da Nota: DÉBITO EM CONTA DA VERIFICA EXISTÊNCIA DA DI
Sintoma
No Embarque de Recof não está permitindo aprovar Débito em Conta, enviando mensagem "DI
inexistente", só que Recof tem DA e esta já foi criada.
Solução
O programa deve verificar a existência de DA (Tabela /PWS/ZYCIT442) para Regime 04 (Recof) e
diferente deste Regime, continuar pesquisa de DI.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 03602 Data: 03/05/2007 Hora: 14:11:04
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 03602
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00001
Agrupamento : 00164
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
01250 - 00001 - 6.0 - 00023 - NA PRESTAÇÃO DE CONTAS A CONTABILIZAÇÃO ESTA DANDO ERRO
02790 - 00002 - 6.0 - 00026 - MSG PARAMETRIZADA PARA DC CONTAB. SEM DI E SEM IMPOSTO
----------------------------------------------------------------------------------------------------
DÉBITO EM CONTA DA VERIFICA EXISTÊNCIA DA DI
----------------------------------------------------------------------------------------------------
Palavras Chave:
APROVAÇÃO; LIBERAÇÃO; DÉBITO; RECOF
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI013F01
REPS /PWS/MZYCI013X01
REPT /PWS/SAPMZYCI013
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI013F01
...
tpdesp = /pws/zycit000-cod_pis OR
tpdesp = /pws/zycit000-cod_cofins ) AND
vldp > 0.
ENDLOOP.
IF sy-subrc = 0.
IF /pws/zycit000 IS INITIAL.
SELECT SINGLE *
FROM /pws/zycit000
WHERE land1 EQ t001-land1.
ENDIF.
* >> Início da inclusão: FORM APROVA_ADIANTAMENTO
SELECT SINGLE *
FROM /pws/zycit001
WHERE nrseq EQ /pws/zycie008-nrseq.
IF /pws/zycit001-regime NE '04'.
* << Fim da inclusão
SELECT * FROM /pws/zycit100 INTO TABLE itab_zycit100
WHERE nrseq = /pws/zycie008-nrseq.
IF sy-subrc NE 0.
SELECT SINGLE *
FROM /pws/zyglt217
WHERE arbgb EQ '/PWS/ZYCIM' AND
msgnr EQ '133'.
IF sy-subrc EQ 0 AND NOT /pws/zyglt217-msgtp IS INITIAL.
MESSAGE ID '/PWS/ZYCIM' TYPE /pws/zyglt217-msgtp NUMBER '133'.
* >> Início da inclusão: FORM APROVA_ADIANTAMENTO
ENDIF.
ENDIF.
ELSE.
SELECT SINGLE *
FROM /pws/zycit443
WHERE nrseq EQ /pws/zycie008-nrseq.
IF not sy-subrc is initial.
message w013 with text-110.
* << Fim da inclusão
ENDIF.
ENDIF.
CLEAR: v_tot_ii, v_tot_ipi, v_tot_icms, v_tot_pis, v_tot_cofins.
LOOP AT itab_zycit100.
v_tot_ii = itab_zycit100-vlii + v_tot_ii .
v_tot_icms = itab_zycit100-vlicms + v_tot_icms .
IF ( itab_zycit100-codregtriipi NE '1' AND
itab_zycit100-codregtriipi NE '5' ) .
v_tot_ipi = itab_zycit100-vlipi + v_tot_ipi .
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI013X01
...
/pws/zycit008,
/pws/zycie008a,
/pws/zycit016,
/pws/zycie016,
/pws/zycie016a,
/pws/zycit019,
/pws/zycbt039,
/pws/zycit039,
/pws/zycit036,
/pws/zycie036,
* >> Início da inclusão:
/pws/zycit443,
* << Fim da inclusão
t001w,
/pws/zycit270,
/pws/zycit000,
/pws/zycit100,
adrc,
t001,
/pws/zyglt340,
/pws/zyglt343,
rm06b,
t16fe,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCI013
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 110
Texto: (14 caracteres)
"DA inexistente"
Comprimento máximo: 14