From 11ff85ce7bccdfc4f0ba52093f5a4fc0acee18eb Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Wed, 9 Nov 2022 14:44:43 -0700
Subject: [PATCH] -- poner hms, en fecha registro compra

---
 Compras/Compras.aspx    | 13 +++++--------
 Compras/Compras.aspx.vb |  3 ++-
 2 files changed, 7 insertions(+), 9 deletions(-)

diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx
index ab47bc026..0fce0f8df 100644
--- a/Compras/Compras.aspx
+++ b/Compras/Compras.aspx
@@ -505,7 +505,7 @@
                             <div class="form-group proveedoreespes">
                                 <span class="whitoutcol linewhitsize  proveedoreespes">F. Captura </span>
                                 <div class="whitoutcol whitoutcol">
-                                    <asp:Literal ID="LitFechCaptura" runat="server"></asp:Literal>
+                                    <asp:Label ID="LitFechCaptura" runat="server"></asp:Label>
                                 </div>
                             </div>
                             <div class="form-group proveedoreespes">
@@ -5925,12 +5925,9 @@
                 if (!isNaN(txtComision.value)) {
                     txtComisionImporte = ToDouble(txtComision.value);
                 } 
-            }
-
-            
-
-            var txtvalue = ToDouble(txt.value);
+            } 
 
+            var txtvalue = ToDouble(txt.value); 
 
             if (txtComisionImporte != 0 && txtComisionImporte > txtvalue) {
 
@@ -5941,7 +5938,7 @@
                 return;
             }      
 
-
+            debugger;
             if (CveMonedaAnticipo == 1 && CveMonedaOriginal == 2) {
                 txtvalue = ToDouble(txtvalue / TCAnticipo);
             } else if (CveMonedaAnticipo == 2 && CveMonedaOriginal == 1) {
@@ -5949,7 +5946,7 @@
             }
 
             var SaldoCompra = (TotalSaldo - FnSumaValoresAnt() + ToDouble(txtvalue)).toFixed(2); // le agrego lo del valor actual para validarlo //parseFloat(parseFloat($get('HdnCompraSaldo').value).toFixed(2));
-            
+            alert(txtvalue);
             if (SaldoCompra < 0) txt.value = SaldoCompra - txtvalue;
             //minimo entre saldocompra y el saldoanticipo
             if (SaldoCompra < saldo) saldo = SaldoCompra;
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index a53bd63c7..98199c58b 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -2625,6 +2625,7 @@ Partial Class Compras_Compras
                 TxtObsFact.Text = dr("Observaciones").ToString
                 LblUsuarioCaptura.Text = dr("Usuario").ToString
                 LitFechCaptura.Text = dr("FechaIng").ToString.ToDate.ToShortDateString
+                LitFechCaptura.ToolTip = dr("FechaIng").ToString
                 LblRetIVA.Text = Math.Round((dr("RetIVA").ToString.ToDouble / TxtSubTotal2.Text.ToDouble) * 100, 4).FormatoNumero(3) + "%"
                 LblRetISR.Text = Math.Round((dr("RetISR").ToString.ToDouble / TxtSubTotal2.Text.ToDouble) * 100, 4).FormatoNumero(3)
                 If dr("TipoFactura").ToString <> "CFDi" Then LblTipoFact.Text = dr("TipoFactura").ToString : divTipoFactura.Visible = True
@@ -4757,7 +4758,7 @@ Partial Class Compras_Compras
                             'End If
 
                             'METODO DE PREPOLIZA DE ALMACEN
-                            If UsuarioActual.CveEmpresa.Contiene(1, 119, 72, 80, 140, 141, 145, 152, 153, 154, 158, 159, 160, 161, 162, 163) And UsuarioActual.Empresa.UsaInventarios And Not UsuarioActual.Empresa.Funcionalidad(126) = "1" Then
+                            If UsuarioActual.CveEmpresa.Contiene(1, 119, 72, 80, 140, 141, 145, 152, 153, 154, 158, 159, 160, 161, 162, 163, 172, 173) And UsuarioActual.Empresa.UsaInventarios And Not UsuarioActual.Empresa.Funcionalidad(126) = "1" Then
                                 Dim ImporteAlmacen = TmpDT.SUM(If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0, "ImporteSinImpuestos", "Total"), $"ISNULL(TipoAF,0) <> 2 AND ISNULL(CveAlmacen,0) = 0 AND ISNULL(AplicaCostoIndirecto,0) <> 1 AND CveTipoPS = 2").ToString.ToDecimal
                                 If ImporteAlmacen > 0 Then
                                     If Not DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV", "Ant") Then