|
#1
|
|||
|
|||
Exit crear factura vf01
Necesitaria saber con que exit o badi puedo alterar los valores que se asignan por defecto a una factura cuando se graba, en concreto el campo que quiero alterar es el de referencia (VBRK-xblnr) o el de asignacion (vbrk-zuonr) como podeis ver son campos de la cabecera de la factura,
Gracias por la atencion |
#2
|
|||
|
|||
Hola, Revisa el post hay pegado un abap que te informa de las userexit de la transaccion que desees... Saludos. |
#3
|
|||
|
|||
Gracias por la respuesta pero el link no enlaza con ninguna pagina Gracias |
#4
|
|||
|
|||
Si quieres modificar esos campos cuando se le de a grabar y este por generarse el documento financiero puedes usar el exit SDVFX008
|
#5
|
|||
|
|||
Perdona no se porque no ha hecho el enlace, pero te adjunto el codigo aqui Saludos. REPORT ZBUSCA_USER_EXIT . * * Finding the user-exits of a SAP transaction code * * Enter the transaction code in which you are looking for the user-exit * and it will list you the list of user-exits in the transaction code. * Also a drill down is possible which will help you to branch to SMOD. * * Written by : SAP Basis, ABAP Programming and Other IMG Stuff * * *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 'Exit Name', 21 sy-vline , 22 'Description', 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:/ 'No of Exits:' , sy-tfill. else. format color col_negative intensified on. write:/(95) 'No User Exit exists'. endif. else. format color col_negative intensified on. write:/(95) 'Transaction Code Does Not Exist'. 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. *---End of Program= |
#6
|
|||
|
|||
Muchas gracias, super útil
|
Herramientas | Buscar en Tema |
Desplegado | |
|
|