Clientes Estados

TareasProgramadas/Tareas119.ashx

@@ -81,6 +81,27 @@ public class TareasJam : IHttpHandler
 
         ObjGenerales.Dispose();
 
+        DTProductos.Columns[0].ColumnName = "Código Producto Interno ";
+        DTProductos.Columns[1].ColumnName = "Nombre del Producto";
+        DTProductos.Columns[2].ColumnName = "Presentación";
+        DTProductos.AcceptChanges();
+
+
+        DTClientes.Columns[4].ColumnName = "address.countryId";
+        DTClientes.Columns[5].ColumnName = "address.stateId";
+        DTClientes.Columns[6].ColumnName = "address.city";
+        DTClientes.Columns[7].ColumnName = "address.street1";
+        DTClientes.Columns[8].ColumnName = "address.street2";
+        DTClientes.Columns[9].ColumnName = "address.postalCode";
+        DTClientes.Columns[9].ColumnName = "phone.intCode";
+        DTClientes.Columns[9].ColumnName = "phone.areaCode";
+        DTClientes.Columns[9].ColumnName = "phone.number";
+        DTClientes.Dispose();
+
+        DTVentas.Columns.RemoveAt(7);
+        DTVentas.AcceptChanges();
+
+
         if (!ErrorProceso)
         {
             string RutaProductos = $@"{ HttpContext.Current.Server.MapPath("~") }Temp\Productos{DateTime.Now.ToString("yyyyMMdd")}.xlsx";
@@ -125,13 +146,13 @@ public class TareasJam : IHttpHandler
 
 
             var workbookAlmacenes = new ExcelFile();
-            var worksheetAlmacenes = workbookClientes.Worksheets.Add("Almacenes");
+            var worksheetAlmacenes = workbookAlmacenes.Worksheets.Add("Almacenes");
             worksheetAlmacenes.InsertDataTable(DTAlmacenes, new InsertDataTableOptions()
             {
                 ColumnHeaders = true,
                 StartRow = 0
             });
-            workbookClientes.Save(RutaAlmacenes);
+            workbookAlmacenes.Save(RutaAlmacenes);
 
 
             var FInfoProductos = new FileInfo(RutaProductos);

Ventas/Clientes.aspx

@@ -423,7 +423,8 @@
                                             <label for="<%= TxtCiudad.ClientID.ToString()%>">Municipio/Delegación: </label>
                                             <i></i>
                                         </div>
-                                        <div class="form-group form-md-line-input input-iconright">
+
+                                        <%--<div class="form-group form-md-line-input input-iconright">
                                             <asp:TextBox ID="TxtEstado" runat="server" CssClass="form-control" MaxLength="25"></asp:TextBox>
                                             <asp:RequiredFieldValidator ID="RFVEstado" runat="server" ControlToValidate="TxtEstado" 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="<%= TxtEstado.ClientID.ToString()%>">Estado:</label>
@@ -431,6 +432,29 @@
                                         </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>
+                                            <label for="<%= TxtPais.ClientID.ToString()%>">País:</label>
+                                            <i></i>
+                                        </div>
+
+                                         
+                                        --%>
+
+                                        <div class="form-group form-md-line-input input-iconright">
+                                            <asp:DropDownList ID="DdlSATPais"  runat="server" CssClass="form-control input-sm select2me" OnSelectedIndexChanged="DdlSATPais_SelectedIndexChanged" AutoPostBack="true">
+                                                <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
+                                                <asp:ListItem  Value="MEX" Text="México"></asp:ListItem>
+                                                <asp:ListItem   Value="USA" Text="USA"></asp:ListItem>
+                                                <asp:ListItem   Value="CAN" Text="Canada"></asp:ListItem>
+                                            </asp:DropDownList>
+
+                                             <asp:RequiredFieldValidator ID="RequiredFieldValidator19" runat="server" InitialValue="-1" ControlToValidate="DdlSATPais" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Pais''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
+                                            <label for="<%= DdlSATPais.ClientID.ToString()%>">Pais:</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">
@@ -443,12 +467,7 @@
 
 
 
-                                        <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>
-                                            <label for="<%= TxtPais.ClientID.ToString()%>">País:</label>
-                                            <i></i>
-                                        </div>
                                         <div class="form-group form-md-line-input input-iconright" runat="server" visible="False" id="dvZH">
                                             <asp:DropDownList ID="DdlZonaHoraria" DataTextField="DisplayText" DataValueField="CveZonaHoraria" runat="server" CssClass="form-control input-sm select2me">
                                                 <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>

Ventas/Clientes.aspx.vb

@@ -669,6 +669,7 @@ Partial Class Clientes
             CreaDtPago()
             RegistraScript("CargaHeader();")
 
+            CargaEstados()
 
             If UsuarioActual.Empresa.CvePlataforma = 3 Then  'SI ES USUARIO GPS
                 TabFiscalContable.Visible = True
@@ -809,7 +810,7 @@ Partial Class Clientes
                 CreaDTSucursales()
                 CargaDocumentacionCliente()
 
-                TxtPais.Text = "México"
+                'TxtPais.Text = "México"
             End If
 
             If UsuarioActual.Empresa.CvePlataforma = 3 Then
@@ -906,6 +907,11 @@ Partial Class Clientes
 
 
 #Region "C A R G A S"
+
+
+
+
+
     Private Sub CreaDtPago()
         DtPagos = New DataTable
         DtPagos.Columns.Add("CveTipoMovimiento", GetType(String))
@@ -924,7 +930,36 @@ Partial Class Clientes
         DdlClasificacion.DataBind()
         DdlClasificacion.Items.Insert(0, New ListItem("Seleccione", "-1"))
         UpDatos.Update()
+    End Sub
+
+
+
+    Private Sub CargaEstados(Optional ClaveSATPais As String = "MEX")
+
+        DdlEstadoSAT.Items.Clear()
+
+        Dim ObjCliente As New ClsClientes
+
+
+
+        If ObjCliente.GetEstados(ClaveSATPais) Then
+            DdlEstadoSAT.DataSource = ObjCliente.DtResultados.Copy
+        End If
+
+
+
+
+        ObjCliente.Dispose()
+
+        DdlEstadoSAT.DataBind()
+        DdlEstadoSAT.Items.Insert(0, New ListItem("Seleccione", "-1"))
+        'DdlEstadoSAT.SelectedValue = "-1"
+
+        UpDatos.Update()
+
+
     End Sub
+
     Private Sub CargaResponsables()
         Dim Dt As DataTable = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros("True", "Nombre")
         DdlResponsable.DataSource = Dt.FiltraParametros("", "", {"CveUsuario", "Nombre"})
@@ -974,14 +1009,12 @@ Partial Class Clientes
                 DdlClienteSucursal.DataSource = ObjCliente.DtResultados
                 DdlClienteSucursalEnvio.DataSource = ObjCliente.DtResultados
             End If
-        End If
+        End If
-
+
-
+
-
+
-        If ObjCliente.GetEstados("-1") Then
+
-            DdlEstadoSAT.DataSource = ObjCliente.DtResultados.Copy
+
-        End If
-
         ObjCliente.Dispose()
 
         DdlSucursalCliente.DataBind()
@@ -995,12 +1028,10 @@ Partial Class Clientes
 
         DdlClienteSucursalEnvio.DataBind()
         DdlClienteSucursalEnvio.Items.Insert(0, New ListItem("Seleccione", "-1"))
-        DdlClienteSucursalEnvio.SelectedValue = "-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
@@ -1175,8 +1206,10 @@ Partial Class Clientes
         End If
 
 
-        CargaCombosComercioExterior()
+        CargaCombosComercioExterior()
-
+
+
+
     End Sub
     Private Sub CargaSubProyectoss()
         DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1).FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
