From 10903a2d07ad49f12e285a954f25dad6fa3df52c Mon Sep 17 00:00:00 2001
From: Hector <hecttor201@gmail.com>
Date: Wed, 4 Aug 2021 19:27:56 -0700
Subject: [PATCH 01/20]

---
 OC/OC.aspx | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/OC/OC.aspx b/OC/OC.aspx
index 53efa69e3..36d191b15 100644
--- a/OC/OC.aspx
+++ b/OC/OC.aspx
@@ -2707,7 +2707,7 @@
     </div>
 
         <div id="DivmodalConmtrato" class="modal ADS fade">
-        <div class="modal-dialog">
+        <div class="modal-dialog" style="width: 650px; min-width: 470px;">
             <asp:UpdatePanel ID="UpModalContrato" runat="server" class="modal-content rowpadding" tabindex="-1" UpdateMode="Conditional">
                 <ContentTemplate>
                     
@@ -2761,7 +2761,7 @@
 
                                         <asp:TemplateField HeaderText="Producto">
                                             <ItemTemplate>
-                                                <asp:Label ID="LblPS" runat="server" CssClass="Texto" Text='<%# Eval("PS")%>' Width="250px"></asp:Label>
+                                                <asp:Label ID="LblPS" runat="server" CssClass="Texto" Text='<%# Eval("PS")%>'></asp:Label>
                                             </ItemTemplate>
                                         </asp:TemplateField>
 

From 4cd1a4d87cf94b241009ef3ead7fd28bd6bcb1cd Mon Sep 17 00:00:00 2001
From: Hector <hecttor201@gmail.com>
Date: Thu, 5 Aug 2021 00:46:30 -0700
Subject: [PATCH 02/20] asignar cvecontratodetalle al momento de agregar o
 actualizar los productos

---
 Compras/Compras.aspx.vb | 28 ++++++++++++++++++++++------
 1 file changed, 22 insertions(+), 6 deletions(-)

diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 4995b7418..be47e9a39 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -18260,6 +18260,18 @@ Partial Class Compras_Compras
         '    End If
         'End If
 
+        Dim ObjContratos As New ClsContratos
+        Dim CveContrato As Integer = GlobalDTContratos(UsuarioActual.CveEmpresa, -1, DdlSubProyecto.SelectedValue.ToEntero).FiltroPrimeroValor("CveContrato").ToEntero
+        Dim CveContratoDetalle As Integer = -1
+        If CveContrato > 0 Then
+            If ObjContratos.GetContratosDetalle(CveContrato, UsuarioActual.CveEmpresa) Then
+                CveContratoDetalle = ObjContratos.DtResultados.FiltroPrimeroValor("CveContratoDetalle", String.Format("CvePS = {0}", DdlPS.SelectedValue.ToString)).ToEntero
+                If CveContratoDetalle = 0 Then
+                    CveContratoDetalle = -1
+                End If
+            End If
+        End If
+        ObjContratos.Dispose()
 
 
         Select Case Modalidad
@@ -18276,10 +18288,11 @@ Partial Class Compras_Compras
                 Else
                     IVA = Math.Round(DdlIVA.SelectedValue.ToDouble - 1, 2)
                 End If
+                ObjContratos.Dispose()
                 AddPS(TxtCantidad.Text.Trim.ToDouble, ddlUM.SelectedValue.ToEntero, ddlUM.SelectedItem.Text, DdlClasificacion.SelectedValue.ToEntero, DdlClasificacion.SelectedItem.Text, DdlPS.SelectedValue.ToEntero, DdlPS.SelectedText, HdnTipoPS.Value.ToEntero,
                                   DdlSubProyecto.SelectedValue.ToString, DdlSubProyecto.SelectedItem.Text, DdlProyecto.SelectedItem.Text, DdlProyecto.SelectedValue.ToString, TxtObsPS.Text.Trim, TxtPrecio.Text.Trim.ToDouble, Total, IVA,
                                   TxtRetIVAModal.Text.ToDouble / 100, TxtRetISRModal.Text.ToDouble / 100, TxtIEPSModal.Text.ToDouble / 100, 0, TxtDescuentoModal.Text.ToDouble, OtrosGastos:=TxtOtrosGastos.Text.ToDouble, CveTipoGasto:=DdlTipoGasto.SelectedValue.ToEntero, TipoGasto:=DdlTipoGasto.SelectedItem.Text,
-                                  NoDeducible:=ChkEsNoDeduciblePS.Checked, CveSATPS:=SATClavePS)
+                                  NoDeducible:=ChkEsNoDeduciblePS.Checked, CveSATPS:=SATClavePS, CveContratoDetalle:=CveContratoDetalle)
 
                 AddPS2()
                 LimpiaAgregar()
@@ -18291,7 +18304,7 @@ Partial Class Compras_Compras
                 End If
 
             Case "U" 'UPDATE
-                UpdatePS()
+                UpdatePS(CveContratoDetalle)
                 Alert("Concepto actualizado Correctamente.", TipoMensaje.MsgInformacion)
                 RegistraScript(String.Format("$('#{0}').modal('hide');", "divAddProducto"))
         End Select
@@ -18483,7 +18496,7 @@ Partial Class Compras_Compras
         End If
 
     End Sub
-    Private Sub UpdatePS()
+    Private Sub UpdatePS(Optional CveContratoDetalle As Integer = -1)
         Dim DrPS As DataRow = Nothing
         Try
             DrPS = TmpDT.Select($"Consec = {Index}")(0)
@@ -18506,6 +18519,7 @@ Partial Class Compras_Compras
         DrPS("CveProyecto") = DdlProyecto.SelectedValue.ToEntero
         DrPS("SubProyecto") = DdlSubProyecto.SelectedItem.Text
         DrPS("CveSubProyecto") = DdlSubProyecto.SelectedValue.ToEntero
+        DrPS("CveContratoDetalle") = CveContratoDetalle
 
         'IMPORTES - [CANTIDAD Y PRECIO]
         Dim Cantidad = DrPS("Cantidad").ToString.ToDouble
@@ -21038,12 +21052,14 @@ Partial Class Compras_Compras
         End If
         objContratos.Dispose()
 
-        If MensajeProducto.Length <> 64 Then
+        If MensajeProducto.Length > 64 Then
             Retorno = MensajeProducto
-        ElseIf MensajeCantidad.Length <> 84 Then
+        ElseIf MensajeCantidad.Length > 84 Then
             Retorno = MensajeCantidad
-        ElseIf MensajeImporte.Length <> 86 Then
+        ElseIf MensajeImporte.Length > 86 Then
             Retorno = MensajeImporte
+        Else
+            Retorno = ""
         End If
 
         Return Retorno

From 47a4ea0867e6035b734b99e8e80be3a85e7841e0 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Thu, 5 Aug 2021 08:05:06 -0700
Subject: [PATCH 03/20] -- faltaba dispose

---
 Inventarios/InventarioFisicoDetalle.aspx.vb | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/Inventarios/InventarioFisicoDetalle.aspx.vb b/Inventarios/InventarioFisicoDetalle.aspx.vb
index 1c33c5e3a..12abf6bd5 100644
--- a/Inventarios/InventarioFisicoDetalle.aspx.vb
+++ b/Inventarios/InventarioFisicoDetalle.aspx.vb
@@ -658,7 +658,7 @@ Partial Class Inventarios_InventarioFisicoDetalle
     Private Sub LnkExcelUniverso_Click(sender As Object, e As EventArgs) Handles LnkExcelUniverso.Click
         Dim IncluyePS, ExcluyePS, IncluyeClasificacion, ExcluyeClasificacion, IncluyeProveedor As New StringBuilder
         Dim ObjInventario As New ClsInventarios
-        Dim DtPS As DataTable
+        Dim DtPS As DataTable = Nothing
         If ObjInventario.GetInventarioFisicoUniversoProductos(CveInventarioFisico, UsuarioActual.CveEmpresa) Then
             If ObjInventario.DtResultados.Rows.Count > 0 Then
                 DtPS = ObjInventario.DtResultados.FiltraParametros("", "", {"Codigo", "PS", "Clasificacion", "RazonSocial"})
@@ -666,6 +666,8 @@ Partial Class Inventarios_InventarioFisicoDetalle
                 Alert("Error al consultar la informacion")
             End If
         End If
+        ObjInventario.Dispose()
+
         Dim NombreArchivo As String
         SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet)
         Dim workbook As New ExcelFile()

From f1a9a330980afc4dfa1e2380636927115d0ceef8 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Thu, 5 Aug 2021 08:05:32 -0700
Subject: [PATCH 04/20] -

---
 Compras/Compras.aspx.vb | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index f6c248137..81ca0bc0f 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -1550,8 +1550,8 @@ Partial Class Compras_Compras
 
         End If
 
-            'SE OCUPAN AFUERA DEL POSTBACK ??
-            cargaddlVinculacionServcios()
+        'SE OCUPAN AFUERA DEL POSTBACK ??
+        cargaddlVinculacionServcios()
         If UsuarioActual.TienePermisoProceso(117) Then
 
             HplAddClasificacion.Visible = False

From d90b787d9ad500b6b0bf3d5e5a15d87c55d7840a Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Thu, 5 Aug 2021 08:05:55 -0700
Subject: [PATCH 05/20] =?UTF-8?q?--=20excluir=20esta=20p=C3=A1gina.=20del?=
 =?UTF-8?q?=20proyecto?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Nomina/{RegistroNomina.aspx => RegistroNomina.aspx.exclude}       | 0
 Nomina/{RegistroNomina.aspx.vb => RegistroNomina.aspx.vb.exclude} | 0
 2 files changed, 0 insertions(+), 0 deletions(-)
 rename Nomina/{RegistroNomina.aspx => RegistroNomina.aspx.exclude} (100%)
 rename Nomina/{RegistroNomina.aspx.vb => RegistroNomina.aspx.vb.exclude} (100%)

