From 7a428af5e89abd0a607ea278723b163c991a265f Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Fri, 30 Jun 2023 18:31:24 -0700
Subject: [PATCH] -- mejora en conceptos

---
 Bancos/RepEgresosSinComprobante.aspx    | 12 ++++------
 Bancos/RepEgresosSinComprobante.aspx.vb | 31 +++++--------------------
 2 files changed, 11 insertions(+), 32 deletions(-)

diff --git a/Bancos/RepEgresosSinComprobante.aspx b/Bancos/RepEgresosSinComprobante.aspx
index 93a071866..54ffdee63 100644
--- a/Bancos/RepEgresosSinComprobante.aspx
+++ b/Bancos/RepEgresosSinComprobante.aspx
@@ -140,9 +140,7 @@
             </div>
         </ContentTemplate>
     </asp:UpdatePanel>
-
-    <br />
-
+     
     <asp:UpdatePanel runat="server" ID="UpSaldar" UpdateMode="Conditional">
         <ContentTemplate>
 
@@ -150,8 +148,8 @@
                 <div class="col-lg-1">
                     Concepto:
                 </div>
-                <div class="col-lg-2">
-                    <asp:TextBox runat="server" ID="TxtConcepto" CausesValidation="true" Width="100%" MaxLength="100"></asp:TextBox>
+                <div class="col-lg-3">
+                    <asp:TextBox runat="server" ID="TxtConcepto" CausesValidation="true" Width="200px" MaxLength="100"></asp:TextBox>
                     <asp:RequiredFieldValidator  ID="RfvTxtConcepto" runat="server" Enabled="true" CssClass="help-block errorimput" ControlToValidate="TxtConcepto"  Display="Dynamic"
                         ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Concepto''</b> es necesario, por favor ingréselo." 
                         ValidationGroup="GrpSaldar"></asp:RequiredFieldValidator>
@@ -162,7 +160,7 @@
                 <div class="col-lg-2">
                     <asp:DropDownList runat="server" ID="DdlSubProyecto" CssClass="select2me" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="100%"></asp:DropDownList>
                     <asp:RequiredFieldValidator ID="RfvDdlSubProyecto" InitialValue="-1" runat="server" CssClass="help-block errorimput" ControlToValidate="DdlSubProyecto"   Display="Dynamic"
-                        ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Pais''</b> es necesario, por favor ingréselo." 
+                        ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''SubProyecto''</b> es necesario, por favor ingréselo." 
                         ValidationGroup="GrpSaldar"></asp:RequiredFieldValidator>
                 </div>
                 <div class="col-lg-1">
@@ -187,7 +185,7 @@
                 <asp:UpdatePanel ID="UPDatos" runat="server" UpdateMode="Conditional">
                     <ContentTemplate>
 
-                        <asp:GridView ID="GvESC" runat="server" DataKeyNames="CveIE, Saldo, TipoCambio, CveMoneda, CveConceptoContable, CveProveedor, CvePersonal,CveSubProyecto,Folio" AutoGenerateColumns="False" EmptyDataText="No se encontraron registros de Egresos sin Comprobar de Proveedores" CssClass="table table-striped table-advance table-hover Widthall ScrollAD" GridLines="None">
+                        <asp:GridView ID="GvESC" runat="server" DataKeyNames="CveIE, Saldo, TipoCambio, CveMoneda, CveConceptoContable, CveProveedor, CvePersonal,CveSubProyecto,Folio, CveTipoProveedor" AutoGenerateColumns="False" EmptyDataText="No se encontraron registros de Egresos sin Comprobar de Proveedores" CssClass="table table-striped table-advance table-hover Widthall ScrollAD" GridLines="None">
                             <Columns>
                                 <asp:TemplateField ItemStyle-Width="5%">
                                     <ItemTemplate>
