--depositos con intermediario vsh prot

App_Code/ClsMovimientos.vb

@@ -789,7 +789,6 @@ Public Class ClsMovimientos
     Public Function GetEgresosSinComprobar(FechaInicio As String, FechaFin As String, CveProveedor As Integer, CvePersonal As Integer, CveClasificacion As Integer, CveUsuarioRegistro As Integer, CveUsuarioResponsable As Integer, CveMoneda As Integer, Saldo As Double, CveEmpresa As Integer, Optional CveTipoTransaccion As Integer = -1, Optional CveUsuarioSolicito As Integer = -1) As Boolean
 
         Dim Retorno As Boolean = False
-
         DataAdapter("PA_Banc_EgresosSinComprobar")
 
         With SqlAdapter.SelectCommand.Parameters
@@ -820,7 +819,6 @@ Public Class ClsMovimientos
 
     Public Function GetIngresosAcreedorXSaldar(CveProveedor As Integer, CveMoneda As Integer, CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
-
         DataAdapter("PA_Banc_IngresosAcreedorXSaldar")
 
         With SqlAdapter.SelectCommand.Parameters
@@ -840,7 +838,6 @@ Public Class ClsMovimientos
     End Function
     Public Function GetPrestamosPersonalXSaldar(CvePersonal As Integer, CveMoneda As Integer, CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
-
         DataAdapter("PA_Banc_PrestamosPersonalXSaldar")
 
         With SqlAdapter.SelectCommand.Parameters
@@ -861,7 +858,6 @@ Public Class ClsMovimientos
 
     Public Function GetDeudoresrXSaldar(CveProveedor As Integer, CveMoneda As Integer, CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
-
         DataAdapter("PA_Banc_DuedorXSaldar")
 
         With SqlAdapter.SelectCommand.Parameters
@@ -883,7 +879,6 @@ Public Class ClsMovimientos
     Public Function GetIngresosPorComprobar(FechaInicio As String, FechaFin As String, CveCliente As Integer, CveUsuarioRegistro As Integer, CveMoneda As Integer, Saldo As Double, CveEmpresa As Integer) As Boolean
 
         Dim Retorno As Boolean = False
-
         DataAdapter("PA_Banc_IngresosPorComprobar")
 
         With SqlAdapter.SelectCommand.Parameters
@@ -909,7 +904,6 @@ Public Class ClsMovimientos
     Public Function GetIngresosAnticiposPorComprobar(FechaInicio As String, FechaFin As String, CveCliente As Integer, CveUsuarioRegistro As Integer, CveMoneda As Integer, Saldo As Double, CveEmpresa As Integer) As Boolean
 
         Dim Retorno As Boolean = False
-
         DataAdapter("PA_Banc_IngresosAnticiposSinComprobar")
 
         With SqlAdapter.SelectCommand.Parameters
@@ -935,7 +929,6 @@ Public Class ClsMovimientos
     Public Function GetMovimientosIE(Opcion As Integer, CveFiltro As Integer, CveCuentaBancaria As Integer, FechaInicio As Date, FechaFin As Date, CveMoneda As Integer, Saldo As Double, CveEmpresa As Integer) As Boolean
 
         Dim Retorno As Boolean = False
-
         DataAdapter("PA_Banc_MovimientosIE")
 
         With SqlAdapter.SelectCommand.Parameters
@@ -962,7 +955,6 @@ Public Class ClsMovimientos
     Public Function GetEgresosSinComprobarPersonal(CveEmpresa As Integer) As Boolean
 
         Dim Retorno As Boolean = False
-
         DataAdapter("PA_Banc_EgresosSinComprobarPersonal")
 
         With SqlAdapter.SelectCommand.Parameters
@@ -982,7 +974,6 @@ Public Class ClsMovimientos
     Public Function GetChequesFYE(CveEmpresa As Integer, Optional FechaI As DateTime = ModExtensiones.MinFecha, Optional FechaF As DateTime = ModExtensiones.MaxFecha) As Boolean
 
         Dim Retorno As Boolean = False
-
         DataAdapter("PA_Banc_ReporteChequesFYEGet")
 
         With SqlAdapter.SelectCommand.Parameters
@@ -1004,7 +995,6 @@ Public Class ClsMovimientos
     Public Function GetEgresosSinComprobarPersonalDetalle(CvePersonal As Integer, CveEmpresa As Integer) As Boolean
 
         Dim Retorno As Boolean = False
-
         DataAdapter("PA_Banc_EgresosSinComprobarPersonalDetalle")
 
         With SqlAdapter.SelectCommand.Parameters
@@ -1025,8 +1015,7 @@ Public Class ClsMovimientos
     Public Function GetDeudoresSaldos(CveProveedor As Integer, CveEmpresa As Integer) As Boolean
 
         Dim Retorno As Boolean = False
-
+        DataAdapter("PA_Banc_DeudoresSaldosGet")
-        DataAdapter("PA_Banc_DeudoresSaldos")
 
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
@@ -1045,8 +1034,7 @@ Public Class ClsMovimientos
     Public Function GetDeudoresComisionesSaldos(CveEmpresa As Integer) As Boolean
 
         Dim Retorno As Boolean = False
-
+        DataAdapter("PA_Banc_DeudoresComisionesSaldosGet")
-        DataAdapter("PA_Banc_DeudoresComisionesSaldos")
 
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
@@ -1064,8 +1052,7 @@ Public Class ClsMovimientos
     Public Function GetDeudoresComisionesSaldosDetalle(CveProveedor As Integer, CveEmpresa As Integer) As Boolean
 
         Dim Retorno As Boolean = False
-
+        DataAdapter("PA_Banc_DeudoresComisionesSaldosDetalleGet")
-        DataAdapter("PA_Banc_DeudoresComisionesSaldosDetalle")
 
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
@@ -1085,7 +1072,6 @@ Public Class ClsMovimientos
     Public Function GetDeudoresSaldos2(CveProveedor As Integer, CveEmpresa As Integer) As Boolean
 
         Dim Retorno As Boolean = False
-
         DataAdapter("PA_Banc_DeudoresSaldos2")
 
         With SqlAdapter.SelectCommand.Parameters
@@ -1106,7 +1092,6 @@ Public Class ClsMovimientos
     Public Function GetSaldosDeudorAcreedorAnticipos(FechaInicio As Date, FechaFin As Date, Opcion As Integer, CveProveedor As Integer, CvePersonal As Integer, CveClasificacion As Integer, CveUsuarioRegistro As Integer, CveUsuarioResponsable As Integer, CveMoneda As Integer, Saldo As Double, CveEmpresa As Integer) As Boolean
 
         Dim Retorno As Boolean = False
-
         DataAdapter("PA_Banc_SaldosDAP")
 
         With SqlAdapter.SelectCommand.Parameters
@@ -1136,8 +1121,7 @@ Public Class ClsMovimientos
     Public Function GetDeudoresSaldosDetalle(CveProveedor As Integer, CveMoneda As Integer, CveEmpresa As Integer) As Boolean
 
         Dim Retorno As Boolean = False
-
+        DataAdapter("PA_Banc_DeudoresSaldosDetalleGet")
-        DataAdapter("PA_Banc_DeudoresSaldosDetalle")
 
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
@@ -1158,7 +1142,6 @@ Public Class ClsMovimientos
     Public Function GetIngresosSaldos(CveCliente As Integer, CveEmpresa As Integer) As Boolean
 
         Dim Retorno As Boolean = False
-
         DataAdapter("PA_Banc_IngresosSaldos")
 
         With SqlAdapter.SelectCommand.Parameters
@@ -1179,7 +1162,6 @@ Public Class ClsMovimientos
     Public Function GetOtrosIngresos(Opcion As Integer, CveCliente As Integer, CveProveedor As Integer, CveEmpresa As Integer) As Boolean
 
         Dim Retorno As Boolean = False
-
         DataAdapter("PA_Banc_OtrosIngresos")
 
         With SqlAdapter.SelectCommand.Parameters
@@ -1202,7 +1184,6 @@ Public Class ClsMovimientos
     Public Function GetIngresosSaldosDetalle(CveCliente As Integer, CveMoneda As Integer, CveEmpresa As Integer) As Boolean
 
         Dim Retorno As Boolean = False
-
         DataAdapter("PA_Banc_IngresosSaldosDetalle")
 
         With SqlAdapter.SelectCommand.Parameters
@@ -1224,7 +1205,6 @@ Public Class ClsMovimientos
     Public Function GetDocumentosxPagarDetalle(CveCliente As Integer, CveMoneda As Integer, Opcion As Integer, CveEmpresa As Integer) As Boolean
 
         Dim Retorno As Boolean = False
-
         DataAdapter("PA_Banc_DocumentosxPagarSaldosDetalle")
 
         With SqlAdapter.SelectCommand.Parameters
@@ -1247,7 +1227,6 @@ Public Class ClsMovimientos
     Public Function GetCajaChicaDetalle(CveCajaChica As Integer, CveEmpresa As Integer) As Boolean
 
         Dim Retorno As Boolean = False
-
         DataAdapter("PA_Banc_CajaChicaDetalle")
 
         With SqlAdapter.SelectCommand.Parameters
@@ -1268,7 +1247,6 @@ Public Class ClsMovimientos
     Public Function UpdateReembolsoComprobante(CveComprobacion As Integer, Comprobante As String) As Boolean
 
         Dim Retorno As Boolean = False
-
         DataAdapter("PA_Comp_ReembolosoComprobanteUpdate")
 
         With SqlAdapter.SelectCommand.Parameters
@@ -1290,7 +1268,6 @@ Public Class ClsMovimientos
     Public Function GetAcreedoresSaldosDetalles(CveProveedor As Integer, CveMoneda As Integer, CveEmpresa As Integer) As Boolean
 
         Dim Retorno As Boolean = False
-
         DataAdapter("PA_Banc_AcreedoresSaldosDetalles")
 
         With SqlAdapter.SelectCommand.Parameters
@@ -1312,7 +1289,6 @@ Public Class ClsMovimientos
     Public Function GetAcreedoresSaldos(CveProveedor As Integer, CveMoneda As Integer, CveEmpresa As Integer) As Boolean
 
         Dim Retorno As Boolean = False
-
         DataAdapter("PA_Banc_AcreedoresSaldos")
 
         With SqlAdapter.SelectCommand.Parameters
@@ -1414,7 +1390,6 @@ Public Class ClsMovimientos
                                   Optional ConComprobacion As Integer = -1, Optional AplicaNC As Integer = -1) As Boolean
 
         Dim Retorno As Boolean = False
-
         DataAdapter("PA_Comp_CxPProgramar")
 
         With SqlAdapter.SelectCommand.Parameters

Bancos/DepositosCaja.aspx

@@ -318,14 +318,14 @@
                         </div>
                     </div>
 
-                    <div class="col-md-1" id="DivIVA">
+                    <div class="col-md-1" id="DivIVA" style="display:none;">
                         <div class="form-group form-md-line-input input-iconright">
                             <asp:TextBox runat="server" ID="TxtIVA" Width="75px" onkeypress="return numericOnly(this);" ondrop="return false;" onpaste="return false;" CssClass="form-control Numeros"></asp:TextBox>
                             <label for="<%=  TxtIVA.ClientID.ToString()%>">IVA:</label>
                         </div>
                     </div>
 
-                    <div class="col-md-1" id="dd2" style="margin-right: 100px;">
+                    <div class="col-md-1" style="margin-right: 100px;" id="divInterClasif" runat="server">
 
                         <div class="form-group form-md-line-input input-iconright">
                             <asp:DropDownList ID="DdlClasificacionIntermediario" AutoPostBack="false" Class="  form-control  select2me" runat="server" AppendDataBoundItems="true" DataTextField="Clasificacion" DataValueField="CveClasificacion">
@@ -336,7 +336,7 @@
 
 
                     </div>
-                    <div class="col-md-2" id="divSubProyectoIntermediario">
+                    <div class="col-md-2"  id="divInterSubProyecto" runat="server">
                         <div class="form-group form-md-line-input input-iconright">
                             <asp:DropDownList ID="DdlSubProyectoIntermediario" runat="server" Width="100%" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control select2me">
                             </asp:DropDownList>

Bancos/DepositosCaja.aspx.vb

@@ -15,11 +15,22 @@ Partial Class Bancos_DepositosCaja
         Set(value As Integer)
             ViewState("FacturasCheckadas") = value
         End Set
+    End Property
+
+    Private Property IntermediarioPendiente As Boolean
+        Get
+            Return ViewState("IntermediarioPendiente").ToString.ToBool
+        End Get
+        Set(value As Boolean)
+            ViewState("IntermediarioPendiente") = value
+        End Set
     End Property
 
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not IsPostBack Then
             FacturasCheckadas = 0
+            IntermediarioPendiente = False
+
             TxtFecha.Text = NowADS().ToShortDateString
             txtFechaI.Text = NowADS().AddDays(-1).ToShortDateString
             txtFechaF.Text = NowADS().ToShortDateString
@@ -45,6 +56,12 @@ Partial Class Bancos_DepositosCaja
             'Dim StrEncriptPrueba As String = Encripta($"OP=DC&CveIE={2784391}&CuentaCaja={"TestCuantaCaja"}&CuentaDepo={"Test cuenta"}")
             'HplImprimirPDF.NavigateUrl = $"/Compras/PopUpVerFactura.aspx?P={StrEncriptPrueba}"
 
+            If UsuarioActual.CveEmpresa = 145 Then
+                IntermediarioPendiente = True
+                divInterClasif.Visible = False
+                divInterSubProyecto.Visible = False
+            End If
+
             If UsuarioActual.CveEmpresa = 189 Then
                 If DdlTipoPago.Items.FindByValue("-1") IsNot Nothing Then
                     DdlTipoPago.Items.Remove(DdlTipoPago.Items.FindByValue("-1"))
@@ -307,35 +324,7 @@ Partial Class Bancos_DepositosCaja
 
             NuevaCvePrePoliza = ObjConta.AddPrePolizas("DepCaja", 13, TotalImportePrePoliza, TotalImportePrePoliza, CveMoneda, Fecha, $"Depósito Bancario - {DdlTipoDeposito.SelectedItem.Text}", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoPoliza:=1)
 
-            Dim IntermediarioFactura As Boolean = False
-            If UsuarioActual.CveEmpresa = 145 Then IntermediarioFactura = True
-            If ChkIntermediario.Checked Then
 
-                CveSubProyectoIntermediario = DdlSubProyectoIntermediario.SelectedValue.ToEntero
-                CveClasificacionIntermediario = DdlClasificacionIntermediario.SelectedValue.ToEntero
-                CveProveedorIntermediario = DdlProveedorIntermediario.SelectedValue.ToEntero
-
-                If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then ' empresa llantera
-                    If Not ObjConta.AddPrePolizasDetalle(NuevaCvePrePoliza, False, TotalImporte, TotalImporte, 95, DdlClasificacionIntermediario.SelectedItem.Text, DdlClasificacionIntermediario.SelectedItem.Text, CveClasificacion:=CveClasificacionIntermediario, CveSubProyecto:=CveSubProyectoIntermediario, CveProveedor:=CveProveedorIntermediario, CveCuenta:=57619) Then
-                        OcurrioError = True
-                    End If
-                    If Not ObjConta.AddPrePolizasDetalle(NuevaCvePrePoliza, True, TotalImporte, TotalImporte, 95, DdlClasificacionIntermediario.SelectedItem.Text, DdlClasificacionIntermediario.SelectedItem.Text, CveClasificacion:=CveClasificacionIntermediario, CveSubProyecto:=CveSubProyectoIntermediario, CveProveedor:=CveProveedorIntermediario, CveCuenta:=57619) Then
-                        OcurrioError = True
-                    End If
-                End If
-
-                If Not IntermediarioFactura Then ' si factura no se manda al gasto sino se disminuye solo lo depositado
-                    If Not ObjConta.AddPrePolizasDetalle(NuevaCvePrePoliza, False, ImporteInter, ImporteInter, 51, DdlClasificacionIntermediario.SelectedItem.Text, DdlClasificacionIntermediario.SelectedItem.Text, CveClasificacion:=CveClasificacionIntermediario, CveSubProyecto:=CveSubProyectoIntermediario) Then
-                        OcurrioError = True
-                    End If
-                End If
-
-                If IVA <> 0 Then
-                    If Not OcurrioError AndAlso Not ObjConta.AddPrePolizasDetalle(NuevaCvePrePoliza, False, IVA, IVA, 14, DdlClasificacionIntermediario.SelectedItem.Text, DdlClasificacionIntermediario.SelectedItem.Text, CveClasificacion:=CveClasificacionIntermediario, CveSubProyecto:=CveSubProyectoIntermediario, PorcentajeImpuesto:=0.16D) Then
-                        OcurrioError = True
-                    End If
-                End If
-            End If
 
             Dim CveTransaccionBanco As Integer = DdlTipoDeposito.SelectedValue.ToEntero
 
@@ -419,6 +408,38 @@ Partial Class Bancos_DepositosCaja
                 OcurrioError = True
             End If
 
+            If Not OcurrioError AndAlso ChkIntermediario.Checked Then
+
+                CveSubProyectoIntermediario = DdlSubProyectoIntermediario.SelectedValue.ToEntero
+                CveClasificacionIntermediario = DdlClasificacionIntermediario.SelectedValue.ToEntero
+                CveProveedorIntermediario = DdlProveedorIntermediario.SelectedValue.ToEntero
+
+                If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then ' empresa llantera
+                    If Not ObjConta.AddPrePolizasDetalle(NuevaCvePrePoliza, False, TotalImporte, TotalImporte, 95, DdlClasificacionIntermediario.SelectedItem.Text, DdlClasificacionIntermediario.SelectedItem.Text, CveClasificacion:=CveClasificacionIntermediario, CveSubProyecto:=CveSubProyectoIntermediario, CveProveedor:=CveProveedorIntermediario, CveCuenta:=57619) Then
+                        OcurrioError = True
+                    End If
+                    If Not ObjConta.AddPrePolizasDetalle(NuevaCvePrePoliza, True, TotalImporte, TotalImporte, 95, DdlClasificacionIntermediario.SelectedItem.Text, DdlClasificacionIntermediario.SelectedItem.Text, CveClasificacion:=CveClasificacionIntermediario, CveSubProyecto:=CveSubProyectoIntermediario, CveProveedor:=CveProveedorIntermediario, CveCuenta:=57619) Then
+                        OcurrioError = True
+                    End If
+                End If
+
+                If Not IntermediarioPendiente Then ' si factura no se manda al gasto sino se disminuye solo lo depositado
+                    If Not ObjConta.AddPrePolizasDetalle(NuevaCvePrePoliza, False, ImporteInter, ImporteInter, 51, DdlClasificacionIntermediario.SelectedItem.Text, DdlClasificacionIntermediario.SelectedItem.Text, CveClasificacion:=CveClasificacionIntermediario, CveSubProyecto:=CveSubProyectoIntermediario) Then
+                        OcurrioError = True
+                    End If
+                Else 'se manda el saldo como deudor
+                    If Not ObjConta.AddPrePolizasDetalle(NuevaCvePrePoliza, False, ImporteInter, ImporteInter, 37, "Comisión Intermediario", "Comisión Intermediario", CveClasificacion:=CveClasificacionIntermediario, CveSubProyecto:=CveSubProyectoIntermediario, CveProveedor:=DdlProveedorIntermediario.SelectedValue.ToEntero, CveIE:=CveIEOrigen) Then
+                        OcurrioError = True
+                    End If
+                End If
+
+                If IVA <> 0 Then
+                    If Not OcurrioError AndAlso Not ObjConta.AddPrePolizasDetalle(NuevaCvePrePoliza, False, IVA, IVA, 14, DdlClasificacionIntermediario.SelectedItem.Text, DdlClasificacionIntermediario.SelectedItem.Text, CveClasificacion:=CveClasificacionIntermediario, CveSubProyecto:=CveSubProyectoIntermediario, PorcentajeImpuesto:=0.16D) Then
+                        OcurrioError = True
+                    End If
+                End If
+            End If
+
             If Not OcurrioError AndAlso ChkCuentaRetorno.Checked Then
                 If Not ObjConta.AddPrePolizasDetalle(NuevaCvePrePoliza, True, CuentaRetorno, CuentaRetorno * TipoCambio, 325, $"Depósito Bancario - CAJA - {tSubProyectoDeposito}", TxtCuentaRetornoObs.Text.Trim, CveSubProyecto:=CveSubProyecto) Then
                     OcurrioError = True
@@ -436,11 +457,11 @@ Partial Class Bancos_DepositosCaja
                         Dim Importe As Decimal = Gvr.DataKey("Importe").ToDecimal
                         Dim SerieFolio As String = Gvr.DataKey("SerieFolio").ToString
 
-                        'si es el primero, se descuenta la "comisión"
+                        ''si es el primero, se descuenta la "comisión"
-                        If i = 0 AndAlso IntermediarioFactura Then
+                        'If i = 0 AndAlso IntermediarioPendiente Then
-                            Importe = Importe - ImporteInter
+                        '    Importe = Importe - ImporteInter
-                            i += 1
+                        '    i += 1
-                        End If
+                        'End If
 
                         'Datos de las Prepolizas A Cancelar
                         Dim CveIE As Integer = Gvr.DataKey("CveIE").ToEntero