From 4ffd628d1e2ed0851da3b339d04a8f267cf8eb1f Mon Sep 17 00:00:00 2001
From: roberto <rblanco@rodax-software.com>
Date: Fri, 10 Feb 2023 17:42:47 +0000
Subject: [PATCH] Version 4.3.2 - Comerciales, instaladores y pasar facturas de
 cliente de abeto a facturas de proveedor a graden

git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@177 93f398dd-4eb6-7a46-baf6-13f46f578da2
---
 .../Delegaciones/Model/uBizDelegaciones.pas   | 140 +++++
 .../Plugin/Delegaciones_plugin.dpk            | Bin 0 -> 732 bytes
 .../Plugin/Delegaciones_plugin.dproj          | 546 ++++++++++++++++++
 .../Plugin/uPluginDelegaciones.dfm            | 121 ++++
 .../Plugin/uPluginDelegaciones.pas            |  80 +++
 .../Plugin/uPluginUnidadesMedida.dfm          | 108 ++++
 .../Plugin/uPluginUnidadesMedida.pas          |  73 +++
 7 files changed, 1068 insertions(+)
 create mode 100644 Source/Modulos/Delegaciones/Model/uBizDelegaciones.pas
 create mode 100644 Source/Modulos/Delegaciones/Plugin/Delegaciones_plugin.dpk
 create mode 100644 Source/Modulos/Delegaciones/Plugin/Delegaciones_plugin.dproj
 create mode 100644 Source/Modulos/Delegaciones/Plugin/uPluginDelegaciones.dfm
 create mode 100644 Source/Modulos/Delegaciones/Plugin/uPluginDelegaciones.pas
 create mode 100644 Source/Modulos/Delegaciones/Plugin/uPluginUnidadesMedida.dfm
 create mode 100644 Source/Modulos/Delegaciones/Plugin/uPluginUnidadesMedida.pas

