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,6 +1021,26 @@ Public Class ClsClientes
         Return Retorno
     End Function
 
+
+    Public Function GetEstados(Optional ClaveSATPais As String = "-1") As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_ClientesEstadosGet")
+
+        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
 

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)