From 4e761c52345366c2287a71365ed28a25efbe8976 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Tue, 7 May 2024 12:33:22 -0700
Subject: [PATCH 1/3] -- mejora visual

---
 Contabilidad/RegPrePolizaS.aspx    | 6 +++---
 Contabilidad/RegPrePolizaS.aspx.vb | 2 +-
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/Contabilidad/RegPrePolizaS.aspx b/Contabilidad/RegPrePolizaS.aspx
index b460ad4ee..23a848b8a 100644
--- a/Contabilidad/RegPrePolizaS.aspx
+++ b/Contabilidad/RegPrePolizaS.aspx
@@ -318,7 +318,7 @@
                                 <asp:TemplateField>
                                     <HeaderTemplate>Cuenta</HeaderTemplate>
                                     <ItemTemplate>
-                                        <asp:Literal ID="LtlCuenta" runat="server" Text='<%# Eval("Cuenta") %>'></asp:Literal><br />
+                                        <asp:Literal ID="LtlConceptoContable" runat="server" Text='<%# Eval("ConceptoContable") %>'></asp:Literal><br /> 
                                         <asp:Label ID="LblCuentaCon" Font-Italic="true" Font-Size="7pt" runat="server" Text='<%# Eval("CodigoNombreCuenta") %>'></asp:Label>
                                     </ItemTemplate>
                                     <ItemStyle HorizontalAlign="Left" />
@@ -379,7 +379,7 @@
 
                                 <asp:TemplateField HeaderText="Eliminar" ItemStyle-Width="80px">
                                     <ItemTemplate>
-                                        <asp:LinkButton ID="LnkE" runat="server" AlternateText="Editar" CausesValidation="False" CommandName="Edit" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" />
+                                        <asp:LinkButton Visible="false" ID="LnkE" runat="server" AlternateText="Editar" CausesValidation="False" CommandName="Edit" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" />
                                         <asp:LinkButton Visible="false" ID="imgD" runat="server" AlternateText="Eliminar" CausesValidation="False" CommandName="Delete" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>"  OnClientClick="javascript:return C();" />
 
                                     </ItemTemplate>
@@ -621,7 +621,7 @@
                                     <div class="row">
                                         <asp:Label ID="LblFolioDoc" runat="server" Text="Número:" class="col-md-2"></asp:Label>
                                         <div class="col-md-4">
-                                            <asp:TextBox ID="TxtDocumentoFolio" CssClass="form-control input-sm" runat="server" MaxLength="12"></asp:TextBox>
+                                            <asp:TextBox ID="TxtDocumentoFolio" CssClass="form-control input-sm" value="0" runat="server" MaxLength="12"></asp:TextBox>
                                             <asp:RequiredFieldValidator ID="RequiredFieldValidator1" runat="server" ControlToValidate="TxtDocumentoFolio" Display="None" ErrorMessage="El campo <b>''Folio''</b> es requerido por la aplicación, por favor ingrese uno." ValidationGroup="GrpContado"></asp:RequiredFieldValidator>
                                             <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender5" runat="server" HighlightCssClass="vco" TargetControlID="RequiredFieldValidator1" Width="350px"></ajax:ValidatorCalloutExtender>
                                         </div>
diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb
index 28a9814bb..2908f46f6 100644
--- a/Contabilidad/RegPrePolizaS.aspx.vb
+++ b/Contabilidad/RegPrePolizaS.aspx.vb
@@ -768,7 +768,7 @@ Partial Class ContabilidadC_RegPrePolizaS
             Dim dr As DataRow = DtMovimientos.NewRow
 
             dr("CodigoNombreCuenta") = drt("Codigo").ToString & "<br>" & drt("Nombre").ToString
-            'dr("Cuenta") = drt("ConceptoContable").ToString
+            dr("ConceptoContable") = drt("ConceptoContable").ToString
             dr("Referencia") = If(drt("CveConceptoContable").ToString.Contiene("29", "130"), drt("Personal"), drt("RazonSocial"))
             dr("Concepto") = TxtConcepto.Text
             dr("TipoMovto") = If(drt("TipoMovto").ToString = "False", 0, 1)

From 446101cd82ea176367f94ab04089a970dfeed4f9 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Tue, 7 May 2024 13:49:44 -0700
Subject: [PATCH 2/3] -

---
 Contabilidad/PlantillasPolizasDetalle.aspx.vb | 6 +-----
 1 file changed, 1 insertion(+), 5 deletions(-)

diff --git a/Contabilidad/PlantillasPolizasDetalle.aspx.vb b/Contabilidad/PlantillasPolizasDetalle.aspx.vb
index f87298a0c..41359a5ee 100644
--- a/Contabilidad/PlantillasPolizasDetalle.aspx.vb
+++ b/Contabilidad/PlantillasPolizasDetalle.aspx.vb
@@ -138,7 +138,6 @@ Partial Class Contabilidad_PlantillasPolizasDetalle
 
     Private Sub CargaCuenta()
         DdlCtaContable.Items.Clear()
-
         DdlCtaContable.Items.Insert(0, New ListItem("Seleccione", "-1"))
 
         If UsuarioActual.Empresa.TipoContabilidad = 1 Then
@@ -148,7 +147,6 @@ Partial Class Contabilidad_PlantillasPolizasDetalle
             If Conta.GetCuentas(-1, "-1", 1, UsuarioActual.CveEmpresa) Then
                 dtt = Conta.DtResultados
             End If
-
             Conta.Dispose()
 
             DdlCuentas.Items.Clear()
@@ -156,14 +154,12 @@ Partial Class Contabilidad_PlantillasPolizasDetalle
             DdlCuentas.DataBind()
             DdlCuentas.Visible = True
             DdlCtaContable.Visible = False
+            DdlCuentas.Items.Insert(0, New ListItem("-", "-1"))
         Else
-
             DdlCtaContable.DataSource = DTCuentasContables
             DdlCtaContable.DataBind()
         End If
 
-
-        DdlCuentas.Items.Insert(0, New ListItem("Seleccione", "-1"))
     End Sub
 
     Private Sub CargarConcepto()

From a741090ad7840582e3be1e33365fed679da446ae Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Tue, 7 May 2024 13:50:00 -0700
Subject: [PATCH 3/3] =?UTF-8?q?--=20EMD=20m=C3=A9todo=20de=20=20pago?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 OC/OC.aspx.vb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb
index 32c956783..42d712c2a 100644
--- a/OC/OC.aspx.vb
+++ b/OC/OC.aspx.vb
@@ -624,7 +624,7 @@ Partial Class OC_OC
                 ChkCotizacion.Enabled = False
             End If
 
-            If UsuarioActual.CveRol = 1 Then
+            If UsuarioActual.CveEmpresa.Contiene(13, 83) Then
                 TrMetodoPago.Visible = True
             End If