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

-- corrección en otros ingresos, en dólares

Browse Source
This commit is contained in:
rrene
2023-04-10 18:28:31 -07:00
parent 33eec22d47
commit 0aa9622e22
1 changed files with 6 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
App_Code/ClsPaginas.vb
View File

@@ -7772,9 +7772,10 @@ Public Class ClsPaginas
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, ImporteMN, 26, CompraActual.SerieFolio, Concepto, Ret.IdCtaContableAcreditable, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambio:=CompraActual.TC, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, ImporteMN, 26, CompraActual.SerieFolio, Concepto, Ret.IdCtaContableAcreditable, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambio:=CompraActual.TC, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True
End If End If
End If End If
'si tiene otros gastos/ingresos 'si tiene otros gastos/ingresos
ImporteMovimiento = Pago.OtroGastoIngreso If Not ErrorMovtos AndAlso Pago.OtroGastoIngreso <> 0 Then
If Not ErrorMovtos AndAlso ImporteMovimiento <> 0 Then ImporteMovimiento = (Pago.OtroGastoIngreso * Pago.TCPago).RoundSQL
Dim tOtCveCon As Integer = 211 Dim tOtCveCon As Integer = 211
Dim tOtTipoMovto As Boolean = False Dim tOtTipoMovto As Boolean = False
Dim IdCta As Integer = If(UsuarioActual.Empresa.TipoContabilidad = 2, UsuarioActual.Empresa.Funcionalidad(266).ToEntero(), 0) Dim IdCta As Integer = If(UsuarioActual.Empresa.TipoContabilidad = 2, UsuarioActual.Empresa.Funcionalidad(266).ToEntero(), 0)
@@ -8283,8 +8284,9 @@ Public Class ClsPaginas
End If End If
End If End If
'si tiene otros gastos/ingresos 'si tiene otros gastos/ingresos
ImporteMovimiento = Pago.OtroGastoIngreso
If Not ErrorMovtos AndAlso ImporteMovimiento <> 0 Then If Not ErrorMovtos AndAlso Pago.OtroGastoIngreso <> 0 Then
ImporteMovimiento = (Pago.OtroGastoIngreso * Pago.TCPago).RoundSQL
Dim tOtCveCon As Integer = 78 Dim tOtCveCon As Integer = 78
Dim tOtTipoMovto As Boolean = True Dim tOtTipoMovto As Boolean = True
If ImporteMovimiento < 0 Then If ImporteMovimiento < 0 Then