-- centros de costo, texto proyecto

This commit is contained in:
2023-02-13 22:26:16 -07:00
parent 7278b31649
commit 656f04e537
3 changed files with 24 additions and 35 deletions

View File

@@ -288,7 +288,7 @@ Partial Class RepVentaDetalle
End Sub
Private Sub CargaCombos()
CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, Nothing, LblSubProyecto)
CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyecto, divProyecto:=DivProyecto)
CargaClientes()
'DdlClientes.setEsWebService(False)

View File

@@ -159,7 +159,7 @@ Partial Class Ventas_RepVentas
Private Sub CargaCombos()
CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, Nothing, LblSubProyecto)
CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyecto, divProyecto:=DivProyecto)
'CargaClientes
Dim EsWS = If(UsuarioActual.Empresa.Funcionalidad(105) = "1" Or UsuarioActual.Empresa.Funcionalidad(141) = "1", True, False)