Arreglo para que compile

Source/Modulos/Gestor de informes/Views/uViewFiltroFormasPago.dfm

@@ -0,0 +1,100 @@
+inherited frViewFiltroFormasPago: TfrViewFiltroFormasPago
+  Width = 451
+  Height = 129
+  Align = alTop
+  OnCreate = CustomViewCreate
+  OnDestroy = CustomViewDestroy
+  ExplicitWidth = 451
+  ExplicitHeight = 129
+  object dxLayoutControl1: TdxLayoutControl
+    Left = 0
+    Top = 0
+    Width = 451
+    Height = 129
+    Align = alClient
+    TabOrder = 0
+    TabStop = False
+    AutoContentSizes = [acsWidth]
+    LookAndFeel = dxLayoutOfficeLookAndFeel1
+    object rbTodosFormasPago: TRadioButton
+      Left = 22
+      Top = 30
+      Width = 195
+      Height = 17
+      Caption = 'Incluir a todas las formas de pago'
+      Checked = True
+      TabOrder = 0
+      TabStop = True
+      OnClick = rbTodosFormasPagoClick
+    end
+    object rbUnaFormaPago: TRadioButton
+      Left = 22
+      Top = 53
+      Width = 175
+      Height = 17
+      Caption = 'S'#243'lo listar la forma de pago siguiente:'
+      TabOrder = 1
+      OnClick = rbUnaFormaPagoClick
+    end
+    object cbFormaPago: TcxLookupComboBox
+      Left = 103
+      Top = 76
+      Properties.ImmediatePost = True
+      Properties.KeyFieldNames = 'ID'
+      Properties.ListColumns = <
+        item
+          FieldName = 'REFERENCIA'
+        end>
+      Properties.ListOptions.AnsiSort = True
+      Properties.ListOptions.ShowHeader = False
+      Properties.ListOptions.SyncMode = True
+      Properties.ListSource = dsFormaPago
+      TabOrder = 2
+      Width = 322
+    end
+    object dxLayoutGroup1: TdxLayoutGroup
+      ShowCaption = False
+      Hidden = True
+      ShowBorder = False
+      object dxLayoutGroup2: TdxLayoutGroup
+        Caption = 'Formas de pago:'
+        object dxLayoutItem1: TdxLayoutItem
+          Caption = 'Incluir a todos los proveedores'
+          ShowCaption = False
+          Control = rbTodosFormasPago
+          ControlOptions.AutoColor = True
+          ControlOptions.ShowBorder = False
+        end
+        object dxLayoutControl1Item3: TdxLayoutItem
+          Caption = 'S'#243'lo listar el proveedor siguiente:'
+          ShowCaption = False
+          Control = rbUnaFormaPago
+          ControlOptions.AutoColor = True
+          ControlOptions.ShowBorder = False
+        end
+        object dxLayoutControl1Item1: TdxLayoutItem
+          Caption = 'Forma de pago:'
+          Control = cbFormaPago
+          ControlOptions.ShowBorder = False
+        end
+      end
+    end
+  end
+  object dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList
+    Left = 192
+    Top = 24
+    object dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel
+      GroupOptions.CaptionOptions.Font.Charset = DEFAULT_CHARSET
+      GroupOptions.CaptionOptions.Font.Color = clWindowText
+      GroupOptions.CaptionOptions.Font.Height = -11
+      GroupOptions.CaptionOptions.Font.Name = 'Tahoma'
+      GroupOptions.CaptionOptions.Font.Style = [fsBold]
+      GroupOptions.CaptionOptions.TextColor = clHighlight
+      GroupOptions.CaptionOptions.UseDefaultFont = False
+    end
+  end
+  object dsFormaPago: TDADataSource
+    Left = 32
+    Top = 96
+  end
+end

Source/Modulos/Gestor de informes/Views/uViewFiltroFormasPago.pas