diff --git a/Nomina/RegistroNomina.aspx b/Nomina/RegistroNomina.aspx.exclude
similarity index 100%
rename from Nomina/RegistroNomina.aspx
rename to Nomina/RegistroNomina.aspx.exclude
diff --git a/Nomina/RegistroNomina.aspx.vb b/Nomina/RegistroNomina.aspx.vb.exclude
similarity index 100%
rename from Nomina/RegistroNomina.aspx.vb
rename to Nomina/RegistroNomina.aspx.vb.exclude

From 423ec7da9b0812077f48ccc38babc009432b4f26 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Thu, 5 Aug 2021 09:12:08 -0700
Subject: [PATCH 06/20] cambio en globalcontratos

---
 Contratos/ContratoObra.aspx.vb | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/Contratos/ContratoObra.aspx.vb b/Contratos/ContratoObra.aspx.vb
index 14edb0b72..18d959c83 100644
--- a/Contratos/ContratoObra.aspx.vb
+++ b/Contratos/ContratoObra.aspx.vb
@@ -1115,9 +1115,7 @@ Partial Class Contratos_ContratoObra
         Else
             ObjContratos.Commit()
 
-            If ObjContratos.GetContratos(-1, -1) Then
-                Application("GlobalDTContratos") = ObjContratos.DtResultados
-            End If
+            GlobalDTContratos(UsuarioActual.CveEmpresa) = Nothing
 
             Limpiar()
             If Modificado Then

From 80487fd93cf29ba17edddb961dec387c644e7f23 Mon Sep 17 00:00:00 2001
From: Hector <hecttor201@gmail.com>
Date: Thu, 5 Aug 2021 10:13:34 -0700
Subject: [PATCH 07/20] Cambio para ocultar campos

---
 Inventarios/InventarioFisicoDetalle.aspx.vb | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/Inventarios/InventarioFisicoDetalle.aspx.vb b/Inventarios/InventarioFisicoDetalle.aspx.vb
index 1c33c5e3a..52d71c4ca 100644
--- a/Inventarios/InventarioFisicoDetalle.aspx.vb
+++ b/Inventarios/InventarioFisicoDetalle.aspx.vb
@@ -744,9 +744,9 @@ Partial Class Inventarios_InventarioFisicoDetalle
         TxtLoteEdit.Text = If(Convert.ToBoolean(GvRow.DataKey("AplicaLote").ToString), GvRow.DataKey("Lote").ToString, "")
         TxtFechaCaducida.Text = If(Convert.ToBoolean(GvRow.DataKey("AplicaCaducidad").ToString), If(GvRow.DataKey("FechaCaducidad").ToString <> "", GvRow.DataKey("FechaCaducidad").ToString.ToDate.ToShortDateString, ""), "")
 
-        TxtSerieLote.Enabled = Convert.ToBoolean(GvRow.DataKey("AplicaSerie").ToString)
-        TxtLoteEdit.Enabled = Convert.ToBoolean(GvRow.DataKey("AplicaLote").ToString)
-        TxtFechaCaducida.Enabled = Convert.ToBoolean(GvRow.DataKey("AplicaCaducidad").ToString)
+        DivSerieEdit.Visible = Convert.ToBoolean(GvRow.DataKey("AplicaSerie").ToString)
+        DivLoteEdit.Visible = Convert.ToBoolean(GvRow.DataKey("AplicaLote").ToString)
+        DivFechaEdit.Visible = Convert.ToBoolean(GvRow.DataKey("AplicaCaducidad").ToString)
         TxtCantidad.Text = GvRow.DataKey("Cantidad").ToString
         UpEditarPS.Update()
 

From dd5e7001cdfd382828aeaba64e06b4d9263e7d07 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Thu, 5 Aug 2021 14:22:03 -0700
Subject: [PATCH 08/20] validacion de importes, de descuento via nomina

---
 Bancos/Devoluciones.aspx    | 14 +++++++++-----
 Bancos/Devoluciones.aspx.cs | 31 ++++++++++++++++---------------
 2 files changed, 25 insertions(+), 20 deletions(-)

diff --git a/Bancos/Devoluciones.aspx b/Bancos/Devoluciones.aspx
index 2ffebf93d..26ab60086 100644
--- a/Bancos/Devoluciones.aspx
+++ b/Bancos/Devoluciones.aspx
@@ -58,7 +58,7 @@
                                     </asp:DropDownList>
                                 </div>
                             </div>
-                            <asp:TextBox ID="hdnTotal" runat="server"  Style="text-align: right; display: none;"  AutoComplete="off" Width="145px"></asp:TextBox>
+                            <asp:TextBox ID="hdnTotal" runat="server"  Style="text-align: right; display: none;" ClientIDMode="Static"  AutoComplete="off" Width="145px"></asp:TextBox>
                             <hr />
                              <div class="row" id="divTipoDevolucion" runat="server" visible="false" style="margin-top: -20px;">
                                     <div class="col-md-12">
@@ -222,7 +222,7 @@
                                                 <div class="form-group form-md-line-input input-iconright">
                                                     <asp:Label runat="server" Text="Veces por Aplicar:" AssociatedControlID=""></asp:Label>
 
-                                                    <asp:TextBox ID="TxtVecesAplicar" CssClass="form-control" runat="server"></asp:TextBox>
+                                                    <asp:TextBox ID="TxtVecesAplicar" CssClass="form-control" runat="server" Text="1"></asp:TextBox>
                                                 </div>
                                             </div>
                                         </div>
@@ -333,8 +333,11 @@
             } else {
                 txt.value = "";
             }
+           
             let valor = FormatoNumero(SumaValores(), 2);
-            $('#hdnTotal').val(valor);
+            debugger;
+
+            $get('hdnTotal').value = valor;
             $get('TxtImporte').value = valor;
             
         }
@@ -354,8 +357,9 @@
                 }
             }           
             var Suma = SumaValores();
-            let valor = FormatoNumero(SumaValores(), 2);
-            $('#C_hdnTotal').val(valor);
+            let valor = FormatoNumero(Suma, 2);
+            debugger;
+            $get('hdnTotal').value = valor;
             $get('TxtImporte').value = valor;
 
             if ($get('TxtTotal') != null) {
diff --git a/Bancos/Devoluciones.aspx.cs b/Bancos/Devoluciones.aspx.cs
index bff8ee372..385954068 100644
--- a/Bancos/Devoluciones.aspx.cs
+++ b/Bancos/Devoluciones.aspx.cs
@@ -338,13 +338,14 @@ public partial class Bancos_Devoluciones : ClsPaginas
     #region"GUARDAR"
     protected void BtnGuardar_Click(object sender, EventArgs e)
     {
+            //inician validaciones
         if (OpcionDevolucion.SelectedValue.ToEntero() != 3 && TipoDevolucion.SelectedValue.ToString().ToEntero() != 2 && TxtImporte.Text == "")
         {
                 Alert("Debe ingresar un importe", TipoMensaje.MsgAdvertencia);
                 return;
         }
 
-        if (OpcionDevolucion.SelectedValue.ToEntero() == 3 && TipoDevolucion.SelectedValue.ToString().ToEntero() == 2)
+        if (OpcionDevolucion.SelectedValue == "3" && TipoDevolucion.SelectedValue  == "2")
         {
             if (TxtValor.Text == "")
             {
@@ -353,17 +354,25 @@ public partial class Bancos_Devoluciones : ClsPaginas
             }
             else
             {
-                int valor = (TxtValor.Text.ToEntero() * TxtVecesAplicar.Text.ToEntero()).ToEntero();
-                int total = hdnTotal.Text.ToEntero();
+                decimal valor = TxtValor.Text.ToDecimal() * TxtVecesAplicar.Text.ToDecimal();
+                decimal total = hdnTotal.Text.ToDecimal();
                 if (valor != total)
                 {
-                    Alert("La cantidad total debe ser igual a lo seleccionado");
+                    Alert("La cantidad total debe ser igual a lo seleccionado", TipoMensaje.MsgAdvertencia);
                     return;
                 }
+                else
+                { 
+                    if (valor ==0)
+                    {
+                        Alert("No se han seleccionado opciones", TipoMensaje.MsgAdvertencia);
+                        return;
+                    }
+                }
             }
 
         }
-
+        //terminan validaciones
 
         ClsBancos ObjIE = new ClsBancos();
         ClsContabilidad ObjMov = new ClsContabilidad(ObjIE.IniciaTransacSQL());
@@ -465,7 +474,7 @@ public partial class Bancos_Devoluciones : ClsPaginas
                             //Decimal tTotal = (TxtValor.Text.ToDecimal() * TxtVecesAplicar.Text.ToDecimal()).RoundSQL();
                             Decimal tTotal = gvr.FCTextBox("TxtAbonar").Text.ToDecimal();
                             //GUARDA PREPOLIZAS DETALLE Via Nómina         
-                            if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, !TipoMovoDevolucion, tTotal, Ref, 174, Conc, DateTime.Now, 0, -1, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero(), CveCliente: cveCliente, CveProveedor: cveProveedor, CvePersonal: cvePersonal, ImporteMX: tTotal, CveNominaMovtoPermanente: CveMovtoPermanente))
+                            if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, !TipoMovoDevolucion, tTotal, Ref, 174, Conc, DateTime.Now, 0, -1, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero(), CveCliente: cveCliente, CveProveedor: cveProveedor, CvePersonal: cvePersonal, CveIE: gvr.DataKey("CveIE").ToEntero(), ImporteMX: tTotal, CveNominaMovtoPermanente: CveMovtoPermanente))
                             {
                                 MsgError = "No se pudo insertar concepto de Devolución";
                             }
@@ -617,15 +626,7 @@ public partial class Bancos_Devoluciones : ClsPaginas
             {
                 archivo = new System.IO.FileInfo(String.Format("{0}Formatos/ComprobanteEgreso.rdlc", UsuarioActual.Empresa.Ruta, DdlCuenta.SelectedValue.ToEntero()));
             }
