CE PLUS - Nota 009215
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 19/10/2009 00:00:00
Data/Hora Última Alteração: 09/03/2010 17:46:52
Descrição da Nota: DI COM MEIO DE EMBARQUE POSTAL "PS" NÃO ESTAVA CALCULANDO ICMS E TX SISC
Sintoma
Ao criar um embarque com meio de embarque Postal "PS" ao criar a DI não calcula o ICMS e nem a Tx.
SISC
Solução
Realizar o calculo do ICMS e da TX SISC também para embarques com meio de transporte postal "PS"
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 09215 Data: 19/10/2009 Hora: 14:08:00
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 09215
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 8.0
Pacote : 00001
Agrupamento : 00119
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
DI COM MEIO DE EMBARQUE POSTAL "PS" NÃO ESTAVA CALCULANDO ICMS E TX SISC
----------------------------------------------------------------------------------------------------
Palavras Chave:
DESEMBARAÇO - DI - TX - SISC - ICMS
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI023F01
REPS /PWS/MZYCI023O01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F01
...
wa_zycbt007-bukrs NE /pws/zycie085-bukrs.
SELECT SINGLE * FROM t001 WHERE bukrs EQ /pws/zycie085-bukrs.
SELECT SINGLE * FROM /pws/zycit000 WHERE land1 EQ t001-land1.
SELECT SINGLE * FROM /pws/zycbt007 INTO wa_zycbt007
WHERE bukrs EQ /pws/zycie085-bukrs.
ENDIF.
IF wa_it000 IS INITIAL.
MOVE /pws/zycit000 TO wa_it000.
ENDIF.
v_adics = p_adics.
* >> Início da exclusão: FORM FILL_TAXASISCOMEX
IF NOT /pws/zycie093-meiotransp EQ 'PS'.
* << Fim da exclusão
s_wsisco = wa_it000-txsis_fix.
IF v_adics > 2.
s_wsisco = s_wsisco + ( wa_it000-txsis_0_2 * 2 ).
v_adics = v_adics - 2.
IF v_adics > 3.
s_wsisco = s_wsisco + ( wa_it000-txsis_3_5 * 3 ).
v_adics = v_adics - 3.
IF v_adics > 5.
s_wsisco = s_wsisco + ( wa_it000-txsis_6_10 * 5 ).
v_adics = v_adics - 5.
...
...
( v_adics * wa_it000-txsis_11_20 ).
ENDIF.
ELSE.
s_wsisco = s_wsisco + ( v_adics * wa_it000-txsis_6_10 ).
ENDIF.
ELSE.
s_wsisco = s_wsisco + ( v_adics * wa_it000-txsis_3_5 ).
ENDIF.
ELSE.
s_wsisco = s_wsisco + ( p_adics * wa_it000-txsis_0_2 ).
* >> Início da exclusão: FORM FILL_TAXASISCOMEX
ENDIF.
* << Fim da exclusão
ENDIF.
IF sy-tcode = '/PWS/ZYCI023_C' AND v_propoe_sisc IS INITIAL.
READ TABLE itab_zycit049 WITH KEY tpdesp = /pws/zycit000-cod_sisc.
IF sy-subrc EQ 0.
itab_zycit049-vldp = s_wsisco.
itab_zycit049-vlreal = s_wsisco.
MODIFY itab_zycit049 INDEX sy-tabix TRANSPORTING vldp vlreal.
v_propoe_sisc = 'X'.
ENDIF.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023O01
...
NOT /pws/zycie085-belnr_2 IS INITIAL OR
NOT /pws/zycie085-belnr_3 IS INITIAL OR
NOT /pws/zycie085-belnr_0_f05 IS INITIAL OR
NOT /pws/zycie085-belnr_1_f05 IS INITIAL OR
NOT /pws/zycie085-belnr_2_f05 IS INITIAL OR
NOT /pws/zycie085-belnr_3_f05 IS INITIAL .
screen-input = 0.
MODIFY SCREEN.
ENDIF.
WHEN '0133'.
* >> Início da exclusão: MODULE SET_SCREEN_PADRAO
IF /pws/zycie093-meiotransp EQ 'PS'.
CLEAR: s_wicreco, s_wsisco.
ENDIF.
* << Fim da exclusão
WHEN '0141'.
IF itab_zycit001-meioemba EQ 'PS'.
screen-input = 0.
ENDIF.
WHEN '0221'.
IF itab_zycit001-meioemba EQ 'PS'.
IF screen-name EQ '/PWS/ZYCIE085-RECALF' OR
screen-name EQ '/PWS/ZYCIE085-SETOR'.
screen-input = 1.
ENDIF.
...