cheveguerra/Izca_Multiventa
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Izca_Multiventa.git synced 2026-04-20 06:09:24 +00:00
Code Issues Packages Projects Releases Wiki Activity

Completa hasta hoy

Browse Source
This commit is contained in:
Javier
2025-11-06 11:26:24 -06:00
parent 03a38f908f
commit 76a26a92bb
10 changed files with 212 additions and 2451 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
B4A/C_NuevoCliente.bas
View File

@@ -247,7 +247,7 @@ Sub GUARDA_Click
If giros <> "SELECCIONA UNA OPCIÓN" Or cb_giro.SelectedItem <> "SELECCIONA UNA OPCIÓN" Then
' Verifica si el encargado que atiende el negocio está capturado
If ET_Atiende.Text <> "" Then
If et_colonia.Text <> "" Then
If et_telefono.Text <> "" Then
If et_colonia.Text <> "" Then
If et_cp.Text <> "" Then
@@ -302,7 +302,7 @@ Sub GUARDA_Click
MsgboxAsync("Por favor, debe capturar la colonia el negocio.","Atención")
End If
Else
MsgboxAsync("Por favor, debe capturar el telfono.","Atención")
MsgboxAsync("Por favor, debe capturar el telefono.","Atención")
End If
Else
' Mensaje de advertencia si ET_Atiende.Text está vacío
@@ -430,3 +430,15 @@ Private Sub cb_giro_SelectedIndexChanged (Index As Int)
giros = cb_giro.SelectedItem
End Sub
Private Sub et_cp_TextChanged (Old As String, New As String)
If New.Length > 5 Then
et_cp.Text = Old
Else If New.Length > 1 And New.Length <= 5 Then
If New.Contains(Chr(10)) Or New.Contains(Chr(13)) Or New.Contains(Chr(34)) Then
et_cp.Text = Old
End If
End If
End Sub