Merge branch 'master' of http://192.168.10.111:8383/SIG

Ventas/Ventas.aspx.vb

@@ -11,7 +11,6 @@ Imports ADSNetLibrary.SIGAPI.Models.CRM.Request
 Imports ADSNetLibrary.SIGAPI.Services.CRM
 Imports ADSTimbrado
 Imports Extensiones
-Imports Microsoft.Ajax.Utilities
 Imports Microsoft.Reporting.WebForms
 Imports Modelos
 Imports Newtonsoft.Json.Linq
@@ -25084,7 +25083,7 @@ Partial Class Ventas
         DivNombreCliente.Visible = False
         DivTipoPersona.Visible = False
         DivDireccionCliente.Visible = False
-
+        DVRegimenSociedad.Visible = False
         DivNumeroCPCliente.Visible = False
         'DivColoniaTelefonoCliente.Visible = False
         DivCiudadLocalidadCliente.Visible = False
@@ -25098,6 +25097,20 @@ 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 = ""
 
@@ -25150,7 +25163,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
@@ -25183,7 +25205,8 @@ Partial Class Ventas
 
             RdTipoPersona.SelectedValue = "0"
 
-            DdlMetodoCliente.SelectedValueExist(1)
+            DdlMetodoCliente.SelectedValueExist("1")
+            DdlMetodoCliente_SelectedIndexChanged(Nothing, EventArgs.Empty)
 
             'DdlFormaCliente.SelectedValueExist(1)
 
@@ -25233,7 +25256,7 @@ Partial Class Ventas
 
         End If
 
-        If UsuarioActual.CveEmpresa = 189 Then
+        If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
             divGiro.Visible = True
 
             Dim DrSP As DataRow = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, DdlSubProyectoDatos.SelectedValue.ToEntero()).FiltroPrimero("")
@@ -25250,6 +25273,32 @@ Partial Class Ventas
 
             End If
 
+            DdlMetodoCliente.SelectedValueExist(1)
+            DdlMetodoCliente_SelectedIndexChanged(Nothing, EventArgs.Empty)
+
+            'PERSONA MORAL
+            If TxtRFCCliente.Text.Trim().Length = 12 Then
+                RdTipoPersona.SelectedValue = "1"
+                RdTipoPersona_SelectedIndexChanged(Nothing, EventArgs.Empty)
+
+                DdlRegimenFiscalCliente.SelectedValueExist("1")
+                DdlRegimenFiscalCliente_SelectedIndexChanged(Nothing, EventArgs.Empty)
+                'PERSONA FISICA
+            Else
+                RdTipoPersona.SelectedValue = "0"
+                RdTipoPersona_SelectedIndexChanged(Nothing, EventArgs.Empty)
+
+                If TxtRFCCliente.Text.Trim() = "XAXX010101000" Then
+                    DdlRegimenFiscalCliente.SelectedValueExist("11")
+                Else
+                    DdlRegimenFiscalCliente.SelectedValueExist("9")
+                End If
+
+                DdlRegimenFiscalCliente_SelectedIndexChanged(Nothing, EventArgs.Empty)
+
+            End If
+
+            DdlUsoCFDICliente.SelectedValueExist("3")
         End If
 
     End Sub
@@ -26064,16 +26113,16 @@ Partial Class Ventas
 
             Dim RestringirAlmacenes As Integer = -1
 
-            Dim BuscarEnTabla As Boolean = True
-
-            Dim ObjInventarios As New ClsInventarios()
-            If ObjInventarios.GetExistenciasProducto(GvRow.DataKey("CvePS").ToEntero(), -1, UsuarioActual.CveEmpresa, -1, FechaMovto:=DateTime.Today.AddDays(1).ToString("yyyy/MM/dd HH:mm"),
-                                                     ExcluyeApartados:=-1, ExcluyeAdelantado:=1, CveSubProyecto:=-1,
-                                                     ExcluyeTransitorios:=1, RestringirAlmacenes:=RestringirAlmacenes, TopSelect:=100, BuscarEnTabla:=BuscarEnTabla) Then
-                GvVerExistencias.DataSource = ObjInventarios.DtResultados.Copy()
-            End If
-            ObjInventarios.Dispose()
-
+            Dim BuscarEnTabla As Boolean = True
+
+            Dim ObjInventarios As New ClsInventarios()
+            If ObjInventarios.GetExistenciasProducto(GvRow.DataKey("CvePS").ToEntero(), -1, UsuarioActual.CveEmpresa, -1, FechaMovto:=DateTime.Today.AddDays(1).ToString("yyyy/MM/dd HH:mm"),
+                                                     ExcluyeApartados:=-1, ExcluyeAdelantado:=1, CveSubProyecto:=-1,
+                                                     ExcluyeTransitorios:=1, RestringirAlmacenes:=RestringirAlmacenes, TopSelect:=100, BuscarEnTabla:=BuscarEnTabla) Then
+                GvVerExistencias.DataSource = ObjInventarios.DtResultados.Copy()
+            End If
+            ObjInventarios.Dispose()
+
             GvVerExistencias.DataBind()
 
             UpVerExistencias.Update()
@@ -38738,7 +38787,7 @@ Partial Class Ventas
     End Sub
 
     Private Sub DdlMetodoCliente_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlMetodoCliente.SelectedIndexChanged
-        DdlFormaCliente.Items.Clear()
+
         If DdlMetodoCliente.SelectedValue = "3" Then
             DdlFormaCliente.DataSource = GlobalDTVtaFormaPago.FiltraParametros("CveFormaPago = 20")
         Else
@@ -38746,6 +38795,10 @@ Partial Class Ventas
         End If
         DdlFormaCliente.DataBind()
 
+        If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
+            DdlFormaCliente.SelectedValueExist("1")
+        End If
+
     End Sub
 
     Private Sub AsignaMedicoProcedimientoFacturaRemisionesModal()
@@ -39863,18 +39916,18 @@ Partial Class Ventas
     End Function
     Protected Sub GvVerExistencias_RowDataBound(sender As Object, e As GridViewRowEventArgs)
         If e.Row.RowType = DataControlRowType.DataRow Then
-            If e.Row.DBCampo("CveAlmacen") = "" Then
-                e.Row.CssClass = "Totales"
+            If e.Row.DBCampo("CveAlmacen") = "" Then
+                e.Row.CssClass = "Totales"
             End If
         End If
     End Sub
 
-    Private Sub CargaGiro()
-        Dim Dt As DataTable = GlobalDTClienteClasificaciones(UsuarioActual.CveEmpresa)
-        DdlGiro.DataSource = Dt
-        DdlGiro.DataBind()
-        DdlGiro.Items.Insert(0, New ListItem("Seleccione", "-1"))
-        UpAgregarCliente.Update()
+    Private Sub CargaGiro()
+        Dim Dt As DataTable = GlobalDTClienteClasificaciones(UsuarioActual.CveEmpresa)
+        DdlGiro.DataSource = Dt
+        DdlGiro.DataBind()
+        DdlGiro.Items.Insert(0, New ListItem("Seleccione", "-1"))
+        UpAgregarCliente.Update()
     End Sub
 
 
@@ -40058,9 +40111,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