-
-            //if (archivo.Length > 0)
-            //{
-            //    if (archivo.Exists)
-            //    {
-            //        Msg.AppendFormat(@"<br/><br/> <a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">{1}</a> ", Encripta(String.Format("OP=IECHEQUE&CVEIE={0}", CveIE)), String.Format("Imprimir {0}", DdlTipoTransaccion.SelectedItem));
-            //    }
-            //}
-
+ 
             if (IDPoliza > 0)
             {
                 Msg.AppendFormat(@"<br/><br/><a class=""Texto"" target='_blank' href=""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"">Ver Póliza</a>", IDPoliza);

From 9c78bbe20b5278eff7da0e59bb8b1bab5406e4bb Mon Sep 17 00:00:00 2001
From: Hector <hecttor201@gmail.com>
Date: Fri, 6 Aug 2021 03:08:17 -0700
Subject: [PATCH 09/20] Obtener cvecontratodetalle

---
 App_Code/ClsContratos.vb | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)

diff --git a/App_Code/ClsContratos.vb b/App_Code/ClsContratos.vb
index 9ce852417..99671766b 100644
--- a/App_Code/ClsContratos.vb
+++ b/App_Code/ClsContratos.vb
@@ -1198,6 +1198,26 @@ Public Class ClsContratos
 
         Return Retorno
     End Function
+
+    Public Function GetPSContratoDetalle(CveContrato As Integer, DtPS As String) As Boolean
+        Dim Retorno = False
+
+        DataAdapter("PA_Con_GetPSContratoDetalle")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@DtPS", SqlDbType.VarChar).Value = DtPS
+            .Add("@CveContrato", SqlDbType.Int).Value = CveContrato
+
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al cargar los Detalles del Contrato.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
 #End Region
 
 #Region "Contratos detalles Avance"

From 0754a1021966932e51f73d676d2f1288f0a620ae Mon Sep 17 00:00:00 2001
From: Hector <hecttor201@gmail.com>
Date: Fri, 6 Aug 2021 03:08:47 -0700
Subject: [PATCH 10/20] asiganar contratodetalle

---
 Compras/Compras.aspx.vb | 80 ++++++++++++++++++++++++++++++++---------
 1 file changed, 63 insertions(+), 17 deletions(-)

diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 81df418d7..47d714231 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -18084,6 +18084,22 @@ Partial Class Compras_Compras
             End If
         End If
 
+        Dim DtpsTemp As DataTable = Nothing
+        Dim CveContratoDetalle As Integer = -1
+        Dim CveContrato As Integer = GlobalDTContratos(UsuarioActual.CveEmpresa, -1, DdlSubProyecto.SelectedValue.ToString.ToEntero).FiltroPrimeroValor("CveContrato").ToEntero
+        If CveContrato > 0 Then
+            Dim dttemp As New DataTable
+            dttemp.Columns.Add("CveSubProyecto", GetType(Integer))
+            dttemp.Columns.Add("CvePS", GetType(Integer))
+            Dim DrPS = dttemp.NewRow
+            DrPS("CveSubProyecto") = DdlSubProyecto.SelectedValue.ToString.ToEntero
+            DrPS("CvePS") = DdlPS.SelectedValue.ToString.ToEntero
+            dttemp.Rows.Add(DrPS)
+            DtpsTemp = GetPSContratoDetalle(CveContrato, dttemp)
+            If DtpsTemp IsNot Nothing AndAlso DtpsTemp.Rows.Count > 0 Then
+                CveContratoDetalle = DtpsTemp.FiltroPrimeroValor("CveContratoDetalle", String.Format("CvePS = {0}", DdlPS.SelectedValue.ToString.ToEntero)).ToEntero
+            End If
+        End If
 
         'If dttemp IsNot Nothing AndAlso dttemp.Rows.Count > 0 Then
         '    Dim drContrato As DataRow = dttemp.Rows(0)
@@ -18118,20 +18134,6 @@ Partial Class Compras_Compras
         '    End If
         'End If
 
-        Dim ObjContratos As New ClsContratos
-        Dim CveContrato As Integer = GlobalDTContratos(UsuarioActual.CveEmpresa, -1, DdlSubProyecto.SelectedValue.ToEntero).FiltroPrimeroValor("CveContrato").ToEntero
-        Dim CveContratoDetalle As Integer = -1
-        If CveContrato > 0 Then
-            If ObjContratos.GetContratosDetalle(CveContrato, UsuarioActual.CveEmpresa) Then
-                CveContratoDetalle = ObjContratos.DtResultados.FiltroPrimeroValor("CveContratoDetalle", String.Format("CvePS = {0}", DdlPS.SelectedValue.ToString)).ToEntero
-                If CveContratoDetalle = 0 Then
-                    CveContratoDetalle = -1
-                End If
-            End If
-        End If
-        ObjContratos.Dispose()
-
-
         Select Case Modalidad
             Case "A" 'ADD
 
@@ -18146,7 +18148,6 @@ Partial Class Compras_Compras
                 Else
                     IVA = Math.Round(DdlIVA.SelectedValue.ToDouble - 1, 2)
                 End If
-                ObjContratos.Dispose()
                 AddPS(TxtCantidad.Text.Trim.ToDouble, ddlUM.SelectedValue.ToEntero, ddlUM.SelectedItem.Text, DdlClasificacion.SelectedValue.ToEntero, DdlClasificacion.SelectedItem.Text, DdlPS.SelectedValue.ToEntero, DdlPS.SelectedText, HdnTipoPS.Value.ToEntero,
                                   DdlSubProyecto.SelectedValue.ToString, DdlSubProyecto.SelectedItem.Text, DdlProyecto.SelectedItem.Text, DdlProyecto.SelectedValue.ToString, TxtObsPS.Text.Trim, TxtPrecio.Text.Trim.ToDouble, Total, IVA,
                                   TxtRetIVAModal.Text.ToDouble / 100, TxtRetISRModal.Text.ToDouble / 100, TxtIEPSModal.Text.ToDouble / 100, 0, TxtDescuentoModal.Text.ToDouble, OtrosGastos:=TxtOtrosGastos.Text.ToDouble, CveTipoGasto:=DdlTipoGasto.SelectedValue.ToEntero, TipoGasto:=DdlTipoGasto.SelectedItem.Text,
@@ -18625,13 +18626,26 @@ Partial Class Compras_Compras
             CveProyecto = DdlAsignarProyecto.SelectedValue.ToEntero()
         End If
 
+        Dim CveContrato As Integer = GlobalDTContratos(UsuarioActual.CveEmpresa, -1, DdlAsignaSubProyecto.SelectedValue.ToEntero).FiltroPrimeroValor("CveContrato").ToEntero
+        Dim DtpsTemp As DataTable = Nothing
+        If CveContrato > 0 Then
+            DtpsTemp = GetPSContratoDetalle(CveContrato, TmpDT.FiltraParametros("", "", {"CveSubProyecto", "CvePS"}))
+        End If
+
         For Each Dr As DataRow In TmpDT.Rows
             Dr("CveProyecto") = CveProyecto
             Dr("Proyecto") = If(CveSubProyecto = -1, "SE", DdlAsignarProyecto.SelectedItem.Text)
             Dr("CveSubProyecto") = CveSubProyecto
             Dr("SubProyecto") = If(CveSubProyecto = -1, "SE", DdlAsignaSubProyecto.SelectedItem.Text)
+
+            If DtpsTemp IsNot Nothing AndAlso DtpsTemp.Rows.Count > 0 Then
+                Dr("CveContratoDetalle") = DtpsTemp.FiltroPrimeroValor("CveContratoDetalle", String.Format("CvePS = {0}", Dr("CvePS"))).ToEntero
+            End If
+
         Next
 
+
+
         GvPS.DataSource = TmpDT.FiltraParametros("", "Consec")
         GvPS.DataBind()
         UpPS.Update()
@@ -18694,9 +18708,22 @@ Partial Class Compras_Compras
         Dim PS As New ClsProductosServicios
         Dim CvePS = -1
         Dim tPS = ""
-
+        Dim CveSubProyecto As Integer = TmpDT.Rows(HdnAliasInd.Value.ToEntero)("CveSubProyecto").ToString.ToEntero
         CvePS = DdlPSAlias2.SelectedValue.ToEntero
         tPS = DdlPSAlias2.SelectedText
+        Dim DtpsTemp As DataTable = Nothing
+        Dim CveContrato As Integer = GlobalDTContratos(UsuarioActual.CveEmpresa, -1, CveSubProyecto).FiltroPrimeroValor("CveContrato").ToEntero
+        If CveContrato > 0 Then
+            Dim dttemp As New DataTable
+            dttemp.Columns.Add("CveSubProyecto", GetType(Integer))
+            dttemp.Columns.Add("CvePS", GetType(Integer))
+            Dim DrPS = dttemp.NewRow
+            DrPS("CveSubProyecto") = CveSubProyecto
+            DrPS("CvePS") = CvePS
+            dttemp.Rows.Add(DrPS)
+            DtpsTemp = GetPSContratoDetalle(CveContrato, dttemp)
+        End If
+
 
         If PS.AddPSAlias(System.Web.HttpUtility.HtmlDecode(TxtPSAlias.Text.Trim), CvePS, UsuarioActual.CveUsuario) Then
             GlobalDTProductosServiciosAlias(-1) = PS.DtResultados
@@ -18711,6 +18738,9 @@ Partial Class Compras_Compras
             TmpDT.Rows(HdnAliasInd.Value.ToEntero)("CveSATPS") = HdnPSAliasCveSATPS.Value.ToEntero
             TmpDT.Rows(HdnAliasInd.Value.ToEntero)("SATClaveProductoServicio") = HdnPSAliasSATClavePS.Value
             TmpDT.Rows(HdnAliasInd.Value.ToEntero)("CveSATPSActualizado") = 0
+            If DtpsTemp IsNot Nothing AndAlso DtpsTemp.Rows.Count > 0 Then
+                TmpDT.Rows(HdnAliasInd.Value.ToEntero)("CveContratoDetalle") = DtpsTemp.FiltroPrimeroValor("CveContratoDetalle", String.Format("CvePS = {0}", CvePS)).ToEntero
+            End If
 
             'busco si el producto está en otros renglones QUE NO LO TENGAN ASIGNADO, LO VINCULE
             For Each drt As DataRow In TmpDT.Select($"PS ='{TxtPSAlias.Text.Trim}' and ISNULL(CvePS,0) = 0")
@@ -18724,7 +18754,9 @@ Partial Class Compras_Compras
                 drt("CveSATPS") = HdnPSAliasCveSATPS.Value.ToEntero
                 drt("SATClaveProductoServicio") = HdnPSAliasSATClavePS.Value
                 drt("CveSATPSActualizado") = 0
-
+                If DtpsTemp IsNot Nothing AndAlso DtpsTemp.Rows.Count > 0 Then
+                    drt("CveContratoDetalle") = DtpsTemp.FiltroPrimeroValor("CveContratoDetalle", String.Format("CvePS = {0}", drt("CvePS"))).ToEntero
+                End If
 
             Next
             TmpDT.AcceptChanges()
@@ -20939,6 +20971,20 @@ Partial Class Compras_Compras
         Return Retorno
 
     End Function
+    Private Function GetPSContratoDetalle(CveContrato As Integer, DtPS As DataTable) As DataTable
+        Dim ObjContratos As New ClsContratos
+        Dim DtpsTemp As DataTable = Nothing
+
+        If DtPS.MAX("CveSubProyecto", "CveSubProyecto IS NOT NULL").ToEntero > 0 AndAlso DtPS.MAX("CvePS", "CvePS IS NOT NULL").ToEntero > 0 Then
+            Dim TempPS As String = JsonConvert.SerializeObject(DtPS).ToString
+            If ObjContratos.GetPSContratoDetalle(CveContrato, TempPS) Then
+                DtpsTemp = ObjContratos.DtResultados
+            End If
+            ObjContratos.Dispose()
+        End If
+
+        Return DtpsTemp
+    End Function
 
 #End Region
 

From 1f509acf12a5911783e40211e8f8547002b41826 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Fri, 6 Aug 2021 08:09:59 -0700
Subject: [PATCH 11/20] parametro cvesubproyecto en asignaciones

---
 App_Code/ClsContabilidad.vb | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb
index 482e3bee4..1a7713d2c 100644
--- a/App_Code/ClsContabilidad.vb
+++ b/App_Code/ClsContabilidad.vb
@@ -5773,7 +5773,8 @@ Public Class ClsContabilidad
 
     Public Function AddCuentasAsignaciones(Optional CveConceptoContable As Integer = -1, Optional CveEmpresa As Integer = -1, Optional CveCuenta As Integer = -1, Optional IdCtaContable As Integer = -1,
                                            Optional CveProveedor As Integer = -1, Optional CveCliente As Integer = -1, Optional CvePersonal As Integer = -1, Optional CveClasificacion As Integer = -1,
-                                           Optional CveAlmacen As Integer = -1, Optional PorcentajeIVA As Decimal = -1, Optional CveConceptoNomina As Decimal = -1, Optional CveBancoCuenta As Integer = -1) As Boolean
+                                           Optional CveAlmacen As Integer = -1, Optional PorcentajeIVA As Decimal = -1, Optional CveConceptoNomina As Decimal = -1, Optional CveBancoCuenta As Integer = -1,
+                                           Optional CveSubProyecto As Integer = -1) As Boolean
         Dim Retorno = False
 
         DataAdapter("PA_Conta_CuentasAsignacionesAdd")
