Call Transaction dentro de Enhancement de J1AMONITOR

Colapsar
X
 
  • Tiempo
  • Mostrar
Limpiar Todo
nuevos mensajes
  • MARocca
    Junior Member
    • abr
    • 13

    #1

    Call Transaction dentro de Enhancement de J1AMONITOR

    Buen día colegas, tengo el siguiente dilema. Tengo un enhancement para la J1AMONITOR donde hago un Call Transaction a una trx Z la cual se basa en un programa impresor clásico de smartforms donde se genera el pdf y se envía el mail. El problema es que si le pongo un break al enhancement y ejecuto la J1AMONITOR (en debug) y le doy F8 ni bien para en el break funciona correctamente indicando en la SOST la correcta salida del mail, pero en cambio, si quiero correr la J1AMONITOR sin usar breakpoint en el enhancement no me hace nada, pasa de largo y no envía nada a la SOST.
    Ya no sé que más probar, por favor si alguno tiene alguna idea se los agradezco muchísimo.
    Saludos.

    PD: les dejo el código del enhancement como para que lo vean.

    ------------------------------------------------------------------------
    ENHANCEMENT 1 ZEFI_FORMULARIO_FACT_ND_NC. "active version

    DATA: lt_cae_aux TYPE TABLE OF j_1acae.

    LOOP AT it_selected_rows INTO wa_selected_rows.
    CLEAR wa_j1acae_alv.
    READ TABLE it_j1acae_alv INTO wa_j1acae_alv INDEX wa_selected_rows-index.
    IF sy-subrc EQ 0.
    IF ( wa_j1acae_alv-cae_status EQ 'E' OR
    wa_j1acae_alv-cae_status EQ 'R' OR
    wa_j1acae_alv-cae_status EQ 'N') AND
    wa_j1acae_alv-cae_reftyp eq 'A'.
    MOVE-CORRESPONDING wa_j1acae_alv TO w_j_1acae.
    APPEND w_j_1acae TO t_j_1acae.
    ENDIF.
    ENDIF.
    ENDLOOP.

    IF t_j_1acae[] IS NOT INITIAL.
    SELECT *
    FROM j_1acae
    INTO TABLE lt_cae_aux
    FOR ALL ENTRIES IN t_j_1acae
    WHERE bukrs = t_j_1acae-bukrs
    AND brnch = t_j_1acae-brnch
    AND cae_ref = t_j_1acae-cae_ref
    AND cae_refyr = t_j_1acae-cae_refyr.

    IF sy-subrc EQ 0.

    LOOP AT lt_cae_aux INTO lw_cae WHERE cae_status EQ 'A'.

    SET PARAMETER ID 'BUK' FIELD lw_cae-bukrs.
    SET PARAMETER ID 'BLN' FIELD lw_cae-cae_ref.
    SET PARAMETER ID 'GJH' FIELD lw_cae-cae_refyr.
    SET PARAMETER ID 'FLG' FIELD abap_true.

    CALL TRANSACTION 'ZFI_FC_ND_NC' AND SKIP FIRST SCREEN.

    CLEAR lw_cae.

    ENDLOOP.

    ENDIF.

    REFRESH: t_j_1acae[].

    ENDIF.

    ENDENHANCEMENT.
    Inténtalo. Fracasa. Vuelve a intentarlo. Fracasa otra vez. Inténtalo nuevamente. Fracasa mejor.
Trabajando...