diff --git a/Bancos/RepEgresosSinComprobante.aspx.vb b/Bancos/RepEgresosSinComprobante.aspx.vb
index 0852625cd..04e87562d 100644
--- a/Bancos/RepEgresosSinComprobante.aspx.vb
+++ b/Bancos/RepEgresosSinComprobante.aspx.vb
@@ -2,6 +2,7 @@
 Option Strict On
 
 Imports System.Data
+Imports System.Windows.Forms.VisualStyles.VisualStyleElement
 Imports Extensiones
 Imports Microsoft.Reporting.WebForms
 Partial Class Bancos_RepEgresosSinComprobante
@@ -59,7 +60,7 @@ Partial Class Bancos_RepEgresosSinComprobante
             DdlProveedores.SelectedValue = "-1"
 
             CargaDatos()
-            TxtConcepto.Text = "Saldo de Egresos por comprobar"
+            TxtConcepto.Text = "Saldado de Egresos por comprobar"
             CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubproyecto, AplicaTodos:="Selecione uno")
 
         End If
@@ -234,38 +235,18 @@ Partial Class Bancos_RepEgresosSinComprobante
                         Dim TipoMovtoConcepto As Boolean = True
                         Dim CveConceptoContable As Integer
 
-                        Select Case gr.DataKey("CveConceptoContable").ToEntero
-                            Case 10
-                                CveConceptoContable = 21
-                            Case 28
-                                CveConceptoContable = 29
-                                TipoMovtoOtIngresos = False
-                                TipoMovtoConcepto = True
-                            Case 37
-                                CveConceptoContable = 43
-                            Case 42
-                                CveConceptoContable = 41
-                            Case 43
-                                CveConceptoContable = 37
-                            Case 48
-                                CveConceptoContable = 56
-                        End Select
-                        If gr.DataKey("CveMoneda").ToEntero > 1 Then
-                            If CveConceptoContable = 21 Then CveConceptoContable = 339
-                            If CveConceptoContable = 56 Then CveConceptoContable = 346
-                        End If
+                        Dim ConPrepAplicacion As ConceptosTipoSaldo = ObtenerCveConceptoPrePoliza(11, gr.DataKey("CveMoneda").ToEntero, True, gr.DataKey("CveTipoProveedor").ToEntero)
 
-                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoConcepto, ImporteSaldo, ImporteSaldo, CveConceptoContable, gr.DataKey("Folio"), "Saldo de ExC por Sistema", -1,
+                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoConcepto, ImporteSaldo, ImporteSaldo, ConPrepAplicacion.CveConcepto, gr.DataKey("Folio"), TxtConcepto.Text, -1,
                                                              CveIE:=gr.DataKey("CveIE").ToEntero, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CvePersonal:=gr.DataKey("CvePersonal").ToEntero,
                                                              Contabilizable:=EsContabilizable) Then
                             MsgError = "Ocurrio un error al saldar el movimiento"
                             Exit For
                         End If
                         If gr.DataKey("CveMoneda").ToEntero > 1 Then
-                            If CveConceptoContable = 339 Then CveConceptoContable = 340
-                            If CveConceptoContable = 346 Then CveConceptoContable = 347
+
                             Dim ImporteMN As Decimal = (ImporteSaldo * gr.DataKey("TipoCambio").ToDecimal - ImporteSaldo).RoundSQL
-                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoConcepto, ImporteMN, ImporteMN, CveConceptoContable, gr.DataKey("Folio"), "Saldo de ExC por Sistema", -1,
+                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoConcepto, ImporteMN, ImporteMN, ConPrepAplicacion.CveConceptoComplementario, gr.DataKey("Folio"), TxtConcepto.Text, -1,
                                                               CveIE:=gr.DataKey("CveIE").ToEntero, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CvePersonal:=gr.DataKey("CvePersonal").ToEntero,
                                                               ImporteME:=gr.DataKey("Saldo").ToDecimal, Contabilizable:=EsContabilizable) Then
                                 MsgError = "Ocurrio un error al saldar el movimiento"