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

2021-06-02 19:27:16 -07:00
parent 3d042799c9 0628aee9e9
commit 7ab23a7341
7 changed files with 59 additions and 25 deletions
--- a/Bancos/CuentasBancariasDetalle.aspx
+++ b/Bancos/CuentasBancariasDetalle.aspx
@@ -61,6 +61,8 @@
                                                    <td>CLABE:</td>
                                                    <td>
                                                        <asp:TextBox ID="TxtCLABE" runat="server" MaxLength="18" Width="200px"></asp:TextBox></td>
+                                                        <asp:RegularExpressionValidator runat="server" id="REVTxtCLABE" controltovalidate="TxtCLABE" validationexpression="^\s*(?:[0-9]{18})\s*$" errormessage="La CLABE debe de tener una longitud de 18 caracteres"  ValidationGroup="GrpGuardar"  />
+                                                        <ajax:ValidatorCalloutExtender ID="CVETxtCLABE" runat="server" HighlightCssClass="vco" TargetControlID="REVTxtCLABE" Width="300px"></ajax:ValidatorCalloutExtender>
                                                </tr>

                                                <tr>
--- a/Contabilidad/RegPrePolizaS.aspx
+++ b/Contabilidad/RegPrePolizaS.aspx
@@ -145,7 +145,7 @@
                                <div class="row">
                                    <label class="col-md-2">Observaciones:</label>
                                    <div class="col-md-5">
-                                        <asp:TextBox ID="TxtObservaciones" CssClass="form-control input-sm" runat="server" MaxLength="100" Width="400px" Rows="3" TextMode="MultiLine"></asp:TextBox>
+                                        <asp:TextBox ID="TxtObservaciones" CssClass="form-control input-sm" runat="server" MaxLength="100" Width="400px" Rows="2" TextMode="MultiLine"></asp:TextBox>
                                    </div>

                                    <label class="col-md-1">Movimiento:</label>
@@ -159,7 +159,7 @@
                                <div class="row" id="trNotificar" runat="server" visible="False">
                                    <label class="col-md-2">Notificar:</label>
                                    <div class="col-md-10">
-                                        <asp:TextBox ID="TxtNotificarA" CssClass="form-control input-sm" runat="server" MaxLength="100" Width="400px" Rows="2" TextMode="MultiLine" ClientIDMode="Static"></asp:TextBox>
+                                        <asp:TextBox ID="TxtNotificarA" CssClass="form-control input-sm" runat="server" MaxLength="100" Width="400px" Rows="1" TextMode="MultiLine" ClientIDMode="Static"></asp:TextBox>
                                    </div>
                                </div>
                                <div class="row" id="trCuentaDeposito" runat="server" visible="False">
@@ -202,9 +202,8 @@
                                                    <asp:DropDownList ID="DdlProveedores" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="RazonSocial" DataValueField="CveProveedor" Width="160px" Visible="false" AutoPostBack="true"></asp:DropDownList><br />
                                                    <asp:DropDownList ID="DdlCompras" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="SerieFolio" DataValueField="CveCompra" Width="160px" Visible="false"></asp:DropDownList><br />
                                                    <asp:DropDownList ID="DdlPersonal" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="NombreCompleto" DataValueField="CvePersonal" Width="160px" Visible="false"></asp:DropDownList>
-                                                    <ADS:Dropdownlost ID="DdlClientes" CssStyle="width: 100%;" CssClassDdl="select2me" runat="server" AppendDataBoundItems="true" DataTextField="NombreComercial" DataValueField="CveCliente" Width="160px" Visible="false" AutoPostBack="true"></ADS:Dropdownlost>
-                                                    <br />
-                                                    <asp:DropDownList ID="DdlVentas" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="Folio" DataValueField="CveVenta" Width="160px" Visible="false"></asp:DropDownList><br />
+                                                    <ADS:Dropdownlost ID="DdlClientes" CssStyle="width: 100%;" CssClassDdl="select2me" runat="server" AppendDataBoundItems="true" DataTextField="NombreComercial" DataValueField="CveCliente" Width="160px" Visible="false" AutoPostBack="true"></ADS:Dropdownlost>                                                     
+                                                    <asp:DropDownList ID="DdlVentas" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="Folio" DataValueField="CveVenta" Width="160px" Visible="false"></asp:DropDownList>
                                                </th>
                                                <th>
                                                    <asp:DropDownList ID="DdlCtaContable" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id" Width="160px">
--- a/Contabilidad/RegPrePolizaS.aspx.vb
+++ b/Contabilidad/RegPrePolizaS.aspx.vb
@@ -1966,8 +1966,15 @@ Partial Class ContabilidadC_RegPrePolizaS
                        Exit For
                    End If

