From e6c543db228e374a1170f4da3cfd5504b0c2e5fa Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 14 Apr 2025 20:07:56 -0700 Subject: [PATCH] --depositos con intermediario vsh prot --- App_Code/ClsMovimientos.vb | 33 ++------------ Bancos/DepositosCaja.aspx | 6 +-- Bancos/DepositosCaja.aspx.vb | 87 ++++++++++++++++++++++-------------- 3 files changed, 61 insertions(+), 65 deletions(-) diff --git a/App_Code/ClsMovimientos.vb b/App_Code/ClsMovimientos.vb index a385fa77e..373a3253f 100644 --- a/App_Code/ClsMovimientos.vb +++ b/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_DeudoresSaldos") + DataAdapter("PA_Banc_DeudoresSaldosGet") 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_DeudoresComisionesSaldos") + DataAdapter("PA_Banc_DeudoresComisionesSaldosGet") 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_DeudoresComisionesSaldosDetalle") + DataAdapter("PA_Banc_DeudoresComisionesSaldosDetalleGet") 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_DeudoresSaldosDetalle") + DataAdapter("PA_Banc_DeudoresSaldosDetalleGet") 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 diff --git a/Bancos/DepositosCaja.aspx b/Bancos/DepositosCaja.aspx index 0c2d9a41c..572d50b61 100644 --- a/Bancos/DepositosCaja.aspx +++ b/Bancos/DepositosCaja.aspx @@ -318,14 +318,14 @@ -
+ -
+
@@ -336,7 +336,7 @@
-
+
diff --git a/Bancos/DepositosCaja.aspx.vb b/Bancos/DepositosCaja.aspx.vb index 5db1c8b8e..ae07aa495 100644 --- a/Bancos/DepositosCaja.aspx.vb +++ b/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" - If i = 0 AndAlso IntermediarioFactura Then - Importe = Importe - ImporteInter - i += 1 - End If + ''si es el primero, se descuenta la "comisión" + 'If i = 0 AndAlso IntermediarioPendiente Then + ' Importe = Importe - ImporteInter + ' i += 1 + 'End If 'Datos de las Prepolizas A Cancelar Dim CveIE As Integer = Gvr.DataKey("CveIE").ToEntero