diff --git a/Source/Modulos/Tipos de operacion compra/Controller/TiposOperacionCompra_controller.dpk b/Source/Modulos/Tipos de operacion compra/Controller/TiposOperacionCompra_controller.dpk new file mode 100644 index 0000000..e13774c Binary files /dev/null and b/Source/Modulos/Tipos de operacion compra/Controller/TiposOperacionCompra_controller.dpk differ diff --git a/Source/Modulos/Tipos de operacion compra/Controller/TiposOperacionCompra_controller.dproj b/Source/Modulos/Tipos de operacion compra/Controller/TiposOperacionCompra_controller.dproj new file mode 100644 index 0000000..9eca1e5 --- /dev/null +++ b/Source/Modulos/Tipos de operacion compra/Controller/TiposOperacionCompra_controller.dproj @@ -0,0 +1,544 @@ + + + + {7f80f8aa-6912-4714-986d-aed73035472b} + TiposOperacionCompra_controller.dpk + Debug + AnyCPU + DCC32 + ..\..\..\..\Output\Debug\Cliente\TiposOperacionCompra_controller.bpl + + + 7.0 + False + False + 0 + .\ + .\ + .\ + ..\..\..\..\Output\Debug\Cliente + ..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + RELEASE + + + 7.0 + .\ + .\ + .\ + ..\..\..\..\Output\Debug\Cliente + ..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + + + Delphi.Personality + Package + +FalseTrueFalseFalseFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0TiposOperacionCompra_controller.dpk + + + + + MainSource + + + + + + + + + + + + + + diff --git a/Source/Modulos/Tipos de operacion compra/Controller/View/uIEditorElegirTipoOperacionCompra.pas b/Source/Modulos/Tipos de operacion compra/Controller/View/uIEditorElegirTipoOperacionCompra.pas new file mode 100644 index 0000000..81c4108 --- /dev/null +++ b/Source/Modulos/Tipos de operacion compra/Controller/View/uIEditorElegirTipoOperacionCompra.pas @@ -0,0 +1,18 @@ +unit uIEditorElegirTipoOperacionCompra; + +interface + +uses + uEditorBasico; + +type + IEditorElegirTipoOperacionCompra = interface(IEditorBasico) + ['{32315E18-3DC6-49A2-A5FA-F11CA871D7AB}'] + function GetTipoOperacionCompra: Variant; + procedure SetTipoOperacionCompra(const Value: Variant); + property TiposOperacionCompra: Variant Read GetTipoOperacionCompra write SetTipoOperacionCompra; + end; + +implementation + +end. diff --git a/Source/Modulos/Tipos de operacion compra/Controller/View/uIEditorTiposOperacionCompra.pas b/Source/Modulos/Tipos de operacion compra/Controller/View/uIEditorTiposOperacionCompra.pas new file mode 100644 index 0000000..340691d --- /dev/null +++ b/Source/Modulos/Tipos de operacion compra/Controller/View/uIEditorTiposOperacionCompra.pas @@ -0,0 +1,23 @@ +unit uIEditorTiposOperacionCompra; + +interface + +uses + uEditorDBBase, uBizTiposOperacionCompra, uTiposOperacionCompraController; + +type + IEditorTiposOperacionCompra = interface(IEditorDBBase) + ['{9A7904E6-ABF2-41F6-A7B8-7636AC320DFF}'] + function GetTiposOperacionCompra: IBizTiposOperacionCompra; + procedure SetTiposOperacionCompra(const Value: IBizTiposOperacionCompra); + property TiposOperacionCompra: IBizTiposOperacionCompra read GetTiposOperacionCompra write SetTiposOperacionCompra; + + function GetController : ITiposOperacionCompraController; + procedure SetController (const Value : ITiposOperacionCompraController); + property Controller : ITiposOperacionCompraController read GetController write SetController; + end; + + +implementation + +end. diff --git a/Source/Modulos/Tipos de operacion compra/Controller/uTiposOperacionCompraController.pas b/Source/Modulos/Tipos de operacion compra/Controller/uTiposOperacionCompraController.pas new file mode 100644 index 0000000..3956aaf --- /dev/null +++ b/Source/Modulos/Tipos de operacion compra/Controller/uTiposOperacionCompraController.pas @@ -0,0 +1,254 @@ +unit uTiposOperacionCompraController; + +interface + + +uses + Classes, SysUtils, uDADataTable, uEditorDBItem, + uIDataModuleTiposOperacionCompra, uBizTiposOperacionCompra, uControllerBase; + +type + ITiposOperacionCompraController = interface(IControllerBase) + ['{72EA6216-565C-4A33-9828-BCAC789FAD96}'] + function BuscarTodos: IBizTiposOperacionCompra; + procedure VerTodos(ATiposOperacionCompra: IBizTiposOperacionCompra); + procedure Anadir(ATiposOperacionCompra : IBizTiposOperacionCompra); + function Eliminar(ATiposOperacionCompra : IBizTiposOperacionCompra): Boolean; + function Guardar(ATiposOperacionCompra : IBizTiposOperacionCompra): Boolean; + procedure DescartarCambios(ATiposOperacionCompra : IBizTiposOperacionCompra); + function Localizar(ATiposOperacionCompra: IBizTiposOperacionCompra; ADescripcion:String): Boolean; + function DarListaTiposOperacionCompra: TStringList; + function elegirTipoOperacionCompra: Variant; + end; + + TTiposOperacionCompraController = class(TControllerBase, ITiposOperacionCompraController) + protected + FDataModule : IDataModuleTiposOperacionCompra; + + procedure RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable); override; + function CreateEditor(const AName : String; const IID: TGUID; out Intf): Boolean; + + function ValidarTipo(ATiposOperacionCompra: IBizTiposOperacionCompra): Boolean; + + //Estos son los tres métodos a sobre escribir si se desea heredar toda la logica de + //este controller + procedure AsignarDataModule; virtual; + + procedure ValidarObjetos; virtual; + + public + constructor Create; override; + destructor Destroy; override; + + function Eliminar(ATiposOperacionCompra : IBizTiposOperacionCompra): Boolean; + function Guardar(ATiposOperacionCompra : IBizTiposOperacionCompra): Boolean; + procedure DescartarCambios(ATiposOperacionCompra : IBizTiposOperacionCompra); virtual; + procedure Anadir(ATiposOperacionCompra : IBizTiposOperacionCompra); + function BuscarTodos: IBizTiposOperacionCompra; + procedure VerTodos(ATiposOperacionCompra: IBizTiposOperacionCompra); + function Localizar(ATiposOperacionCompra: IBizTiposOperacionCompra; ADescripcion:String): Boolean; + function DarListaTiposOperacionCompra: TStringList; + function elegirTipoOperacionCompra: Variant; + end; + +implementation + +uses + cxControls, DB, uEditorRegistryUtils, schTiposOperacionCompraClient_Intf, + uIEditorTiposOperacionCompra, uDataModuleTiposOperacionCompra, + uDAInterfaces, uDataTableUtils, uIEditorElegirTipoOperacionCompra, + uDateUtils, uROTypes, DateUtils, Controls, Windows; + +{ TTiposOperacionCompraController } + +procedure TTiposOperacionCompraController.Anadir(ATiposOperacionCompra: IBizTiposOperacionCompra); +begin + ATiposOperacionCompra.Insert; +end; + +procedure TTiposOperacionCompraController.AsignarDataModule; +begin + FDataModule := TDataModuleTiposOperacionCompra.Create(Nil); +end; + +function TTiposOperacionCompraController.BuscarTodos: IBizTiposOperacionCompra; +begin + Result := FDataModule.GetItems; +end; + +constructor TTiposOperacionCompraController.Create; +begin + inherited; + AsignarDataModule; +end; + +function TTiposOperacionCompraController.CreateEditor(const AName: String; const IID: TGUID; out Intf): Boolean; +begin + Result := Supports(EditorRegistry.CreateEditor(AName), IID, Intf); +end; + +function TTiposOperacionCompraController.DarListaTiposOperacionCompra: TStringList; +var + ATiposOperacionCompra: IBizTiposOperacionCompra; +begin + ATiposOperacionCompra := BuscarTodos; + ATiposOperacionCompra.DataTable.Active := True; + Result := TStringList.Create; + try + with Result do + begin + ATiposOperacionCompra.DataTable.First; + while not ATiposOperacionCompra.DataTable.EOF do + begin + Add(ATiposOperacionCompra.DESCRIPCION); + ATiposOperacionCompra.DataTable.Next; + end; + end; + finally + ATiposOperacionCompra := NIL; + end; +end; + +procedure TTiposOperacionCompraController.DescartarCambios(ATiposOperacionCompra: IBizTiposOperacionCompra); +begin + if not Assigned(ATiposOperacionCompra) then + raise Exception.Create ('TiposOperacionCompra no asignado'); + + ShowHourglassCursor; + try + if (ATiposOperacionCompra.State in dsEditModes) then + ATiposOperacionCompra.Cancel; + + ATiposOperacionCompra.DataTable.CancelUpdates; + finally + HideHourglassCursor; + end; +end; + +destructor TTiposOperacionCompraController.Destroy; +begin + FDataModule := Nil; + inherited; +end; + +function TTiposOperacionCompraController.elegirTipoOperacionCompra: Variant; +var + AEditor : IEditorElegirTipoOperacionCompra; + +begin + Result := ''; + + CreateEditor('EditorElegirTipoOperacionCompra', IEditorElegirTipoOperacionCompra, AEditor); + if Assigned(AEditor) then + try + if (AEditor.ShowModal = mrOk) then + Result := AEditor.TiposOperacionCompra; + finally + AEditor.Release; + AEditor := NIL; + end; +end; + +function TTiposOperacionCompraController.ValidarTipo(ATiposOperacionCompra: IBizTiposOperacionCompra): Boolean; +begin + Result := False; + + if not Assigned(ATiposOperacionCompra) then + raise Exception.Create ('TiposOperacionCompra no asignada'); + + if (ATiposOperacionCompra.DataTable.State in dsEditModes) then + ATiposOperacionCompra.DataTable.Post; + + Result := True; +end; + +procedure TTiposOperacionCompraController.ValidarObjetos; +begin +// +end; + +procedure TTiposOperacionCompraController.VerTodos(ATiposOperacionCompra: IBizTiposOperacionCompra); +var + AEditor : IEditorTiposOperacionCompra; +begin + AEditor := NIL; + + CreateEditor('EditorTiposOperacionCompra', IEditorTiposOperacionCompra, AEditor); + if Assigned(AEditor) then + try + AEditor.Controller := Self; //OJO ORDEN MUY IMPORTANTE + AEditor.TiposOperacionCompra := ATiposOperacionCompra; + AEditor.ShowModal; + finally + AEditor.Release; + AEditor := NIL; + end; +end; + +function TTiposOperacionCompraController.Eliminar(ATiposOperacionCompra: IBizTiposOperacionCompra): Boolean; +begin + Result := False; + + if not Assigned(ATiposOperacionCompra) then + raise Exception.Create ('TiposOperacionCompra no asignada'); + + ShowHourglassCursor; + try + if (ATiposOperacionCompra.State in dsEditModes) then + ATiposOperacionCompra.Cancel; + + ATiposOperacionCompra.Delete; + ATiposOperacionCompra.DataTable.ApplyUpdates; + + Result := True; + finally + HideHourglassCursor; + end; +end; + +procedure TTiposOperacionCompraController.RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable); +begin + inherited; +// +end; + +function TTiposOperacionCompraController.Guardar(ATiposOperacionCompra: IBizTiposOperacionCompra): Boolean; +begin + Result := False; + + if not Assigned(ATiposOperacionCompra) then + raise Exception.Create ('TiposOperacionCompra no asignada'); + + ValidarObjetos; + + if ValidarTipo(ATiposOperacionCompra) then + begin + ShowHourglassCursor; + try + ATiposOperacionCompra.DataTable.ApplyUpdates; + Result := True; + finally + HideHourglassCursor; + end; + end; +end; + +function TTiposOperacionCompraController.Localizar(ATiposOperacionCompra: IBizTiposOperacionCompra; ADescripcion: String): Boolean; +begin + Result := True; + ShowHourglassCursor; + try + with ATiposOperacionCompra.DataTable do + begin + DisableControls; + First; + if not Locate(fld_TiposOperacionCompraDESCRIPCION, ADescripcion, []) then + Result := False; + EnableControls; + end; + finally + HideHourglassCursor; + end; +end; + +end. diff --git a/Source/Modulos/Tipos de operacion compra/Data/TiposOperacionCompra_data.dpk b/Source/Modulos/Tipos de operacion compra/Data/TiposOperacionCompra_data.dpk new file mode 100644 index 0000000..278d1d6 Binary files /dev/null and b/Source/Modulos/Tipos de operacion compra/Data/TiposOperacionCompra_data.dpk differ diff --git a/Source/Modulos/Tipos de operacion compra/Data/TiposOperacionCompra_data.dproj b/Source/Modulos/Tipos de operacion compra/Data/TiposOperacionCompra_data.dproj new file mode 100644 index 0000000..59f0695 --- /dev/null +++ b/Source/Modulos/Tipos de operacion compra/Data/TiposOperacionCompra_data.dproj @@ -0,0 +1,543 @@ + + + + {28b6d86e-fac2-4bfd-97d9-fcea860835eb} + TiposOperacionCompra_data.dpk + Debug + AnyCPU + DCC32 + ..\..\..\..\Output\Debug\Cliente\TiposOperacionCompra_data.bpl + + + 7.0 + False + False + 0 + .\ + .\ + .\ + ..\..\..\..\Output\Debug\Cliente + ..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + RELEASE + + + 7.0 + .\ + .\ + .\ + ..\..\..\..\Output\Debug\Cliente + ..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + + + Delphi.Personality + Package + +FalseTrueFalseFalseFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0TiposOperacionCompra_data.dpk + + + + + MainSource + + + + + + + +
DataModuleTiposOperacionCompra
+ + + + + diff --git a/Source/Modulos/Tipos de operacion compra/Data/uDataModuleTiposOperacionCompra.dfm b/Source/Modulos/Tipos de operacion compra/Data/uDataModuleTiposOperacionCompra.dfm new file mode 100644 index 0000000..a21cc06 --- /dev/null +++ b/Source/Modulos/Tipos de operacion compra/Data/uDataModuleTiposOperacionCompra.dfm @@ -0,0 +1,58 @@ +inherited DataModuleTiposOperacionCompra: TDataModuleTiposOperacionCompra + OnCreate = DAClientDataModuleCreate + Height = 179 + Width = 445 + object RORemoteService: TRORemoteService + Message = dmConexion.ROMessage + Channel = dmConexion.ROChannel + ServiceName = 'srvTiposOperacionCompra' + Left = 48 + Top = 24 + end + object rda_TiposOperacionCompra: TDARemoteDataAdapter + DataStreamer = Bin2DataStreamer + GetSchemaCall.RemoteService = RORemoteService + GetDataCall.RemoteService = RORemoteService + UpdateDataCall.RemoteService = RORemoteService + GetScriptsCall.RemoteService = RORemoteService + RemoteService = RORemoteService + Left = 171 + Top = 23 + end + object Bin2DataStreamer: TDABin2DataStreamer + Left = 48 + Top = 88 + end + object tbl_TiposOperacionCompra: TDAMemDataTable + RemoteUpdatesOptions = [] + Fields = < + item + Name = 'ID' + DataType = datAutoInc + GeneratorName = 'GEN_TIPOS_OPERACION_COMPRAS' + Required = True + ServerAutoRefresh = True + InPrimaryKey = True + end + item + Name = 'DESCRIPCION' + DataType = datString + Size = 2000 + DisplayLabel = 'TiposOperacionCompra_DESCRIPCION' + DictionaryEntry = 'TiposOperacionCompra_DESCRIPCION' + end> + Params = <> + StreamingOptions = [soDisableEventsWhileStreaming] + RemoteDataAdapter = rda_TiposOperacionCompra + LogicalName = 'TiposOperacionCompra' + IndexDefs = <> + Left = 280 + Top = 24 + end + object ds_TiposOperacionCompra: TDADataSource + DataSet = tbl_TiposOperacionCompra.Dataset + DataTable = tbl_TiposOperacionCompra + Left = 280 + Top = 88 + end +end diff --git a/Source/Modulos/Tipos de operacion compra/Data/uDataModuleTiposOperacionCompra.pas b/Source/Modulos/Tipos de operacion compra/Data/uDataModuleTiposOperacionCompra.pas new file mode 100644 index 0000000..21715eb --- /dev/null +++ b/Source/Modulos/Tipos de operacion compra/Data/uDataModuleTiposOperacionCompra.pas @@ -0,0 +1,59 @@ +unit uDataModuleTiposOperacionCompra; + +interface + +uses + SysUtils, Classes, DB, uIDataModuleTiposOperacionCompra, uBizTiposOperacionCompra, uDAInterfaces, uDADataTable, + uDAScriptingProvider, uDAMemDataTable, uDADataStreamer, uDABin2DataStreamer, + uDARemoteDataAdapter, uROClient, uRORemoteService, uDataModuleBase; + +type + TDataModuleTiposOperacionCompra = class(TDataModuleBase, IDataModuleTiposOperacionCompra) + RORemoteService: TRORemoteService; + rda_TiposOperacionCompra: TDARemoteDataAdapter; + Bin2DataStreamer: TDABin2DataStreamer; + tbl_TiposOperacionCompra: TDAMemDataTable; + ds_TiposOperacionCompra: TDADataSource; + procedure DAClientDataModuleCreate(Sender: TObject); + protected + procedure AsignarClaseNegocio(ATarifa: TDADataTable); + public + function GetItems : IBizTiposOperacionCompra; + end; + +implementation +{$R *.DFM} + +uses + FactuGES_Intf, uDataModuleConexion, uDataTableUtils, cxControls, + schTiposOperacionCompraClient_Intf; + +{ TdmTiposOperacionCompra } + +procedure TDataModuleTiposOperacionCompra.AsignarClaseNegocio(ATarifa: TDADataTable); +begin + ATarifa.BusinessRulesID := BIZ_CLIENT_TIPOS_OP_COMPRA; +end; + +procedure TDataModuleTiposOperacionCompra.DAClientDataModuleCreate(Sender: TObject); +begin + RORemoteService.Channel := dmConexion.Channel; + RORemoteService.Message := dmConexion.Message; +end; + +function TDataModuleTiposOperacionCompra.GetItems: IBizTiposOperacionCompra; +var + ATiposOperacionCompra : TDAMemDataTable; +begin + ShowHourglassCursor; + try + ATiposOperacionCompra := CloneDataTable(tbl_TiposOperacionCompra); + AsignarClaseNegocio(ATiposOperacionCompra); + Result := (ATiposOperacionCompra as IBizTiposOperacionCompra); + finally + HideHourglassCursor; + end; +end; + + +end. diff --git a/Source/Modulos/Tipos de operacion compra/Model/Data/uIDataModuleTiposOperacionCompra.pas b/Source/Modulos/Tipos de operacion compra/Model/Data/uIDataModuleTiposOperacionCompra.pas new file mode 100644 index 0000000..bebac10 --- /dev/null +++ b/Source/Modulos/Tipos de operacion compra/Model/Data/uIDataModuleTiposOperacionCompra.pas @@ -0,0 +1,16 @@ +unit uIDataModuleTiposOperacionCompra; + +interface + +uses + uBizTiposOperacionCompra; + +type + IDataModuleTiposOperacionCompra = interface + ['{7927A685-8BD4-4D4D-9F90-363585D33DC5}'] + function GetItems: IBizTiposOperacionCompra; + end; + +implementation + +end. diff --git a/Source/Modulos/Tipos de operacion compra/Model/TiposOperacionCompra_model.dpk b/Source/Modulos/Tipos de operacion compra/Model/TiposOperacionCompra_model.dpk new file mode 100644 index 0000000..e5d5460 Binary files /dev/null and b/Source/Modulos/Tipos de operacion compra/Model/TiposOperacionCompra_model.dpk differ diff --git a/Source/Modulos/Tipos de operacion compra/Model/TiposOperacionCompra_model.dproj b/Source/Modulos/Tipos de operacion compra/Model/TiposOperacionCompra_model.dproj new file mode 100644 index 0000000..65da6e1 --- /dev/null +++ b/Source/Modulos/Tipos de operacion compra/Model/TiposOperacionCompra_model.dproj @@ -0,0 +1,549 @@ + + + + {73acd39c-b2f0-49b7-9acf-10945bbac8c1} + TiposOperacionCompra_model.dpk + Debug + AnyCPU + DCC32 + ..\..\..\..\Output\Debug\Cliente\TiposOperacionCompra_model.bpl + + + 7.0 + False + False + 0 + .\ + .\ + .\ + ..\..\..\..\Output\Debug\Cliente + ..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + RELEASE + + + 7.0 + .\ + .\ + .\ + ..\..\..\..\Output\Debug\Cliente + ..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + + + Delphi.Personality + Package + +FalseTrueFalseFalseFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0TiposOperacionCompra_model.dpk + + + + + MainSource + + + + + + + + + + + + + + + + + + + diff --git a/Source/Modulos/Tipos de operacion compra/Model/schTiposOperacionCompraClient_Intf.pas b/Source/Modulos/Tipos de operacion compra/Model/schTiposOperacionCompraClient_Intf.pas new file mode 100644 index 0000000..a361317 --- /dev/null +++ b/Source/Modulos/Tipos de operacion compra/Model/schTiposOperacionCompraClient_Intf.pas @@ -0,0 +1,134 @@ +unit schTiposOperacionCompraClient_Intf; + +interface + +uses + Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf; + +const + { Data table rules ids + Feel free to change them to something more human readable + but make sure they are unique in the context of your application } + RID_TiposOperacionCompra = '{0ABE9D0E-D59F-46C0-ADB0-D087ECD474B4}'; + + { Data table names } + nme_TiposOperacionCompra = 'TiposOperacionCompra'; + + { TiposOperacionCompra fields } + fld_TiposOperacionCompraID = 'ID'; + fld_TiposOperacionCompraDESCRIPCION = 'DESCRIPCION'; + + { TiposOperacionCompra field indexes } + idx_TiposOperacionCompraID = 0; + idx_TiposOperacionCompraDESCRIPCION = 1; + +type + { ITiposOperacionCompra } + ITiposOperacionCompra = interface(IDAStronglyTypedDataTable) + ['{BB3994EE-F0C4-46B2-A90D-9B3314304ED0}'] + { Property getters and setters } + function GetIDValue: Integer; + procedure SetIDValue(const aValue: Integer); + function GetIDIsNull: Boolean; + procedure SetIDIsNull(const aValue: Boolean); + function GetDESCRIPCIONValue: String; + procedure SetDESCRIPCIONValue(const aValue: String); + function GetDESCRIPCIONIsNull: Boolean; + procedure SetDESCRIPCIONIsNull(const aValue: Boolean); + + + { Properties } + property ID: Integer read GetIDValue write SetIDValue; + property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; + property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; + property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull; + end; + + { TTiposOperacionCompraDataTableRules } + TTiposOperacionCompraDataTableRules = class(TIntfObjectDADataTableRules, ITiposOperacionCompra) + private + protected + { Property getters and setters } + function GetIDValue: Integer; virtual; + procedure SetIDValue(const aValue: Integer); virtual; + function GetIDIsNull: Boolean; virtual; + procedure SetIDIsNull(const aValue: Boolean); virtual; + function GetDESCRIPCIONValue: String; virtual; + procedure SetDESCRIPCIONValue(const aValue: String); virtual; + function GetDESCRIPCIONIsNull: Boolean; virtual; + procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual; + + { Properties } + property ID: Integer read GetIDValue write SetIDValue; + property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull; + property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; + property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull; + + public + constructor Create(aDataTable: TDADataTable); override; + destructor Destroy; override; + + end; + +implementation + +uses Variants, uROBinaryHelpers; + +{ TTiposOperacionCompraDataTableRules } +constructor TTiposOperacionCompraDataTableRules.Create(aDataTable: TDADataTable); +begin + inherited; +end; + +destructor TTiposOperacionCompraDataTableRules.Destroy; +begin + inherited; +end; + +function TTiposOperacionCompraDataTableRules.GetIDValue: Integer; +begin + result := DataTable.Fields[idx_TiposOperacionCompraID].AsInteger; +end; + +procedure TTiposOperacionCompraDataTableRules.SetIDValue(const aValue: Integer); +begin + DataTable.Fields[idx_TiposOperacionCompraID].AsInteger := aValue; +end; + +function TTiposOperacionCompraDataTableRules.GetIDIsNull: boolean; +begin + result := DataTable.Fields[idx_TiposOperacionCompraID].IsNull; +end; + +procedure TTiposOperacionCompraDataTableRules.SetIDIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_TiposOperacionCompraID].AsVariant := Null; +end; + +function TTiposOperacionCompraDataTableRules.GetDESCRIPCIONValue: String; +begin + result := DataTable.Fields[idx_TiposOperacionCompraDESCRIPCION].AsString; +end; + +procedure TTiposOperacionCompraDataTableRules.SetDESCRIPCIONValue(const aValue: String); +begin + DataTable.Fields[idx_TiposOperacionCompraDESCRIPCION].AsString := aValue; +end; + +function TTiposOperacionCompraDataTableRules.GetDESCRIPCIONIsNull: boolean; +begin + result := DataTable.Fields[idx_TiposOperacionCompraDESCRIPCION].IsNull; +end; + +procedure TTiposOperacionCompraDataTableRules.SetDESCRIPCIONIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_TiposOperacionCompraDESCRIPCION].AsVariant := Null; +end; + + +initialization + RegisterDataTableRules(RID_TiposOperacionCompra, TTiposOperacionCompraDataTableRules); + +end. diff --git a/Source/Modulos/Tipos de operacion compra/Model/schTiposOperacionCompraServer_Intf.pas b/Source/Modulos/Tipos de operacion compra/Model/schTiposOperacionCompraServer_Intf.pas new file mode 100644 index 0000000..f4880cc --- /dev/null +++ b/Source/Modulos/Tipos de operacion compra/Model/schTiposOperacionCompraServer_Intf.pas @@ -0,0 +1,143 @@ +unit schTiposOperacionCompraServer_Intf; + +interface + +uses + Classes, DB, SysUtils, uROClasses, uDADataTable, uDABusinessProcessor, FmtBCD, uROXMLIntf, schTiposOperacionCompraClient_Intf; + +const + { Delta rules ids + Feel free to change them to something more human readable + but make sure they are unique in the context of your application } + RID_TiposOperacionCompraDelta = '{7D29C9DB-581B-4C28-9F5A-24955E43C24D}'; + +type + { ITiposOperacionCompraDelta } + ITiposOperacionCompraDelta = interface(ITiposOperacionCompra) + ['{7D29C9DB-581B-4C28-9F5A-24955E43C24D}'] + { Property getters and setters } + function GetOldIDValue : Integer; + function GetOldDESCRIPCIONValue : String; + + { Properties } + property OldID : Integer read GetOldIDValue; + property OldDESCRIPCION : String read GetOldDESCRIPCIONValue; + end; + + { TTiposOperacionCompraBusinessProcessorRules } + TTiposOperacionCompraBusinessProcessorRules = class(TDABusinessProcessorRules, ITiposOperacionCompra, ITiposOperacionCompraDelta) + private + protected + { Property getters and setters } + function GetIDValue: Integer; virtual; + function GetIDIsNull: Boolean; virtual; + function GetOldIDValue: Integer; virtual; + function GetOldIDIsNull: Boolean; virtual; + procedure SetIDValue(const aValue: Integer); virtual; + procedure SetIDIsNull(const aValue: Boolean); virtual; + function GetDESCRIPCIONValue: String; virtual; + function GetDESCRIPCIONIsNull: Boolean; virtual; + function GetOldDESCRIPCIONValue: String; virtual; + function GetOldDESCRIPCIONIsNull: Boolean; virtual; + procedure SetDESCRIPCIONValue(const aValue: String); virtual; + procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual; + + { Properties } + property ID : Integer read GetIDValue write SetIDValue; + property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull; + property OldID : Integer read GetOldIDValue; + property OldIDIsNull : Boolean read GetOldIDIsNull; + property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; + property DESCRIPCIONIsNull : Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull; + property OldDESCRIPCION : String read GetOldDESCRIPCIONValue; + property OldDESCRIPCIONIsNull : Boolean read GetOldDESCRIPCIONIsNull; + + public + constructor Create(aBusinessProcessor: TDABusinessProcessor); override; + destructor Destroy; override; + + end; + +implementation + +uses + Variants, uROBinaryHelpers, uDAInterfaces; + +{ TTiposOperacionCompraBusinessProcessorRules } +constructor TTiposOperacionCompraBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); +begin + inherited; +end; + +destructor TTiposOperacionCompraBusinessProcessorRules.Destroy; +begin + inherited; +end; + +function TTiposOperacionCompraBusinessProcessorRules.GetIDValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_TiposOperacionCompraID]; +end; + +function TTiposOperacionCompraBusinessProcessorRules.GetIDIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_TiposOperacionCompraID]); +end; + +function TTiposOperacionCompraBusinessProcessorRules.GetOldIDValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_TiposOperacionCompraID]; +end; + +function TTiposOperacionCompraBusinessProcessorRules.GetOldIDIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_TiposOperacionCompraID]); +end; + +procedure TTiposOperacionCompraBusinessProcessorRules.SetIDValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_TiposOperacionCompraID] := aValue; +end; + +procedure TTiposOperacionCompraBusinessProcessorRules.SetIDIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_TiposOperacionCompraID] := Null; +end; + +function TTiposOperacionCompraBusinessProcessorRules.GetDESCRIPCIONValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_TiposOperacionCompraDESCRIPCION]; +end; + +function TTiposOperacionCompraBusinessProcessorRules.GetDESCRIPCIONIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_TiposOperacionCompraDESCRIPCION]); +end; + +function TTiposOperacionCompraBusinessProcessorRules.GetOldDESCRIPCIONValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_TiposOperacionCompraDESCRIPCION]; +end; + +function TTiposOperacionCompraBusinessProcessorRules.GetOldDESCRIPCIONIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_TiposOperacionCompraDESCRIPCION]); +end; + +procedure TTiposOperacionCompraBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_TiposOperacionCompraDESCRIPCION] := aValue; +end; + +procedure TTiposOperacionCompraBusinessProcessorRules.SetDESCRIPCIONIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_TiposOperacionCompraDESCRIPCION] := Null; +end; + + +initialization + RegisterBusinessProcessorRules(RID_TiposOperacionCompraDelta, TTiposOperacionCompraBusinessProcessorRules); + +end. diff --git a/Source/Modulos/Tipos de operacion compra/Model/uBizTiposOperacionCompra.pas b/Source/Modulos/Tipos de operacion compra/Model/uBizTiposOperacionCompra.pas new file mode 100644 index 0000000..40a842c --- /dev/null +++ b/Source/Modulos/Tipos de operacion compra/Model/uBizTiposOperacionCompra.pas @@ -0,0 +1,36 @@ +unit uBizTiposOperacionCompra; + +interface + +uses + uDAInterfaces, uDADataTable, schTiposOperacionCompraClient_Intf; + +const + BIZ_CLIENT_TIPOS_OP_COMPRA = 'Client.TiposOperacionCompra'; + +type + IBizTiposOperacionCompra = interface(ITiposOperacionCompra) + ['{5E501081-7AEA-4026-BAC8-31DB73B5E8B7}'] + end; + + TBizTiposOperacionCompra = class(TTiposOperacionCompraDataTableRules, IBizTiposOperacionCompra) + procedure AfterOpen(Sender: TDADataTable); override; + end; + +implementation + +{ TBizTarifa } + +procedure TBizTiposOperacionCompra.AfterOpen(Sender: TDADataTable); +begin + inherited; + DataTable.Sort([fld_TiposOperacionCompraDESCRIPCION], [sdAscending]); +end; + +initialization + RegisterDataTableRules(BIZ_CLIENT_TIPOS_OP_COMPRA, TBizTiposOperacionCompra); + +finalization + +end. + diff --git a/Source/Modulos/Tipos de operacion compra/Plugin/Tarifas_plugin.dpk b/Source/Modulos/Tipos de operacion compra/Plugin/Tarifas_plugin.dpk new file mode 100644 index 0000000..8330906 Binary files /dev/null and b/Source/Modulos/Tipos de operacion compra/Plugin/Tarifas_plugin.dpk differ diff --git a/Source/Modulos/Tipos de operacion compra/Plugin/Tarifas_plugin.dproj b/Source/Modulos/Tipos de operacion compra/Plugin/Tarifas_plugin.dproj new file mode 100644 index 0000000..ac0b7dd --- /dev/null +++ b/Source/Modulos/Tipos de operacion compra/Plugin/Tarifas_plugin.dproj @@ -0,0 +1,545 @@ + + + {82e36812-58c4-491b-b463-6b951e95da51} + Tarifas_plugin.dpk + Debug + AnyCPU + DCC32 + ..\..\..\..\Output\Debug\Cliente\Tarifas_plugin.bpl + + + 7.0 + False + False + 0 + .\ + .\ + .\ + ..\..\..\..\Output\Debug\Cliente + ..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + RELEASE + + + 7.0 + .\ + .\ + .\ + ..\..\..\..\Output\Debug\Cliente + ..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + + + Delphi.Personality + Package + +FalseTrueFalseFalseFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0Tarifas_plugin.dpk + + + + + MainSource + + + + + + + + + + + +
PluginTarifas
+ + + + diff --git a/Source/Modulos/Tipos de operacion compra/Plugin/TiposOperacionCompra_plugin.dpk b/Source/Modulos/Tipos de operacion compra/Plugin/TiposOperacionCompra_plugin.dpk new file mode 100644 index 0000000..3e079f8 Binary files /dev/null and b/Source/Modulos/Tipos de operacion compra/Plugin/TiposOperacionCompra_plugin.dpk differ diff --git a/Source/Modulos/Tipos de operacion compra/Plugin/TiposOperacionCompra_plugin.dproj b/Source/Modulos/Tipos de operacion compra/Plugin/TiposOperacionCompra_plugin.dproj new file mode 100644 index 0000000..84fd3b0 --- /dev/null +++ b/Source/Modulos/Tipos de operacion compra/Plugin/TiposOperacionCompra_plugin.dproj @@ -0,0 +1,545 @@ + + + {82e36812-58c4-491b-b463-6b951e95da51} + TiposOperacionCompra_plugin.dpk + Debug + AnyCPU + DCC32 + ..\..\..\..\Output\Debug\Cliente\TiposOperacionCompra_plugin.bpl + + + 7.0 + False + False + 0 + .\ + .\ + .\ + ..\..\..\..\Output\Debug\Cliente + ..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + RELEASE + + + 7.0 + .\ + .\ + .\ + ..\..\..\..\Output\Debug\Cliente + ..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + + + Delphi.Personality + Package + +FalseTrueFalseFalseFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0TiposOperacionCompra_plugin.dpk + + + + + MainSource + + + + + + + + + + + +
PluginTiposOperacionCompra
+ + + + diff --git a/Source/Modulos/Tipos de operacion compra/Plugin/uPluginTarifas.dfm b/Source/Modulos/Tipos de operacion compra/Plugin/uPluginTarifas.dfm new file mode 100644 index 0000000..aeb9999 --- /dev/null +++ b/Source/Modulos/Tipos de operacion compra/Plugin/uPluginTarifas.dfm @@ -0,0 +1,176 @@ +object PluginTarifas: TPluginTarifas + OldCreateOrder = True + DefaultAction = actTarifas + Description = 'Tarifas' + ModuleMenu = MainMenu + ModuleName = 'Tarifas' + SmallImages = SmallImages + LargeImages = SmallImages + Author = 'Rodax Software' + Version = '1.0.0' + Height = 252 + Width = 401 + object LargeImages: TPngImageList + Height = 24 + Width = 24 + PngImages = <> + Left = 232 + Top = 16 + end + object ModuleActionList: TActionList + Images = SmallImages + Left = 40 + Top = 72 + object actTarifas: TAction + Category = 'Tarifas' + Caption = 'Tarifas de art'#237'culos' + ImageIndex = 0 + OnExecute = actTarifasExecute + end + end + object MainMenu: TMainMenu + Images = LargeImages + Left = 40 + Top = 16 + object Ventas1: TMenuItem + Caption = 'Datos' + object Tarifas1: TMenuItem + Tag = 900 + Action = actTarifas + end + end + end + object SmallImages: TPngImageList + PngImages = < + item + PngImage.Data = { + 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF + 610000000970485973000017120000171201679FD25200000A4D694343505068 + 6F746F73686F70204943432070726F66696C65000078DA9D53775893F7163EDF + F7650F5642D8F0B1976C81002223AC08C81059A21092006184101240C585880A + 561415119C4855C482D50A489D88E2A028B867418A885A8B555C38EE1FDCA7B5 + 7D7AEFEDEDFBD7FBBCE79CE7FCCE79CF0F8011122691E6A26A003952853C3AD8 + 1F8F4F48C4C9BD80021548E0042010E6CBC26705C50000F00379787E74B03FFC + 01AF6F00020070D52E2412C7E1FF83BA50265700209100E02212E70B01905200 + C82E54C81400C81800B053B3640A009400006C797C422200AA0D00ECF4493E05 + 00D8A993DC1700D8A21CA908008D0100992847240240BB00605581522C02C0C2 + 00A0AC40222E04C0AE018059B632470280BD0500768E58900F4060008099422C + CC0020380200431E13CD03204C03A030D2BFE0A95F7085B8480100C0CB95CD97 + 4BD23314B895D01A77F2F0E0E221E2C26CB142611729106609E4229C979B2313 + 48E7034CCE0C00001AF9D1C1FE383F90E7E6E4E1E666E76CEFF4C5A2FE6BF06F + 223E21F1DFFEBC8C020400104ECFEFDA5FE5E5D60370C701B075BF6BA95B00DA + 560068DFF95D33DB09A05A0AD07AF98B7938FC401E9EA150C83C1D1C0A0B0BED + 2562A1BD30E38B3EFF33E16FE08B7EF6FC401EFEDB7AF000719A4099ADC0A383 + FD71616E76AE528EE7CB0442316EF7E723FEC7857FFD8E29D1E234B15C2C158A + F15889B850224DC779B952914421C995E212E97F32F11F96FD0993770D00AC86 + 4FC04EB607B5CB6CC07EEE01028B0E58D27600407EF32D8C1A0B910010673432 + 79F7000093BFF98F402B0100CD97A4E30000BCE8185CA894174CC608000044A0 + 812AB041070CC114ACC00E9CC11DBCC01702610644400C24C03C104206E4801C + 0AA11896411954C03AD804B5B0031AA0119AE110B4C131380DE7E0125C81EB70 + 170660189EC218BC86090441C8081361213A8811628ED822CE0817998E042261 + 48349280A420E988145122C5C872A402A9426A915D4823F22D7214398D5C40FA + 90DBC820328AFC8ABC47319481B25103D4027540B9A81F1A8AC6A073D174340F + 5D8096A26BD11AB41E3D80B6A2A7D14BE87574007D8A8E6380D1310E668CD961 + 5C8C87456089581A26C71663E55835568F35631D583776151BC09E61EF082402 + 8B8013EC085E8410C26C82909047584C5843A825EC23B412BA085709838431C2 + 272293A84FB4257A12F9C478623AB1905846AC26EE211E219E255E270E135F93 + 48240EC992E44E0A21259032490B496B48DB482DA453A43ED210699C4C26EB90 + 6DC9DEE408B280AC209791B7900F904F92FBC9C3E4B7143AC588E24C09A22452 + A494124A35653FE504A59F324299A0AA51CDA99ED408AA883A9F5A496DA07650 + 2F5387A91334759A25CD9B1643CBA42DA3D5D09A696769F7682FE974BA09DD83 + 1E4597D097D26BE807E9E7E983F4770C0D860D83C7486228196B197B19A718B7 + 192F994CA605D39799C85430D7321B9967980F986F55582AF62A7C1591CA1295 + 3A9556957E95E7AA545573553FD579AA0B54AB550FAB5E567DA64655B350E3A9 + 09D416ABD5A91D55BBA936AECE5277528F50CF515FA3BE5FFD82FA630DB28685 + 46A08648A35463B7C6198D2116C63265F15842D6725603EB2C6B984D625BB2F9 + EC4C7605FB1B762F7B4C534373AA66AC6691669DE671CD010EC6B1E0F039D99C + 4ACE21CE0DCE7B2D032D3F2DB1D66AAD66AD7EAD37DA7ADABEDA62ED72ED16ED + EBDAEF75709D409D2C9DF53A6D3AF77509BA36BA51BA85BADB75CFEA3ED363EB + 79E909F5CAF50EE9DDD147F56DF4A3F517EAEFD6EFD11F373034083690196C31 + 3863F0CC9063E86B9869B8D1F084E1A811CB68BA91C468A3D149A327B826EE87 + 67E33578173E66AC6F1C62AC34DE65DC6B3C61626932DBA4C4A4C5E4BE29CD94 + 6B9A66BAD1B4D374CCCCC82CDCACD8ACC9EC8E39D59C6B9E61BED9BCDBFC8D85 + A5459CC54A8B368BC796DA967CCB05964D96F7AC98563E567956F556D7AC49D6 + 5CEB2CEB6DD6576C501B579B0C9B3A9BCBB6A8AD9BADC4769B6DDF14E2148F29 + D229F5536EDA31ECFCEC0AEC9AEC06ED39F661F625F66DF6CF1DCC1C121DD63B + 743B7C727475CC766C70BCEBA4E134C3A9C4A9C3E957671B67A1739DF33517A6 + 4B90CB1297769717536DA78AA76E9F7ACB95E51AEEBAD2B5D3F5A39BBB9BDCAD + D96DD4DDCC3DC57DABFB4D2E9B1BC95DC33DEF41F4F0F758E271CCE39DA79BA7 + C2F390E72F5E765E595EFBBD1E4FB39C269ED6306DC8DBC45BE0BDCB7B603A3E + 3D65FACEE9033EC63E029F7A9F87BEA6BE22DF3DBE237ED67E997E07FC9EFB3B + FACBFD8FF8BFE179F216F14E056001C101E501BD811A81B3036B031F049904A5 + 0735058D05BB062F0C3E15420C090D591F72936FC017F21BF96333DC672C9AD1 + 15CA089D155A1BFA30CC264C1ED6118E86CF08DF107E6FA6F94CE9CCB60888E0 + 476C88B81F69199917F97D14292A32AA2EEA51B453747174F72CD6ACE459FB67 + BD8EF18FA98CB93BDB6AB6727667AC6A6C526C63EC9BB880B8AAB8817887F845 + F1971274132409ED89E4C4D8C43D89E37302E76C9A339CE49A54967463AEE5DC + A2B917E6E9CECB9E773C593559907C3885981297B23FE5832042502F184FE5A7 + 6E4D1D13F2849B854F45BEA28DA251B1B7B84A3C92E69D5695F638DD3B7D43FA + 68864F4675C633094F522B79911992B923F34D5644D6DEACCFD971D92D39949C + 949CA3520D6996B42BD730B728B74F662B2B930DE479E66DCA1B9387CAF7E423 + F973F3DB156C854CD1A3B452AE500E164C2FA82B785B185B78B848BD485AD433 + DF66FEEAF9230B82167CBD90B050B8B0B3D8B87859F1E022BF45BB16238B5317 + 772E315D52BA647869F0D27DCB68CBB296FD50E2585255F26A79DCF28E5283D2 + A5A5432B82573495A994C9CB6EAEF45AB9631561956455EF6A97D55B567F2A17 + 955FAC70ACA8AEF8B046B8E6E2574E5FD57CF5796DDADADE4AB7CAEDEB48EBA4 + EB6EACF759BFAF4ABD6A41D5D086F00DAD1BF18DE51B5F6D4ADE74A17A6AF58E + CDB4CDCACD03356135ED5BCCB6ACDBF2A136A3F67A9D7F5DCB56FDADABB7BED9 + 26DAD6BFDD777BF30E831D153BDEEF94ECBCB52B78576BBD457DF56ED2EE82DD + 8F1A621BBABFE67EDDB847774FC59E8F7BA57B07F645EFEB6A746F6CDCAFBFBF + B2096D52368D1E483A70E59B806FDA9BED9A77B5705A2A0EC241E5C127DFA67C + 7BE350E8A1CEC3DCC3CDDF997FB7F508EB48792BD23ABF75AC2DA36DA03DA1BD + EFE88CA39D1D5E1D47BEB7FF7EEF31E36375C7358F579EA09D283DF1F9E48293 + E3A764A79E9D4E3F3DD499DC79F74CFC996B5D515DBD6743CF9E3F1774EE4CB7 + 5FF7C9F3DEE78F5DF0BC70F422F762DB25B74BAD3DAE3D477E70FDE148AF5B6F + EB65F7CBED573CAE74F44DEB3BD1EFD37FFA6AC0D573D7F8D72E5D9F79BDEFC6 + EC1BB76E26DD1CB825BAF5F876F6ED17770AEE4CDC5D7A8F78AFFCBEDAFDEA07 + FA0FEA7FB4FEB165C06DE0F860C060CFC3590FEF0E09879EFE94FFD387E1D247 + CC47D52346238D8F9D1F1F1B0D1ABDF264CE93E1A7B2A713CFCA7E56FF79EB73 + ABE7DFFDE2FB4BCF58FCD8F00BF98BCFBFAE79A9F372EFABA9AF3AC723C71FBC + CE793DF1A6FCADCEDB7DEFB8EFBADFC7BD1F9928FC40FE50F3D1FA63C7A7D04F + F73EE77CFEFC2FF784F3FB25D29F33000003824944415478DA4D536F6C13651C + 7EDEEBB55DCB5A3B56840E011194900C3102834D86812C4822DBF04F58C8942F + 8608C60F1A89FFBE98F80562A61F46A48E02310BFBC34A625A84451C766DB700 + 6306B619C2840DB756D70DC66DBBEB5DEF7A7F7CEFAAD15FEE3EDCFBBBE7F9FD + F23CCF4BC26DC7A3813276178881A93FF5A4C86EFDC1E1F133BA9E27BA6E8061 + 0CB85D76A4FF9A26C133E793622E37E2B4B32084C02CD2DFDB94AB7AD9ED343F + B8C70606066843379B3A7D54F0028BF28AD7312FEA0847AEA4C2177B5E73D86C + BFB2ACAD4090B8DAC455EF72FB52932AC6EF8A7039640A34C11A7DF358E00924 + D1037B603B2A2A5F42A8353AD9DA75E96D5555130CC380F4C5BEE62AB6397C3D + 97E6F1FCD319947814A879159A2C507C0EF985346E5D1FC3ECDA663CE0BC90B3 + 3C12D76E5F7E3C37BF97616C06B9966CE27C5EF8B8D42C2A5F78045556A14A02 + 544500D124DC1B1C8450FC06D6D506313834860793699C3E17FD716AFA51ADC3 + D4227EF51B0E9AE1DBF0540A5E97005914A1E578684A16CADC146EDC4863E3C1 + 9FE00B5482D1158CA767F0EEE1D0D0CDBE4C0795204CDACF7CC16F58395DBC66 + 590A8A2053DD240A16E9740513A3A3E0BC8DD8BCFF7B883C0F6E2E8BB70E8430 + 33C38B99CC7C86129490B35FD6FFE1E1A24FB2C54FB82C6B0C0386A92E754190 + 9DD871E40A169596C3D07238712286E1A114BA3A0E458B16BD5F4F7F1B23CD1F + 56B97587BFFED5F7CEB69795D8202B54035587A2AA606C2CDC9E124AAA5A96AD + 79E673C46247B162556924B02FDA904FFE72999CFCEA233857BEB2774FCDF68B + 65A52E48B20639AF41A144B0E2402DA53B2513F7D0D0D082EA1DCF41E0A587B7 + 6EA786E9F18B2474A11F8461EA6AB63E1B092CF1212BC9D606AA5600FE5B27BF + ED455BDB7534366EC31C97BD130CC65BAD20B57425682C8DBA9D15EB23CBFC5E + 4A90A70434071A0593FF08BE0BC6D1DF771FADE7DE31658AAE5DFD59BD4570AA + 2B4E095057BD695D64C9620F44890649D360DE03BA9925AA59A75AE2E8ECB889 + 44DF276008F979D58A8F775B2E043B63F400753B2BCB2301BF0FA22843A1EBE7 + 558D4A4050B8330423C329ECAB6DC6FE035B863F385A13AADA74EC2E6D1C272D + E77BC1DAC89B4B177BC25333B305201DAAFD33D922305D207644C3BFA1A7FB77 + FCAF3E259DDD03A656ABDB2F74EFB9333A8EA22267616D2B135448C60E52B49C + 31A409DDDC24B7C02CCF09F03B5C383D31A20FFE0D3DD9B01652475B27000000 + 0049454E44AE426082} + Name = 'PngImage1' + Background = clWindow + end> + PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled] + Left = 308 + Top = 16 + Bitmap = {} + end + object ExtraImages: TPngImageList + Height = 28 + Width = 28 + PngImages = <> + Left = 232 + Top = 80 + end +end diff --git a/Source/Modulos/Tipos de operacion compra/Plugin/uPluginTarifas.pas b/Source/Modulos/Tipos de operacion compra/Plugin/uPluginTarifas.pas new file mode 100644 index 0000000..68123d7 --- /dev/null +++ b/Source/Modulos/Tipos de operacion compra/Plugin/uPluginTarifas.pas @@ -0,0 +1,73 @@ +unit uPluginTarifas; + +interface + +uses + uModuleController, uInterfaces, uHostManager, Menus, Classes, ActnList, + ImgList, Controls, PngImageList; + +type + IMCTarifas = interface(IInterface) + ['{02F833B1-34E5-4DE3-B724-E8C92AE6C9FF}'] + end; + + TPluginTarifas = class(TModuleController, IMCTarifas) + actTarifas: TAction; + ExtraImages: TPngImageList; + LargeImages: TPngImageList; + MainMenu: TMainMenu; + ModuleActionList: TActionList; + SmallImages: TPngImageList; + Ventas1: TMenuItem; + Tarifas1: TMenuItem; + procedure actTarifasExecute(Sender: TObject); + public + constructor Create(AOwner: TComponent); override; + destructor Destroy; override; + end; + +implementation + +{$R *.dfm} + +uses + Forms, Dialogs, SysUtils, + uTarifasController, uBizTarifas, uTarifasViewRegister; + +function GetModule : TModuleController; +begin + Result := TPluginTarifas.Create(NIL); +end; + +exports + GetModule name GET_MODULE_FUNC; + +procedure TPluginTarifas.actTarifasExecute(Sender: TObject); +var + ATarifasController : ITarifasController; + ATarifas : IBizTarifa; +begin + ATarifasController := TTarifasController.Create; + ATarifas := (ATarifasController.BuscarTodos as IBizTarifa); + ATarifasController.VerTodos(ATarifas); +end; + +constructor TPluginTarifas.Create(AOwner: TComponent); +begin + inherited; + uTarifasViewRegister.RegisterViews; +end; + +destructor TPluginTarifas.Destroy; +begin + uTarifasViewRegister.UnregisterViews; + inherited; +end; + +initialization + RegisterModuleClass(TPluginTarifas); + +finalization + UnRegisterModuleClass(TPluginTarifas); + +end. diff --git a/Source/Modulos/Tipos de operacion compra/Plugin/uPluginTiposOperacionCompra.dfm b/Source/Modulos/Tipos de operacion compra/Plugin/uPluginTiposOperacionCompra.dfm new file mode 100644 index 0000000..ab227dc --- /dev/null +++ b/Source/Modulos/Tipos de operacion compra/Plugin/uPluginTiposOperacionCompra.dfm @@ -0,0 +1,190 @@ +object PluginTiposOperacionCompra: TPluginTiposOperacionCompra + OldCreateOrder = True + DefaultAction = actTiposOperacionCompras + Description = 'Tarifas' + ModuleMenu = MainMenu + ModuleName = 'Tarifas' + SmallImages = SmallImages + LargeImages = SmallImages + Author = 'Rodax Software' + Version = '1.0.0' + Height = 252 + Width = 401 + object LargeImages: TPngImageList + Height = 24 + Width = 24 + PngImages = <> + Left = 232 + Top = 16 + end + object ModuleActionList: TActionList + Images = SmallImages + Left = 40 + Top = 72 + object actTiposOperacionCompras: TAction + Category = 'Tipos operaci'#243'n compras' + Caption = 'Tipos de operaci'#243'n compras' + ImageIndex = 1 + OnExecute = actTiposOperacionComprasExecute + end + end + object MainMenu: TMainMenu + Images = LargeImages + Left = 40 + Top = 16 + object Ventas1: TMenuItem + Caption = 'Datos' + object TiposOperacionCompra1: TMenuItem + Tag = 900 + Action = actTiposOperacionCompras + end + end + end + object SmallImages: TPngImageList + PngImages = < + item + PngImage.Data = { + 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF + 610000000970485973000017120000171201679FD25200000A4D694343505068 + 6F746F73686F70204943432070726F66696C65000078DA9D53775893F7163EDF + F7650F5642D8F0B1976C81002223AC08C81059A21092006184101240C585880A + 561415119C4855C482D50A489D88E2A028B867418A885A8B555C38EE1FDCA7B5 + 7D7AEFEDEDFBD7FBBCE79CE7FCCE79CF0F8011122691E6A26A003952853C3AD8 + 1F8F4F48C4C9BD80021548E0042010E6CBC26705C50000F00379787E74B03FFC + 01AF6F00020070D52E2412C7E1FF83BA50265700209100E02212E70B01905200 + C82E54C81400C81800B053B3640A009400006C797C422200AA0D00ECF4493E05 + 00D8A993DC1700D8A21CA908008D0100992847240240BB00605581522C02C0C2 + 00A0AC40222E04C0AE018059B632470280BD0500768E58900F4060008099422C + CC0020380200431E13CD03204C03A030D2BFE0A95F7085B8480100C0CB95CD97 + 4BD23314B895D01A77F2F0E0E221E2C26CB142611729106609E4229C979B2313 + 48E7034CCE0C00001AF9D1C1FE383F90E7E6E4E1E666E76CEFF4C5A2FE6BF06F + 223E21F1DFFEBC8C020400104ECFEFDA5FE5E5D60370C701B075BF6BA95B00DA + 560068DFF95D33DB09A05A0AD07AF98B7938FC401E9EA150C83C1D1C0A0B0BED + 2562A1BD30E38B3EFF33E16FE08B7EF6FC401EFEDB7AF000719A4099ADC0A383 + FD71616E76AE528EE7CB0442316EF7E723FEC7857FFD8E29D1E234B15C2C158A + F15889B850224DC779B952914421C995E212E97F32F11F96FD0993770D00AC86 + 4FC04EB607B5CB6CC07EEE01028B0E58D27600407EF32D8C1A0B910010673432 + 79F7000093BFF98F402B0100CD97A4E30000BCE8185CA894174CC608000044A0 + 812AB041070CC114ACC00E9CC11DBCC01702610644400C24C03C104206E4801C + 0AA11896411954C03AD804B5B0031AA0119AE110B4C131380DE7E0125C81EB70 + 170660189EC218BC86090441C8081361213A8811628ED822CE0817998E042261 + 48349280A420E988145122C5C872A402A9426A915D4823F22D7214398D5C40FA + 90DBC820328AFC8ABC47319481B25103D4027540B9A81F1A8AC6A073D174340F + 5D8096A26BD11AB41E3D80B6A2A7D14BE87574007D8A8E6380D1310E668CD961 + 5C8C87456089581A26C71663E55835568F35631D583776151BC09E61EF082402 + 8B8013EC085E8410C26C82909047584C5843A825EC23B412BA085709838431C2 + 272293A84FB4257A12F9C478623AB1905846AC26EE211E219E255E270E135F93 + 48240EC992E44E0A21259032490B496B48DB482DA453A43ED210699C4C26EB90 + 6DC9DEE408B280AC209791B7900F904F92FBC9C3E4B7143AC588E24C09A22452 + A494124A35653FE504A59F324299A0AA51CDA99ED408AA883A9F5A496DA07650 + 2F5387A91334759A25CD9B1643CBA42DA3D5D09A696769F7682FE974BA09DD83 + 1E4597D097D26BE807E9E7E983F4770C0D860D83C7486228196B197B19A718B7 + 192F994CA605D39799C85430D7321B9967980F986F55582AF62A7C1591CA1295 + 3A9556957E95E7AA545573553FD579AA0B54AB550FAB5E567DA64655B350E3A9 + 09D416ABD5A91D55BBA936AECE5277528F50CF515FA3BE5FFD82FA630DB28685 + 46A08648A35463B7C6198D2116C63265F15842D6725603EB2C6B984D625BB2F9 + EC4C7605FB1B762F7B4C534373AA66AC6691669DE671CD010EC6B1E0F039D99C + 4ACE21CE0DCE7B2D032D3F2DB1D66AAD66AD7EAD37DA7ADABEDA62ED72ED16ED + EBDAEF75709D409D2C9DF53A6D3AF77509BA36BA51BA85BADB75CFEA3ED363EB + 79E909F5CAF50EE9DDD147F56DF4A3F517EAEFD6EFD11F373034083690196C31 + 3863F0CC9063E86B9869B8D1F084E1A811CB68BA91C468A3D149A327B826EE87 + 67E33578173E66AC6F1C62AC34DE65DC6B3C61626932DBA4C4A4C5E4BE29CD94 + 6B9A66BAD1B4D374CCCCC82CDCACD8ACC9EC8E39D59C6B9E61BED9BCDBFC8D85 + A5459CC54A8B368BC796DA967CCB05964D96F7AC98563E567956F556D7AC49D6 + 5CEB2CEB6DD6576C501B579B0C9B3A9BCBB6A8AD9BADC4769B6DDF14E2148F29 + D229F5536EDA31ECFCEC0AEC9AEC06ED39F661F625F66DF6CF1DCC1C121DD63B + 743B7C727475CC766C70BCEBA4E134C3A9C4A9C3E957671B67A1739DF33517A6 + 4B90CB1297769717536DA78AA76E9F7ACB95E51AEEBAD2B5D3F5A39BBB9BDCAD + D96DD4DDCC3DC57DABFB4D2E9B1BC95DC33DEF41F4F0F758E271CCE39DA79BA7 + C2F390E72F5E765E595EFBBD1E4FB39C269ED6306DC8DBC45BE0BDCB7B603A3E + 3D65FACEE9033EC63E029F7A9F87BEA6BE22DF3DBE237ED67E997E07FC9EFB3B + FACBFD8FF8BFE179F216F14E056001C101E501BD811A81B3036B031F049904A5 + 0735058D05BB062F0C3E15420C090D591F72936FC017F21BF96333DC672C9AD1 + 15CA089D155A1BFA30CC264C1ED6118E86CF08DF107E6FA6F94CE9CCB60888E0 + 476C88B81F69199917F97D14292A32AA2EEA51B453747174F72CD6ACE459FB67 + BD8EF18FA98CB93BDB6AB6727667AC6A6C526C63EC9BB880B8AAB8817887F845 + F1971274132409ED89E4C4D8C43D89E37302E76C9A339CE49A54967463AEE5DC + A2B917E6E9CECB9E773C593559907C3885981297B23FE5832042502F184FE5A7 + 6E4D1D13F2849B854F45BEA28DA251B1B7B84A3C92E69D5695F638DD3B7D43FA + 68864F4675C633094F522B79911992B923F34D5644D6DEACCFD971D92D39949C + 949CA3520D6996B42BD730B728B74F662B2B930DE479E66DCA1B9387CAF7E423 + F973F3DB156C854CD1A3B452AE500E164C2FA82B785B185B78B848BD485AD433 + DF66FEEAF9230B82167CBD90B050B8B0B3D8B87859F1E022BF45BB16238B5317 + 772E315D52BA647869F0D27DCB68CBB296FD50E2585255F26A79DCF28E5283D2 + A5A5432B82573495A994C9CB6EAEF45AB9631561956455EF6A97D55B567F2A17 + 955FAC70ACA8AEF8B046B8E6E2574E5FD57CF5796DDADADE4AB7CAEDEB48EBA4 + EB6EACF759BFAF4ABD6A41D5D086F00DAD1BF18DE51B5F6D4ADE74A17A6AF58E + CDB4CDCACD03356135ED5BCCB6ACDBF2A136A3F67A9D7F5DCB56FDADABB7BED9 + 26DAD6BFDD777BF30E831D153BDEEF94ECBCB52B78576BBD457DF56ED2EE82DD + 8F1A621BBABFE67EDDB847774FC59E8F7BA57B07F645EFEB6A746F6CDCAFBFBF + B2096D52368D1E483A70E59B806FDA9BED9A77B5705A2A0EC241E5C127DFA67C + 7BE350E8A1CEC3DCC3CDDF997FB7F508EB48792BD23ABF75AC2DA36DA03DA1BD + EFE88CA39D1D5E1D47BEB7FF7EEF31E36375C7358F579EA09D283DF1F9E48293 + E3A764A79E9D4E3F3DD499DC79F74CFC996B5D515DBD6743CF9E3F1774EE4CB7 + 5FF7C9F3DEE78F5DF0BC70F422F762DB25B74BAD3DAE3D477E70FDE148AF5B6F + EB65F7CBED573CAE74F44DEB3BD1EFD37FFA6AC0D573D7F8D72E5D9F79BDEFC6 + EC1BB76E26DD1CB825BAF5F876F6ED17770AEE4CDC5D7A8F78AFFCBEDAFDEA07 + FA0FEA7FB4FEB165C06DE0F860C060CFC3590FEF0E09879EFE94FFD387E1D247 + CC47D52346238D8F9D1F1F1B0D1ABDF264CE93E1A7B2A713CFCA7E56FF79EB73 + ABE7DFFDE2FB4BCF58FCD8F00BF98BCFBFAE79A9F372EFABA9AF3AC723C71FBC + CE793DF1A6FCADCEDB7DEFB8EFBADFC7BD1F9928FC40FE50F3D1FA63C7A7D04F + F73EE77CFEFC2FF784F3FB25D29F33000003824944415478DA4D536F6C13651C + 7EDEEBB55DCB5A3B56840E011194900C3102834D86812C4822DBF04F58C8942F + 8608C60F1A89FFBE98F80562A61F46A48E02310BFBC34A625A84451C766DB700 + 6306B619C2840DB756D70DC66DBBEB5DEF7A7F7CEFAAD15FEE3EDCFBBBE7F9FD + F23CCF4BC26DC7A3813276178881A93FF5A4C86EFDC1E1F133BA9E27BA6E8061 + 0CB85D76A4FF9A26C133E793622E37E2B4B32084C02CD2DFDB94AB7AD9ED343F + B8C70606066843379B3A7D54F0028BF28AD7312FEA0847AEA4C2177B5E73D86C + BFB2ACAD4090B8DAC455EF72FB52932AC6EF8A7039640A34C11A7DF358E00924 + D1037B603B2A2A5F42A8353AD9DA75E96D5555130CC380F4C5BEE62AB6397C3D + 97E6F1FCD319947814A879159A2C507C0EF985346E5D1FC3ECDA663CE0BC90B3 + 3C12D76E5F7E3C37BF97616C06B9966CE27C5EF8B8D42C2A5F78045556A14A02 + 544500D124DC1B1C8450FC06D6D506313834860793699C3E17FD716AFA51ADC3 + D4227EF51B0E9AE1DBF0540A5E97005914A1E578684A16CADC146EDC4863E3C1 + 9FE00B5482D1158CA767F0EEE1D0D0CDBE4C0795204CDACF7CC16F58395DBC66 + 590A8A2053DD240A16E9740513A3A3E0BC8DD8BCFF7B883C0F6E2E8BB70E8430 + 33C38B99CC7C86129490B35FD6FFE1E1A24FB2C54FB82C6B0C0386A92E754190 + 9DD871E40A169596C3D07238712286E1A114BA3A0E458B16BD5F4F7F1B23CD1F + 56B97587BFFED5F7CEB69795D8202B54035587A2AA606C2CDC9E124AAA5A96AD + 79E673C46247B162556924B02FDA904FFE72999CFCEA233857BEB2774FCDF68B + 65A52E48B20639AF41A144B0E2402DA53B2513F7D0D0D082EA1DCF41E0A587B7 + 6EA786E9F18B2474A11F8461EA6AB63E1B092CF1212BC9D606AA5600FE5B27BF + ED455BDB7534366EC31C97BD130CC65BAD20B57425682C8DBA9D15EB23CBFC5E + 4A90A70434071A0593FF08BE0BC6D1DF771FADE7DE31658AAE5DFD59BD4570AA + 2B4E095057BD695D64C9620F44890649D360DE03BA9925AA59A75AE2E8ECB889 + 44DF276008F979D58A8F775B2E043B63F400753B2BCB2301BF0FA22843A1EBE7 + 558D4A4050B8330423C329ECAB6DC6FE035B863F385A13AADA74EC2E6D1C272D + E77BC1DAC89B4B177BC25333B305201DAAFD33D922305D207644C3BFA1A7FB77 + FCAF3E259DDD03A656ABDB2F74EFB9333A8EA22267616D2B135448C60E52B49C + 31A409DDDC24B7C02CCF09F03B5C383D31A20FFE0D3DD9B01652475B27000000 + 0049454E44AE426082} + Name = 'PngImage1' + Background = clWindow + end + item + PngImage.Data = { + 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF + 610000000970485973000017120000171201679FD252000000CE4944415478DA + 63FCFFFF3F03258071E00D58B6E514D92644F99831820D50F76666987C3219AB + A2DF7FFF327CFFF387E1DBEFDF0C1F7FFC00B3E7FA6F6548F198C3707EE77484 + 0120003364AED9390C836CB6C9C13583008A0154090372BD81620039DE801BB0 + 4B240DAE10A699F9141344E02A03C3DFC47F60A6E65A5186EF4097805C23B72C + 810803AE42C4600628AC10006B06618DD5A90C8C20419021C8068024975B5FC6 + F002B26690570CD767220C8005225812AA08A6109BD8D9F4B390308019D03D79 + 3E79D138E0990900FC7AC6454D6D985F0000000049454E44AE426082} + Name = 'PngImage1' + Background = clWindow + end> + PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled] + Left = 308 + Top = 16 + Bitmap = {} + end + object ExtraImages: TPngImageList + Height = 28 + Width = 28 + PngImages = <> + Left = 232 + Top = 80 + end +end diff --git a/Source/Modulos/Tipos de operacion compra/Plugin/uPluginTiposOperacionCompra.pas b/Source/Modulos/Tipos de operacion compra/Plugin/uPluginTiposOperacionCompra.pas new file mode 100644 index 0000000..f4c1b63 --- /dev/null +++ b/Source/Modulos/Tipos de operacion compra/Plugin/uPluginTiposOperacionCompra.pas @@ -0,0 +1,73 @@ +unit uPluginTiposOperacionCompra; + +interface + +uses + uModuleController, uInterfaces, uHostManager, Menus, Classes, ActnList, + ImgList, Controls, PngImageList; + +type + IMCTiposOperacionCompra = interface(IInterface) + ['{B94C49FC-4CE4-4DF3-9260-899962FF8752}'] + end; + + TPluginTiposOperacionCompra = class(TModuleController, IMCTiposOperacionCompra) + actTiposOperacionCompras: TAction; + ExtraImages: TPngImageList; + LargeImages: TPngImageList; + MainMenu: TMainMenu; + ModuleActionList: TActionList; + SmallImages: TPngImageList; + Ventas1: TMenuItem; + TiposOperacionCompra1: TMenuItem; + procedure actTiposOperacionComprasExecute(Sender: TObject); + public + constructor Create(AOwner: TComponent); override; + destructor Destroy; override; + end; + +implementation + +{$R *.dfm} + +uses + Forms, Dialogs, SysUtils, + uTiposOperacionCompraController, uBizTiposOperacionCompra, uTiposOperacionCompraViewRegister; + +function GetModule : TModuleController; +begin + Result := TPluginTiposOperacionCompra.Create(NIL); +end; + +exports + GetModule name GET_MODULE_FUNC; + +procedure TPluginTiposOperacionCompra.actTiposOperacionComprasExecute(Sender: TObject); +var + ATiposOperacionCompraController : ITiposOperacionCompraController; + ATiposOperacionCompra : IBizTiposOperacionCompra; +begin + ATiposOperacionCompraController := TTiposOperacionCompraController.Create; + ATiposOperacionCompra := (ATiposOperacionCompraController.BuscarTodos as IBizTiposOperacionCompra); + ATiposOperacionCompraController.VerTodos(ATiposOperacionCompra); +end; + +constructor TPluginTiposOperacionCompra.Create(AOwner: TComponent); +begin + inherited; + uTiposOperacionCompraViewRegister.RegisterViews; +end; + +destructor TPluginTiposOperacionCompra.Destroy; +begin + uTiposOperacionCompraViewRegister.UnregisterViews; + inherited; +end; + +initialization + RegisterModuleClass(TPluginTiposOperacionCompra); + +finalization + UnRegisterModuleClass(TPluginTiposOperacionCompra); + +end. diff --git a/Source/Modulos/Tipos de operacion compra/Servidor/srvTiposOperacionCompra_Impl.dfm b/Source/Modulos/Tipos de operacion compra/Servidor/srvTiposOperacionCompra_Impl.dfm new file mode 100644 index 0000000..e276739 --- /dev/null +++ b/Source/Modulos/Tipos de operacion compra/Servidor/srvTiposOperacionCompra_Impl.dfm @@ -0,0 +1,87 @@ +object srvTiposOperacionCompra: TsrvTiposOperacionCompra + OldCreateOrder = True + OnCreate = DataAbstractServiceCreate + SessionManager = dmServer.SessionManager + ServiceSchema = schTiposOperacionCompra + ServiceDataStreamer = Bin2DataStreamer + ExportedDataTables = <> + BeforeAcquireConnection = DataAbstractServiceBeforeAcquireConnection + Height = 300 + Width = 300 + object schTiposOperacionCompra: TDASchema + ConnectionManager = dmServer.ConnectionManager + Datasets = < + item + Params = <> + Statements = < + item + Connection = 'IBX' + ConnectionType = 'Interbase' + TargetTable = 'TIPOS_FACTURA_PROVEEDOR' + Name = 'IBX' + StatementType = stAutoSQL + ColumnMappings = < + item + DatasetField = 'ID' + TableField = 'ID' + end + item + DatasetField = 'DESCRIPCION' + TableField = 'DESCRIPCION' + end> + end> + Name = 'TiposOperacionCompra' + Fields = < + item + Name = 'ID' + DataType = datAutoInc + GeneratorName = 'GEN_TIPOS_OPERACION_COMPRAS' + Required = True + ServerAutoRefresh = True + InPrimaryKey = True + end + item + Name = 'DESCRIPCION' + DataType = datString + Size = 2000 + DisplayLabel = 'TiposOperacionCompra_DESCRIPCION' + DictionaryEntry = 'TiposOperacionCompra_DESCRIPCION' + end> + end> + JoinDataTables = <> + UnionDataTables = <> + Commands = <> + RelationShips = <> + UpdateRules = <> + Version = 0 + Left = 80 + Top = 24 + end + object Bin2DataStreamer: TDABin2DataStreamer + Left = 80 + Top = 88 + end + object DataDictionary: TDADataDictionary + Fields = < + item + Name = 'Tarifas_ID' + DataType = datAutoInc + GeneratorName = 'GEN_TARIFAS_ID' + Required = True + DisplayLabel = 'ID' + end + item + Name = 'Tarifas_DESCRIPCION' + DataType = datString + Size = 255 + DisplayLabel = 'Descripci'#243'n' + end> + Left = 190 + Top = 22 + end + object Diagrams: TDADiagrams + Left = 190 + Top = 90 + DiagramData = ''#13#10''#13#10 + end +end diff --git a/Source/Modulos/Tipos de operacion compra/Servidor/srvTiposOperacionCompra_Impl.pas b/Source/Modulos/Tipos de operacion compra/Servidor/srvTiposOperacionCompra_Impl.pas new file mode 100644 index 0000000..6ee3e78 --- /dev/null +++ b/Source/Modulos/Tipos de operacion compra/Servidor/srvTiposOperacionCompra_Impl.pas @@ -0,0 +1,61 @@ +unit srvTiposOperacionCompra_Impl; + +{----------------------------------------------------------------------------} +{ This unit was automatically generated by the RemObjects SDK after reading } +{ the RODL file associated with this project . } +{ } +{ This is where you are supposed to code the implementation of your objects. } +{----------------------------------------------------------------------------} + +{$I Remobjects.inc} + +interface + +uses + {vcl:} Classes, SysUtils, + {RemObjects:} uROXMLIntf, uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions, + {Ancestor Implementation:} DataAbstractService_Impl, + {Used RODLs:} DataAbstract4_Intf, + {Generated:} FactuGES_Intf, uDADataStreamer, uDABin2DataStreamer, uDAClasses, uDAInterfaces; + +type + { TsrvTiposOperacionCompra } + TsrvTiposOperacionCompra = class(TDataAbstractService, IsrvTiposOperacionCompra) + Bin2DataStreamer: TDABin2DataStreamer; + DataDictionary: TDADataDictionary; + Diagrams: TDADiagrams; + schTiposOperacionCompra: TDASchema; + procedure DataAbstractServiceBeforeAcquireConnection(aSender: TObject; var aConnectionName: string); + procedure DataAbstractServiceCreate(Sender: TObject); + end; + +implementation + +{$R *.dfm} +uses + {Generated:} FactuGES_Invk, uDataModuleServer, uDatabaseUtils; + +procedure Create_srvTiposOperacionCompra(out anInstance : IUnknown); +begin + anInstance := TsrvTiposOperacionCompra.Create(nil); +end; + +{ srvTiposVenta } + +procedure TsrvTiposOperacionCompra.DataAbstractServiceBeforeAcquireConnection(aSender: TObject; var aConnectionName: string); +begin + ConnectionName := dmServer.ConnectionName; +end; + +procedure TsrvTiposOperacionCompra.DataAbstractServiceCreate(Sender: TObject); +begin + //SessionManager := dmServer.SessionManager; +end; + + +initialization + TROClassFactory.Create('srvTiposOperacionCompra', Create_srvTiposOperacionCompra, TsrvTiposOperacionCompra_Invoker); + +finalization + +end. diff --git a/Source/Modulos/Tipos de operacion compra/TiposOperacionCompra_Group.groupproj b/Source/Modulos/Tipos de operacion compra/TiposOperacionCompra_Group.groupproj new file mode 100644 index 0000000..68528c4 --- /dev/null +++ b/Source/Modulos/Tipos de operacion compra/TiposOperacionCompra_Group.groupproj @@ -0,0 +1,124 @@ + + + {9a7cc043-5043-46ff-a039-c4103c4aa6b2} + + + + + + + + + + + + + + + + Default.Personality + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/Source/Modulos/Tipos de operacion compra/Views/TiposOperacionCompra_view.dpk b/Source/Modulos/Tipos de operacion compra/Views/TiposOperacionCompra_view.dpk new file mode 100644 index 0000000..0b17424 Binary files /dev/null and b/Source/Modulos/Tipos de operacion compra/Views/TiposOperacionCompra_view.dpk differ diff --git a/Source/Modulos/Tipos de operacion compra/Views/TiposOperacionCompra_view.dproj b/Source/Modulos/Tipos de operacion compra/Views/TiposOperacionCompra_view.dproj new file mode 100644 index 0000000..3ad3bb1 --- /dev/null +++ b/Source/Modulos/Tipos de operacion compra/Views/TiposOperacionCompra_view.dproj @@ -0,0 +1,564 @@ + + + + {e3d36a6f-7004-4c89-9f3d-f2d77e386d1b} + TiposOperacionCompra_view.dpk + Debug + AnyCPU + DCC32 + ..\..\..\..\Output\Debug\Cliente\TiposOperacionCompra_view.bpl + + + 7.0 + False + False + 0 + .\ + .\ + .\ + ..\..\..\..\Output\Debug\Cliente + ..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + RELEASE + + + 7.0 + .\ + .\ + .\ + ..\..\..\..\Output\Debug\Cliente + ..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + + + Delphi.Personality + Package + +FalseTrueFalseFalseFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0TiposOperacionCompra_view.dpk + + + + + MainSource + + + + + + + + + + + + + + + + + + + +
fEditorElegirTipoOperacionCompra
+ TfEditorFamilias + + +
fEditorTiposOperacionCompra
+ TfEditorFamilias + + + + + + + + + diff --git a/Source/Modulos/Tipos de operacion compra/Views/uEditorElegirTipoOperacionCompra.dfm b/Source/Modulos/Tipos de operacion compra/Views/uEditorElegirTipoOperacionCompra.dfm new file mode 100644 index 0000000..4017dc1 --- /dev/null +++ b/Source/Modulos/Tipos de operacion compra/Views/uEditorElegirTipoOperacionCompra.dfm @@ -0,0 +1,90 @@ +object fEditorElegirTipoOperacionCompra: TfEditorElegirTipoOperacionCompra + Left = 0 + Top = 0 + BorderStyle = bsDialog + Caption = 'Tipo de operaci'#243'n' + ClientHeight = 124 + ClientWidth = 424 + Color = clWindow + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Tahoma' + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 13 + object Label1: TLabel + Left = 21 + Top = 16 + Width = 238 + Height = 13 + Caption = 'Seleccione el tipo de operaci'#243'n que desea asignar' + end + object combo: TLabel + Left = 81 + Top = 45 + Width = 24 + Height = 13 + Alignment = taRightJustify + Caption = 'Tipo:' + end + object Panel1: TPanel + Left = 0 + Top = 83 + Width = 424 + Height = 41 + Align = alBottom + TabOrder = 0 + DesignSize = ( + 424 + 41) + object bAceptar: TButton + Left = 260 + Top = 8 + Width = 75 + Height = 25 + Anchors = [akTop, akRight] + Caption = 'Aceptar' + ModalResult = 1 + TabOrder = 0 + end + object bCancelar: TButton + Left = 341 + Top = 8 + Width = 75 + Height = 25 + Anchors = [akTop, akRight] + Caption = 'Cancelar' + ModalResult = 2 + TabOrder = 1 + end + end + object cbTipo: TcxLookupComboBox + Left = 111 + Top = 42 + Properties.DropDownListStyle = lsFixedList + Properties.ImmediatePost = True + Properties.KeyFieldNames = 'ID' + Properties.ListColumns = < + item + FieldName = 'DESCRIPCION' + end> + Properties.ListOptions.ShowHeader = False + Properties.ListOptions.SyncMode = True + Properties.ListSource = dsTipo + Style.LookAndFeel.Kind = lfOffice11 + StyleDisabled.LookAndFeel.Kind = lfOffice11 + StyleFocused.LookAndFeel.Kind = lfOffice11 + StyleHot.LookAndFeel.Kind = lfOffice11 + TabOrder = 1 + Width = 266 + end + object dsTipo: TDADataSource + Left = 24 + Top = 64 + end +end diff --git a/Source/Modulos/Tipos de operacion compra/Views/uEditorElegirTipoOperacionCompra.pas b/Source/Modulos/Tipos de operacion compra/Views/uEditorElegirTipoOperacionCompra.pas new file mode 100644 index 0000000..3ff4c97 --- /dev/null +++ b/Source/Modulos/Tipos de operacion compra/Views/uEditorElegirTipoOperacionCompra.pas @@ -0,0 +1,70 @@ +unit uEditorElegirTipoOperacionCompra; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, cxControls, cxContainer, cxEdit, cxTextEdit, cxMaskEdit, + cxDropDownEdit, cxCalendar, ExtCtrls, uEditorBasico, uIEditorElegirTipoOperacionCompra, + cxGraphics, DB, uDAInterfaces, uDADataTable, cxDBEdit, uTiposOperacionCompraController, + cxLookupEdit, cxDBLookupEdit, cxDBLookupComboBox, uBizTiposOperacionCompra; + +type + TfEditorElegirTipoOperacionCompra = class(TfEditorBasico, IEditorElegirTipoOperacionCompra) + Label1: TLabel; + bAceptar: TButton; + bCancelar: TButton; + combo: TLabel; + Panel1: TPanel; + cbTipo: TcxLookupComboBox; + dsTipo: TDADataSource; + procedure FormShow(Sender: TObject); + procedure FormDestroy(Sender: TObject); + + private + FController: ITiposOperacionCompraController; + FListaTiposOperacionCompra : IBizTiposOperacionCompra; + FTipoOperacionCompra: Variant; + function GetTipoOperacionCompra: Variant; + procedure SetTipoOperacionCompra(const Value: Variant); + + public + property TipoOperacionCompra: Variant Read GetTipoOperacionCompra write SetTipoOperacionCompra; + + end; + +implementation +{$R *.dfm} + +uses uFactuGES_App; + +procedure TfEditorElegirTipoOperacionCompra.FormDestroy(Sender: TObject); +begin + FController := Nil; + FListaTiposOperacionCompra := Nil; +end; + +procedure TfEditorElegirTipoOperacionCompra.FormShow(Sender: TObject); +var + + i : integer; + +begin + FController := TTiposOperacionCompraController.Create; + FListaTiposOperacionCompra := FController.BuscarTodos; + FListaTiposOperacionCompra.DataTable.Active := True; + dsTipo.DataTable := FListaTiposOperacionCompra.DataTable; + cbTipo.ItemIndex := 0; +end; + +function TfEditorElegirTipoOperacionCompra.GetTipoOperacionCompra: Variant; +begin + Result := FListaTiposOperacionCompra.ID; +end; + +procedure TfEditorElegirTipoOperacionCompra.SetTipoOperacionCompra(const Value: variant); +begin +// cbTarifa.ItemIndex := cbTarifa.Properties.Items.IndexOfName(Value); +end; + +end. diff --git a/Source/Modulos/Tipos de operacion compra/Views/uTiposOperacionCompraViewRegister.pas b/Source/Modulos/Tipos de operacion compra/Views/uTiposOperacionCompraViewRegister.pas new file mode 100644 index 0000000..6f7565a --- /dev/null +++ b/Source/Modulos/Tipos de operacion compra/Views/uTiposOperacionCompraViewRegister.pas @@ -0,0 +1,26 @@ +unit uTiposOperacionCompraViewRegister; + +interface + +procedure RegisterViews; +procedure UnregisterViews; + +implementation + +uses + uEditorRegistryUtils, uEditorTiposOperacionCompra, uEditorElegirTipoOperacionCompra; + +procedure RegisterViews; +begin + EditorRegistry.RegisterClass(TfEditorElegirTipoOperacionCompra, 'EditorElegirTipoOperacionCompra'); + EditorRegistry.RegisterClass(TfEditorTiposOperacionCompra, 'EditorTiposOperacionCompra'); +end; + +procedure UnregisterViews; +begin + EditorRegistry.UnRegisterClass(TfEditorTiposOperacionCompra); + EditorRegistry.UnRegisterClass(TfEditorElegirTipoOperacionCompra); +end; + + +end.