@@ -1400,8 +1433,8 @@ Partial Class Clientes
                 TxtColonia.Text = ObjClientes.Colonia
                 TxtLocalidad.Text = ObjClientes.Localidad
                 TxtCiudad.Text = ObjClientes.Ciudad
-                TxtEstado.Text = ObjClientes.Estado
+                'TxtEstado.Text = ObjClientes.Estado
-                TxtPais.Text = ObjClientes.Pais
+                'TxtPais.Text = ObjClientes.Pais
                 TxtRFC.Text = ObjClientes.RFC
                 TxtCP.Text = ObjClientes.CP.ToString
                 TxtTelefono.Text = ObjClientes.Telefono
@@ -1525,8 +1558,12 @@ Partial Class Clientes
                 CargaEstado()
 
 
-                DdlEstadoSAT.SelectedValueExist(ObjClientes.CveSATEstado)
+                CargaEstados(ObjClientes.DtResultados(0)("SATPais").ToString)
 
+                DdlSATPais.SelectedValueExist(ObjClientes.DtResultados(0)("SATPais").ToString)
+                DdlEstadoSAT.SelectedValueExist(ObjClientes.CveSATEstado)
+
+
                 If DdlPais.SelectedValue.Contiene("151", "66", "40") Then
                     DdlEstado.Visible = True
                     DdlEstado.SelectedValueExist(ObjClientes.CveEstado)
@@ -2443,7 +2480,7 @@ Partial Class Clientes
 
 
 
