CE PLUS - Nota 005409
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 06/12/2007 00:00:00
Data/Hora Última Alteração: 09/03/2010 11:19:27
Descrição da Nota: AO ALTERAR DI NÃO INCLUI TAXA SISCOMEX NA BASE DE ICMS
Sintoma
Ao criar a Di inclui a taxa siscomex na base de ICMS, porém se sair da Di e entrar de novo some do
base de icms as despesas que são base.
Solução
Verificar país da despesa ao alterar DI.
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 05409 Data: 06/12/2007 Hora: 16:15:48
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 05409
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00003
Agrupamento : 00024
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
AO ALTERAR DI NÃO INCLUI TAXA SISCOMEX NA BASE DE ICMS
----------------------------------------------------------------------------------------------------
Palavras Chave:
DI - BASE DE ICMS - TAXA SISCOMEX - PARÂMETRO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI023F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F01
...
ENDIF.
ENDIF.
itab_it-baseipi = t_ipibas.
itab_it-ipi_devido = a_ipidevi.
itab_it-ipi_recolher = t_ipirec .
ENDFORM.
FORM loading_all.
DATA: vl_erro TYPE c.
MOVE /pws/zycie085 TO wa_zycit085.
SELECT SINGLE * FROM /pws/zycbt007 INTO wa_zycbt007
* >> Início da inclusão: FORM LOADING_ALL
WHERE bukrs EQ /pws/zycie085-bukrs.
SELECT SINGLE land1 FROM t001 INTO t001-land1
* << Fim da inclusão
WHERE bukrs EQ /pws/zycie085-bukrs.
* >> Início da exclusão: FORM LOADING_ALL
IF v_dit = 'N'.
* << Fim da exclusão
PERFORM find_region.
SELECT * FROM /pws/zycit049 INTO TABLE itab_zycit049
WHERE nrseq = /pws/zycie085-nrseqdi.
IF NOT itab_zycit049[] IS INITIAL.
SELECT * FROM /pws/zycit019 INTO TABLE itab_zycit019
FOR ALL ENTRIES IN itab_zycit049 WHERE
regio = v_region AND
* >> Início da exclusão: FORM LOADING_ALL
tpdesp = itab_zycit049-tpdesp.
* << Fim da exclusão
* >> Início da inclusão: FORM LOADING_ALL
tpdesp = itab_zycit049-tpdesp AND
land1 = t001-land1 .
* << Fim da inclusão
ENDIF.
IF sy-subrc NE 0.
IF NOT itab_zycit049[] IS INITIAL.
SELECT * FROM /pws/zycit019 INTO TABLE itab_zycit019
FOR ALL ENTRIES IN itab_zycit049 WHERE
regio = space AND
* >> Início da inclusão: FORM LOADING_ALL
tpdesp = itab_zycit049-tpdesp AND
land1 = t001-land1.
IF sy-subrc NE 0.
SELECT * FROM /pws/zycit019 INTO TABLE itab_zycit019
FOR ALL ENTRIES IN itab_zycit049 WHERE
regio = space AND
* << Fim da inclusão
tpdesp = itab_zycit049-tpdesp.
ENDIF.
ENDIF.
* >> Início da inclusão: FORM LOADING_ALL
ENDIF.
* << Fim da inclusão
IF NOT itab_zycit019[] IS INITIAL.
* >> Início da exclusão: FORM LOADING_ALL
SELECT SINGLE land1 FROM t001 INTO t001-land1
WHERE bukrs EQ /pws/zycie085-bukrs.
* << Fim da exclusão
SELECT * FROM /pws/zycit020 INTO TABLE itab_zycit020
FOR ALL ENTRIES IN itab_zycit019 WHERE
regio = v_region AND
codigo = itab_zycit019-codigo AND
( baseicms EQ 'X' OR baseii EQ 'X' ) AND
land1 EQ t001-land1.
ENDIF.
IF sy-subrc NE 0.
IF NOT itab_zycit019[] IS INITIAL.
SELECT SINGLE land1 FROM t001 INTO t001-land1
...
...
MOVE: itab_zycit049[] TO itab_zycit049a[],
itab_zycit086[] TO itab_zycit086a[],
itab_zycit087[] TO itab_zycit087a[],
itab_zycit096[] TO itab_zycit096a[],
itab_zycit114[] TO itab_zycit114a[],
itab_zycit115[] TO itab_zycit115a[],
itab_zycit116[] TO itab_zycit116a[],
itab_zycit118[] TO itab_zycit118a[],
itab_zycit121[] TO itab_zycit121a[],
itab_zycit124[] TO itab_zycit124a[].
* >> Início da exclusão: FORM LOADING_ALL
ENDIF.
* << Fim da exclusão
SELECT * FROM /pws/zycit200 INTO TABLE itab_zycit200
WHERE id = /pws/zycie085-nrseqdi.
SELECT * FROM /pws/zycit095 INTO TABLE itab_zycit095
WHERE nrseqdi = /pws/zycie085-nrseqdi.
MOVE: itab_zycit095[] TO itab_zycit095a[],
itab_zycit200[] TO itab_zycit200a[].
CLEAR: v_calci.
IF NOT /pws/zycie085-nrbl IS INITIAL.
SELECT SINGLE * FROM /pws/zycit093 INTO /pws/zycie093
WHERE nrseqce = /pws/zycie085-nrbl.
...