This commit is contained in:
2020-10-26 09:35:59 -07:00
6 changed files with 1209 additions and 388 deletions

View File

@@ -21939,7 +21939,14 @@ Partial Class Ventas
Dim Mensaje = UsuarioActual.Empresa.Funcionalidad(152)
If Mensaje = "" Then Return 0
Dim Celular = ObjFactura.Cliente.CobranzaTelefono
Dim Celular As String = ""
Try
Celular = ObjFactura.Cliente.CobranzaTelefono
Catch ex As Exception
End Try
If Celular.Length <> 10 Then Return 3
'ARMA MENSAJE