diff --git a/Source/Modulos/Delegaciones/Model/uBizDelegaciones.pas b/Source/Modulos/Delegaciones/Model/uBizDelegaciones.pas
new file mode 100644
index 0000000..1b6566c
--- /dev/null
+++ b/Source/Modulos/Delegaciones/Model/uBizDelegaciones.pas
@@ -0,0 +1,140 @@
+{
+===============================================================================
+  Copyright (©) 2007. Rodax Software.
+===============================================================================
+  Los contenidos de este fichero son propiedad de Rodax Software titular del
+  copyright. Este fichero sólo podrá ser copiado, distribuido y utilizado,
+  en su totalidad o en parte, con el permiso escrito de Rodax Software, o de
+  acuerdo con los términos y condiciones establecidas en el acuerdo/contrato
+  bajo el que se suministra.
+  -----------------------------------------------------------------------------
+  Web:  www.rodax-software.com
+===============================================================================
+  Fecha primera versión: 
+  Versión actual: 1.0.0
+  Fecha versión actual: 
+===============================================================================
+  Modificaciones:
+
+    Fecha         Comentarios
+    ---------------------------------------------------------------------------
+===============================================================================
+}
+
+unit uBizDelegaciones;
+
+interface
+
+uses
+  uDAInterfaces, uDADataTable, uDBSelectionListUtils, schDelegacionesClient_Intf;
+
+const
+  BIZ_CLIENT_DELEGACION = 'Client.Delegacion';
+
+type
+  IBizDelegacion = interface(IDelegaciones)
+  ['{1893F6FF-0E1D-40F0-A39B-CBA3C2C18710}']
+    function EsNuevo : Boolean;
+    
+  	// Descomentar esto si hay clases detalles
+    // procedure SetDetalles(AValue : IBizDetalles);
+    // function GetDetalles : IBizDetalles;
+    // property Detalles : IBizDetalles read GetDetalles write SetDetalles;  
+  end;
+
+  TBizDelegacion = class(TDelegacionesDataTableRules, IBizDelegacion, ISeleccionable)
+  protected
+  	FSeleccionableInterface : ISeleccionable;
+  	
+  	// Descomentar esto si hay clases detalles
+    // FDetalles : IBizDetalles;
+    // FDetallesLink : TDADataSource;
+    // procedure SetDetalles(AValue : IBizDetalles);
+    // function GetDetalles : IBizDetalles;
+    procedure OnNewRecord(Sender: TDADataTable); override;
+    procedure AfterOpen(Sender: TDADataTable); override; 
+  public
+    procedure IniciarValoresDelegacionNuevo;
+    function EsNuevo : Boolean;
+    constructor Create(aDataTable: TDADataTable); override;
+    destructor Destroy; override;
+
+    property SeleccionableInterface : ISeleccionable 
+    					read FSeleccionableInterface
+    					write FSeleccionableInterface 
+    					implements ISeleccionable;
+    
+  	// Descomentar esto si hay clases detalles
+    // property Detalles : IBizDetalles read GetDetalles write SetDetalles;    
+  end;
+
+implementation
+
+{ TBizDelegacion }
+
+uses
+  SysUtils, uDataTableUtils;
+
+// Descomentar esto si hay clases detalles
+// function TBizDelegacion.GetDetalles: IBizDetalles;
+// begin
+//   Result := FDetalles;
+// end;
+
+// Descomentar esto si hay clases detalles
+// procedure TBizDelegacion.SetDetalles(AValue: IBizDetalles);
+// begin
+//   FDetalles := AValue;
+//   EnlazarMaestroDetalle(FDetallesLink, FDetalles);
+// end;
+
+procedure TBizDelegacion.AfterOpen(Sender: TDADataTable);
+begin
+  inherited;
+  DataTable.Sort([fld_DelegacionesDESCRIPCION], [sdAscending]);
+end;
+
+constructor TBizDelegacion.Create(aDataTable: TDADataTable);
+begin
+  inherited;
+  // Descomentar esto si hay clases detalles
+  // FDetallesLink := TDADataSource.Create(NIL);
+  // FDetallesLink.DataTable := aDataTable;  
+  
+	FSeleccionableInterface := TSeleccionable.Create(aDataTable);  
+end;
+
+destructor TBizDelegacion.Destroy;
+begin
+	// Descomentar esto si hay clases detalles
+  // FDetalles := NIL;
+  // FreeAndNIL(FDetallesLink);	
+  
+  FSeleccionableInterface := NIL;
+  inherited;
+end;
+
+function TBizDelegacion.EsNuevo: Boolean;
+begin
+  Result := (ID < 0);
+end;
+
+procedure TBizDelegacion.IniciarValoresDelegacionNuevo;
+begin
+  //
+end;
+
+procedure TBizDelegacion.OnNewRecord(Sender: TDADataTable);
+begin
+  inherited;
+  ID := GetRecNo; // -1, -2, -3...
+  IniciarValoresDelegacionNuevo;
+end;
+
+initialization
+  RegisterDataTableRules(BIZ_CLIENT_Delegacion, TBizDelegacion);
+
+finalization
+
+end.
+
diff --git a/Source/Modulos/Delegaciones/Plugin/Delegaciones_plugin.dpk b/Source/Modulos/Delegaciones/Plugin/Delegaciones_plugin.dpk
new file mode 100644
index 0000000000000000000000000000000000000000..3a6ad173e665af102711c5af5159c0331c02bf0a
GIT binary patch
literal 732
zcmZvaQES^U5Xbjy@ORKdp)f{hU=M>movpKbM3#)Cq)lInaYZom9M4I*htlspTaLYS
znIEj<r@O!YI$c|oKZ>1W+|_PZl-0g*hv&9F?W*Q`7=*#wjb@)0ojbe_F$hW}`!>eL
zpthu>VM=-uDJ5_Nf~h3&fMc{yNhWH_z(<RcBR5-V;c=pr<w{%R94yRC#rGJmW^JKj
z5N4Z2N?b6R8mp=QPh~1cd4()x^aO*|Ic<YF5$a(&<Lp<1Oz~fa32KxvUf#n%f}A$Q
zalWgu5U&yq8TMw*dUl&52hKH`zi<P3bT}O}Ht#``MTi8(eMjvqk&#5X&I~;vTl%I_
z1}R2hkllQ}8@@Bm1;u2eH3@#M4uj79I#vDSg#lyTvHmiwujRPr{*et|J@e&K`>m)r
zI3J{Inqz3&x+;rfKN>UpFfFf@`|Ybf&~o1#yM0}|?t1U%{>9aPyoRizYP`YI=;%^~
aRSmoS4_~y!;g-E!7rc8_*Ssvk;L{&=_|vlh

literal 0
HcmV?d00001

diff --git a/Source/Modulos/Delegaciones/Plugin/Delegaciones_plugin.dproj b/Source/Modulos/Delegaciones/Plugin/Delegaciones_plugin.dproj
new file mode 100644
index 0000000..4e6205a
--- /dev/null
+++ b/Source/Modulos/Delegaciones/Plugin/Delegaciones_plugin.dproj
@@ -0,0 +1,546 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{139324a2-0c57-446d-aebd-edd9578e22fd}</ProjectGuid>
+    <MainSource>Delegaciones_plugin.dpk</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>..\..\..\..\Output\Debug\Cliente\Delegaciones_plugin.bpl</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_DcuOutput>.\</DCC_DcuOutput>
+    <DCC_ObjOutput>.\</DCC_ObjOutput>
+    <DCC_HppOutput>.\</DCC_HppOutput>
+    <DCC_BplOutput>..\..\..\..\Output\Release\Cliente</DCC_BplOutput>
+    <DCC_DcpOutput>..\..\Lib</DCC_DcpOutput>
+    <DCC_UnitSearchPath>..\..\..\Lib;..\..\Lib</DCC_UnitSearchPath>
+    <DCC_ResourcePath>..\..\..\Lib;..\..\Lib</DCC_ResourcePath>
+    <DCC_ObjPath>..\..\..\Lib;..\..\Lib</DCC_ObjPath>
+    <DCC_IncludePath>..\..\..\Lib;..\..\Lib</DCC_IncludePath>
+    <DCC_Define>RELEASE</DCC_Define>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DcuOutput>.\</DCC_DcuOutput>
+    <DCC_ObjOutput>.\</DCC_ObjOutput>
+    <DCC_HppOutput>.\</DCC_HppOutput>
+    <DCC_BplOutput>..\..\..\..\Output\Debug\Cliente</DCC_BplOutput>
+    <DCC_DcpOutput>..\..\Lib</DCC_DcpOutput>
+    <DCC_UnitSearchPath>..\..\..\Lib;..\..\Lib</DCC_UnitSearchPath>
+    <DCC_ResourcePath>..\..\..\Lib;..\..\Lib</DCC_ResourcePath>
+    <DCC_ObjPath>..\..\..\Lib;..\..\Lib</DCC_ObjPath>
+    <DCC_IncludePath>..\..\..\Lib;..\..\Lib</DCC_IncludePath>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>Package</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">Delegaciones_plugin.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+  <ItemGroup>
+    <DelphiCompile Include="Delegaciones_plugin.dpk">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="ApplicationBase.dcp" />
+    <DCCReference Include="Base.dcp" />
+    <DCCReference Include="Delegaciones_controller.dcp" />
+    <DCCReference Include="Delegaciones_model.dcp" />
+    <DCCReference Include="Delegaciones_view.dcp" />
+    <DCCReference Include="GUIBase.dcp" />
+    <DCCReference Include="PluginSDK_D11R.dcp" />
+    <DCCReference Include="rtl.dcp" />
+    <DCCReference Include="uPluginDelegaciones.pas">
+      <Form>PluginDelegaciones</Form>
+    </DCCReference>
+    <DCCReference Include="vcl.dcp" />
+  </ItemGroup>
+</Project>
+<!-- EurekaLog First Line
+[Exception Log]
+EurekaLog Version=6006
+Activate=0
+Activate Handle=1
+Save Log File=1
+Foreground Tab=0
+Freeze Activate=0
+Freeze Timeout=60
+SMTP From=eurekalog@email.com
+SMTP Host=
+SMTP Port=25
+SMTP UserID=
+SMTP Password=
+Append to Log=0
+TerminateBtn Operation=2
+Errors Number=32
+Errors Terminate=3
+Email Address=
+Email Object=
+Email Send Options=0
+Output Path=
+Encrypt Password=
+AutoCloseDialogSecs=0
+WebSendMode=0
+SupportULR=
+HTMLLayout Count=15
+HTMLLine0="%3Chtml%3E"
+HTMLLine1="  %3Chead%3E"
+HTMLLine2="  %3C/head%3E"
+HTMLLine3="  %3Cbody TopMargin=10 LeftMargin=10%3E"
+HTMLLine4="    %3Ctable width="100%%" border="0"%3E"
+HTMLLine5="      %3Ctr%3E"
+HTMLLine6="        %3Ctd nowrap%3E"
+HTMLLine7="          %3Cfont face="Lucida Console, Courier" size="2"%3E"
+HTMLLine8="            %3C%%HTML_TAG%%%3E"
+HTMLLine9="          %3C/font%3E"
+HTMLLine10="        %3C/td%3E"
+HTMLLine11="      %3C/tr%3E"
+HTMLLine12="    %3C/table%3E"
+HTMLLine13="  %3C/body%3E"
+HTMLLine14="%3C/html%3E"
+AutoCrashOperation=2
+AutoCrashNumber=10
+AutoCrashMinutes=1
+WebURL=
+WebUserID=
+WebPassword=
+WebPort=0
+AttachedFiles=
+ProxyURL=
+ProxyUser=
+ProxyPassword=
+ProxyPort=8080
+TrakerUser=
+TrakerPassword=
+TrakerAssignTo=
+TrakerProject=
+TrakerCategory=
+TrakerTrialID=
+ZipPassword=
+PreBuildEvent=
+PostSuccessfulBuildEvent=
+PostFailureBuildEvent=
+ExceptionDialogType=2
+Count=0
+EMail Message Line Count=0
+loNoDuplicateErrors=0
+loAppendReproduceText=0
+loDeleteLogAtVersionChange=0
+loAddComputerNameInLogFileName=0
+loSaveModulesAndProcessesSections=1
+loSaveAssemblerAndCPUSections=1
+soAppStartDate=1
+soAppName=1
+soAppVersionNumber=1
+soAppParameters=1
+soAppCompilationDate=1
+soAppUpTime=1
+soExcDate=1
+soExcAddress=1
+soExcModuleName=1
+soExcModuleVersion=1
+soExcType=1
+soExcMessage=1
+soExcID=1
+soExcCount=1
+soExcStatus=1
+soExcNote=1
+soUserID=1
+soUserName=1
+soUserEmail=1
+soUserPrivileges=1
+soUserCompany=1
+soActCtlsFormClass=1
+soActCtlsFormText=1
+soActCtlsControlClass=1
+soActCtlsControlText=1
+soCmpName=1
+soCmpTotalMemory=1
+soCmpFreeMemory=1
+soCmpTotalDisk=1
+soCmpFreeDisk=1
+soCmpSysUpTime=1
+soCmpProcessor=1
+soCmpDisplayMode=1
+soCmpDisplayDPI=1
+soCmpVideoCard=1
+soCmpPrinter=1
+soOSType=1
+soOSBuildN=1
+soOSUpdate=1
+soOSLanguage=1
+soOSCharset=1
+soNetIP=1
+soNetSubmask=1
+soNetGateway=1
+soNetDNS1=1
+soNetDNS2=1
+soNetDHCP=1
+soCustomData=1
+sndShowSendDialog=1
+sndShowSuccessFailureMsg=0
+sndSendEntireLog=0
+sndSendXMLLogCopy=0
+sndSendScreenshot=1
+sndUseOnlyActiveWindow=0
+sndSendLastHTMLPage=1
+sndSendInSeparatedThread=0
+sndAddDateInFileName=0
+sndAddComputerNameInFileName=0
+edoSendErrorReportChecked=1
+edoAttachScreenshotChecked=1
+edoShowCopyToClipOption=1
+edoShowDetailsButton=1
+edoShowInDetailedMode=0
+edoShowInTopMostMode=0
+edoUseEurekaLogLookAndFeel=0
+edoShowSendErrorReportOption=1
+edoShowAttachScreenshotOption=1
+edoShowCustomButton=0
+csoShowDLLs=1
+csoShowBPLs=1
+csoShowBorlandThreads=1
+csoShowWindowsThreads=1
+csoDoNotStoreProcNames=0
+boPauseBorlandThreads=0
+boDoNotPauseMainThread=0
+boPauseWindowsThreads=0
+boUseMainModuleOptions=1
+boCopyLogInCaseOfError=1
+boSaveCompressedCopyInCaseOfError=0
+boHandleSafeCallExceptions=1
+boCallRTLExceptionEvent=0
+boCatchHandledExceptions=0
+loCatchLeaks=0
+loGroupsSonLeaks=1
+loHideBorlandLeaks=1
+loFreeAllLeaks=1
+loCatchLeaksExceptions=1
+cfoReduceFileSize=1
+cfoCheckFileCorruption=0
+Count mtInformationMsgCaption=1
+mtInformationMsgCaption0="Information."
+Count mtQuestionMsgCaption=1
+mtQuestionMsgCaption0="Question."
+Count mtErrorMsgCaption=1
+mtErrorMsgCaption0="Error."
+Count mtDialog_Caption=1
+mtDialog_Caption0="Error occurred"
+Count mtDialog_ErrorMsgCaption=2
+mtDialog_ErrorMsgCaption0="An error has occurred during program execution."
+mtDialog_ErrorMsgCaption1="Please read the following information for further details."
+Count mtDialog_GeneralCaption=1
+mtDialog_GeneralCaption0="General"
+Count mtDialog_GeneralHeader=1
+mtDialog_GeneralHeader0="General Information"
+Count mtDialog_CallStackCaption=1
+mtDialog_CallStackCaption0="Call Stack"
+Count mtDialog_CallStackHeader=1
+mtDialog_CallStackHeader0="Call Stack Information"
+Count mtDialog_ModulesCaption=1
+mtDialog_ModulesCaption0="Modules"
+Count mtDialog_ModulesHeader=1
+mtDialog_ModulesHeader0="Modules Information"
+Count mtDialog_ProcessesCaption=1
+mtDialog_ProcessesCaption0="Processes"
+Count mtDialog_ProcessesHeader=1
+mtDialog_ProcessesHeader0="Processes Information"
+Count mtDialog_AsmCaption=1
+mtDialog_AsmCaption0="Assembler"
+Count mtDialog_AsmHeader=1
+mtDialog_AsmHeader0="Assembler Information"
+Count mtDialog_CPUCaption=1
+mtDialog_CPUCaption0="CPU"
+Count mtDialog_CPUHeader=1
+mtDialog_CPUHeader0="CPU Information"
+Count mtDialog_OKButtonCaption=1
+mtDialog_OKButtonCaption0="%26OK"
+Count mtDialog_TerminateButtonCaption=1
+mtDialog_TerminateButtonCaption0="%26Terminate"
+Count mtDialog_RestartButtonCaption=1
+mtDialog_RestartButtonCaption0="%26Restart"
+Count mtDialog_DetailsButtonCaption=1
+mtDialog_DetailsButtonCaption0="%26Details"
+Count mtDialog_CustomButtonCaption=1
+mtDialog_CustomButtonCaption0="%26Help"
+Count mtDialog_SendMessage=1
+mtDialog_SendMessage0="%26Send this error via Internet"
+Count mtDialog_ScreenshotMessage=1
+mtDialog_ScreenshotMessage0="%26Attach a Screenshot image"
+Count mtDialog_CopyMessage=1
+mtDialog_CopyMessage0="%26Copy to Clipboard"
+Count mtDialog_SupportMessage=1
+mtDialog_SupportMessage0="Go to the Support Page"
+Count mtMSDialog_ErrorMsgCaption=1
+mtMSDialog_ErrorMsgCaption0="The application has encountered a problem. We are sorry for the inconvenience."
+Count mtMSDialog_RestartCaption=1
+mtMSDialog_RestartCaption0="Restart application."
+Count mtMSDialog_TerminateCaption=1
+mtMSDialog_TerminateCaption0="Terminate application."
+Count mtMSDialog_PleaseCaption=1
+mtMSDialog_PleaseCaption0="Please tell us about this problem."
+Count mtMSDialog_DescriptionCaption=1
+mtMSDialog_DescriptionCaption0="We have created an error report that you can send to us. We will treat this report as confidential and anonymous."
+Count mtMSDialog_SeeDetailsCaption=1
+mtMSDialog_SeeDetailsCaption0="To see what data the error report contains,"
+Count mtMSDialog_SeeClickCaption=1
+mtMSDialog_SeeClickCaption0="click here."
+Count mtMSDialog_HowToReproduceCaption=1
+mtMSDialog_HowToReproduceCaption0="What were you doing when the problem happended (optional)?"
+Count mtMSDialog_EmailCaption=1
+mtMSDialog_EmailCaption0="Email address (optional):"
+Count mtMSDialog_SendButtonCaption=1
+mtMSDialog_SendButtonCaption0="%26Send Error Report"
+Count mtMSDialog_NoSendButtonCaption=1
+mtMSDialog_NoSendButtonCaption0="%26Don't Send"
+Count mtLog_AppHeader=1
+mtLog_AppHeader0="Application"
+Count mtLog_AppStartDate=1
+mtLog_AppStartDate0="Start Date"
+Count mtLog_AppName=1
+mtLog_AppName0="Name/Description"
+Count mtLog_AppVersionNumber=1
+mtLog_AppVersionNumber0="Version Number"
+Count mtLog_AppParameters=1
+mtLog_AppParameters0="Parameters"
+Count mtLog_AppCompilationDate=1
+mtLog_AppCompilationDate0="Compilation Date"
+Count mtLog_AppUpTime=1
+mtLog_AppUpTime0="Up Time"
+Count mtLog_ExcHeader=1
+mtLog_ExcHeader0="Exception"
+Count mtLog_ExcDate=1
+mtLog_ExcDate0="Date"
+Count mtLog_ExcAddress=1
+mtLog_ExcAddress0="Address"
+Count mtLog_ExcModuleName=1
+mtLog_ExcModuleName0="Module Name"
+Count mtLog_ExcModuleVersion=1
+mtLog_ExcModuleVersion0="Module Version"
+Count mtLog_ExcType=1
+mtLog_ExcType0="Type"
+Count mtLog_ExcMessage=1
+mtLog_ExcMessage0="Message"
+Count mtLog_ExcID=1
+mtLog_ExcID0="ID"
+Count mtLog_ExcCount=1
+mtLog_ExcCount0="Count"
+Count mtLog_ExcStatus=1
+mtLog_ExcStatus0="Status"
+Count mtLog_ExcNote=1
+mtLog_ExcNote0="Note"
+Count mtLog_UserHeader=1
+mtLog_UserHeader0="User"
+Count mtLog_UserID=1
+mtLog_UserID0="ID"
+Count mtLog_UserName=1
+mtLog_UserName0="Name"
+Count mtLog_UserEmail=1
+mtLog_UserEmail0="Email"
+Count mtLog_UserCompany=1
+mtLog_UserCompany0="Company"
+Count mtLog_UserPrivileges=1
+mtLog_UserPrivileges0="Privileges"
+Count mtLog_ActCtrlsHeader=1
+mtLog_ActCtrlsHeader0="Active Controls"
+Count mtLog_ActCtrlsFormClass=1
+mtLog_ActCtrlsFormClass0="Form Class"
+Count mtLog_ActCtrlsFormText=1
+mtLog_ActCtrlsFormText0="Form Text"
+Count mtLog_ActCtrlsControlClass=1
+mtLog_ActCtrlsControlClass0="Control Class"
+Count mtLog_ActCtrlsControlText=1
+mtLog_ActCtrlsControlText0="Control Text"
+Count mtLog_CmpHeader=1
+mtLog_CmpHeader0="Computer"
+Count mtLog_CmpName=1
+mtLog_CmpName0="Name"
+Count mtLog_CmpTotalMemory=1
+mtLog_CmpTotalMemory0="Total Memory"
+Count mtLog_CmpFreeMemory=1
+mtLog_CmpFreeMemory0="Free Memory"
+Count mtLog_CmpTotalDisk=1
+mtLog_CmpTotalDisk0="Total Disk"
+Count mtLog_CmpFreeDisk=1
+mtLog_CmpFreeDisk0="Free Disk"
+Count mtLog_CmpSystemUpTime=1
+mtLog_CmpSystemUpTime0="System Up Time"
+Count mtLog_CmpProcessor=1
+mtLog_CmpProcessor0="Processor"
+Count mtLog_CmpDisplayMode=1
+mtLog_CmpDisplayMode0="Display Mode"
+Count mtLog_CmpDisplayDPI=1
+mtLog_CmpDisplayDPI0="Display DPI"
+Count mtLog_CmpVideoCard=1
+mtLog_CmpVideoCard0="Video Card"
+Count mtLog_CmpPrinter=1
+mtLog_CmpPrinter0="Printer"
+Count mtLog_OSHeader=1
+mtLog_OSHeader0="Operating System"
+Count mtLog_OSType=1
+mtLog_OSType0="Type"
+Count mtLog_OSBuildN=1
+mtLog_OSBuildN0="Build #"
+Count mtLog_OSUpdate=1
+mtLog_OSUpdate0="Update"
+Count mtLog_OSLanguage=1
+mtLog_OSLanguage0="Language"
+Count mtLog_OSCharset=1
+mtLog_OSCharset0="Charset"
+Count mtLog_NetHeader=1
+mtLog_NetHeader0="Network"
+Count mtLog_NetIP=1
+mtLog_NetIP0="IP Address"
+Count mtLog_NetSubmask=1
+mtLog_NetSubmask0="Submask"
+Count mtLog_NetGateway=1
+mtLog_NetGateway0="Gateway"
+Count mtLog_NetDNS1=1
+mtLog_NetDNS10="DNS 1"
+Count mtLog_NetDNS2=1
+mtLog_NetDNS20="DNS 2"
+Count mtLog_NetDHCP=1
+mtLog_NetDHCP0="DHCP"
+Count mtLog_CustInfoHeader=1
+mtLog_CustInfoHeader0="Custom Information"
+Count mtCallStack_Address=1
+mtCallStack_Address0="Address"
+Count mtCallStack_Name=1
+mtCallStack_Name0="Module"
+Count mtCallStack_Unit=1
+mtCallStack_Unit0="Unit"
+Count mtCallStack_Class=1
+mtCallStack_Class0="Class"
+Count mtCallStack_Procedure=1
+mtCallStack_Procedure0="Procedure/Method"
+Count mtCallStack_Line=1
+mtCallStack_Line0="Line"
+Count mtCallStack_MainThread=1
+mtCallStack_MainThread0="Main"
+Count mtCallStack_ExceptionThread=1
+mtCallStack_ExceptionThread0="Exception Thread"
+Count mtCallStack_RunningThread=1
+mtCallStack_RunningThread0="Running Thread"
+Count mtCallStack_CallingThread=1
+mtCallStack_CallingThread0="Calling Thread"
+Count mtCallStack_ThreadID=1
+mtCallStack_ThreadID0="ID"
+Count mtCallStack_ThreadPriority=1
+mtCallStack_ThreadPriority0="Priority"
+Count mtCallStack_ThreadClass=1
+mtCallStack_ThreadClass0="Class"
+Count mtCallStack_LeakCaption=1
+mtCallStack_LeakCaption0="Memory Leak"
+Count mtCallStack_LeakData=1
+mtCallStack_LeakData0="Data"
+Count mtCallStack_LeakType=1
+mtCallStack_LeakType0="Type"
+Count mtCallStack_LeakSize=1
+mtCallStack_LeakSize0="Total size"
+Count mtCallStack_LeakCount=1
+mtCallStack_LeakCount0="Count"
+Count mtSendDialog_Caption=1
+mtSendDialog_Caption0="Send."
+Count mtSendDialog_Message=1
+mtSendDialog_Message0="Message"
+Count mtSendDialog_Resolving=1
+mtSendDialog_Resolving0="Resolving DNS..."
+Count mtSendDialog_Login=1
+mtSendDialog_Login0="Login..."
+Count mtSendDialog_Connecting=1
+mtSendDialog_Connecting0="Connecting with server..."
+Count mtSendDialog_Connected=1
+mtSendDialog_Connected0="Connected with server."
+Count mtSendDialog_Sending=1
+mtSendDialog_Sending0="Sending message..."
+Count mtSendDialog_Sent=1
+mtSendDialog_Sent0="Message sent."
+Count mtSendDialog_SelectProject=1
+mtSendDialog_SelectProject0="Select project..."
+Count mtSendDialog_Searching=1
+mtSendDialog_Searching0="Searching..."
+Count mtSendDialog_Modifying=1
+mtSendDialog_Modifying0="Modifying..."
+Count mtSendDialog_Disconnecting=1
+mtSendDialog_Disconnecting0="Disconnecting..."
+Count mtSendDialog_Disconnected=1
+mtSendDialog_Disconnected0="Disconnected."
+Count mtReproduceDialog_Caption=1
+mtReproduceDialog_Caption0="Request"
+Count mtReproduceDialog_Request=1
+mtReproduceDialog_Request0="Please describe the steps to reproduce the error:"
+Count mtReproduceDialog_OKButtonCaption=1
+mtReproduceDialog_OKButtonCaption0="%26OK"
+Count mtModules_Handle=1
+mtModules_Handle0="Handle"
+Count mtModules_Name=1
+mtModules_Name0="Name"
+Count mtModules_Description=1
+mtModules_Description0="Description"
+Count mtModules_Version=1
+mtModules_Version0="Version"
+Count mtModules_Size=1
+mtModules_Size0="Size"
+Count mtModules_LastModified=1
+mtModules_LastModified0="Modified"
+Count mtModules_Path=1
+mtModules_Path0="Path"
+Count mtProcesses_ID=1
+mtProcesses_ID0="ID"
+Count mtProcesses_Name=1
+mtProcesses_Name0="Name"
+Count mtProcesses_Description=1
+mtProcesses_Description0="Description"
+Count mtProcesses_Version=1
+mtProcesses_Version0="Version"
+Count mtProcesses_Memory=1
+mtProcesses_Memory0="Memory"
+Count mtProcesses_Priority=1
+mtProcesses_Priority0="Priority"
+Count mtProcesses_Threads=1
+mtProcesses_Threads0="Threads"
+Count mtProcesses_Path=1
+mtProcesses_Path0="Path"
+Count mtCPU_Registers=1
+mtCPU_Registers0="Registers"
+Count mtCPU_Stack=1
+mtCPU_Stack0="Stack"
+Count mtCPU_MemoryDump=1
+mtCPU_MemoryDump0="Memory Dump"
+Count mtSend_SuccessMsg=1
+mtSend_SuccessMsg0="The message was sent successfully."
+Count mtSend_FailureMsg=1
+mtSend_FailureMsg0="Sorry, sending the message didn't work."
+Count mtSend_BugClosedMsg=2
+mtSend_BugClosedMsg0="These BUG is just closed."
+mtSend_BugClosedMsg1="Contact the program support to obtain an update."
+Count mtSend_UnknownErrorMsg=1
+mtSend_UnknownErrorMsg0="Unknown error."
+Count mtSend_InvalidLoginMsg=1
+mtSend_InvalidLoginMsg0="Invalid login request."
+Count mtSend_InvalidSearchMsg=1
+mtSend_InvalidSearchMsg0="Invalid search request."
+Count mtSend_InvalidSelectionMsg=1
+mtSend_InvalidSelectionMsg0="Invalid selection request."
+Count mtSend_InvalidInsertMsg=1
+mtSend_InvalidInsertMsg0="Invalid insert request."
+Count mtSend_InvalidModifyMsg=1
+mtSend_InvalidModifyMsg0="Invalid modify request."
+Count mtFileCrackedMsg=2
+mtFileCrackedMsg0="This file is cracked."
+mtFileCrackedMsg1="The application will be closed."
+Count mtException_LeakMultiFree=1
+mtException_LeakMultiFree0="Multi Free memory leak."
+Count mtException_LeakMemoryOverrun=1
+mtException_LeakMemoryOverrun0="Memory Overrun leak."
+Count mtException_AntiFreeze=1
+mtException_AntiFreeze0="The application seems to be frozen."
+Count mtInvalidEmailMsg=1
+mtInvalidEmailMsg0="Invalid email."
+TextsCollection=English
+EurekaLog Last Line -->
diff --git a/Source/Modulos/Delegaciones/Plugin/uPluginDelegaciones.dfm b/Source/Modulos/Delegaciones/Plugin/uPluginDelegaciones.dfm
new file mode 100644
index 0000000..23dd485
--- /dev/null
+++ b/Source/Modulos/Delegaciones/Plugin/uPluginDelegaciones.dfm
@@ -0,0 +1,121 @@
+object PluginDelegaciones: TPluginDelegaciones
+  OldCreateOrder = True
+  DefaultAction = actDelegaciones
+  Description = 'Delegaciones'
+  ModuleMenu = MainMenu
+  ModuleName = 'Delegaciones'
+  SmallImages = SmallImages
+  LargeImages = LargeImages
+  Author = 'Rodax Software S.L.'
+  Version = '1.0.0'
+  Height = 234
+  Width = 459
+  object LargeImages: TPngImageList
+    Height = 24
+    Width = 24
+    PngImages = <
+      item
+        PngImage.Data = {
+          89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D
+          F80000000970485973000017120000171201679FD252000001D24944415478DA
+          B5956B4BC2501CC6FF7E8F8AA27B9888B64A142F195D28858C40A8177D833E49
+          EFA2975174854834334A2CCD4B6933D310428AF0859FA0B034746BE7D44A5D4E
+          9BED81C360CFD9F383FFB39D49689A06312529056C1F45FE8D363F3D24F915C0
+          187F0E2B162966D1F88AA49E5982D8C9EAFF004AC30B14051B362FAC6D1FD606
+          ACDB7C9CB0458BBEAA373BAEC2902DC7456D000A60C372F90264DFF2907D7D87
+          F370A20C54E9990C04EC1E05EA0358A734DF0FBF64F3F09CCD41EA298DF755F3
+          26754AD83F0ED507308D106501F9F702A43319BCAF9A37AA9683DD1D16DEC182
+          590B0566CE7BAE20C743E1A803E7D9B5781DE8887E70F948F13AD028A570E28F
+          8AD7C1B0BC0F3CA198F00ECCC6413C67972FCAF15038F2BCE1B8781D28FABAC0
+          4FDEF103AC93046C3AFC823A90F574C0E54D921F303736003BCCD728A483DE8E
+          362013F7FC008B51810FAD83D32BCE9CF543323CE74034C9F15038F262C9143F
+          C06C90E370211DB4B73443E2FE811F30A59581DD1311D4416B531324538FFC80
+          09B5149C5E525007750146559FEFB33B78CB99B352DA8DBD3833864AA170A49A
+          001DF11942A1BF1445E3C3ADF8B528FAE7CFC5DE437B4A5513A05174E213B111
+          F1029657361A0A67C5023E005FB10AFEE73DE6CD0000000049454E44AE426082}
+        Name = 'PngImage1'
+        Background = clWindow
+      end>
+    Left = 232
+    Top = 16
+    Bitmap = {}
+  end
+  object ModuleActionList: TActionList
+    Images = SmallImages
+    Left = 40
+    Top = 72
+    object actDelegaciones: TAction
+      Category = 'Datos'
+      Caption = 'Delegaciones'
+      ImageIndex = 0
+      OnExecute = actDelegacionesExecute
+      OnUpdate = actDelegacionesUpdate
+    end
+  end
+  object MainMenu: TMainMenu
+    Images = SmallImages
+    Left = 40
+    Top = 16
+    object Ventas1: TMenuItem
+      Caption = 'Datos'
+      object Delegaciones1: TMenuItem
+        Tag = 313
+        Action = actDelegaciones
+      end
+    end
+  end
+  object SmallImages: TPngImageList
+    PngImages = <
+      item
+        PngImage.Data = {
+          89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+          610000000970485973000017120000171201679FD2520000008D4944415478DA
+          63FCFFFF3F03084C59BC03C22001E4C47A3032221B6066A0C570EDF63D14455A
+          AA4A58C5324A3B18CEED98866A000F3707434290035CE1A9CB8FC09A6162203E
+          0880C426CD5A85DF0090E26FDF7F313C78F2042C06E38300480CAB01A35E18F5
+          025DBDE064A9CF1090588D69809F8B39C3D5DB2F188801D56D93310D98B77413
+          519A6100640000C16C35F0D0FF08AC0000000049454E44AE426082}
+        Name = 'PngImage1'
+        Background = clWindow
+      end>
+    PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled]
+    Left = 308
+    Top = 16
+    Bitmap = {}
+  end
+  object ExtraImages: TPngImageList
+    Height = 28
+    Width = 28
+    PngImages = <
+      item
+        PngImage.Data = {
+          89504E470D0A1A0A0000000D494844520000001C0000001C0806000000720DDF
+          940000000970485973000017120000171201679FD2520000025A4944415478DA
+          BDD6DB6E12511406E0C583A8156821580907E98116A16945522351D31B63627C
+          0ADFC14BBDF0C2C4C4182F142B56A216B12D25544AA41C4A07EC5151FB0815B5
+          15B6B3568A69DAEDCC26BB61259399CC9A992F847FCD1E03630C3A598683606C
+          BE2AA4B7EE39B8E79DC39A083A0C9A603860D3059B4DA66E4D6832B67FCC0E1D
+          37691FBC7E1B0AF1FB62E0A3E83C17BB79C54FD893589ADB0F8F7A087B9D5C82
+          7B0F22622062B7AE05E8DCDE9F06D47FEE42FD176E7B90CE29745EAB3FEE77C3
+          DB54BE7DF0F0C376EABB50ACACFF03FFD70FF95C104F17DA036F847D471EB6F3
+          E3376CD4BED2B55AFDE0B013120BC5F6C0AB17FA8F3C0C7F516D7B9BAED5EA8F
+          791D30932989835AA199080D5228A2892CB78F1826766E71B973A11919B04332
+          5BEE5C68FC7D6721F571451F7C95ACB0CB7E1B3C9E4A498566F85C2F2C2C2962
+          E0259F95865A26345ED719C8142AFAE0D49CC2C6551043F1F4CD076E2870A8B1
+          8F73C62BC4F04D942D7D1203434316C26442E3B15B21575ED5075FCEAEB08B5E
+          0B44A63352A171F75A20AFACE983D199320BAAE0647C512A344E5B3714AB1B62
+          E0D8400F0DB54C68EC5633945737F5C117EF97D9687F0FAD67B1D91C371438D4
+          181A9C335E21867D657D4B0C1CE9331326131A9BF9345437BFE8839389120B78
+          CCB478CA84C662EC82B5CF3531F0BCDB448BA74C68BABB4ED15E177CFEAEC87C
+          2E130DB54C684C274FC0D6B7EF62E090D3487F3AAE67BCC2A1C63ECE19AF106B
+          A87D8475C148BCC0BC0E23AD676CFF2BACD1FA12535F57A2C75842E0B3E93C1B
+          54415C3C8FA384C03B771F1E0BD62A4DB013F51786FF4905F2C97E8000000000
+          49454E44AE426082}
+        Name = 'PngImage1'
+        Background = clWindow
+      end>
+    Left = 232
+    Top = 80
+    Bitmap = {}
+  end
+end
diff --git a/Source/Modulos/Delegaciones/Plugin/uPluginDelegaciones.pas b/Source/Modulos/Delegaciones/Plugin/uPluginDelegaciones.pas
new file mode 100644
index 0000000..aad0e96
--- /dev/null
+++ b/Source/Modulos/Delegaciones/Plugin/uPluginDelegaciones.pas
@@ -0,0 +1,80 @@
+unit uPluginDelegaciones;
+
+interface
+
+uses
+  uModuleController, uInterfaces, uHostManager, Menus, Classes, ActnList,
+  ImgList, Controls, PngImageList;
+
+type
+  IMCDelegaciones = interface(IInterface)
+  ['{A9B7BC9D-BB45-43D3-9A8A-2423F0BE24D8}']
+  end;
+
+  TPluginDelegaciones = class(TModuleController, IMCDelegaciones)
+    actDelegaciones: TAction;
+    ExtraImages: TPngImageList;
+    LargeImages: TPngImageList;
+    MainMenu: TMainMenu;
+    ModuleActionList: TActionList;
+    SmallImages: TPngImageList;
+    Ventas1: TMenuItem;
+    Delegaciones1: TMenuItem;
+    procedure actDelegacionesExecute(Sender: TObject);
+    procedure actDelegacionesUpdate(Sender: TObject);
+  public
+    constructor Create(AOwner: TComponent); override;
+    destructor Destroy; override;
+  end;
+
+implementation
+
+{$R *.dfm}
+
+uses
+  Forms, Dialogs, SysUtils, uFactuGES_App,
+  uDelegacionesController, uBizDelegaciones, uDelegacionesViewRegister;
+
+function GetModule : TModuleController;
+begin
+  Result := TPluginDelegaciones.Create(NIL);
+end;
+
+exports
+  GetModule name GET_MODULE_FUNC;
+
+procedure TPluginDelegaciones.actDelegacionesExecute(Sender: TObject);
+var
+  ADelegacionesController : IDelegacionesController;
+  ADelegaciones : IBizDelegacion;
+begin
+  ADelegacionesController := TDelegacionesController.Create;
+  ADelegaciones := (ADelegacionesController.BuscarTodos as IBizDelegacion);
+  ADelegacionesController.VerTodos(ADelegaciones);
+end;
+
+procedure TPluginDelegaciones.actDelegacionesUpdate(Sender: TObject);
+begin
+  (Sender as TAction).Enabled := AppFactuGES.EmpresaActiva.ID = CTE_EMPRESA_ABETO;
+  (Sender as TAction).Visible := AppFactuGES.EmpresaActiva.ID = CTE_EMPRESA_ABETO;
+end;
+
+constructor TPluginDelegaciones.Create(AOwner: TComponent);
+begin
+  inherited;
+  uDelegacionesViewRegister.RegisterViews;
+end;
+
+destructor TPluginDelegaciones.Destroy;
+begin
+  uDelegacionesViewRegister.UnregisterViews;
+  inherited;
+end;
+
+initialization
+  RegisterModuleClass(TPluginDelegaciones);
+
+finalization
+  UnRegisterModuleClass(TPluginDelegaciones);
+
+end.
diff --git a/Source/Modulos/Delegaciones/Plugin/uPluginUnidadesMedida.dfm b/Source/Modulos/Delegaciones/Plugin/uPluginUnidadesMedida.dfm
new file mode 100644
index 0000000..814bee0
--- /dev/null
+++ b/Source/Modulos/Delegaciones/Plugin/uPluginUnidadesMedida.dfm
@@ -0,0 +1,108 @@
+object PluginUnidadesMedida: TPluginUnidadesMedida
+  OldCreateOrder = True
+  DefaultAction = actUnidadesMedida
+  Description = 'Tipos de IVA'
+  ModuleMenu = MainMenu
+  ModuleName = 'Tipos de IVA'
+  SmallImages = SmallImages
+  LargeImages = LargeImages
+  Author = 'Rodax Software S.L.'
+  Version = '1.0.0'
+  Height = 234
+  Width = 459
+  object LargeImages: TPngImageList
+    Height = 24
+    Width = 24
+    PngImages = <
+      item
+        PngImage.Data = {
+          89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D
+          F80000000970485973000017120000171201679FD2520000011E4944415478DA
+          6364A010ACCA60F80FA2C366303062936724CD384CC3FD2AD63030B3F132AC6F
+          72C76A09D916800C5FF7218261715F22C3D7EBD31998B86418762C9C82610959
+          1620BB7C612DD0E529397039744B48B600D97098CBD101B2252459802D58D0C1
+          BF6F4F18AE5DDEC0F0E40624E289B600D9E597B7B933A868E7E0349C8307C2BF
+          7386481F10132C30C3279D8860287359C1F0E30B03D817042D202558602EEFDA
+          13C11024B0827010E14B2DB80C87B99C602453122C049329A5C182AC8E119BE1
+          A4A6166C2EC76A01B58205AB05D40C160C0BA8915A705A408B60C1EA03B7D000
+          AA050BCE38F088CFC16B38292EC7B000DD124A8205A705C8C14549B0E0B50066
+          898A09F9C142D0029825321A94198ED702982594180E0200B0F2324A4753EBA6
+          0000000049454E44AE426082}
+        Name = 'PngImage0'
+        Background = clWindow
+      end>
+    Left = 232
+    Top = 16
+    Bitmap = {}
+  end
+  object ModuleActionList: TActionList
+    Images = SmallImages
+    Left = 40
+    Top = 72
+    object actUnidadesMedida: TAction
+      Category = 'Datos'
+      Caption = 'Unidades de medida'
+      ImageIndex = 0
+      OnExecute = actUnidadesMedidaExecute
+    end
+  end
+  object MainMenu: TMainMenu
+    Images = SmallImages
+    Left = 40
+    Top = 16
+    object Ventas1: TMenuItem
+      Caption = 'Datos'
+      object UnidadesMedida1: TMenuItem
+        Tag = 313
+        Action = actUnidadesMedida
+      end
+    end
+  end
+  object SmallImages: TPngImageList
+    PngImages = <
+      item
+        PngImage.Data = {
+          89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+          610000000970485973000017120000171201679FD252000000C14944415478DA
+          63642001ACCA60F81F36838111598C9158CD111111FF17F72532AC6F72674036
+          842803403607D6ED645858EBCE101215C0B06BF506B821040D80D9FCF7D76786
+          1F7797303071C930FCFBF6046E082331365FDEE6CEA0A41800D7EC51FD82615A
+          CA09862D5BF0B80097CDF7EE6F00CB8334D76DC0E102743F63B319A4196B1810
+          6B33D65820C6CFC89A510C20D566140348F133860130CDA4DA8CE102B750D26C
+          C608039821C4DA8C3316544C88D78C351D340530FC275633080000DE09BBE2B0
+          1D07420000000049454E44AE426082}
+        Name = 'PngImage0'
+        Background = clWindow
+      end>
+    PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled]
+    Left = 308
+    Top = 16
+    Bitmap = {}
+  end
+  object ExtraImages: TPngImageList
+    Height = 28
+    Width = 28
+    PngImages = <
+      item
+        PngImage.Data = {
+          89504E470D0A1A0A0000000D494844520000001C0000001C0806000000720DDF
+          940000000970485973000017120000171201679FD252000001514944415478DA
+          6364A0225895C1F03F6C0603233E358CC41A468C6581952B19D6B78733E0B394
+          2A16822C5BF7218261715F2298BFBEC91DA7A5145B08F31903AB00C3E56DEE0C
+          BA5E3B19BE5E9FCEB06BF506AC96526421B2653000B28C894B06CCDEB1700A86
+          A5645B881E8CE896C100BAA5645988ECB385B5EE0CF1CD3BB15A0602574E4E61
+          787283016E29C916120A4674CB387820EC3B672096926421B1C1886CD98F2F0C
+          701AE453A22DC4951A09F90C04B2E6583014199C20DE87E4062308C07C46741C
+          92138C5D7B2218CA5C56605846D042525323AE604456C7488C65940623410BA9
+          911A892E4BA9951A71851C232ECBA8198C582DA4766AC46B212D52234E0BE911
+          8CD87D58B79328CB884D8D44C5A15B68004D8211AB85304B3DE273A81E8C382D
+          44B79492D448B485304B653418A8168C042D8459AA62429D6024CA42649F52CB
+          328216C22CA59665200000B1F5433DEC7F85AD0000000049454E44AE426082}
+        Name = 'PngImage0'
+        Background = clWindow
+      end>
+    Left = 232
+    Top = 80
+    Bitmap = {}
+  end
+end
diff --git a/Source/Modulos/Delegaciones/Plugin/uPluginUnidadesMedida.pas b/Source/Modulos/Delegaciones/Plugin/uPluginUnidadesMedida.pas
new file mode 100644
index 0000000..dbea8e5
--- /dev/null
+++ b/Source/Modulos/Delegaciones/Plugin/uPluginUnidadesMedida.pas
@@ -0,0 +1,73 @@
+unit uPluginUnidadesMedida;
+
+interface
+
+uses
+  uModuleController, uInterfaces, uHostManager, Menus, Classes, ActnList,
+  ImgList, Controls, PngImageList;
+
+type
+  IMCUnidadesMedida = interface(IInterface)
+    ['{386EDE31-46C9-4EA1-9F1D-423739372E1F}']
+  end;
+
+  TPluginUnidadesMedida = class(TModuleController, IMCUnidadesMedida)
+    actUnidadesMedida: TAction;
+    ExtraImages: TPngImageList;
+    LargeImages: TPngImageList;
+    MainMenu: TMainMenu;
+    ModuleActionList: TActionList;
+    SmallImages: TPngImageList;
+    Ventas1: TMenuItem;
+    UnidadesMedida1: TMenuItem;
+    procedure actUnidadesMedidaExecute(Sender: TObject);
+  public
+    constructor Create(AOwner: TComponent); override;
+    destructor Destroy; override;
+  end;
+
+implementation
+
+{$R *.dfm}
+
+uses
+  Forms, Dialogs, SysUtils,
+  uUnidadesMedidaController, uBizUnidadesMedida, uUnidadesMedidaViewRegister;
+
+function GetModule : TModuleController;
+begin
+  Result := TPluginUnidadesMedida.Create(NIL);
+end;
+
+exports
+  GetModule name GET_MODULE_FUNC;
+
+procedure TPluginUnidadesMedida.actUnidadesMedidaExecute(Sender: TObject);
+var
+  AUnidadesMedidaController : IUnidadesMedidaController;
+  AUnidadesMedida : IBizUnidadMedida;
+begin
+  AUnidadesMedidaController := TUnidadesMedidaController.Create;
+  AUnidadesMedida := (AUnidadesMedidaController.BuscarTodos as IBizUnidadMedida);
+  AUnidadesMedidaController.VerTodos(AUnidadesMedida);
+end;
+
+constructor TPluginUnidadesMedida.Create(AOwner: TComponent);
+begin
+  inherited;
+  uUnidadesMedidaViewRegister.RegisterViews;
+end;
+
+destructor TPluginUnidadesMedida.Destroy;
+begin
+  uUnidadesMedidaViewRegister.UnregisterViews;
+  inherited;
+end;
+
+initialization
+  RegisterModuleClass(TPluginUnidadesMedida);
+
+finalization
+  UnRegisterModuleClass(TPluginUnidadesMedida);
+
+end.