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="2">Viaticos - Personal</asp:ListItem>
<asp:ListItem Value="4">Deudores</asp:ListItem> <asp:ListItem Value="4">Deudores</asp:ListItem>
<asp:ListItem Value="5">Acreedores</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> </asp:RadioButtonList>
</div> </div>
</div> </div>

10
Bancos/PopIECompras.aspx.vb
View File

@@ -337,11 +337,11 @@ Partial Class Bancos_PopIECompras
CargaTipoTransaccion(TipoTransaccion) CargaTipoTransaccion(TipoTransaccion)
CargaCuentas() CargaCuentas()
Dim ObjVentas As New ClsVentas '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 '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 ' RBLContado.Items(4).Enabled = True
End If 'End If
ObjVentas.Dispose() 'ObjVentas.Dispose()
If CveMoneda = 2 Then If CveMoneda = 2 Then
ChkPagarPesos.Visible = True ChkPagarPesos.Visible = True