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

-- no validar al iniciar si tiene ventas registradas en el rfc, está alentando

Browse Source
This commit is contained in:
rrene
2024-04-20 12:21:23 -07:00
parent 5828759032
commit 56420ed22f
2 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Bancos/PopIECompras.aspx
View File

@@ -47,7 +47,7 @@
<asp:ListItem Value="2">Viaticos - Personal</asp:ListItem>
<asp:ListItem Value="4">Deudores</asp:ListItem>
<asp:ListItem Value="5">Acreedores</asp:ListItem>
<asp:ListItem Value="6" Enabled ="False">Ventas</asp:ListItem>
<asp:ListItem Value="6">Ventas</asp:ListItem>
</asp:RadioButtonList>
</div>
</div>

10
Bancos/PopIECompras.aspx.vb
View File

@@ -337,11 +337,11 @@ Partial Class Bancos_PopIECompras
CargaTipoTransaccion(TipoTransaccion)
CargaCuentas()
Dim ObjVentas As New ClsVentas
If ObjVentas.GetVentas(UsuarioActual.CveEmpresa, "-1", "-1", -1, "-1", -1, -1, -1, -1, "-1", "-1", "-1", ClienteRFC:=RFCProveedor, CveUsuarioConsulta:=UsuarioActual.CveUsuario) Then
RBLContado.Items(4).Enabled = True
End If
ObjVentas.Dispose()
'Dim ObjVentas As New ClsVentas
'If ObjVentas.GetVentas(UsuarioActual.CveEmpresa, "-1", "-1", -1, "-1", -1, -1, -1, -1, "-1", "-1", "-1", ClienteRFC:=RFCProveedor, CveUsuarioConsulta:=UsuarioActual.CveUsuario) Then
' RBLContado.Items(4).Enabled = True
'End If
'ObjVentas.Dispose()
If CveMoneda = 2 Then
ChkPagarPesos.Visible = True