BATCH INPUT FPINTM1 (calculo de intereses)

[dgarcgon]

Hola,


Estoy intentando hacer un programa que anule ordenes de pago y calcule intereses para cierto tipo de ordenes de pago en el modulo FI-CA. El programa parece funcionar correctamente, ejecutando las transacciones en modo online (CTUMODE = 'A') la transaccion de calculo de intereses se ejecuta correctamente, devolviendo un '0' en la variable sy-subrc y sin dejar ningun mensaje de error en la tabla MESTAB.

El problema es que aun así no se generan ningún cálculo de intereses cuando se calcula desde el programa, y ejecutando la transacción manualmente sí.


Este es mi código. Si alguien ve algo o ha tenido este problema me sería de gran ayuda cualquier información.


perform bdc_dynpro using 'SAPLFKKAKTIV2' '1000'.
perform bdc_field using 'BDC_OKCODE'
'=ENTR'.
perform bdc_field using 'FKKAKTIV2_DYNP_1000-LAUFD'
ID_d_data.
perform bdc_field using 'FKKAKTIV2_DYNP_1000-LAUFI'
Identificasao.

perform bdc_dynpro using 'SAPLFKKAKTIV2' '1000'.
perform bdc_field using 'BDC_OKCODE'
'=TAB02'.
perform bdc_field using 'SO_GPART-LOW'
WA_JUROS-PN.
perform bdc_field using 'G_ADDONS-WAERS'
'EUR'.

perform bdc_dynpro using 'SAPLFKKAKTIV2' '1000'.
perform bdc_field using 'BDC_OKCODE'
'=PFRE'.

perform bdc_dynpro using 'SAPLSSEL' '1104'.
perform bdc_field using 'BDC_OKCODE'
'=%01011050000707020'.

perform bdc_dynpro using 'SAPLALDB' '3000'.
perform bdc_field using 'BDC_OKCODE'
'=ACPT'.

loop at IT_PAYDOCS into WA_PAYDOCS.
write sy-tabix to pos.
write pos to pos right-justified.
translate pos using ' 0'.
concatenate 'RSCSEL-SLOW_I(' pos ')' into nomcamp.
perform bdc_field using nomcamp
WA_PAYDOCS-DOC.
endloop.


perform bdc_dynpro using 'SAPLSSEL' '1104'.
perform bdc_field using 'BDC_OKCODE'
'=CRET'.

read table IT_PAYDOCS index 1 into WA_PAYDOCS.

perform bdc_field using '%%DYN004-LOW'
WA_PAYDOCS-DOC.

perform bdc_dynpro using 'SAPLFKKAKTIV2' '1000'.
perform bdc_field using 'BDC_CURSOR'
'FKKAKTIV2_DYNP_1000-LAUFD'.
perform bdc_field using 'BDC_OKCODE'
'=SAVE'.
perform bdc_field using 'FKKAKTIV2_DYNP_1000-LAUFD'
ID_d_data.

perform bdc_field using 'FKKAKTIV2_DYNP_1000-LAUFI'
Identificasao.

perform bdc_dynpro using 'SAPLFKKAKTIV2' '1000'.
perform bdc_field using 'BDC_OKCODE'
'=SAVE'.

PERFORM bdc_dynpro USING 'SAPLFKKAKTIV2' '1000'.
perform bdc_field using 'BDC_OKCODE'
'=DISP'.

perform bdc_dynpro using 'SAPLFKJO_JOB' '0100'.

perform bdc_field using 'BDC_OKCODE'
'=OK'.
perform bdc_field using 'D100_FIELDS-XIMMEDIATE'
'X'.

perform bdc_field using 'D100_FIELDS-DATUM'
sy-datum.

perform bdc_field using 'D100_FIELDS-ZEIT'
sy-uzeit.


perform bdc_transaction using 'FPINTM1'.

[Triby]

Hola,
Tengo este mismo problema, alguien sabe como solucionarlo o si hay alguna BAPI que pudiera usar para ejecutar el Cálculo de Intereses.

Gracias