From 764084ce3b9f83d7a864233f2d3b929d64e1b386 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Wed, 2 Jun 2021 19:16:28 -0700
Subject: [PATCH] mejora visual y manejo de la carga en excel

---
 Contabilidad/RegPrePolizaS.aspx    |  9 ++++-----
 Contabilidad/RegPrePolizaS.aspx.vb | 20 ++++++++++++++------
 2 files changed, 18 insertions(+), 11 deletions(-)

diff --git a/Contabilidad/RegPrePolizaS.aspx b/Contabilidad/RegPrePolizaS.aspx
index 7fdbf74da..fde03b86f 100644
--- 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">
diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb
index 2c44b33e0..d8ace96b3 100644
--- a/Contabilidad/RegPrePolizaS.aspx.vb
+++ b/Contabilidad/RegPrePolizaS.aspx.vb
@@ -1963,8 +1963,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
@@ -1983,8 +1990,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
@@ -1995,12 +2002,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()