Clientes estados

App_Code/ClsClientes.vb

@@ -166,6 +166,7 @@ Public Class ClsClientes
 
     Public Property CargoUsados As Boolean
     Public Property BonificacionUsado As Boolean
+    Public Property CveSATEstado As Integer
 
 
     Public ReadOnly Property DtResultados() As DataTable
@@ -426,6 +427,7 @@ Public Class ClsClientes
                 _RequiereOC = CBool(Data(0)("RequiereOC"))
                 _CargoUsados = CBool(Data(0)("CargoUsado"))
                 _BonificacionUsado = CBool(Data(0)("BonificacionUsado"))
+                _CveSATEstado = Data(0)("CveSATEstado").ToString.ToEntero
 
             End If
             Retorno = True
@@ -574,7 +576,7 @@ Public Class ClsClientes
                                Optional AplicaComercioExterior As Boolean = False, Optional CveTipoOperacion As Integer = -1, Optional CvePedimento As Integer = -1, Optional CveIncoterm As Integer = -1, Optional CvePais As Integer = -1, Optional CveEstado As Integer = -1, Optional CveMunicipio As Integer = -1, Optional CveColonia As Integer = -1,
                                Optional CveMotivoTraslado As Integer = 0, Optional NumRegIdTrib As String = "", Optional ComExtEstado As String = "-1", Optional ComExtMunicipio As String = "-1", Optional ComExtColonia As String = "-1", Optional RequiereOC As Boolean = False,
                                Optional LT As String = "0", Optional LG As String = "0", Optional EsDistribuidor As Boolean = False, Optional TipoCliente As Integer = 1, Optional CargoUsado As Boolean = False, Optional BonificacionUsado As Boolean = False, Optional CveTipoRetencion As Integer = 0,
-                               Optional CorreoEntregaCompras As String = "-1", Optional CorreoEntregaAlmacen As String = "-1") As Boolean
+                               Optional CorreoEntregaCompras As String = "-1", Optional CorreoEntregaAlmacen As String = "-1", Optional CveSATEstado As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
 
 
@@ -714,6 +716,9 @@ Public Class ClsClientes
 
             .Add("@CorreoEntregaCompras", SqlDbType.VarChar).Value = CorreoEntregaCompras
             .Add("@CorreoEntregaAlmacen", SqlDbType.VarChar).Value = CorreoEntregaAlmacen
+            .Add("@CveSATEstado", SqlDbType.Int).Value = CveSATEstado
+
+
         End With
         Try
             SqlAdapter.Fill(Data)
@@ -757,7 +762,8 @@ Public Class ClsClientes
                                 Optional AplicaComercioExterior As Boolean = False, Optional CveTipoOperacion As Integer = -1, Optional CvePedimento As Integer = -1, Optional CveIncoterm As Integer = -1, Optional CvePais As Integer = -1, Optional CveEstado As Integer = -1, Optional CveMunicipio As Integer = -1, Optional CveColonia As Integer = -1,
                                 Optional CveMotivoTraslado As Integer = 0, Optional NumRegIdTrib As String = "-1", Optional ComExtEstado As String = "-1", Optional ComExtMunicipio As String = "-1", Optional ComExtColonia As String = "-1",
                                 Optional ApellidoPaternoPF As String = "-1", Optional ApellidoMaternoPF As String = "-1", Optional NombresPF As String = "-1", Optional RequiereOC As Boolean = False,
-                                Optional LT As String = "0", Optional LG As String = "0", Optional EsDistribuidor As Boolean = False, Optional TipoCliente As Integer = 1, Optional CargoUsado As Boolean = False, Optional BonificacionUsado As Boolean = False, Optional CveTipoRetencion As Integer = 0, Optional CorreoEntregaCompras As String = "-1", Optional CorreoEntregaAlmacen As String = "-1") As Boolean
+                                Optional LT As String = "0", Optional LG As String = "0", Optional EsDistribuidor As Boolean = False, Optional TipoCliente As Integer = 1, Optional CargoUsado As Boolean = False, Optional BonificacionUsado As Boolean = False, Optional CveTipoRetencion As Integer = 0, Optional CorreoEntregaCompras As String = "-1", Optional CorreoEntregaAlmacen As String = "-1",
+                                Optional CveSATEstado As Integer = -1) As Boolean
 
         Dim Retorno As Boolean = False
 