@@ -5791,6 +5792,7 @@ Public Class ClsContabilidad
             .Add("@PorcentajeIVA", SqlDbType.Decimal).Value = PorcentajeIVA
             .Add("@CveConceptoNomina", SqlDbType.Decimal).Value = CveConceptoNomina
             .Add("@CveBancoCuenta", SqlDbType.Int).Value = CveBancoCuenta
+            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
         End With
 
         Try
@@ -5825,7 +5827,8 @@ Public Class ClsContabilidad
     Public Function UpdateCuentasAsignaciones(CveConceptoAsignacion As Integer, Optional CveConceptoContable As Integer = -1, Optional CveCuenta As Integer = -1,
                                               Optional IdCtaContable As Integer = -1, Optional CveProveedor As Integer = -1, Optional CveCliente As Integer = -1,
                                               Optional CvePersonal As Integer = -1, Optional CveClasificacion As Integer = -1, Optional CveAlmacen As Integer = -1,
-                                              Optional PorcentajeIVA As Decimal = -1, Optional CveConceptoNomina As Decimal = -1, Optional CveBancoCuenta As Integer = -1) As Boolean
+                                              Optional PorcentajeIVA As Decimal = -1, Optional CveConceptoNomina As Decimal = -1, Optional CveBancoCuenta As Integer = -1,
+                                              Optional CveSubProyecto As Integer = -1) As Boolean
         Dim Retorno = False
 
         DataAdapter("PA_Conta_CuentasAsignacionesUpdate")
@@ -5843,6 +5846,7 @@ Public Class ClsContabilidad
             .Add("@PorcentajeIVA", SqlDbType.Decimal).Value = PorcentajeIVA
             .Add("@CveConceptoNomina", SqlDbType.Decimal).Value = CveConceptoNomina
             .Add("@CveBancoCuenta", SqlDbType.Int).Value = CveBancoCuenta
+            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
         End With
 
         Try

From a73ec2f1dae9208131b5d057cbb6135bf45a8809 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Fri, 6 Aug 2021 13:28:39 -0700
Subject: [PATCH 12/20] =?UTF-8?q?--=20concepto=20de=20iva=20por=20importac?=
 =?UTF-8?q?i=C3=B3n?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Compras/Compras.aspx.vb | 35 ++++++++++++++++++++---------------
 1 file changed, 20 insertions(+), 15 deletions(-)

diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 81ca0bc0f..8ee3d686f 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -4087,20 +4087,20 @@ Partial Class Compras_Compras
             Exit Sub
         End If
 
-        'DF - 10/04/2017
-        If UsuarioActual.TienePermisoProceso(187) Then
-            If TxtSerie.Text <> SerieVieja Then
-                Dim dtt As DataTable = GlobalDTProveedorSucursales(CveProveedor, UsuarioActual.CveEmpresa)
-                If dtt IsNot Nothing AndAlso dtt.Rows.Count > 0 Then
-                    Dim SerieNueva As String = dtt.FiltroPrimeroValor("Serie", $"Serie = '{TxtSerie.Text}'").ToString
-                    If SerieNueva = "" Then
-                        Alert("La Serie no es válida, por favor revise que se encuentre dentro de la lista de las sucursales del proveedor.", TipoMensaje.MsgAdvertencia)
-                        Exit Sub
-                    End If
-                End If
+        ''DF - 10/04/2017
+        'If UsuarioActual.TienePermisoProceso(187) Then
+        '    If TxtSerie.Text <> SerieVieja Then
+        '        Dim dtt As DataTable = GlobalDTProveedorSucursales(CveProveedor, UsuarioActual.CveEmpresa)
+        '        If dtt IsNot Nothing AndAlso dtt.Rows.Count > 0 Then
+        '            Dim SerieNueva As String = dtt.FiltroPrimeroValor("Serie", $"Serie = '{TxtSerie.Text}'").ToString
+        '            If SerieNueva = "" Then
+        '                Alert("La Serie no es válida, por favor revise que se encuentre dentro de la lista de las sucursales del proveedor.", TipoMensaje.MsgAdvertencia)
+        '                Exit Sub
+        '            End If
+        '        End If
 
-            End If
-        End If
+        '    End If
+        'End If
 
         'Excede el limite de credito
         If RBLPago.SelectedValue = "1" AndAlso DdlTipoComprobante.SelectedValue.Contiene("Fac") AndAlso UsuarioActual.Empresa.Funcionalidad(518) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(185) Then
@@ -6037,14 +6037,19 @@ Partial Class Compras_Compras
                                                             If importeMovimiento <> 0 Then
                                                                 Dim IdCtaIva As Integer = 0
                                                                 IdCtaIva = If(IdCtaIVAXAcreditar > 0, IdCtaIVAXAcreditar, 0)
+                                                                Dim ttConceptoContable As Integer = 14
 
-                                                                If ObjConta.GetRetCuenta(14, UsuarioActual.CveEmpresa) And Not IdCtaIva > 0 Then
+                                                                If ObjConta.GetRetCuenta(ttConceptoContable, UsuarioActual.CveEmpresa) And Not IdCtaIva > 0 Then
                                                                     If ObjConta.DtResultados.Rows.Count > 0 Then
                                                                         IdCtaIva = ObjConta.DtResultados.Rows(0)("IdCuentaIVAxAcreditar").ToString.ToEntero
                                                                     End If
                                                                 End If
 
-                                                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, importeMovimiento, Referencia, 14, Concepto + If(tipoCambioActual > 1, $" TC {tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}", ""), FechaMovimiento, IdCtaIva, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMovimiento * tipoCambioActual, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), PorcentajeImpuesto:=PorcentajeImpuesto, Contabilizable:=SeContabiliza, TipoCambio:=tipoCambioActual) Then
+                                                                If chkImportacion.Checked Then
+                                                                    ttConceptoContable = 287
+                                                                End If
+
+                                                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, importeMovimiento, Referencia, ttConceptoContable, Concepto + If(tipoCambioActual > 1, $" TC {tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}", ""), FechaMovimiento, IdCtaIva, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMovimiento * tipoCambioActual, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), PorcentajeImpuesto:=PorcentajeImpuesto, Contabilizable:=SeContabiliza, TipoCambio:=tipoCambioActual) Then
                                                                     ErrorPrepoliza = True
                                                                 End If
                                                             End If

From 8e682bf7e02b5f899d6c28ea2e84d0145cf5e7e2 Mon Sep 17 00:00:00 2001
From: rakcsle <rakcsle.rakcsle@gmail.com>
Date: Fri, 6 Aug 2021 15:39:27 -0700
Subject: [PATCH 13/20] Comisiones en negativo

---
 Compras/ReembolsosComprobaciones.aspx.vb | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/Compras/ReembolsosComprobaciones.aspx.vb b/Compras/ReembolsosComprobaciones.aspx.vb
index b05473cb0..da89c665e 100644
--- a/Compras/ReembolsosComprobaciones.aspx.vb
+++ b/Compras/ReembolsosComprobaciones.aspx.vb
@@ -724,7 +724,10 @@ Partial Class Compras_ReembolsosComprobaciones
                         End If
 
                         If SaldoCheque > 0 Then
