diff --git a/Source/Modulos/Referencias/Controller/uReferenciasController.pas b/Source/Modulos/Referencias/Controller/uReferenciasController.pas index 609aaf46..80fb014b 100644 --- a/Source/Modulos/Referencias/Controller/uReferenciasController.pas +++ b/Source/Modulos/Referencias/Controller/uReferenciasController.pas @@ -60,6 +60,9 @@ end; procedure TReferenciasController.FiltrarEmpresa(AReferencias: IBizReferencia); var Condicion: TDAWhereExpression; + Condicion1: TDAWhereExpression; + Condicion2: TDAWhereExpression; + begin if AReferencias.DataTable.Active then AReferencias.DataTable.Active := False; @@ -67,9 +70,13 @@ begin // Filtrar las facturas actuales por empresa with AReferencias.DataTable.DynamicWhere do begin - // (ID_EMPRESA >= ID) - Condicion := NewBinaryExpression(NewField('', fld_ReferenciasID_EMPRESA), + // (ID_EMPRESA = ID) + Condicion1 := NewBinaryExpression(NewField('', fld_ReferenciasID_EMPRESA), NewConstant(AppFactuGES.EmpresaActiva.ID, datInteger), dboEqual); + // (ID_EMPRESA = NULL) + Condicion2 := NewBinaryExpression(NewField('', fld_ReferenciasID_EMPRESA), NewNull(), dboEqual); + + Condicion := NewBinaryExpression(Condicion1, Condicion2, dboOr); if IsEmpty then Expression := Condicion diff --git a/Source/Modulos/Referencias/Servidor/srvReferencias_Impl.dfm b/Source/Modulos/Referencias/Servidor/srvReferencias_Impl.dfm index 4a246f99..70cc04d2 100644 --- a/Source/Modulos/Referencias/Servidor/srvReferencias_Impl.dfm +++ b/Source/Modulos/Referencias/Servidor/srvReferencias_Impl.dfm @@ -22,8 +22,7 @@ object srvReferencias: TsrvReferencias Name = 'IBX' SQL = 'SELECT '#10' ID, ID_EMPRESA, ID_TIENDA, CODIGO, VALOR, DESCRIPCIO' + - 'N'#10' FROM'#10' REFERENCIAS'#10' WHERE ID_EMPRESA IS NULL'#10' OR {Where}' + - #10 + 'N'#10' FROM'#10' REFERENCIAS'#10' WHERE {Where}'#10 StatementType = stSQL ColumnMappings = < item