@@ -911,6 +917,10 @@ Public Class ClsClientes
 
             .Add("@CorreoEntregaCompras", SqlDbType.VarChar).Value = CorreoEntregaCompras
             .Add("@CorreoEntregaAlmacen", SqlDbType.VarChar).Value = CorreoEntregaAlmacen
+            .Add("@CveSATEstado", SqlDbType.Int).Value = CveSATEstado
+
+
+
         End With
         Try
             SqlAdapter.Fill(Data)
@@ -1011,21 +1021,41 @@ Public Class ClsClientes
         Return Retorno
     End Function
 
-    'Public Function GetSucursales(CveCliente As Integer, CveClienteSucursal As Integer) As Boolean
-    '    Dim Retorno As Boolean = False
 
-    '    DataAdapter("PA_Vta_SucursalClientePopUpGet")
+    Public Function GetEstados(Optional ClaveSATPais As String = "-1") As Boolean
-    '    SqlAdapter.SelectCommand.Parameters.Add("@CveCliente", SqlDbType.Int).Value = CveCliente
+        Dim Retorno As Boolean = False
-    '    SqlAdapter.SelectCommand.Parameters.Add("@CveClienteSucursal", SqlDbType.Int).Value = CveClienteSucursal
-    '    Try
-    '        SqlAdapter.Fill(Data)
-    '        Retorno = True
-    '    Catch ex As Exception
-    '        OnError("Ocurrió un error al obtener el las Sucursales del Cliente.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-    '    End Try
 
-    '    Return Retorno
+        DataAdapter("PA_ClientesEstadosGet")
-    'End Function
+
+        SqlAdapter.SelectCommand.Parameters.Add("@ClaveSATPais", SqlDbType.VarChar).Value = ClaveSATPais
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener el los estados.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+
+
+    'Public Function GetSucursales(CveCliente As Integer, CveClienteSucursal As Integer) As Boolean
+    '    Dim Retorno As Boolean = False
+
+    '    DataAdapter("PA_Vta_SucursalClientePopUpGet")
+    '    SqlAdapter.SelectCommand.Parameters.Add("@CveCliente", SqlDbType.Int).Value = CveCliente
+    '    SqlAdapter.SelectCommand.Parameters.Add("@CveClienteSucursal", SqlDbType.Int).Value = CveClienteSucursal
+    '    Try
+    '        SqlAdapter.Fill(Data)
+    '        Retorno = True
+    '    Catch ex As Exception
+    '        OnError("Ocurrió un error al obtener el las Sucursales del Cliente.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+    '    End Try
+
+    '    Return Retorno
+    'End Function
     Public Function AddSucursal(CveCliente As Integer, Sucursal As String, CveUsuario As Integer, Ciudad As String, Colonia As String, CP As String, Direccion As String, Estado As String, Localidad As String, Pais As String, NoExt As String, NoInt As String, Telefono As String, Correo As String, CorreoCotizacion As String, Contacto As String, CveVendedor As Integer, NumCtaPago As String, CveMetodoPago As Integer,
                                 LimiteCredito As Decimal, CveResponsableSucursal As Integer, CveUsoCFDI As Integer, CveFormaPago33 As Integer, CveMetodoPago33 As Integer, Optional LT As String = "0", Optional LG As String = "0") As Boolean
         Dim Retorno As Boolean = False

Ventas/Clientes.aspx

@@ -429,6 +429,20 @@
                                             <label for="<%= TxtEstado.ClientID.ToString()%>">Estado:</label>
                                             <i></i>
                                         </div>
