Tecistel/Tecsitel_FactuGES2
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Se cambia el añadir la clausula de idempresa cuando sea necesaria, por tratamiento de cadenas ya que por dynamicwhere no funciona

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@826 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
roberto 2009-01-08 12:29:05 +00:00
parent 340a8a5a3d
commit 9ec61ad297
7 changed files with 332 additions and 346 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
Source/Cliente/FactuGES.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "C:\Codigo Tecsitel\Resources\Iconos\Factuges.ico" MAINICON ICON "C:\Codigo Tecsitel\Resources\Iconos\Factuges.ico"
1 VERSIONINFO 1 VERSIONINFO
FILEVERSION 1,4,9,0 FILEVERSION 1,5,0,0
PRODUCTVERSION 1,4,9,0 PRODUCTVERSION 1,5,0,0
FILEFLAGSMASK 0x3FL FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L FILEFLAGS 0x00L
FILEOS 0x40004L FILEOS 0x40004L
@ -13,10 +13,10 @@ BEGIN
BLOCK "0C0A04E4" BLOCK "0C0A04E4"
BEGIN BEGIN
VALUE "CompanyName", "Rodax Software S.L.\0" VALUE "CompanyName", "Rodax Software S.L.\0"
VALUE "FileVersion", "1.4.9.0\0" VALUE "FileVersion", "1.5.0.0\0"
VALUE "InternalName", "FactuGES\0" VALUE "InternalName", "FactuGES\0"
VALUE "ProductName", "FactuGES\0" VALUE "ProductName", "FactuGES\0"
VALUE "ProductVersion", "1.4.9.0\0" VALUE "ProductVersion", "1.5.0.0\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"

BIN
Source/Cliente/FactuGES.res
View File

Binary file not shown.

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

@ -97,7 +97,7 @@ object srvReferencias: TsrvReferencias
Name = 'IBX' Name = 'IBX'
SQL = SQL =
'UPDATE REFERENCIAS SET'#10' VALOR = :VALOR'#10'WHERE CODIGO = :CODIGO' + 'UPDATE REFERENCIAS SET'#10' VALOR = :VALOR'#10'WHERE CODIGO = :CODIGO' +
#10' AND {Where}'#10 #10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>

20
Source/Modulos/Referencias/Servidor/srvReferencias_Impl.pas
View File

@ -121,24 +121,9 @@ var
ASchema : TDASchema; ASchema : TDASchema;
AConn : IDAConnection; AConn : IDAConnection;
dsCommand: IDASQLCommand; dsCommand: IDASQLCommand;
AWhere : TDAWhereExpression;
begin begin
Result := False; Result := False;
AWhere := NIL;
{ Construir la expresión del Where a partir de los parámetros
que se reciban.
}
if (EmpresaID <> -1) then
begin
with TDAWhereBuilder.Create do
try
AWhere := NewBinaryExpression(NewField('', 'ID_EMPRESA'), NewConstant(EmpresaID, datInteger), dboEqual);
finally
Free;
end;
end;
ASchema := schReferencias; ASchema := schReferencias;
AConn := dmServer.ConnectionManager.NewConnection(dmServer.ConnectionManager.GetDefaultConnectionName); AConn := dmServer.ConnectionManager.NewConnection(dmServer.ConnectionManager.GetDefaultConnectionName);
@ -149,8 +134,9 @@ begin
begin begin
ParamByName('CODIGO').AsString := NombreReferencia; ParamByName('CODIGO').AsString := NombreReferencia;
ParamByName('VALOR').AsString := DarReferenciaSiguiente(Valor); ParamByName('VALOR').AsString := DarReferenciaSiguiente(Valor);
if EmpresaID <> -1 then if EmpresaID <> -1 then
dsCommand.DynamicWhere.Expression := AWhere; dsCommand.SQL := dsCommand.SQL + ' AND ID_EMPRESA = ' + IntToStr(EmpresaID);
end; end;
dsCommand.Execute; dsCommand.Execute;
AConn.CommitTransaction; AConn.CommitTransaction;

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

2
Source/Servidor/FactuGES_Server.dproj
View File

@ -1,4 +1,4 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003"> <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup> <PropertyGroup>
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid> <ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>

10
Source/Servidor/FactuGES_Server.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "C:\Codigo Tecsitel\Resources\Iconos\Servidor.ico" MAINICON ICON "C:\Codigo Tecsitel\Resources\Iconos\Servidor.ico"
1 VERSIONINFO 1 VERSIONINFO
FILEVERSION 1,4,9,0 FILEVERSION 1,5,0,0
PRODUCTVERSION 1,4,9,0 PRODUCTVERSION 1,5,0,0
FILEFLAGSMASK 0x3FL FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L FILEFLAGS 0x00L
FILEOS 0x40004L FILEOS 0x40004L
@ -12,9 +12,9 @@ BEGIN
BEGIN BEGIN
BLOCK "0C0A04E4" BLOCK "0C0A04E4"
BEGIN BEGIN
VALUE "FileVersion", "1.4.9.0\0" VALUE "FileVersion", "1.5.0.0\0"
VALUE "ProductVersion", "1.4.9.0\0" VALUE "ProductVersion", "1.5.0.0\0"
VALUE "CompileDate", "miércoles, 07 de enero de 2009 10:01\0" VALUE "CompileDate", "jueves, 08 de enero de 2009 12:21\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"