Gracias de antemano
' gambas class file
Private cx As New Connection
Private rs As Result
Private id As Integer
Public Sub Form_Open()
Dim sql As String
'PROVEEDORES
cmbRELACION.Add("Contacto")
cmbRELACION.Add("Cliente")
cmbRELACION.Add("Proveedor")
cmbRELACION.Add("Cliente/Proveedor")
'PROVEEDORES
cmbPOSICIONFISCAL.Add("Consumidor final")
cmbPOSICIONFISCAL.Add("Exento")
cmbPOSICIONFISCAL.Add("Responsable inscripto")
'DISEÑO DEL GRID DE PERSONAS FISICAS
With tbPERSONASFISICAS
.Header = tbPERSONASFISICAS.Horizontal
.Grid = True
.Rows.Count = 0
.Columns.Count = 15
.Header = True
.Columns[0].Title = "" 'ID
.Columns[0].Width = 0
.Columns[1].Title = "" 'Relación
.Columns[1].Width = 0
.Columns[2].Title = "" '>> Apellido, Nombre
.Columns[2].Width = 400
.Columns[3].Title = "" 'Domicilio
.Columns[3].Width = 0
.Columns[4].Title = "" 'Código Postal
.Columns[4].Width = 0
.Columns[5].Title = "" 'Localidad
.Columns[5].Width = 0
.Columns[6].Title = "" 'Provincia
.Columns[6].Width = 0
.Columns[7].Title = "" 'País
.Columns[7].Width = 0
.Columns[8].Title = "" '>> Telefono1
.Columns[8].Width = 150
.Columns[9].Title = "" '>> Telefono2
.Columns[9].Width = 150
.Columns[10].Title = "" 'email
.Columns[10].Width = 0
.Columns[11].Title = "" 'website
.Columns[11].Width = 0
.Columns[12].Title = "" 'cuil cuit
.Columns[12].Width = 0
.Columns[13].Title = "" 'cbu
.Columns[13].Width = 0
.Columns[14].Title = "" 'posicion fiscal
.Columns[14].Width = 0
End With
cx = Mconex.conectar()
sql = "select IDPERSONAFISICA as ID from PERSONAFISICA"
rs = cx.Exec(sql)
cx.Commit
End
Public Sub Form_Activate()
tbPERSONASFISICAS.Rows.Count = rs.Count
End
Public Sub tbPERSONASFISICAS_Data(Row As Integer, Column As Integer)
rs.MoveTo(Row)
tbPERSONASFISICAS.Data.Text = Str(rs[tbPERSONASFISICAS.Columns[Column].Text])
End