-                    If Row("SubProyecto").ToString <> "" Then
-                        CveSubProyecto = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", String.Format("SubProyecto = '{0}'", Row("SubProyecto"))) 'Row("CveSubProyecto").ToString.ToEntero
+                    If Row("SubProyecto").ToString.Trim <> "" Then
+                        CveSubProyecto = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa, Estatus:=-1).FiltroPrimeroValor("CveSubProyecto", String.Format("SubProyecto = '{0}'", Row("SubProyecto").ToString.Trim)).ToEntero  'Row("CveSubProyecto").ToString.ToEntero
+
+                        If CveSubProyecto = 0 Then
+                            Alert(String.Format("El subproyecto <b>{0}</b> no se reconoció, favor de verificar el archivo.", Row("SubProyecto")))
+                            DtMovimientos.Clear()
+                            Exit For
+                        End If
+
                    End If

                    If CveConceptoContable = 69 Then
@@ -1986,8 +1993,8 @@ Partial Class ContabilidadC_RegPrePolizaS
                    dr("CveConcepto") = CveConceptoContable
                    dr("CveConceptoContable") = CveConceptoContable
                    dr("ConceptoContable") = Row("ConceptoAdministrativo").ToString
-                    dr("Cargo") = Row("Cargo").ToString.ToDecimal
-                    dr("Abono") = Row("Abono").ToString.ToDecimal
+                    dr("Cargo") = Row("Cargo").ToString.ToDecimal.RoundSQL
+                    dr("Abono") = Row("Abono").ToString.ToDecimal.RoundSQL
                    dr("Descripcion") = Row("Concepto").ToString
                    dr("CveSubProyecto") = CveSubProyecto
                    dr("CveProveedor") = -1
@@ -1998,12 +2005,13 @@ Partial Class ContabilidadC_RegPrePolizaS
                    dr("CveVenta") = -1
                    dr("CveCuenta") = CveCuenta

-                    TxtTotalAbonos.Text = (TxtTotalAbonos.Text.ToDouble + TxtAbono.Text.ToDouble).ToString.FormatoNumero
-                    TxtTotalCargos.Text = (TxtTotalCargos.Text.ToDouble + TxtCargo.Text.ToDouble).ToString.FormatoNumero
+
                    DtMovimientos.Rows.Add(dr)
                    DtMovimientos.AcceptChanges()
                Next

+                TxtTotalCargos.Text = DtMovimientos.SUMD("Cargo").ToString.FormatoNumero
+                TxtTotalAbonos.Text = DtMovimientos.SUMD("Abono").ToString.FormatoNumero

                GvMov.DataSource = DtMovimientos
                GvMov.DataBind()
--- a/General/SaldosIniciales.aspx.vb
+++ b/General/SaldosIniciales.aspx.vb
@@ -1109,7 +1109,7 @@ Partial Class General_SaldosIniciales
                    Dim CveMoneda As Integer = 1
                    Dim CveProveedorSucursal As Integer = Row("CveProveedorSucursal").ToString.ToEntero
                    Dim PorcentajeIVA As String = Row("PorcentajeIVA").ToString
-                    Dim ImpuestosLocales As Decimal = If(dt.Columns.Contains("ImpuestosLocalesl"), Row("ImpuestosLocales").ToString, "0").ToDecimal
+                    Dim ImpuestosLocales As Decimal = If(dt.Columns.Contains("ImpuestosLocales"), Row("ImpuestosLocales").ToString, "0").ToDecimal


                    If Not CvePS > 0 Then Alert(String.Format("No se encontró el Producto Servicio"), TipoMensaje.MsgError) : ErrorCompras = True
--- a/OC/OC.aspx
+++ b/OC/OC.aspx
@@ -2545,7 +2545,7 @@
                                    <div class="row">
                                        <label class="col-md-1 ">Clientes:</label>
                                        <div class="col-md-11">
-                                            <asp:DropDownList ID="DdlClientes" CssClass="form-control  select2me" runat="server" AutoPostBack="true" Width="100%" AppendDataBoundItems="true" DataTextField="Nombre" DataValueField="CveCliente"></asp:DropDownList>
+                                             <ADS:Dropdownlost ID="DdlClienteContrato" Width="100%" CssStyle="width: 100%;" UsaWebService="true" AppendDataBoundItems="true" AutoPostBack="true" CssClass="select2me" data-metodo="getcliente" runat="server" DataTextField="NombreComercial" DataValueField="CveCliente"></ADS:Dropdownlost>
                                        </div>
                                    </div>
                                    <div class="row">
--- a/OC/OC.aspx.vb
+++ b/OC/OC.aspx.vb
@@ -677,7 +677,7 @@ Partial Class OC
                    TipoOS = True
                End If

-                BtnGeneraContrato.Visible = True : CargaClientes()
+                BtnGeneraContrato.Visible = True : CargaClientesContrato()

                CargaEstatusInicialFinal()
                CargaEstatusUsuarios()
@@ -6770,7 +6770,7 @@ Partial Class OC
        BtnSolicitudAnticipo.Visible = False
        HlAgregarExcel.Visible = True
        LbDescargarExcel.Visible = True
