Hoy vengo con un tema tratado con anterioridad pero si respuesta conclusa alguna.
Estoy creando una sustitución desde la OBBH, de documento completo, envie los parametros en el get_exit_titles
exits-name = 'UZ107'. " form
exits-param = c_exit_param_class.
exits-title = text-107. " title
y utilice el siguiente código fuente
pero resulta que por código me hace lo que quiero, pero los cambios no se me estan reflejando cuando desde visualizo el documento compensado desde la fb03
FORM uz107 USING bool_data TYPE gb002_015.
DATA : BEGIN OF lt_doc OCCURS 0,
bukrs LIKE bseg-bukrs, " Sociedad
gjahr LIKE bseg-gjahr, " Ejercicio
belnr LIKE bkpf-belnr, " Año
END OF lt_doc.
FIELD-SYMBOLS: <fs_reguh> TYPE reguh.
DATA(lv_stru) = '(SAPF110S)REGUH'.
ASSIGN (lv_stru) TO <fs_reguh>.
SELECT zbukr AS bukrs
belnr
gjahr
INTO CORRESPONDING FIELDS OF TABLE lt_doc
FROM regup
WHERE laufd EQ <fs_reguh>-laufd
AND laufi EQ <fs_reguh>-laufi.
READ TABLE lt_doc INDEX 1.
SELECT SINGLE bktxt
INTO @DATA(lv_bktxt)
FROM bkpf
WHERE bukrs EQ @lt_doc-bukrs
AND belnr EQ @lt_doc-belnr
AND gjahr EQ @lt_doc-gjahr.
MOVE lv_bktxt TO bkpf-bktxt.
LOOP AT bool_data-bseg INTO DATA(ls_bseg).
MOVE lv_bktxt TO ls_bseg-sgtxt.
MODIFY bool_data-bseg FROM ls_bseg.
CLEAR ls_bseg.
ENDLOOP.
ENDFORM.
Raro, parece todo bien, probá con el siguiente codigo, lo tengo en una sustitucion de documento completo y funciona:
select single name1
into lv_sgtxt
from lfa1
where lifnr eq lv_lifnr.
if sy-subrc eq 0.
loop at bool_data-bseg assigning <fs_bseg>.
<fs_bseg>-sgtxt = lv_sgtxt.
endloop.
endif.
tengo un problema muy similar al que exponen
el atao que tengo es una sustitucion que debo hacer para algunas posiciones en donde sgtxt = vacio
entonces ocupo la bool_data-bseg para hacerlo…
pero el problema es que ni siquiera entra a la sustitucion
La defini asi la sustitucion
Documento completo(3)
y el form
form u112 using bool_data type gb002_015.
data: begin of asignacion,
ebeln type ebeln,
ebelp type ebelp,
end of asignacion.
data: wa_bseg type bseg.
loop at bool_data-bseg into wa_bseg where ebeln ne ’ '.
select single txz01 into bseg-sgtxt
from ekpo client specified
where mandt = sy-mandt
and ebeln = asignacion-ebeln
and ebelp = asignacion-ebelp.
if sy-subrc = 0.
endif.
endloop.
endform. "u112
el codigo no es tan importante por ahora, porque el problema es que no alcanza ni a entrar a la sustitucion
hago la simulacion desde la OBBH y todo bien, ahi entra al form u112 pero desde la MIRO nada
Hola
gracias por responder
eso es lo que he echo
tenia inicialmente BKPF-BUKRS = ‘1000’ AND BKPF-TCODE = ‘MIRO’
Y le saque las condiciones para que entrara si o si pero nada
Sera que la MIRO es especial ya que no es un transaccion FI
Probaré con esta estructura BOOL_DATA en una transaccion FI para ver si entra
Quizas la MIRO es la que da problemas