-                            ImporteMovto = If(ImportePagar > SaldoCheque, SaldoCheque, ImportePagar)
+
+                            'ImporteMovto = If(ImportePagar > SaldoCheque, SaldoCheque, ImportePagar)
+                            ImporteMovto = ImportePagar
+
                             CvePrePolizaPago = CvePrePolizaIERegistrado
 
                             'SE USARA PARA PODER ELIMINAR UNA COMPROBACION
@@ -746,7 +749,7 @@ Partial Class Compras_ReembolsosComprobaciones
 
 
                             'Otros Ingresos
-                            If (ChkAjusteOI.Checked Or ChkOtrosIngresosCheque.Checked) AndAlso gvr.FCTextBox("TxtComision").Text.ToDecimal > 0 Then
+                            If (ChkAjusteOI.Checked Or ChkOtrosIngresosCheque.Checked) AndAlso gvr.FCTextBox("TxtComision").Text.ToDecimal <> 0 Then
                                 If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaPago, False, gvr.FCTextBox("TxtComision").Text.ToDecimal, Referencia, 211, ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, IdCtaProveedor, -1, CveIE:=CveIERegistrado, CvePersonal:=CvePersonal, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveSubProyecto:=gvr.DataKey("CveSubProyecto").ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, gvr.FCTextBox("TxtComision").Text.ToDecimal), ImporteMX:=gvr.FCTextBox("TxtComision").Text.ToDecimal * tipoCambio, CveCuenta:=CveCuentaProveedor) Then
                                     MsgError = "no se pudo insertar el detalle de la poliza de otros ingresos"
                                 End If

From 0b09786e62b8c24a3e987b6df665e2c132f39135 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Mon, 9 Aug 2021 07:22:29 -0700
Subject: [PATCH 14/20] =?UTF-8?q?--registro=20en=20log,=20para=20registro?=
 =?UTF-8?q?=20quien=20consult=C3=B3?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Contabilidad/RepIVA.aspx.cs | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/Contabilidad/RepIVA.aspx.cs b/Contabilidad/RepIVA.aspx.cs
index dd79dcb50..4652cbd29 100644
--- a/Contabilidad/RepIVA.aspx.cs
+++ b/Contabilidad/RepIVA.aspx.cs
@@ -121,6 +121,10 @@ public partial class Contabilidad_RepIVA : ClsPaginas
         GvIVAA.DataBind();
         GvIVA2.DataBind();
         UpDatos.Update();
+
+        String Str = "Se Consultó el Reporte de IVA. - " + UsuarioActual.Usuario;
+        Str.GuardaLog();
+
     }
 
     protected void BtnConsultar_Click(object sender, EventArgs e)

From 412f717bdc16bbc51698a59266b6e36b5c89241a Mon Sep 17 00:00:00 2001
From: rakcsle <rakcsle.rakcsle@gmail.com>
Date: Mon, 9 Aug 2021 11:07:41 -0700
Subject: [PATCH 15/20] Error en conversion en solicitud de anticipos,  se
 cambia repalce  por  Expresion  a /,/g para que   elimine  todas las comas

---
 OC/OC.aspx | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/OC/OC.aspx b/OC/OC.aspx
