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

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

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