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

Merge branch 'master' of http://oirigoyen@192.168.10.111:8383/SIG.git

Browse Source
This commit is contained in:
rakcsle
2021-12-13 09:37:45 -07:00
parent d75b5adb5c ebb55ec73b
commit 832c54ad25
62 changed files with 3632 additions and 3621 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Bancos/PopIEVentas.aspx
View File

@@ -60,7 +60,7 @@
<asp:ListItem Value="2">F y E</asp:ListItem>
<asp:ListItem Value="3">Ingresos X Comprobar</asp:ListItem>
<asp:ListItem Value="4">Deudores</asp:ListItem>
<asp:ListItem Value="5">Compras</asp:ListItem>
<asp:ListItem Value="5" Enabled="false">Compras</asp:ListItem>
</asp:RadioButtonList>
</div>
</div>

25
Bancos/PopIEVentas.aspx.vb
View File

@@ -785,11 +785,25 @@ Partial Class Bancos_PopIEVentas
End If
If RFCCliente.ToUpper <> "XAXX010101000" Then
Dim ObjCompras As New ClsCompras
If ObjCompras.GetCompras(-1, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa, ProveedorRFC:=RFCCliente) Then
RBLContado.Items(4).Enabled = True
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
ObjCompras.Dispose()
'Dim ObjCompras As New ClsCompras
'If ObjCompras.GetCompras(-1, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa, ProveedorRFC:=RFCCliente) Then
' RBLContado.Items(4).Enabled = True
'End If
'ObjCompras.Dispose()
End If
If Not Validada Then
@@ -926,6 +940,9 @@ Partial Class Bancos_PopIEVentas
End Sub
Protected Sub CargaCompras(Optional CveMoneda As Integer = 1)
If RFCCliente = "XAXX010101000" Then Exit Sub
Dim ObjCompras As New ClsCompras
Dim ObjProveedor As New ClsCompProveedores
Dim CveProveedor As Integer = -1