CE PLUS - Nota 007017
Módulo: DRAWBACK
Funcionalidade: Ato Concessório
Data/Hora da Publicação: 23/07/2008 00:00:00
Data/Hora Última Alteração: 17/02/2011 15:27:26
Descrição da Nota: AJUSTES ATO CONCESSÓRIO SUSP. PARA RECEBER COMPRAS NO MERCADO INTERNO
Sintoma
Ajustes no ato concessório para tratar compras no mercado interno para modalidade suspensão.
A Instrução Normativa RFB nº 845, de 12 de maio de 2008, publicada no D.O.U. em 13/05/08.
Solução
Ajustes no ato concessório para tratar compras no mercado interno para modalidade suspensão.
A Instrução Normativa RFB nº 845, de 12 de maio de 2008, publicada no D.O.U. em 13/05/08.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 07017 Data: 23/07/2008 Hora: 13:41:52
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 07017
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00006
Agrupamento : 00057
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
04898 - 00001 - 7.0 - 00003 - CRIADA EXIT ATO008
----------------------------------------------------------------------------------------------------
AJUSTES ATO CONCESSÓRIO SUSP. PARA RECEBER COMPRAS NO MERCADO INTERNO
----------------------------------------------------------------------------------------------------
Palavras Chave:
ATO - CONCESSÓRIO - MERCADO - INTERNO - INSTRUÇÃO - NORMATIVA - 845
/PWS/SAPMZYCI040 - SUSPENÇÃO
----------------------------------------------------------------------------------------------------
Objetos da nota:
DYNP /PWS/SAPMZYCI040 0204
REPS /PWS/MZYCI040F01
REPS /PWS/MZYCI040F02
REPS /PWS/MZYCI040O01
REPS /PWS/MZYCI040X01
REPT /PWS/SAPMZYCI040
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI040 0204
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE246-COB_CAMB" em tbl.contr./tabstr.
Coluna 9
MODIFICAR TEXTO "/PWS/ZYCIE246-COB_CAMB" em tbl.contr./tabstr.
Coluna 9
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE246-DATACI" em tbl.contr./tabstr.
Coluna 24
MODIFICAR TEXTO "/PWS/ZYCIE246-DATACI" em tbl.contr./tabstr.
Coluna 24
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE246-DOCNUM" em tbl.contr./tabstr.
Coluna 15
MODIFICAR TEXTO "/PWS/ZYCIE246-DOCNUM" em tbl.contr./tabstr.
Coluna 15
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE246-DTDESEMB" em tbl.contr./tabstr.
Coluna 25
MODIFICAR TEXTO "/PWS/ZYCIE246-DTDESEMB" em tbl.contr./tabstr.
Coluna 25
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE246-DTDI" em tbl.contr./tabstr.
Coluna 23
MODIFICAR TEXTO "/PWS/ZYCIE246-DTDI" em tbl.contr./tabstr.
Coluna 23
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE246-DTNF" em tbl.contr./tabstr.
Coluna 16
MODIFICAR TEXTO "/PWS/ZYCIE246-DTNF" em tbl.contr./tabstr.
Coluna 16
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE246-DTREGLI" em tbl.contr./tabstr.
Coluna 19
MODIFICAR TEXTO "/PWS/ZYCIE246-DTREGLI" em tbl.contr./tabstr.
Coluna 19
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE246-EBELN" em tbl.contr./tabstr.
Coluna 4
MODIFICAR TEXTO "/PWS/ZYCIE246-EBELN" em tbl.contr./tabstr.
Coluna 4
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE246-EBELP" em tbl.contr./tabstr.
Coluna 5
MODIFICAR TEXTO "/PWS/ZYCIE246-EBELP" em tbl.contr./tabstr.
Coluna 5
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE246-GEWEI" em tbl.contr./tabstr.
Coluna 26
MODIFICAR TEXTO "/PWS/ZYCIE246-GEWEI" em tbl.contr./tabstr.
Coluna 26
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE246-ITMNUM" em tbl.contr./tabstr.
Coluna 13
MODIFICAR TEXTO "/PWS/ZYCIE246-ITMNUM" em tbl.contr./tabstr.
Coluna 13
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE246-J_1BNBM" em tbl.contr./tabstr.
Coluna 11
MODIFICAR TEXTO "/PWS/ZYCIE246-J_1BNBM" em tbl.contr./tabstr.
Coluna 11
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE246-LOTE" em tbl.contr./tabstr.
Coluna 7
MODIFICAR TEXTO "/PWS/ZYCIE246-LOTE" em tbl.contr./tabstr.
Coluna 7
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE246-MATNR" em tbl.contr./tabstr.
Coluna 10
MODIFICAR TEXTO "/PWS/ZYCIE246-MATNR" em tbl.contr./tabstr.
Coluna 10
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE246-MEINS" em tbl.contr./tabstr.
Coluna 28
MODIFICAR TEXTO "/PWS/ZYCIE246-MEINS" em tbl.contr./tabstr.
Coluna 28
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE246-NETPR" em tbl.contr./tabstr.
Coluna 34
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE246-NFNUM" em tbl.contr./tabstr.
Comprimento Visível 9
Coluna 12
Linhas mínimas 9
Texto _________
MODIFICAR TEXTO "/PWS/ZYCIE246-NFNUM" em tbl.contr./tabstr.
Coluna 12
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE246-NRDI" em tbl.contr./tabstr.
Coluna 21
MODIFICAR TEXTO "/PWS/ZYCIE246-NRDI" em tbl.contr./tabstr.
Coluna 21
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE246-NRLI" em tbl.contr./tabstr.
Coluna 18
MODIFICAR TEXTO "/PWS/ZYCIE246-NRLI" em tbl.contr./tabstr.
Coluna 18
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE246-NRSEQ" em tbl.contr./tabstr.
Coluna 6
MODIFICAR TEXTO "/PWS/ZYCIE246-NRSEQ" em tbl.contr./tabstr.
Coluna 6
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE246-NRSEQDI" em tbl.contr./tabstr.
Coluna 20
MODIFICAR TEXTO "/PWS/ZYCIE246-NRSEQDI" em tbl.contr./tabstr.
Coluna 20
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE246-NRSEQLI" em tbl.contr./tabstr.
Coluna 17
MODIFICAR TEXTO "/PWS/ZYCIE246-NRSEQLI" em tbl.contr./tabstr.
Coluna 17
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE246-NTGEW" em tbl.contr./tabstr.
Coluna 27
MODIFICAR TEXTO "/PWS/ZYCIE246-NTGEW" em tbl.contr./tabstr.
Coluna 27
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE246-PERDA" em tbl.contr./tabstr.
Coluna 39
MODIFICAR TEXTO "/PWS/ZYCIE246-PERDA" em tbl.contr./tabstr.
Coluna 39
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE246-QTD_COMPV" em tbl.contr./tabstr.
Coluna 32
MODIFICAR TEXTO "/PWS/ZYCIE246-QTD_COMPV" em tbl.contr./tabstr.
Coluna 32
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE246-QTD_ITEN" em tbl.contr./tabstr.
Coluna 29
MODIFICAR TEXTO "/PWS/ZYCIE246-QTD_ITEN" em tbl.contr./tabstr.
Coluna 29
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE246-QTD_NCM" em tbl.contr./tabstr.
Coluna 31
MODIFICAR TEXTO "/PWS/ZYCIE246-QTD_NCM" em tbl.contr./tabstr.
Coluna 31
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE246-QTD_PERDA" em tbl.contr./tabstr.
Coluna 40
MODIFICAR TEXTO "/PWS/ZYCIE246-QTD_PERDA" em tbl.contr./tabstr.
Coluna 40
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE246-SERIE" em tbl.contr./tabstr.
Coluna 14
MODIFICAR TEXTO "/PWS/ZYCIE246-SERIE" em tbl.contr./tabstr.
Coluna 14
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE246-TPDI" em tbl.contr./tabstr.
Coluna 22
MODIFICAR TEXTO "/PWS/ZYCIE246-TPDI" em tbl.contr./tabstr.
Coluna 22
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE246-UM_NCM" em tbl.contr./tabstr.
Coluna 30
MODIFICAR TEXTO "/PWS/ZYCIE246-UM_NCM" em tbl.contr./tabstr.
Coluna 30
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE246-VLFRETE" em tbl.contr./tabstr.
Coluna 37
MODIFICAR TEXTO "/PWS/ZYCIE246-VLFRETE" em tbl.contr./tabstr.
Coluna 37
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE246-VLSEG" em tbl.contr./tabstr.
Coluna 38
MODIFICAR TEXTO "/PWS/ZYCIE246-VLSEG" em tbl.contr./tabstr.
Coluna 38
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE246-VLTOT" em tbl.contr./tabstr.
Coluna 35
MODIFICAR TEXTO "/PWS/ZYCIE246-VLTOT" em tbl.contr./tabstr.
Coluna 35
MODIFICAR CAMPO TEXTO "/PWS/ZYCIE246-WERKS" em tbl.contr./tabstr.
Coluna 8
MODIFICAR TEXTO "/PWS/ZYCIE246-WERKS" em tbl.contr./tabstr.
Coluna 8
MODIFICAR BOTÃO "INF_IMP" em tbl.contr./tabstr.
Comprimento Visível 52
Texto @3A\QLista de utilizações @
MODIFICAR TEXTO "TXT02" em tbl.contr./tabstr.
Coluna 36
MODIFICAR CAMPO TEXTO "VLTOT_BRL" em tbl.contr./tabstr.
Coluna 36
MODIFICAR CAMPO TEXTO "V_ICOREAL1" em tbl.contr./tabstr.
Altura 2
INCLUIR CAMPO TEXTO "V_ICOREALIZ" em tbl.contr./tabstr.
Altura 2
Comprimento Visível 132
Linha 1
Coluna 3
Formato CHAR
Grupo 1 NEX
Texto _______________________________________________
MODIFICAR CAMPO TEXTO "V_SLD_COMPV" em tbl.contr./tabstr.
Coluna 33
MODIFICAR TEXTO "V_SLD_COMPV" em tbl.contr./tabstr.
Coluna 33
MODIFICAR CAMPO TEXTO "V_TXTNETPR" em tbl.contr./tabstr.
Coluna 34
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI040F01
...
EXPORTING
entry_to = p_itlin
loops = p_tclins
ok_code = p_okcode
entry_act = p_tccurr
last_page_full = ' '
overlapping = b_overlapping
IMPORTING
entry_new = nextline.
ENDFORM.
* >> Início da exclusão: FORM CALL_ICON
FORM call_icon USING p_name CHANGING p_v_icone.
* << Fim da exclusão
* >> Início da inclusão: FORM CALL_ICON
FORM call_icon USING p_name p_inf CHANGING p_v_icone.
* << Fim da inclusão
CALL FUNCTION 'ICON_CREATE'
EXPORTING
name = p_name
text = ''
* >> Início da exclusão: FORM CALL_ICON
info = ''
add_stdinf = ''
* << Fim da exclusão
* >> Início da inclusão: FORM CALL_ICON
info = p_inf
add_stdinf = 'X'
* << Fim da inclusão
IMPORTING
result = p_v_icone
EXCEPTIONS
icon_not_found = 1
outputfield_too_short = 2
OTHERS = 3.
ENDFORM.
FORM collect_materials TABLES it_stpox STRUCTURE it_stpox
it_stpox2 STRUCTURE it_stpox2
it_matcat STRUCTURE it_matcat.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI040F02
...
MODIFY tc_realizi-cols FROM wa_cols2.
ENDIF.
WHEN '/PWS/ZYCIE246-NETPR'.
IF /pws/zycie244-tipo EQ 'F'.
wa_cols2-invisible = 0.
MODIFY tc_realizi-cols FROM wa_cols2.
ELSE.
wa_cols2-invisible = 1.
MODIFY tc_realizi-cols FROM wa_cols2.
ENDIF.
* >> Início da inclusão: FORM CHECK_FIELD_0204
WHEN 'V_ICOREALIZ'.
IF /pws/zycie244-modalidade EQ 'I'.
wa_cols2-invisible = 1.
ELSE.
wa_cols2-invisible = 0.
ENDIF.
MODIFY tc_realizi-cols FROM wa_cols2.
WHEN 'INF_IMP'.
IF /pws/zycie244-modalidade EQ 'I'.
wa_cols2-invisible = 1.
ELSE.
wa_cols2-invisible = 0.
ENDIF.
MODIFY tc_realizi-cols FROM wa_cols2.
WHEN 'V_ICOREAL1'.
IF /pws/zycie244-modalidade EQ 'I'.
wa_cols2-invisible = 1.
ELSE.
wa_cols2-invisible = 0.
ENDIF.
MODIFY tc_realizi-cols FROM wa_cols2.
* << Fim da inclusão
ENDCASE.
IF /pws/zycie244-tipo EQ 'F' AND
wa_cols2-screen-group4 EQ 'IE'.
wa_cols2-invisible = 1.
MODIFY tc_realizi-cols FROM wa_cols2.
ENDIF.
ENDLOOP.
LOOP AT SCREEN.
CASE screen-name.
WHEN 'V_TOT2_RC'.
...
...
WHEN '/PWS/ZYCIE245-MAKTX' OR 'V_DESCR_0206'.
PERFORM carrega_edit_text USING v_campo v_ilinhas2.
WHEN '/PWS/ZYCIE246-DOCNUM'.
IF NOT v_valor IS INITIAL.
IF /pws/zycie244-tipo EQ 'F'.
SET PARAMETER ID 'JEF' FIELD v_valor.
CALL TRANSACTION '/PWS/ZYCI052_E'
AND SKIP FIRST SCREEN. "#EC CI_CALLTA
ELSE.
READ TABLE itab_zycit246 INDEX v_ilinhas2.
* >> Início da inclusão: FORM TRATA_SELECAO2
IF itab_zycit246-nrseqdi IS INITIAL.
SET PARAMETER ID 'JEF' FIELD v_valor.
CALL TRANSACTION 'J1B3N'
AND SKIP FIRST SCREEN. "#EC CI_CALLTA
ELSE.
* << Fim da inclusão
SET PARAMETER ID '/PWS/ZYCIP085' FIELD itab_zycit246-nrseqdi.
CALL TRANSACTION '/PWS/ZYCI016_E'
* >> Início da exclusão: FORM TRATA_SELECAO2
AND SKIP FIRST SCREEN. "#EC CI_CALLTA
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_SELECAO2
AND SKIP FIRST SCREEN. "#EC CI_CALLTA
ENDIF.
* << Fim da inclusão
ENDIF.
...
...
SELECT * FROM /pws/zycit085 INTO TABLE itab_zycit085
FOR ALL ENTRIES IN itab_zycit100
WHERE nrseqdi EQ itab_zycit100-nrseqdi.
ENDIF.
ENDIF.
ENDIF.
FREE itab_zycit279_ap_aux.
SELECT * FROM /pws/zycit282 INTO TABLE itab_zycit282_ap
WHERE nrseqd EQ /pws/zycie244-nrseqd. "#EC CI_NOFIRST
LOOP AT itab_zycit279_ap.
* >> Início da inclusão: FORM CARREGA_TABELA279
IF itab_zycit279_ap-dtdi IS INITIAL.
MOVE itab_zycit279_ap-dtnf TO itab_data_di-data.
ELSE.
* << Fim da inclusão
MOVE itab_zycit279_ap-dtdi TO itab_data_di-data.
* >> Início da inclusão: FORM CARREGA_TABELA279
ENDIF.
* << Fim da inclusão
APPEND itab_data_di.
CLEAR: itab_zycit279_ap-qtd_perda, itab_zycit279_ap-qtd_perda_e.
LOOP AT itab_zycit282_ap
WHERE nrseqimp EQ itab_zycit279_ap-nrseq
AND ebeln EQ itab_zycit279_ap-ebeln
AND ebelp EQ itab_zycit279_ap-ebelp.
...
...
LOOP AT itab_zycit282.
IF /pws/zycie244-tipo EQ 'F'.
READ TABLE itab_zycit246_final WITH KEY
ebeln = itab_zycit282-ebeln
ebelp = itab_zycit282-ebelp
docnum = itab_zycit282-docnumimp
itmnum = itab_zycit282-buzei.
ELSE.
READ TABLE itab_zycit246_final WITH KEY
nrseq = itab_zycit282-nrseqimp
* >> Início da inclusão: FORM MONTA_INF_EXP
docnum = itab_zycit282-docnumimp
* << Fim da inclusão
ebeln = itab_zycit282-ebeln
ebelp = itab_zycit282-ebelp.
ENDIF.
IF sy-subrc EQ 0.
itab_zycit246_inf = itab_zycit246_final.
itab_zycit246_inf-matnr = itab_zycit282-matnr_imp.
itab_zycit246_inf-ntgew =
( itab_zycit246_inf-ntgew / itab_zycit246_inf-qtd_ncm ) *
itab_zycit282-qtd_mimp.
itab_zycit246_inf-qtd_ncm = itab_zycit282-qtd_mimp.
...
...
AND docnumimp = itab_zycit246-docnum
AND buzei = itab_zycit246-itmnum.
SELECT * FROM /pws/zycit468 INTO TABLE itab_zycit468"#EC CI_NOFIRST
WHERE ebeln = itab_zycit246-ebeln
AND ebelp = itab_zycit246-ebelp
AND docnumimp = itab_zycit246-docnum
AND buzei = itab_zycit246-itmnum
AND lote_i = itab_zycit246-lote.
ELSE.
SELECT * FROM /pws/zycit282 INTO TABLE itab_zycit282"#EC CI_NOFIRST
* >> Início da exclusão: FORM MONTA_INF_IMP
WHERE nrseqimp = itab_zycit246-nrseq
AND ebeln = itab_zycit246-ebeln
AND ebelp = itab_zycit246-ebelp.
* << Fim da exclusão
* >> Início da inclusão: FORM MONTA_INF_IMP
WHERE nrseqimp = itab_zycit246-nrseq
AND docnumimp = itab_zycit246-docnum
AND ebeln = itab_zycit246-ebeln
AND ebelp = itab_zycit246-ebelp.
* << Fim da inclusão
SELECT * FROM /pws/zycit468 INTO TABLE itab_zycit468"#EC CI_NOFIRST
* >> Início da exclusão: FORM MONTA_INF_IMP
WHERE nrseqimp = itab_zycit246-nrseq
AND ebeln = itab_zycit246-ebeln
AND ebelp = itab_zycit246-ebelp
AND lote_i = itab_zycit246-lote.
* << Fim da exclusão
* >> Início da inclusão: FORM MONTA_INF_IMP
WHERE nrseqimp = itab_zycit246-nrseq
AND docnumimp = itab_zycit246-docnum
AND ebeln = itab_zycit246-ebeln
AND ebelp = itab_zycit246-ebelp
AND lote_i = itab_zycit246-lote.
* << Fim da inclusão
ENDIF.
LOOP AT itab_zycit282.
IF /pws/zycit321-lote NE space.
READ TABLE itab_zycit468 WITH KEY
nrseqexp = itab_zycit282-nrseqexp
vbeln_va = itab_zycit282-vbeln_va
aupos = itab_zycit282-aupos
vbeln_vl = itab_zycit282-vbeln_vl
posnl = itab_zycit282-posnl
nrseqimp = itab_zycit246-nrseq
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI040O01
...
/pws/zycie244-werks = itab_centros2-werks.
tc_centros2-lines = tc_centros2-lines + 10.
ENDMODULE.
MODULE status_0208 OUTPUT.
SET PF-STATUS 'ST0208'.
ENDMODULE.
MODULE set_page_comprov OUTPUT.
ts_comprov1-activetab = pressed_tab_3a.
ENDMODULE.
MODULE preenche_estrutura_0204 OUTPUT.
* >> Início da inclusão: MODULE PREENCHE_ESTRUTURA_0204
CLEAR: /pws/zycie246.
* << Fim da inclusão
/pws/zycie246-nrseqd = itab_zycit246-nrseqd .
/pws/zycie246-nritem = itab_zycit246-nritem .
/pws/zycie246-codcomp = itab_zycit246-codcomp .
/pws/zycie246-ebeln = itab_zycit246-ebeln .
/pws/zycie246-ebelp = itab_zycit246-ebelp .
/pws/zycie246-nrseq = itab_zycit246-nrseq .
/pws/zycie246-cob_camb = itab_zycit246-cob_camb.
/pws/zycie246-werks = itab_zycit246-werks .
/pws/zycie246-lote = itab_zycit246-lote .
/pws/zycie246-j_1bnbm = itab_zycit246-j_1bnbm .
...
...
/pws/zycie246-vlseg = itab_zycit246-vlseg .
/pws/zycie246-qtd_compv = itab_zycit246-qtd_compv .
/pws/zycie246-nrseqli = itab_zycit246-nrseqli .
/pws/zycie246-nrli = itab_zycit246-nrli .
/pws/zycie246-dtregli = itab_zycit246-dtregli .
/pws/zycie246-dataci = itab_zycit246-dataci .
v_sld_compv = itab_zycit246-qtd_ncm - itab_zycit246-qtd_compv.
IF v_sld_compv < 0.
v_sld_compv = 0.
ENDIF.
* >> Início da inclusão: MODULE PREENCHE_ESTRUTURA_0204
CHECK NOT /pws/zycie246 IS INITIAL.
* << Fim da inclusão
IF /pws/zycie244-modalidade NE 'I'.
IF v_sld_compv = 0.
* >> Início da exclusão: MODULE PREENCHE_ESTRUTURA_0204
v_icoreal1 = '@5B@'.
* << Fim da exclusão
* >> Início da inclusão: MODULE PREENCHE_ESTRUTURA_0204
PERFORM call_icon USING text-335
text-336
CHANGING v_icoreal1.
* << Fim da inclusão
ELSEIF itab_zycit246-qtd_compv IS INITIAL.
* >> Início da exclusão: MODULE PREENCHE_ESTRUTURA_0204
v_icoreal1 = '@5C@'.
* << Fim da exclusão
* >> Início da inclusão: MODULE PREENCHE_ESTRUTURA_0204
PERFORM call_icon USING text-337
text-338
CHANGING v_icoreal1.
* << Fim da inclusão
ELSE.
* >> Início da exclusão: MODULE PREENCHE_ESTRUTURA_0204
v_icoreal1 = '@5D@'.
* << Fim da exclusão
* >> Início da inclusão: MODULE PREENCHE_ESTRUTURA_0204
PERFORM call_icon USING text-339
text-340
CHANGING v_icoreal1.
ENDIF.
IF /pws/zycie246-nrseq IS INITIAL AND
/pws/zycie246-nrdi IS INITIAL.
PERFORM call_icon USING text-333
text-208
CHANGING v_icorealiz.
ELSE.
PERFORM call_icon USING text-332
text-334
CHANGING v_icorealiz.
* << Fim da inclusão
ENDIF.
ENDIF.
IF itab_zycit246-qtd_ncm IS INITIAL.
CLEAR: v_icoreal1.
ENDIF.
ENDMODULE.
MODULE preenche_estrutura_0203 OUTPUT.
/pws/zycie245-nrseqd = itab_zycit245-nrseqd .
/pws/zycie245-nritem = itab_zycit245-nritem .
/pws/zycie245-codcomp = itab_zycit245-codcomp .
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI040X01
...
v_sqtd_text(22) ,
v_vlfreter_imp TYPE p DECIMALS 2 ,
v_vlsegr_imp TYPE p DECIMALS 2 ,
v_vlfrete TYPE p DECIMALS 2 ,
v_vlseg TYPE p DECIMALS 2 ,
v_werks_ei TYPE /pws/zycie244-werks ,
v_nratoc TYPE /pws/zycie244-nratoc ,
v_listc ,
v_sld_compv TYPE p DECIMALS 5,
v_sld_compv2 TYPE p DECIMALS 5,
* >> Início da exclusão:
v_icoreal1 LIKE icon-id,
* << Fim da exclusão
* >> Início da inclusão:
v_icoreal1 TYPE icons-text,
* << Fim da inclusão
vltot_brl LIKE /pws/zycie246-vltot,
v_tcode2 LIKE sy-tcode .
* >> Início da inclusão:
DATA: v_icorealiz TYPE icons-text .
* << Fim da inclusão
DATA: END OF COMMON PART.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCI040
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 332
Texto: (10 caracteres)
"ICON_SET_A"
Comprimento máximo: 10
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 332
Texto: (10 caracteres)
"ICON_SET_A"
Comprimento máximo: 10
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 333
Texto: (10 caracteres)
"ICON_SET_B"
Comprimento máximo: 10
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 333
Texto: (10 caracteres)
"ICON_SET_B"
Comprimento máximo: 10
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 334
Texto: (6 caracteres)
"Import"
Comprimento máximo: 9
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 334
Texto: (9 caracteres)
"Importado"
Comprimento máximo: 9
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 335
Texto: (14 caracteres)
"ICON_LED_GREEN"
Comprimento máximo: 14
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 335
Texto: (14 caracteres)
"ICON_LED_GREEN"
Comprimento máximo: 14
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 336
Texto: (9 caracteres)
"Comproved"
Comprimento máximo: 25
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 336
Texto: (10 caracteres)
"Comprovado"
Comprimento máximo: 25
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 337
Texto: (12 caracteres)
"ICON_LED_RED"
Comprimento máximo: 12
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 337
Texto: (12 caracteres)
"ICON_LED_RED"
Comprimento máximo: 12
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 338
Texto: (13 caracteres)
"Not Comproved"
Comprimento máximo: 25
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 338
Texto: (14 caracteres)
"Não comprovado"
Comprimento máximo: 25
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 339
Texto: (15 caracteres)
"ICON_LED_YELLOW"
Comprimento máximo: 15
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 339
Texto: (15 caracteres)
"ICON_LED_YELLOW"
Comprimento máximo: 15
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 340
Texto: (19 caracteres)
"comproved partially"
Comprimento máximo: 25
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 340
Texto: (23 caracteres)
"Comprovado parcialmente"
Comprimento máximo: 25