-        BtnGeneraContrato.Visible = True : CargaClientes()
+        BtnGeneraContrato.Visible = True : CargaClientesContrato()

        LbVerificarExistencia.Visible = True
        LnkAgregarGuia.Visible = False
@@ -7387,10 +7387,11 @@ Partial Class OC

 #Region "CONTRATOS"

-    Private Sub CargaClientes()
-        DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa)
-        DdlClientes.DataBind()
-        DdlClientes.Items.Insert(0, New ListItem("Seleccione", "-1"))
+    Private Sub CargaClientesContrato()
+        'DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa)
+        'DdlClientes.DataBind()
+        'DdlClientes.Items.Insert(0, New ListItem("Seleccione", "-1"))
+        'DdlClienteContrato
    End Sub

    Private Sub CargaContratos()
@@ -7403,20 +7404,20 @@ Partial Class OC
        UpContrato.Update()
    End Sub

-    Private Sub DdlClientes_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlClientes.SelectedIndexChanged
+    Private Sub DdlClienteContrato_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlClienteContrato.selectedindexchange
        DdlContratos.Items.Clear()
        ' DdlContratos.DataSource = GlobalDTContratos().FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveCliente = {DdlClientes.SelectedValue.ToEntero} AND Estatus = True AND FechaFinal >= '{Now.ToShortDateString}' AND FechaInicial <= '{Now.ToShortDateString}'")
        Dim ObjContratos As New ClsContratos

-        If ObjContratos.GetContratos(-1, UsuarioActual.CveEmpresa, DdlClientes.SelectedValue.ToEntero, -1, 1) Then
+        If ObjContratos.GetContratos(-1, UsuarioActual.CveEmpresa, DdlClienteContrato.SelectedValue.ToEntero, -1, 1) Then
            If ObjContratos.DtResultados.FiltraParametros("Estatus = True").Rows.Count > 0 Then

                DdlContratos.DataSource = ObjContratos.DtResultados.FiltraParametros($"Estatus = True AND FechaFinal >= '{Now.ToShortDateString}' AND FechaInicial <= '{Now.ToShortDateString}'")
-                DdlContratos.DataBind()

            End If
        End If
-
+        ObjContratos.Dispose()
+        DdlContratos.DataBind()


        DdlContratos.Items.Insert(0, New ListItem("Seleccione", "-1"))
@@ -7492,7 +7493,7 @@ Partial Class OC
            End If
        Next
        TxtGrid.Text = If(DtDetalle.Rows.Count = 0, "", DtDetalle.Rows.Count.ToString)
-        Ddlcliente.txtValue.Value = DdlClientes.SelectedValue
+        Ddlcliente.txtValue.Value = DdlClienteContrato.SelectedValue

        CargaSuperior()
        CargaDatosDetalles()
--- a/Ventas/Clientes.aspx.vb
+++ b/Ventas/Clientes.aspx.vb
@@ -6826,10 +6826,12 @@ Partial Class Clientes
        UPGvDocumentosCliente.Update()
        'UpGvDocumentosFirma2.Update()
    End Sub
-    Public Sub UploadModal_ClickDocumentacionFirmaContrato(sender As Object, e As EventArgs)
+    Public Sub UploadModal_ClickDocumentacionFirmaContrato(sender As Object, e As EventArgs)
+
        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)

        Dim chkEstatus As CheckBox
+
        CveDocumentacionElectronica = GvRow.DataKey("CveDocumentacionElectronica").ToString().ToEntero()
        CveDocumentacion = GvRow.DataKey("CveDocumentacion").ToString().ToEntero()
        Documentacion = GvRow.DataKey("Documentacion")
@@ -6849,7 +6851,29 @@ Partial Class Clientes
        UpTituloFirma.Update()

        RegistraScript("$('#ModalUploadFirmaContratoDocumento').modal({ backdrop: 'static',  keyboard: false});")
+
+        GvdocumentosEventosDescarga()
+
    End Sub
+
+
+    Private Sub GvdocumentosEventosDescarga()
+
+        For Each GvRow As GridViewRow In GvDocumentosCliente.Rows
+
+            If GvRow.RowType = DataControlRowType.DataRow Then
+
+                Dim LnkDownLoadDoc As LinkButton = GvRow.FCLinkButton("LnkDownLoadDoc")
+                Dim ImgDownLoadFormato As LinkButton = GvRow.FCLinkButton("ImgDownLoadFormato")
+                ScriptManager.GetCurrent(Me).RegisterPostBackControl(ImgDownLoadFormato)
+                ScriptManager.GetCurrent(Me).RegisterPostBackControl(LnkDownLoadDoc)
+
+            End If
+
+        Next
+
+    End Sub
+
    Private Sub GuardarDocumentosClientes(Optional _CveDocumentacionExcluir As Integer = -1)

        Dim hasError As Boolean = True