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 Property
Private Property SaldoVenta As Double
Private Property SaldoVenta As Decimal
Get
Return ViewState("SaldoVenta").ToString.ToDouble
Return ViewState("SaldoVenta").ToString.ToDecimal
End Get
Set(value As Double)
Set(value As Decimal)
ViewState("SaldoVenta") = value
End Set
End Property
@@ -543,27 +543,29 @@ Partial Class Bancos_PopIEVentas
TxtImporte.Text = dr("Saldo").ToString.ToDouble.FormatoNumero
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
Dim CveProveedor As Integer = GlobalDTCompProveedores(UsuarioActual.CveEmpresa, RFC:=RFCCliente.ToUpper).FiltroPrimeroValor("CveProveedor").ToEntero
If Validada Then
Me.CveCorte = CargaCorteCaja(pCveVenta, UsuarioActual)
If CveProveedor > 0 Then
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
If RFCCliente.ToUpper <> "XAXX010101000" Then
Dim CveProveedor As Integer = GlobalDTCompProveedores(UsuarioActual.CveEmpresa, RFC:=RFCCliente.ToUpper).FiltroPrimeroValor("CveProveedor").ToEntero
If CveProveedor > 0 Then
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
Mov.Dispose()
End If
Mov.Dispose()
End If
End If
If Not Validada Then
Else
BtnGuardar.Visible = False
End If
End If