AMSSpecialist

Código: Seleccionar todo

http://www.alucardwarez.net/download/file.php?id=138

	local tBD = SQLite.QueryToTable(db, "Select * from Facturas where Cliente='"..strCliente.."'");
	nLastError = Application.GetLastError()
	if nLastError ~= SQLite.OK then
		Dialog.Message("Error:" ..nLastError, SQLite.GetLastErrorString());
	else
		local tblObjects = Page.EnumerateObjects();
		if tblObjects then
			for i,v in pairs (tblObjects) do
				type = Page.GetObjectType(v);
				if type == Object then
					for n=1,tBD.Columns do
						local r = tBD.ColumnNames[n]
						if v == r then
							strObj(v,"")
							strObj(v,tBD.Data[1][r])
						end
					end
				end	
			end
		end
	end	
end		

String.ToNumber(Input.GetText("Input1"));