From f1a79bda20de31e184fba553e6786f43019768ca Mon Sep 17 00:00:00 2001 From: roberto Date: Sat, 1 Dec 2007 12:52:24 +0000 Subject: [PATCH] git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@24 f4e31baf-9722-1c47-927c-6f952f962d4b --- .../Ejercicios/Plugin/Ejercicios_plugin.dpk | 43 ++ .../Ejercicios/Plugin/Ejercicios_plugin.dproj | 583 ++++++++++++++++++ .../Ejercicios/Plugin/Ejercicios_plugin.rc | 22 + .../Ejercicios/Plugin/Ejercicios_plugin.res | Bin 0 -> 5028 bytes .../Ejercicios/Plugin/uPluginEjercicios.dfm | 81 +++ .../Ejercicios/Plugin/uPluginEjercicios.pas | 74 +++ 6 files changed, 803 insertions(+) create mode 100644 Source/ApplicationBase/Ejercicios/Plugin/Ejercicios_plugin.dpk create mode 100644 Source/ApplicationBase/Ejercicios/Plugin/Ejercicios_plugin.dproj create mode 100644 Source/ApplicationBase/Ejercicios/Plugin/Ejercicios_plugin.rc create mode 100644 Source/ApplicationBase/Ejercicios/Plugin/Ejercicios_plugin.res create mode 100644 Source/ApplicationBase/Ejercicios/Plugin/uPluginEjercicios.dfm create mode 100644 Source/ApplicationBase/Ejercicios/Plugin/uPluginEjercicios.pas diff --git a/Source/ApplicationBase/Ejercicios/Plugin/Ejercicios_plugin.dpk b/Source/ApplicationBase/Ejercicios/Plugin/Ejercicios_plugin.dpk new file mode 100644 index 00000000..8c1d576e --- /dev/null +++ b/Source/ApplicationBase/Ejercicios/Plugin/Ejercicios_plugin.dpk @@ -0,0 +1,43 @@ +package Ejercicios_plugin; + +{$R *.res} +{$ALIGN 8} +{$ASSERTIONS ON} +{$BOOLEVAL OFF} +{$DEBUGINFO ON} +{$EXTENDEDSYNTAX ON} +{$IMPORTEDDATA ON} +{$IOCHECKS ON} +{$LOCALSYMBOLS ON} +{$LONGSTRINGS ON} +{$OPENSTRINGS ON} +{$OPTIMIZATION ON} +{$OVERFLOWCHECKS OFF} +{$RANGECHECKS OFF} +{$REFERENCEINFO ON} +{$SAFEDIVIDE OFF} +{$STACKFRAMES OFF} +{$TYPEDADDRESS OFF} +{$VARSTRINGCHECKS ON} +{$WRITEABLECONST OFF} +{$MINENUMSIZE 1} +{$IMAGEBASE $400000} +{$IMPLICITBUILD ON} +{$DEFINE DEBUG} + +requires + rtl, + vcl, + Base, + GUIBase, + ApplicationBase, + PluginSDK_D10R, + PngComponentsD10, + PNG_D10, + vclactnband, + vclx; + +contains + uPluginEjercicios in 'uPluginEjercicios.pas'; + +end. diff --git a/Source/ApplicationBase/Ejercicios/Plugin/Ejercicios_plugin.dproj b/Source/ApplicationBase/Ejercicios/Plugin/Ejercicios_plugin.dproj new file mode 100644 index 00000000..40d39742 --- /dev/null +++ b/Source/ApplicationBase/Ejercicios/Plugin/Ejercicios_plugin.dproj @@ -0,0 +1,583 @@ + + + {034ed8d0-77f5-4edb-93cb-a4c96de2e4af} + Ejercicios_plugin.dpk + Debug + AnyCPU + DCC32 + C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\Ejercicios_plugin.bpl + + + 7.0 + False + False + 0 + DEBUG;RELEASE + + + 7.0 + DEBUG + + + Delphi.Personality + Package + + + False + True + False + + + True + False + False + + + True + False + 1 + 0 + 0 + 0 + False + False + False + False + False + 3082 + 1252 + + + + + 1.0.0.0 + + + + + + 1.0.0.0 + + + + + + + + + + + + + ExpressPrinting System by Developer Express Inc. + Microsoft Office 2000 Sample Automation Server Wrapper Components + Microsoft Office XP Sample Automation Server Wrapper Components + + + Ejercicios_plugin.dpk + + + + + + + MainSource + + + + + + + + + + + + + + + + + diff --git a/Source/ApplicationBase/Ejercicios/Plugin/Ejercicios_plugin.rc b/Source/ApplicationBase/Ejercicios/Plugin/Ejercicios_plugin.rc new file mode 100644 index 00000000..153736af --- /dev/null +++ b/Source/ApplicationBase/Ejercicios/Plugin/Ejercicios_plugin.rc @@ -0,0 +1,22 @@ +1 VERSIONINFO +FILEVERSION 1,0,0,0 +PRODUCTVERSION 1,0,0,0 +FILEFLAGSMASK 0x3FL +FILEFLAGS 0x00L +FILEOS 0x40004L +FILETYPE 0x1L +FILESUBTYPE 0x0L +BEGIN + BLOCK "StringFileInfo" + BEGIN + BLOCK "0C0A04E4" + BEGIN + VALUE "FileVersion", "1.0.0.0\0" + VALUE "ProductVersion", "1.0.0.0\0" + END + END + BLOCK "VarFileInfo" + BEGIN + VALUE "Translation", 0x0C0A, 1252 + END +END diff --git a/Source/ApplicationBase/Ejercicios/Plugin/Ejercicios_plugin.res b/Source/ApplicationBase/Ejercicios/Plugin/Ejercicios_plugin.res new file mode 100644 index 0000000000000000000000000000000000000000..02236de8db669bbe3315cfec9671db4bcf8913dc GIT binary patch literal 5028 zcmbW5&x;&Y5XWni1tkRCgZEiPMD`#nRcWtPt_oH5Yzu$VV-wb1Bwk_-XFg2H+pSN=U zyka(dZfonp#SD5!jcwWcvJG#kp*8>anb&hWI5@DjY24FJ`|-&Wn^$uqCj8E%Jsr>a z(f=18FcLdGW67gkv_9X9SKG|36^E%gpYEy6iCd_cw7Wj~iaqH`jCsjRp5)Tjjm3D> z0$yNKhb0agb9}Iy*6di=$H_r$wE8prvehh4CJk(k3R41_1_tIpwah8HE0zJ2j_A8qJC;h zPS-&^`8?-X2glUhT>Qz`_tI1oCl0I;m#I0|PPJD&x?6D9=#RXC$36y!sH@L4V9JUQ zO~GN_lzo;~$4gKBX=lH9n~Y`sLpL>Q25j^&9{X3YYiX$(S>$ceRjZ9(sJ1i3RjRX$ zJu%I-9czh^DgT^)7wf?X1I?kkwO%pV4}9frWWqiC{m|pl-!`rHskb%S2V!cllLNls zE@6uUea$64TFH%f9$nE+PL0j$(Csl@jKP6E`|sEbVb9)6dbzX;O}gsJTj}n*BLwN2Tb~Kb^L{5h^^(TFzVy_mCyAq;GlLVY)tF3_WiN; zt9xq60Zw2BHhBxa;yCwUat@+RjSJ72e5G}Da6ls%zW<5a6%IO|%y~`w-r(SEy&sHI zL+1cCHjDjtOmT-3ZMb?3gym;Z+``j8sjb>;9XPzh1Ge(To)-Pdp&Ip5b5maQQy<>x z;4$(~Uhbs_4A-Xo;KtoTef7S9KQ-lxGhB4nh09EwmCN_M=+8a!eWK2a1qWTe_u|K$ z>+h*>83&sj-d=;xdarjSeloa(>HLWs?{nM%q2JF2IMkyqd$b@%^>5HxIH;ZY;n(Z; z`YV@X*6eMVNk4OW=Xi}Y7w2AH*r}hhAN!-V;LE^FW1cqe-%{<%KE%1>{(@uVA|LvF z|J6pX*Qr*1#WC+WyTI~!tifW$(x@{fY0n3w~h7eA|@stGrQv zano30;rWe#Pb24Q4SWw4<$gm$!H@c@ue~+n9nIRryEg0(+$zOst?!S#pU1kqlj4xy z?W|eF_rC5r|L#bP*?9l?`BR^oVDRJqA{V;Q?%brE8m88~7veY6SckRvIty{HpUhO;SN#DLEo$afXFl8=h$ZPu>i@PdBM=dt#yd=JphyT;Fi zIQqF4Zk}DR{Jtr;c?QAeNiOT~8RIN^y{oa_S@$Jhp*ytayUTk9_Q0WuHno^O%=2Eo zjKgr|XJEi(>X)&p@p#YD9yx%u`Y?vAdl!-udqj-iGgab^KEC$~j?P2=j!d8D-E*uG zP@i!u@lN!|@m<2%KqGbIPNWY$KVy5_|JC4MkPW+e z&io&azTZ-w4PUlv<9{JH&t1~k4ZCi&K0mV0)w=2kwc}k;o9EZfKmQ?L7$cFZqN!(7 z79-yEk6(P?x;?UocE|SZwq23GYqykn-@dl{ihArZyHd3)g}Zi19ANaOvTbPezTLA2 zwx{?Xq zvHQZlyTagY$NyOKw|y4255yC-x9uCPj3;=GabGB6&%V;Sd-4zMTQSKeVy~4PR1MtZ zO>e9~)aWzC-dDEorTx(gLsKo$y&SWuepUNrCv(HOCGxmqW^eg!hl+i1zpKb;y)Rt+ GWAk6yB6aNm literal 0 HcmV?d00001 diff --git a/Source/ApplicationBase/Ejercicios/Plugin/uPluginEjercicios.dfm b/Source/ApplicationBase/Ejercicios/Plugin/uPluginEjercicios.dfm new file mode 100644 index 00000000..92379e83 --- /dev/null +++ b/Source/ApplicationBase/Ejercicios/Plugin/uPluginEjercicios.dfm @@ -0,0 +1,81 @@ +object PluginEjercicios: TPluginEjercicios + OldCreateOrder = True + DefaultAction = actEjercicios + Description = 'Ejercicios' + ModuleMenu = MainMenu + ModuleName = 'Ejercicios' + 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 actEjercicios: TAction + Category = 'Ejercicios' + Caption = 'Ejercicios' + ImageIndex = 0 + OnExecute = actEjerciciosExecute + end + end + object MainMenu: TMainMenu + Images = LargeImages + Left = 40 + Top = 16 + object Ventas1: TMenuItem + Caption = 'Contabilidad' + object N1: TMenuItem + Tag = 18990 + Caption = '-' + end + object Ejercicios1: TMenuItem + Tag = 19001 + Action = actEjercicios + end + end + end + object SmallImages: TPngImageList + PngImages = < + item + PngImage.Data = { + 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF + 61000001A34944415478DA9D922177E3300CC7655636C3B20596CD702C86C7E6 + B141C342EF1BE42318167AECD81916BA6CD0638582852A0BCBA46CCDDAF46E77 + EFF4E2A7D8F2FF2759B6724FD9354BF30B09810EF5B16C43866FACAC7DA67DD5 + E364655A15020ECEDD42AD47C839EE4AE9EC5CE492EBB2CF9DFC676BCA83772D + 6C133CEFE14D395F066B0C032AA4346AD5B9905D20C49BD255350196D4BEF40D + C48A47657F44073D05CEDC9AFBF0585F63B61D1379AF7BF2B702C67D8509B0F6 + 4329E52D1DE8CE2CF557B6B93144CAF13C04767702CCED62B12433587FB99141 + 4E1C03C2B70011B72EC02E479843CEAD6E60D04BEED9C1825B47A54E6273CF15 + F73CE9095226D00B891000FB66C1733E2F71CCACCC08EA36043165755141D334 + 2CE6EEAFE429F0552F3468CD5E370CE05842F04E4FE2DFF6A05979CE04633524 + 15F08707024484E0F9EA36C880ACAE7A70DE87931D7B0190BCD0B1326F11E256 + 20FF0098C454D92324167A5320163B95FF47C0518EC02219F4E9D3AB01C780F4 + 3780910A46D167763E3FF508B95A59BA105F037E76038EC28FE6C9B58DCDEC3F + E273F115E07FEC1D6B02010E884AA1F00000000049454E44AE426082} + Name = 'PngImage0' + 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/ApplicationBase/Ejercicios/Plugin/uPluginEjercicios.pas b/Source/ApplicationBase/Ejercicios/Plugin/uPluginEjercicios.pas new file mode 100644 index 00000000..5e2d1198 --- /dev/null +++ b/Source/ApplicationBase/Ejercicios/Plugin/uPluginEjercicios.pas @@ -0,0 +1,74 @@ +unit uPluginEjercicios; + +interface + +uses + uModuleController, uInterfaces, uHostManager, Menus, Classes, ActnList, + ImgList, Controls, PngImageList; + +type + IMCEjercicios = interface(IInterface) + ['{255E8D6B-282A-48CC-9807-E49C7D31FD2D}'] + end; + + TPluginEjercicios = class(TModuleController, IMCEjercicios) + actEjercicios: TAction; + ExtraImages: TPngImageList; + LargeImages: TPngImageList; + MainMenu: TMainMenu; + ModuleActionList: TActionList; + SmallImages: TPngImageList; + Ventas1: TMenuItem; + Ejercicios1: TMenuItem; + N1: TMenuItem; + procedure actEjerciciosExecute(Sender: TObject); + public + constructor Create(AOwner: TComponent); override; + destructor Destroy; override; + end; + +implementation + +{$R *.dfm} + +uses + Forms, Dialogs, SysUtils, + uEjerciciosController, uBizEjercicios, uEjerciciosViewRegister; + +function GetModule : TModuleController; +begin + Result := TPluginEjercicios.Create(NIL); +end; + +exports + GetModule name GET_MODULE_FUNC; + +procedure TPluginEjercicios.actEjerciciosExecute(Sender: TObject); +var + AEjerciciosController : IEjerciciosController; + AEjercicios : IBizEjercicio; +begin + AEjerciciosController := TEjerciciosController.Create; + AEjercicios := (AEjerciciosController.BuscarTodos as IBizEjercicio); + AEjerciciosController.VerTodos(AEjercicios); +end; + +constructor TPluginEjercicios.Create(AOwner: TComponent); +begin + inherited; + uEjerciciosViewRegister.RegisterViews; +end; + +destructor TPluginEjercicios.Destroy; +begin + uEjerciciosViewRegister.UnregisterViews; + inherited; +end; + +initialization + RegisterModuleClass(TPluginEjercicios); + +finalization + UnRegisterModuleClass(TPluginEjercicios); + +end.