Stored procedure
Hola que tal, espero puedas orientarme con lo siguiente, mira pasa que tengo el siguiente stored, ¿el cuál me regresa un valor y no se si me falta algo..? O algo anda mal, por que el stored si toma los valores y pues imagino que se ejecuta pero no me regresa nada ... Podrías ayudarme checa el código porfitas gracias !
ls_cuenta2 = dw_list.Object.c_codigo_cta[ i]
ls_dep2 = dw_list.Object.c_codigo_dep[ i]
ldc_imp3 = 0
Declare p_SaldoCta Procedure For p_GastosPresupuesto_SaldoCta
@as_dep = :ls_dep2,
@c_codigo_cta = :ls_cuenta2;
Execute p_SaldoCta;
if SQLCA.sqlcode = -1 then
MessageBox(Title, SQLCA.sqlerrtext)
rollback ;
return 0
End if
commit;
if SQLCA.sqlcode = 0 then
FETCH p_SaldoCta INTO :ldc_imp3 ;
CLOSE p_SaldoCta;
End if
commit;
if ldc_imp3 = 1 then
MessageBox( Title, 'generado correctamente.' )
Return 1
End If
ls_cuenta2 = dw_list.Object.c_codigo_cta[ i]
ls_dep2 = dw_list.Object.c_codigo_dep[ i]
ldc_imp3 = 0
Declare p_SaldoCta Procedure For p_GastosPresupuesto_SaldoCta
@as_dep = :ls_dep2,
@c_codigo_cta = :ls_cuenta2;
Execute p_SaldoCta;
if SQLCA.sqlcode = -1 then
MessageBox(Title, SQLCA.sqlerrtext)
rollback ;
return 0
End if
commit;
if SQLCA.sqlcode = 0 then
FETCH p_SaldoCta INTO :ldc_imp3 ;
CLOSE p_SaldoCta;
End if
commit;
if ldc_imp3 = 1 then
MessageBox( Title, 'generado correctamente.' )
Return 1
End If
1 Respuesta
Respuesta de hakuario
1
¿Qué tipo de conexión usas?
Dices que no retorna ningún valor, ¿pero tampoco te marca error?
Dices que no retorna ningún valor, ¿pero tampoco te marca error?
MUCHAS GRACIAS... por tu tiempo pero hace unos instante acabo de encontrar la solución, tuve que cambiar todo el código pero al fin funciono...
ldc_imp3 = 0.00
ldc_imp = 0
For i=1 to dw_list.Rowcount()
if dw_list.Object.c_codigo_dep[ i] = ls_depto and dw_list.Object.c_codigo_cta[ i] = ls_cuenta2 then
ldc_sum = ldc_sum + dw_list.Object.n_importe_sol[ i]
end if
Next
ldc_sum = ldc_sum + ldc_imp
Declare p_SaldoCta Procedure For p_GastosPresupuesto_SaldoCta
@as_dep = :ls_dep2,
@c_codigo_cta = :ls_cuenta2;
Execute p_SaldoCta;
lint_resultado = SQLCA.sqlcode
IF lint_resultado = -1 THEN
ROLLBACK Using SQLCA;
return messageBox("Error", "Error en el procedimiento.", StopSign!)
END IF
FETCH p_SaldoCta INTO :ldc_imp3;
lint_resultado = SQLCA.sqlcode
IF lint_resultado = -1 THEN
ROLLBACK Using SQLCA;
return messageBox("Error", "Error en el procedimiento.", StopSign!)
END IF
commit;
Gracias y ke pases buen dia!!!
Saludos Kelly =)
ldc_imp3 = 0.00
ldc_imp = 0
For i=1 to dw_list.Rowcount()
if dw_list.Object.c_codigo_dep[ i] = ls_depto and dw_list.Object.c_codigo_cta[ i] = ls_cuenta2 then
ldc_sum = ldc_sum + dw_list.Object.n_importe_sol[ i]
end if
Next
ldc_sum = ldc_sum + ldc_imp
Declare p_SaldoCta Procedure For p_GastosPresupuesto_SaldoCta
@as_dep = :ls_dep2,
@c_codigo_cta = :ls_cuenta2;
Execute p_SaldoCta;
lint_resultado = SQLCA.sqlcode
IF lint_resultado = -1 THEN
ROLLBACK Using SQLCA;
return messageBox("Error", "Error en el procedimiento.", StopSign!)
END IF
FETCH p_SaldoCta INTO :ldc_imp3;
lint_resultado = SQLCA.sqlcode
IF lint_resultado = -1 THEN
ROLLBACK Using SQLCA;
return messageBox("Error", "Error en el procedimiento.", StopSign!)
END IF
commit;
Gracias y ke pases buen dia!!!
Saludos Kelly =)
Bueno al parecer tienes madera para esto.
Je je.!
Por favor no olvides finalizar la pregunta, para que no se quede como pendiente
Je je.!
Por favor no olvides finalizar la pregunta, para que no se quede como pendiente
