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

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

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2024-07-17 20:59:03 -07:00
parent b706dc9b2c f1736c4e53
commit a3f9c0eaf4
7 changed files with 62 additions and 49 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
Ventas/RepProductosServicios.aspx.vb
View File

@@ -60,7 +60,9 @@ Partial Class Ventas_RepProductosServicios
#Region " CARGA DATOS INICIALES "
Private Sub CargaGrupo()
If DdlProyecto.Visible Then DdlGrupo.Items.Insert(0, New ListItem("Proyecto", "1"))
Dim TextoProyecto = "Proyecto"
If UsuarioActual.Empresa.Funcionalidad(307) <> "" Then TextoProyecto = UsuarioActual.Empresa.Funcionalidad(307)
If DdlProyecto.Visible Then DdlGrupo.Items.Insert(0, New ListItem(TextoProyecto, "1"))
DdlGrupo.Items.Add(New ListItem(LblSubProyecto.Text, "2"))
DdlGrupo.Items.Add(New ListItem("Categoria", "3"))
DdlGrupo.Items.Add(New ListItem("Clasificación", "4"))
@@ -83,7 +85,8 @@ Partial Class Ventas_RepProductosServicios
DdlGrupo.Items.Add(New ListItem("Tipo Cliente", "23"))
DdlGrupo.Items.Add(New ListItem("Marca", "24"))
DdlGrupo.Items.Add(New ListItem("Cliente Sucursal", "26"))
DdlGrupo.Items.Add(New ListItem("Giro", "27"))
DdlGrupo.Items.Add(New ListItem("Giro", "27"))
If UsuarioActual.CveEmpresa = 119 Then DdlGrupo.Items.Add(New ListItem("Proveedor", "29"))
DdlGrupo.DataBind()
DdlGrupo.SelectedValueExist("8")

4
Ventas/Ventas.aspx.vb
View File

@@ -8426,7 +8426,7 @@ Partial Class Ventas
ObjClientes.Dispose()
Me.ObjFacturaNC = Nothing
Me.ObjFacturaNC = New Modelos.Factura(UsuarioActual, pCveVenta, UsuarioActual.CveEmpresa, DirectorioServidor:=ModExtensiones.DirectorioBaseEmpresas, EsCancelacion:=False)
Me.ObjFacturaNC = New Modelos.Factura(UsuarioActual, pCveVenta, UsuarioActual.CveEmpresa, DirectorioServidor:=ModExtensiones.DirectorioBaseEmpresas, EsCancelacion:=False, VerificaAlmacen:=False)
DdlNCFactura.DataSource = DTFacNC
DdlNCFactura.DataBind()
@@ -25394,6 +25394,8 @@ Partial Class Ventas
End If
Else
PermiteCancelar = False
'si hay error para obtener información que no continue.
Exit Sub
End If
End Using