diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 39adff7c8..cf5bb2b82 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -9112,7 +9112,7 @@ Partial Class Ventas
End If
'SI ESTA HABILITADO LA OPCION DE DESCUENTO, SE AGREGO UN DESCUENTO MANUAL Y NO TIENE PROMOCION
- If GvPS.Rows(e.RowIndex).FCTextBox("TxtDescuento").Enabled AndAlso (ObjDescuento.CvePromocionDetalle <= 0 AndAlso ObjDescuento.ImporteDescuento <= 0) AndAlso DescuentoManual > 0 Then
+ If GvPS.Rows(e.RowIndex).FCTextBox("TxtDescuento").Enabled Then
ObjDescuento.ImporteDescuento = DescuentoManual
End If
@@ -25083,6 +25083,21 @@ Partial Class Ventas
CargaEstados()
+ TxtNombreCliente.Text = ""
+ TxtRFCCliente.Text = ""
+ TxtRegimenSociedad.Text = ""
+ DdlEstadoSAT.SelectedValueExist("-1")
+ TxtCiudadCliente.Text = ""
+ TxtLocalidadCliente.Text = ""
+ TxtColoniaCliente.Text = ""
+ TxtCPCliente.Text = ""
+ TxtDireccionCliente.Text = ""
+ TxtNumExtCliente.Text = ""
+ TxtNumIntCliente.Text = ""
+ TxtCorreoCliente.Text = ""
+ TxtTelefonoCliente.Text = ""
+
+
If UsuarioActual.CveEmpresa = 189 Then
TxtRFCNombre.Text = ""
@@ -25135,7 +25150,16 @@ Partial Class Ventas
DivValidaRFC.Visible = True
DivValidaPorNombre.Visible = False
DivBusquedaCliente.Visible = False
- TxtRFCCliente.Text = TxtRFCNombre.Text
+
+ 'VERIFICAR SI EL TEXTO DE ENTRADA ES UN NOMBRE O UN RFC
+ If TxtRFCNombre.Text.Length > 13 Then
+ TxtNombreCliente.Text = TxtRFCNombre.Text.Trim().ToUpper()
+ ElseIf EsRFC(TxtRFCNombre.Text.Trim()) Then
+ TxtRFCCliente.Text = TxtRFCNombre.Text.Trim().ToUpper()
+ Else
+ TxtNombreCliente.Text = TxtRFCNombre.Text.Trim().ToUpper()
+ End If
+
BtnValidarRFC_Click(Nothing, EventArgs.Empty)
End If
End If
@@ -40034,9 +40058,21 @@ Partial Class Ventas
DivValidaRFC.Visible = True
DivValidaPorNombre.Visible = False
DivBusquedaCliente.Visible = False
- TxtRFCCliente.Text = TxtRFCNombre.Text
+
+ 'VERIFICAR SI EL TEXTO DE ENTRADA ES UN NOMBRE O UN RFC
+ If TxtRFCNombre.Text.Length > 13 Then
+ TxtNombreCliente.Text = TxtRFCNombre.Text.Trim().ToUpper()
+ ElseIf EsRFC(TxtRFCNombre.Text.Trim()) Then
+ TxtRFCCliente.Text = TxtRFCNombre.Text.Trim().ToUpper()
+ Else
+ TxtNombreCliente.Text = TxtRFCNombre.Text.Trim().ToUpper()
+ End If
BtnValidarRFC_Click(Nothing, EventArgs.Empty)
End Sub
+
+ Private Function EsRFC(texto As String) As Boolean
+ Return Regex.IsMatch(texto, "^[a-zñA-ZÑ.)(/\\&-]{3,4}(\d{6})((\D|\d){2})((\D|\d){1})$")
+ End Function
End Class