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

Correcion al aplicar "otros ingresos" al guardar reembolso

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2023-03-31 14:50:22 -07:00
parent 631728a069
commit 917ca6b7bd
1 changed files with 14 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
Compras/ReembolsosComprobaciones.aspx.vb
View File

@@ -280,18 +280,18 @@ Partial Class Compras_ReembolsosComprobaciones
dt = dt.FiltraParametros(String.Format("CveMoneda = {0}", 1)) dt = dt.FiltraParametros(String.Format("CveMoneda = {0}", 1))
If DdlTipoTransaccion.SelectedValue.ToEntero = 3 Then If DdlTipoTransaccion.SelectedValue.ToEntero = 3 Then
dt = dt.FiltraParametros("CveTipoCuenta = 7") dt = dt.FiltraParametros("CveTipoCuenta = 7")
End If End If
'cuando es layout 'cuando es layout
If DdlTipoTransaccion.SelectedValue.ToEntero = 9 Then If DdlTipoTransaccion.SelectedValue.ToEntero = 9 Then
dt = dt.FiltraParametros("UsaLayout = 1") dt = dt.FiltraParametros("UsaLayout = 1")
End If End If
If DdlTipoTransaccion.SelectedValue.ToEntero = 17 Then If DdlTipoTransaccion.SelectedValue.ToEntero = 17 Then
dt = dt.FiltraParametros("UsaLayoutGrupos = 1") dt = dt.FiltraParametros("UsaLayoutGrupos = 1")
End If End If
DdlCuenta.DataSource = dt DdlCuenta.DataSource = dt
@@ -774,6 +774,11 @@ Partial Class Compras_ReembolsosComprobaciones
End If End If
If MsgError = "" Then If MsgError = "" Then
If AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePolizaPago, ObjMov) Then
MsgError = "Detalle"
End If
If Not ChkReembolsarSinBancos.Checked AndAlso (Not HdnCheque.Value.ToEntero > 0 Or Not UsuarioActual.CveEmpresa.Contiene(119, 158)) Then If Not ChkReembolsarSinBancos.Checked AndAlso (Not HdnCheque.Value.ToEntero > 0 Or Not UsuarioActual.CveEmpresa.Contiene(119, 158)) Then
'Si es caja chica metemos el concepto 30, si es funcionario metemos 29 'Si es caja chica metemos el concepto 30, si es funcionario metemos 29
ImporteMovto += Pago.OtroGastoIngreso ' si ajuste, sedebe de aplicar en su contraparte ImporteMovto += Pago.OtroGastoIngreso ' si ajuste, sedebe de aplicar en su contraparte
@@ -781,10 +786,6 @@ Partial Class Compras_ReembolsosComprobaciones
MsgError = "Detalle" MsgError = "Detalle"
End If End If
End If End If
If AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePolizaPago, ObjMov) Then
MsgError = "Detalle"
End If
End If End If
Dim SaldoExcedente As Decimal = gvr.FCTextBox("TxtSaldoExcedente").Text.ToDecimal Dim SaldoExcedente As Decimal = gvr.FCTextBox("TxtSaldoExcedente").Text.ToDecimal