jandres1071
09/08/16, 21:07:36
Hola amigos, espero esten muy bien , en esta oportunidad quisiera por favor me indicaran o me guiaran para que este user exit me haga la sustitucion correspondiente.
Realizando Debug, el user exit funciona a la perfeccion , el problema es que cuando quiero ver en pantalla las sustituciones( cuentas) , me deja las cuentas como si no se hubiera hecho nada, ( pero en el codigo si se hizo ) , el campo a modificar es :
BSEG-HKONT.
* he verificado la tabla de autorizacion y el campo aparece ' '.
* he regenerado el programa control de las sustituciones tambien.
les dejo el fragmento de la sustitucion , agradezco sus respuestas.
CHECK bseg-kostl IS NOT INITIAL.
* Consultar la clase del centro de costo
SELECT SINGLE kosar
INTO lv_kosar
FROM csks
WHERE kostl = bseg-kostl AND
kokrs = bseg-bukrs.
IF sy-subrc = 0.
* Consultar si la clase de CeCo y la cuenta origen deben ser sustituidas
SELECT SINGLE hkont_target
INTO lv_hkont
FROM it_cont
WHERE bukrs = bseg-bukrs AND
kosar = lv_kosar AND
hkont_source = bseg-hkont.
IF sy-subrc = 0.
bseg-hkont = lv_hkont.
ENDIF.
Realizando Debug, el user exit funciona a la perfeccion , el problema es que cuando quiero ver en pantalla las sustituciones( cuentas) , me deja las cuentas como si no se hubiera hecho nada, ( pero en el codigo si se hizo ) , el campo a modificar es :
BSEG-HKONT.
* he verificado la tabla de autorizacion y el campo aparece ' '.
* he regenerado el programa control de las sustituciones tambien.
les dejo el fragmento de la sustitucion , agradezco sus respuestas.
CHECK bseg-kostl IS NOT INITIAL.
* Consultar la clase del centro de costo
SELECT SINGLE kosar
INTO lv_kosar
FROM csks
WHERE kostl = bseg-kostl AND
kokrs = bseg-bukrs.
IF sy-subrc = 0.
* Consultar si la clase de CeCo y la cuenta origen deben ser sustituidas
SELECT SINGLE hkont_target
INTO lv_hkont
FROM it_cont
WHERE bukrs = bseg-bukrs AND
kosar = lv_kosar AND
hkont_source = bseg-hkont.
IF sy-subrc = 0.
bseg-hkont = lv_hkont.
ENDIF.