diff --git a/Source/Informes/6/1/InfFacturaCliente.fr3 b/Source/Informes/6/1/InfFacturaCliente.fr3 index a81dfb46..cfed426b 100644 --- a/Source/Informes/6/1/InfFacturaCliente.fr3 +++ b/Source/Informes/6/1/InfFacturaCliente.fr3 @@ -1,5 +1,5 @@ - + @@ -7,11 +7,11 @@ - - + + - + @@ -21,12 +21,12 @@ - + - - - + + + diff --git a/Source/Modulos/Gestor de informes/Views/uViewFiltroFormasPago.dfm b/Source/Modulos/Gestor de informes/Views/uViewFiltroFormasPago.dfm new file mode 100644 index 00000000..e47abbcc --- /dev/null +++ b/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 diff --git a/Source/Modulos/Gestor de informes/Views/uViewFiltroFormasPago.pas b/Source/Modulos/Gestor de informes/Views/uViewFiltroFormasPago.pas new file mode 100644 index 00000000..3b93fac9 --- /dev/null +++ b/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. diff --git a/Tools/RemObjects_SDK/MasterServer_Data/Messages.nx1 b/Tools/RemObjects_SDK/MasterServer_Data/Messages.nx1 new file mode 100644 index 00000000..1bbc406c Binary files /dev/null and b/Tools/RemObjects_SDK/MasterServer_Data/Messages.nx1 differ diff --git a/Tools/RemObjects_SDK/MasterServer_Data/MessagesPerSession.nx1 b/Tools/RemObjects_SDK/MasterServer_Data/MessagesPerSession.nx1 new file mode 100644 index 00000000..9a402e35 Binary files /dev/null and b/Tools/RemObjects_SDK/MasterServer_Data/MessagesPerSession.nx1 differ diff --git a/Tools/RemObjects_SDK/MasterServer_Data/Sessions.nx1 b/Tools/RemObjects_SDK/MasterServer_Data/Sessions.nx1 new file mode 100644 index 00000000..39b94a66 Binary files /dev/null and b/Tools/RemObjects_SDK/MasterServer_Data/Sessions.nx1 differ diff --git a/Tools/RemObjects_SDK/MasterServer_Data/nxTrans.cfg b/Tools/RemObjects_SDK/MasterServer_Data/nxTrans.cfg new file mode 100644 index 00000000..003aee37 Binary files /dev/null and b/Tools/RemObjects_SDK/MasterServer_Data/nxTrans.cfg differ diff --git a/Tools/RemObjects_SDK/ROCOM.dll b/Tools/RemObjects_SDK/ROCOM.dll new file mode 100644 index 00000000..8a987d36 Binary files /dev/null and b/Tools/RemObjects_SDK/ROCOM.dll differ diff --git a/Tools/RemObjects_SDK/RODL.exe b/Tools/RemObjects_SDK/RODL.exe new file mode 100644 index 00000000..2dd9962d Binary files /dev/null and b/Tools/RemObjects_SDK/RODL.exe differ diff --git a/Tools/RemObjects_SDK/ROMasterServer.exe b/Tools/RemObjects_SDK/ROMasterServer.exe new file mode 100644 index 00000000..7b965b85 Binary files /dev/null and b/Tools/RemObjects_SDK/ROMasterServer.exe differ diff --git a/Tools/RemObjects_SDK/ROSBBCB.dll b/Tools/RemObjects_SDK/ROSBBCB.dll new file mode 100644 index 00000000..b5eb82f1 Binary files /dev/null and b/Tools/RemObjects_SDK/ROSBBCB.dll differ diff --git a/Tools/RemObjects_SDK/ROSBDataAbstract.codetemplates.cfg b/Tools/RemObjects_SDK/ROSBDataAbstract.codetemplates.cfg new file mode 100644 index 00000000..de344dca --- /dev/null +++ b/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; \ No newline at end of file diff --git a/Tools/RemObjects_SDK/ROSBDataAbstract.dll b/Tools/RemObjects_SDK/ROSBDataAbstract.dll new file mode 100644 index 00000000..7f7fb96f Binary files /dev/null and b/Tools/RemObjects_SDK/ROSBDataAbstract.dll differ diff --git a/Tools/RemObjects_SDK/ROSBDefaultEditor.dll b/Tools/RemObjects_SDK/ROSBDefaultEditor.dll new file mode 100644 index 00000000..5cbc32d6 Binary files /dev/null and b/Tools/RemObjects_SDK/ROSBDefaultEditor.dll differ diff --git a/Tools/RemObjects_SDK/ROSBDefaultValidator.dll b/Tools/RemObjects_SDK/ROSBDefaultValidator.dll new file mode 100644 index 00000000..32d35694 Binary files /dev/null and b/Tools/RemObjects_SDK/ROSBDefaultValidator.dll differ diff --git a/Tools/RemObjects_SDK/ROSBDelphi.dll b/Tools/RemObjects_SDK/ROSBDelphi.dll new file mode 100644 index 00000000..9a996d7b Binary files /dev/null and b/Tools/RemObjects_SDK/ROSBDelphi.dll differ diff --git a/Tools/RemObjects_SDK/ROSBJSONRPC.dll b/Tools/RemObjects_SDK/ROSBJSONRPC.dll new file mode 100644 index 00000000..daffd9fe Binary files /dev/null and b/Tools/RemObjects_SDK/ROSBJSONRPC.dll differ diff --git a/Tools/RemObjects_SDK/ROSBPHP.dll b/Tools/RemObjects_SDK/ROSBPHP.dll new file mode 100644 index 00000000..229de31b Binary files /dev/null and b/Tools/RemObjects_SDK/ROSBPHP.dll differ diff --git a/Tools/RemObjects_SDK/ROSBPasImporter.dll b/Tools/RemObjects_SDK/ROSBPasImporter.dll new file mode 100644 index 00000000..e8fcfbba Binary files /dev/null and b/Tools/RemObjects_SDK/ROSBPasImporter.dll differ diff --git a/Tools/RemObjects_SDK/ROSBSOAP.dll b/Tools/RemObjects_SDK/ROSBSOAP.dll new file mode 100644 index 00000000..1b54bf59 Binary files /dev/null and b/Tools/RemObjects_SDK/ROSBSOAP.dll differ diff --git a/Tools/RemObjects_SDK/ROSBStandardImporters.dll b/Tools/RemObjects_SDK/ROSBStandardImporters.dll new file mode 100644 index 00000000..f2b68211 Binary files /dev/null and b/Tools/RemObjects_SDK/ROSBStandardImporters.dll differ diff --git a/Tools/RemObjects_SDK/ROSBStandardViews.dll b/Tools/RemObjects_SDK/ROSBStandardViews.dll new file mode 100644 index 00000000..4aa02464 Binary files /dev/null and b/Tools/RemObjects_SDK/ROSBStandardViews.dll differ diff --git a/Tools/RemObjects_SDK/ROSBTLBImporter.dll b/Tools/RemObjects_SDK/ROSBTLBImporter.dll new file mode 100644 index 00000000..2055bd89 Binary files /dev/null and b/Tools/RemObjects_SDK/ROSBTLBImporter.dll differ diff --git a/Tools/RemObjects_SDK/ROServiceBuilder.chm b/Tools/RemObjects_SDK/ROServiceBuilder.chm new file mode 100644 index 00000000..5906701c Binary files /dev/null and b/Tools/RemObjects_SDK/ROServiceBuilder.chm differ diff --git a/Tools/RemObjects_SDK/ROServiceBuilder.exe b/Tools/RemObjects_SDK/ROServiceBuilder.exe new file mode 100644 index 00000000..33b0fd13 Binary files /dev/null and b/Tools/RemObjects_SDK/ROServiceBuilder.exe differ diff --git a/Tools/RemObjects_SDK/ROServiceBuilder70.bpl b/Tools/RemObjects_SDK/ROServiceBuilder70.bpl new file mode 100644 index 00000000..ece99ff6 Binary files /dev/null and b/Tools/RemObjects_SDK/ROServiceBuilder70.bpl differ diff --git a/Tools/RemObjects_SDK/ROServiceTester.connections.cfg b/Tools/RemObjects_SDK/ROServiceTester.connections.cfg new file mode 100644 index 00000000..cbc74747 Binary files /dev/null and b/Tools/RemObjects_SDK/ROServiceTester.connections.cfg differ diff --git a/Tools/RemObjects_SDK/ROServiceTester.exe b/Tools/RemObjects_SDK/ROServiceTester.exe new file mode 100644 index 00000000..2f2dbee9 Binary files /dev/null and b/Tools/RemObjects_SDK/ROServiceTester.exe differ diff --git a/Tools/RemObjects_SDK/RemObjects SDK.lic b/Tools/RemObjects_SDK/RemObjects SDK.lic new file mode 100644 index 00000000..54e84c6a --- /dev/null +++ b/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 diff --git a/Tools/RemObjects_SDK/rtl70.bpl b/Tools/RemObjects_SDK/rtl70.bpl new file mode 100644 index 00000000..ea28d0be Binary files /dev/null and b/Tools/RemObjects_SDK/rtl70.bpl differ diff --git a/Tools/RemObjects_SDK/vcl70.bpl b/Tools/RemObjects_SDK/vcl70.bpl new file mode 100644 index 00000000..572cb25e Binary files /dev/null and b/Tools/RemObjects_SDK/vcl70.bpl differ