Soporte

Solo disponible en BuenasTareas
  • Páginas : 5 (1132 palabras )
  • Descarga(s) : 0
  • Publicado : 26 de agosto de 2012
Leer documento completo
Vista previa del texto
Option Explicit
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...
tracking img