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"
1 VERSIONINFO
FILEVERSION 1,4,9,0
PRODUCTVERSION 1,4,9,0
FILEVERSION 1,5,0,0
PRODUCTVERSION 1,5,0,0
FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L
FILEOS 0x40004L
@ -13,10 +13,10 @@ BEGIN
BLOCK "0C0A04E4"
BEGIN
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 "ProductName", "FactuGES\0"
VALUE "ProductVersion", "1.4.9.0\0"
VALUE "ProductVersion", "1.5.0.0\0"
END
END
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'
SQL =
'UPDATE REFERENCIAS SET'#10' VALOR = :VALOR'#10'WHERE CODIGO = :CODIGO' +
#10' AND {Where}'#10
#10
StatementType = stSQL
ColumnMappings = <>
end>

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

@ -121,24 +121,9 @@ var
ASchema : TDASchema;
AConn : IDAConnection;
dsCommand: IDASQLCommand;
AWhere : TDAWhereExpression;
begin
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;
AConn := dmServer.ConnectionManager.NewConnection(dmServer.ConnectionManager.GetDefaultConnectionName);
@ -149,8 +134,9 @@ begin
begin
ParamByName('CODIGO').AsString := NombreReferencia;
ParamByName('VALOR').AsString := DarReferenciaSiguiente(Valor);
if EmpresaID <> -1 then
dsCommand.DynamicWhere.Expression := AWhere;
dsCommand.SQL := dsCommand.SQL + ' AND ID_EMPRESA = ' + IntToStr(EmpresaID);
end;
dsCommand.Execute;
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">
<PropertyGroup>
<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"
1 VERSIONINFO
FILEVERSION 1,4,9,0
PRODUCTVERSION 1,4,9,0
FILEVERSION 1,5,0,0
PRODUCTVERSION 1,5,0,0
FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L
FILEOS 0x40004L
@ -12,9 +12,9 @@ BEGIN
BEGIN
BLOCK "0C0A04E4"
BEGIN
VALUE "FileVersion", "1.4.9.0\0"
VALUE "ProductVersion", "1.4.9.0\0"
VALUE "CompileDate", "miércoles, 07 de enero de 2009 10:01\0"
VALUE "FileVersion", "1.5.0.0\0"
VALUE "ProductVersion", "1.5.0.0\0"
VALUE "CompileDate", "jueves, 08 de enero de 2009 12:21\0"
END
END
BLOCK "VarFileInfo"