numero_corrida is int = 0
MyProcedureUltimaCorrida is Data Source
IF HExecuteSQLQuery(MyProcedureUltimaCorrida, ConnNativa, hQueryWithoutCorrection,"NG0002_Procedure_UltimaCorrida") THEN
HReadFirst(MyProcedureUltimaCorrida, num_corrida)
WHILE HOut() = False
ok = HReadNext(MyProcedureUltimaCorrida, num_corrida)
numero_corrida = MyProcedureUltimaCorrida.num_corrida
END
ELSE
Error(HErrorInfo())
END
Trace(numero_corrida) |