Archivado/Noviseda_FactuGES2
Archived
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

#355 Listo para subida 1.0.1

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Noviseda_FactuGES2/trunk@95 f33bb606-9f5c-448d-9c99-757f00063c96
This commit is contained in:
David Arranz 2010-02-12 10:42:03 +00:00
parent f6028e4dd5
commit d2d97e8ea5
5 changed files with 12 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
Build/Build.fbl6
View File

Binary file not shown.

12
Source/Modulos/Referencias/Controller/uReferenciasController.pas
View File

@ -59,6 +59,9 @@ end;
procedure TReferenciasController.FiltrarEmpresa(AReferencias: IBizReferencia); procedure TReferenciasController.FiltrarEmpresa(AReferencias: IBizReferencia);
var var
Condicion: TDAWhereExpression; Condicion: TDAWhereExpression;
Condicion1: TDAWhereExpression;
Condicion2: TDAWhereExpression;
begin begin
if AReferencias.DataTable.Active then if AReferencias.DataTable.Active then
AReferencias.DataTable.Active := False; AReferencias.DataTable.Active := False;
@ -66,9 +69,14 @@ begin
// Filtrar las facturas actuales por empresa // Filtrar las facturas actuales por empresa
with AReferencias.DataTable.DynamicWhere do with AReferencias.DataTable.DynamicWhere do
begin 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); 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 if IsEmpty then
Expression := Condicion Expression := Condicion

2
Source/Modulos/Referencias/Servidor/srvReferencias_Impl.dfm
View File

@ -21,7 +21,7 @@ object srvReferencias: TsrvReferencias
Name = 'IBX' Name = 'IBX'
SQL = SQL =
'SELECT '#10' ID, ID_EMPRESA, CODIGO, VALOR, DESCRIPCION'#10' FROM'#10' ' + 'SELECT '#10' ID, ID_EMPRESA, CODIGO, VALOR, DESCRIPCION'#10' FROM'#10' ' +
' REFERENCIAS'#10' WHERE ID_EMPRESA IS NULL'#10' or {Where}'#10 ' REFERENCIAS'#10' WHERE {Where}'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

2
Source/Servidor/FactuGES_Server.rc
View File

@ -14,7 +14,7 @@ BEGIN
BEGIN BEGIN
VALUE "FileVersion", "1.0.1.0\0" VALUE "FileVersion", "1.0.1.0\0"
VALUE "ProductVersion", "1.0.1.0\0" VALUE "ProductVersion", "1.0.1.0\0"
VALUE "CompileDate", "viernes, 12 de febrero de 2010 10:26\0" VALUE "CompileDate", "viernes, 12 de febrero de 2010 10:53\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"