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

Arreglo de rellenado automatico de datos de un articulo, en los detalles de un documento, insertando la referencia del mismo (casesensitive) (ARREGLAR EN LUIS y ACANA)

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@246 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
roberto 2008-02-05 19:01:50 +00:00
parent 91f9c9734f
commit 47ba3ea189
2 changed files with 19 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
Source/Modulos/Articulos/Controller/uArticulosController.pas
View File

@ -99,7 +99,7 @@ implementation
uses
cxControls, DB, uEditorRegistryUtils, schArticulosClient_Intf, uFactuGES_App,
uIEditorArticulos, uIEditorArticulo, uIEditorElegirArticulos,
uDataModuleArticulos, uDataModuleUsuarios, uDAInterfaces,
uDataModuleArticulos, uDataModuleUsuarios, uDAInterfaces, Dialogs,
uDataTableUtils, uDateUtils, uROTypes, DateUtils, Controls, Windows;
{ TArticulosController }
@ -178,8 +178,14 @@ begin
else
Result := BuscarTodos(AClienteID);
// Filtrar por referencia
with Result.DataTable.DynamicWhere do
// Filtrar por referencia, se cambia por el where anterior porque luego no nos reconoce bien la cadena, al contener UPPER
with Result.DataTable.Where do
begin
AddText(Format('UPPER(%s) = ''%s''', [fld_ArticulosREFERENCIA, UpperCase(Ref)]));
end;
{ with Result.DataTable.DynamicWhere do
begin
// (REFERENCIA >= Ref)
Condicion := NewBinaryExpression(NewField('', fld_ArticulosREFERENCIA), NewConstant(UpperCase(Ref), datString), dboEqual);
@ -188,7 +194,7 @@ begin
Expression := Condicion
else
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
end;
end;}
finally
HideHourglassCursor;
@ -206,8 +212,13 @@ begin
else
Result := BuscarTodos(AClienteID);
// Filtrar por referencia
with Result.DataTable.DynamicWhere do
// Filtrar por referencia, se cambia por el where anterior porque luego no nos reconoce bien la cadena, al contener UPPER
with Result.DataTable.Where do
begin
AddText(Format('UPPER(%s) = ''%s''', [fld_ArticulosREFERENCIA_PROV, UpperCase(Ref)]));
end;
{with Result.DataTable.DynamicWhere do
begin
// (REFERENCIA >= Ref)
Condicion := NewBinaryExpression(NewField('', fld_ArticulosREFERENCIA_PROV), NewConstant(UpperCase(Ref), datString), dboEqual);
@ -216,7 +227,7 @@ begin
Expression := Condicion
else
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
end;
end;}
finally
HideHourglassCursor;

1
Source/Modulos/Articulos/Servidor/srvArticulos_Impl.dfm
View File

@ -6,6 +6,7 @@ object srvArticulos: TsrvArticulos
ConnectionName = 'IBX'
ServiceSchema = schArticulos
ServiceDataStreamer = Bin2DataStreamer
AllowWhereSQL = True
ExportedDataTables = <>
BeforeAcquireConnection = DataAbstractServiceBeforeAcquireConnection
Height = 229