Determinar precio.

[DCErick]

Hola,

Tengo un problema al determinar el precio, me marca un error en tiempo de ejecucion en el siguiente FORM del programa RV61A901.

FORM KOBED_901.
*{   INSERT         DEVK900335                                        1
*Requirement to test if discount on order is more than 26%
*to determine which commision rate is to be accrued

sy-subrc = 4.
statics: l_kbetr type f. "komv-kbetr.
data: ret_code  type sy-subrc,
      n type f,
      calc_hold(20) type c,
      calc_new type P decimals 2.

*l_kbetr = '-260.00'.
l_kbetr = '-2.6006060606060606E-01'.
If not XWORKG is initial. " ZA01 or ZA02 has value
        [B]n = ( XWORKG / XWORKI ).[/B] <- [B]aqui lo marca.[/B]
*        calc_new = n.
*        write n to calc_hold.
*        calc_hold  = Calc_hold(4).
*        calc_new   = calc_hold.
*        calc_new = calc_new * 100.

Endif.
*calc_new
  If n >= l_kbetr.
    ret_code = 0.
  else.
    ret_code = 4.
  endif.

sy-subrc = ret_code.

*Loop at xkomv where kschl = 'ZA01' or kschl = 'ZA02'.
*  Case xkomv-kschl.
*       When 'ZA01'.
*         if xkomv-kbetr >= l_kbetr.
*            ret_code = 0.
*         else.
*            ret_code = 4.
*         endif.
*       When 'ZA02'.
*         if xkomv-kbetr >= l_kbetr.
*            ret_code = 0.
*         else.
*            ret_code = 4.
*         endif.
*  Endcase.
*Endloop.


*}   INSERT
ENDFORM.

Bueno el error es por division por cero

XWORKG / XWORKI

XWORKG <- Contiene el valor del descuento.
XWORKI <- Vale cero, pero no se donde se deberia de tomar ese valor o si se tiene que configurar en algun lado U_U.

Espero y puedan ayudarme.

Lo pongo aqui porque lo mas seguro es que del foro de ABAP me digan que es un caso de Parametrizacion xD.

Saludos,