CE PLUS - Nota 002776
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DA
Data/Hora da Publicação: 28/12/2006 00:00:00
Data/Hora Última Alteração: 22/02/2011 14:39:20
Descrição da Nota: DA - SUSPENSÃO DE IMPOSTOS
Sintoma
A Taxa de Siscomex e outras despesas não estão entrando na Base de Cálculo do ICMS, mesmo
parametrizada na ZYCIT020.
Solução
Incluída verificação do parâmetro acima para calcular as Despesas e acumulá-las.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 02776 Data: 28/12/2006 Hora: 10:25:48
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 02776
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 6.0
Pacote : 00026
Agrupamento : 00146
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
01323 - 00002 - 6.0 - 00023 - DECLARAÇÃO DE ADMISSÃO PARA ENTREPOSTO ADUANEIRO
02861 - 00001 - 6.0 - 00026 - NF PARA PROCESSO DE RECOF
----------------------------------------------------------------------------------------------------
DA - SUSPENSÃO DE IMPOSTOS
----------------------------------------------------------------------------------------------------
Palavras Chave:
BASE DE ICMS; TAXA DE SISCOMEX; DESPESAS.
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI070F03
Objetos da nota:
DYNP /PWS/SAPMZYCI070 0100
REPS /PWS/MZYCI070F01
REPS /PWS/MZYCI070F03
REPS /PWS/MZYCI070F05
REPS /PWS/MZYCI070I01
REPS /PWS/MZYCI070O01
REPS /PWS/MZYCI070TOP
REPT /PWS/SAPMZYCI070
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI070 0100
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI070F03
...
IF v_tntgew GT 0.
t_ivdes2 = ( wa_it-ntgew / v_tntgew )
* itab_zycit049-vlreal.
ENDIF.
ELSEIF itab_zycit049-proporplan EQ 'X'.
IF v_tot_plan GT 0.
t_ivdes2 = ( v_it_plan / v_tot_plan ) *
itab_zycit049-vlreal.
ENDIF.
ELSE.
* >> Início da inclusão: FORM LOAD_IICMS
IF /pws/zycit062-bs_rat_icms EQ 'CIF'.
t_ivdes2 = ( itab_zycit049-vlreal *
( itab_it-vlfob + v_tot_fre + v_tot_seg ) )
/ ( /pws/zycie442-vlfob + v_bltofat + v_sgtofat ) .
ELSE.
t_ivdes2 = ( itab_zycit003_rateio-vlreal *
itab_zycit003_rateio-qtd_iten
/ v_tot_real ) * itab_zycit049-vlreal.
ENDIF.
* << Fim da inclusão
IF v_tot_real GT 0.
t_ivdes2 =
( itab_zycit003_rateio-vlreal *
itab_zycit003_rateio-qtd_iten
/ v_tot_real ) * itab_zycit049-vlreal.
ENDIF.
ENDIF.
IF p_tipo = 'I'.
itab_zycit049-vldp_aux = itab_zycit049-vldp_aux + t_ivdes2.
MODIFY itab_zycit049 INDEX sy-tabix TRANSPORTING vldp_aux.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI070F01
...
dtregdi = /pws/zycie442-dtreg
adicao = itab_zycit443_t-adicao
WHERE nrseqli = itab_zycit078_t-nrseqli
AND tpli = 'N'.
ENDLOOP.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
* >> Início da inclusão: FORM SAVE_DATA
IF itab_zycit001-regime = '04'
AND itab_zycit001-tpdecl = 'DI'.
IF NOT /pws/zycie442-dtreg IS INITIAL AND
NOT /pws/zycie442-nrdi IS INITIAL.
PERFORM salva_fatura.
ENDIF.
ENDIF.
* << Fim da inclusão
IF NOT /pws/zycie442-nrdi IS INITIAL OR
NOT /pws/zycie442-dtreg IS INITIAL.
PERFORM atualiza_status.
ENDIF.
DELETE itab_zycit442 WHERE nrseqda = /pws/zycie442-nrseqda.
APPEND /pws/zycie442 TO itab_zycit442.
SORT itab_zycit442 BY nrseqda.
COMMIT WORK.
IF v_dit = 'N'.
MESSAGE i017 WITH text-060.
...
...
ENDIF.
IF v_dit = 'N'.
IF NOT /pws/zycie443a-reduzida IS INITIAL.
a_iiredu = ( ( /pws/zycie443a-reduzida / 100 ) * t_iibas ).
ELSE.
CLEAR: a_iiredu.
ENDIF.
a_iiacor = ( ( /pws/zycie443a-acordorate / 100 ) * t_iibas ).
ENDIF.
CLEAR: t_iirec.
* >> Início da exclusão: FORM LOAD_III
IF ( not itab_zycit001-regime EQ '04' AND
not itab_zycit001-tpdecl EQ 'DI' ).
* << Fim da exclusão
CASE /pws/zycie443a-codregtri.
WHEN '1' OR '3' OR '4' OR '5' OR '7' OR '8'.
IF /pws/zycie442-ntimp NE '09' AND /pws/zycie442-ntimp NE '11'.
IF v_dit = 'S' AND NOT /pws/zycie443a-codregtri = '5'.
t_iirec = a_iicalc.
itab_it-vlii = t_iirec.
ELSE.
IF NOT a_iiredu IS INITIAL.
t_iirec = a_iiredu.
ELSE.
...
...
ENDIF.
ENDIF.
IF NOT /pws/zycie443a-percreduz IS INITIAL.
t_iirec = t_iirec *
( ( 100 - /pws/zycie443a-percreduz ) / 100 ).
a_iidevi = a_iicalc.
ELSE.
a_iidevi = t_iirec.
ENDIF.
itab_it-vlii = t_iirec.
* >> Início da exclusão: FORM LOAD_III
IF /pws/zycie443a-codregtri CA '35'.
* << Fim da exclusão
* >> Início da inclusão: FORM LOAD_III
IF /pws/zycie443a-codregtri CA '3'.
* << Fim da inclusão
CLEAR: t_iirec.
ENDIF.
s_wiireco = s_wiireco + t_iirec.
s_wiicalc = s_wiicalc + a_iicalc.
s_wiiredu = s_wiiredu + a_iiredu.
s_wiidevi = s_wiidevi + a_iidevi.
ENDIF.
ENDIF.
ENDCASE.
* >> Início da exclusão: FORM LOAD_III
ENDIF.
* << Fim da exclusão
itab_it-baseii = t_iibas.
itab_it-ii_calculado = a_iicalc.
itab_it-ii_reduzido = a_iiredu.
itab_it-ii_devido = a_iidevi.
itab_it-ii_recolher = t_iirec .
ENDFORM.
FORM load_iipi USING p_tipo.
* >> Início da inclusão: FORM LOAD_IIPI
IF itab_it-codregtri EQ '5' .
t_ipibas = ( t_ivadu + itab_it-ii_calculado ).
ELSE.
* << Fim da inclusão
t_ipibas = ( t_ivadu + t_iirec ).
* >> Início da inclusão: FORM LOAD_IIPI
ENDIF.
* << Fim da inclusão
IF v_embimp EQ 'X'.
a_ipidevi = ( ( /pws/zycie003-advalipi / 100 ) * t_ipibas ).
ELSE.
a_ipidevi = ( ( /pws/zycie443a-advalipi / 100 ) * t_ipibas ).
ENDIF.
IF v_dit = 'N'.
...
...
a_ipidevi = ( ( /pws/zycie443a-reduzidaipi / 100 ) * t_ipibas ).
ENDIF.
ENDIF.
itab_it-vlipi = a_ipidevi.
CLEAR t_ipirec.
IF v_dit = 'N'.
IF
'26' NA /pws/zycie443a-codregtri.
t_ipirec = a_ipidevi.
IF p_tipo = 'A'.
* >> Início da exclusão: FORM LOAD_IIPI
IF ' 15' NA /pws/zycie443a-codregtriipi .
* << Fim da exclusão
* >> Início da inclusão: FORM LOAD_IIPI
IF ' 1' NA /pws/zycie443a-codregtriipi .
* << Fim da inclusão
ELSE.
CLEAR t_ipirec.
ENDIF.
ELSE.
* >> Início da exclusão: FORM LOAD_IIPI
IF ' 15' NA /pws/zycie443a-codregtriipi .
* << Fim da exclusão
* >> Início da inclusão: FORM LOAD_IIPI
IF ' 1' NA /pws/zycie443a-codregtriipi .
* << Fim da inclusão
s_wipireco = s_wipireco + t_ipirec.
ELSE.
CLEAR t_ipirec.
ENDIF.
s_wipidevi = s_wipidevi + a_ipidevi.
ENDIF.
ENDIF.
ELSE.
IF ' 35' NA /pws/zycie443a-codregtri AND
/pws/zycie442-ntimp NE '09' AND
/pws/zycie442-ntimp NE '11'.
t_ipirec = a_ipidevi.
ENDIF.
ENDIF.
itab_it-baseipi = t_ipibas.
* >> Início da exclusão: FORM LOAD_IIPI
IF itab_zycit001-regime EQ '04' AND
itab_zycit001-tpdecl EQ 'DI'.
CLEAR: t_ipirec.
ENDIF.
* << Fim da exclusão
itab_it-ipi_devido = a_ipidevi.
itab_it-ipi_recolher = t_ipirec .
ENDFORM.
FORM loading_all.
DATA: vl_erro TYPE c.
DATA v_nrseqlote TYPE /pws/zycit463-nrseqlote.
v_tcode = sy-tcode.
REFRESH itab_it.
CASE /pws/zycie442-codreg.
WHEN '02'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI070F03
...
REFRESH itab_zycit443_temp.
MOVE itab_it[] TO itab_zycit443_temp[].
IF itab_it-adicao IS INITIAL AND NOT /pws/zycit000-flag_txsisc IS
INITIAL.
READ TABLE itab_zycit443_temp WITH KEY nrseq = itab_it-nrseq
ebeln = itab_it-ebeln
ebelp = itab_it-ebelp.
IF sy-subrc = 0.
PERFORM adic_list.
ENDIF.
* >> Início da exclusão: FORM LOAD_IICMS
READ TABLE itab_it WITH KEY nrseq = itab_zycit443_temp-nrseq
ebeln = itab_zycit443_temp-ebeln
ebelp = itab_zycit443_temp-ebelp.
* << Fim da exclusão
ENDIF.
IF NOT /pws/zycit000-flag_txsisc IS INITIAL.
LOOP AT itab_zycit443_temp WHERE adicao = wa_it-adicao.
v_nr_itens = v_nr_itens + 1.
ENDLOOP.
ENDIF.
IF NOT /pws/zycit000-flag_txsisc IS INITIAL.
READ TABLE itab_zycit049 WITH KEY tpdesp = wa_it000-cod_sisc.
IF sy-subrc = 0.
IF v_sisco3 IS INITIAL.
DESCRIBE TABLE itab_zycit451 LINES v_ipa.
PERFORM fill_taxasiscomex USING v_ipa.
ENDIF.
IF NOT v_sisco3 IS INITIAL AND NOT v_nr_itens IS INITIAL.
v_desp = ( v_sisco3 / v_nr_itens ).
ENDIF.
ENDIF.
ENDIF.
* >> Início da inclusão: FORM LOAD_IICMS
MOVE-CORRESPONDING itab_it TO /pws/zycie443a.
* << Fim da inclusão
IF NOT /pws/zycie443a-reduzida IS INITIAL.
v_advii = ( /pws/zycie443a-reduzida / 100 ).
ELSE.
IF v_embimp EQ 'X'.
v_advii = ( /pws/zycie003-advalii / 100 ).
ELSE.
v_advii = ( /pws/zycie443a-advalii / 100 ).
ENDIF.
ENDIF.
IF NOT /pws/zycie443a-reduzidaipi IS INITIAL.
...
...
IF /pws/zycie443a-aliqpis IS INITIAL.
/pws/zycie443a-aliqpis = itab_it-advalpis.
ENDIF.
IF /pws/zycie443a-aliqcof IS INITIAL.
/pws/zycie443a-aliqcof = itab_it-advalcofins.
ENDIF.
v_divisor = ( 1 - v_advicms - v_advpis - v_advcof ).
IF ( /pws/zycie443a-nrseqd IS INITIAL OR
( /pws/zycie003-nrseqd IS INITIAL AND
v_embimp EQ 'X' ) ) AND v_nratoc IS INITIAL.
* >> Início da exclusão: FORM LOAD_IICMS
IF itab_it-codregtri EQ '5'.
CLEAR: t_pis, t_cofins.
ELSE.
t_pis = ( itab_it-basepis * ( itab_it-advalpis / 100 ) )
* ( itab_it-basredpis / 100 ) .
* << Fim da exclusão
* >> Início da inclusão: FORM LOAD_IICMS
t_pis = ( itab_it-basepis * ( itab_it-advalpis / 100 ) ).
t_cofins = ( itab_it-basecofins * ( itab_it-advalcofins / 100 ) ).
* << Fim da inclusão
* >> Início da exclusão: FORM LOAD_IICMS
t_cofins = ( itab_it-basecofins * ( itab_it-advalcofins / 100 ) )
* ( itab_it-basredcof / 100 ) .
ENDIF.
* << Fim da exclusão
ELSE.
* >> Início da exclusão: FORM LOAD_IICMS
IF itab_it-codregtri EQ '5'.
CLEAR: t_pis, t_cofins.
ELSE.
t_pis = ( itab_it-basepis * ( itab_it-advalpis / 100 ) )
* ( itab_it-basredpis / 100 ) .
* << Fim da exclusão
* >> Início da inclusão: FORM LOAD_IICMS
t_pis = ( itab_it-basepis * ( itab_it-advalpis / 100 ) ).
* << Fim da inclusão
t_cofins = ( itab_it-basecofins *
* >> Início da exclusão: FORM LOAD_IICMS
( itab_it-advalcofins / 100 ) )
* ( itab_it-basredcof / 100 ) .
ENDIF.
* << Fim da exclusão
* >> Início da inclusão: FORM LOAD_IICMS
( itab_it-advalcofins / 100 ) ).
* << Fim da inclusão
ENDIF.
...
...
AND ebelp = itab_itb-ebelp
AND adicao = itab_itb-adicao.
ENDLOOP.
ENDFORM.
FORM salva_fatura.
DATA: v_belnr_p LIKE /pws/zycie006-belnr_p,
itab_132 LIKE /pws/zycie132 OCCURS 10 WITH HEADER LINE.
DATA: BEGIN OF itab_zycbt117 OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt117.
DATA: END OF itab_zycbt117.
* >> Início da inclusão: FORM SALVA_FATURA
DATA wa_params TYPE ctu_params.
* << Fim da inclusão
IF NOT itab_zycit003[] IS INITIAL.
SELECT * FROM /pws/zycit094 INTO TABLE itab_zycit094
FOR ALL ENTRIES IN itab_zycit003
WHERE nrseq = itab_zycit003-nrseq.
DELETE itab_zycit094
WHERE nrseq IS initial.
ENDIF.
READ TABLE itab_zycit094 INDEX 1.
SELECT * FROM /pws/zycit006 INTO TABLE itab_zycit006
WHERE nrseqce = itab_zycit094-nrseqce AND
...
...
CLEAR itab_bdc.
itab_bdc-program = 'SAPLSLVC_FULLSCREEN'.
itab_bdc-dynpro = '0500'.
itab_bdc-dynbegin = 'X'.
APPEND itab_bdc.
CLEAR itab_bdc.
itab_bdc-fnam = 'BDC_OKCODE'.
itab_bdc-fval = '=CUSTO'.
APPEND itab_bdc.
IF v_modo_bi IS INITIAL.
* >> Início da exclusão: FORM SALVA_FATURA
v_modo_bi = 'N'.
* << Fim da exclusão
* >> Início da inclusão: FORM SALVA_FATURA
v_modo_bi = 'A'.
* << Fim da inclusão
ENDIF.
* >> Início da exclusão: FORM SALVA_FATURA
CALL TRANSACTION '/PWS/ZYCI003_A' USING itab_bdc
MODE v_modo_bi
UPDATE 'S'
* << Fim da exclusão
* >> Início da inclusão: FORM SALVA_FATURA
wa_params-dismode = v_modo_bi.
wa_params-updmode = 'S' .
wa_params-cattmode = ' ' .
wa_params-defsize = ' ' .
wa_params-racommit = 'X' .
wa_params-nobinpt = ' ' .
wa_params-nobiend = ' ' .
CALL TRANSACTION '/PWS/ZYCI003_A' USING itab_bdc
OPTIONS FROM wa_params
* << Fim da inclusão
MESSAGES INTO itab_msg.
COMMIT WORK.
SELECT * FROM /pws/zycit132
INTO TABLE itab_132
WHERE nrseq EQ /pws/zycie006-nrseq.
IF sy-subrc EQ 0.
LOOP AT itab_132 WHERE belnr_p IS initial.
MESSAGE i015 WITH text-206 text-207.
EXIT.
ENDLOOP.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI070F05
...
DELETE itab_itens.
ENDIF.
ENDLOOP.
CLEAR itab_itens.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
CLEAR itab_itens.
IF NOT itab_itens[] IS INITIAL.
* >> Início da inclusão: FORM SELECIONAR_ITENS
IF itab_zycit001-regime EQ '04' AND
itab_zycit001-tpdecl EQ 'DI'.
LOOP AT itab_zycit443.
READ TABLE itab_itens WITH KEY ebeln = itab_zycit443-ebeln
ebelp = itab_zycit443-ebelp.
IF sy-subrc EQ 0.
DELETE itab_itens WHERE ebeln = itab_zycit443-ebeln
AND ebelp = itab_zycit443-ebelp.
v_msg = 'X'.
ENDIF.
ENDLOOP.
IF v_msg = 'X'.
MESSAGE i015 WITH text-527.
ENDIF.
ENDIF.
* << Fim da inclusão
IF NOT itab_zycit443[] IS INITIAL AND
/pws/zycie442-codreg EQ '04'.
READ TABLE itab_zycit443 INDEX 1 .
SELECT * FROM /pws/zycit003
INTO TABLE itab_zycit003
WHERE nrseq = itab_zycit443-nrseq.
ENDIF.
LOOP AT itab_itens.
IF itab_itens-inco1 IS INITIAL.
MESSAGE e039 WITH text-345.
...
...
CLEAR v_lote_rep.
ENDIF.
ENDLOOP.
IF v_dif = 'X'.
MESSAGE i015 WITH text-254.
CLEAR: /pws/zycie463-lote_forn,
itab_forn.
REFRESH: itab_forn.
ENDIF.
ENDFORM.
* >> Início da inclusão:
FORM verifica_taxa.
LOOP AT itab_it.
REFRESH itab_imposto.
CLEAR itab_imposto.
itab_imposto-nrseq = itab_it-nrseq.
itab_imposto-ebeln = itab_it-ebeln.
itab_imposto-ebelp = itab_it-ebelp.
APPEND itab_imposto.
CALL FUNCTION '/PWS/ZYCI_VERIFICA_TAXA'
EXPORTING
data_di = /PWS/ZYCIE442-DTTAX
branch = /pws/zycie442-j_1bbranch
bukrs = /pws/zycie442-bukrs
TABLES
itab_impostos = itab_imposto.
itab_it-aliqii = itab_imposto-rate1.
itab_it-aliqipi = itab_imposto-rate2.
itab_it-aliqicms = itab_imposto-rate3.
IF itab_zycit443-basred IS INITIAL.
itab_it-basred = itab_imposto-basred.
ENDIF.
IF itab_zycit003-basred IS INITIAL.
itab_it-basred = '100'.
ENDIF.
IF itab_it-advalii IS INITIAL.
itab_it-advalii = itab_imposto-rate1.
ENDIF.
IF itab_it-advalipi IS INITIAL.
itab_it-advalipi = itab_imposto-rate2.
ENDIF.
IF itab_it-advalicms IS INITIAL.
itab_it-advalicms = itab_imposto-rate3.
ENDIF.
MODIFY itab_it.
ENDLOOP.
ENDFORM.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI070I01
...
ENDIF.
MODIFY itab_zycit049 INDEX tc_desp-current_line.
ENDMODULE.
MODULE load_itwa INPUT.
PERFORM load_itwa USING /pws/zycie443a-waersbem.
ENDMODULE.
MODULE load_ppro INPUT.
PERFORM load_pais USING /pws/zycie443a-pproc CHANGING t_ppais s_pais.
ENDMODULE.
MODULE calc_vii INPUT.
* >> Início da inclusão: MODULE CALC_VII
move-corresponding /pws/zycie443a to itab_it.
* << Fim da inclusão
PERFORM calcula_impostos USING 'T'.
wa_it-baseii = itab_it-baseii.
wa_it-vlii = itab_it-vlii.
wa_it-baseipi = itab_it-baseipi.
wa_it-vlipi = itab_it-vlipi.
wa_it-baseicms = itab_it-baseicms.
wa_it-vlicms = itab_it-vlicms.
IF v_embimp EQ 'X'.
wa_it-advalii = itab_it-advalii = /pws/zycie443a-advalii.
ENDIF.
...
...
IF v_embimp IS INITIAL.
/pws/zycie443a-advalii = /pws/zycie443a-aliqii.
ELSE.
/pws/zycie003-advalii = /pws/zycie003-aliqii.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
ENDMODULE.
MODULE calc_vipi INPUT.
* >> Início da inclusão: MODULE CALC_VIPI
move-corresponding /pws/zycie443a to itab_it.
* << Fim da inclusão
PERFORM calcula_impostos USING 'T'.
wa_it-baseipi = itab_it-baseipi.
wa_it-vlipi = itab_it-vlipi.
wa_it-baseicms = itab_it-baseicms.
wa_it-vlicms = itab_it-vlicms.
IF v_embimp EQ 'X'.
wa_it-advalipi = itab_it-advalipi = /pws/zycie443a-advalipi.
ENDIF.
PERFORM: load_regt
USING /pws/zycie443a-codregtriipi
/pws/zycie442-ntimp
'2'
CHANGING t_regde2.
ENDMODULE.
MODULE calc_vicms INPUT.
* >> Início da inclusão: MODULE CALC_VICMS
move-corresponding /pws/zycie443a to itab_it.
* << Fim da inclusão
itab_it-basepis = t_pisbs .
itab_it-advalpis = /pws/zycie443a-advalpis .
itab_it-basredpis = /pws/zycie443a-basredpis.
itab_it-basecofins = t_cofinsbs .
itab_it-advalcofins = /pws/zycie443a-advalcofins.
itab_it-basredcof = /pws/zycie443a-basredcof .
IF v_embimp EQ 'X'.
itab_it-nrseqd = /pws/zycie003-nrseqd.
ELSE.
itab_it-nrseqd = /pws/zycie443a-nrseqd.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI070O01
...
ENDIF.
WHEN '/PWS/ZYCIE442-CODREG'.
IF v_acto = 'A' AND
NOT itab_it[] IS INITIAL.
screen-required = screen-input = '0'.
MODIFY SCREEN.
ENDIF.
ENDCASE.
IF screen-name = 'TAB_CONT' OR
screen-name = 'TAB_FORN' OR
* >> Início da exclusão: MODULE SET_SCREEN
screen-name = 'TAB_LOTE' .
* << Fim da exclusão
* >> Início da inclusão: MODULE SET_SCREEN
screen-name = 'TAB_LOTE' OR
screen-name = 'TAB_STATUS'.
* << Fim da inclusão
IF itab_zycit001-regime EQ '04' AND
itab_zycit001-tpdecl EQ 'DI'.
screen-invisible = 1.
MODIFY SCREEN.
ENDIF.
ENDIF.
ENDLOOP.
WHEN '0110' OR '0412' OR '0434'.
LOOP AT SCREEN.
IF sy-tcode = '/PWS/ZYCI070_E'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI070TOP
...
so_bednr FOR /pws/zycie003-bednr
NO-EXTENSION NO INTERVALS,
so_aedat FOR ekko-aedat,
so_ebeln FOR ekko-ebeln,
so_ebelp FOR ekpo-ebelp,
so_matnr FOR ekpo-matnr.
SELECTION-SCREEN END OF SCREEN 0299.
AT SELECTION-SCREEN OUTPUT.
CASE sy-dynnr.
WHEN '0299'.
* >> Início da inclusão:
if itab_zycit001-regime eq '04' and
itab_zycit001-TPDECL eq 'DI' .
sort itab_zycit003 by ebeln ebelp.
loop at itab_zycit003.
so_ebeln-low = itab_zycit003-ebeln.
so_ebeln-sign = 'I' .
so_ebeln-option = 'EQ'.
collect so_ebeln.
so_ebelp-low = itab_zycit003-ebelp.
so_ebelp-sign = 'I'.
so_ebelp-option = 'EQ'.
collect so_ebelp.
endloop.
endif.
* << Fim da inclusão
IF NOT /pws/zycie442-inco1 IS INITIAL.
REFRESH so_inco1.
so_inco1-sign = 'I'.
so_inco1-option = 'EQ'.
so_inco1-low = /pws/zycie442-inco1.
APPEND so_inco1.
ENDIF.
IF NOT /pws/zycie442-waersfob IS INITIAL.
REFRESH so_waers.
so_waers-sign = 'I'.
...
...
ENDLOOP.
ENDCASE.
AT SELECTION-SCREEN.
CASE sy-dynnr .
WHEN '0299'.
CASE sy-ucomm.
WHEN 'CRET'.
PERFORM: selecionar_itens
USING 'X',
fill_itabit,
* >> Início da exclusão:
seleciona_saldo_da.
* << Fim da exclusão
* >> Início da inclusão:
seleciona_saldo_da,
verifica_taxa.
* << Fim da inclusão
ENDCASE.
ENDCASE.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCI070
------------------------------------------------------------------------
Modificado símbolo de texto:
Idioma: EN
Símbolo: 024
Texto: (28 caracteres)
"Do you wish to save bef.ex.?"
Comprimento máximo: 28
------------------------------------------------------------------------
Modificado símbolo de texto:
Idioma: EN
Símbolo: 059
Texto: (6 caracteres)
"Modufy"
Comprimento máximo: 9
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 254
Texto: (23 caracteres)
"Batch already informed."
Comprimento máximo: 132
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 327
Texto: (4 caracteres)
"User"
Comprimento máximo: 7
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 328
Texto: (20 caracteres)
"is processing the PO"
Comprimento máximo: 26
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 489
Texto: (10 caracteres)
"Order/Item"
Comprimento máximo: 11
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 490
Texto: (22 caracteres)
"is not at itens folder"
Comprimento máximo: 23
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 491
Texto: (29 caracteres)
"Batchs obrigatory for PO/Iten"
Comprimento máximo: 35
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 492
Texto: (24 caracteres)
"Not allowed save this DA"
Comprimento máximo: 31
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 493
Texto: (28 caracteres)
"There are zeroed itens at DA"
Comprimento máximo: 43
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 494
Texto: (29 caracteres)
"PO/Itens doesnt exist at SAP."
Comprimento máximo: 51
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 495
Texto: (8 caracteres)
"Material"
Comprimento máximo: 8
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 496
Texto: (26 caracteres)
"does not exist for PO/Iten"
Comprimento máximo: 30
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 497
Texto: (40 caracteres)
"Material obrigatory to validade quantity"
Comprimento máximo: 44
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 498
Texto: (39 caracteres)
"Batch quantity greater than PO quantity"
Comprimento máximo: 48
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 499
Texto: (28 caracteres)
"There are entered documents."
Comprimento máximo: 49
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 500
Texto: (28 caracteres)
"There are entered documents."
Comprimento máximo: 54
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 501
Texto: (32 caracteres)
"Status of finalization filled up"
Comprimento máximo: 32
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 502
Texto: (15 caracteres)
"DA Nationalized"
Comprimento máximo: 16
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 503
Texto: (25 caracteres)
"Itens can not be deleted!"
Comprimento máximo: 27
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 504
Texto: (36 caracteres)
"PO is being used in another process,"
Comprimento máximo: 42
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 505
Texto: (46 caracteres)
"Blockade problem. Notify system administrator."
Comprimento máximo: 55
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 506
Texto: (40 caracteres)
"Inform the Batch number at Batch folder."
Comprimento máximo: 48
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 507
Texto: (18 caracteres)
"Select the PO Iten"
Comprimento máximo: 24
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 508
Texto: (26 caracteres)
"Select just one iten of PO"
Comprimento máximo: 30
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 509
Texto: (47 caracteres)
"To create a new iten, is necessary exist batchs"
Comprimento máximo: 96
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 510
Texto: (40 caracteres)
"with avaliable balance at original iten!"
Comprimento máximo: 47
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 511
Texto: (50 caracteres)
"Iten qty can not be highier than the batch balance"
Comprimento máximo: 52
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 512
Texto: (12 caracteres)
"Inform Plant"
Comprimento máximo: 16
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 513
Texto: (23 caracteres)
"Inform the batcquantity"
Comprimento máximo: 28
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 514
Texto: (29 caracteres)
"PO doesnt have enough balance"
Comprimento máximo: 34
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 515
Texto: (41 caracteres)
"Save the process before create a new iten"
Comprimento máximo: 45
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 516
Texto: (47 caracteres)
"Iten hasnt been created by PW.CE, it's not poss"
Comprimento máximo: 47
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 517
Texto: (13 caracteres)
"ible reversal"
Comprimento máximo: 14
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 518
Texto: (45 caracteres)
"To reverse the balance, batchs are obrigatory"
Comprimento máximo: 50
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 519
Texto: (49 caracteres)
"Alteration at PO are allowed just at regimen '02'"
Comprimento máximo: 50
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 520
Texto: (42 caracteres)
"There are nationalizations for the process"
Comprimento máximo: 42
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 521
Texto: (35 caracteres)
"it is not allowed enatil more itens"
Comprimento máximo: 38
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 522
Texto: (52 caracteres)
"There are itens with differents materials, it is not"
Comprimento máximo: 54
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 523
Texto: (18 caracteres)
"allowed modify PO."
Comprimento máximo: 36
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 524
Texto: (52 caracteres)
"Differents Materials are not allowed to regimen '02'"
Comprimento máximo: 52
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 525
Texto: (34 caracteres)
"Is not entailed at RECOF shipment."
Comprimento máximo: 47
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 526
Texto: (16 caracteres)
"Can not be used."
Comprimento máximo: 24
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 527
Texto: (26 caracteres)
"PO already entailed at DA."
Comprimento máximo: 29
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 527
Texto: (24 caracteres)
"Pedido já vinculado a DA"
Comprimento máximo: 29
Comprimento máximo: 29
Comprimento máximo: 29
Comprimento máximo: 29
Comprimento máximo: 29