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

--validacion saldo =0

Browse Source
This commit is contained in:
rrene
2025-05-15 06:11:40 -07:00
parent f12d8407a9
commit 7b35d724c1
1 changed files with 20 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

38
Bancos/PopIEVentas.aspx.vb
View File

@@ -125,11 +125,11 @@ Partial Class Bancos_PopIEVentas
End Set End Set
End Property End Property
Private Property SaldoVenta As Double Private Property SaldoVenta As Decimal
Get Get
Return ViewState("SaldoVenta").ToString.ToDouble Return ViewState("SaldoVenta").ToString.ToDecimal
End Get End Get
Set(value As Double) Set(value As Decimal)
ViewState("SaldoVenta") = value ViewState("SaldoVenta") = value
End Set End Set
End Property End Property
@@ -543,27 +543,29 @@ Partial Class Bancos_PopIEVentas
TxtImporte.Text = dr("Saldo").ToString.ToDouble.FormatoNumero TxtImporte.Text = dr("Saldo").ToString.ToDouble.FormatoNumero
FechaVenta = dr("Fecha").ToString.ToDate FechaVenta = dr("Fecha").ToString.ToDate
SaldoVenta = dr("Saldo").ToString.ToDouble SaldoVenta = dr("Saldo").ToString.ToDecimal
Me.CveCorte = CargaCorteCaja(pCveVenta, UsuarioActual) 'si ya está pagada, bloquear.
If SaldoVenta <= 0 Then Validada = False
If RFCCliente.ToUpper <> "XAXX010101000" Then If Validada Then
Dim CveProveedor As Integer = GlobalDTCompProveedores(UsuarioActual.CveEmpresa, RFC:=RFCCliente.ToUpper).FiltroPrimeroValor("CveProveedor").ToEntero Me.CveCorte = CargaCorteCaja(pCveVenta, UsuarioActual)
If CveProveedor > 0 Then If RFCCliente.ToUpper <> "XAXX010101000" Then
Dim Mov As New ClsMovimientos Dim CveProveedor As Integer = GlobalDTCompProveedores(UsuarioActual.CveEmpresa, RFC:=RFCCliente.ToUpper).FiltroPrimeroValor("CveProveedor").ToEntero
If Mov.GetCxPProveedor(CveProveedor, MinFecha.ToShortDateString, MaxFecha.ToShortDateString, -1, -1, -1, -1, -1, 1, -1, -1, "-1", "-1", "-1") Then
If Mov.DtResultados.FiltraParametros("Saldo > 0", "Fecha,SerieFolio").Rows.Count > 0 Then If CveProveedor > 0 Then
RBLContado.Items(4).Enabled = True Dim Mov As New ClsMovimientos
If Mov.GetCxPProveedor(CveProveedor, MinFecha.ToShortDateString, MaxFecha.ToShortDateString, -1, -1, -1, -1, -1, 1, -1, -1, "-1", "-1", "-1") Then
If Mov.DtResultados.FiltraParametros("Saldo > 0", "Fecha,SerieFolio").Rows.Count > 0 Then
RBLContado.Items(4).Enabled = True
End If
End If End If
Mov.Dispose()
End If End If
Mov.Dispose()
End If End If
Else
End If
If Not Validada Then
BtnGuardar.Visible = False BtnGuardar.Visible = False
End If End If
End If End If