index 36d191b15..113ef0fa1 100644
--- a/OC/OC.aspx
+++ b/OC/OC.aspx
@@ -2816,12 +2816,12 @@
         $(document).ready(function () {
             $('#<%= TxtSAImPorcentaje.ClientID%>').keyup(function () {
                 console.log($(this).val());
-                var importe = (ToDouble($(this).val()) / 100) * ToDouble($get("LblTotal").value.replace(",", ""));
-                $('#<%= TxtSAImporte.ClientID%>').val(FormatoNumero(importe, 2).replace(",", ""));
+                var importe = (ToDouble($(this).val()) / 100) * ToDouble($get("LblTotal").value.replace(/,/g, ''));
+                $('#<%= TxtSAImporte.ClientID%>').val(FormatoNumero(importe, 2).replace(/,/g, ""));
             });
             $('#<%= TxtSAImporte.ClientID%>').keyup(function () {
-                var importe = (100 * ToDouble($(this).val())) / ToDouble($get("LblTotal").value.replace(",", ""));
-                $('#<%= TxtSAImPorcentaje.ClientID%>').val(FormatoNumero(importe, 2).replace(",", ""));
+                var importe = (100 * ToDouble($(this).val())) / ToDouble($get("LblTotal").value.replace(/,/g, ""));
+                $('#<%= TxtSAImPorcentaje.ClientID%>').val(FormatoNumero(importe, 2).replace(/,/g, ""));
             });
 
             $get('HdnWidth').value = $("#DivConceptosContenido").width();

From fc067ce69d3c525f176ce5b1cfedbf0f2e173f2e Mon Sep 17 00:00:00 2001
From: Hector <hecttor201@gmail.com>
Date: Mon, 9 Aug 2021 15:17:16 -0700
Subject: [PATCH 16/20] Cambios para tipo conta

---
 Contabilidad/ContabilidadElectronica.aspx.vb | 21 ++++++++++++++------
 1 file changed, 15 insertions(+), 6 deletions(-)

diff --git a/Contabilidad/ContabilidadElectronica.aspx.vb b/Contabilidad/ContabilidadElectronica.aspx.vb
index e59728d33..a33545fc8 100644
--- a/Contabilidad/ContabilidadElectronica.aspx.vb
+++ b/Contabilidad/ContabilidadElectronica.aspx.vb
@@ -185,7 +185,7 @@ Partial Class Contabilidad_ContabilidadElectronica
         Dim DtCuentas As New DataTable
         If UsuarioActual.Empresa.TipoContabilidad = 1 Then
             Dim objconta As New ClsContabilidad
-            If objconta.GetBalanzaComprobacion(FechaI, FechaF, UsuarioActual.CveEmpresa) Then
+            If objconta.GetBalanzaComprobacion(FechaI, FechaF, 1, -1, "-1", UsuarioActual.CveEmpresa, 0) Then
                 DtCuentas = objconta.DtResultados
             End If
             objconta.Dispose()
@@ -218,11 +218,20 @@ Partial Class Contabilidad_ContabilidadElectronica
             'DETALLES
             For Each Dr As DataRow In DtCuentas.Rows
                 Str.Append("<BCE:Ctas ")
-                Str.AppendFormat("NumCta=""{0}"" ", Dr("NumCta").ToString)
-                Str.AppendFormat("SaldoIni=""{0}"" ", Dr("SaldoIni").ToString)
-                Str.AppendFormat("Debe=""{0}"" ", Dr("Debe").ToString)
-                Str.AppendFormat("Haber=""{0}"" ", Dr("Haber").ToString)
-                Str.AppendFormat("SaldoFin=""{0}"" ", Dr("SaldoFin").ToString)
+                If UsuarioActual.Empresa.TipoContabilidad = 1 Then
+                    Str.AppendFormat("NumCta=""{0}"" ", Dr("Codigo").ToString)
+                    Str.AppendFormat("SaldoIni=""{0}"" ", Dr("SaldoInicial").ToString)
+                    Str.AppendFormat("Debe=""{0}"" ", Dr("Cargos").ToString)
+                    Str.AppendFormat("Haber=""{0}"" ", Dr("Abonos").ToString)
+                    Str.AppendFormat("SaldoFin=""{0}"" ", Dr("SaldoActual").ToString)
+                Else
+                    Str.AppendFormat("NumCta=""{0}"" ", Dr("NumCta").ToString)
+                    Str.AppendFormat("SaldoIni=""{0}"" ", Dr("SaldoIni").ToString)
+                    Str.AppendFormat("Debe=""{0}"" ", Dr("Debe").ToString)
+                    Str.AppendFormat("Haber=""{0}"" ", Dr("Haber").ToString)
+                    Str.AppendFormat("SaldoFin=""{0}"" ", Dr("SaldoFin").ToString)
+                End If
+
                 Str.Append("/>")
             Next
 

From b0c26ae15584cf8680be8866163ae8b4d4c8a600 Mon Sep 17 00:00:00 2001
From: Hector <hecttor201@gmail.com>
Date: Mon, 9 Aug 2021 15:18:00 -0700
Subject: [PATCH 17/20] Tags para remplazar en word

---
 App_Code/ClsRH.vb | 15 +++++++++++++--
 1 file changed, 13 insertions(+), 2 deletions(-)

diff --git a/App_Code/ClsRH.vb b/App_Code/ClsRH.vb
index 502e985bb..8949803ec 100644
--- a/App_Code/ClsRH.vb
+++ b/App_Code/ClsRH.vb
@@ -6692,8 +6692,8 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
 
             ListaTagsDocumentost.Add(New TagsDocumentos("{Estatura}", DtResultados(0)("Estatura").ToString))
             ListaTagsDocumentost.Add(New TagsDocumentos("{Peso}", DtResultados(0)("Peso").ToString))
-            ListaTagsDocumentost.Add(New TagsDocumentos("{LugarNacimiento}", DtResultados(0)("LugarNacimiento").ToString))
-            ListaTagsDocumentost.Add(New TagsDocumentos("{Edad}", DtResultados(0)("Edad").ToString))
+            ListaTagsDocumentost.Add(New TagsDocumentos("{LugarNacimiento}", DtResultados(0)("LugarNacimiento").ToString))
+            ListaTagsDocumentost.Add(New TagsDocumentos("{Edad}", If(DtResultados(0)("Edad").ToString = "", If(DtResultados(0)("FechaNacimiento").ToString = "", "", DateDiff(DateInterval.Year, DtResultados(0)("FechaNacimiento").ToString.ToDate, Now.Date).ToString), DtResultados(0)("Edad").ToString)))
             ListaTagsDocumentost.Add(New TagsDocumentos("{NombreTelEmergencia}", DtResultados(0)("NombreTelEmergencia").ToString))
             ListaTagsDocumentost.Add(New TagsDocumentos("{TipoSangre}", DtResultados(0)("TipoSangre").ToString))
             ListaTagsDocumentost.Add(New TagsDocumentos("{SubProyecto}", DtResultados(0)("SubProyecto").ToString))
@@ -6712,8 +6712,13 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
             ListaTagsDocumentost.Add(New TagsDocumentos("{AcusadoDelitoObservaciones}", DtResultados(0)("AcusadoDelitoObservaciones").ToString))
 
             ListaTagsDocumentost.Add(New TagsDocumentos("{Calle}", DtResultados(0)("Calle").ToString))
+            ListaTagsDocumentost.Add(New TagsDocumentos("{NumInt}", DtResultados(0)("NumInt").ToString))
+            ListaTagsDocumentost.Add(New TagsDocumentos("{NumExt}", DtResultados(0)("NumExt").ToString))
             ListaTagsDocumentost.Add(New TagsDocumentos("{Colonia}", DtResultados(0)("Colonia").ToString))
             ListaTagsDocumentost.Add(New TagsDocumentos("{CP}", DtResultados(0)("CP").ToString))
+            ListaTagsDocumentost.Add(New TagsDocumentos("{Ciudad}", DtResultados(0)("Ciudad").ToString))
+            ListaTagsDocumentost.Add(New TagsDocumentos("{Estado}", DtResultados(0)("Estado").ToString))
+
             ListaTagsDocumentost.Add(New TagsDocumentos("{Telefono}", DtResultados(0)("Telefono").ToString))
             ListaTagsDocumentost.Add(New TagsDocumentos("{Celular}", DtResultados(0)("Celular").ToString))
             ListaTagsDocumentost.Add(New TagsDocumentos("{Correo}", DtResultados(0)("Correo").ToString))
@@ -6727,6 +6732,12 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
             ListaTagsDocumentost.Add(New TagsDocumentos("{CredencialElector}", DtResultados(0)("CredencialElector").ToString))
 
             ListaTagsDocumentost.Add(New TagsDocumentos("{FechaIngreso}", DtResultados(0)("FechaIngreso").ToString.ToDate.ToShortDateString))
+            ListaTagsDocumentost.Add(New TagsDocumentos("{DiaIngreso}", DtResultados(0)("FechaIngreso").ToString.ToDate.Day.ToString))
+            ListaTagsDocumentost.Add(New TagsDocumentos("{MesIngreso}", DtResultados(0)("FechaIngreso").ToString.ToDate.Month.ToString))
+            ListaTagsDocumentost.Add(New TagsDocumentos("{MesLetraIngreso}", MesTexto(DtResultados(0)("FechaIngreso").ToString.ToDate.Month.ToEntero)))
+
+            ListaTagsDocumentost.Add(New TagsDocumentos("{AñoIngreso}", DtResultados(0)("FechaIngreso").ToString.ToDate.Year.ToString))
+
 
             ListaTagsDocumentost.Add(New TagsDocumentos("{Puesto}", DtResultados(0)("Puesto").ToString))
             ListaTagsDocumentost.Add(New TagsDocumentos("{CUIP}", ""))

From a4ffadcfa153dd4f352158620551c1f468129ef0 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Mon, 9 Aug 2021 18:18:26 -0700
Subject: [PATCH 18/20] =?UTF-8?q?-=20secci=C3=B3n=20almacen.=20de=20libera?=
 =?UTF-8?q?ci=C3=B3n=20resguardo?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

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

diff --git a/RH/Personal.aspx.vb b/RH/Personal.aspx.vb
index 9c3f73719..b7914cc5b 100644
--- a/RH/Personal.aspx.vb
+++ b/RH/Personal.aspx.vb
@@ -5326,7 +5326,7 @@ Partial Class RH_Personal
         Dim Serie As String = TxtLiberarSerie.Text.Trim
 
         Dim CveResultadoSalida As Integer = ObjInventario.AddMovimiento(CveAlmacenUniforme, 3, 1, Date.Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, CveAlmacenDestino:=DdlAlmacenDestinoLiberarUniforme.SelectedValue.ToEntero, CvePersonal:=CvePersonal, Observaciones:=DescripcionUniforme)
-        Dim ResultadoDetalleSalida As Boolean = ObjInventario.AddMovimientoDetalle(CveResultadoSalida, Cantidad, CveUM, CvePS, PU, CveSeccionAlmacen:=CveSeccionAlmacenUniforme, Serie:=Serie, CveMovimientoDetalleEntrada:=CveMovimientoDetalleUniforme)
+        Dim ResultadoDetalleSalida As Boolean = ObjInventario.AddMovimientoDetalle(CveResultadoSalida, Cantidad, CveUM, CvePS, PU, CveSeccionAlmacen:=-3, Serie:=Serie, CveMovimientoDetalleEntrada:=CveMovimientoDetalleUniforme)
         Dim CveSeccionAlmacen As Integer = DdlSeccionAlmacen.SelectedValue.ToEntero
         Dim CveResultadoEntrada As Integer = ObjInventario.AddMovimiento(DdlAlmacenDestinoLiberarUniforme.SelectedValue.ToEntero, 2, 1, Date.Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, CvePersonal:=CvePersonal, Observaciones:=DescripcionUniforme, CveMovimientoRelacionado:=CveMovimientoUniforme)
         Dim ResultadoDetalleEntrada As Boolean = ObjInventario.AddMovimientoDetalle(CveResultadoEntrada, Cantidad, CveUM, CvePS, PU, CveSeccionAlmacen:=CveSeccionAlmacen, Serie:=Serie)

From 217ec16f643c86816a884079981a19a88f7907d7 Mon Sep 17 00:00:00 2001
From: Hector <hecttor201@gmail.com>
Date: Tue, 10 Aug 2021 00:22:52 -0700
Subject: [PATCH 19/20]

---
 Inventarios/InventarioFisicoDetalle.aspx    | 268 +++++++-------------
 Inventarios/InventarioFisicoDetalle.aspx.vb |  40 +--
 2 files changed, 112 insertions(+), 196 deletions(-)

diff --git a/Inventarios/InventarioFisicoDetalle.aspx b/Inventarios/InventarioFisicoDetalle.aspx
index 7fde8403c..b44053b71 100644
--- a/Inventarios/InventarioFisicoDetalle.aspx
+++ b/Inventarios/InventarioFisicoDetalle.aspx
@@ -1,98 +1,6 @@
 <%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="InventarioFisicoDetalle.aspx.vb" Inherits="Inventarios_InventarioFisicoDetalle" %>
 
 <asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
-    <style>
-        #C_TxtHoraInicio_picker {
-            position: fixed !important;
-        }
-
-        .grides > tbody > tr > td:nth-child(3), .grides > tbody > tr > td:nth-child(3) {
-            width: 250px;
-        }
-
-        #C_myhidenbutton {
-            display: none;
-        }
-
-        .psagregar {
-            width: 450px;
-        }
-
-            .psagregar > div.comboxes {
-                display: inline-block;
-                width: 400px;
-            }
-
-        .table-scrollable {
-            margin-top: 0px !important;
-            margin-bottom: 0px !important;
-        }
-
-        .Widthall {
-            width: 100% !important;
-        }
-
-        .dataTables_scrollHeadInner {
-            width: 100% !important;
-            background-color: #dddddd;
-            padding-left: 0px !important;
-        }
-
-        .dataTables_scrollFoot {
-            display: none;
-            position: static;
-        }
-
-        .table-scrollable {
-            margin: 0px !important;
-        }
-
-        .dataTables_scroll {
-            margin-bottom: 0px;
-        }
-
-        .table.dataTable {
-            margin-top: 0px !important;
-        }
-
-        .dataTables_scrollBody table th {
-            padding: 0px !important;
-            padding-right: 4px !important;
-            padding-left: 4px !important;
-        }
-
-        .sinlink td a {
-            pointer-events: none;
-            cursor: default;
-            color: black;
-            font-size: small;
-        }
-
-        .white a {
-            color: white !important;
-        }
-
-        .Derecha {
-            text-align: right;
-        }
-
-        .Izquierda {
-            text-align: left;
-        }
-
-        .SinColor th {
-            background-color: white;
-        }
-
-        .divmodal{
-            width: 500px;
-        }
-        .center {
-            float: none;
-            margin-left: auto;
-            margin-right: auto;
-        }
-    </style>
 
 </asp:Content>
 <asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
@@ -342,7 +250,8 @@
             <div class="row">
                 <label class="col-md-2"><b>Ultimo Registrado: </b></label>
                 <div class="col-md-8">
-                    <asp:GridView ID="GvIFDUltimoRegistrado" ClientIDMode="Static" runat="server" EmptyDataText="Aun no hay registros." AutoGenerateColumns="False" GridLines="None" DataKeyNames="CveInventarioFisicoDetalle" ShowHeaderWhenEmpty="True" CssClass="table table-striped table-hover Widthall">
+                    <asp:GridView ID="GvIFDUltimoRegistrado" ClientIDMode="Static" runat="server" EmptyDataText="Aun no hay registros." AutoGenerateColumns="False" GridLines="None" DataKeyNames="CveInventarioFisicoDetalle" 
+                        ShowHeaderWhenEmpty="True" CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn">
                         <Columns>
                            <asp:TemplateField HeaderText="Fecha" ItemStyle-HorizontalAlign="Center">
                                 <ItemTemplate>   
@@ -367,98 +276,103 @@
                     <asp:Button ID="BtnVerRegistrados" OnClick="BtnVerRegistrados_Click" runat="server" CssClass="btn btn-primary btn-sm" Text="Ver Registrados" />
                 </div>
             </div>
-            <br />
-             <div class="row col-md-4" align="left" id="divRegistrados" runat="server">
-                    <asp:Label runat="server">Número de registros: <b><asp:Literal ID="LtlTotalRegistros" runat="server"></asp:Literal></b></asp:Label>
+            <div class="row">
+                <br />
+                 <div class="row col-md-4" align="left" id="divRegistrados" runat="server">
+                        <asp:Label runat="server">Número de registros: <b><asp:Literal ID="LtlTotalRegistros" runat="server"></asp:Literal></b></asp:Label>
+                </div>
+                <div class="row col-md-8" align="right" id="DivBuscador" runat="server">
+                    <input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="return Filtrar(event);" style="display: inline-block; margin-right: -20px; width: 150px;" />
+                    <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvIFD.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
+                    <div style="display: inline-block;" id="SumFiltra"></div>
+                </div>
             </div>
