'Static code module
Sub Process_Globals
Private fx As JFX
Private Proveedores As Form
Dim TextField1 As TextField
Dim TextField2 As TextField
Dim TextField3 As TextField
Dim TextField4 As TextField
Dim TextField5 As TextField
Dim TextField6 As TextField
Dim TextField7 As TextField
Dim TextField8 As TextField
Dim rsProveedor As ResultSet
Dim MsgBox As Msgboxes
Private Toast As ToastMessageShow
Private GridProveedor As TableView
Public IdProveedor As Int
Private count As Int
Dim av As Int
End Sub
Sub Show
Proveedores.Initialize("frm", 490, 600)
Proveedores.RootPane.LoadLayout("Proveedores")
Proveedores.Show
rsProveedor=MySQL.SQLCon.ExecQuery("SELECT * from proveedor where Empresa= '" & Main.Empresa & "'")
GridProveedor.SetColumns(Array As String("Proveedor","Ced Juridica","Cta bancaria", "Telefono","Telefono2","Mail","Web","Plazo","Id"))
Do While rsProveedor.NextRow
Dim row(9) As Object
row(0) = rsProveedor.GetString("Proveedor")
row(1) = rsProveedor.GetString("CedJuridica")
row(2) = rsProveedor.GetString("CuentaB")
row(3) = rsProveedor.GetString("tel1")
row(4) = rsProveedor.GetString("tel2")
row(5) = rsProveedor.GetString("Mail")
row(6) = rsProveedor.GetString("Web")
row(7) = rsProveedor.GetString("Plazo")
row(8) = rsProveedor.GetString("Id")
IdProveedor = rsProveedor.GetString("Id")
GridProveedor.Items.Add(row)
Loop
rsProveedor.Close
GridProveedor.SetColumnWidth(0,500)
Toast.Initialize("Toast")
Toast.ToastIconSize32x32
Toast.ToastDuration = 2 'Toast.TOAST_LONG_DELAY
Toast.ToastTextLocation = Toast.TEXT_CENTER
Toast.ToastLocation= Toast.TOAST_CENTER_RIGHT
Toast.ToastNotificationOwner = Proveedores
End Sub
Sub GridProveedor_SelectedRowChanged(Index As Int, Row() As Object)
TextField1.Text= Row(0)
TextField2.Text= Row(1)
TextField3.Text= Row(2)
TextField4.Text= Row(3)
TextField5.Text= Row(4)
TextField6.Text= Row(5)
TextField7.Text= Row(6)
TextField8.Text= Row(7)
IdProveedor= Row(8)
End Sub
Sub BSalir_Action
Proveedores.Close
End Sub
Sub BNuevo_Action
TextField1.Text= ""
TextField2.Text= ""
TextField3.Text= ""
TextField4.Text= ""
TextField5.Text= ""
TextField6.Text= ""
TextField7.Text= ""
TextField8.Text= ""
av=1
End Sub
Sub Ingresa
rsProveedor= MySQL.SQLCon.ExecQuery("SELECT * from proveedor where Proveedor='" & TextField1.Text & "' and CedJuridica='" & TextField2.Text & "' and Empresa= '" & Main.Empresa & "'")
Do While rsProveedor.NextRow
count=count +1
Loop
If count >0 Then
Toast.ToastMessageColor = fx.Colors.White
Toast.ToastShow("El proveedor que usted digitó ya se encuentra en la base de datos")
Else
MsgBox.Show(Main.Empresa,"j")
MySQL.SQLCon.ExecNonQuery2("INSERT INTO proveedor VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object ("0",TextField1.Text,TextField2.Text,TextField3.Text,TextField4.Text,TextField5.Text,"0",TextField6.Text,TextField7.Text ,"0","0","0","0",TextField8.Text,"0",Main.Empresa))
rsProveedor=MySQL.SQLCon.ExecQuery("SELECT * from proveedor where Empresa= '" & Main.Empresa & "'")
GridProveedor.SetColumns(Array As String("Proveedor","Ced Juridica","Cta bancaria", "Telefono","Telefono2","Mail","Web","Plazo","Id"))
Do While rsProveedor.NextRow
Dim row(9) As Object
row(0) = rsProveedor.GetString("Proveedor")
row(1) = rsProveedor.GetString("CedJuridica")
row(2) = rsProveedor.GetString("CuentaB")
row(3) = rsProveedor.GetString("tel1")
row(4) = rsProveedor.GetString("tel2")
row(5) = rsProveedor.GetString("Mail")
row(6) = rsProveedor.GetString("Web")
row(7) = rsProveedor.GetString("Plazo")
row(8) = rsProveedor.GetString("Id")
GridProveedor.Items.Add(row)
Loop
rsProveedor.Close
GridProveedor.SetColumnWidth(0,500)
Toast.ToastShow("El registro fue creado satisfactoriamente")
End If
End Sub
Sub Modifica
MySQL.SQLCon.ExecNonQuery ("UPDATE `proveedor` SET `Proveedor`='" & TextField1.Text & "',`CedJuridica`='" & TextField2.Text & "',`CuentaB`='" & TextField3.Text & "',`tel1`='" & TextField4.Text & "',`tel2`='" & TextField5.Text & "',`Mail`='" & TextField6.Text & "',`Web`='" & TextField7.Text & "',`Plazo`='" & TextField8.Text & "' WHERE id='" & IdProveedor & "'")
rsProveedor=MySQL.SQLCon.ExecQuery("SELECT * from proveedor where Empresa= '" & Main.Empresa & "'")
GridProveedor.SetColumns(Array As String("Proveedor","Ced Juridica","Cta bancaria", "Telefono","Telefono2","Mail","Web","Plazo","Id"))
Do While rsProveedor.NextRow
Dim row(9) As Object
row(0) = rsProveedor.GetString("Proveedor")
row(1) = rsProveedor.GetString("CedJuridica")
row(2) = rsProveedor.GetString("CuentaB")
row(3) = rsProveedor.GetString("tel1")
row(4) = rsProveedor.GetString("tel2")
row(5) = rsProveedor.GetString("Mail")
row(6) = rsProveedor.GetString("Web")
row(7) = rsProveedor.GetString("Plazo")
row(8) = rsProveedor.GetString("Id")
GridProveedor.Items.Add(row)
Loop
rsProveedor.Close
GridProveedor.SetColumnWidth(0,500)
Toast.ToastShow("El registro fue editado satisfactoriamente")
End Sub
Sub BGuardar_Action
If av=1 Then
Ingresa
Else
Modifica
End If
av=0
End Sub
Sub BCancelar_Action
av=0
End Sub
Sub TextField8_TextChanged (Old As String, New As String)
Dim len As Int
Dim chr1 As Char
If Old.ToUpperCase = New Then Return ' exits upper case change
len = New.Length
If len > 0 Then
New = New.ToUpperCase
For i = 0 To len-1
chr1 = New.CharAt(i)
If "1234567890.".Contains(chr1) = False Then
len = Old.Length
TextField8.Text = Old
TextField8.SetSelection(len, len)
Return
End If
Next
Else
TextField8.Text = ""
Return
End If
TextField8.Text = New ' text changed to upper case
TextField8.SetSelection(len, len)
End Sub