+
+
+
+                                        <div class="form-group form-md-line-input input-iconright">
+                                            <asp:DropDownList ID="DdlEstadoSAT" DataTextField="NombreEstado" DataValueField="CveSATEstado" runat="server" CssClass="form-control input-sm select2me">
+                                                <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
+                                            </asp:DropDownList>
+                                             <asp:RequiredFieldValidator ID="RfvDdlEstadoSAT" runat="server" InitialValue="-1" ControlToValidate="DdlEstadoSAT" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Estado''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
+                                            <label for="<%= DdlEstadoSAT.ClientID.ToString()%>">Estado:</label>
+                                            <i></i>
+                                        </div>
+
+
+
                                         <div class="form-group form-md-line-input input-iconright">
                                             <asp:TextBox ID="TxtPais" runat="server" CssClass="form-control" MaxLength="25"></asp:TextBox>
                                             <asp:RequiredFieldValidator ID="RFVPais" runat="server" ControlToValidate="TxtPais" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''País''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>

Ventas/Clientes.aspx.vb

@@ -658,6 +658,7 @@ Partial Class Clientes
     End Property
 
 #End Region
+
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not IsPostBack Then
 
@@ -975,7 +976,14 @@ Partial Class Clientes
             End If
         End If
 
+
+
+        If ObjCliente.GetEstados("-1") Then
+            DdlEstadoSAT.DataSource = ObjCliente.DtResultados.Copy
+        End If
+
         ObjCliente.Dispose()
+
         DdlSucursalCliente.DataBind()
         DdlSucursalCliente.Items.Insert(0, New ListItem("Matriz", "0"))
         DdlSucursalCliente.Items.Insert(0, New ListItem("Todas", "-1"))
@@ -988,6 +996,11 @@ Partial Class Clientes
         DdlClienteSucursalEnvio.DataBind()
         DdlClienteSucursalEnvio.Items.Insert(0, New ListItem("Seleccione", "-1"))
         DdlClienteSucursalEnvio.SelectedValue = "-1"
+
+        DdlEstadoSAT.DataBind()
+        DdlEstadoSAT.Items.Insert(0, New ListItem("Seleccione", "-1"))
+        DdlEstadoSAT.SelectedValue = "-1"
+
     End Sub
     Private Sub CargaGridRetenciones()
         Dim ObjClientes As New ClsClientes
@@ -1511,6 +1524,9 @@ Partial Class Clientes
                 DdlPais.SelectedValueExist(ObjClientes.CvePais)
                 CargaEstado()
 
+
+                DdlEstadoSAT.SelectedValueExist(ObjClientes.CveSATEstado)
+
                 If DdlPais.SelectedValue.Contiene("151", "66", "40") Then
                     DdlEstado.Visible = True
                     DdlEstado.SelectedValueExist(ObjClientes.CveEstado)
@@ -2443,7 +2459,7 @@ Partial Class Clientes
                                     CveFormaPago33:=DdlFormaPago33.SelectedValue.ToEntero, CveMetodoPago33:=DdlMetodoPago33.SelectedValue.ToEntero, DesglosaIEPS:=ChkDesglosarIEPS.Checked, AplicaComercioExterior:=ChkAplicaComercioExterior.Checked, CveTipoOperacion:=DdlTipoOperacion.SelectedValue.ToEntero, CvePedimento:=DdlClavePedimento.SelectedValue.ToEntero, CveIncoterm:=DdlIncoterm.SelectedValue.ToEntero,
                                     CvePais:=DdlPais.SelectedValue.ToEntero, CveEstado:=DdlEstado.SelectedValue.ToEntero, CveMunicipio:=DdlMunicipio.SelectedValue.ToEntero, CveColonia:=DdlColonia.SelectedValue.ToEntero, CveMotivoTraslado:=IIf(DdlMotivoTraslado.SelectedValue = "-1", "0", DdlMotivoTraslado.SelectedValue).ToString().ToEntero, NumRegIdTrib:=IIf(TxtNumRegIdTrib.Text = "", "-1", TxtNumRegIdTrib.Text).ToString(),
                                     ComExtEstado:=IIf(TxtComExtEstado.Text = "", "-1", TxtComExtEstado.Text).ToString(), ComExtMunicipio:=IIf(TxtComExtMunicipio.Text = "", "-1", TxtComExtMunicipio.Text).ToString(), ComExtColonia:=IIf(TxtComExtColonia.Text = "", "-1", TxtComExtColonia.Text).ToString(), RequiereOC:=ChkRequiereOC.Checked, LT:=LT, LG:=LG, EsDistribuidor:=ChkEsDistribuidor.Checked,
