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

Arreglo error al agrupar en pedidos de cliente

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@19 c93665c3-c93d-084d-9b98-7d5f4a9c3376
This commit is contained in:
roberto 2007-06-12 15:30:27 +00:00
parent 678bdaa17a
commit 8f371006d1
6 changed files with 21 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Source/Cliente/FactuGES.bdsproj
View File

@ -125,7 +125,7 @@
<Directories Name="PackageDCPOutputDir">.\</Directories> <Directories Name="PackageDCPOutputDir">.\</Directories>
<Directories Name="SearchPath">..\Lib;..\Modulos\Lib</Directories> <Directories Name="SearchPath">..\Lib;..\Modulos\Lib</Directories>
<Directories Name="Packages">PluginSDK_D10R;GUISDK_D10;DataAbstract_D10;Base;GUIBase;Usuarios;Contactos_plugin;Empresas_plugin;Empresas_controller;Empresas_model;rtl</Directories> <Directories Name="Packages">PluginSDK_D10R;GUISDK_D10;DataAbstract_D10;Base;GUIBase;Usuarios;Contactos_plugin;Empresas_plugin;Empresas_controller;Empresas_model;rtl</Directories>
<Directories Name="Conditionals">_VER6;</Directories> <Directories Name="Conditionals">_VER6;EUREKALOG;EUREKALOG_VER5</Directories>
<Directories Name="DebugSourceDirs"></Directories> <Directories Name="DebugSourceDirs"></Directories>
<Directories Name="UsePackages">True</Directories> <Directories Name="UsePackages">True</Directories>
</Directories> </Directories>
@ -180,7 +180,7 @@
<!-- EurekaLog First Line <!-- EurekaLog First Line
[Exception Log] [Exception Log]
EurekaLog Version=519 EurekaLog Version=519
Activate=0 Activate=1
Activate Handle=0 Activate Handle=0
Save Log File=1 Save Log File=1
Foreground Tab=0 Foreground Tab=0

1
Source/Cliente/FactuGES.dpr
View File

@ -1,6 +1,7 @@
program FactuGES; program FactuGES;
uses uses
ExceptionLog,
Forms, Forms,
Windows, Windows,
SysUtils, SysUtils,

BIN
Source/Cliente/FactuGES.res
View File

Binary file not shown.

BIN
Source/Modulos/Lib/PedidosCliente_view.dcp
View File

Binary file not shown.

11
Source/Modulos/Pedidos de cliente/Views/uViewPedidosCliente.dfm
View File

@ -163,9 +163,20 @@ inherited frViewPedidosCliente: TfrViewPedidosCliente
ExplicitWidth = 596 ExplicitWidth = 596
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 592 Width = 592
ExplicitWidth = 592
inherited txtFiltroTodo: TcxTextEdit
ExplicitWidth = 273
Width = 273
end
inherited edtFechaIniFiltro: TcxDateEdit
ExplicitWidth = 121
Width = 121
end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 367 Left = 367
ExplicitLeft = 367 ExplicitLeft = 367
ExplicitWidth = 121
Width = 121
end end
end end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel

15
Source/Modulos/Pedidos de cliente/Views/uViewPedidosCliente.pas
View File

@ -223,14 +223,13 @@ var
R : TRect; R : TRect;
begin begin
inherited; inherited;
if (AViewInfo.GridRecord.DisplayTexts[cxGridViewTIENDAWEB.Index] <> '') then
if not VarIsNull( _FocusedView.DataController.Values[AViewInfo.RecordViewInfo.Index, AViewInfo.Item.Index]) then begin
begin R := AViewInfo.ContentBounds;
R := AViewInfo.ContentBounds; ACanvas.FillRect(R);
ACanvas.FillRect(R); ACanvas.DrawImage(PngImageList, R.Left, R.Top, 4);
ACanvas.DrawImage(PngImageList, R.Left, R.Top, 4); ADone := True;
ADone := True; end;
end;
end; end;
function TfrViewPedidosCliente.GetPedidos: IBizPedidoCliente; function TfrViewPedidosCliente.GetPedidos: IBizPedidoCliente;