diff --git a/CxC/RepCxC.aspx.vb b/CxC/RepCxC.aspx.vb index 34a9b77b2..7c3b73753 100644 --- a/CxC/RepCxC.aspx.vb +++ b/CxC/RepCxC.aspx.vb @@ -114,13 +114,11 @@ Partial Class RepCxC #Region "CARGAS" Private Sub CargaCombos() 'CargaClientes - If UsuarioActual.CveEmpresa = 119 Then + If UsuarioActual.Empresa.Funcionalidad(105) = "1" Then DdlClientesWS.setEsWebService(True) Else DdlClientesWS.setEsWebService(False) - DdlClientesWS.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1) - DdlClientesWS.DataBind() - DdlClientesWS.ddl.Items.Insert(0, New ListItem("Todos", "-1")) + CargaClientes() End If 'DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1) 'DdlClientes.DataBind() @@ -1433,7 +1431,7 @@ Partial Class RepCxC End Sub Private Sub CargaClientes() - If UsuarioActual.CveEmpresa <> 119 Then + If Not UsuarioActual.Empresa.Funcionalidad(105) = "1" Then DdlClientesWS.ddl.Items.Clear() DdlClientesWS.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1).FiltraParametros($"CveClienteClasificacion = {DdlClienteClasificacion.SelectedValue.ToEntero} OR {DdlClienteClasificacion.SelectedValue.ToEntero} = -1") DdlClientesWS.DataBind() diff --git a/CxC/RepCxCDetalle.aspx.vb b/CxC/RepCxCDetalle.aspx.vb index 9795b367f..8b2f794e6 100644 --- a/CxC/RepCxCDetalle.aspx.vb +++ b/CxC/RepCxCDetalle.aspx.vb @@ -205,13 +205,11 @@ Partial Class RepCxCDetalle 'CargaClientes 'CargaClientes - If UsuarioActual.CveEmpresa = 119 Then + If UsuarioActual.Empresa.Funcionalidad(105) = "1" Then DdlClientesWS.setEsWebService(True) Else - DdlClientesWS.setEsWebService(False) - DdlClientesWS.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1) - DdlClientesWS.DataBind() - DdlClientesWS.ddl.Items.Insert(0, New ListItem("Todos", "-1")) + DdlClientesWS.setEsWebService(False) + CargaClientes() End If 'DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1) 'DdlClientes.DataBind() @@ -983,7 +981,7 @@ Partial Class RepCxCDetalle End Sub Private Sub CargaClientes() - If UsuarioActual.CveEmpresa <> 119 Then + If Not UsuarioActual.Empresa.Funcionalidad(105) = "1" Then DdlClientesWS.ddl.Items.Clear() DdlClientesWS.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1).FiltraParametros($"CveClienteClasificacion = {DdlClienteClasificacion.SelectedValue.ToEntero} OR {DdlClienteClasificacion.SelectedValue.ToEntero} = -1") DdlClientesWS.DataBind() diff --git a/Empresas/141/Formatos/Factura.rdlc b/Empresas/141/Formatos/Factura.rdlc index 8061393f9..21039b981 100644 --- a/Empresas/141/Formatos/Factura.rdlc +++ b/Empresas/141/Formatos/Factura.rdlc @@ -469,11 +469,8 @@ - - Start - true - 5.84118in + 6.39118in 0.07484in 0.91543in 8.23221in @@ -910,7 +907,7 @@ - 0.14436in + 0.13436in @@ -1259,7 +1256,7 @@ DsOC 2.12778in 0.09836in - 0.34081in + 0.33081in 8.20966in 1 + + true + true + + + + + ** SI LAS LLANTAS NO SON INSTALADAS EN ECONOLLANTAS PIERDE SU GARANTÍA DE FABRICA ** + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + - 17.16179cm + 18.7493cm