From b0ccf6b9bddd083f3023ccc9424a7385b4a7d56c Mon Sep 17 00:00:00 2001
From: HECTOR RODRIGUEZ <hecttor201@gmail.com>
Date: Mon, 10 May 2021 09:53:29 -0700
Subject: [PATCH] Cambio para nuevos parametros

---
 Bancos/DepositosCaja.aspx.vb | 19 ++++++++++++++++---
 1 file changed, 16 insertions(+), 3 deletions(-)

diff --git a/Bancos/DepositosCaja.aspx.vb b/Bancos/DepositosCaja.aspx.vb
index d4e89284c..387a9454a 100644
--- a/Bancos/DepositosCaja.aspx.vb
+++ b/Bancos/DepositosCaja.aspx.vb
@@ -70,7 +70,7 @@ Partial Class Bancos_DepositosCaja
         DdlClasificacionIntermediario.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa, UsoClasificacion:=2)
         DdlClasificacionIntermediario.DataBind()
 
-        DdlSubProyectoIntermediario.DataSource = DdlSubProyectos.DataSource
+        DdlSubProyectoIntermediario.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa)
         DdlSubProyectoIntermediario.DataBind()
 
 
@@ -119,8 +119,7 @@ Partial Class Bancos_DepositosCaja
 
         TotalImportePrePoliza = TotalImporte
         If Comision <> 0 Then
-            TotalImporte = TotalImporte + Comision
-            TotalImporte = TotalImporte - Descuento - IVA - ImporteInter
+            TotalImporte = TotalImporte + Comision + Descuento
             'Comision = -(Comision) ' se inverte el valor, va cargada
             'Descuento = -(Descuento) ' se inverte el valor, va cargada
             If DdlSubProyectoDeposito.SelectedValue.ToEntero = -1 Or DdlClasificacion.SelectedValue.ToEntero = -1 Then
@@ -129,6 +128,10 @@ Partial Class Bancos_DepositosCaja
             End If
         End If
 
+        If TxtComisionIntermediario.Text.ToDecimal <> 0 Then
+            TotalImporte = TotalImporte - TxtComisionIntermediario.Text.ToDecimal - IVA
+        End If
+
         Dim OcurrioError As Boolean = False
         Dim ObjContabilidad As New ClsContabilidad()
         Dim ObjBancos As New ClsBancos(ObjContabilidad.IniciaTransacSQL())
@@ -177,6 +180,16 @@ Partial Class Bancos_DepositosCaja
             CveClasificacionIntermediario = DdlClasificacionIntermediario.SelectedValue.ToEntero
             CveProveedorIntermediario = DdlProveedorIntermediario.SelectedValue.ToEntero
 
+
+            If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, False, TotalImporte, DdlClasificacionIntermediario.SelectedItem.Text, 95, DdlClasificacionIntermediario.SelectedItem.Text, Fecha, IdCuentaBancariaOrigen, -1, CveClasificacion:=CveClasificacionIntermediario, CveSubProyecto:=CveSubProyectoIntermediario, ImporteMX:=TotalImporte, CveProveedor:=CveProveedorIntermediario, CveCuenta:=57619) Then
+                OcurrioError = True
+            End If
+
+            If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, True, TotalImporte, DdlClasificacionIntermediario.SelectedItem.Text, 95, DdlClasificacionIntermediario.SelectedItem.Text, Fecha, IdCuentaBancariaOrigen, -1, CveClasificacion:=CveClasificacionIntermediario, CveSubProyecto:=CveSubProyectoIntermediario, ImporteMX:=TotalImporte, CveProveedor:=CveProveedorIntermediario, CveCuenta:=57619) Then
+                OcurrioError = True
+            End If
+
+
             If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, False, ImporteInter, DdlClasificacionIntermediario.SelectedItem.Text, 51, DdlClasificacionIntermediario.SelectedItem.Text, Fecha, IdCuentaBancariaOrigen, -1, CveClasificacion:=CveClasificacionIntermediario, CveSubProyecto:=CveSubProyectoIntermediario, ImporteMX:=ImporteInter) Then
                 OcurrioError = True
             End If