FIND
Publicado por ivan salazar (101 intervenciones) el 27/09/2005 16:00:24
Hola tengo el siguiente caso. estoy tratando de ubicar un dato de tipo Decimal a traves de la funcion Find(), pero al momento de ejecutar la aplicacion me emite el siguiente mensaje "Expression is not valid" y me devuelve -5 Bad Argument. A continuacion les envio el script para ver si me ayudan a resolver este caso.
dec{2} ldc_mto
FOR ll_row = 1 TO dw_libros.RowCount()
ldc_mto = dw_libros.GetItemDecimal(ll_row, "monto")
IF IsNull(ldc_mto) THEN ldc_mto = 0
li_ind = 0
ll_found = 1
do while li_ind = 0
ll_found = dw_banco.Find("monto="+String(ldc_mto) , 1, dw_banco.RowCount())
// Coloca Como Conciliados el Mvto. en Libro y Banco
IF ll_found > 0 THEN
IF ldc_mto = dw_banco.GetItemDecimal(ll_found, "monto") THEN
ll_cont ++
dw_libros.SetItem(ll_row, "marca", 1)
dw_banco.SetItem(ll_found, "marca", 1)
li_ind = 1
END IF
ELSE
li_ind = 1
END IF
ll_found ++
IF ll_found > dw_banco.RowCount() THEN li_ind = 1
loop
NEXT
IF ll_cont = 0 THEN
Rollback ;
f_mensajes_std(2, "No Encontro Movimientos Para Conciliar por Monto")
Return
END IF
Gracias...
dec{2} ldc_mto
FOR ll_row = 1 TO dw_libros.RowCount()
ldc_mto = dw_libros.GetItemDecimal(ll_row, "monto")
IF IsNull(ldc_mto) THEN ldc_mto = 0
li_ind = 0
ll_found = 1
do while li_ind = 0
ll_found = dw_banco.Find("monto="+String(ldc_mto) , 1, dw_banco.RowCount())
// Coloca Como Conciliados el Mvto. en Libro y Banco
IF ll_found > 0 THEN
IF ldc_mto = dw_banco.GetItemDecimal(ll_found, "monto") THEN
ll_cont ++
dw_libros.SetItem(ll_row, "marca", 1)
dw_banco.SetItem(ll_found, "marca", 1)
li_ind = 1
END IF
ELSE
li_ind = 1
END IF
ll_found ++
IF ll_found > dw_banco.RowCount() THEN li_ind = 1
loop
NEXT
IF ll_cont = 0 THEN
Rollback ;
f_mensajes_std(2, "No Encontro Movimientos Para Conciliar por Monto")
Return
END IF
Gracias...
Valora esta pregunta


0