-- cambios Estados.

2020-06-30 20:49:31 -07:00
parent f2d48fbc64
commit 2e9b686e56
6 changed files with 95 additions and 94 deletions
--- a/Ventas/Clientes.aspx.vb
+++ b/Ventas/Clientes.aspx.vb
@@ -937,27 +937,12 @@ Partial Class Clientes
    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.DataSource = GlobalDTEstado(ClaveSATPais)

        DdlEstadoSAT.DataBind()
-        DdlEstadoSAT.Items.Insert(0, New ListItem("Seleccione", "-1"))
-        'DdlEstadoSAT.SelectedValue = "-1"
-
+        DdlEstadoSAT.Items.Insert(0, New ListItem("Seleccione", "-1"))
        UpDatos.Update()

-
    End Sub

    Private Sub CargaResponsables()
--- a/Ventas/Ventas.aspx
+++ b/Ventas/Ventas.aspx
@@ -1297,6 +1297,14 @@
                                                        </div>
                                                    </ContentTemplate>
                                                </asp:UpdatePanel>
+                                                 <div id="DivOCRelacionadas" class="modal ADS fade" role="dialog" runat="server" visible="false">
+                                                   <asp:GridView runat="server" ID="GvOCRelacionadas" Caption="Ordenes de Compra Relacionadas:" AutoGenerateColumns="False" DataKeyNames="CveOrdenCompra,Folio" 
+                                                                    CssClass="table table-striped table-advance table-hover Widthall  mysmallbtn" GridLines="None" ShowHeader="False">
+                                                                    <Columns>
+                                                                        <asp:HyperLinkField DataTextField="Folio" DataNavigateUrlFields="CveOrdenCompra" DataNavigateUrlFormatString="/OC/OC.aspx?OC={0}" />
+                                                                    </Columns>
+                                                                </asp:GridView>
+                                                 </div>
                                            </div>
                                        </div>
                                        <div class="col-md-6 ">
@@ -3293,20 +3301,7 @@
                            <tr align="left" id="trCorreoNotif2" runat="server" visible="false">
                                <td>
                                    <asp:TextBox ID="TxtCorreoNotificaciones" runat="server" Width="100%" CssClass="form-control"></asp:TextBox></td>
-                            </tr>
-                            <tr align="left" id="trOCRelacionadasLabel" runat="server" visible="false">
-                                <td id="Td3" runat="server">Ordenes de Compra Relacionadas:&nbsp;</td>
-                            </tr>
-                            <tr align="left" id="trOCRelacionadas" runat="server" visible="false">
-                                <td>
-                                    <asp:GridView runat="server" ID="GvOCRelacionadas" AutoGenerateColumns="False" DataKeyNames="CveOrdenCompra,Folio" 
-                                        CssClass="table table-striped table-advance table-hover Widthall  mysmallbtn" GridLines="None" ShowHeader="False">
-                                        <Columns>
-                                            <asp:HyperLinkField DataTextField="Folio" DataNavigateUrlFields="CveOrdenCompra" DataNavigateUrlFormatString="/OC/OC.aspx?OC={0}" />
-                                        </Columns>
-                                    </asp:GridView>
-                                </td>
-                            </tr>
+                            </tr>                            
                            <tr align="left" id="trPaqueteriOpcionesLabel" runat="server" visible="false">
                                <td id="Td2" runat="server">Tipo de Entrega:&nbsp;</td>
                            </tr>
@@ -3691,7 +3686,7 @@
            </ContentTemplate>
        </asp:UpdatePanel>
    </div>
-
+     
    <div id="ModalOtrosConceptos" class="modal ADS fade" role="dialog">
        <div class="modal-dialog">

@@ -6399,15 +6394,24 @@
                                    </div>
                                </div>
                                <div id="DivEstadoPaisCliente" runat="server" visible="false" class="row" style="padding-left: 16px;">
+                                    
                                    <div class="form-group form-md-line-input input-iconright col-xs-6">
-                                        <asp:TextBox ID="TxtEstadoCliente" CssClass="form-control " runat="server" MaxLength="35" CausesValidation="true"></asp:TextBox>
-                                        <asp:RequiredFieldValidator ID="RFVEstadoC" runat="server" ControlToValidate="TxtEstadoCliente" 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="GrpGuardarCliente"></asp:RequiredFieldValidator>
-                                        <label for="<%= TxtEstadoCliente.ClientID.ToString()%>">Estado:</label>
+                                       <asp:DropDownList ID="DdlSATPais"  runat="server" CssClass="form-control input-sm select2me" OnSelectedIndexChanged="DdlSATPais_SelectedIndexChanged" AutoPostBack="true">
+                                                <asp:ListItem Text="Seleccione" Value="-1"></asp:ListItem>
+                                                <asp:ListItem  Value="MEX" Text="México"  Selected="True"></asp:ListItem>
+                                                <asp:ListItem   Value="USA" Text="USA"></asp:ListItem>
+                                                <asp:ListItem   Value="CAN" Text="Canada"></asp:ListItem>
+                                            </asp:DropDownList>
+
+                                             <asp:RequiredFieldValidator ID="RFVSATPais" 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>
                                    </div>
                                    <div class="form-group form-md-line-input input-iconright col-xs-6">