-            <div class="row col-md-8" align="right" id="DivBuscador" runat="server">
-                <input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="return Filtrar(event);" style="display: inline-block; margin-right: -20px; width: 150px;" />
-                <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvIFD.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
-                <div style="display: inline-block;" id="SumFiltra"></div>
-            </div>
-            <asp:GridView ID="GvIFD" ClientIDMode="Static" runat="server" EmptyDataText="Aun no hay registros." AutoGenerateColumns="False" GridLines="None" DataKeyNames="CveInventarioFisicoDetalle, CvePS, SerieLote, Lote, FechaCaducidad, Cantidad, CveUnidadMedida, AplicaSerie, AplicaLote, AplicaCaducidad" ShowHeaderWhenEmpty="True" CssClass="table table-striped table-hover Widthall">
-                <Columns>
-                    <asp:TemplateField HeaderText="Fecha" ItemStyle-HorizontalAlign="Center">
-                        <ItemTemplate>   
-                            <asp:Literal runat="server" ID="ltlFecha" Text='<%#Eval("FechaInvFisico")%>'></asp:Literal>
-                        </ItemTemplate>
-                        <HeaderStyle Width="160px"/>
-                    </asp:TemplateField>
-                    <asp:BoundField HeaderText="Código Barras" DataField="CodigoBarras" ItemStyle-HorizontalAlign="Left"></asp:BoundField>
-                    <asp:BoundField HeaderText="Código" DataField="Codigo" ItemStyle-HorizontalAlign="Left"></asp:BoundField>
-                    <asp:BoundField HeaderText="Producto" DataField="PS" ItemStyle-HorizontalAlign="Left"></asp:BoundField>
-                    <asp:BoundField HeaderText="Sección Almacén" DataField="SeccionAlmacen" ItemStyle-HorizontalAlign="Left" Visible="false"></asp:BoundField>
-                    <asp:BoundField HeaderText="Serie/Lote" DataField="SerieLote" ItemStyle-HorizontalAlign="Left"></asp:BoundField>
-                    <asp:BoundField HeaderText="Lote" DataField="Lote" ItemStyle-HorizontalAlign="Left" Visible="false"></asp:BoundField>
-                    <asp:BoundField HeaderText="Fecha Caducidad" DataField="FechaCaducidad" ItemStyle-HorizontalAlign="Left" Visible="false" DataFormatString="{0:d}"></asp:BoundField>
-                    <asp:BoundField HeaderText="Cantidad" DataField="Cantidad" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="70px"></asp:BoundField>
-                    <asp:BoundField HeaderText="Mal Estado" DataField="MalEstado" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="70px"></asp:BoundField>
-                    <asp:BoundField HeaderText="No Vendible" DataField="NoVendible" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="70px"></asp:BoundField>
+                <asp:GridView ID="GvIFD" ClientIDMode="Static" runat="server" EmptyDataText="Aun no hay registros." AutoGenerateColumns="False" GridLines="None" CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn"
+                    DataKeyNames="CveInventarioFisicoDetalle, CvePS, SerieLote, Lote, FechaCaducidad, Cantidad, CveUnidadMedida, AplicaSerie, AplicaLote, AplicaCaducidad"  ShowHeaderWhenEmpty="True" ShowHeader="True" >
+                    <Columns>
+                        <asp:TemplateField HeaderText="Fecha" ItemStyle-HorizontalAlign="Center">
+                            <ItemTemplate>   
+                                <asp:Literal runat="server" ID="ltlFecha" Text='<%#Eval("FechaInvFisico")%>'></asp:Literal>
+                            </ItemTemplate>
+                            <HeaderStyle Width="160px"/>
+                        </asp:TemplateField>
+                        <asp:BoundField HeaderText="Código Barras" DataField="CodigoBarras" ItemStyle-HorizontalAlign="Left"></asp:BoundField>
+                        <asp:BoundField HeaderText="Código" DataField="Codigo" ItemStyle-HorizontalAlign="Left"></asp:BoundField>
+                        <asp:BoundField HeaderText="Producto" DataField="PS" ItemStyle-HorizontalAlign="Left"></asp:BoundField>
+                        <asp:BoundField HeaderText="Sección Almacén" DataField="SeccionAlmacen" ItemStyle-HorizontalAlign="Left" Visible="false"></asp:BoundField>
+                        <asp:BoundField HeaderText="Serie/Lote" DataField="SerieLote" ItemStyle-HorizontalAlign="Left"></asp:BoundField>
+                        <asp:BoundField HeaderText="Lote" DataField="Lote" ItemStyle-HorizontalAlign="Left" Visible="false"></asp:BoundField>
+                        <asp:BoundField HeaderText="Fecha Caducidad" DataField="FechaCaducidad" ItemStyle-HorizontalAlign="Left" Visible="false" DataFormatString="{0:d}"></asp:BoundField>
+                        <asp:BoundField HeaderText="Cantidad" DataField="Cantidad" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="70px"></asp:BoundField>
+                        <asp:BoundField HeaderText="Mal Estado" DataField="MalEstado" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="70px"></asp:BoundField>
+                        <asp:BoundField HeaderText="No Vendible" DataField="NoVendible" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="70px"></asp:BoundField>
 
-                    <asp:TemplateField HeaderText="Comandos" ItemStyle-HorizontalAlign="Center">
-                        <ItemTemplate>
-                            <asp:LinkButton ID="LnkEditar" OnClick="LnkEditar_Click" runat="server" AlternateText="Editar" CssClass="btn btn-circle btn-xs green" Text="<i class='fa fa-pencil'></i>" />
-                            <asp:LinkButton ID="imgD" runat="server" AlternateText="Eliminar" CausesValidation="False" CommandName="Delete" CssClass="btn btn-circle btn-xs red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="¿Estas seguro que desea eliminar el registro?" data-btn-ok-label="si" />
-                        </ItemTemplate>
-                        <ItemStyle HorizontalAlign="Center"/>
-                    </asp:TemplateField>
-                </Columns>
-            </asp:GridView>
+                        <asp:TemplateField ItemStyle-HorizontalAlign="Center" HeaderText="Comandos">
+                            <ItemTemplate>
+                                <asp:LinkButton ID="imgE" runat="server" AlternateText="Editar" CausesValidation="False" CssClass="btn btn-circle btn-sm green" OnClick="Edit_Click" Text="<i class='fa fa-pencil'></i>" />
+                                <asp:LinkButton ID="imgD" runat="server" AlternateText="Eliminar" OnClick="Delete_Click" CausesValidation="False" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si" />
+                            </ItemTemplate>
+                        </asp:TemplateField>
+                    </Columns>
+                </asp:GridView>
         </ContentTemplate>
-        <Triggers>
-            <asp:AsyncPostBackTrigger ControlID="ddlUsuario" EventName="SelectedIndexChanged" />
-        </Triggers>
+
     </asp:UpdatePanel>
 
 
-        <div id="ModalEditarPS" class="modal ADS fade centered" role="dialog">
-        <div class="modal-dialog" id="modal">
-            <asp:UpdatePanel ID="UpAddInventarioFisico" class="modal-content divmodal" tabindex="-1" runat="server" UpdateMode="Conditional">
-                <ContentTemplate>
-                    <div class="modal-header">
-                        <button type="button" class="close" data-dismiss="modal" aria-label="Close">
-                            <span aria-hidden="true">&times;</span>
-                        </button>
-                        <h4 class="modal-title" id="myModalLabel" runat="server">Editar PS</h4>
-                    </div>
-                    <div class="modal-body">
-                        <asp:UpdatePanel ID="UpEditarPS" UpdateMode="Conditional" runat="server">
-                            <ContentTemplate>
-                                <asp:HiddenField ID="HfCveInventarioFisicoDetalle" Value="" runat="server"/>
-                                <asp:HiddenField ID="HfCvePS" Value="" runat="server"/>
-                                <asp:HiddenField ID="HfCveUM" Value="" runat="server"/>
-                                <div class="form-group form-md-line-input input-iconright" id="DivSerieEdit" runat="server">
-                                    <asp:TextBox ID="TxtSerieLote" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="500" Width="175px"></asp:TextBox>
-                                    <label for="<%= TxtSerieLote.ClientID.ToString()%>">Serie:</label>
-                                </div>
-                                <div class="form-group form-md-line-input input-iconright" id="DivLoteEdit" runat="server">
-                                    <asp:TextBox ID="TxtLoteEdit" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="500" Width="175px"></asp:TextBox>
+        <div id="ModalEditarPS" class="modal ADS fade" role="dialog">
+            <div class="modal-dialog">
+                <asp:UpdatePanel ID="UpAddInventarioFisico" tabindex="-1" runat="server" UpdateMode="Conditional">
+                    <ContentTemplate>
+                        <div class="modal-content">
+                            <div class="modal-header">
+                                <button type="button" class="close" data-dismiss="modal" aria-label="Close">
+                                <span aria-hidden="true">&times;</span>
 
