Dim sf As Object = mysql.CreateCallStatement("{call AgregaPago(?,?,?,?,?,?,?,?,?)}", Array(Main.NtagPago,Main.IdUsuario,Main.Nombre,Main.MacId,PEDIDOS.total,Pagar.CadenaG,PEDIDOS.Referencia ,Main.GrupoProd,PEDIDOS.orden ))
Dim crsr As JdbcResultSet=mysql.ExecCall(sf)
CursorToLog( crsr )