-                                    TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero, CargoUsado:=ChkCargoUsado.Checked, BonificacionUsado:=ChkBonificacionUsado.Checked, CveTipoRetencion:=DdlTipoRetencion.SelectedValue.ToEntero(), CorreoEntregaCompras:=TxtCorreoEntregaCompras.Text, CorreoEntregaAlmacen:=TxtCorreoEntregaAlmacen.Text) Then
+                                    TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero, CargoUsado:=ChkCargoUsado.Checked, BonificacionUsado:=ChkBonificacionUsado.Checked, CveTipoRetencion:=DdlTipoRetencion.SelectedValue.ToEntero(), CorreoEntregaCompras:=TxtCorreoEntregaCompras.Text, CorreoEntregaAlmacen:=TxtCorreoEntregaAlmacen.Text, CveSATEstado:=DdlEstadoSAT.SelectedValue.ToEntero) Then
 
                 ViewState("CveCliente") = ObjClientes.CveCliente
 
@@ -2538,7 +2554,7 @@ Partial Class Clientes
                                         CveMotivoTraslado:=IIf(DdlMotivoTraslado.SelectedValue = "-1", "0", DdlMotivoTraslado.SelectedValue).ToString().ToEntero, NumRegIdTrib:=IIf(TxtNumRegIdTrib.Text = "", "-1", TxtNumRegIdTrib.Text).ToString(),
                                         ComExtEstado:=IIf(TxtComExtEstado.Text = "", "-1", TxtComExtEstado.Text).ToString(), ComExtMunicipio:=IIf(TxtComExtMunicipio.Text = "", "-1", TxtComExtMunicipio.Text).ToString(), ComExtColonia:=IIf(TxtComExtColonia.Text = "", "-1", TxtComExtColonia.Text).ToString(),
                                         ApellidoPaternoPF:=IIf(TxtApellidoPaterno.Text = "", "-1", TxtApellidoPaterno.Text).ToString(), ApellidoMaternoPF:=IIf(TxtApellidoMaterno.Text = "", "-1", TxtApellidoMaterno.Text).ToString(), NombresPF:=IIf(TxtNombres.Text = "", "-1", TxtNombres.Text).ToString(),
-                                        RequiereOC:=ChkRequiereOC.Checked, LT:=LT, LG:=LG, EsDistribuidor:=ChkEsDistribuidor.Checked, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero, CargoUsado:=ChkCargoUsado.Checked, BonificacionUsado:=ChkBonificacionUsado.Checked, CveTipoRetencion:=DdlTipoRetencion.SelectedValue.ToEntero(), CorreoEntregaCompras:=TxtCorreoEntregaCompras.Text, CorreoEntregaAlmacen:=TxtCorreoEntregaAlmacen.Text) Then
+                                        RequiereOC:=ChkRequiereOC.Checked, LT:=LT, LG:=LG, EsDistribuidor:=ChkEsDistribuidor.Checked, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero, CargoUsado:=ChkCargoUsado.Checked, BonificacionUsado:=ChkBonificacionUsado.Checked, CveTipoRetencion:=DdlTipoRetencion.SelectedValue.ToEntero(), CorreoEntregaCompras:=TxtCorreoEntregaCompras.Text, CorreoEntregaAlmacen:=TxtCorreoEntregaAlmacen.Text, CveSATEstado:=DdlEstadoSAT.SelectedValue.ToEntero) Then
 
 
                 ObjClientes.LimpiaImpuestosLocales(CveCliente)