Soporte
Dim tblclientes As ADODB.Recordset
Dim sqlclientes As String
Dim reg As Integer
Dim i As Integer
Dim vbl_id_cliente As Integer
Dim vbl_chequeo_datos As Boolean
Dim vbl_eliminar_registro As Boolean
Dim vbl_chequeo_existe_cliente As Boolean
Dim vbl_condicion_IVA As String
Option Compare Text
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 13Then
SendKeys "{tab}"
KeyAscii = 0
End If
End Sub
Sub chequeo_datos()
If txt_nombre_cliente.Text = "" Then
MsgBox "Por favor ingrese el nombre del cliente", vbCritical + vbExclamation
txt_nombre_cliente.SetFocus
vbl_chequeo_datos = True
Exit Sub
EndIf
If txt_direccion_cliente.Text = "" Then
MsgBox "Por favor ingrese la direccion del cliente", vbCritical + vbExclamation
txt_direccion_cliente.SetFocus
vbl_chequeo_datos = True
Exit Sub
End If
If txt_telefono_cliente.Text = ""Then
MsgBox "Por favor ingrese el numero telefonico del cliente", vbCritical + vbExclamation
txt_telefono_cliente.SetFocus
vbl_chequeo_datos = True
Exit Sub
End If
If txt_cuit_cliente.Text = "" Then
MsgBox "Por favor ingrese elnumero de cuit del cliente", vbCritical + vbExclamation
txt_cuit_cliente.SetFocus
vbl_chequeo_datos = True
Exit Sub
End If
If Len(txt_cuit_cliente.Text) < 11 Then
MsgBox "Por favor ingrese numero valido de cuit del cliente", vbCritical + vbExclamationtxt_cuit_cliente.SetFocus
vbl_chequeo_datos = True
Exit Sub
End If
End Sub
Private Sub chequeo_existe_cliente()
Set tblclientes = New ADODB.Recordset
sqlclientes = "select * from clientes"
tblclientes.Open sqlclientes, cnxn, adOpenStatic, adLockOptimistic, adCmdTextreg = tblclientes.RecordCount
With tblclientes
.MoveFirst
For i = 1 To reg
If txt_nombre_cliente.Text Like !nombre Then
If !estado = True Then
MsgBox "Ya existe un cliente cargado con el mismo nombre"vbl_chequeo_existe_cliente = True
Call reset_formulario
txt_nombre_cliente.SetFocus
Exit Sub
ElseIf !estado = False Then
If MsgBox("Ya existe un cliente cargado con el mismo nombre" & vbCrLf & "Se encuentra DESACTIVADO deseaREACTIVARLO ?", vbYesNo + vbQuestion) = vbYes Then
vbl_chequeo_existe_cliente = True
sqlclientes = "update clientes set estado = true where id_cliente = " & !id_cliente
cnxn.Execute sqlclientes
MsgBox "Cliente REACTIVADO"
Calllimpia_campos
txt_nombre_cliente.SetFocus
Call cargar_grillas
Exit Sub
Else
Exit Sub
End If
End If...
Regístrate para leer el documento completo.