-                                        <asp:TextBox ID="TxtPaisCliente" CssClass="form-control " Text="Mexico" runat="server" MaxLength="50" CausesValidation="true"></asp:TextBox>
-                                        <asp:RequiredFieldValidator ID="RFVPaisC" runat="server" ControlToValidate="TxtPaisCliente" 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="GrpGuardarCliente"></asp:RequiredFieldValidator>
-                                        <label for="<%= TxtPaisCliente.ClientID.ToString()%>">País:</label>
+                                         <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>                                            
                                    </div>
                                </div>
                                <div id="DivCorreoCuentaCliente" runat="server" visible="false" class="row" style="padding-left: 16px;">
@@ -7667,8 +7671,8 @@
            $('#<%= TxtTelefonoCliente.ClientID  %>').val('');
            $('#<%= TxtCiudadCliente.ClientID  %>').val('');
            $('#<%= TxtLocalidadCliente.ClientID  %>').val('');
-            $('#<%= TxtEstadoCliente.ClientID  %>').val('');
-            $('#<%= TxtPaisCliente.ClientID  %>').val('');
+            $('#<%= DdlSATPais.ClientID  %>').val('');
+            $('#<%= DdlEstadoSAT.ClientID  %>').val('');
            $('#<%= TxtCorreoCliente.ClientID  %>').val('');

            $('#divAgregarCliente').modal();
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -2049,7 +2049,7 @@ Partial Class Ventas
                    DdlSubProyectoDatos.Enabled = False
                    BtnEmitirImprimir.Visible = False
                    BtnCrearApartirDe.Visible = True
-                    BtnEditar.Visible = True
+                    If UsuarioActual.TienePermisoProceso(302) Then BtnEditar.Visible = True
                    'DdlEstatus.Enabled = True

                    DivFechaAnticipoCliente.Visible = True
@@ -2107,8 +2107,7 @@ Partial Class Ventas
                        DivDevAlm.Visible = True
                    End If

-                    'CARGA GV DE OC RELACIONADAS
-                    CargarOCRelacionadas()
+
                End If
            Else
                If Request("CveOS") IsNot Nothing AndAlso IsNumeric(Request("CveOS")) AndAlso Request("CveOS").ToEntero() > 0 Then
@@ -3564,6 +3563,19 @@ Partial Class Ventas
        End If
    End Sub

+    Private Sub CargaEstados(Optional ClaveSATPais As String = "MEX")
+
+        DdlEstadoSAT.Items.Clear()
+        DdlEstadoSAT.DataSource = GlobalDTEstado(ClaveSATPais)
+
+        DdlEstadoSAT.DataBind()
+        DdlEstadoSAT.Items.Insert(0, New ListItem("Seleccione", "-1"))
+
+    End Sub
+    Protected Sub DdlSATPais_SelectedIndexChanged(sender As Object, e As EventArgs)
+        CargaEstados(DdlSATPais.SelectedValue)
+    End Sub
+
    Private Function CargaVenta() As Boolean

        Dim Retorno As Boolean = False
@@ -4477,12 +4489,22 @@ Partial Class Ventas

                    DdlTipoRetencion.SelectedValueExist(DbRowVenta("CveTipoRetencion").ToString())

-                    CargaPS(-1, DdlPS)
+                CargaPS(-1, DdlPS)

-                    UpPS.Update()
-                    UpContado.Update()
-                    UpEstatus.Update()
-                    Retorno = True
+                'CARGA GV DE OC RELACIONADAS
+                If CveVenta > 0 AndAlso ObjVentas.GetOCRelacionadas(CveVenta) Then
+                    If ObjVentas.DtResultados.Rows.Count > 0 Then
+                        DivOCRelacionadas.Visible = True
+                        GvOCRelacionadas.DataSource = ObjVentas.DtResultados
+
+                    End If
+                End If
+                GvOCRelacionadas.DataBind()
+
+                UpPS.Update()
+                UpContado.Update()
+                UpEstatus.Update()
+                Retorno = True

                Else
                    ViewState("CveVenta") = -1
@@ -18456,6 +18478,7 @@ Partial Class Ventas
        DivBotonesAgregarCliente.Visible = False
        DivFormaCliente.Visible = False
        UpAgregarCliente.Update()
