From 082c2b2af8b1db2fc8649cb7df66fd5c254e90b1 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Tue, 20 Sep 2022 16:58:46 -0700
Subject: [PATCH] - cvepersonal, en comprobaciones5

---
 Compras/ReembolsosComprobaciones.aspx.vb | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/Compras/ReembolsosComprobaciones.aspx.vb b/Compras/ReembolsosComprobaciones.aspx.vb
index 3bcb32ef6..914246a36 100644
--- a/Compras/ReembolsosComprobaciones.aspx.vb
+++ b/Compras/ReembolsosComprobaciones.aspx.vb
@@ -736,6 +736,7 @@ Partial Class Compras_ReembolsosComprobaciones
                             Pago.CveIE = CveIEPago
                             Pago.CveMonedaPago = CveMonedaPago
                             Pago.TCPago = TipoCambioPago
+                            Pago.CvePersonal =CvePersonal
 
                             'Otros Ingresos
                             If MsgError = "" AndAlso (ChkAjusteOI.Checked Or ChkOtrosIngresosCheque.Checked) AndAlso gvr.FCTextBox("TxtComision").Text.ToDecimal <> 0 Then
@@ -808,7 +809,7 @@ Partial Class Compras_ReembolsosComprobaciones
                             Pago.ImportePago = ImporteMovto
                             Pago.CveIE = CveIEExcedente
                             Pago.CveMonedaPago = CveMoneda
-
+                            Pago.CvePersonal = CvePersonal
 
                             If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaExcedente, True, ImporteMovto, Referencia, 30, ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, IdCuentaBancaria, -1, CveIE:=CveIEExcedente, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, ImporteMovto), ImporteMX:=ImporteMovto * tipoCambio, CveCuenta:=CveCuentaBancaria) Then
                                 MsgError = "no se pudo insertar el detalle de la poliza"