@@ -0,0 +1,88 @@
+unit uViewFiltroFormasPago;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, uViewBase, cxControls, cxContainer, cxEdit, cxTextEdit, cxDBEdit,
+  StdCtrls, Buttons, TBXDkPanels, uViewParametrosInforme, uBizFormasPago,
+  uFormasPagoController, dxLayoutLookAndFeels, dxLayoutControl, cxGraphics,
+  cxMaskEdit, cxDropDownEdit, cxLookupEdit, cxDBLookupEdit, cxDBLookupComboBox,
+  DB, uDAInterfaces, uDADataTable;
+
+type
+  IViewFiltroFormasPago = interface(IViewParametrosInforme)
+  ['{B556F4D0-838A-4061-82B0-81A9FEEAD3E9}']
+  end;
+  
+  TfrViewFiltroFormasPago = class(TfrViewParametrosInforme, IViewFiltroFormasPago)
+    rbTodosFormasPago: TRadioButton;
+    rbUnaFormaPago: TRadioButton;
+    dxLayoutControl1: TdxLayoutControl;
+    dxLayoutGroup1: TdxLayoutGroup;
+    dxLayoutGroup2: TdxLayoutGroup;
+    dxLayoutItem1: TdxLayoutItem;
+    dxLayoutControl1Item3: TdxLayoutItem;
+    dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList;
+    dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel;
+    dsFormaPago: TDADataSource;
+    dxLayoutControl1Item1: TdxLayoutItem;
+    cbFormaPago: TcxLookupComboBox;
+    procedure rbTodosFormasPagoClick(Sender: TObject);
+    procedure rbUnaFormaPagoClick(Sender: TObject);
+    procedure CustomViewCreate(Sender: TObject);
+    procedure CustomViewDestroy(Sender: TObject);
+  private
+    FFormaPago : IBizFormaPago;
+    FFormasPagoController : IFormasPagoController;
+  public
+    property FormaPago : IBizFormaPago read FFormaPago;
+  end;
+
+implementation
+
+{$R *.dfm}
+
+procedure TfrViewFiltroFormasPago.CustomViewCreate(Sender: TObject);
+begin
+  inherited;
+  FFormaPago := NIL;
+  FFormasPagoController := NIL;
+  cbFormaPago.Enabled := False;
+end;
+
+procedure TfrViewFiltroFormasPago.CustomViewDestroy(Sender: TObject);
+begin
+  inherited;
+  FFormaPago := NIL;
+  FFormasPagoController := NIL;
+end;
+
+procedure TfrViewFiltroFormasPago.rbTodosFormasPagoClick(Sender: TObject);
+begin
+  if rbTodosFormasPago.Checked then
+  begin
+    cbFormaPago.Enabled := False;
+    cbFormaPago.Properties.ListSource := Nil;
+  end;
+end;
+
+procedure TfrViewFiltroFormasPago.rbUnaFormaPagoClick(Sender: TObject);
+begin
+  if rbUnaFormaPago.Checked then
+  begin
+    if not Assigned(FFormasPagoController) then
+    begin
+      FFormasPagoController := TFormasPagoController.Create;
+      FFormaPago := FFormasPagoController.BuscarTodos;
+      dsFormaPago.DataTable := FFormaPago.DataTable;
+      dsFormaPago.DataTable.Active := True;
+    end
+    else
+      cbFormaPago.Properties.ListSource := dsFormaPago;
+
+    cbFormaPago.Enabled := True;
+  end;
+end;
+
+end.

Tools/RemObjects_SDK/ROSBDataAbstract.codetemplates.cfg

