CE PLUS - Nota 001250
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Prestação de Contas
Data/Hora da Publicação: 25/04/2006 00:00:00
Data/Hora Última Alteração: 20/06/2011 12:24:44
Descrição da Nota: NA PRESTAÇÃO DE CONTAS A CONTABILIZAÇÃO ESTA DANDO ERRO
Sintoma
Abertura de exit na prestação de contas, no debito em conta e no adiantamento para Estratégia de
Liberação.
Solução
Criação de pontos de Exits nos programas prestação de Contas, Débito em Conta e Adiantamento.
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 01250 Data: 25/04/2006 Hora: 16:38:26
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 01250
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00023
Agrupamento : 00111
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
NA PRESTAÇÃO DE CONTAS A CONTABILIZAÇÃO ESTA DANDO ERRO
----------------------------------------------------------------------------------------------------
Palavras Chave:
PRETAÇÃO DE CONTAS, DÉBITO EM CONTA E ADIANTAMENTO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI005F01
REPS /PWS/MZYCI005TOP
REPS /PWS/MZYCI005X01
REPS /PWS/MZYCI007F01
REPS /PWS/MZYCI007TOP
REPS /PWS/MZYCI007X01
REPS /PWS/MZYCI012F01
REPS /PWS/MZYCI012X01
REPS /PWS/MZYCI013F01
REPS /PWS/MZYCI013TOP
REPS /PWS/MZYCI013X01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI005F01
...
ENDFORM.
FORM atualiza_dados.
PERFORM select_despachante.
ENDFORM.
FORM atualiza_tela.
* >> Início da exclusão: FORM ATUALIZA_TELA
DATA:
v_frgzu LIKE /pws/zycit008-frgzu.
* << Fim da exclusão
CLEAR v_vldp.
DATA: v_ctmoeda LIKE tcurr-kurst VALUE 'M',
v_tax LIKE tcurr-ukurs.
DATA v_montante LIKE bsak-wrbtr.
LOOP AT it_zycit016_aux.
...
...
SELECT SINGLE * FROM /pws/zyglt340 WHERE codmod = 'D'
AND func = 'A'
AND estrat = 'X'.
IF sy-subrc EQ 0.
IF /pws/zyglt340-montante < v_vldp.
* >> Início da inclusão: FORM ATUALIZA_TELA
e_subrc = 0 .
perform verifica_exit using 'D'
'/PWS/SAPMZYCI005'
'SAD004'.
clear itab_zyglt100 .
read table itab_zyglt100 with key zexit = 'SAD004'.
if not itab_zyglt100-zexit_ativa is initial.
perform (itab_zyglt100-formulario) in program
(itab_zyglt100-programa) if found.
else.
* << Fim da inclusão
CALL FUNCTION '/PWS/ZYGL_DETERMINA_ESTR'
EXPORTING
v_totdep = v_vldp
funcionalidade = 'A'
bukrs = /pws/zycie008-bukrs
...
...
t_contas = t_contas
EXCEPTIONS
estrategia_invalida = 1
parametros_invalidos = 2
OTHERS = 3.
* >> Início da exclusão: FORM ATUALIZA_TELA
IF sy-subrc NE 0.
IF sy-subrc EQ 1.
* << Fim da exclusão
* >> Início da inclusão: FORM ATUALIZA_TELA
endif.
if e_subrc ne 0.
if e_subrc eq 1.
* << Fim da inclusão
IF sy-binpt IS INITIAL.
MESSAGE i110.
ELSE.
MESSAGE e110.
ENDIF.
* >> Início da exclusão: FORM ATUALIZA_TELA
ELSEIF sy-subrc EQ 2.
* << Fim da exclusão
* >> Início da inclusão: FORM ATUALIZA_TELA
message i110.
elseif e_subrc eq 2.
message i015 with text-034.
* << Fim da inclusão
IF sy-binpt IS INITIAL.
MESSAGE i126.
ELSE.
MESSAGE e126.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI005TOP
program /pws/sapmzyci005 message-id /pws/zycim.
include:
/PWS/MZYCI005OO,
/PWS/MZYCI005x01.
* >> Início da exclusão:
tables:
lfa1,
indx,
t001w,
/pws/zycit125,
/pws/zycit224,
t035,
lfb1,
/pws/zyglt340,
/pws/zyglt343,
j_1bbranch,
adrc,
/pws/zycit363,
t001,
/pws/zycit417.
* << Fim da exclusão
DATA: GV_SUBSCREEN_0050 TYPE SY-DYNNR VALUE '0051',
GV_SUBSCREEN_0100_1 TYPE SY-DYNNR,
GV_SUBSCREEN_0300_2 TYPE SY-DYNNR.
CONSTANTS: BEGIN OF GC_SUBSCREEN,
PROG TYPE SY-DYNNR VALUE '0300',
...
...
END OF GC_SUBSCREEN.
DATA: GV_HTML_HELP TYPE REF TO CL_GUI_HTML_VIEWER.
DATA: GV_HELP_SHOW TYPE BOOLEAN VALUE ' '.
controls: tc1 type tableview using screen 0200,
tc2 type tableview using screen 0300.
* >> Início da exclusão:
data:
itab_zycit046 like /pws/zycit046 occurs 0 with header line,
wa_zycbt007 like /pws/zycbt007 .
data: begin of t_desp occurs 0,
uname like /pws/zycit417-uname,
lifnr like /pws/zycit417-lifnr,
end of t_desp.
* << Fim da exclusão
.
data: begin of it_zycit001 occurs 0,
nrseq like /pws/zycit001-nrseq,
embarca like /pws/zycit001-embarca,
bukrs like /pws/zycit001-bukrs,
werks like /pws/zycit001-werks,
j_1bbranch like /pws/zycit001-j_1bbranch,
end of it_zycit001.
* >> Início da exclusão:
data: begin of it_despesa occurs 0.
include structure /pws/zycit019.
data: end of it_despesa.
data: begin of itab_cta occurs 0.
include structure /pws/zygle316.
data: end of itab_cta.
data: itab_zycit019 like /pws/zycit019 occurs 0 with header line,
itab_zycit039 like /pws/zycit039 occurs 0 with header line.
* << Fim da exclusão
data: begin of it_zycit003 occurs 0.
include structure /pws/zycit003.
data: matuse like ekpo-j_1bmatuse.
data: end of it_zycit003.
DATA: BEGIN OF itab_ekkn OCCURS 0.
...
...
v_modo,
v_nivel_tsr_desc like t036t-ktext,
v_flag_modo,
v_neg(1),
v_sort(30),
* >> Início da exclusão:
v_sort2(30),
v_estrat,
v_lib.
* << Fim da exclusão
* >> Início da inclusão:
v_sort2(30).
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI005X01
...
/pws/zycie001,
/pws/zycit008,
/pws/zycie008, /pws/zycie008a,
/pws/zycit016,
/pws/zycie016,
* >> Início da exclusão:
/pws/zycit019.
* << Fim da exclusão
* >> Início da inclusão:
/pws/zycit019,
lfa1,
indx,
t001w,
/pws/zycit125,
/pws/zycit224,
t035,
lfb1,
/pws/zyglt340,
/pws/zyglt343,
j_1bbranch,
adrc,
/pws/zycit363,
t001,
/pws/zycit417.
* << Fim da inclusão
DATA: BEGIN OF COMMON PART a.
* >> Início da inclusão:
data: it_zycit016 like /pws/zycit016 occurs 0 with header line,
itab_zycit046 like /pws/zycit046 occurs 0 with header line,
wa_zycbt007 like /pws/zycbt007 .
data: begin of t_desp occurs 0,
uname like /pws/zycit417-uname,
lifnr like /pws/zycit417-lifnr,
end of t_desp.
data: begin of it_despesa occurs 0.
include structure /pws/zycit019.
data: end of it_despesa.
data: begin of itab_cta occurs 0.
include structure /pws/zygle316.
data: end of itab_cta.
* << Fim da inclusão
* >> Início da exclusão:
DATA: it_zycit016 LIKE /pws/zycit016 OCCURS 0 WITH HEADER LINE.
* << Fim da exclusão
* >> Início da inclusão:
data: itab_zycit019 like /pws/zycit019 occurs 0 with header line,
itab_zycit039 like /pws/zycit039 occurs 0 with header line.
* << Fim da inclusão
DATA: BEGIN OF it_zycit016_aux OCCURS 0.
INCLUDE STRUCTURE it_zycit016.
DATA: mark.
DATA: END OF it_zycit016_aux.
DATA: BEGIN OF it_tab OCCURS 0,
...
...
DATA: BEGIN OF t_contas OCCURS 0.
INCLUDE STRUCTURE /pws/zyglt350.
DATA: END OF t_contas.
DATA: e_subrc VALUE '0',
v_vldp LIKE /pws/zyglt342-valorinc,
* >> Início da inclusão:
ok_code like sy-ucomm,
v_estrat,
v_lib,
v_frgzu like /pws/zycit008-frgzu,
* << Fim da inclusão
* >> Início da exclusão:
ok_code LIKE sy-ucomm,
* << Fim da exclusão
v_tcode LIKE sy-tcode,
v_status(1),
v_codmod(1),
v_salvo(1),
e_exec_okcode.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI007F01
...
ENDLOOP.
SORT itab_zycit026 BY nrseq nrpres nradto dtincl.
ENDFORM.
FORM atualiza_tela.
DATA:
* >> Início da exclusão: FORM ATUALIZA_TELA
v_frgzu LIKE /pws/zycit026-frgzu ,
* << Fim da exclusão
v_ctmoeda LIKE tcurr-kurst VALUE 'M',
v_tax LIKE tcurr-ukurs ,
v_montante LIKE bsak-wrbtr .
clear : v_vldp, v_total_dep .
SELECT SINGLE * FROM /pws/zycbt007 WHERE bukrs = /pws/zycie026-bukrs.
...
...
v_totdep = v_totdep * -1.
ENDIF.
ENDIF.
CLEAR v_exit.
IF /pws/zyglt340-montante < v_totdep.
* >> Início da inclusão: FORM ATUALIZA_TELA
e_subrc = 0 .
perform verifica_exit using 'D'
'/PWS/SAPMZYCI007'
'PRT009'.
clear itab_zyglt100 .
read table itab_zyglt100 with key zexit = 'PRT009'.
if not itab_zyglt100-zexit_ativa is initial.
perform (itab_zyglt100-formulario) in program
(itab_zyglt100-programa) if found.
else.
* << Fim da inclusão
CALL FUNCTION '/PWS/ZYGL_DETERMINA_ESTR'
EXPORTING
v_totdep = v_totdep
funcionalidade = 'PC'
bukrs = /pws/zycie026-bukrs
...
...
t_contas = t_contas
EXCEPTIONS
estrategia_invalida = 1
parametros_invalidos = 2
OTHERS = 3.
* >> Início da inclusão: FORM ATUALIZA_TELA
endif.
* << Fim da inclusão
* >> Início da exclusão: FORM ATUALIZA_TELA
IF sy-subrc NE 0.
IF sy-subrc EQ 1.
* << Fim da exclusão
* >> Início da inclusão: FORM ATUALIZA_TELA
if e_subrc ne 0.
if e_subrc eq 1.
* << Fim da inclusão
MESSAGE i110.
v_exit = 'X'.
* >> Início da exclusão: FORM ATUALIZA_TELA
ELSEIF sy-subrc EQ 2.
* << Fim da exclusão
* >> Início da inclusão: FORM ATUALIZA_TELA
elseif e_subrc eq 2.
* << Fim da inclusão
MESSAGE i015 WITH text-094.
v_exit = 'X'.
ENDIF.
EXIT.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI007TOP
...
/pws/zycit100,
/pws/zycit363,
rm06b,
t16fe,
/pws/zyglt340,
* >> Início da exclusão:
/pws/zyglt343,
/pws/zyglt334,
* << Fim da exclusão
/pws/zycbt011.
DATA: gv_subscreen_0050 TYPE sy-dynnr VALUE '0051',
gv_subscreen_0100_1 TYPE sy-dynnr,
gv_subscreen_0300_2 TYPE sy-dynnr.
CONSTANTS: BEGIN OF gc_subscreen,
...
...
v_fbv0_a,
v_f51,
v_answer,
v_confirma_tran,
v_irrf,
* >> Início da exclusão:
v_totdep LIKE /pws/zyglt342-valorinc,
* << Fim da exclusão
v_vlmi LIKE /pws/zycit026-vlmi,
v_vldf LIKE /pws/zycit026-vldf,
v_dtincl LIKE /pws/zycit026-dtincl,
v_vlmi_tot LIKE /pws/zycit026-vlmi,
v_totdep_tot LIKE /pws/zycit026-totdep,
v_docpag,
* >> Início da exclusão:
v_nradto1 LIKE bseg-sgtxt
,
* << Fim da exclusão
* >> Início da inclusão:
v_nradto1 LIKE bseg-sgtxt,
* << Fim da inclusão
v_line LIKE sy-tabix,
v_okcode_aux LIKE ok_code,
v_embarque_sem_adto,
v_calcula_correto,
vresult LIKE bsik-wrbtr,
...
...
v_tot_ipi LIKE /pws/zycit100-vlipi,
v_tot_icms LIKE /pws/zycit100-vlicms,
v_resposta,
v_erro,
v_visualiza,
* >> Início da exclusão:
v_estrat,
v_lib,
* << Fim da exclusão
v_ps,
v_cf,
v_cs,
v_lancto_desp,
v_param_rateio,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI007X01
...
/pws/zycie036,
/pws/zycit026,
/pws/zycie026,
/pws/zycie026a,
/pws/zycit027,
* >> Início da exclusão:
/pws/zycie027.
* << Fim da exclusão
* >> Início da inclusão:
/pws/zycie027,
/pws/zyglt343,
/pws/zyglt334.
* << Fim da inclusão
data: begin of common part a.
DATA: BEGIN OF it_zycbe035 OCCURS 0.
INCLUDE STRUCTURE /pws/zycbe035.
DATA: END OF it_zycbe035.
data: it_zycbe033 LIKE /pws/zycbe033 OCCURS 0 WITH HEADER LINE ,
...
...
v_impostos ,
v_ctarazao,
v_modo_bi VALUE 'N',
e_subrc value '0',
v_prt(4) ,
* >> Início da inclusão:
v_estrat,
v_totdep like /pws/zyglt342-valorinc,
v_lib,
v_frgzu like /pws/zycit026-frgzu,
* << Fim da inclusão
v_select(5),
v_tcode like sy-tcode.
data: begin of it_code occurs 10,
fcode like rsmpe-func,
end of it_code.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI012F01
...
LOOP AT it_zycit270.
INSERT INTO /pws/zycit270 VALUES it_zycit270.
ENDLOOP.
ENDFORM.
FORM determina_estrategia.
* >> Início da exclusão: FORM DETERMINA_ESTRATEGIA
DATA: v_lib TYPE c,
v_totdep LIKE /pws/zyglt342-valorinc,
v_frgzu LIKE /pws/zycie008-frgzu.
* << Fim da exclusão
CLEAR /pws/zycie008-vlmi.
LOOP AT it_zycit016.
IF NOT it_zycit016-vldp IS INITIAL.
/pws/zycie008-vlmi = /pws/zycie008-vlmi + it_zycit016-vldp.
ENDIF.
...
...
SELECT SINGLE * FROM /pws/zyglt340 WHERE codmod = 'D'
AND func = 'A'
AND estrat = 'X'.
IF sy-subrc EQ 0.
IF /pws/zyglt340-montante < /pws/zycie008-vlmi.
* >> Início da inclusão: FORM DETERMINA_ESTRATEGIA
e_subrc = 0 .
perform verifica_exit using 'D'
'/PWS/SAPMZYCI012'
'ADT006'.
clear itab_zyglt100 .
read table itab_zyglt100 with key zexit = 'ADT006'.
if not itab_zyglt100-zexit_ativa is initial.
perform (itab_zyglt100-formulario) in program
(itab_zyglt100-programa) if found.
else.
* << Fim da inclusão
CALL FUNCTION '/PWS/ZYGL_DETERMINA_ESTR'
EXPORTING
v_totdep = v_totdep
funcionalidade = 'A'
bukrs = /pws/zycie008-bukrs
...
...
t_contas = t_contas
EXCEPTIONS
estrategia_invalida = 1
parametros_invalidos = 2
OTHERS = 3.
* >> Início da exclusão: FORM DETERMINA_ESTRATEGIA
IF sy-subrc NE 0.
IF sy-subrc EQ 1.
* << Fim da exclusão
* >> Início da inclusão: FORM DETERMINA_ESTRATEGIA
endif.
if e_subrc ne 0.
if e_subrc eq 1.
message i110.
* << Fim da inclusão
IF sy-binpt IS INITIAL.
MESSAGE i110.
ELSE.
MESSAGE e110.
ENDIF.
* >> Início da exclusão: FORM DETERMINA_ESTRATEGIA
ELSEIF sy-subrc EQ 2.
* << Fim da exclusão
* >> Início da inclusão: FORM DETERMINA_ESTRATEGIA
elseif e_subrc eq 2.
message i015 with text-094.
* << Fim da inclusão
IF sy-binpt IS INITIAL.
MESSAGE i126.
ELSE.
MESSAGE e126.
ENDIF.
ENDIF.
EXIT.
ENDIF.
ELSE.
* >> Início da inclusão: FORM DETERMINA_ESTRATEGIA
message i110.
* << Fim da inclusão
IF sy-binpt IS INITIAL.
MESSAGE i110.
ELSE.
MESSAGE e110.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI012X01
...
data: v_sgtxt like bseg-sgtxt,
v_codeven LIKE /PWS/ZYGLT321-CODEVEN,
e_subrc value '0',
v_modo_bi ,
e_exec_okcode ,
* >> Início da exclusão:
OK_CODE LIKE SY-UCOMM.
* << Fim da exclusão
* >> Início da inclusão:
OK_CODE LIKE SY-UCOMM .
data: v_lib type c,
v_totdep like /pws/zyglt342-valorinc,
v_frgzu like /pws/zycie008-frgzu.
* << Fim da inclusão
data: end of common part a.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI013F01
...
it_zycbe035-d_prctr = itab_aufk-prctr.
it_zycbe035-c_prctr = itab_aufk-prctr.
ENDIF.
ENDFORM.
FORM determina_estrategia.
* >> Início da exclusão: FORM DETERMINA_ESTRATEGIA
DATA: v_lib TYPE c,
v_totdep LIKE /pws/zyglt342-valorinc,
v_frgzu LIKE /pws/zycie008-frgzu.
* << Fim da exclusão
CLEAR /pws/zycie008-vlmi.
LOOP AT it_tbcontrol.
IF NOT it_tbcontrol-vldp IS INITIAL.
/pws/zycie008-vlmi = /pws/zycie008-vlmi + it_tbcontrol-vldp.
ENDIF.
...
...
SELECT SINGLE * FROM /pws/zyglt340 WHERE codmod = 'D'
AND func = 'A'
AND estrat = 'X'.
IF sy-subrc EQ 0.
IF /pws/zyglt340-montante < /pws/zycie008-vlmi.
* >> Início da inclusão: FORM DETERMINA_ESTRATEGIA
e_subrc = 0 .
perform verifica_exit using 'D'
'/PWS/SAPMZYCI013'
'DCT002'.
clear itab_zyglt100 .
read table itab_zyglt100 with key zexit = 'DCT002'.
if not itab_zyglt100-zexit_ativa is initial.
perform (itab_zyglt100-formulario) in program
(itab_zyglt100-programa) if found.
else.
* << Fim da inclusão
CALL FUNCTION '/PWS/ZYGL_DETERMINA_ESTR'
EXPORTING
v_totdep = v_totdep
funcionalidade = 'D'
bukrs = /pws/zycie008-bukrs
...
...
frggrqi = /pws/zyglt343-frggrqi
EXCEPTIONS
estrategia_invalida = 1
parametros_invalidos = 2
OTHERS = 3.
* >> Início da inclusão: FORM DETERMINA_ESTRATEGIA
endif.
* << Fim da inclusão
* >> Início da exclusão: FORM DETERMINA_ESTRATEGIA
IF sy-subrc NE 0.
IF sy-subrc EQ 1.
* << Fim da exclusão
* >> Início da inclusão: FORM DETERMINA_ESTRATEGIA
if e_subrc ne 0.
if e_subrc eq 1.
* << Fim da inclusão
MESSAGE i110.
* >> Início da exclusão: FORM DETERMINA_ESTRATEGIA
ELSEIF sy-subrc EQ 2.
* << Fim da exclusão
* >> Início da inclusão: FORM DETERMINA_ESTRATEGIA
elseif e_subrc eq 2.
* << Fim da inclusão
MESSAGE i015 WITH text-094.
ENDIF.
EXIT.
ENDIF.
ELSE.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI013TOP
PROGRAM /pws/sapmzyci013 MESSAGE-ID /pws/zycim.
INCLUDE : /pws/mzyci013oo,
/pws/mzyci013x01.
* >> Início da exclusão:
TABLES: /pws/zycit001,
/pws/zycie001,
/pws/zycie001a,
/pws/zycbt007,
/pws/zycit008,
/pws/zycie008a,
/pws/zycit016,
/pws/zycie016,
/pws/zycie016a,
/pws/zycit019,
/pws/zycbt039,
/pws/zycit039,
/pws/zycit036,
/pws/zycie036,
t001w,
/pws/zycit270,
/pws/zycit000,
/pws/zycit100,
adrc,
t001,
/pws/zyglt340,
/pws/zyglt343,
rm06b,
t16fe,
j_1bbranch,
/pws/zycit417.
* << Fim da exclusão
DATA: gv_subscreen_0050 TYPE sy-dynnr VALUE '0051',
gv_subscreen_0100_1 TYPE sy-dynnr,
gv_subscreen_0300_2 TYPE sy-dynnr.
CONSTANTS: BEGIN OF gc_subscreen,
prog TYPE sy-dynnr VALUE '0300',
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI013X01
* >> Início da exclusão:
Tables:
/pws/zycie008.
* << Fim da exclusão
* >> Início da inclusão:
tables: /pws/zycit001,
/pws/zycie001,
/pws/zycie001a,
/pws/zycbt007,
/pws/zycie008,
/pws/zycit008,
/pws/zycie008a,
/pws/zycit016,
/pws/zycie016,
/pws/zycie016a,
/pws/zycit019,
/pws/zycbt039,
/pws/zycit039,
/pws/zycit036,
/pws/zycie036,
t001w,
/pws/zycit270,
/pws/zycit000,
/pws/zycit100,
adrc,
t001,
/pws/zyglt340,
/pws/zyglt343,
rm06b,
t16fe,
j_1bbranch,
/pws/zycit417.
* << Fim da inclusão
data: begin of common part a.
data: it_zycbe033 like /pws/zycbe033 occurs 0 with header line,
it_zycbt034 LIKE /pws/zycbt034 OCCURS 0 WITH HEADER LINE,
it_zycbt032 LIKE /pws/zycbt032 OCCURS 0 WITH HEADER LINE.
DATA: BEGIN OF it_zycbe035 OCCURS 0.
...
...
v_zuonr LIKE bseg-zuonr,
v_xblnr LIKE bkpf-xblnr,
v_bktxt LIKE bkpf-bktxt,
v_codeven like /pws/zyglt321-codeven,
e_subrc value '0'.
* >> Início da inclusão:
data: v_lib type c,
v_totdep like /pws/zyglt342-valorinc,
v_frgzu like /pws/zycie008-frgzu.
* << Fim da inclusão
data: end of common part a.