-            If ObjClientes.AddCliente(TxtNombre.Text.Trim, TxtNombreComercial.Text.Trim, TxtDireccion.Text.Trim, TxtNoExt.Text.Trim, TxtNoInt.Text.Trim, TxtColonia.Text.Trim, TxtLocalidad.Text.Trim, TxtCiudad.Text.Trim, TxtEstado.Text.Trim, TxtPais.Text.Trim, TxtRFC.Text.Trim, TxtCP.Text.Trim, TxtTelefono.Text.Trim.Trim.Replace(" ", "").Replace("(", "").Replace(")", "").Replace("-", "").Replace("_", ""),
+            If ObjClientes.AddCliente(TxtNombre.Text.Trim, TxtNombreComercial.Text.Trim, TxtDireccion.Text.Trim, TxtNoExt.Text.Trim, TxtNoInt.Text.Trim, TxtColonia.Text.Trim, TxtLocalidad.Text.Trim, TxtCiudad.Text.Trim, DdlEstadoSAT.SelectedItem.Text.Trim, DdlSATPais.SelectedItem.Text.Trim, TxtRFC.Text.Trim, TxtCP.Text.Trim, TxtTelefono.Text.Trim.Trim.Replace(" ", "").Replace("(", "").Replace(")", "").Replace("-", "").Replace("_", ""),
                                     TxtContacto.Text.Trim, TxtEmail.Text.Trim, TxtEmailCotizacion.Text.Trim, TxtNotificar.Text.Trim, TxtPagina.Text.Trim, TxtGiro.Text.Trim, DdlPrecioLista.SelectedValue.ToEntero, ChkMail.Checked, TxtRetIVA.Text.ToDouble,
                                     TxtRetISR.Text.ToDouble, ChkRetIVAFletesAcarreos.Checked, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, TxtNombreCorto.Text.Trim, DdlVendedor.SelectedValue.ToEntero, TxtPlazoCobranza.Text.Trim.ToEntero, TxtPlazoCobranzaRemision.Text.Trim.ToEntero,
                                     DiasPago, DdlTipoPago.SelectedValue, DdlCtaContableClientes.SelectedValue.ToEntero, DdlCtaContableClientes.SelectedItem.Text, DdlCtaContableAnticipos.SelectedValue.ToEntero,
@@ -2538,7 +2575,7 @@ Partial Class Clientes
                 NombreCliente = TxtNombre.Text.Trim()
             End If
 
-            If ObjClientes.UpdateCliente(NombreCliente, TxtNombreComercial.Text.Trim, TxtDireccion.Text.Trim, TxtNoExt.Text.Trim, TxtNoInt.Text.Trim, TxtColonia.Text.Trim, TxtLocalidad.Text.Trim, TxtCiudad.Text.Trim, TxtEstado.Text.Trim, TxtPais.Text.Trim, TxtRFC.Text.Trim, TxtCP.Text.Trim,
+            If ObjClientes.UpdateCliente(NombreCliente, TxtNombreComercial.Text.Trim, TxtDireccion.Text.Trim, TxtNoExt.Text.Trim, TxtNoInt.Text.Trim, TxtColonia.Text.Trim, TxtLocalidad.Text.Trim, TxtCiudad.Text.Trim, DdlEstadoSAT.SelectedItem.Text.Trim, DdlSATPais.SelectedItem.Text.Trim, TxtRFC.Text.Trim, TxtCP.Text.Trim,
                                         TxtTelefono.Text.Trim.Replace(" ", "").Replace("(", "").Replace(")", "").Replace("-", "").Replace("_", ""), TxtContacto.Text.Trim, TxtEmail.Text.Trim, TxtEmailCotizacion.Text.Trim, TxtNotificar.Text.Trim, TxtPagina.Text, TxtGiro.Text, DdlPrecioLista.SelectedValue.ToEntero, ChkMail.Checked, TxtRetIVA.Text.ToDouble, TxtRetISR.Text.ToDouble, ChkRetIVAFletesAcarreos.Checked,
                                         ChkEstado.Checked, TxtNombreCorto.Text.Trim, DdlVendedor.SelectedValue.ToEntero, TxtPlazoCobranza.Text.Trim.ToEntero, TxtPlazoCobranzaRemision.Text.Trim.ToEntero, DiasPago, DdlTipoPago.SelectedValue,
                                         DdlCtaContableClientes.SelectedValue.ToEntero, DdlCtaContableClientes.SelectedItem.Text, DdlCtaContableAnticipos.SelectedValue.ToEntero, DdlCtaContableAnticipos.SelectedItem.Text, DdlCtaContableRetIVA.SelectedValue.ToEntero, DdlCtaContableClientes.SelectedItem.Text, DdlCtaContableRetISR.SelectedValue.ToEntero,
@@ -10107,6 +10144,9 @@ Partial Class Clientes
     End Sub
     Protected Sub btnupEventoBitacora_Click(sender As Object, e As EventArgs)
         CargaEventoBitacora()
-    End Sub
+    End Sub
+    Protected Sub DdlSATPais_SelectedIndexChanged(sender As Object, e As EventArgs)
+        CargaEstados(DdlSATPais.SelectedValue)
+    End Sub
 End Class