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

This commit is contained in:
2024-04-20 12:21:23 -07:00
parent 5828759032
commit 56420ed22f
2 changed files with 6 additions and 6 deletions

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