AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

- cvepersonal, en comprobaciones5

Browse Source
This commit is contained in:
rrene
2022-09-20 16:58:46 -07:00
parent 8a601da150
commit 082c2b2af8
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
Compras/ReembolsosComprobaciones.aspx.vb
View File

@@ -736,6 +736,7 @@ Partial Class Compras_ReembolsosComprobaciones
Pago.CveIE = CveIEPago Pago.CveIE = CveIEPago
Pago.CveMonedaPago = CveMonedaPago Pago.CveMonedaPago = CveMonedaPago
Pago.TCPago = TipoCambioPago Pago.TCPago = TipoCambioPago
Pago.CvePersonal =CvePersonal
'Otros Ingresos 'Otros Ingresos
If MsgError = "" AndAlso (ChkAjusteOI.Checked Or ChkOtrosIngresosCheque.Checked) AndAlso gvr.FCTextBox("TxtComision").Text.ToDecimal <> 0 Then 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.ImportePago = ImporteMovto
Pago.CveIE = CveIEExcedente Pago.CveIE = CveIEExcedente
Pago.CveMonedaPago = CveMoneda 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 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" MsgError = "no se pudo insertar el detalle de la poliza"