Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 13/09/2007 00:00:00
Data/Hora Última Alteração: 09/03/2010 10:25:48
Descrição da Nota: EXIT PARA CALCULO DE IMPOSTOS NA ANA
Sintoma
Abertura de exit para trativa de calculo de impostos
Solução
Abertura de exit para trativa de calculo de impostos
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 04698 Data: 13/09/2007 Hora: 08:05:28
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 04698
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00003
Agrupamento : 00015
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
EXIT PARA CALCULO DE IMPOSTOS NA ANA
----------------------------------------------------------------------------------------------------
Palavras Chave:
EXIT PARA CALCULO DE IMPOSTOS NA ANA
----------------------------------------------------------------------------------------------------
Objetos da nota:
PROG /PWS/MZYCI059X01
REPS /PWS/MZYCI059F01
REPS /PWS/MZYCI059F03
REPS /PWS/MZYCI059TOP
REPS /PWS/SAPMZYCI059
----------------------------------------------------------------------------------------------------
Modificações efetuadas em PROG /PWS/MZYCI059X01
* >> Início da inclusão:
*----------------------------------------------------------------------*
* INCLUDE /PWS/MZYCI059X01 *
*----------------------------------------------------------------------*
* chamado data descrição
*----------------------------------------------------------------------*
* Include para declarações de Tabelas e/ou variáveis de exits
* Ao utilizar esse programa é necessário muito cuidado, pois ao alterar
* qq. dado dentro desso include, ira refletir no programa Standard
* automaticamente
* Tabelas Utilizadas
TABLES:
/pws/zycit000, " CI - Parâmetros Importação
/pws/zycit001,
/pws/zycit085,
/pws/zycie085,
/pws/zycie085a, " CI - Cab. de Desembaraço - DI
/pws/zycie100a, " CI - Itens da DSI
/pws/zycie086, " CI - Doc. de Instruçao de
/pws/zycie087, " CI - Processo Vinculado
/pws/zycie088, " CI - Volumes de Carga
/pws/zycit094,
/pws/zycie095, /pws/zycie095a, " CI - Pagamentos
/pws/zycie096, " CI - Armazens
/pws/zycit107,
/pws/zycie115,
/pws/zycie126,
/pws/zycit133,
/pws/zycie001,
/pws/zycit041,
/pws/zycit042,
/pws/zycie049,
/pws/zycie080, /pws/zycie080a,
/pws/zycie013,
/pws/zycie014,
/pws/zycie003,
/pws/zycit039,
/pws/zycie006,
/pws/zycit006,
/pws/zycie403,
/pws/zycit043,
t005t,
t001,
t604f,
lfa1, lfbk,
dd07t,
t615,
/pws/zycit031,
/pws/zycit104,
/pws/zycet138,
/pws/zycit174,
/pws/zycit257,
/pws/zycbt007,
ekpo, ekko,
mepo1319,
tcurx,
t615t,
j_1bbranch,
adrc,
/pws/zycie093,
/pws/zycit078,
/pws/zycie078,
/pws/zycit256, /pws/zycie256,
/pws/zycit274,
/pws/zyglt204,
/pws/zycit229,
/pws/zycet050,
/pws/zycit029,
j_1btregc,
/pws/zycit101,
bsis.
DATA: BEGIN OF COMMON PART a.
* Tabelas Internas
*407425 - Inicio
DATA: BEGIN OF itab_zyglt100 OCCURS 10. "Exits
INCLUDE STRUCTURE /pws/zyglt100.
DATA: END OF itab_zyglt100.
*407425 - Fim
DATA: BEGIN OF itab_zycit003 OCCURS 0.
INCLUDE STRUCTURE /pws/zycie003.
DATA: slqtde LIKE /pws/zycie013-slqtde, "Saldo no Pedido
uebto LIKE ekpo-uebto, "Tolerancia
uebtk LIKE ekpo-uebtk, "Ilimitada
noinitial, "Flag p/ não inicial.
mark. "Marca reg. na TC
DATA: END OF itab_zycit003.
DATA: itab_zycit003a LIKE itab_zycit003 OCCURS 0 WITH HEADER LINE.
TYPES: BEGIN OF msg_struc,
tcode LIKE bdcmsgcoll-tcode,
dyname LIKE bdcmsgcoll-dyname,
dynumb LIKE bdcmsgcoll-dynumb,
msgtyp LIKE bdcmsgcoll-msgtyp,
msgspra LIKE bdcmsgcoll-msgspra,
msgid LIKE bdcmsgcoll-msgid,
msgnr LIKE bdcmsgcoll-msgnr,
msgv1 LIKE balm-msgv1,
msgv2 LIKE balm-msgv2,
msgv3 LIKE balm-msgv3,
msgv4 LIKE balm-msgv4,
env LIKE bdcmsgcoll-env,
fldname LIKE bdcmsgcoll-fldname,
END OF msg_struc.
* Variaveis para tratamento do alv na subtela
TYPES: BEGIN OF sufixo,
ebeln LIKE /pws/zycit003-ebeln,
ebelp LIKE /pws/zycit003-ebelp,
j_1bnbm LIKE /pws/zycit003-j_1bnbm,
mogru LIKE marc-mogru,
descr LIKE /pws/zycit003-descr,
codigo LIKE /pws/zycit403-codigo,
base LIKE /pws/zycit403-base,
percentual LIKE /pws/zycit403-percentual,
valorrec LIKE /pws/zycit403-valorrec,
condicoes LIKE /pws/zycit403-condicoes,
END OF sufixo.
DATA: "itab_adic TYPE TABLE OF /pws/zycit001,
itab_adic TYPE sufixo OCCURS 0,
wa_adic TYPE sufixo,
ls_fieldcatalog TYPE TABLE OF lvc_s_fcat,
g_repid LIKE sy-repid,
* g_max TYPE i VALUE 100,
gs_layout TYPE lvc_s_layo,
* gs_toolbar TYPE stb_button,
cont_on_200 TYPE scrfname VALUE 'BCALVC_TOOLBAR_D100_C1',
grid1 TYPE REF TO cl_gui_alv_grid,
custom_container1 TYPE REF TO cl_gui_custom_container.
DATA: i_sort TYPE lvc_t_sort.
DATA: w_sort TYPE lvc_s_sort.
DATA BEGIN OF itab_trib OCCURS 0.
DATA: ebeln LIKE ekpo-ebeln,
ebelp LIKE ekpo-ebelp,
tpdesp LIKE /pws/zycie049-tpdesp,
t_ivdesp LIKE /pws/zycie085-vlfob,
waers LIKE /pws/zycie049-waers.
DATA END OF itab_trib.
DATA: itab_zycit001 LIKE /pws/zycit001 OCCURS 0 WITH HEADER LINE,
itab_zycit001_di LIKE /pws/zycit001 OCCURS 0 WITH HEADER LINE,
itab_zycit006 LIKE /pws/zycit006 OCCURS 0 WITH HEADER LINE,
itab_zycit006a LIKE /pws/zycit006 OCCURS 0 WITH HEADER LINE,
itab_zycit013 LIKE /pws/zycie013 OCCURS 0 WITH HEADER LINE,
itab_zycit014 LIKE /pws/zycie014 OCCURS 0 WITH HEADER LINE,
itab_zycit042 LIKE /pws/zycit042 OCCURS 0 WITH HEADER LINE,
itab_zycit019 LIKE /pws/zycit019 OCCURS 0 WITH HEADER LINE,
itab_zycit029 LIKE /pws/zycit029 OCCURS 0 WITH HEADER LINE,
itab_zycit020 LIKE /pws/zycit020 OCCURS 0 WITH HEADER LINE,
itab_zycit031 LIKE /pws/zycit031 OCCURS 0 WITH HEADER LINE,
itab_zycit036 LIKE /pws/zycit036 OCCURS 0 WITH HEADER LINE,
itab_zycit039 LIKE /pws/zycit039 OCCURS 0 WITH HEADER LINE,
itab_zycit041 LIKE /pws/zycit041 OCCURS 0 WITH HEADER LINE,
itab_zycit049di LIKE /pws/zycit049 OCCURS 0 WITH HEADER LINE,
itab_zycit049di2 LIKE /pws/zycit049 OCCURS 0 WITH HEADER LINE,
itab_zycit055 LIKE /pws/zycit055 OCCURS 0 WITH HEADER LINE,
itab_zycit078 LIKE /pws/zycie078 OCCURS 0 WITH HEADER LINE,
itab_zycit079 LIKE /pws/zycie079 OCCURS 0 WITH HEADER LINE,
itab_zycit085 LIKE /pws/zycie085 OCCURS 0 WITH HEADER LINE,
itab_zycit085a LIKE /pws/zycit085 OCCURS 0 WITH HEADER LINE,
itab_zycit086 LIKE /pws/zycie086 OCCURS 0 WITH HEADER LINE,
itab_zycit086a LIKE /pws/zycie086 OCCURS 0 WITH HEADER LINE,
itab_zycit087 LIKE /pws/zycie087 OCCURS 0 WITH HEADER LINE,
itab_zycit087a LIKE /pws/zycie087 OCCURS 0 WITH HEADER LINE,
itab_zycit094 LIKE /pws/zycie094 OCCURS 0 WITH HEADER LINE,
itab_zycit095 LIKE /pws/zycie095 OCCURS 0 WITH HEADER LINE,
itab_zycit095a LIKE /pws/zycie095 OCCURS 0 WITH HEADER LINE,
itab_zycit096 LIKE /pws/zycie096 OCCURS 0 WITH HEADER LINE,
itab_zycit096a LIKE /pws/zycie096 OCCURS 0 WITH HEADER LINE,
itab_zycit100 LIKE /pws/zycie100a OCCURS 0 WITH HEADER LINE,
itab_zycit100a LIKE /pws/zycie100a OCCURS 0 WITH HEADER LINE,
itab_zycit104 LIKE /pws/zycit104 OCCURS 0 WITH HEADER LINE,
itab_zycit107 LIKE /pws/zycit107 OCCURS 0 WITH HEADER LINE,
itab_zycit115 LIKE /pws/zycie115 OCCURS 0 WITH HEADER LINE,
itab_zycit115a LIKE /pws/zycie115 OCCURS 0 WITH HEADER LINE,
itab_zycit115b LIKE /pws/zycit115 OCCURS 0 WITH HEADER LINE,
itab_zycit122 LIKE /pws/zycit122 OCCURS 0 WITH HEADER LINE,
itab_zycit123 LIKE /pws/zycit123 OCCURS 0 WITH HEADER LINE,
itab_zycit126 LIKE /pws/zycie126 OCCURS 0 WITH HEADER LINE,
itab_zycit134 LIKE /pws/zycit134 OCCURS 0 WITH HEADER LINE,
itab_zycit191 LIKE /pws/zycit191 OCCURS 0 WITH HEADER LINE,
itab_zycit177 LIKE /pws/zycit177 OCCURS 0 WITH HEADER LINE,
itab_zycit177t LIKE /pws/zycit177 OCCURS 0 WITH HEADER LINE,
itab_zycit195 LIKE /pws/zycit195 OCCURS 0 WITH HEADER LINE,
itab_zycit200 LIKE /pws/zycit200 OCCURS 0 WITH HEADER LINE,
itab_zycit256 LIKE /pws/zycit256 OCCURS 0 WITH HEADER LINE,
itab_zycit200a LIKE /pws/zycit200 OCCURS 0 WITH HEADER LINE,
itab_zycit200b LIKE /pws/zycit200 OCCURS 0 WITH HEADER LINE,
itab_zycit255 LIKE /pws/zycit255 OCCURS 0 WITH HEADER LINE,
itab_zycit136 LIKE /pws/zycit136 OCCURS 0 WITH HEADER LINE,
itab_zycit399 LIKE /pws/zycit399 OCCURS 0 WITH HEADER LINE,
itab_zycit400 LIKE /pws/zycit400 OCCURS 0 WITH HEADER LINE,
itab_zycit401 LIKE /pws/zycit401 OCCURS 0 WITH HEADER LINE,
itab_zycit402 LIKE /pws/zycit402 OCCURS 0 WITH HEADER LINE,
itab_zycit404 LIKE /pws/zycit404 OCCURS 0 WITH HEADER LINE,
itab_zycit403 LIKE /pws/zycit403 OCCURS 0 WITH HEADER LINE,
itab_zycit403_i LIKE /pws/zycit403 OCCURS 0 WITH HEADER LINE,
itab_zycit403a LIKE /pws/zycit403 OCCURS 0 WITH HEADER LINE,
* itab_zycit403t like /pws/zycit403 occurs 0 with header line,
itab_zycit404_aux LIKE /pws/zycit404 OCCURS 0 WITH HEADER LINE,
rtext LIKE tline OCCURS 50 WITH HEADER LINE,
rtextc LIKE tline OCCURS 50 WITH HEADER LINE,
rtexti LIKE tline OCCURS 50 WITH HEADER LINE,
rtexta LIKE tline OCCURS 50 WITH HEADER LINE,
rtexto LIKE tline OCCURS 0 WITH HEADER LINE,
rtextx LIKE tline OCCURS 0 WITH HEADER LINE,
rtextesp LIKE tline OCCURS 0 WITH HEADER LINE,
rtextcompl LIKE tline OCCURS 0 WITH HEADER LINE,
itab_ekpo LIKE ekpo OCCURS 0 WITH HEADER LINE,
itab_bdc LIKE bdcdata OCCURS 0 WITH HEADER LINE,
itab_msg TYPE msg_struc OCCURS 5 WITH HEADER LINE,
itab_stxl LIKE stxl OCCURS 0 WITH HEADER LINE,
itab_makt LIKE makt OCCURS 0 WITH HEADER LINE,
itab_zycit100_temp LIKE /pws/zycie100a OCCURS 0 WITH HEADER LINE.
* Tabelas internas para gravação do Registro Siscomex na tab. de LI...
DATA: itab_zycit003_t LIKE /pws/zycit003 OCCURS 0 WITH HEADER LINE,
itab_zycit078_t LIKE /pws/zycit078 OCCURS 0 WITH HEADER LINE,
itab_zycit085_t LIKE /pws/zycit085 OCCURS 0 WITH HEADER LINE,
itab_zycit100_t LIKE /pws/zycit100 OCCURS 0 WITH HEADER LINE.
DATA: BEGIN OF itab_zycit082 OCCURS 0.
DATA: nrseq LIKE /pws/zycit082-nrseq,
ebeln LIKE /pws/zycit082-ebeln,
ebelp LIKE /pws/zycit082-ebelp,
doc LIKE /pws/zycit082-doc,
END OF itab_zycit082.
DATA: BEGIN OF itab_zycit049 OCCURS 0.
INCLUDE STRUCTURE /pws/zycie049.
DATA: tipo LIKE /pws/zycit019-tipo,
coddesp LIKE /pws/zycit000-cod_sisc,
codigo LIKE /pws/zycit019-codigo,
baseicms LIKE /pws/zycit020-baseicms,
baseii LIKE /pws/zycit020-baseii,
reduz LIKE /pws/zycie122-descricao_reduz,
vldp_aux LIKE /pws/zycie049-vldp,
divabs LIKE /pws/zycit039-divabs,
peso LIKE /pws/zycit039-peso,
proporplan LIKE /pws/zycit039-proporplan,
END OF itab_zycit049.
* Tabela de export para função de rateio
DATA: BEGIN OF itab_adicao OCCURS 0.
INCLUDE STRUCTURE /pws/zycie116.
DATA: flag_vltot,
END OF itab_adicao.
DATA: BEGIN OF itab_NANA OCCURS 1,
sign(1) TYPE c,
option(2) TYPE c,
low LIKE /pws/zycie085-nrseqdi,
high LIKE /pws/zycie085a-nrseqdi,
END OF itab_NANA.
DATA: BEGIN OF itab_dtreg OCCURS 1,
sign(1) TYPE c,
option(2) TYPE c,
low LIKE /pws/zycie085-dtreg,
high LIKE /pws/zycie085a-dtreg,
END OF itab_dtreg.
DATA: BEGIN OF it_verbl OCCURS 0,
nrseq LIKE /pws/zycie003-nrseq,
ebeln LIKE /pws/zycie003-ebeln,
ebelp LIKE /pws/zycie003-ebelp,
qtd_iten LIKE /pws/zycie003-qtd_iten,
END OF it_verbl.
DATA: BEGIN OF itab_zycit403t OCCURS 0,
codigo LIKE /pws/zycie403-codigo,
base LIKE /pws/zycie403-base,
valorcalc LIKE /pws/zycie403-valorcalc,
valorrec LIKE /pws/zycie403-valorrec,
condicoes LIKE /pws/zycie403-condicoes,
END OF itab_zycit403t.
DATA: BEGIN OF itab_itc OCCURS 0,
nrseq LIKE /pws/zycie003-nrseq,
ebeln LIKE /pws/zycie003-ebeln,
ebelp LIKE /pws/zycie003-ebelp,
mark,
END OF itab_itc.
DATA: BEGIN OF itab_it OCCURS 0.
INCLUDE STRUCTURE /pws/zycie100a.
DATA: descr LIKE /pws/zycie003-descr,
j_1bnbm LIKE /pws/zycie003-j_1bnbm,
qtd_iten LIKE /pws/zycie003-qtd_iten,
qtd_itencacl LIKE /pws/zycie003-qtd_itencacl,
menge LIKE /pws/zycie003-menge,
meins LIKE /pws/zycie003-meins,
ntgew LIKE /pws/zycie003-ntgew,
gewei LIKE /pws/zycie003-gewei,
mfrpn LIKE /pws/zycie003-mfrpn,
vlreal LIKE /pws/zycie003-vlreal,
vlreal_aux2 LIKE /pws/zycie003-vlreal,
netpr LIKE /pws/zycie003-netpr,
bednr LIKE /pws/zycie003-bednr,
porigem LIKE /pws/zycie003-porigem,
waers LIKE /pws/zycie003-waers,
fabric LIKE /pws/zycie003-fabric,
lifnrfabr LIKE /pws/zycie003-lifnrfabr,
aplicacao LIKE /pws/zycie003-aplicacao,
condmerc LIKE /pws/zycie003-condmerc,
qtdeumest LIKE /pws/zycie003-qtdeumest,
meinsest LIKE /pws/zycie003-meinsest,
slqtde LIKE /pws/zycie013-slqtde,
agente LIKE /pws/zycie126-agente,
aliqii LIKE /pws/zycie003-aliqii,
advalii LIKE /pws/zycie003-advalii,
aliqipi LIKE /pws/zycie003-aliqipi,
advalipi LIKE /pws/zycie003-advalipi,
aliqicms LIKE /pws/zycie003-aliqicms,
advalicms LIKE /pws/zycie003-advalicms,
vlfre_fat LIKE /pws/zycie003-vlfre_fat,
vlseg_fat LIKE /pws/zycie003-vlseg_fat,
lifnr LIKE lfa1-lifnr,
extarif_al LIKE /pws/zycie003-extarif_al,
tipo_al LIKE /pws/zycie003-tipo_al,
orgemiss_al LIKE /pws/zycie003-orgemiss_al,
numero_al LIKE /pws/zycie003-numero_al,
anoemiss_al LIKE /pws/zycie003-anoemiss_al,
ii_extarif LIKE /pws/zycie003-ii_extarif,
ii_tipo LIKE /pws/zycie003-ii_tipo,
ii_orgemiss LIKE /pws/zycie003-ii_orgemiss,
ii_numero LIKE /pws/zycie003-ii_numero,
ii_anoemiss LIKE /pws/zycie003-ii_anoemiss,
ipi_extarif LIKE /pws/zycie003-ipi_extarif,
ipi_tipo LIKE /pws/zycie003-ipi_tipo,
ipi_orgemiss LIKE /pws/zycie003-ipi_orgemiss,
ipi_numero LIKE /pws/zycie003-ipi_numero,
ipi_anoemiss LIKE /pws/zycie003-ipi_anoemiss,
ad_extarif LIKE /pws/zycie003-ad_extarif,
ad_tipo LIKE /pws/zycie003-ad_tipo,
ad_orgemiss LIKE /pws/zycie003-ad_orgemiss,
ad_numero LIKE /pws/zycie003-ad_numero,
ad_anoemiss LIKE /pws/zycie003-ad_anoemiss,
inco1 LIKE /pws/zycie001-inco1,
naladi LIKE /pws/zycie003-naladi,
naladincca LIKE /pws/zycie003-naladincca,
zterm LIKE /pws/zycit006-zterm,
nrseqfat LIKE /pws/zycit006-nrseq,
nrfat LIKE /pws/zycit006-nrfat,
vinculo LIKE /pws/zycit006-vinculo,
vlfre_me LIKE /pws/zycie003-vlfre_fat,
vlseg_me LIKE /pws/zycie003-vlseg_fat,
vldiffob LIKE /pws/zycie003-vlfre_fat,
seq LIKE sy-tabix,
identify(19),
basred LIKE /pws/zycie003-basred, "Teste
nrli LIKE /pws/zycie003-nrli,
nrseqd LIKE /pws/zycie003-nrseqd,
nrdrawback LIKE /pws/zycie003-nrdrawback,
modalidade LIKE /pws/zycie003-modalidade,
frn LIKE /pws/zycie085-vlfob,
qtd_itend LIKE /pws/zycie003-qtd_itend,
vlreald LIKE /pws/zycie003-vlreal,
vlmerc_ad LIKE /pws/zycie085-vlfob,
matnr LIKE /pws/zycie003-matnr,
idnlf LIKE mepo1319-idnlf,
mark,
END OF itab_it.
DATA: BEGIN OF it_status OCCURS 0,
fcode LIKE rsmpe-func,
END OF it_status.
DATA: BEGIN OF it_words OCCURS 0,
word(50),
END OF it_words.
DATA: itab_ita LIKE itab_it OCCURS 0 WITH HEADER LINE,
itab_itb LIKE itab_it OCCURS 0 WITH HEADER LINE,
itab_zycit049a LIKE itab_zycit049 OCCURS 0 WITH HEADER LINE,
itab_zycit049b LIKE itab_zycit049 OCCURS 0 WITH HEADER LINE,
itab_zycit049c LIKE itab_zycit049 OCCURS 0 WITH HEADER LINE,
it_words_app LIKE it_words OCCURS 0 WITH HEADER LINE,
it_statu2 LIKE it_status OCCURS 0 WITH HEADER LINE,
it_statu3 LIKE it_status OCCURS 0 WITH HEADER LINE,
it_statu4 LIKE it_status OCCURS 0 WITH HEADER LINE,
itab_zycit229 LIKE /pws/zycit229 OCCURS 0 WITH HEADER LINE,
itab_zycit263 LIKE /pws/zycit263 OCCURS 0 WITH HEADER LINE,
it_statu5 LIKE it_status OCCURS 0 WITH HEADER LINE.
DATA: BEGIN OF itab_zycit257 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit257.
DATA: END OF itab_zycit257.
DATA: BEGIN OF itab_zycit174 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit174.
DATA: END OF itab_zycit174.
DATA: BEGIN OF itab_zycit132 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit132.
DATA: END OF itab_zycit132.
* Inclusão de verificação de LI.
DATA: BEGIN OF itab_gforn OCCURS 0.
INCLUDE STRUCTURE /pws/zycit235.
DATA: END OF itab_gforn.
DATA: BEGIN OF itab_zycit234 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit234.
DATA: END OF itab_zycit234.
DATA: BEGIN OF itab_zycit269 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit269.
DATA: END OF itab_zycit269.
DATA: BEGIN OF itab_lfa1 OCCURS 0,
lifnr LIKE lfa1-lifnr,
ktokk LIKE lfa1-ktokk,
END OF itab_lfa1.
DATA: BEGIN OF itab_ekko OCCURS 0,
ebeln LIKE ekko-ebeln,
bsart LIKE ekko-bsart,
END OF itab_ekko.
DATA: BEGIN OF itab_t604f OCCURS 0,
steuc LIKE t604f-steuc,
obrigli LIKE t604f-/pws/obrigli,
END OF itab_t604f.
DATA: BEGIN OF itab_gped OCCURS 0.
INCLUDE STRUCTURE /pws/zycit236.
DATA: END OF itab_gped.
DATA: BEGIN OF itab_li OCCURS 0,
nrseqli LIKE /pws/zycit079-nrseqli,
ebeln LIKE /pws/zycit079-ebeln,
ebelp LIKE /pws/zycit079-ebelp,
steuc1 LIKE /pws/zycit078-steuc1,
dtdef LIKE /pws/zycit078-dtdef,
dtvencto LIKE /pws/zycit078-dtvencto,
nrseqdi LIKE /pws/zycit078-nrseqdi,
menge LIKE /pws/zycit079-menge,
END OF itab_li.
* Fim inclusão
DATA: BEGIN OF itab_cta OCCURS 0.
INCLUDE STRUCTURE /pws/zygle316.
DATA: END OF itab_cta.
DATA: BEGIN OF it_zycit270 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit270.
DATA: END OF it_zycit270.
DATA: BEGIN OF itab_desp_funcao OCCURS 0.
INCLUDE STRUCTURE /pws/zycie353.
DATA: END OF itab_desp_funcao.
DATA: BEGIN OF itab_report_cliente OCCURS 20.
INCLUDE STRUCTURE /pws/zycet079.
DATA: END OF itab_report_cliente.
DATA: it_zycit255 LIKE /pws/zycit255 OCCURS 0 WITH HEADER LINE,
it_zycit100 LIKE /pws/zycit100 OCCURS 0 WITH HEADER LINE,
it_zycit085 LIKE /pws/zycit085 OCCURS 0 WITH HEADER LINE,
it_zycit085_aux LIKE /pws/zycit085 OCCURS 0 WITH HEADER LINE,
it_zycit001 LIKE /pws/zycit001 OCCURS 0 WITH HEADER LINE.
* Work Areas
DATA:
wa_zycit085 LIKE /pws/zycie085,
wa_zycie085 LIKE /pws/zycie085,
wa_zycit1223 LIKE /pws/zycit122,
wa_zycit100 LIKE /pws/zycit100,
wa_zycit104 LIKE /pws/zycit104,
wa_zycit136 LIKE /pws/zycit136,
wa_zycit078 LIKE /pws/zycit078,
wa_it LIKE itab_it,
wa_itb LIKE itab_it,
wa_lfa1 LIKE lfa1,
wa_adrc LIKE adrc,
wa_zycbt007 LIKE /pws/zycbt007,
wa_it000 LIKE /pws/zycit000,
wa_it122 LIKE itab_zycit049,
wa_it123 LIKE itab_zycit049,
xthead LIKE thead,
xtheadc LIKE thead,
xtheadi LIKE thead,
xtheada LIKE thead,
xtheado LIKE thead,
xtheadx LIKE thead,
wa_j_1bbranch LIKE j_1bbranch,
wa_t001w LIKE t001w,
wa_zycet050 LIKE /pws/zycet050,
wa_zycit375 LIKE /pws/zycit375.
DATA: BEGIN OF wa_ender.
DATA: stras LIKE t001w-spras,
ort01 LIKE t001w-ort01,
regio LIKE t001w-regio.
DATA: END OF wa_ender.
* Variáveis
DATA:
* Campos da Tela de Seleção
i_desc(20),
* Campos das Telas de DI
s_ometv,
s_oregt,
s_oregp,
s_ofund,
s_oacor,
s_oalad,
s_oexm,
s_oexii,
s_oexipi,
s_oexad,
s_cnpj(18) TYPE c,
s_agen(18) TYPE c,
s_msg1(40),
s_fbsn(3),
s_mmod(3),
s_tr3(3),
s_opf(3),
s_doct(18),
s_opcb(18),
s_cont(16),
s_conu(23),
s_tpa(15),
s_mod(34),
v_adics,
s_setor(35),
stxt_id(17),
stxt_embloc(17),
stxt_embdat(16),
s_iddes(120),
s_pgban(3),
s_pgage(13),
s_pgcc(19),
s_pgrec(120),
s_len TYPE i,
s_pgag1 TYPE i,
s_pgag2 TYPE i,
s_ekadd LIKE ekpo-adrnr,
s_ekaed LIKE ekpo-aedat,
s_pglif LIKE lfbk-lifnr,
s_pgbks LIKE lfbk-banks,
s_pgbkl LIKE lfbk-bankl,
s_pgbkn LIKE lfbk-bankn,
s_pgnom LIKE lfbk-koinh,
s_inco1_ci LIKE /pws/zycit031-inco1_ci,
s_inco1 LIKE /pws/zycit031-inco1,
s_inco_ok,
s_tax LIKE /pws/zycie085-ukursfob,
s_local LIKE t001w-werks,
s_regdescr LIKE /pws/zycit024-descricao,
s_urf LIKE /pws/zycet132-descdesp,
s_trans LIKE /pws/zycit054-bezei,
s_pais LIKE t005t-landx,
s_ppais LIKE t005-/pws/codpa,
s_pdesc LIKE t005t-landx,
s_urfe LIKE /pws/zycet132-descdesp,
s_fbcm LIKE tcurc-/pws/codmo,
s_frcm LIKE tcurc-/pws/codmo,
s_stcm LIKE tcurc-/pws/codmo,
s_fbdesc LIKE tcurt-ltext,
s_frdesc LIKE tcurt-ltext,
s_stdesc LIKE tcurt-ltext,
s_umped LIKE t006a-msehl,
s_umestt LIKE t006a-msehl,
s_umad LIKE t006a-msehl,
s_recalf LIKE /pws/zycet138-descrec,
s_advl LIKE /pws/zycie100a-vlantid,
s_adbs LIKE /pws/zycie100a-baseantid,
s_fbvr LIKE /pws/zycit085-vlfob,
s_fbvr2 LIKE /pws/zycit006-vlmerc,
s_fbvr_s_d LIKE s_fbvr, "Valor sem a despesa!
s_frvr LIKE s_fbvr,
s_frvr_aux LIKE s_fbvr,
s_frvr_aux1 LIKE s_fbvr,
s_stvr LIKE s_fbvr,
s_stvr_aux LIKE s_fbvr,
s_stvr_aux1 LIKE s_fbvr,
s_vldpr LIKE s_fbvr,
s_wiicalc LIKE s_fbvr,
s_wiiredu LIKE s_fbvr,
s_wiidevi LIKE s_fbvr,
s_wiireco LIKE s_fbvr,
s_wipicalc LIKE s_fbvr,
s_wipiredu LIKE s_fbvr,
s_wipidevi LIKE s_fbvr,
s_wipireco LIKE s_fbvr,
s_wicdevi LIKE s_fbvr,
s_wicreco LIKE s_fbvr,
s_wsisco LIKE s_fbvr,
s_waddevi LIKE s_fbvr,
s_wadreco LIKE s_fbvr,
s_icon TYPE icons-text,
s_icon2(30),
*PWS198132 - Inicio
v_modsegm(1) TYPE c VALUE 0,
*PWS198132 - Fim
* Campos das Telas de DSI
t_tsp(120),
t_impnat(65),
t_imptip(53),
t_sncou(3),
t_clades(3),
t_espec(72),
t_pnome LIKE /pws/zycit133-nome,
t_blid LIKE /pws/zycie093-identify,
t_icmsbs LIKE /pws/zycie085-vlfob,
t_icms LIKE /pws/zycie085-vlfob,
t_icmsx LIKE /pws/zycie085-vlfob,
t_tot LIKE /pws/zycie006-vlmerc,
t_embarc LIKE /pws/zycie001-embarca,
t_regdes LIKE /pws/zycit167-descricao,
t_regde2 LIKE t_regdes,
t_motdes LIKE /pws/zycit169-descricao,
t_ncmdes(35),
t_uest LIKE t604n-text1,
t_ucom LIKE t604n-text1,
t_msis LIKE tcurc-/pws/codmo,
t_mdes LIKE tcurt-ltext,
t_ppais LIKE t005-/pws/codpa,
t_zzum LIKE t604f-/pws/zum,
t_zcom LIKE t604f-/pws/zum,
t_vmle LIKE /pws/zycie085-vlfob,
t_vmle2 LIKE /pws/zycie085-vlfob,
t_vmle3 LIKE /pws/zycie085-vlfob,
v_tot_plan LIKE /pws/zycit003-netpr, "Variável p/ rateio das Despesas
v_it_plan LIKE /pws/zycit003-netpr, "Variável p/ rateio das Despesas
v_fr_seg_ad LIKE /pws/zycie085-vlfob,
t_fundes LIKE /pws/zycit177-descr,
t_vlii LIKE /pws/zycie006-vlmerc,
t_vlipi LIKE /pws/zycie006-vlmerc,
t_vlicms LIKE /pws/zycie006-vlmerc,
t_ivdesp LIKE t_icms,
t_ivdes2 LIKE t_icms,
t_ivdes3 LIKE t_icms,
t_ivmle LIKE t_icms,
t_ivmle2 LIKE t_icms,
t_ivfre LIKE t_icms,
t_ivseg LIKE t_icms,
v_tot_seg LIKE t_icms,
t_ivadu LIKE t_icms,
t_iibas LIKE t_icms,
t_iirec LIKE t_icms,
t_ipibas LIKE t_icms,
t_ipirec LIKE t_icms,
* Campos das Telas de Adição
a_opgan,
a_opgav,
a_oparc,
a_otxjr,
a_mdnac1,
a_mdnac2,
a_radio1,
a_ucomm1,
a_check1,
a_check2,
a_check3,
a_pgban(3),
a_pgage(13),
a_espec(72),
a_espe2(72),
a_inco1(30),
a_ifina(120),
a_motiv(120),
a_txjur(120),
a_espde(120),
a_modpa(35),
a_checked TYPE i,
a_uqtde TYPE i,
a_ucomm2 LIKE sy-ucomm,
a_ip LIKE sy-tabix,
a_lfa LIKE lfa1-name1,
a_aladi LIKE /pws/zycet168-descricao,
a_metv LIKE /pws/zycit173-descricao,
a_pais LIKE t005t-landx,
a_pais1 LIKE t005t-landx,
a_pais2 LIKE t005t-landx,
a_spais LIKE t005-/pws/codpa,
a_spais1 LIKE t005-/pws/codpa,
a_spais2 LIKE t005-/pws/codpa,
a_qtdeest LIKE /pws/zycie003-qtdeumest,
a_tribipi LIKE /pws/zycie100a-tribipi,
a_adbase LIKE /pws/zycie100a-baseantid,
a_baseii LIKE /pws/zycie116-baseii,
a_baseipi LIKE /pws/zycie116-baseii,
a_baseicms LIKE /pws/zycie116-baseii,
a_itval LIKE t_icms,
a_vmler LIKE t_icms,
a_icdevi LIKE t_icms,
a_icreco LIKE t_icms,
a_itfre LIKE t_icms,
a_itseg LIKE t_icms,
a_iiacor LIKE t_icms,
a_iicalc LIKE t_icms,
a_iiredu LIKE t_icms,
a_iidevi LIKE t_icms,
a_iitcalc LIKE t_icms,
a_iitredu LIKE t_icms,
a_iitdevi LIKE t_icms,
a_iitreco LIKE t_icms,
a_ipicalc LIKE t_icms,
a_ipiredu LIKE t_icms,
a_ipidevi LIKE t_icms,
a_ipitdevi LIKE t_icms,
a_ipitreco LIKE t_icms,
a_addevi LIKE t_icms,
a_adreco LIKE t_icms,
a_vlrtot LIKE t_icms,
a_1codtxjuros LIKE /pws/zycie116-codtxjuros,
a_1taxarate LIKE /pws/zycie116-taxarate,
a_1parcnum LIKE /pws/zycie116-parcnum,
a_1periodic LIKE /pws/zycie116-periodic,
a_1indice LIKE /pws/zycie116-indice,
a_1valtot LIKE /pws/zycie116-valtot,
a_2codtxjuros LIKE /pws/zycie116-codtxjuros,
a_2taxarate LIKE /pws/zycie116-taxarate,
a_2parcnum LIKE /pws/zycie116-parcnum,
a_2periodic LIKE /pws/zycie116-periodic,
a_2indice LIKE /pws/zycie116-indice,
a_2valtot LIKE /pws/zycie116-valtot,
a_3codtxjuros LIKE /pws/zycie116-codtxjuros,
a_3taxarate LIKE /pws/zycie116-taxarate,
a_3parcnum LIKE /pws/zycie116-parcnum,
a_3periodic LIKE /pws/zycie116-periodic,
a_3indice LIKE /pws/zycie116-indice,
a_3valtot LIKE /pws/zycie116-valtot,
* Parameters
rimc1 LIKE indx-srtfd VALUE 'NRSEQDI',
rimc2 LIKE indx-srtfd VALUE 'NRBL',
rimc4 LIKE indx-srtfd VALUE 'WA085',
* Globais
ok_code LIKE sy-ucomm,
v_nrseq_ant LIKE /pws/zycie085-nrseqdi,
v_nrbl LIKE /pws/zycie093-nrseqce,
*--Ch.373877-22.05.2007-I:drilldown Pedido
* v_ebeln(10) type n,"like ekko-ebeln,
v_ebeln LIKE ekko-ebeln,
*--Ch.373877-22.05.2007-F:drilldown Pedido
v_waers LIKE /pws/zycie003-waers,
v_nrseqdi LIKE /pws/zycie085-nrseqdi,
v_line TYPE i,
v_lin_191 TYPE i,
v_lin_177 TYPE i,
v_icodr1 LIKE /pws/zycie100a-codregtri,
v_icodr2 LIKE /pws/zycie100a-codregtriipi,
v_comm LIKE ok_code,
v_fretc LIKE /pws/zycie093-collect,
v_c LIKE /pws/zycie093-tpconh,
v_l LIKE /pws/zycie100a-codregtri,
v_m LIKE /pws/zycie006-codcambial,
v_n LIKE /pws/zycie100a-motivo,
v_o LIKE /pws/zycie085-ntimp,
v_p LIKE /pws/zycie100a-codfunleg,
v_t LIKE /pws/zycie093-meiotransp,
v_tipo LIKE /pws/zycit087-tipo,
v_tipo_a LIKE v_tipo,
v_txtkey LIKE thead-tdname,
v_txtki LIKE thead-tdname,
v_txtcom LIKE thead-tdname,
v_tntgew LIKE /pws/zycie003-ntgew,
v_tval LIKE t_icms,
v_tvaln LIKE t_icms,
v_tval2 LIKE t_icms,
v_tval3 LIKE t_icms,
v_tval4 LIKE /pws/zycie006-vlmerc,
v_tfrefat LIKE t_icms,
v_tfre LIKE t_icms,
v_tseg LIKE t_icms,
v_tsegfat LIKE t_icms,
v_rfrefat LIKE t_icms,
v_rsegfat LIKE t_icms,
v_tmle LIKE t_icms,
v_ini LIKE t_icms,
v_ini2 LIKE t_icms,
v_bltofat LIKE t_icms,
v_sgtofat LIKE t_icms,
v_tdif LIKE t_icms,
v_dif_frn LIKE t_icms,
v_tdif_aux LIKE t_icms,
t_vldif LIKE t_icms,
v_linha TYPE i, " Nº da linha do reg na tc
v_pos TYPE i, " Nº da linha do reg na tc
v_nolin TYPE i,
v_lena TYPE i,
v_ncm01 TYPE i,
v_ncm02 LIKE /pws/zycit003-j_1bnbm,
v_werks LIKE ekpo-werks,
v_name1 LIKE t001w-name1,
v_petroleo,
v_bl,
v_changed,
v_resposta,
v_erro,
v_acto,
v_txtdisplay,
v_txtsave,
v_input,
v_valor(30), " Pega valor do campo de tela
v_conteudo(20),
v_textstat(20) TYPE c ,
v_txta(100) TYPE c ,
v_propoe TYPE c ,
v_trecho TYPE c ,
v_calci TYPE c ,
v_valid TYPE c ,
v_aux_rateio LIKE t_icms , "Aux no rateio valor FOB da 100
v_comprador LIKE /pws/zycit121-comprador,
v_ip LIKE sy-tabix ,
v_ipt LIKE sy-tabix ,
v_ipa LIKE sy-tabix ,
v_idx LIKE sy-tabix ,
v_idxa LIKE sy-tabix ,
v_sub LIKE sy-subrc ,
* v_adic type i ,
* v_adics type i ,
* v_adic2 type i ,
v_status_s VALUE 1 ,"Inf status exib./inib.
v_aini TYPE c ,
v_nt1 TYPE c ,
v_msg1 TYPE c ,
v_icms_especial TYPE c ,
v_base_esp LIKE /pws/zycit062-base ,
v_icms_regio LIKE t001w-regio ,
v_pg01 TYPE i ,
v_10p LIKE t_icms VALUE '0.1' ,
v_name LIKE thead-tdname ,
v_texto(255) TYPE c ,
encont TYPE i ,
v_cur TYPE i ,
v_s_idioma(15) TYPE c , " Idioma dos Documentos
v_repid LIKE /pws/zycet067-repid ,
v_nratoc LIKE /pws/zycie244-nratoc ,
v_perseg_vez TYPE c ,
v_param(550) TYPE c VALUE space ,
v_tpdoc LIKE /pws/zycit136-tp_doc ,
v_string_ex(250) TYPE c VALUE space ,
v_subrc TYPE c ,
v_sisco1 LIKE s_fbvr ,
v_sisco2 LIKE s_fbvr ,
v_sisco3 LIKE s_fbvr ,
v_nr_itens LIKE s_fbvr ,
v_desp LIKE s_fbvr ,
v_cfr LIKE t_icms ,
v_tcfr LIKE t_icms ,
v_custo LIKE t_icms ,
v_frete LIKE t_icms ,
v_medida LIKE /pws/zycie003-meinsest,
v_tabix LIKE sy-tabix ,
vsaldo LIKE /pws/zycie263-qtd_iten,
v_espec TYPE c ,
v_msg TYPE c ,
v_propoe_sisc TYPE c ,
v_per_seg LIKE /pws/zycie085-per_seg ,
* v_cols TYPE cxtab_column ,
v_nf041(1) TYPE c ,
v_modo TYPE c ,
v_doc LIKE /pws/zycit085-belnr_0 ,
v_taxa LIKE /pws/zycie085-ukursfob,
v_resp TYPE c,
v_visualiza TYPE c,
v_report TYPE c,
v_txini TYPE c,
v_msgfre TYPE c,
v_region LIKE adrc-region,
v_canal LIKE /pws/zycit397-canal,
v_totalusdp TYPE p DECIMALS 2,
v_totalusdg TYPE p DECIMALS 2,
v_totalusda TYPE p DECIMALS 2,
v_totalusdtp TYPE p DECIMALS 2,
v_totalusdtg TYPE p DECIMALS 2,
v_totalusdta TYPE p DECIMALS 2,
*Chamado 403040 - Inicio
* v_mudou VALUE 'X',
v_mudou ,
*Chamado 403040 - Fim
v_valtot LIKE /pws/zycie085-vlfob,
v_ate TYPE i ,
v_usd LIKE /pws/zycie085-ukursfob.
DATA wa_zycit403 LIKE /pws/zycit403.
DATA v_index LIKE sy-tabix.
* Variáveis especiais de 2 decimais para exibição da DSI
DATA: s_frvr_d2 LIKE /pws/zycie006-vlmerc,
s_stvr_d2 LIKE /pws/zycie006-vlmerc,
v_tmle_d2 LIKE /pws/zycie006-vlmerc,
t_vmle_d2 LIKE /pws/zycie006-vlmerc,
v_tot_fre LIKE t_icms,
v_frete_nm LIKE t_icms,
t_ivmle_d2 LIKE /pws/zycie006-vlmerc,
s_vluni_d2 LIKE /pws/zycie006-vlmerc,
t_icmsbs_d2 LIKE /pws/zycie006-vlmerc,
t_icms_d2 LIKE /pws/zycie006-vlmerc.
* Declarações reclassificação IA
DATA: BEGIN OF itab_matuse OCCURS 0.
DATA: ebeln LIKE ekpo-ebeln,
ebelp LIKE ekpo-ebelp,
matnr LIKE ekpo-matnr, " FT
bwtar LIKE ekpo-bwtar,
j_1bmatuse LIKE ekpo-j_1bmatuse,
knttp LIKE ekpo-knttp, " FT
werks LIKE t001w-werks,
bwkey LIKE mbew-bwkey.
DATA: END OF itab_matuse .
DATA: BEGIN OF itab_matuse_aux OCCURS 0.
DATA: j_1bmatuse LIKE ekpo-j_1bmatuse,
hkont LIKE bsis-hkont .
DATA: END OF itab_matuse_aux .
DATA: BEGIN OF itab_matuse_aux2 OCCURS 0.
DATA: j_1bmatuse LIKE ekpo-j_1bmatuse,
hkont LIKE bsis-hkont .
DATA: END OF itab_matuse_aux2 .
DATA: BEGIN OF itab_di OCCURS 0.
DATA: hkont LIKE bsis-hkont,
vlseg LIKE /pws/zycit100-vlseg,
vlfre LIKE /pws/zycit100-vlfre,
vlfob LIKE /pws/zycie085-vlfre,
vldi LIKE /pws/zycit100-vlfob.
DATA: END OF itab_di .
DATA: BEGIN OF itab_bsis OCCURS 10.
DATA: hkont LIKE bsis-hkont ,
dmbtr LIKE bsis-dmbtr ,
wrbtr LIKE bsis-wrbtr ,
belnr LIKE bsis-belnr ,
tpfatura LIKE /pws/zycit006-tpfatura.
DATA: END OF itab_bsis.
DATA: BEGIN OF itab_bsis_aux OCCURS 10.
DATA: hkont LIKE bsis-hkont ,
dmbtr LIKE bsis-dmbtr ,
wrbtr LIKE bsis-wrbtr ,
tpfatura LIKE /pws/zycit006-tpfatura.
DATA: END OF itab_bsis_aux.
DATA: BEGIN OF itab_matuse_aux1 OCCURS 0,
matuse LIKE ekpo-j_1bmatuse,
conta_r LIKE /pws/zycbt012-saknr1,
conta_d LIKE /pws/zycbt012-saknr1,
conta_c LIKE /pws/zycbt012-saknr1,
bklas LIKE /pws/zycit135-bklas,
END OF itab_matuse_aux1.
DATA: wa_matuse_aux LIKE itab_matuse_aux.
DATA: BEGIN OF wa_bsis .
DATA: hkont LIKE bsis-hkont,
dmbtr LIKE bsis-dmbtr,
wrbtr LIKE bsis-wrbtr,
belnr LIKE bsis-belnr.
DATA: END OF wa_bsis.
* Batch input
DATA: itab_zycbt034 LIKE /pws/zycbt034 OCCURS 10 WITH HEADER LINE,
itab_zycit034 LIKE /pws/zycit034 OCCURS 10 WITH HEADER LINE,
itab_zycbt032 LIKE /pws/zycbt032 OCCURS 10 WITH HEADER LINE,
itab_zycbe033 LIKE /pws/zycbe033 OCCURS 10 WITH HEADER LINE,
itab_zycbt036 LIKE /pws/zycbt036 OCCURS 10 WITH HEADER LINE,
itab_zycbt013 LIKE /pws/zycbt013 OCCURS 10 WITH HEADER LINE,
itab_zycbt012 LIKE /pws/zycbt012 OCCURS 10 WITH HEADER LINE.
DATA: BEGIN OF itab_contas OCCURS 0.
INCLUDE STRUCTURE /pws/zycbe035.
DATA: END OF itab_contas.
DATA: BEGIN OF itab_contas_aux OCCURS 0.
INCLUDE STRUCTURE /pws/zycbe035.
DATA: END OF itab_contas_aux.
***---Modo de execução do BI-----------------------------------------***
DATA: BEGIN OF itab_modo OCCURS 0.
DATA: modo LIKE /pws/zycbt039-modo,
descr LIKE /pws/zycbt039-descr.
INCLUDE STRUCTURE spopli.
DATA: END OF itab_modo.
DATA wa_zycbt011 LIKE /pws/zycbt011.
DATA: v_modo_bi , "Modo Batch-input
v_belnr LIKE bkpf-belnr, "Doc. Contab. para F-51,
v_totline TYPE n ,
vl_variacao LIKE /pws/zycit085-vlfob,
v_rec_ia TYPE i,
v_rec_ia_1 TYPE i,
v_text(14) TYPE c,
v_datum LIKE sy-datum,
v_dele ,
v_sgtxt LIKE bseg-sgtxt,
v_zuonr LIKE bseg-zuonr,
v_xblnr LIKE bkpf-xblnr,
v_bktxt LIKE bkpf-bktxt,
v_f05_ok,
v_blart LIKE /pws/zycbt011-blart,
v_belnrf05 LIKE itab_zycbt032-belnr,
v_desp_acr LIKE /pws/zycit049-vldp,
v_desp_brl LIKE /pws/zycit049-vldp,
v_evento LIKE /pws/zyglt321-codeven,
v_matuse LIKE /pws/zycbe035-matuse,
v_salvou TYPE c.
Data: v_tax_temp type /pws/zycit085-ukursfob.
DATA: END OF COMMON PART.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI059F01
...
encont = 1.
CONCATENATE text-052 itab_ekko-ebeln text-120 itab_ekpo-ebelp
text-108 INTO mensagem3 SEPARATED BY space.
mensagem4 = text-121.
CALL FUNCTION 'POPUP_TO_DISPLAY_TEXT'
EXPORTING
titel = text-112
textline1 = mensagem3
textline2 = mensagem4.
ENDFORM.
* >> Início da inclusão:
FORM verifica_exit USING p_modulo
p_func
p_exit.
CLEAR itab_zyglt100.
REFRESH itab_zyglt100.
CALL FUNCTION '/PWS/ZYGL_BUSCA_EXIT_CLIENTE'
EXPORTING
i_codmod = p_modulo
i_func = p_func
i_zexit = p_exit
TABLES
itab_zyglt100 = itab_zyglt100
EXCEPTIONS
i_codmod_nao_encontrado = 1
i_func_nao_encontrado = 2
i_zexit_nao_encontrado = 3
OTHERS = 4.
ENDFORM.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI059F03
...
ENDIF.
CLEAR itab_zycit403.
ENDLOOP.
DESCRIBE TABLE itab_zycit403 LINES v_first.
ENDLOOP.
SORT itab_zycit403 BY codigo.
LOOP AT itab_zycit403.
MOVE-CORRESPONDING itab_zycit403 TO itab_zycit403t.
COLLECT itab_zycit403t.
ENDLOOP.
* >> Início da inclusão: FORM CARREGA_TRIBUTOS
PERFORM verifica_exit USING 'D'
'/PWS/SAPMZYCI059'
'ANA001'.
CLEAR itab_zyglt100 .
READ TABLE itab_zyglt100 WITH KEY zexit = 'ANA001' BINARY SEARCH.
IF sy-subrc EQ 0.
IF NOT itab_zyglt100-zexit_ativa IS INITIAL.
PERFORM (itab_zyglt100-formulario) IN PROGRAM
(itab_zyglt100-programa) IF FOUND.
ENDIF.
ENDIF.
* << Fim da inclusão
ELSE.
SORT itab_zycit403 BY codigo.
CLEAR itab_zycit403t.
REFRESH itab_zycit403t.
LOOP AT itab_zycit403.
MOVE-CORRESPONDING itab_zycit403 TO itab_zycit403t.
COLLECT itab_zycit403t.
ENDLOOP.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI059TOP
PROGRAM /pws/sapmzyci059 MESSAGE-ID /pws/zycim.
* >> Início da inclusão:
INCLUDE /PWS/MZYCI059X01.
* << Fim da inclusão
CONTROLS:
ts_des TYPE TABSTRIP,
ts_carga TYPE TABSTRIP,
ts_sdes TYPE TABSTRIP,
ts_scarg TYPE TABSTRIP,
ts_sbens TYPE TABSTRIP,
ts_aforn TYPE TABSTRIP,
ts_amerc TYPE TABSTRIP,
ts_aval TYPE TABSTRIP,
ts_apagt TYPE TABSTRIP,
...
...
tc_tribc TYPE TABLEVIEW USING SCREEN 0133,
tc_desp TYPE TABLEVIEW USING SCREEN 0160,
tc_text TYPE TABLEVIEW USING SCREEN 0181,
t269 TYPE TABLEVIEW USING SCREEN 0190,
tc_svol TYPE TABLEVIEW USING SCREEN 0221,
tc_sbens TYPE TABLEVIEW USING SCREEN 0230,
tc_spag TYPE TABLEVIEW USING SCREEN 0240,
tc_idoc TYPE TABLEVIEW USING SCREEN 0412,
tc_irep TYPE TABLEVIEW USING SCREEN 0440,
tc_doc1 TYPE TABLEVIEW USING SCREEN 0002.
* >> Início da exclusão:
TABLES:
/pws/zycit000,
/pws/zycit001,
/pws/zycit085,
/pws/zycie085,
/pws/zycie085a,
/pws/zycie100a,
/pws/zycie086,
/pws/zycie087,
/pws/zycie088,
/pws/zycit094,
/pws/zycie095, /pws/zycie095a,
/pws/zycie096,
/pws/zycit107,
/pws/zycie115,
/pws/zycie126,
/pws/zycit133,
/pws/zycie001,
/pws/zycit041,
/pws/zycit042,
/pws/zycie049,
/pws/zycie080, /pws/zycie080a,
/pws/zycie013,
/pws/zycie014,
/pws/zycie003,
/pws/zycit039,
/pws/zycie006,
/pws/zycit006,
/pws/zycie403,
/pws/zycit043,
t005t,
t001,
t604f,
lfa1, lfbk,
dd07t,
t615,
/pws/zycit031,
/pws/zycit104,
/pws/zycet138,
/pws/zycit174,
/pws/zycit257,
/pws/zycbt007,
ekpo, ekko,
mepo1319,
tcurx,
t615t,
j_1bbranch,
adrc,
/pws/zycie093,
/pws/zycit078,
/pws/zycie078,
/pws/zycit256, /pws/zycie256,
/pws/zycit274,
/pws/zyglt204,
/pws/zycit229,
/pws/zycet050,
/pws/zycit029,
j_1btregc,
/pws/zycit101,
bsis.
DATA: BEGIN OF itab_zycit003 OCCURS 0.
INCLUDE STRUCTURE /pws/zycie003.
DATA: slqtde LIKE /pws/zycie013-slqtde,
uebto LIKE ekpo-uebto,
uebtk LIKE ekpo-uebtk,
noinitial,
mark.
DATA: END OF itab_zycit003.
DATA: itab_zycit003a LIKE itab_zycit003 OCCURS 0 WITH HEADER LINE.
TYPES: BEGIN OF msg_struc,
tcode LIKE bdcmsgcoll-tcode,
dyname LIKE bdcmsgcoll-dyname,
dynumb LIKE bdcmsgcoll-dynumb,
msgtyp LIKE bdcmsgcoll-msgtyp,
msgspra LIKE bdcmsgcoll-msgspra,
msgid LIKE bdcmsgcoll-msgid,
msgnr LIKE bdcmsgcoll-msgnr,
msgv1 LIKE balm-msgv1,
msgv2 LIKE balm-msgv2,
msgv3 LIKE balm-msgv3,
msgv4 LIKE balm-msgv4,
env LIKE bdcmsgcoll-env,
fldname LIKE bdcmsgcoll-fldname,
END OF msg_struc.
TYPES: BEGIN OF sufixo,
ebeln LIKE /pws/zycit003-ebeln,
ebelp LIKE /pws/zycit003-ebelp,
j_1bnbm LIKE /pws/zycit003-j_1bnbm,
mogru LIKE marc-mogru,
descr LIKE /pws/zycit003-descr,
codigo LIKE /pws/zycit403-codigo,
base LIKE /pws/zycit403-base,
percentual LIKE /pws/zycit403-percentual,
valorrec LIKE /pws/zycit403-valorrec,
condicoes LIKE /pws/zycit403-condicoes,
END OF sufixo.
DATA:
itab_adic TYPE sufixo OCCURS 0,
wa_adic TYPE sufixo,
ls_fieldcatalog TYPE TABLE OF lvc_s_fcat,
g_repid LIKE sy-repid,
gs_layout TYPE lvc_s_layo,
cont_on_200 TYPE scrfname VALUE 'BCALVC_TOOLBAR_D100_C1',
grid1 TYPE REF TO cl_gui_alv_grid,
custom_container1 TYPE REF TO cl_gui_custom_container.
DATA: i_sort TYPE lvc_t_sort.
DATA: w_sort TYPE lvc_s_sort.
DATA BEGIN OF itab_trib OCCURS 0.
DATA: ebeln LIKE ekpo-ebeln,
ebelp LIKE ekpo-ebelp,
tpdesp LIKE /pws/zycie049-tpdesp,
t_ivdesp LIKE /pws/zycie085-vlfob,
waers LIKE /pws/zycie049-waers.
DATA END OF itab_trib.
DATA: itab_zycit001 LIKE /pws/zycit001 OCCURS 0 WITH HEADER LINE,
itab_zycit001_di LIKE /pws/zycit001 OCCURS 0 WITH HEADER LINE,
itab_zycit006 LIKE /pws/zycit006 OCCURS 0 WITH HEADER LINE,
itab_zycit006a LIKE /pws/zycit006 OCCURS 0 WITH HEADER LINE,
itab_zycit013 LIKE /pws/zycie013 OCCURS 0 WITH HEADER LINE,
itab_zycit014 LIKE /pws/zycie014 OCCURS 0 WITH HEADER LINE,
itab_zycit042 LIKE /pws/zycit042 OCCURS 0 WITH HEADER LINE,
itab_zycit019 LIKE /pws/zycit019 OCCURS 0 WITH HEADER LINE,
itab_zycit029 LIKE /pws/zycit029 OCCURS 0 WITH HEADER LINE,
itab_zycit020 LIKE /pws/zycit020 OCCURS 0 WITH HEADER LINE,
itab_zycit031 LIKE /pws/zycit031 OCCURS 0 WITH HEADER LINE,
itab_zycit036 LIKE /pws/zycit036 OCCURS 0 WITH HEADER LINE,
itab_zycit039 LIKE /pws/zycit039 OCCURS 0 WITH HEADER LINE,
itab_zycit041 LIKE /pws/zycit041 OCCURS 0 WITH HEADER LINE,
itab_zycit049di LIKE /pws/zycit049 OCCURS 0 WITH HEADER LINE,
itab_zycit049di2 LIKE /pws/zycit049 OCCURS 0 WITH HEADER LINE,
itab_zycit055 LIKE /pws/zycit055 OCCURS 0 WITH HEADER LINE,
itab_zycit078 LIKE /pws/zycie078 OCCURS 0 WITH HEADER LINE,
itab_zycit079 LIKE /pws/zycie079 OCCURS 0 WITH HEADER LINE,
itab_zycit085 LIKE /pws/zycie085 OCCURS 0 WITH HEADER LINE,
itab_zycit085a LIKE /pws/zycit085 OCCURS 0 WITH HEADER LINE,
itab_zycit086 LIKE /pws/zycie086 OCCURS 0 WITH HEADER LINE,
itab_zycit086a LIKE /pws/zycie086 OCCURS 0 WITH HEADER LINE,
itab_zycit087 LIKE /pws/zycie087 OCCURS 0 WITH HEADER LINE,
itab_zycit087a LIKE /pws/zycie087 OCCURS 0 WITH HEADER LINE,
itab_zycit094 LIKE /pws/zycie094 OCCURS 0 WITH HEADER LINE,
itab_zycit095 LIKE /pws/zycie095 OCCURS 0 WITH HEADER LINE,
itab_zycit095a LIKE /pws/zycie095 OCCURS 0 WITH HEADER LINE,
itab_zycit096 LIKE /pws/zycie096 OCCURS 0 WITH HEADER LINE,
itab_zycit096a LIKE /pws/zycie096 OCCURS 0 WITH HEADER LINE,
itab_zycit100 LIKE /pws/zycie100a OCCURS 0 WITH HEADER LINE,
itab_zycit100a LIKE /pws/zycie100a OCCURS 0 WITH HEADER LINE,
itab_zycit104 LIKE /pws/zycit104 OCCURS 0 WITH HEADER LINE,
itab_zycit107 LIKE /pws/zycit107 OCCURS 0 WITH HEADER LINE,
itab_zycit115 LIKE /pws/zycie115 OCCURS 0 WITH HEADER LINE,
itab_zycit115a LIKE /pws/zycie115 OCCURS 0 WITH HEADER LINE,
itab_zycit115b LIKE /pws/zycit115 OCCURS 0 WITH HEADER LINE,
itab_zycit122 LIKE /pws/zycit122 OCCURS 0 WITH HEADER LINE,
itab_zycit123 LIKE /pws/zycit123 OCCURS 0 WITH HEADER LINE,
itab_zycit126 LIKE /pws/zycie126 OCCURS 0 WITH HEADER LINE,
itab_zycit134 LIKE /pws/zycit134 OCCURS 0 WITH HEADER LINE,
itab_zycit191 LIKE /pws/zycit191 OCCURS 0 WITH HEADER LINE,
itab_zycit177 LIKE /pws/zycit177 OCCURS 0 WITH HEADER LINE,
itab_zycit177t LIKE /pws/zycit177 OCCURS 0 WITH HEADER LINE,
itab_zycit195 LIKE /pws/zycit195 OCCURS 0 WITH HEADER LINE,
itab_zycit200 LIKE /pws/zycit200 OCCURS 0 WITH HEADER LINE,
itab_zycit256 LIKE /pws/zycit256 OCCURS 0 WITH HEADER LINE,
itab_zycit200a LIKE /pws/zycit200 OCCURS 0 WITH HEADER LINE,
itab_zycit200b LIKE /pws/zycit200 OCCURS 0 WITH HEADER LINE,
itab_zycit255 LIKE /pws/zycit255 OCCURS 0 WITH HEADER LINE,
itab_zycit136 LIKE /pws/zycit136 OCCURS 0 WITH HEADER LINE,
itab_zycit399 LIKE /pws/zycit399 OCCURS 0 WITH HEADER LINE,
itab_zycit400 LIKE /pws/zycit400 OCCURS 0 WITH HEADER LINE,
itab_zycit401 LIKE /pws/zycit401 OCCURS 0 WITH HEADER LINE,
itab_zycit402 LIKE /pws/zycit402 OCCURS 0 WITH HEADER LINE,
itab_zycit404 LIKE /pws/zycit404 OCCURS 0 WITH HEADER LINE,
itab_zycit403 LIKE /pws/zycit403 OCCURS 0 WITH HEADER LINE,
itab_zycit403_i LIKE /pws/zycit403 OCCURS 0 WITH HEADER LINE,
itab_zycit403a LIKE /pws/zycit403 OCCURS 0 WITH HEADER LINE,
itab_zycit404_aux LIKE /pws/zycit404 OCCURS 0 WITH HEADER LINE,
rtext LIKE tline OCCURS 50 WITH HEADER LINE,
rtextc LIKE tline OCCURS 50 WITH HEADER LINE,
rtexti LIKE tline OCCURS 50 WITH HEADER LINE,
rtexta LIKE tline OCCURS 50 WITH HEADER LINE,
rtexto LIKE tline OCCURS 0 WITH HEADER LINE,
rtextx LIKE tline OCCURS 0 WITH HEADER LINE,
rtextesp LIKE tline OCCURS 0 WITH HEADER LINE,
rtextcompl LIKE tline OCCURS 0 WITH HEADER LINE,
itab_ekpo LIKE ekpo OCCURS 0 WITH HEADER LINE,
itab_bdc LIKE bdcdata OCCURS 0 WITH HEADER LINE,
itab_msg TYPE msg_struc OCCURS 5 WITH HEADER LINE,
itab_stxl LIKE stxl OCCURS 0 WITH HEADER LINE,
itab_makt LIKE makt OCCURS 0 WITH HEADER LINE,
itab_zycit100_temp LIKE /pws/zycie100a OCCURS 0 WITH HEADER LINE.
DATA: itab_zycit003_t LIKE /pws/zycit003 OCCURS 0 WITH HEADER LINE,
itab_zycit078_t LIKE /pws/zycit078 OCCURS 0 WITH HEADER LINE,
itab_zycit085_t LIKE /pws/zycit085 OCCURS 0 WITH HEADER LINE,
itab_zycit100_t LIKE /pws/zycit100 OCCURS 0 WITH HEADER LINE.
DATA: BEGIN OF itab_zycit082 OCCURS 0.
DATA: nrseq LIKE /pws/zycit082-nrseq,
ebeln LIKE /pws/zycit082-ebeln,
ebelp LIKE /pws/zycit082-ebelp,
doc LIKE /pws/zycit082-doc,
END OF itab_zycit082.
DATA: BEGIN OF itab_zycit049 OCCURS 0.
INCLUDE STRUCTURE /pws/zycie049.
DATA: tipo LIKE /pws/zycit019-tipo,
coddesp LIKE /pws/zycit000-cod_sisc,
codigo LIKE /pws/zycit019-codigo,
baseicms LIKE /pws/zycit020-baseicms,
baseii LIKE /pws/zycit020-baseii,
reduz LIKE /pws/zycie122-descricao_reduz,
vldp_aux LIKE /pws/zycie049-vldp,
divabs LIKE /pws/zycit039-divabs,
peso LIKE /pws/zycit039-peso,
proporplan LIKE /pws/zycit039-proporplan,
END OF itab_zycit049.
DATA: BEGIN OF itab_adicao OCCURS 0.
INCLUDE STRUCTURE /pws/zycie116.
DATA: flag_vltot,
END OF itab_adicao.
DATA: BEGIN OF itab_NANA OCCURS 1,
sign(1) TYPE c,
option(2) TYPE c,
low LIKE /pws/zycie085-nrseqdi,
high LIKE /pws/zycie085a-nrseqdi,
END OF itab_NANA.
DATA: BEGIN OF itab_dtreg OCCURS 1,
sign(1) TYPE c,
option(2) TYPE c,
low LIKE /pws/zycie085-dtreg,
high LIKE /pws/zycie085a-dtreg,
END OF itab_dtreg.
DATA: BEGIN OF it_verbl OCCURS 0,
nrseq LIKE /pws/zycie003-nrseq,
ebeln LIKE /pws/zycie003-ebeln,
ebelp LIKE /pws/zycie003-ebelp,
qtd_iten LIKE /pws/zycie003-qtd_iten,
END OF it_verbl.
DATA: BEGIN OF itab_zycit403t OCCURS 0,
codigo LIKE /pws/zycie403-codigo,
base LIKE /pws/zycie403-base,
valorcalc LIKE /pws/zycie403-valorcalc,
valorrec LIKE /pws/zycie403-valorrec,
condicoes LIKE /pws/zycie403-condicoes,
END OF itab_zycit403t.
DATA: BEGIN OF itab_itc OCCURS 0,
nrseq LIKE /pws/zycie003-nrseq,
ebeln LIKE /pws/zycie003-ebeln,
ebelp LIKE /pws/zycie003-ebelp,
mark,
END OF itab_itc.
DATA: BEGIN OF itab_it OCCURS 0.
INCLUDE STRUCTURE /pws/zycie100a.
DATA: descr LIKE /pws/zycie003-descr,
j_1bnbm LIKE /pws/zycie003-j_1bnbm,
qtd_iten LIKE /pws/zycie003-qtd_iten,
qtd_itencacl LIKE /pws/zycie003-qtd_itencacl,
menge LIKE /pws/zycie003-menge,
meins LIKE /pws/zycie003-meins,
ntgew LIKE /pws/zycie003-ntgew,
gewei LIKE /pws/zycie003-gewei,
mfrpn LIKE /pws/zycie003-mfrpn,
vlreal LIKE /pws/zycie003-vlreal,
vlreal_aux2 LIKE /pws/zycie003-vlreal,
netpr LIKE /pws/zycie003-netpr,
bednr LIKE /pws/zycie003-bednr,
porigem LIKE /pws/zycie003-porigem,
waers LIKE /pws/zycie003-waers,
fabric LIKE /pws/zycie003-fabric,
lifnrfabr LIKE /pws/zycie003-lifnrfabr,
aplicacao LIKE /pws/zycie003-aplicacao,
condmerc LIKE /pws/zycie003-condmerc,
qtdeumest LIKE /pws/zycie003-qtdeumest,
meinsest LIKE /pws/zycie003-meinsest,
slqtde LIKE /pws/zycie013-slqtde,
agente LIKE /pws/zycie126-agente,
aliqii LIKE /pws/zycie003-aliqii,
advalii LIKE /pws/zycie003-advalii,
aliqipi LIKE /pws/zycie003-aliqipi,
advalipi LIKE /pws/zycie003-advalipi,
aliqicms LIKE /pws/zycie003-aliqicms,
advalicms LIKE /pws/zycie003-advalicms,
vlfre_fat LIKE /pws/zycie003-vlfre_fat,
vlseg_fat LIKE /pws/zycie003-vlseg_fat,
lifnr LIKE lfa1-lifnr,
extarif_al LIKE /pws/zycie003-extarif_al,
tipo_al LIKE /pws/zycie003-tipo_al,
orgemiss_al LIKE /pws/zycie003-orgemiss_al,
numero_al LIKE /pws/zycie003-numero_al,
anoemiss_al LIKE /pws/zycie003-anoemiss_al,
ii_extarif LIKE /pws/zycie003-ii_extarif,
ii_tipo LIKE /pws/zycie003-ii_tipo,
ii_orgemiss LIKE /pws/zycie003-ii_orgemiss,
ii_numero LIKE /pws/zycie003-ii_numero,
ii_anoemiss LIKE /pws/zycie003-ii_anoemiss,
ipi_extarif LIKE /pws/zycie003-ipi_extarif,
ipi_tipo LIKE /pws/zycie003-ipi_tipo,
ipi_orgemiss LIKE /pws/zycie003-ipi_orgemiss,
ipi_numero LIKE /pws/zycie003-ipi_numero,
ipi_anoemiss LIKE /pws/zycie003-ipi_anoemiss,
ad_extarif LIKE /pws/zycie003-ad_extarif,
ad_tipo LIKE /pws/zycie003-ad_tipo,
ad_orgemiss LIKE /pws/zycie003-ad_orgemiss,
ad_numero LIKE /pws/zycie003-ad_numero,
ad_anoemiss LIKE /pws/zycie003-ad_anoemiss,
inco1 LIKE /pws/zycie001-inco1,
naladi LIKE /pws/zycie003-naladi,
naladincca LIKE /pws/zycie003-naladincca,
zterm LIKE /pws/zycit006-zterm,
nrseqfat LIKE /pws/zycit006-nrseq,
nrfat LIKE /pws/zycit006-nrfat,
vinculo LIKE /pws/zycit006-vinculo,
vlfre_me LIKE /pws/zycie003-vlfre_fat,
vlseg_me LIKE /pws/zycie003-vlseg_fat,
vldiffob LIKE /pws/zycie003-vlfre_fat,
seq LIKE sy-tabix,
identify(19),
basred LIKE /pws/zycie003-basred,
nrli LIKE /pws/zycie003-nrli,
nrseqd LIKE /pws/zycie003-nrseqd,
nrdrawback LIKE /pws/zycie003-nrdrawback,
modalidade LIKE /pws/zycie003-modalidade,
frn LIKE /pws/zycie085-vlfob,
qtd_itend LIKE /pws/zycie003-qtd_itend,
vlreald LIKE /pws/zycie003-vlreal,
vlmerc_ad LIKE /pws/zycie085-vlfob,
matnr LIKE /pws/zycie003-matnr,
idnlf LIKE mepo1319-idnlf,
mark,
END OF itab_it.
DATA: BEGIN OF it_status OCCURS 0,
fcode LIKE rsmpe-func,
END OF it_status.
DATA: BEGIN OF it_words OCCURS 0,
word(50),
END OF it_words.
DATA: itab_ita LIKE itab_it OCCURS 0 WITH HEADER LINE,
itab_itb LIKE itab_it OCCURS 0 WITH HEADER LINE,
itab_zycit049a LIKE itab_zycit049 OCCURS 0 WITH HEADER LINE,
itab_zycit049b LIKE itab_zycit049 OCCURS 0 WITH HEADER LINE,
itab_zycit049c LIKE itab_zycit049 OCCURS 0 WITH HEADER LINE,
it_words_app LIKE it_words OCCURS 0 WITH HEADER LINE,
it_statu2 LIKE it_status OCCURS 0 WITH HEADER LINE,
it_statu3 LIKE it_status OCCURS 0 WITH HEADER LINE,
it_statu4 LIKE it_status OCCURS 0 WITH HEADER LINE,
itab_zycit229 LIKE /pws/zycit229 OCCURS 0 WITH HEADER LINE,
itab_zycit263 LIKE /pws/zycit263 OCCURS 0 WITH HEADER LINE,
it_statu5 LIKE it_status OCCURS 0 WITH HEADER LINE.
DATA: BEGIN OF itab_zycit257 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit257.
DATA: END OF itab_zycit257.
DATA: BEGIN OF itab_zycit174 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit174.
DATA: END OF itab_zycit174.
DATA: BEGIN OF itab_zycit132 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit132.
DATA: END OF itab_zycit132.
DATA: BEGIN OF itab_gforn OCCURS 0.
INCLUDE STRUCTURE /pws/zycit235.
DATA: END OF itab_gforn.
DATA: BEGIN OF itab_zycit234 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit234.
DATA: END OF itab_zycit234.
DATA: BEGIN OF itab_zycit269 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit269.
DATA: END OF itab_zycit269.
DATA: BEGIN OF itab_lfa1 OCCURS 0,
lifnr LIKE lfa1-lifnr,
ktokk LIKE lfa1-ktokk,
END OF itab_lfa1.
DATA: BEGIN OF itab_ekko OCCURS 0,
ebeln LIKE ekko-ebeln,
bsart LIKE ekko-bsart,
END OF itab_ekko.
DATA: BEGIN OF itab_t604f OCCURS 0,
steuc LIKE t604f-steuc,
obrigli LIKE t604f-/pws/obrigli,
END OF itab_t604f.
DATA: BEGIN OF itab_gped OCCURS 0.
INCLUDE STRUCTURE /pws/zycit236.
DATA: END OF itab_gped.
DATA: BEGIN OF itab_li OCCURS 0,
nrseqli LIKE /pws/zycit079-nrseqli,
ebeln LIKE /pws/zycit079-ebeln,
ebelp LIKE /pws/zycit079-ebelp,
steuc1 LIKE /pws/zycit078-steuc1,
dtdef LIKE /pws/zycit078-dtdef,
dtvencto LIKE /pws/zycit078-dtvencto,
nrseqdi LIKE /pws/zycit078-nrseqdi,
menge LIKE /pws/zycit079-menge,
END OF itab_li.
DATA: BEGIN OF itab_cta OCCURS 0.
INCLUDE STRUCTURE /pws/zygle316.
DATA: END OF itab_cta.
DATA: BEGIN OF it_zycit270 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit270.
DATA: END OF it_zycit270.
DATA: BEGIN OF itab_desp_funcao OCCURS 0.
INCLUDE STRUCTURE /pws/zycie353.
DATA: END OF itab_desp_funcao.
DATA: BEGIN OF itab_report_cliente OCCURS 20.
INCLUDE STRUCTURE /pws/zycet079.
DATA: END OF itab_report_cliente.
DATA: it_zycit255 LIKE /pws/zycit255 OCCURS 0 WITH HEADER LINE,
it_zycit100 LIKE /pws/zycit100 OCCURS 0 WITH HEADER LINE,
it_zycit085 LIKE /pws/zycit085 OCCURS 0 WITH HEADER LINE,
it_zycit085_aux LIKE /pws/zycit085 OCCURS 0 WITH HEADER LINE,
it_zycit001 LIKE /pws/zycit001 OCCURS 0 WITH HEADER LINE.
DATA:
wa_zycit085 LIKE /pws/zycie085,
wa_zycie085 LIKE /pws/zycie085,
wa_zycit1223 LIKE /pws/zycit122,
wa_zycit100 LIKE /pws/zycit100,
wa_zycit104 LIKE /pws/zycit104,
wa_zycit136 LIKE /pws/zycit136,
wa_zycit078 LIKE /pws/zycit078,
wa_it LIKE itab_it,
wa_itb LIKE itab_it,
wa_lfa1 LIKE lfa1,
wa_adrc LIKE adrc,
wa_zycbt007 LIKE /pws/zycbt007,
wa_it000 LIKE /pws/zycit000,
wa_it122 LIKE itab_zycit049,
wa_it123 LIKE itab_zycit049,
xthead LIKE thead,
xtheadc LIKE thead,
xtheadi LIKE thead,
xtheada LIKE thead,
xtheado LIKE thead,
xtheadx LIKE thead,
wa_j_1bbranch LIKE j_1bbranch,
wa_t001w LIKE t001w,
wa_zycet050 LIKE /pws/zycet050,
wa_zycit375 LIKE /pws/zycit375.
DATA: BEGIN OF wa_ender.
DATA: stras LIKE t001w-spras,
ort01 LIKE t001w-ort01,
regio LIKE t001w-regio.
DATA: END OF wa_ender.
* << Fim da exclusão
DATA:
* >> Início da exclusão:
i_desc(20),
s_ometv,
s_oregt,
s_oregp,
s_ofund,
s_oacor,
s_oalad,
s_oexm,
s_oexii,
s_oexipi,
s_oexad,
s_cnpj(18) TYPE c,
s_agen(18) TYPE c,
s_msg1(40),
s_fbsn(3),
s_mmod(3),
s_tr3(3),
s_opf(3),
s_doct(18),
s_opcb(18),
s_cont(16),
s_conu(23),
s_tpa(15),
s_mod(34),
v_adics,
s_setor(35),
stxt_id(17),
stxt_embloc(17),
stxt_embdat(16),
s_iddes(120),
s_pgban(3),
s_pgage(13),
s_pgcc(19),
s_pgrec(120),
s_len TYPE i,
s_pgag1 TYPE i,
s_pgag2 TYPE i,
s_ekadd LIKE ekpo-adrnr,
s_ekaed LIKE ekpo-aedat,
s_pglif LIKE lfbk-lifnr,
s_pgbks LIKE lfbk-banks,
s_pgbkl LIKE lfbk-bankl,
s_pgbkn LIKE lfbk-bankn,
s_pgnom LIKE lfbk-koinh,
s_inco1_ci LIKE /pws/zycit031-inco1_ci,
s_inco1 LIKE /pws/zycit031-inco1,
s_inco_ok,
s_tax LIKE /pws/zycie085-ukursfob,
s_local LIKE t001w-werks,
s_regdescr LIKE /pws/zycit024-descricao,
s_urf LIKE /pws/zycet132-descdesp,
s_trans LIKE /pws/zycit054-bezei,
s_pais LIKE t005t-landx,
s_ppais LIKE t005-/pws/codpa,
s_pdesc LIKE t005t-landx,
s_urfe LIKE /pws/zycet132-descdesp,
s_fbcm LIKE tcurc-/pws/codmo,
s_frcm LIKE tcurc-/pws/codmo,
s_stcm LIKE tcurc-/pws/codmo,
s_fbdesc LIKE tcurt-ltext,
s_frdesc LIKE tcurt-ltext,
s_stdesc LIKE tcurt-ltext,
s_umped LIKE t006a-msehl,
s_umestt LIKE t006a-msehl,
s_umad LIKE t006a-msehl,
s_recalf LIKE /pws/zycet138-descrec,
s_advl LIKE /pws/zycie100a-vlantid,
s_adbs LIKE /pws/zycie100a-baseantid,
s_fbvr LIKE /pws/zycit085-vlfob,
s_fbvr2 LIKE /pws/zycit006-vlmerc,
s_fbvr_s_d LIKE s_fbvr,
s_frvr LIKE s_fbvr,
s_frvr_aux LIKE s_fbvr,
s_frvr_aux1 LIKE s_fbvr,
s_stvr LIKE s_fbvr,
s_stvr_aux LIKE s_fbvr,
s_stvr_aux1 LIKE s_fbvr,
s_vldpr LIKE s_fbvr,
s_wiicalc LIKE s_fbvr,
s_wiiredu LIKE s_fbvr,
s_wiidevi LIKE s_fbvr,
s_wiireco LIKE s_fbvr,
s_wipicalc LIKE s_fbvr,
s_wipiredu LIKE s_fbvr,
s_wipidevi LIKE s_fbvr,
s_wipireco LIKE s_fbvr,
s_wicdevi LIKE s_fbvr,
s_wicreco LIKE s_fbvr,
s_wsisco LIKE s_fbvr,
s_waddevi LIKE s_fbvr,
s_wadreco LIKE s_fbvr,
s_icon TYPE icons-text,
s_icon2(30),
v_modsegm(1) TYPE c VALUE 0,
t_tsp(120),
t_impnat(65),
t_imptip(53),
t_sncou(3),
t_clades(3),
t_espec(72),
t_pnome LIKE /pws/zycit133-nome,
t_blid LIKE /pws/zycie093-identify,
t_icmsbs LIKE /pws/zycie085-vlfob,
t_icms LIKE /pws/zycie085-vlfob,
t_icmsx LIKE /pws/zycie085-vlfob,
t_tot LIKE /pws/zycie006-vlmerc,
t_embarc LIKE /pws/zycie001-embarca,
t_regdes LIKE /pws/zycit167-descricao,
t_regde2 LIKE t_regdes,
t_motdes LIKE /pws/zycit169-descricao,
t_ncmdes(35),
t_uest LIKE t604n-text1,
t_ucom LIKE t604n-text1,
t_msis LIKE tcurc-/pws/codmo,
t_mdes LIKE tcurt-ltext,
t_ppais LIKE t005-/pws/codpa,
t_zzum LIKE t604f-/pws/zum,
t_zcom LIKE t604f-/pws/zum,
t_vmle LIKE /pws/zycie085-vlfob,
t_vmle2 LIKE /pws/zycie085-vlfob,
t_vmle3 LIKE /pws/zycie085-vlfob,
v_tot_plan LIKE /pws/zycit003-netpr,
v_it_plan LIKE /pws/zycit003-netpr,
v_fr_seg_ad LIKE /pws/zycie085-vlfob,
t_fundes LIKE /pws/zycit177-descr,
t_vlii LIKE /pws/zycie006-vlmerc,
t_vlipi LIKE /pws/zycie006-vlmerc,
t_vlicms LIKE /pws/zycie006-vlmerc,
t_ivdesp LIKE t_icms,
t_ivdes2 LIKE t_icms,
t_ivdes3 LIKE t_icms,
t_ivmle LIKE t_icms,
t_ivmle2 LIKE t_icms,
t_ivfre LIKE t_icms,
t_ivseg LIKE t_icms,
v_tot_seg LIKE t_icms,
t_ivadu LIKE t_icms,
t_iibas LIKE t_icms,
t_iirec LIKE t_icms,
t_ipibas LIKE t_icms,
t_ipirec LIKE t_icms,
a_opgan,
a_opgav,
a_oparc,
a_otxjr,
a_mdnac1,
a_mdnac2,
a_radio1,
a_ucomm1,
a_check1,
a_check2,
a_check3,
a_pgban(3),
a_pgage(13),
a_espec(72),
a_espe2(72),
a_inco1(30),
a_ifina(120),
a_motiv(120),
a_txjur(120),
a_espde(120),
a_modpa(35),
a_checked TYPE i,
a_uqtde TYPE i,
a_ucomm2 LIKE sy-ucomm,
a_ip LIKE sy-tabix,
a_lfa LIKE lfa1-name1,
a_aladi LIKE /pws/zycet168-descricao,
a_metv LIKE /pws/zycit173-descricao,
a_pais LIKE t005t-landx,
a_pais1 LIKE t005t-landx,
a_pais2 LIKE t005t-landx,
a_spais LIKE t005-/pws/codpa,
a_spais1 LIKE t005-/pws/codpa,
a_spais2 LIKE t005-/pws/codpa,
a_qtdeest LIKE /pws/zycie003-qtdeumest,
a_tribipi LIKE /pws/zycie100a-tribipi,
a_adbase LIKE /pws/zycie100a-baseantid,
a_baseii LIKE /pws/zycie116-baseii,
a_baseipi LIKE /pws/zycie116-baseii,
a_baseicms LIKE /pws/zycie116-baseii,
a_itval LIKE t_icms,
a_vmler LIKE t_icms,
a_icdevi LIKE t_icms,
a_icreco LIKE t_icms,
a_itfre LIKE t_icms,
a_itseg LIKE t_icms,
a_iiacor LIKE t_icms,
a_iicalc LIKE t_icms,
a_iiredu LIKE t_icms,
a_iidevi LIKE t_icms,
a_iitcalc LIKE t_icms,
a_iitredu LIKE t_icms,
a_iitdevi LIKE t_icms,
a_iitreco LIKE t_icms,
a_ipicalc LIKE t_icms,
a_ipiredu LIKE t_icms,
a_ipidevi LIKE t_icms,
a_ipitdevi LIKE t_icms,
a_ipitreco LIKE t_icms,
a_addevi LIKE t_icms,
a_adreco LIKE t_icms,
a_vlrtot LIKE t_icms,
a_1codtxjuros LIKE /pws/zycie116-codtxjuros,
a_1taxarate LIKE /pws/zycie116-taxarate,
a_1parcnum LIKE /pws/zycie116-parcnum,
a_1periodic LIKE /pws/zycie116-periodic,
a_1indice LIKE /pws/zycie116-indice,
a_1valtot LIKE /pws/zycie116-valtot,
a_2codtxjuros LIKE /pws/zycie116-codtxjuros,
a_2taxarate LIKE /pws/zycie116-taxarate,
a_2parcnum LIKE /pws/zycie116-parcnum,
a_2periodic LIKE /pws/zycie116-periodic,
a_2indice LIKE /pws/zycie116-indice,
a_2valtot LIKE /pws/zycie116-valtot,
a_3codtxjuros LIKE /pws/zycie116-codtxjuros,
a_3taxarate LIKE /pws/zycie116-taxarate,
a_3parcnum LIKE /pws/zycie116-parcnum,
a_3periodic LIKE /pws/zycie116-periodic,
a_3indice LIKE /pws/zycie116-indice,
a_3valtot LIKE /pws/zycie116-valtot,
rimc1 LIKE indx-srtfd VALUE 'NRSEQDI',
rimc2 LIKE indx-srtfd VALUE 'NRBL',
rimc4 LIKE indx-srtfd VALUE 'WA085',
ok_code LIKE sy-ucomm,
v_nrseq_ant LIKE /pws/zycie085-nrseqdi,
v_nrbl LIKE /pws/zycie093-nrseqce,
v_ebeln LIKE ekko-ebeln,
v_waers LIKE /pws/zycie003-waers,
v_nrseqdi LIKE /pws/zycie085-nrseqdi,
v_line TYPE i,
v_lin_191 TYPE i,
v_lin_177 TYPE i,
v_icodr1 LIKE /pws/zycie100a-codregtri,
v_icodr2 LIKE /pws/zycie100a-codregtriipi,
v_comm LIKE ok_code,
v_fretc LIKE /pws/zycie093-collect,
v_c LIKE /pws/zycie093-tpconh,
v_l LIKE /pws/zycie100a-codregtri,
v_m LIKE /pws/zycie006-codcambial,
v_n LIKE /pws/zycie100a-motivo,
v_o LIKE /pws/zycie085-ntimp,
v_p LIKE /pws/zycie100a-codfunleg,
v_t LIKE /pws/zycie093-meiotransp,
v_tipo LIKE /pws/zycit087-tipo,
v_tipo_a LIKE v_tipo,
v_txtkey LIKE thead-tdname,
v_txtki LIKE thead-tdname,
v_txtcom LIKE thead-tdname,
v_tntgew LIKE /pws/zycie003-ntgew,
v_tval LIKE t_icms,
v_tvaln LIKE t_icms,
v_tval2 LIKE t_icms,
v_tval3 LIKE t_icms,
v_tval4 LIKE /pws/zycie006-vlmerc,
v_tfrefat LIKE t_icms,
v_tfre LIKE t_icms,
v_tseg LIKE t_icms,
v_tsegfat LIKE t_icms,
v_rfrefat LIKE t_icms,
v_rsegfat LIKE t_icms,
v_tmle LIKE t_icms,
v_ini LIKE t_icms,
v_ini2 LIKE t_icms,
v_bltofat LIKE t_icms,
v_sgtofat LIKE t_icms,
v_tdif LIKE t_icms,
v_dif_frn LIKE t_icms,
v_tdif_aux LIKE t_icms,
t_vldif LIKE t_icms,
v_linha TYPE i,
v_pos TYPE i,
v_nolin TYPE i,
v_lena TYPE i,
v_ncm01 TYPE i,
v_ncm02 LIKE /pws/zycit003-j_1bnbm,
v_werks LIKE ekpo-werks,
v_name1 LIKE t001w-name1,
v_petroleo,
v_bl,
v_changed,
v_resposta,
v_erro,
v_acto,
v_txtdisplay,
v_txtsave,
v_input,
v_valor(30),
v_conteudo(20),
v_textstat(20) TYPE c ,
v_txta(100) TYPE c ,
v_propoe TYPE c ,
v_trecho TYPE c ,
v_calci TYPE c ,
v_valid TYPE c ,
v_aux_rateio LIKE t_icms ,
v_comprador LIKE /pws/zycit121-comprador,
v_ip LIKE sy-tabix ,
v_ipt LIKE sy-tabix ,
v_ipa LIKE sy-tabix ,
v_idx LIKE sy-tabix ,
v_idxa LIKE sy-tabix ,
v_sub LIKE sy-subrc ,
v_status_s VALUE 1 ,
v_aini TYPE c ,
v_nt1 TYPE c ,
v_msg1 TYPE c ,
v_icms_especial TYPE c ,
v_base_esp LIKE /pws/zycit062-base ,
v_icms_regio LIKE t001w-regio ,
v_pg01 TYPE i ,
v_10p LIKE t_icms VALUE '0.1' ,
v_name LIKE thead-tdname ,
v_texto(255) TYPE c ,
encont TYPE i ,
v_cur TYPE i ,
v_s_idioma(15) TYPE c ,
v_repid LIKE /pws/zycet067-repid ,
v_nratoc LIKE /pws/zycie244-nratoc ,
v_perseg_vez TYPE c ,
v_param(550) TYPE c VALUE space ,
v_tpdoc LIKE /pws/zycit136-tp_doc ,
v_string_ex(250) TYPE c VALUE space ,
v_subrc TYPE c ,
v_sisco1 LIKE s_fbvr ,
v_sisco2 LIKE s_fbvr ,
v_sisco3 LIKE s_fbvr ,
v_nr_itens LIKE s_fbvr ,
v_desp LIKE s_fbvr ,
v_cfr LIKE t_icms ,
v_tcfr LIKE t_icms ,
v_custo LIKE t_icms ,
v_frete LIKE t_icms ,
v_medida LIKE /pws/zycie003-meinsest,
v_tabix LIKE sy-tabix ,
vsaldo LIKE /pws/zycie263-qtd_iten,
v_espec TYPE c ,
v_msg TYPE c ,
v_propoe_sisc TYPE c ,
v_per_seg LIKE /pws/zycie085-per_seg ,
v_cols TYPE cxtab_column ,
v_nf041(1) TYPE c ,
v_modo TYPE c ,
v_doc LIKE /pws/zycit085-belnr_0 ,
v_taxa LIKE /pws/zycie085-ukursfob,
v_resp TYPE c,
v_visualiza TYPE c,
v_report TYPE c,
v_txini TYPE c,
v_msgfre TYPE c,
v_region LIKE adrc-region,
v_canal LIKE /pws/zycit397-canal,
v_totalusdp TYPE p DECIMALS 2,
v_totalusdg TYPE p DECIMALS 2,
v_totalusda TYPE p DECIMALS 2,
v_totalusdtp TYPE p DECIMALS 2,
v_totalusdtg TYPE p DECIMALS 2,
v_totalusdta TYPE p DECIMALS 2,
v_mudou ,
v_valtot LIKE /pws/zycie085-vlfob,
v_ate TYPE i ,
v_usd LIKE /pws/zycie085-ukursfob.
* << Fim da exclusão
* >> Início da inclusão:
v_cols TYPE cxtab_column .
* << Fim da inclusão
* >> Início da exclusão:
DATA wa_zycit403 LIKE /pws/zycit403.
DATA v_index LIKE sy-tabix.
DATA: s_frvr_d2 LIKE /pws/zycie006-vlmerc,
s_stvr_d2 LIKE /pws/zycie006-vlmerc,
v_tmle_d2 LIKE /pws/zycie006-vlmerc,
t_vmle_d2 LIKE /pws/zycie006-vlmerc,
v_tot_fre LIKE t_icms,
v_frete_nm LIKE t_icms,
t_ivmle_d2 LIKE /pws/zycie006-vlmerc,
s_vluni_d2 LIKE /pws/zycie006-vlmerc,
t_icmsbs_d2 LIKE /pws/zycie006-vlmerc,
t_icms_d2 LIKE /pws/zycie006-vlmerc.
* << Fim da exclusão
TABLES: t002.
DATA: editor TYPE REF TO cl_gui_textedit,
editcontainer TYPE REF TO cl_gui_custom_container,
editor2 TYPE REF TO cl_gui_textedit,
editcontainer2 TYPE REF TO cl_gui_custom_container,
vrepid LIKE sy-repid,
v_tix(4),
top_editmode TYPE i.
DATA: BEGIN OF ittxt OCCURS 50,
line(72),
END OF ittxt.
DATA: BEGIN OF ittxt1 OCCURS 50,
line(66),
END OF ittxt1.
DATA: ittxt2 LIKE ittxt1 OCCURS 0 WITH HEADER LINE.
TABLES: /pws/zycbt012.
* >> Início da exclusão:
DATA: BEGIN OF itab_matuse OCCURS 0.
DATA: ebeln LIKE ekpo-ebeln,
ebelp LIKE ekpo-ebelp,
matnr LIKE ekpo-matnr,
bwtar LIKE ekpo-bwtar,
j_1bmatuse LIKE ekpo-j_1bmatuse,
knttp LIKE ekpo-knttp,
werks LIKE t001w-werks,
bwkey LIKE mbew-bwkey.
DATA: END OF itab_matuse .
DATA: BEGIN OF itab_matuse_aux OCCURS 0.
DATA: j_1bmatuse LIKE ekpo-j_1bmatuse,
hkont LIKE bsis-hkont .
DATA: END OF itab_matuse_aux .
DATA: BEGIN OF itab_matuse_aux2 OCCURS 0.
DATA: j_1bmatuse LIKE ekpo-j_1bmatuse,
hkont LIKE bsis-hkont .
DATA: END OF itab_matuse_aux2 .
DATA: BEGIN OF itab_di OCCURS 0.
DATA: hkont LIKE bsis-hkont,
vlseg LIKE /pws/zycit100-vlseg,
vlfre LIKE /pws/zycit100-vlfre,
vlfob LIKE /pws/zycie085-vlfre,
vldi LIKE /pws/zycit100-vlfob.
DATA: END OF itab_di .
DATA: BEGIN OF itab_bsis OCCURS 10.
DATA: hkont LIKE bsis-hkont ,
dmbtr LIKE bsis-dmbtr ,
wrbtr LIKE bsis-wrbtr ,
belnr LIKE bsis-belnr ,
tpfatura LIKE /pws/zycit006-tpfatura.
DATA: END OF itab_bsis.
DATA: BEGIN OF itab_bsis_aux OCCURS 10.
DATA: hkont LIKE bsis-hkont ,
dmbtr LIKE bsis-dmbtr ,
wrbtr LIKE bsis-wrbtr ,
tpfatura LIKE /pws/zycit006-tpfatura.
DATA: END OF itab_bsis_aux.
DATA: BEGIN OF itab_matuse_aux1 OCCURS 0,
matuse LIKE ekpo-j_1bmatuse,
conta_r LIKE /pws/zycbt012-saknr1,
conta_d LIKE /pws/zycbt012-saknr1,
conta_c LIKE /pws/zycbt012-saknr1,
bklas LIKE /pws/zycit135-bklas,
END OF itab_matuse_aux1.
DATA: wa_matuse_aux LIKE itab_matuse_aux.
DATA: BEGIN OF wa_bsis .
DATA: hkont LIKE bsis-hkont,
dmbtr LIKE bsis-dmbtr,
wrbtr LIKE bsis-wrbtr,
belnr LIKE bsis-belnr.
DATA: END OF wa_bsis.
DATA: itab_zycbt034 LIKE /pws/zycbt034 OCCURS 10 WITH HEADER LINE,
itab_zycit034 LIKE /pws/zycit034 OCCURS 10 WITH HEADER LINE,
itab_zycbt032 LIKE /pws/zycbt032 OCCURS 10 WITH HEADER LINE,
itab_zycbe033 LIKE /pws/zycbe033 OCCURS 10 WITH HEADER LINE,
itab_zycbt036 LIKE /pws/zycbt036 OCCURS 10 WITH HEADER LINE,
itab_zycbt013 LIKE /pws/zycbt013 OCCURS 10 WITH HEADER LINE,
itab_zycbt012 LIKE /pws/zycbt012 OCCURS 10 WITH HEADER LINE.
DATA: BEGIN OF itab_contas OCCURS 0.
INCLUDE STRUCTURE /pws/zycbe035.
DATA: END OF itab_contas.
DATA: BEGIN OF itab_contas_aux OCCURS 0.
INCLUDE STRUCTURE /pws/zycbe035.
DATA: END OF itab_contas_aux.
DATA: BEGIN OF itab_modo OCCURS 0.
DATA: modo LIKE /pws/zycbt039-modo,
descr LIKE /pws/zycbt039-descr.
INCLUDE STRUCTURE spopli.
DATA: END OF itab_modo.
DATA wa_zycbt011 LIKE /pws/zycbt011.
DATA: v_modo_bi ,
v_belnr LIKE bkpf-belnr,
v_totline TYPE n ,
vl_variacao LIKE /pws/zycit085-vlfob,
v_rec_ia TYPE i,
v_rec_ia_1 TYPE i,
v_text(14) TYPE c,
v_datum LIKE sy-datum,
v_dele ,
v_sgtxt LIKE bseg-sgtxt,
v_zuonr LIKE bseg-zuonr,
v_xblnr LIKE bkpf-xblnr,
v_bktxt LIKE bkpf-bktxt,
v_f05_ok,
v_blart LIKE /pws/zycbt011-blart,
v_belnrf05 LIKE itab_zycbt032-belnr,
v_desp_acr LIKE /pws/zycit049-vldp,
v_desp_brl LIKE /pws/zycit049-vldp,
v_evento LIKE /pws/zyglt321-codeven,
v_matuse LIKE /pws/zycbe035-matuse,
v_salvou TYPE c.
Data: v_tax_temp type /pws/zycit085-ukursfob.
* << Fim da exclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/SAPMZYCI059