CE PLUS - Nota 005665
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Encerramento Contábil
Data/Hora da Publicação: 16/01/2008 00:00:00
Data/Hora Última Alteração: 09/03/2010 11:28:46
Descrição da Nota: NECESSIDADE DE EXIT AO SELECIONAR ITENS DE RECEBIMENTO/NF
Sintoma
Necessidade de exit ao selecionar itens de recebimento no encerramento.
Solução
criada a chamada de exit CUS009 no perform encerramento do programa /PWS/SAPMZYCI010
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 05665 Data: 16/01/2008 Hora: 17:28:00
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 05665
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00004
Agrupamento : 00030
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
NECESSIDADE DE EXIT AO SELECIONAR ITENS DE RECEBIMENTO/NF
----------------------------------------------------------------------------------------------------
Palavras Chave:
EXIT - ITENS DE RECEBIMENTO - NF - ENCERRAMENTO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI010F02
REPS /PWS/MZYCI010TOP
REPS /PWS/MZYCI010X01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI010F02
FORM encerramento.
DATA: v_flag ,
v_choise LIKE sy-tabix ,
v_vldif LIKE /pws/zycit003-vldif.
LOOP AT itab_zycit003_custo.
v_vldif = itab_zycit003_custo-vldif + v_vldif.
ENDLOOP.
CLEAR: v_mr22, v_vldif1.
CLEAR v_nota.
* >> Início da inclusão: FORM ENCERRAMENTO
REFRESH itab_zyglt100.
PERFORM verifica_exit USING 'D'
'/PWS/SAPMZYCI010'
'CUS009'.
e_subrc = '0'.
CLEAR itab_zyglt100 .
READ TABLE itab_zyglt100 WITH KEY
zexit = 'CUS009' 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.
IF e_subrc EQ 0.
* << Fim da inclusão
IF itab_zycit042[] IS INITIAL AND /pws/zycie001-modalidade NE '02'.
SELECT * FROM /pws/zycit042 INTO TABLE itab_zycit042
WHERE nrseq = /pws/zycie001-nrseq.
IF sy-subrc NE 0.
v_nota = 'X'.
MESSAGE i015 WITH text-072.
ENDIF.
ENDIF.
IF NOT itab_zycit042[] IS INITIAL.
READ TABLE itab_zycit042 WITH KEY nrseq = /pws/zycie001-nrseq.
...
...
ENDIF.
ELSE.
IF ( /pws/zycie001-regime NE '16' AND
/pws/zycie001-tpdecl EQ 'DI' ).
v_nota = 'X'.
MESSAGE i015 WITH text-073.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
* >> Início da inclusão: FORM ENCERRAMENTO
ENDIF.
* << Fim da inclusão
ENDIF.
IF v_vldif EQ 0 AND NOT /pws/zycie001-belnr_mr22 IS INITIAL
AND /pws/zycie001-belnr_f_02 IS INITIAL.
SELECT SINGLE nrseqenc FROM /pws/zycit202
INTO /pws/zycit202-nrseqenc
WHERE belnr_mr22 EQ /pws/zycie001-belnr_mr22.
SELECT * FROM /pws/zycit201
INTO TABLE itab_zycit201
WHERE nrseqenc EQ /pws/zycit202-nrseqenc.
LOOP AT itab_zycit201.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI010TOP
...
/pws/zycit026.
DATA: GV_SUBSCREEN_0050 TYPE SY-DYNNR VALUE '0100',
GV_SUBSCREEN_0100_1 TYPE SY-DYNNR,
GV_SUBSCREEN_0300_2 TYPE SY-DYNNR.
CONSTANTS: BEGIN OF GC_SUBSCREEN,
PROG TYPE SY-DYNNR VALUE '0100',
HELP TYPE SY-DYNNR VALUE '0053',
END OF GC_SUBSCREEN.
DATA: GV_HTML_HELP TYPE REF TO CL_GUI_HTML_VIEWER.
DATA: GV_HELP_SHOW TYPE BOOLEAN VALUE ' '.
* >> Início da exclusão:
data: begin of it_zycit006_aux occurs 0,
nrseq like /pws/zycit006-nrseq,
dtlanc like /pws/zycit006-dtlanc,
end of it_zycit006_aux.
data: begin of itab_zycit001 occurs 0.
include structure /pws/zycit001.
data: flag.
data: marc.
data: end of itab_zycit001.
data: begin of it_modo occurs 0.
include structure spopli.
data: end of it_modo.
data: begin of itab_zycit003_aux occurs 0.
include structure /pws/zycit003.
data: end of itab_zycit003_aux.
data: begin of itab_zycit026 occurs 0.
include structure /pws/zycit026.
data: end of itab_zycit026.
data: begin of itab_zycit003_est occurs 0.
include structure /pws/zycie003.
data: end of itab_zycit003_est.
data: begin of itab_return occurs 0,
descr(78) type c,
end of itab_return.
data: begin of itab_zycit003_custo_aux occurs 0.
include structure /pws/zycit003.
data: netprt type /pws/zycil816 .
data: end of itab_zycit003_custo_aux.
data: begin of it_zycit003_cont occurs 0.
include structure /pws/zycit003.
data: end of it_zycit003_cont.
data: begin of itab_zycit029 occurs 0.
include structure /pws/zycit029.
data: end of itab_zycit029.
data: begin of itab_zycit029a occurs 0.
include structure /pws/zycit029.
data: end of itab_zycit029a.
data: begin of itab_zycit030 occurs 0.
include structure /pws/zycit030.
data: end of itab_zycit030.
data: begin of itab_zycit030_aux occurs 0.
include structure /pws/zycit030.
data: valor like ekpo-netpr,
ebeln like /pws/zycie003-ebeln,
ebelp like /pws/zycie003-ebelp.
data: end of itab_zycit030_aux.
data: begin of itab_zycit033 occurs 0.
include structure /pws/zycit033.
data: end of itab_zycit033.
data: begin of itab_zycit031 occurs 0.
include structure /pws/zycit031.
data: end of itab_zycit031.
data: begin of itab_zycit140 occurs 0.
include structure /pws/zycit140.
data: end of itab_zycit140.
data: itab_zycit019 like /pws/zycit019 occurs 0 with header line,
itab_zycit020 like /pws/zycit020 occurs 0 with header line,
itab_zycit039 like /pws/zycit039 occurs 0 with header line.
data: begin of itab_zycit049 occurs 0.
include structure /pws/zycit049.
data: codigo like /pws/zycit019-codigo,
end of itab_zycit049.
data: begin of itab_zycit044 occurs 0.
include structure /pws/zycit044.
data: end of itab_zycit044.
data: begin of itab_itens_nf occurs 0.
include structure /pws/zycit044.
data: end of itab_itens_nf.
data: begin of itab_zycit036 occurs 0.
include structure /pws/zycit036.
data: indice like /pws/zycit029-indice.
data: end of itab_zycit036.
data: begin of itab_zycit036c occurs 0.
include structure /pws/zycit036.
data: indice like /pws/zycit029-indice.
data: end of itab_zycit036c.
data: begin of itab_zycit036_ini occurs 0.
include structure /pws/zycit036.
data: end of itab_zycit036_ini.
data itab_zycit085 like /pws/zycit085 occurs 0 with header line.
data: begin of itab_zycit036a occurs 0.
include structure /pws/zycit036.
data: indice like /pws/zycit029-indice.
data: end of itab_zycit036a.
data: begin of itab_zycit036a_ini occurs 0.
include structure /pws/zycit036.
data: end of itab_zycit036a_ini.
data: begin of itab_condicao occurs 0.
include structure /pws/zycit036.
data: end of itab_condicao.
data: begin of itab_zycit036d occurs 0.
include structure /pws/zycit036.
data: end of itab_zycit036d.
data: begin of itab_zycit201 occurs 0.
include structure /pws/zycit201.
data: end of itab_zycit201.
data: begin of itab_custo_condition occurs 0.
data: kposn like konv-kposn,
kschl like konv-kschl,
kwert like konv-kwert.
data: end of itab_custo_condition.
data: begin of itab_waers occurs 0.
data: opcao,
descricao(65),
inactive.
data: end of itab_waers.
data: begin of itab_waers_aux occurs 0.
data: opcao,
descricao(65),
moeda like /pws/zycie001-waers.
data: end of itab_waers_aux.
data: begin of itab_afvc occurs 0.
include structure afvc .
data: end of itab_afvc .
data: begin of itab_zycit042 occurs 0.
include structure /pws/zycit042.
data: end of itab_zycit042.
data: begin of it_zycit042_cont occurs 0.
include structure /pws/zycit042.
data: end of it_zycit042_cont.
data: begin of itab_material occurs 0.
data: ebeln like ekpo-ebeln,
ebelp like ekpo-ebelp,
matnr like ekpo-matnr,
bwtar like ekpo-bwtar,
knttp like ekpo-knttp,
werks like ekpo-werks.
data: end of itab_material.
data: begin of itab_mbew occurs 0.
data: matnr like mbew-matnr,
bwkey like mbew-bwkey,
vprsv like mbew-vprsv.
data: end of itab_mbew.
data: begin of itab_mara occurs 0.
data: matnr like mara-matnr,
meins like mara-meins.
data: end of itab_mara.
data: begin of itab_zycit036_ori occurs 0.
include structure /pws/zycit036.
data: indice like /pws/zycit029-indice.
data: descricao like dd07t-ddtext.
data: end of itab_zycit036_ori.
data itab_zycit036_ori2 like
itab_zycit036_ori occurs 0 with header line.
data : begin of itab_dd07t occurs 0,
domvalue_l like dd07t-domvalue_l,
ddtext like dd07t-ddtext,
end of itab_dd07t.
data: it_zycit263 like /pws/zycie263 occurs 0 with header line ,
itab_zycit036_conve like itab_zycit036a occurs 0 with header line,
it_zycit006 like /pws/zycie006 occurs 0 with header line.
data: begin of itab_nrseq occurs 1,
sign(1) type c,
option(2) type c,
low like /pws/zycie001-nrseq,
high like /pws/zycie001a-nrseq,
end of itab_nrseq.
data: begin of itab_dtinicio occurs 1,
sign(1) type c,
option(2) type c,
low like /pws/zycie001-dtinicio,
high like /pws/zycie001a-dtinicio,
end of itab_dtinicio.
data: begin of itab_botoes occurs 1,
button_name(20) type c,
end of itab_botoes.
data: begin of itab_ekpo occurs 0 .
data: ebeln like ekpo-ebeln ,
ebelp like ekpo-ebelp ,
matuse like ekpo-j_1bmatuse.
data: end of itab_ekpo .
data: begin of itab_bsis occurs 0,
belnr like bsis-belnr,
hkont like bsis-hkont,
shkzg like bsis-shkzg,
dmbtr like bsis-dmbtr,
bukrs like bsis-bukrs,
gjahr like bsis-gjahr,
buzei like bsis-buzei.
data: evento(30) type c ,
doccont like bsis-belnr.
data: end of itab_bsis .
data: begin of itab_bsis_aux occurs 0,
belnr like bsis-belnr,
hkont like bsis-hkont,
shkzg like bsis-shkzg,
dmbtr like bsis-dmbtr,
bukrs like bsis-bukrs,
gjahr like bsis-gjahr,
buzei like bsis-buzei.
data: evento(30) type c ,
doccont like bsis-belnr.
data: end of itab_bsis_aux .
data: begin of itab_bsis_aux2 occurs 0,
belnr like bsis-belnr,
hkont like bsis-hkont,
shkzg like bsis-shkzg,
dmbtr like bsis-dmbtr,
bukrs like bsis-bukrs,
gjahr like bsis-gjahr,
buzei like bsis-buzei.
data: evento(30) type c ,
doccont like bsis-belnr.
data: end of itab_bsis_aux2 .
data: begin of itab_bsis_aux3 occurs 0,
belnr like bsis-belnr,
hkont like bsis-hkont,
shkzg like bsis-shkzg,
dmbtr like bsis-dmbtr,
bukrs like bsis-bukrs,
gjahr like bsis-gjahr,
buzei like bsis-buzei.
data: evento(30) type c ,
doccont like bsis-belnr .
data: end of itab_bsis_aux3 .
data: begin of itab_zycit060 occurs 0.
include structure /pws/zycit060 .
data: end of itab_zycit060 .
data: begin of itab_zycit061 occurs 1.
include structure /pws/zycit061 .
data: end of itab_zycit061 .
data: begin of itab_matuse_aux1 occurs 0 ,
matuse like ekpo-j_1bmatuse ,
conta_r like /pws/zycit060-conta_razao,
conta_d like /pws/zycit060-cta_debito ,
conta_c like /pws/zycit060-cta_credito,
end of itab_matuse_aux1 .
data: begin of itab_matuse_aux2 occurs 0 ,
conta_r like /pws/zycit060-conta_razao,
conta_d like /pws/zycit060-cta_debito ,
conta_c like /pws/zycit060-cta_credito,
end of itab_matuse_aux2 .
data: begin of itab_docscont occurs 1 ,
evento(30) type c ,
belnr like /pws/zycie001-belnr_f_02,
bldat like sy-datum,
end of itab_docscont .
data: begin of itab_docscont_aux2 occurs 1 ,
conta_r like /pws/zycit060-conta_razao ,
evento(30) type c ,
belnr like /pws/zycie001-belnr_f_02 ,
end of itab_docscont_aux2 .
data: begin of itab_zycit041 occurs 0.
include structure /pws/zycit041 .
data: end of itab_zycit041 .
data: begin of itab_zycit043 occurs 0.
include structure /pws/zycit043 .
data: end of itab_zycit043 .
data: begin of itab_zycit100 occurs 0.
include structure /pws/zycit100 .
data: end of itab_zycit100 .
data: begin of itab_zycit036_auxl occurs 0.
include structure /pws/zycit036 .
data: end of itab_zycit036_auxl .
data: begin of itab_bseg occurs 0,
bukrs like bseg-bukrs,
belnr like bseg-belnr,
gjahr like bseg-gjahr,
buzei like bseg-buzei,
shkzg like bseg-shkzg,
dmbtr like bseg-dmbtr,
end of itab_bseg .
data: begin of it_desp occurs 0,
nrseq like /pws/zycie003-nrseq,
ebeln like /pws/zycie003-ebeln,
ebelp like /pws/zycie003-ebelp,
netpr like /pws/zycie003-netpr,
waers like /pws/zycie003-waers,
menge like /pws/zycie003-menge,
qtd_iten like /pws/zycie003-qtd_iten,
werks like /pws/zycie003-werks,
advalii like /pws/zycie003-advalii,
advalipi like /pws/zycie003-advalipi,
aliqicms like /pws/zycie003-aliqicms,
bukrs like /pws/zycit085-bukrs,
inco1 like /pws/zycit001-inco1,
embarca like /pws/zycit001-embarca,
vlseg like /pws/zycit100-vlseg,
vlfre like /pws/zycit100-vlfre,
vlii like /pws/zycit100-vlii,
vlipi like /pws/zycit100-vlipi,
vlicms like /pws/zycit100-vlicms,
vlpis like /pws/zycit100-vlpis ,
vlcofins like /pws/zycit100-vlcofins,
end of it_desp.
data: begin of itab_zycit331 occurs 0.
include structure /pws/zycit331 .
data: end of itab_zycit331 .
data: begin of it_ckmlct occurs 0.
include structure ckmlct.
data: end of it_ckmlct.
data: begin of itab_marc occurs 0 ,
matnr like marc-matnr,
prctr like marc-prctr,
end of itab_marc.
data: begin of itab_csks occurs 0,
kostl like csks-kostl,
kokrs like csks-kokrs,
prctr like csks-prctr,
end of itab_csks.
data: begin of itab_aufk occurs 0,
aufnr like aufk-aufnr,
prctr like aufk-prctr,
end of itab_aufk.
data: begin of itab_zyglt100 occurs 10.
include structure /pws/zyglt100.
data: end of itab_zyglt100.
data: begin of itab_cta occurs 0.
include structure /pws/zygle316.
data: end of itab_cta.
data: it_bkpf like bkpf occurs 0 with header line,
it_zycit006_aux2 like /pws/zycit006 occurs 0 with header line,
it_bkpf_aux like bkpf occurs 0 with header line.
data: it_fat like /pws/zycit006 occurs 0 with header line,
it_dc like /pws/zycit008 occurs 0 with header line,
it_pc like /pws/zycit026 occurs 0 with header line,
it_nf like /pws/zycit042 occurs 0 with header line.
data:
wa_zycbt007 like /pws/zycbt007,
wa_zycbt011 like /pws/zycbt011,
wa_zycit036 like /pws/zycit036,
wa_tcurx like tcurx.
data:
wa_zycit443 like /pws/zycit443.
* << Fim da exclusão
controls:
tc_itens type tableview using screen '0003',
tc_embarque type tableview using screen '0002',
tc_despesas type tableview using screen '0004',
tc_desp_emb type tableview using screen '0100',
tc_desp_iten type tableview using screen '0200',
tc_res_desp_item type tableview using screen '0300'.
* >> Início da exclusão:
data:
v_index type p,
v_indmod type p,
v_paging_cntr type i value 0,
v_paging_cntr_old type i value 0,
v_totrec like rc29p-entry,
v_index2 like rc29p-entac,
v_total_flag type i value 0,
v_nlinloop type i,
v_campo(35),
v_valor(20),
v_belnr2(10),
v_ano like bkpf-gjahr,
v_lin type i value 0,
v_linha like sy-index,
v_linha_a like sy-index,
v_pos like sy-index,
okcode like sy-ucomm,
v_netpr like ekpo-netpr,
v_meatual like /pws/zycie001-waers,
v_meatual_a like /pws/zycie001-waers,
v_medestino like /pws/zycie001-waers,
v_medestino_a like /pws/zycie001-waers,
v_erro_conv,
v_status_s value 1 ,
wa_cols type cxtab_column,
v_vlreal_emb like /pws/zycit036-vlreal_emb,
v_total type i,
v_codigo like /pws/zycit036-codigo,
i_nrseq like /pws/zycie036-nrseq,
i_embarca like /pws/zycie036-embarca,
i_bukrs like /pws/zycie036-bukrs,
i_werks like /pws/zycie036-werks,
i_ebeln like /pws/zycie036-ebeln,
i_ebelp like /pws/zycie036-ebelp,
v_import like j_1bwfield-cgc_number,
v_cnpj(18) type c value space ,
v_cgc1(18) type c value space ,
v_vlreal like /pws/zycit036-vlreal,
v_subrc,
v_remessa,
v_clnf like /pws/zycit033-clnf,
v_line like sy-tabix,
v_ico_cust1 like icons-text,
v_ico_cust2 like icons-text,
v_ico_cont1 like icons-text,
v_ico_cont2 like icons-text,
v_ico_cont3 like icons-text,
v_ico_cont4 like icons-text,
rimc1 like indx-srtfd value 'DOCSCONT' ,
rimc2 like indx-srtfd value 'MATUSEAUX',
rimc3 like indx-srtfd value 'BSIS' ,
rimc4 like indx-srtfd value '/PWS/ZYCIE001' ,
rimc5 like indx-srtfd value 'UCOMM' ,
v_ucomm like sy-ucomm value space ,
v_sdo_tmp type p decimals 2 value 0 ,
v_belnr like /pws/zycie001-belnr_f51_mt0 ,
v_ano_bsis like bkpf-gjahr ,
v_ano_bsis1 like bkpf-gjahr ,
v_ano_bsis2 like bkpf-gjahr ,
v_flag,
v_index3 like sy-tabix,
v_ebelp like /pws/zycit036-ebelp,
v_nrseq like /pws/zycit001-nrseq,
v_nrseqda like /pws/zycit003-nrseqda,
v_itemcongela,
v_real_brl like /pws/zycit036-vlreal,
v_taxa like /pws/zycie085-ukursfob,
s_msg1,
v_vlbrl like /pws/zycit036-vlreal,
v_vlbrl_a like /pws/zycit036-vlreal,
v_nrseqenc like /pws/zycit201-nrseqenc,
v_conta,
v_resp,
v_livre,
v_dpnf,
v_nota,
v_netprt type /pws/zycil816 ,
v_vlreal_tl like /pws/zycie003-vlreal ,
v_vlmov_tl like /pws/zycie003-vlmov ,
v_vldif_tl like /pws/zycie003-vldif ,
v_qtd_moeda(2) type c,
v_tot_ntgew like /pws/zycit003-ntgew,
v_tot_vlreal like /pws/zycit003-netpr,
v_tot_vlplan like /pws/zycit003-netpr,
v_line1 like sy-index,
v_tplan like /pws/zycit036-netpr,
v_trea like /pws/zycit036-vlreal,
v_tmov like /pws/zycit036-vlmov,
v_sdif like /pws/zycit036-vldif,
v_tdif(17) type c,
v_smov(17) type c,
v_srea(17) type c,
v_spla(17) type c,
v_vldifp like itab_zycit036_aux-vldif value '0.01',
v_vldifn like itab_zycit036_aux-vldif value '-0.01',
v_land1 like t001-land1,
v_matuse like /pws/zycbe035-matuse,
v_alt_moeda ,
v_tela_help LIKE sy-dynnr value '0072'.
data: v_item like /pws/zycit036-ebelp,
v_ebeln like /pws/zycit036-ebeln,
v_soma like /pws/zycit036-vlreal,
v_treal like /pws/zycit036-vlreal,
v_tabix like sy-tabix.
* << Fim da exclusão
* >> Início da inclusão:
data
wa_cols type cxtab_column.
* << Fim da inclusão
* >> Início da exclusão:
data: v_tplan_conv like /pws/zycit085-vlfob,
v_treal_conv(16) type p decimals 2,
v_tmov_conv like /pws/zycit085-vlfob,
v_tdif_conv like /pws/zycit085-vlfob,
v_tplan_aux like /pws/zycit036-netpr,
v_treal_aux like /pws/zycit036-netpr,
v_tmov_aux like /pws/zycit036-netpr,
v_tdif_aux like /pws/zycit036-vldif.
DATA: v_vlreal_t LIKE itab_zycit036a-vlreal,
v_dtreal LIKE sy-datum.
* << Fim da exclusão
selection-screen begin of screen 0006.
selection-screen begin of block b1 with frame title text-076.
select-options : s_emb for /pws/zycit001-nrseq.
selection-screen end of block b1.
selection-screen begin of block b2 with frame title text-077.
parameters: p_desp radiobutton group p,
p_item radiobutton group p.
selection-screen end of block b2.
selection-screen end of screen 0006.
at selection-screen output.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI010X01
...
DATA: END OF itab_zycit036_aux2.
DATA: BEGIN OF itab_zycit036_per OCCURS 0.
INCLUDE STRUCTURE /pws/zycit036.
DATA: END OF itab_zycit036_per.
DATA: itab_zycit263t LIKE /pws/zycit263 OCCURS 0 WITH HEADER LINE.
DATA itab_zycit036_rub LIKE /pws/zycit036 OCCURS 0 WITH HEADER LINE.
DATA: BEGIN OF itab_zycit036_plan OCCURS 0.
INCLUDE STRUCTURE /pws/zycit036.
DATA: END OF itab_zycit036_plan.
DATA v_rub.
* >> Início da inclusão:
data: begin of it_zycit006_aux occurs 0,
nrseq like /pws/zycit006-nrseq,
dtlanc like /pws/zycit006-dtlanc,
end of it_zycit006_aux.
data: begin of itab_zycit001 occurs 0.
include structure /pws/zycit001.
data: flag.
data: marc.
data: end of itab_zycit001.
data: begin of it_modo occurs 0.
include structure spopli.
data: end of it_modo.
data: begin of itab_zycit003_aux occurs 0.
include structure /pws/zycit003.
data: end of itab_zycit003_aux.
data: begin of itab_zycit026 occurs 0.
include structure /pws/zycit026.
data: end of itab_zycit026.
data: begin of itab_zycit003_est occurs 0.
include structure /pws/zycie003.
data: end of itab_zycit003_est.
data: begin of itab_return occurs 0,
descr(78) type c,
end of itab_return.
data: begin of itab_zycit003_custo_aux occurs 0.
include structure /pws/zycit003.
data: netprt type /pws/zycil816 .
data: end of itab_zycit003_custo_aux.
data: begin of it_zycit003_cont occurs 0.
include structure /pws/zycit003.
data: end of it_zycit003_cont.
data: begin of itab_zycit029 occurs 0.
include structure /pws/zycit029.
data: end of itab_zycit029.
data: begin of itab_zycit029a occurs 0.
include structure /pws/zycit029.
data: end of itab_zycit029a.
data: begin of itab_zycit030 occurs 0.
include structure /pws/zycit030.
data: end of itab_zycit030.
data: begin of itab_zycit030_aux occurs 0.
include structure /pws/zycit030.
data: valor like ekpo-netpr,
ebeln like /pws/zycie003-ebeln,
ebelp like /pws/zycie003-ebelp.
data: end of itab_zycit030_aux.
data: begin of itab_zycit033 occurs 0.
include structure /pws/zycit033.
data: end of itab_zycit033.
data: begin of itab_zycit031 occurs 0.
include structure /pws/zycit031.
data: end of itab_zycit031.
data: begin of itab_zycit140 occurs 0.
include structure /pws/zycit140.
data: end of itab_zycit140.
data: itab_zycit019 like /pws/zycit019 occurs 0 with header line,
itab_zycit020 like /pws/zycit020 occurs 0 with header line,
itab_zycit039 like /pws/zycit039 occurs 0 with header line.
data: begin of itab_zycit049 occurs 0.
include structure /pws/zycit049.
data: codigo like /pws/zycit019-codigo,
end of itab_zycit049.
data: begin of itab_zycit044 occurs 0.
include structure /pws/zycit044.
data: end of itab_zycit044.
data: begin of itab_itens_nf occurs 0.
include structure /pws/zycit044.
data: end of itab_itens_nf.
data: begin of itab_zycit036 occurs 0.
include structure /pws/zycit036.
data: indice like /pws/zycit029-indice.
data: end of itab_zycit036.
data: begin of itab_zycit036c occurs 0.
include structure /pws/zycit036.
data: indice like /pws/zycit029-indice.
data: end of itab_zycit036c.
data: begin of itab_zycit036_ini occurs 0.
include structure /pws/zycit036.
data: end of itab_zycit036_ini.
data itab_zycit085 like /pws/zycit085 occurs 0 with header line.
data: begin of itab_zycit036a occurs 0.
include structure /pws/zycit036.
data: indice like /pws/zycit029-indice.
data: end of itab_zycit036a.
data: begin of itab_zycit036a_ini occurs 0.
include structure /pws/zycit036.
data: end of itab_zycit036a_ini.
data: begin of itab_condicao occurs 0.
include structure /pws/zycit036.
data: end of itab_condicao.
data: begin of itab_zycit036d occurs 0.
include structure /pws/zycit036.
data: end of itab_zycit036d.
data: begin of itab_zycit201 occurs 0.
include structure /pws/zycit201.
data: end of itab_zycit201.
data: begin of itab_custo_condition occurs 0.
data: kposn like konv-kposn,
kschl like konv-kschl,
kwert like konv-kwert.
data: end of itab_custo_condition.
data: begin of itab_waers occurs 0.
data: opcao,
descricao(65),
inactive.
data: end of itab_waers.
data: begin of itab_waers_aux occurs 0.
data: opcao,
descricao(65),
moeda like /pws/zycie001-waers.
data: end of itab_waers_aux.
data: begin of itab_afvc occurs 0.
include structure afvc .
data: end of itab_afvc .
data: begin of itab_zycit042 occurs 0.
include structure /pws/zycit042.
data: end of itab_zycit042.
data: begin of it_zycit042_cont occurs 0.
include structure /pws/zycit042.
data: end of it_zycit042_cont.
data: begin of itab_material occurs 0.
data: ebeln like ekpo-ebeln,
ebelp like ekpo-ebelp,
matnr like ekpo-matnr,
bwtar like ekpo-bwtar,
knttp like ekpo-knttp,
werks like ekpo-werks.
data: end of itab_material.
data: begin of itab_mbew occurs 0.
data: matnr like mbew-matnr,
bwkey like mbew-bwkey,
vprsv like mbew-vprsv.
data: end of itab_mbew.
data: begin of itab_mara occurs 0.
data: matnr like mara-matnr,
meins like mara-meins.
data: end of itab_mara.
data: begin of itab_zycit036_ori occurs 0.
include structure /pws/zycit036.
data: indice like /pws/zycit029-indice.
data: descricao like dd07t-ddtext.
data: end of itab_zycit036_ori.
data itab_zycit036_ori2 like
itab_zycit036_ori occurs 0 with header line.
data : begin of itab_dd07t occurs 0,
domvalue_l like dd07t-domvalue_l,
ddtext like dd07t-ddtext,
end of itab_dd07t.
data: it_zycit263 like /pws/zycie263 occurs 0 with header line ,
itab_zycit036_conve like itab_zycit036a occurs 0 with header line,
it_zycit006 like /pws/zycie006 occurs 0 with header line.
data: begin of itab_nrseq occurs 1,
sign(1) type c,
option(2) type c,
low like /pws/zycie001-nrseq,
high like /pws/zycie001a-nrseq,
end of itab_nrseq.
data: begin of itab_dtinicio occurs 1,
sign(1) type c,
option(2) type c,
low like /pws/zycie001-dtinicio,
high like /pws/zycie001a-dtinicio,
end of itab_dtinicio.
data: begin of itab_botoes occurs 1,
button_name(20) type c,
end of itab_botoes.
data: begin of itab_ekpo occurs 0 .
data: ebeln like ekpo-ebeln ,
ebelp like ekpo-ebelp ,
matuse like ekpo-j_1bmatuse.
data: end of itab_ekpo .
data: begin of itab_bsis occurs 0,
belnr like bsis-belnr,
hkont like bsis-hkont,
shkzg like bsis-shkzg,
dmbtr like bsis-dmbtr,
bukrs like bsis-bukrs,
gjahr like bsis-gjahr,
buzei like bsis-buzei.
data: evento(30) type c ,
doccont like bsis-belnr.
data: end of itab_bsis .
data: begin of itab_bsis_aux occurs 0,
belnr like bsis-belnr,
hkont like bsis-hkont,
shkzg like bsis-shkzg,
dmbtr like bsis-dmbtr,
bukrs like bsis-bukrs,
gjahr like bsis-gjahr,
buzei like bsis-buzei.
data: evento(30) type c ,
doccont like bsis-belnr.
data: end of itab_bsis_aux .
data: begin of itab_bsis_aux2 occurs 0,
belnr like bsis-belnr,
hkont like bsis-hkont,
shkzg like bsis-shkzg,
dmbtr like bsis-dmbtr,
bukrs like bsis-bukrs,
gjahr like bsis-gjahr,
buzei like bsis-buzei.
data: evento(30) type c ,
doccont like bsis-belnr.
data: end of itab_bsis_aux2 .
data: begin of itab_bsis_aux3 occurs 0,
belnr like bsis-belnr,
hkont like bsis-hkont,
shkzg like bsis-shkzg,
dmbtr like bsis-dmbtr,
bukrs like bsis-bukrs,
gjahr like bsis-gjahr,
buzei like bsis-buzei.
data: evento(30) type c ,
doccont like bsis-belnr .
data: end of itab_bsis_aux3 .
data: begin of itab_zycit060 occurs 0.
include structure /pws/zycit060 .
data: end of itab_zycit060 .
data: begin of itab_zycit061 occurs 1.
include structure /pws/zycit061 .
data: end of itab_zycit061 .
data: begin of itab_matuse_aux1 occurs 0 ,
matuse like ekpo-j_1bmatuse ,
conta_r like /pws/zycit060-conta_razao,
conta_d like /pws/zycit060-cta_debito ,
conta_c like /pws/zycit060-cta_credito,
end of itab_matuse_aux1 .
data: begin of itab_matuse_aux2 occurs 0 ,
conta_r like /pws/zycit060-conta_razao,
conta_d like /pws/zycit060-cta_debito ,
conta_c like /pws/zycit060-cta_credito,
end of itab_matuse_aux2 .
data: begin of itab_docscont occurs 1 ,
evento(30) type c ,
belnr like /pws/zycie001-belnr_f_02,
bldat like sy-datum,
end of itab_docscont .
data: begin of itab_docscont_aux2 occurs 1 ,
conta_r like /pws/zycit060-conta_razao ,
evento(30) type c ,
belnr like /pws/zycie001-belnr_f_02 ,
end of itab_docscont_aux2 .
data: begin of itab_zycit041 occurs 0.
include structure /pws/zycit041 .
data: end of itab_zycit041 .
data: begin of itab_zycit043 occurs 0.
include structure /pws/zycit043 .
data: end of itab_zycit043 .
data: begin of itab_zycit100 occurs 0.
include structure /pws/zycit100 .
data: end of itab_zycit100 .
data: begin of itab_zycit036_auxl occurs 0.
include structure /pws/zycit036 .
data: end of itab_zycit036_auxl .
data: begin of itab_bseg occurs 0,
bukrs like bseg-bukrs,
belnr like bseg-belnr,
gjahr like bseg-gjahr,
buzei like bseg-buzei,
shkzg like bseg-shkzg,
dmbtr like bseg-dmbtr,
end of itab_bseg .
data: begin of it_desp occurs 0,
nrseq like /pws/zycie003-nrseq,
ebeln like /pws/zycie003-ebeln,
ebelp like /pws/zycie003-ebelp,
netpr like /pws/zycie003-netpr,
waers like /pws/zycie003-waers,
menge like /pws/zycie003-menge,
qtd_iten like /pws/zycie003-qtd_iten,
werks like /pws/zycie003-werks,
advalii like /pws/zycie003-advalii,
advalipi like /pws/zycie003-advalipi,
aliqicms like /pws/zycie003-aliqicms,
bukrs like /pws/zycit085-bukrs,
inco1 like /pws/zycit001-inco1,
embarca like /pws/zycit001-embarca,
vlseg like /pws/zycit100-vlseg,
vlfre like /pws/zycit100-vlfre,
vlii like /pws/zycit100-vlii,
vlipi like /pws/zycit100-vlipi,
vlicms like /pws/zycit100-vlicms,
vlpis like /pws/zycit100-vlpis ,
vlcofins like /pws/zycit100-vlcofins,
end of it_desp.
data: begin of itab_zycit331 occurs 0.
include structure /pws/zycit331 .
data: end of itab_zycit331 .
data: begin of it_ckmlct occurs 0.
include structure ckmlct.
data: end of it_ckmlct.
data: begin of itab_marc occurs 0 ,
matnr like marc-matnr,
prctr like marc-prctr,
end of itab_marc.
data: begin of itab_csks occurs 0,
kostl like csks-kostl,
kokrs like csks-kokrs,
prctr like csks-prctr,
end of itab_csks.
data: begin of itab_aufk occurs 0,
aufnr like aufk-aufnr,
prctr like aufk-prctr,
end of itab_aufk.
data: begin of itab_zyglt100 occurs 10.
include structure /pws/zyglt100.
data: end of itab_zyglt100.
data: begin of itab_cta occurs 0.
include structure /pws/zygle316.
data: end of itab_cta.
data: it_bkpf like bkpf occurs 0 with header line,
it_zycit006_aux2 like /pws/zycit006 occurs 0 with header line,
it_bkpf_aux like bkpf occurs 0 with header line.
data: it_fat like /pws/zycit006 occurs 0 with header line,
it_dc like /pws/zycit008 occurs 0 with header line,
it_pc like /pws/zycit026 occurs 0 with header line,
it_nf like /pws/zycit042 occurs 0 with header line.
data:
wa_zycbt007 like /pws/zycbt007,
wa_zycbt011 like /pws/zycbt011,
wa_zycit036 like /pws/zycit036,
wa_tcurx like tcurx.
data:
wa_zycit443 like /pws/zycit443.
data:
v_index type p,
v_indmod type p,
v_paging_cntr type i value 0,
v_paging_cntr_old type i value 0,
v_totrec like rc29p-entry,
v_index2 like rc29p-entac,
v_total_flag type i value 0,
v_nlinloop type i,
v_campo(35),
v_valor(20),
v_belnr2(10),
v_ano like bkpf-gjahr,
v_lin type i value 0,
v_linha like sy-index,
v_linha_a like sy-index,
v_pos like sy-index,
okcode like sy-ucomm,
v_netpr like ekpo-netpr,
v_meatual like /pws/zycie001-waers,
v_meatual_a like /pws/zycie001-waers,
v_medestino like /pws/zycie001-waers,
v_medestino_a like /pws/zycie001-waers,
v_erro_conv,
v_status_s value 1 ,
v_vlreal_emb like /pws/zycit036-vlreal_emb,
v_total type i,
v_codigo like /pws/zycit036-codigo,
i_nrseq like /pws/zycie036-nrseq,
i_embarca like /pws/zycie036-embarca,
i_bukrs like /pws/zycie036-bukrs,
i_werks like /pws/zycie036-werks,
i_ebeln like /pws/zycie036-ebeln,
i_ebelp like /pws/zycie036-ebelp,
v_import like j_1bwfield-cgc_number,
v_cnpj(18) type c value space ,
v_cgc1(18) type c value space ,
v_vlreal like /pws/zycit036-vlreal,
v_subrc,
v_remessa,
v_clnf like /pws/zycit033-clnf,
v_line like sy-tabix,
v_ico_cust1 like icons-text,
v_ico_cust2 like icons-text,
v_ico_cont1 like icons-text,
v_ico_cont2 like icons-text,
v_ico_cont3 like icons-text,
v_ico_cont4 like icons-text,
rimc1 like indx-srtfd value 'DOCSCONT' ,
rimc2 like indx-srtfd value 'MATUSEAUX',
rimc3 like indx-srtfd value 'BSIS' ,
rimc4 like indx-srtfd value '/PWS/ZYCIE001' ,
rimc5 like indx-srtfd value 'UCOMM' ,
v_ucomm like sy-ucomm value space ,
v_sdo_tmp type p decimals 2 value 0 ,
v_belnr like /pws/zycie001-belnr_f51_mt0 ,
v_ano_bsis like bkpf-gjahr ,
v_ano_bsis1 like bkpf-gjahr ,
v_ano_bsis2 like bkpf-gjahr ,
v_flag,
v_index3 like sy-tabix,
v_ebelp like /pws/zycit036-ebelp,
v_nrseq like /pws/zycit001-nrseq,
v_nrseqda like /pws/zycit003-nrseqda,
v_itemcongela,
v_real_brl like /pws/zycit036-vlreal,
v_taxa like /pws/zycie085-ukursfob,
s_msg1,
v_vlbrl like /pws/zycit036-vlreal,
v_vlbrl_a like /pws/zycit036-vlreal,
v_nrseqenc like /pws/zycit201-nrseqenc,
v_conta,
v_resp,
v_livre,
v_dpnf,
v_nota,
v_netprt type /pws/zycil816 ,
v_vlreal_tl like /pws/zycie003-vlreal ,
v_vlmov_tl like /pws/zycie003-vlmov ,
v_vldif_tl like /pws/zycie003-vldif ,
v_qtd_moeda(2) type c,
v_tot_ntgew like /pws/zycit003-ntgew,
v_tot_vlreal like /pws/zycit003-netpr,
v_tot_vlplan like /pws/zycit003-netpr,
v_line1 like sy-index,
v_tplan like /pws/zycit036-netpr,
v_trea like /pws/zycit036-vlreal,
v_tmov like /pws/zycit036-vlmov,
v_sdif like /pws/zycit036-vldif,
v_tdif(17) type c,
v_smov(17) type c,
v_srea(17) type c,
v_spla(17) type c,
v_vldifp like itab_zycit036_aux-vldif value '0.01',
v_vldifn like itab_zycit036_aux-vldif value '-0.01',
v_land1 like t001-land1,
v_matuse like /pws/zycbe035-matuse,
v_alt_moeda ,
v_tela_help LIKE sy-dynnr value '0072'.
data: v_item like /pws/zycit036-ebelp,
v_ebeln like /pws/zycit036-ebeln,
v_soma like /pws/zycit036-vlreal,
v_treal like /pws/zycit036-vlreal,
v_tabix like sy-tabix.
data: v_tplan_conv like /pws/zycit085-vlfob,
v_treal_conv(16) type p decimals 2,
v_tmov_conv like /pws/zycit085-vlfob,
v_tdif_conv like /pws/zycit085-vlfob,
v_tplan_aux like /pws/zycit036-netpr,
v_treal_aux like /pws/zycit036-netpr,
v_tmov_aux like /pws/zycit036-netpr,
v_tdif_aux like /pws/zycit036-vldif.
DATA: v_vlreal_t LIKE itab_zycit036a-vlreal,
v_dtreal LIKE sy-datum.
* << Fim da inclusão
DATA: END OF COMMON PART b.