@@ -0,0 +1,88 @@
+[OneSchemaMethod-Delphi]
+var
+  lDataSet:IDADataSet;
+begin
+  { This method body was auto-generated to retrieve the schema of your datasets.
+    You can now modify it to suite your needs. }
+
+  { ToDO: Rename the Schema reference below to match the name of your Schema component }
+
+  result := Binary.Create();
+  lDataSet := %SCHEMA%.NewDataset(Connection, aDataSet);
+  BinAdapter.WriteDataset(result, lDataSet, [woSchema], 0);
+end;
+
+
+[OneGetMethod-Delphi]
+var
+  lDataSet:IDADataSet;
+begin
+  { This method body was auto-generated to retrieve the rows of your datasets.
+    You can now modify it to suite your needs. }
+
+  { ToDO: Rename the Schema reference below to match the name of your Schema component }
+
+  result := Binary.Create();
+  lDataSet := %SCHEMA%.NewDataset(Connection, aDataSet);
+  BinAdapter.WriteDataset(result, lDataSet, [woRows], -1);
+end;
+
+
+[OneUpdateMethod-Delphi]
+begin
+  { Implement yourself ;-}
+  result := nil;
+end;
+
+
+[SchemaMethodPerDataSet-Delphi]
+var
+  lDataSet:IDADataSet;
+begin
+  { This method body was auto-generated to retrieve the schema of your %DATASET% dataset.
+    You can now modify it to suite your needs. }
+
+  { ToDO: Rename the Schema reference below to match the name of your Schema component }
+
+  result := Binary.Create();
+  lDataSet := %SCHEMA%.NewDataset(Connection, %DATASET%);
+  BinAdapter.WriteDataset(result, lDataSet, [woSchema], 0);
+end;
+
+
+[GetMethodPerDataSet-Delphi]
+var
+  lDataSet:IDADataSet;
+begin
+  { This method body was auto-generated to retrieve the rows of your %DATASET% dataset.
+    You can now modify it to suite your needs. }
+
+  { ToDO: Rename the Schema reference below to match the name of your Schema component }
+
+  result := Binary.Create();
+  lDataSet := %SCHEMA%.NewDataset(Connection, %DATASET%);
+  BinAdapter.WriteDataset(result, lDataSet, [woRows], -1);
+end;
+
+
+[UpdateMethodPerDataSet-Delphi]
+begin
+  { Implement yourself ;-}
+  result := nil;
+end;
+
+[GetSchemaXmlMethod-Delphi]
+begin  
+  { This method body was auto-generated to allow access to your XML schema. 
+    You might want to disable this functionality in release builds for security 
+    reasons by putting in the FDEFs below. }
+
+  { ToDo: Rename the Schema reference below to match the name of your Schema component }
+
+  {.$IFDEF RELEASE_BUILD}
+  result := Binary.Create();
+  %SCHEMA%.SaveToStream(result);
+  {.$ELSE}
+  { result := nil; }
+  {.$ENDIF RELEASE_BUILD}
+end;

Tools/RemObjects_SDK/RemObjects SDK.lic

@@ -0,0 +1,18 @@
+6aea9dd6c35821483bcdabeab181cc2200cdc937837364a66de483b256b8869a7052c450228af4efeca699d550f0b6814fc3d00373f8e8eba7e572e90246813da76f16f53d68e9138831de9714263b6801de791a86b053335babcdd5ebc98864af8e51f0eeb2c2f457af88dbb790d51c8b8f76ad87808d0bc5526bb59f3a8d619c3652fb34e3056d3914832fc6244c9e0cad62bc45ac35bfbdacf027a987e3464ee1b7e63dbb9650d026d2b2d75320fbe3aa941ae0614fb55eed1b461bac4d333f195d0bd1e4bc1e614c2f1afa4af374099ee1d2f89a5afe121e1e4d9a7c6ec3bcd09c5fce9ad10c2f3bef8f03f972e627e39a90d9483874921c596bac89e9a1
+9c742c30b84e748c62e0a3bb5eae16c78f0e4b2e91340cea7cc82577d592a22d415bd7263eab121b77305b69d451decac7ce86e9a48ef514c9f05c7a41f5a96a
+Name=Trial
+Email=Trial
+UserId=Trial
+Company=Trial
+LicenseType=Default
+ProductName=RemObjects SDK
+Version=5
+AllowBeta=0
+Trial=1
+SubscriptionEndDate=2008-11-30
+LicenseFileEndDate=2008-11-29
+StartDate=2008-11-26
+EndDate=2009-8-29
+P1=1583382467081675895
+P2=10806754501964138869
+P3=3303272454