-                                    <label for="<%= TxtLoteEdit.ClientID.ToString()%>">Lote:</label>
-                                </div>
-                                <div class="form-group form-md-line-input input-iconright" id="DivFechaEdit" runat="server">
-                                    <asp:TextBox ID="TxtFechaCaducida" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="500" Width="175px"></asp:TextBox>
-                                    <label for="<%= TxtFechaCaducida.ClientID.ToString()%>">Fecha Caducida:</label>
-                                </div>
-                                <div class="form-group form-md-line-input input-iconright" id="DivCantidadEdit" runat="server">
-                                    <asp:TextBox ID="TxtCantidad" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="500" Width="175px"></asp:TextBox>
-                                    <label for="<%= TxtCantidad.ClientID.ToString()%>">Cantidad:</label>
-                                </div>
-                                <div class="modal-footer">
-                                    <asp:UpdatePanel ID="UpFooter" runat="server" UpdateMode="Conditional">
-                                        <ContentTemplate>
-                                            <asp:LinkButton ID="BtnGuadarEditarPS" OnClick="BtnGuadarEditarPS_Click" runat="server" CssClass="btn btn-primary" ValidationGroup="GrpObligatorio"> <i class='material-icons'>done_all</i>  Guardar</asp:LinkButton>
-                                            <button type="button" class="btn btn-default" data-dismiss="modal">Cancelar</button>
-                                        </ContentTemplate>
-                                    </asp:UpdatePanel>
-                                </div>
-                            </ContentTemplate>
-                        </asp:UpdatePanel>
-                    </div>
-                </ContentTemplate>
-            </asp:UpdatePanel>
+                                </button>
+                                <h4 class="modal-title" id="myModalLabel" runat="server">Editar PS</h4>
+                            </div>
+                            <div class="modal-body">
+                                <asp:UpdatePanel ID="UpEditarPS" UpdateMode="Conditional" runat="server">
+                                    <ContentTemplate>
+                                        <asp:HiddenField ID="HfCveInventarioFisicoDetalle" Value="" runat="server"/>
+                                        <asp:HiddenField ID="HfCvePS" Value="" runat="server"/>
+                                        <asp:HiddenField ID="HfCveUM" Value="" runat="server"/>
+                                        <div class="form-group form-md-line-input input-iconright" id="DivSerieEdit" runat="server">
+                                            <asp:TextBox ID="TxtSerieLote" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="500" Width="175px"></asp:TextBox>
+                                            <label for="<%= TxtSerieLote.ClientID.ToString()%>">Serie:</label>
+                                        </div>
+                                        <div class="form-group form-md-line-input input-iconright" id="DivLoteEdit" runat="server">
+                                            <asp:TextBox ID="TxtLoteEdit" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="500" Width="175px"></asp:TextBox>
+
+                                            <label for="<%= TxtLoteEdit.ClientID.ToString()%>">Lote:</label>
+                                        </div>
+                                        <div class="form-group form-md-line-input input-iconright" id="DivFechaEdit" runat="server">
+                                            <asp:TextBox ID="TxtFechaCaducida" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="500" Width="175px"></asp:TextBox>
+                                            <label for="<%= TxtFechaCaducida.ClientID.ToString()%>">Fecha Caducida:</label>
+                                        </div>
+                                        <div class="form-group form-md-line-input input-iconright" id="DivCantidadEdit" runat="server">
+                                            <asp:TextBox ID="TxtCantidad" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="500" Width="175px"></asp:TextBox>
+                                            <label for="<%= TxtCantidad.ClientID.ToString()%>">Cantidad:</label>
+                                        </div>
+                                        
+                                    </ContentTemplate>
+                                </asp:UpdatePanel>
+
+                            </div>
+                            <div class="modal-footer">
+                                <asp:UpdatePanel ID="UpFooter" runat="server" UpdateMode="Conditional">
+                                    <ContentTemplate>
+                                        <asp:LinkButton ID="BtnGuadarEditarPS" OnClick="BtnGuadarEditarPS_Click" runat="server" CssClass="btn btn-primary" ValidationGroup="GrpObligatorio"> <i class='material-icons'>done_all</i>  Guardar</asp:LinkButton>
+                                        <button type="button" class="btn btn-default" data-dismiss="modal">Cancelar</button>
+                                    </ContentTemplate>
+                                </asp:UpdatePanel>
+                            </div>
+                        </div>
+                    </ContentTemplate>
+                </asp:UpdatePanel>
+            </div>
         </div>
-    </div>
 </asp:Content>
 <asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
 
diff --git a/Inventarios/InventarioFisicoDetalle.aspx.vb b/Inventarios/InventarioFisicoDetalle.aspx.vb
index 07abb0732..cdd2c7edb 100644
--- a/Inventarios/InventarioFisicoDetalle.aspx.vb
+++ b/Inventarios/InventarioFisicoDetalle.aspx.vb
@@ -86,8 +86,6 @@ Partial Class Inventarios_InventarioFisicoDetalle
         GvIFD.DataBind()
 
         If (GvIFD.Rows.Count > 0) Then
-            GvIFD.UseAccessibleHeader = True
-            GvIFD.HeaderRow.TableSection = TableRowSection.TableHeader
             RegistraScript("OrdenarGV();")
         End If
 
@@ -319,11 +317,11 @@ Partial Class Inventarios_InventarioFisicoDetalle
         End If
         Inventario.Dispose()
         GvIFD.DataBind()
-        If (GvIFD.Rows.Count > 0) Then
-            GvIFD.UseAccessibleHeader = True
-            GvIFD.HeaderRow.TableSection = TableRowSection.TableHeader
-            RegistraScript("OrdenarGV();")
-        End If
+        'If (GvIFD.Rows.Count > 0) Then
+        '    GvIFD.UseAccessibleHeader = True
+        '    GvIFD.HeaderRow.TableSection = TableRowSection.TableHeader
+        '    RegistraScript("OrdenarGV();")
+        'End If
         UPPInventario.Update()
     End Sub
 #End Region
@@ -518,10 +516,14 @@ Partial Class Inventarios_InventarioFisicoDetalle
 #End Region
 
 #Region "  ELIMINAR  "
-    Protected Sub gvInventarioFisicoDetalle_RowDeleting(sender As Object, e As GridViewDeleteEventArgs) Handles GvIFD.RowDeleting
+    Public Sub Delete_Click(sender As Object, e As EventArgs)
+
+        Dim ObjInventario As New ClsInventarios()
+        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+
         If ddlUsuario.SelectedValue = UsuarioActual.CveUsuario.ToString OrElse UsuarioActual.TienePermisoProceso(283) Then
             Dim Inventarios As New ClsInventarios
-            Dim Retorno As Boolean = Inventarios.RemoveInventarioFisicoDetalles(GvIFD.DataKeys(e.RowIndex).Value.ToString.ToEntero())
+            Dim Retorno As Boolean = Inventarios.RemoveInventarioFisicoDetalles(GvRow.DataKey("CveInventarioFisicoDetalle").ToString.ToEntero)
 
             If Retorno Then
                 If Inventarios.GetInventarioFisicoDetalle(CveInventarioFisico, ddlUsuario.SelectedValue.ToString.ToEntero) Then
@@ -532,18 +534,18 @@ Partial Class Inventarios_InventarioFisicoDetalle
             Inventarios.Dispose()
             GvIFD.DataBind()
 
-            If (GvIFD.Rows.Count > 0) Then
-                GvIFD.UseAccessibleHeader = True
-                GvIFD.HeaderRow.TableSection = TableRowSection.TableHeader
-                RegistraScript("OrdenarGV();")
-            End If
+            'If (GvIFD.Rows.Count > 0) Then
+            '    GvIFD.UseAccessibleHeader = True
+            '    GvIFD.HeaderRow.TableSection = TableRowSection.TableHeader
+            '    RegistraScript("OrdenarGV();")
+            'End If
 
             UPPInventario.Update()
             UPAgregarPro.Update()
         Else
             Alert("No se puede eliminar un producto registrado por otro usuario.", TipoMensaje.MsgAdvertencia)
             RegistraScript("playsonidito('142608__autistic-lucario__error.wav')")
-        End If
+        End If
     End Sub
 #End Region
 
@@ -733,7 +735,7 @@ Partial Class Inventarios_InventarioFisicoDetalle
     '    UPAgregarPro.Update()
     'End Sub
 
-    Protected Sub LnkEditar_Click(sender As Object, e As EventArgs)
+    Protected Sub Edit_Click(sender As Object, e As EventArgs)
 
         Dim GvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)
         LimpiarModal()
@@ -750,12 +752,14 @@ Partial Class Inventarios_InventarioFisicoDetalle
         DivLoteEdit.Visible = Convert.ToBoolean(GvRow.DataKey("AplicaLote").ToString)
         DivFechaEdit.Visible = Convert.ToBoolean(GvRow.DataKey("AplicaCaducidad").ToString)
         TxtCantidad.Text = GvRow.DataKey("Cantidad").ToString
-        UpEditarPS.Update()
 
+        UpAddInventarioFisico.Update()
         RegistraScript("$('#ModalEditarPS').modal('show')")
     End Sub
 
 
+
+
     Private Sub LimpiarModal()
         HfCveInventarioFisicoDetalle.Value = ""
         HfCvePS.Value = ""
@@ -785,8 +789,6 @@ Partial Class Inventarios_InventarioFisicoDetalle
             GvIFD.DataBind()
 
             If (GvIFD.Rows.Count > 0) Then
-                GvIFD.UseAccessibleHeader = True
-                GvIFD.HeaderRow.TableSection = TableRowSection.TableHeader
                 RegistraScript("OrdenarGV();")
             End If
 

From 4c12c860b112c2d9ceae9a57c49f00f92fc6267c Mon Sep 17 00:00:00 2001
From: rakcsle <rakcsle.rakcsle@gmail.com>
Date: Tue, 10 Aug 2021 21:12:48 -0700
Subject: [PATCH 20/20] validacion de timbrado  producto SAT  84111506 se
 agrega empresa 144 a

---
 App_Code/Timbrado.vb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/App_Code/Timbrado.vb b/App_Code/Timbrado.vb
index 9ddfc1944..25ac07be4 100644
--- a/App_Code/Timbrado.vb
+++ b/App_Code/Timbrado.vb
@@ -813,7 +813,7 @@ Public Class Timbrado
         'validación especial. 
         If Ventas.TipoDocto.Contiene("Ing", "Dev") Then
 
-            Dim CodigoIncorrecto = (From c In Ventas.Timbre.Conceptos Where (c.ClaveProdServ = "01010101") OrElse (c.ClaveProdServ = "84111506" AndAlso Not UsuarioActual.CveEmpresa.Contiene(2, 70))
+            Dim CodigoIncorrecto = (From c In Ventas.Timbre.Conceptos Where (c.ClaveProdServ = "01010101") OrElse (c.ClaveProdServ = "84111506" AndAlso Not UsuarioActual.CveEmpresa.Contiene(2, 70, 144))
                                     Select c.ClaveProdServ, c.Descripcion)
             Dim Str As New StringBuilder
             Str.Append("Los siguentes productos tienen especificado un código no permitido por el SAT: <br/>")