user exit para tx fbz1

[nilcolle]

hola espero me puedan ayudar necesito encontrar una user exit que pase cuando se termine de contabilizar un documento por la Transacción Estándar FBZ1, por favor si alguien sabe de una me urge
Gracias por la ayuda que me puedan dar!!!

[JUANDAVEL]

User exit - FBZ1

Nilcolle

Para la TX FBZ1 encontre los siguientes User exit

Transaction Code - FBZ1 Contabilizar entrada


Exit Name Description

F050S001 FIDCMT, FIDCC1, FIDCC2: Tratar segmento IDOC
F050S002 FIDCC1: Modificar/No enviar
F050S003 FIDCC2: Modificar/No enviar
F050S004 FIDCMT, FIDCC1, FIDCC2: Modificar/No enviar
F050S005 FIDCMT, FIDCC1, FIDCC2Modificar documento FI
F050S006 Anular compensación en el documento
F050S007 Salida FIDCCH: p.modificación
F180A001 Cargo retroact balance
FARC0002 Verific.adicionales p.archivo datos maestros
RFAVIS01 Exit de usuario p.verificar texto de segmento de
RFEPOS00 Visual.partid.indiv.: Verif.de condiciones de
RFKORIEX Correspondencia
SAPLF051 Workflow para FI (entrada preliminar, autorización pago)


Para encontrar USER EXIT

ejecutar el siguiente reporte y colocar la TX

*&---------------------------------------------------------------------*
*& Report ZUSEREXIT
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT ZUSEREXIT.

*report zuserexit no standard page heading.
tables : tstc, tadir, modsapt, modact, trdir, tfdir, enlfdir.
tables : tstct.
data : jtab like tadir occurs 0 with header line.
data : field1(30).
data : v_devclass like tadir-devclass.
parameters : p_tcode like tstc-tcode obligatory.

select single * from tstc where tcode eq p_tcode.
if sy-subrc eq 0.
select single * from tadir where pgmid = 'R3TR'
and object = 'PROG'
and obj_name = tstc-pgmna.
move : tadir-devclass to v_devclass.
if sy-subrc ne 0.
select single * from trdir where name = tstc-pgmna.
if trdir-subc eq 'F'.
select single * from tfdir where pname = tstc-pgmna.
select single * from enlfdir where funcname =
tfdir-funcname.
select single * from tadir where pgmid = 'R3TR'
and object = 'FUGR'
and obj_name eq enlfdir-area.

move : tadir-devclass to v_devclass.
endif.
endif.
select * from tadir into table jtab
where pgmid = 'R3TR'
and object = 'SMOD'
and devclass = v_devclass.
select single * from tstct where sprsl eq sy-langu and
tcode eq p_tcode.
format color col_positive intensified off.
write:/(19) 'Transaction Code - ',
20(20) p_tcode,
45(50) tstct-ttext.
skip.
if not jtab[] is initial.
write:/(95) sy-uline.
format color col_heading intensified on.
write:/1 sy-vline,
2 'Nombre Exit',
21 sy-vline ,
22 'Descripcion',
95 sy-vline.
write:/(95) sy-uline.
loop at jtab.
select single * from modsapt
where sprsl = sy-langu and
name = jtab-obj_name.
format color col_normal intensified off.
write:/1 sy-vline,
2 jtab-obj_name hotspot on,
21 sy-vline ,
22 modsapt-modtext,
95 sy-vline.
endloop.
write:/(95) sy-uline.
describe table jtab.
skip.
format color col_total intensified on.
write:/ 'Número de Exits:' , sy-tfill.
else.
format color col_negative intensified on.
write:/(95) 'No existe ninguna user exit'.
endif.
else.
format color col_negative intensified on.
write:/(95) 'El código de transacción no existe'.
endif.

at line-selection.
get cursor field field1.
check field1(4) eq 'JTAB'.
set parameter id 'MON' field sy-lisel+1(10).
call transaction 'SMOD' and skip first screen.

Saludos,

Juan

[grioconda]

prueba cada una de las exit que te envió el amigo JUANDAVEL a ver cual es la que te sirve

[nilcolle]

hola gracias por su pronta respuesta, pero he probado estas exit y ninguna para al momento de contabilizar