+        CargaEstados()

        RegistraScript("showDivEC();")
    End Sub
@@ -18478,8 +18501,8 @@ Partial Class Ventas
            RFVColoniaC.Visible = False
            RFVCiudadC.Visible = False
            RFVLocalidadC.Visible = False
-            RFVEstadoC.Visible = False
-            RFVPaisC.Visible = False
+            RfvDdlEstadoSAT.Visible = False
+            RFVSATPais.Visible = False

            DdlMetodoCliente.SelectedValueExist(1)
            DdlFormaCliente.SelectedValueExist(1)
@@ -18511,8 +18534,8 @@ Partial Class Ventas
            RFVColoniaC.Visible = True
            RFVCiudadC.Visible = True
            RFVLocalidadC.Visible = True
-            RFVEstadoC.Visible = True
-            RFVPaisC.Visible = True
+            RfvDdlEstadoSAT.Visible = True
+            RFVSATPais.Visible = True

            DdlMetodoCliente.SelectedValueExist(-1)
            DdlFormaCliente.SelectedValueExist(-1)
@@ -18535,8 +18558,8 @@ Partial Class Ventas
        Dim ObjCliente As New ClsClientes

        If ObjCliente.AgregarClienteNoFrecuente(TxtNombreCliente.Text.Trim, TxtDireccionCliente.Text.Trim, TxtNumExtCliente.Text.Trim, TxtNumIntCliente.Text.Trim,
-                                                TxtColoniaCliente.Text.Trim, TxtLocalidadCliente.Text.Trim, TxtCiudadCliente.Text.Trim, TxtEstadoCliente.Text.Trim,
-                                                TxtPaisCliente.Text.Trim, TxtRFCCliente.Text.Trim, TxtCPCliente.Text.Trim, TxtTelefonoCliente.Text.Trim, TxtCorreoCliente.Text.Trim,
+                                                TxtColoniaCliente.Text.Trim, TxtLocalidadCliente.Text.Trim, TxtCiudadCliente.Text.Trim, DdlEstadoSAT.SelectedValue.ToEntero,
+                                                TxtRFCCliente.Text.Trim, TxtCPCliente.Text.Trim, TxtTelefonoCliente.Text.Trim, TxtCorreoCliente.Text.Trim,
                                                DdlSubProyectoDatos.SelectedValue.ToEntero(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, "", -1, -1, CvePrecioLista:=CvePrecioLista) Then
            If ObjCliente.DtResultados.Rows.Count > 0 Then
                RegistraScript("hideDivEC();")
@@ -21273,6 +21296,11 @@ Partial Class Ventas
        Dim TempCliente As Integer = If(CveVenta <= 0, CveCliente, -1)
        Dim TipoDocumento As Integer = If(CveVenta <= 0, 14, -1)

+        If CveVenta <= 0 AndAlso TempCliente <= 0 Then
+            Dim a As String = "carga de docuemntacion del cleinte, masivo, corregir"
+            a.GuardaLog()
+        End If
+
        If objRH.DocumentacionElectronicaGet(-1, TempCliente, -1, UsuarioActual.CveEmpresa, TipoDocumento, CveVenta) Then
            DtDocumentacionCliente = objRH.DtResultados.FiltraParametros("CveDocumentacionElectronica > 0")
            DtDocumentacionCliente.Columns.Add("Accion", Type.GetType("System.String"))
@@ -25952,26 +25980,6 @@ Partial Class Ventas
        'MailCls = Nothing
    End Sub

-    Private Sub CargarOCRelacionadas()
-        Dim GridViewPSAux As GridView = GvPS
-        Dim CveVentasDetalle As New StringBuilder()
-        For Each vd As GridViewRow In GridViewPSAux.Rows
-            Dim CveVentaDetalle As String = vd.DataKey("CveVentaDetalle")
-            CveVentasDetalle.AppendFormat("{0},", CveVentaDetalle)
-        Next
-        Dim ObjVentas As New ClsVentas()
-        If ObjVentas.GetOCRelacionadas(CveVentasDetalle.ToString) Then
-            Dim OC As DataTable = ObjVentas.DtResultados
-            If OC.Rows.Count > 0 Then
-                trOCRelacionadasLabel.Visible = True
-                trOCRelacionadas.Visible = True
-                GvOCRelacionadas.DataSource = OC
-                GvOCRelacionadas.DataBind()
-            End If
-        End If
-        ObjVentas.Dispose()
-    End Sub
-
    Protected Sub BtnEditar_Click() Handles BtnEditar.Click
        Dim Opcion As String = BtnEditar.Text
        If Opcion = "Editar" Then