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

--depositos con intermediario vsh prot

Browse Source
This commit is contained in:
rrene
2025-04-14 20:07:56 -07:00
parent d2046c1466
commit e6c543db22
3 changed files with 61 additions and 65 deletions
Download Patch File Download Diff File Expand all files Collapse all files

33
App_Code/ClsMovimientos.vb
View File

@@ -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

6
Bancos/DepositosCaja.aspx
View File

@@ -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>

87
Bancos/DepositosCaja.aspx.vb
View File

@@ -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