git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/branches/D2007-DA5@35 0c75b7a4-871f-7646-8a2f-f78d34cc349f

Source/ApplicationBase/ApplicationBase.bdsproj

@@ -0,0 +1,697 @@
+<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+  <PersonalityInfo>
+    <Option>
+      <Option Name="Personality">Delphi.Personality</Option>
+      <Option Name="ProjectType"></Option>
+      <Option Name="Version">1.0</Option>
+      <Option Name="GUID">{14A25028-EC1A-430C-ADE3-13C264E9BAC2}</Option>
+    </Option>
+  </PersonalityInfo>
+  <Delphi.Personality>
+    <Source>
+      <Source Name="MainSource">ApplicationBase.dpk</Source>
+    </Source>
+    <FileVersion>
+      <FileVersion Name="Version">7.0</FileVersion>
+    </FileVersion>
+    <Compiler>
+      <Compiler Name="A">8</Compiler>
+      <Compiler Name="B">0</Compiler>
+      <Compiler Name="C">1</Compiler>
+      <Compiler Name="D">1</Compiler>
+      <Compiler Name="E">0</Compiler>
+      <Compiler Name="F">0</Compiler>
+      <Compiler Name="G">1</Compiler>
+      <Compiler Name="H">1</Compiler>
+      <Compiler Name="I">1</Compiler>
+      <Compiler Name="J">0</Compiler>
+      <Compiler Name="K">0</Compiler>
+      <Compiler Name="L">1</Compiler>
+      <Compiler Name="M">0</Compiler>
+      <Compiler Name="N">1</Compiler>
+      <Compiler Name="O">1</Compiler>
+      <Compiler Name="P">1</Compiler>
+      <Compiler Name="Q">0</Compiler>
+      <Compiler Name="R">0</Compiler>
+      <Compiler Name="S">0</Compiler>
+      <Compiler Name="T">0</Compiler>
+      <Compiler Name="U">0</Compiler>
+      <Compiler Name="V">1</Compiler>
+      <Compiler Name="W">0</Compiler>
+      <Compiler Name="X">1</Compiler>
+      <Compiler Name="Y">1</Compiler>
+      <Compiler Name="Z">1</Compiler>
+      <Compiler Name="ShowHints">True</Compiler>
+      <Compiler Name="ShowWarnings">True</Compiler>
+      <Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+      <Compiler Name="NamespacePrefix"></Compiler>
+      <Compiler Name="GenerateDocumentation">False</Compiler>
+      <Compiler Name="DefaultNamespace"></Compiler>
+      <Compiler Name="SymbolDeprecated">True</Compiler>
+      <Compiler Name="SymbolLibrary">True</Compiler>
+      <Compiler Name="SymbolPlatform">True</Compiler>
+      <Compiler Name="SymbolExperimental">True</Compiler>
+      <Compiler Name="UnitLibrary">True</Compiler>
+      <Compiler Name="UnitPlatform">True</Compiler>
+      <Compiler Name="UnitDeprecated">True</Compiler>
+      <Compiler Name="UnitExperimental">True</Compiler>
+      <Compiler Name="HResultCompat">True</Compiler>
+      <Compiler Name="HidingMember">True</Compiler>
+      <Compiler Name="HiddenVirtual">True</Compiler>
+      <Compiler Name="Garbage">True</Compiler>
+      <Compiler Name="BoundsError">True</Compiler>
+      <Compiler Name="ZeroNilCompat">True</Compiler>
+      <Compiler Name="StringConstTruncated">True</Compiler>
+      <Compiler Name="ForLoopVarVarPar">True</Compiler>
+      <Compiler Name="TypedConstVarPar">True</Compiler>
+      <Compiler Name="AsgToTypedConst">True</Compiler>
+      <Compiler Name="CaseLabelRange">True</Compiler>
+      <Compiler Name="ForVariable">True</Compiler>
+      <Compiler Name="ConstructingAbstract">True</Compiler>
+      <Compiler Name="ComparisonFalse">True</Compiler>
+      <Compiler Name="ComparisonTrue">True</Compiler>
+      <Compiler Name="ComparingSignedUnsigned">True</Compiler>
+      <Compiler Name="CombiningSignedUnsigned">True</Compiler>
+      <Compiler Name="UnsupportedConstruct">True</Compiler>
+      <Compiler Name="FileOpen">True</Compiler>
+      <Compiler Name="FileOpenUnitSrc">True</Compiler>
+      <Compiler Name="BadGlobalSymbol">True</Compiler>
+      <Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+      <Compiler Name="InvalidDirective">True</Compiler>
+      <Compiler Name="PackageNoLink">True</Compiler>
+      <Compiler Name="PackageThreadVar">True</Compiler>
+      <Compiler Name="ImplicitImport">True</Compiler>
+      <Compiler Name="HPPEMITIgnored">True</Compiler>
+      <Compiler Name="NoRetVal">True</Compiler>
+      <Compiler Name="UseBeforeDef">True</Compiler>
+      <Compiler Name="ForLoopVarUndef">True</Compiler>
+      <Compiler Name="UnitNameMismatch">True</Compiler>
+      <Compiler Name="NoCFGFileFound">True</Compiler>
+      <Compiler Name="ImplicitVariants">True</Compiler>
+      <Compiler Name="UnicodeToLocale">True</Compiler>
+      <Compiler Name="LocaleToUnicode">True</Compiler>
+      <Compiler Name="ImagebaseMultiple">True</Compiler>
+      <Compiler Name="SuspiciousTypecast">True</Compiler>
+      <Compiler Name="PrivatePropAccessor">True</Compiler>
+      <Compiler Name="UnsafeType">False</Compiler>
+      <Compiler Name="UnsafeCode">False</Compiler>
+      <Compiler Name="UnsafeCast">False</Compiler>
+      <Compiler Name="OptionTruncated">True</Compiler>
+      <Compiler Name="WideCharReduced">True</Compiler>
+      <Compiler Name="DuplicatesIgnored">True</Compiler>
+      <Compiler Name="UnitInitSeq">True</Compiler>
+      <Compiler Name="LocalPInvoke">True</Compiler>
+      <Compiler Name="MessageDirective">True</Compiler>
+      <Compiler Name="TypeInfoImplicitlyAdded">True</Compiler>
+      <Compiler Name="XMLWhitespaceNotAllowed">True</Compiler>
+      <Compiler Name="XMLUnknownEntity">True</Compiler>
+      <Compiler Name="XMLInvalidNameStart">True</Compiler>
+      <Compiler Name="XMLInvalidName">True</Compiler>
+      <Compiler Name="XMLExpectedCharacter">True</Compiler>
+      <Compiler Name="XMLCRefNoResolve">True</Compiler>
+      <Compiler Name="XMLNoParm">True</Compiler>
+      <Compiler Name="XMLNoMatchingParm">True</Compiler>
+      <Compiler Name="CodePage"></Compiler>
+    </Compiler>
+    <Linker>
+      <Linker Name="MapFile">0</Linker>
+      <Linker Name="OutputObjs">0</Linker>
+      <Linker Name="GenerateHpps">False</Linker>
+      <Linker Name="ConsoleApp">1</Linker>
+      <Linker Name="DebugInfo">False</Linker>
+      <Linker Name="RemoteSymbols">False</Linker>
+      <Linker Name="GenerateDRC">False</Linker>
+      <Linker Name="MinStackSize">16384</Linker>
+      <Linker Name="MaxStackSize">1048576</Linker>
+      <Linker Name="ImageBase">4194304</Linker>
+      <Linker Name="ExeDescription"></Linker>
+    </Linker>
+    <Directories>
+      <Directories Name="OutputDir"></Directories>
+      <Directories Name="UnitOutputDir">.\</Directories>
+      <Directories Name="PackageDLLOutputDir">..\..\..\..\Output\Debug\Cliente</Directories>
+      <Directories Name="PackageDCPOutputDir">..\Lib</Directories>
+      <Directories Name="SearchPath">..\Lib</Directories>
+      <Directories Name="Packages"></Directories>
+      <Directories Name="Conditionals"></Directories>
+      <Directories Name="DebugSourceDirs"></Directories>
+      <Directories Name="UsePackages">False</Directories>
+    </Directories>
+    <Parameters>
+      <Parameters Name="RunParams"></Parameters>
+      <Parameters Name="HostApplication"></Parameters>
+      <Parameters Name="Launcher"></Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="DebugCWD"></Parameters>
+      <Parameters Name="Debug Symbols Search Path"></Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <Signing>
+      <Signing Name="SignAssembly">False</Signing>
+    </Signing>
+    <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>
+    <Excluded_Packages>
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      <Excluded_Packages Name="$(BDS)\Bin\dclintraweb_90_100.bpl">VCL for the Web Design Package for CodeGear RAD Studio</Excluded_Packages>
+      <Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages>
+      <Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages>
+      <Excluded_Packages Name="$(BDS)\bin\dclofficexp100.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
+      <Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
+      <Excluded_Packages Name="$(BDS)\bin\bcboffice2k100.bpl">CodeGear C++Builder Office 2000 Servers Package</Excluded_Packages>
+      <Excluded_Packages Name="$(BDS)\bin\bcbofficexp100.bpl">CodeGear C++Builder Office XP Servers Package</Excluded_Packages>
+    </Excluded_Packages>
+    <buildevents/>
+  </Delphi.Personality>
+</BorlandProject>
+
+<!-- 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=0
+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 -->

Source/ApplicationBase/ApplicationBase.cfg

@@ -0,0 +1,40 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W-
+-$X+
+-$YD
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-N0".\"
+-LE"..\..\..\..\Output\Debug\Cliente"
+-LN"..\Lib"
+-U"..\Lib"
+-O"..\Lib"
+-I"..\Lib"
+-R"..\Lib"

Source/ApplicationBase/ApplicationBase.dpk

@@ -0,0 +1,86 @@
+package ApplicationBase;
+
+{$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,
+  dbrtl,
+  Base,
+  GUIBase,
+  pckUCDataConnector,
+  pckUserControl_RT,
+  JvJansD11R,
+  cxLibraryD10,
+  dxThemeD10,
+  cxEditorsD10,
+  cxDataD10,
+  vcljpg,
+  vcldb,
+  PNG_D10,
+  PngComponentsD10,
+  vclactnband,
+  vclx,
+  JvCoreD11R,
+  Jcl,
+  JclVcl,
+  JvSystemD11R,
+  JvMMD11R,
+  JvStdCtrlsD11R,
+  JvCtrlsD11R;
+
+contains
+  uFactuGES_App in 'uFactuGES_App.pas',
+  uIDataModuleUsuarios in 'Usuarios\Model\Data\uIDataModuleUsuarios.pas',
+  uDataModuleUsuarios in 'Usuarios\Data\uDataModuleUsuarios.pas',
+  uUCROConn in 'Usuarios\Data\uUCROConn.pas',
+  uUsuariosController in 'Usuarios\Controller\uUsuariosController.pas',
+  uBizEmpresasDatosBancarios in 'Empresas\Model\uBizEmpresasDatosBancarios.pas',
+  schEmpresasClient_Intf in 'Empresas\Model\schEmpresasClient_Intf.pas',
+  schEmpresasServer_Intf in 'Empresas\Model\schEmpresasServer_Intf.pas',
+  uBizEmpresas in 'Empresas\Model\uBizEmpresas.pas',
+  uIDataModuleEmpresas in 'Empresas\Model\Data\uIDataModuleEmpresas.pas',
+  uDataModuleEmpresas in 'Empresas\Data\uDataModuleEmpresas.pas',
+  uEmpresasController in 'Empresas\Controller\uEmpresasController.pas',
+  uDatosBancariosEmpresaController in 'Empresas\Controller\uDatosBancariosEmpresaController.pas',
+  uIEditorEmpresas in 'Empresas\Controller\View\uIEditorEmpresas.pas',
+  uIEditorDatosBancarioEmpresa in 'Empresas\Controller\View\uIEditorDatosBancarioEmpresa.pas',
+  uIEditorEmpresa in 'Empresas\Controller\View\uIEditorEmpresa.pas',
+  uViewEmpresa in 'Empresas\Views\uViewEmpresa.pas',
+  uEditorDatosBancariosEmpresa in 'Empresas\Views\uEditorDatosBancariosEmpresa.pas',
+  uEditorEmpresa in 'Empresas\Views\uEditorEmpresa.pas',
+  uEmpresasViewRegister in 'Empresas\Views\uEmpresasViewRegister.pas',
+  uViewDatosBancarios in 'Empresas\Views\uViewDatosBancarios.pas',
+  uCambiarPassword in 'Usuarios\Data\uCambiarPassword.pas',
+  uLoginForm in 'Usuarios\Data\uLoginForm.pas',
+  uUsuarios in 'Usuarios\Model\uUsuarios.pas',
+  schUsuariosServer_Intf in 'Usuarios\Model\schUsuariosServer_Intf.pas',
+  schUsuariosClient_Intf in 'Usuarios\Model\schUsuariosClient_Intf.pas',
+  uIEditorLogin in 'Usuarios\Controller\View\uIEditorLogin.pas',
+  uEditorLogin in 'Usuarios\Views\uEditorLogin.pas',
+  uUsuariosViewRegister in 'Usuarios\Views\uUsuariosViewRegister.pas';
+
+end.

Source/ApplicationBase/ApplicationBase.dproj

@@ -0,0 +1,597 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{14a25028-ec1a-430c-ade3-13c264e9bac2}</ProjectGuid>
+    <MainSource>ApplicationBase.dpk</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>..\..\Output\Debug\Cliente\ApplicationBase.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</DCC_UnitSearchPath>
+    <DCC_ResourcePath>..\Lib</DCC_ResourcePath>
+    <DCC_ObjPath>..\Lib</DCC_ObjPath>
+    <DCC_IncludePath>..\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</DCC_UnitSearchPath>
+    <DCC_ResourcePath>..\Lib</DCC_ResourcePath>
+    <DCC_ObjPath>..\Lib</DCC_ObjPath>
+    <DCC_IncludePath>..\Lib</DCC_IncludePath>
+    <DCC_Define>DEBUG</DCC_Define>
+  </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">True</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><Excluded_Packages>
+      <Excluded_Packages Name="$(BDS)\Bin\dclintraweb_90_100.bpl">VCL for the Web Design Package for CodeGear RAD Studio</Excluded_Packages>
+      <Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages>
+      <Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages>
+      <Excluded_Packages Name="$(BDS)\bin\dclofficexp100.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
+      <Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
+      <Excluded_Packages Name="$(BDS)\bin\bcboffice2k100.bpl">CodeGear C++Builder Office 2000 Servers Package</Excluded_Packages>
+      <Excluded_Packages Name="$(BDS)\bin\bcbofficexp100.bpl">CodeGear C++Builder Office XP Servers Package</Excluded_Packages>
+    </Excluded_Packages><Source><Source Name="MainSource">ApplicationBase.dpk</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+  <ItemGroup>
+    <DelphiCompile Include="ApplicationBase.dpk">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="$(SystemRoot)\Fonts\Base.dcp" />
+    <DCCReference Include="$(SystemRoot)\Fonts\cxDataD10.dcp" />
+    <DCCReference Include="$(SystemRoot)\Fonts\cxEditorsD10.dcp" />
+    <DCCReference Include="$(SystemRoot)\Fonts\cxLibraryD10.dcp" />
+    <DCCReference Include="$(SystemRoot)\Fonts\dbrtl.dcp" />
+    <DCCReference Include="$(SystemRoot)\Fonts\dxThemeD10.dcp" />
+    <DCCReference Include="$(SystemRoot)\Fonts\GUIBase.dcp" />
+    <DCCReference Include="$(SystemRoot)\Fonts\Jcl.dcp" />
+    <DCCReference Include="$(SystemRoot)\Fonts\JclVcl.dcp" />
+    <DCCReference Include="$(SystemRoot)\Fonts\JvCoreD11R.dcp" />
+    <DCCReference Include="$(SystemRoot)\Fonts\JvCtrlsD11R.dcp" />
+    <DCCReference Include="$(SystemRoot)\Fonts\JvJansD11R.dcp" />
+    <DCCReference Include="$(SystemRoot)\Fonts\JvMMD11R.dcp" />
+    <DCCReference Include="$(SystemRoot)\Fonts\JvStdCtrlsD11R.dcp" />
+    <DCCReference Include="$(SystemRoot)\Fonts\JvSystemD11R.dcp" />
+    <DCCReference Include="$(SystemRoot)\Fonts\pckUCDataConnector.dcp" />
+    <DCCReference Include="$(SystemRoot)\Fonts\pckUserControl_RT.dcp" />
+    <DCCReference Include="$(SystemRoot)\Fonts\PngComponentsD10.dcp" />
+    <DCCReference Include="$(SystemRoot)\Fonts\PNG_D10.dcp" />
+    <DCCReference Include="$(SystemRoot)\Fonts\rtl.dcp" />
+    <DCCReference Include="$(SystemRoot)\Fonts\vcl.dcp" />
+    <DCCReference Include="$(SystemRoot)\Fonts\vclactnband.dcp" />
+    <DCCReference Include="$(SystemRoot)\Fonts\vcldb.dcp" />
+    <DCCReference Include="$(SystemRoot)\Fonts\vcljpg.dcp" />
+    <DCCReference Include="$(SystemRoot)\Fonts\vclx.dcp" />
+    <DCCReference Include="Empresas\Controller\uDatosBancariosEmpresaController.pas" />
+    <DCCReference Include="Empresas\Controller\uEmpresasController.pas" />
+    <DCCReference Include="Empresas\Controller\View\uIEditorDatosBancarioEmpresa.pas" />
+    <DCCReference Include="Empresas\Controller\View\uIEditorEmpresa.pas" />
+    <DCCReference Include="Empresas\Controller\View\uIEditorEmpresas.pas" />
+    <DCCReference Include="Empresas\Data\uDataModuleEmpresas.pas" />
+    <DCCReference Include="Empresas\Model\Data\uIDataModuleEmpresas.pas" />
+    <DCCReference Include="Empresas\Model\schEmpresasClient_Intf.pas" />
+    <DCCReference Include="Empresas\Model\schEmpresasServer_Intf.pas" />
+    <DCCReference Include="Empresas\Model\uBizEmpresas.pas" />
+    <DCCReference Include="Empresas\Model\uBizEmpresasDatosBancarios.pas" />
+    <DCCReference Include="Empresas\Views\uEditorDatosBancariosEmpresa.pas" />
+    <DCCReference Include="Empresas\Views\uEditorEmpresa.pas" />
+    <DCCReference Include="Empresas\Views\uEmpresasViewRegister.pas" />
+    <DCCReference Include="Empresas\Views\uViewDatosBancarios.pas" />
+    <DCCReference Include="Empresas\Views\uViewEmpresa.pas" />
+    <DCCReference Include="uFactuGES_App.pas" />
+    <DCCReference Include="Usuarios\Controller\uUsuariosController.pas" />
+    <DCCReference Include="Usuarios\Controller\View\uIEditorLogin.pas" />
+    <DCCReference Include="Usuarios\Data\uCambiarPassword.pas" />
+    <DCCReference Include="Usuarios\Data\uDataModuleUsuarios.pas" />
+    <DCCReference Include="Usuarios\Data\uLoginForm.pas" />
+    <DCCReference Include="Usuarios\Data\uUCROConn.pas" />
+    <DCCReference Include="Usuarios\Model\Data\uIDataModuleUsuarios.pas" />
+    <DCCReference Include="Usuarios\Model\schUsuariosClient_Intf.pas" />
+    <DCCReference Include="Usuarios\Model\schUsuariosServer_Intf.pas" />
+    <DCCReference Include="Usuarios\Model\uUsuarios.pas" />
+    <DCCReference Include="Usuarios\Views\uEditorLogin.pas" />
+    <DCCReference Include="Usuarios\Views\uUsuariosViewRegister.pas" />
+  </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=0
+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 -->

Source/ApplicationBase/ApplicationBase.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

Source/ApplicationBase/Empresas/Controller/uEmpresasController.pas

@@ -5,10 +5,10 @@ interface
 
 uses
   Windows, Forms, Classes, Controls, Contnrs, SysUtils,
-  uBizEmpresas, uIDataModuleEmpresas, uDADataTable;
+  uBizEmpresas, uIDataModuleEmpresas, uDADataTable, uControllerBase;
 
 type
-  IEmpresasController = interface
+  IEmpresasController = interface(IControllerBase)
     ['{2F0AB21C-4F19-446E-87C4-B9C1038850FC}']
     function Buscar(const ID: Integer): IBizEmpresa;
     function BuscarTodos: IBizEmpresa;
@@ -24,7 +24,7 @@ type
     function ToStringList(AEmpresa : IBizEmpresa) : TStringList;
   end;
 
-  TEmpresasController = class(TInterfacedObject, IEmpresasController)
+  TEmpresasController = class(TControllerBase, IEmpresasController)
   protected
     FDataModule : IDataModuleEmpresas;
     function ValidarEmpresa(AEmpresa : IBizEmpresa): Boolean; virtual;

Source/ApplicationBase/Usuarios/Controller/View/uIEditorLogin.pas

@@ -0,0 +1,22 @@
+unit uIEditorLogin;
+
+interface
+
+uses
+  uEditorBase, uUsuariosController;
+
+type
+  IEditorLogin = interface
+    ['{96513A0B-679D-4DD6-8821-C99003DAD2A3}']
+    function ShowModal : Integer;
+    procedure Release;
+
+    function GetController : IUsuariosController;
+    procedure SetController (const AValue : IUsuariosController);
+    property Controller : IUsuariosController read GetController write SetController;
+  end;
+
+
+implementation
+
+end.

Source/ApplicationBase/Usuarios/Controller/uUsuariosController.pas

@@ -4,21 +4,26 @@ interface
 
 
 uses
-  Classes, SysUtils, uDADataTable, uControllerBase,
+  Classes, SysUtils, Forms, uDADataTable, uControllerBase,
   uIDataModuleUsuarios, uDataModuleUsuarios, UCBase;
 
 type
-  IUsuariosController = interface(IObservador)
+  IUsuariosController = interface(IControllerBase)
   ['{DD963EEC-5880-4DE7-AF55-B5080B538D84}']
 
-    {procedure Logoff;
+    procedure Logoff;
-    procedure Execute;
+    function StartLogin : Boolean;
-    procedure StartLogin;
     procedure ShowUserManager;
     procedure ShowProfileManager;
     procedure ShowLogManager;
     procedure ShowChangePassword;
-    procedure ChangeUser(IDUser: Integer; Login, Name, Mail: String; Profile,UserExpired,UserDaysSun: Integer; PrivUser: Boolean);
+    function ComprobarUsuario(const User : String; const Password: String): Boolean;
+
+    function GetMaxIntentosLogin: Integer;
+    procedure SetMaxIntentosLogin(const Value: Integer);
+    property MaxIntentosLogin : Integer read GetMaxIntentosLogin write SetMaxIntentosLogin;
+
+{    procedure ChangeUser(IDUser: Integer; Login, Name, Mail: String; Profile,UserExpired,UserDaysSun: Integer; PrivUser: Boolean);
     procedure ChangePassword(IDUser: Integer; NewPassword: String);
     procedure AddRight(idUser: Integer; ItemRight: TObject; FullPath: Boolean = True); overload;
     procedure AddRight(idUser: Integer; ItemRight: String); overload;
@@ -44,21 +49,35 @@ type
     function DarListaUsuarios: TStringList;}
   end;
 
-  TUsuariosController = class(TObservador, IUsuariosController)
+  TUsuariosController = class(TControllerBase, IUsuariosController)
   protected
     FDataModule : IDataModuleUsuarios;
     FUserControl: TUserControl;
 
+    function GetMaxIntentosLogin: Integer;
+    procedure SetMaxIntentosLogin(const Value: Integer);
+
     procedure RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable); override;
     function CreateEditor(const AName : String; const IID: TGUID; out Intf): Boolean;
 
 //    function ValidarFormaPago(AFormaPago: IBizFormaPago): Boolean;
     procedure AsignarDataModule;
     procedure InicializarUserControl;
+    procedure ComprobarUsuarioInicial;
+
+    procedure OnLoginForm(Sender: TObject; var CustomForm: TCustomForm);
   public
     constructor Create; virtual;
     destructor Destroy; override;
 
+    procedure Logoff;
+    function StartLogin : Boolean;
+    procedure ShowUserManager;
+    procedure ShowProfileManager;
+    procedure ShowLogManager;
+    procedure ShowChangePassword;
+    function ComprobarUsuario(const User : String; const Password: String): Boolean;    
+
 {    function Eliminar(AFormaPago : IBizFormaPago): Boolean;
     function Guardar(AFormaPago : IBizFormaPago): Boolean; virtual;
     procedure DescartarCambios(AFormaPago : IBizFormaPago); virtual;
@@ -69,9 +88,8 @@ type
     procedure Ver(AFormaPago: IBizFormaPago);
     function Localizar(AUsuarios: IBizFormaPago; ADescripcion:String): Boolean;
     function DarListaUsuarios: TStringList;}
-
-  published
     property UserControl : TUserControl read FUserControl;
+    property MaxIntentosLogin : Integer read GetMaxIntentosLogin write SetMaxIntentosLogin;    
   end;
 
 implementation
@@ -79,7 +97,7 @@ implementation
 uses
   cxControls, DB, uEditorRegistryUtils, schUsuariosClient_Intf,
   uDAInterfaces, uDataTableUtils, uDialogUtils, 
-  uDateUtils, uROTypes, DateUtils, Controls, Windows;
+  uDateUtils, uROTypes, DateUtils, Controls, Windows, uLoginForm, uIEditorLogin;
 
 { TUsuariosController }
 
@@ -116,11 +134,25 @@ begin
   Result := FDataModule.GetItems;
 end;}
 
+function TUsuariosController.ComprobarUsuario(const User,
+  Password: String): Boolean;
+begin
+  Result := FUserControl.VerificaLogin(User, Password);
+end;
+
+procedure TUsuariosController.ComprobarUsuarioInicial;
+begin
+  // Para que haya un usuario siempre en la BD
+  if not FUserControl.ExisteUsuario('admin') then
+    FUserControl.AddUser('admin', '1', 'Administrador', 'admin@correo.net', 0, 0 , 30, True);
+end;
+
 constructor TUsuariosController.Create;
 begin
   AsignarDataModule;
   FUserControl := TUserControl.Create(nil);
   InicializarUserControl;
+  ComprobarUsuarioInicial;
 end;
 
 function TUsuariosController.CreateEditor(const AName: String; const IID: TGUID; out Intf): Boolean;
@@ -173,14 +205,31 @@ begin
   FDataModule := NIL;
   inherited;
 end;
+function TUsuariosController.GetMaxIntentosLogin: Integer;
+begin
+  Result := FUserControl.Login.MaxLoginAttempts;
+end;
+
 procedure TUsuariosController.InicializarUserControl;
 begin
-  FDataModule.InicializarCamposUserControl(FUserControl);
   with FUserControl do
   begin
-    Criptografia := cMD5;
     AutoStart := False;
+    Criptografia := cMD5;
+    OnCustomLoginForm := OnLoginForm;
   end;
+  FDataModule.InicializarCamposUserControl(FUserControl);
+end;
+
+procedure TUsuariosController.Logoff;
+begin
+  FUserControl.Logoff;
+end;
+
+procedure TUsuariosController.OnLoginForm(Sender: TObject;
+  var CustomForm: TCustomForm);
+begin
+  CustomForm := TfLoginForm.Create(NIL);
 end;
 
 {
@@ -276,6 +325,54 @@ begin
 //
 end;
 
+procedure TUsuariosController.SetMaxIntentosLogin(const Value: Integer);
+begin
+  FUserControl.Login.MaxLoginAttempts := Value;
+end;
+
+procedure TUsuariosController.ShowChangePassword;
+begin
+  FUserControl.ShowChangePassword;
+end;
+
+procedure TUsuariosController.ShowLogManager;
+begin
+  FUserControl.ShowLogManager;
+end;
+
+procedure TUsuariosController.ShowProfileManager;
+begin
+  FUserControl.ShowProfileManager;
+end;
+
+procedure TUsuariosController.ShowUserManager;
+begin
+  FUserControl.ShowUserManager;
+end;
+
+function TUsuariosController.StartLogin : Boolean;
+var
+  AEditor : IEditorLogin;
+begin
+  AEditor := NIL;
+  ShowHourglassCursor;
+  try
+    CreateEditor('EditorLogin', IEditorLogin, AEditor);
+    with AEditor do
+      Controller := Self;
+  finally
+    HideHourglassCursor;
+  end;
+
+  if Assigned(AEditor) then
+    try
+      Result := (AEditor.ShowModal = mrOk);
+      AEditor.Release;
+    finally
+      AEditor := NIL;
+    end;
+end;
+
 {function TUsuariosController.Guardar(AFormaPago: IBizFormaPago): Boolean;
 begin
   Result := False;

Source/ApplicationBase/Usuarios/Data/uDataModuleUsuarios.dfm

@@ -0,0 +1,24 @@
+object DataModuleUsuarios: TDataModuleUsuarios
+  OldCreateOrder = True
+  OnCreate = DAClientDataModuleCreate
+  Height = 205
+  Width = 355
+  object ROLoginService: TRORemoteService
+    Message = dmConexion.ROMessage
+    Channel = dmConexion.ROChannel
+    ServiceName = 'srvLogin'
+    Left = 48
+    Top = 32
+  end
+  object srvUsuarios: TRORemoteService
+    Message = dmConexion.ROMessage
+    Channel = dmConexion.ROChannel
+    ServiceName = 'srvUsuarios'
+    Left = 152
+    Top = 32
+  end
+  object Bin2DataStreamer: TDABin2DataStreamer
+    Left = 48
+    Top = 104
+  end
+end

Source/ApplicationBase/Usuarios/Data/uDataModuleUsuarios.pas

@@ -17,7 +17,6 @@ type
     ROLoginService: TRORemoteService;
     srvUsuarios: TRORemoteService;
     Bin2DataStreamer: TDABin2DataStreamer;
-    UserControl1: TUserControl;
     procedure DAClientDataModuleCreate(Sender: TObject);
     procedure DAClientDataModuleDestroy(Sender: TObject);
   private
@@ -57,7 +56,8 @@ implementation
 
 uses
   Forms, Controls, uDataTableUtils, uDataModuleConexion, uLoginForm,
-  uCambiarPassword, Dialogs, Windows, uEmpresasController, schUsuariosClient_Intf;
+  uCambiarPassword, Dialogs, Windows, uEmpresasController,
+  schUsuariosClient_Intf;
 
 { TDAClientDataModule1 }
 

Source/ApplicationBase/Usuarios/Data/uLoginForm.pas

@@ -0,0 +1,112 @@
+unit uLoginForm;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, StdCtrls, ExtCtrls, ComCtrls, cxGraphics, cxControls,
+  cxContainer, cxEdit, cxTextEdit, cxMaskEdit, cxDropDownEdit,
+  cxImageComboBox, ImgList, PngImageList, pngimage, ToolWin, JvExControls,
+  JvComponent, JvGradient, JvGIF, JvComponentBase, JvFormPlacement,
+  JvAppStorage, JvAppRegistryStorage;
+
+type
+  TfLoginForm = class(TForm)
+    Panel1: TPanel;
+    Label3: TLabel;
+    Label4: TLabel;
+    edtPassword: TEdit;
+    bAceptar: TButton;
+    bCancelar: TButton;
+    Label1: TLabel;
+    edtUser: TEdit;
+    JvGradient1: TJvGradient;
+    Button1: TButton;
+    Timer1: TTimer;
+    JvAppRegistryStorage1: TJvAppRegistryStorage;
+    JvFormStorage1: TJvFormStorage;
+    Image1: TImage;
+    procedure bAceptarClick(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
+    procedure ToolButton4Click(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure Timer1Timer(Sender: TObject);
+  private
+    FIntentos: Integer;
+  end;
+  
+var
+  fLoginForm: TfLoginForm;
+
+implementation
+
+uses
+  uFactuGES_App, uDataModuleConexion;
+  {uDataModuleUsuarios, uDataModuleBase}
+
+{$R *.dfm}
+
+{
+********************************* TfLoginForm **********************************
+}
+procedure TfLoginForm.bAceptarClick(Sender: TObject);
+//var
+//  bOk : Boolean;
+begin
+{  ShowHourglassCursor;
+  try
+    bOK := dmUsuarios.Login(edtUser.Text, edtPassword.Text);
+  finally
+    HideHourglassCursor;
+  end;
+
+  if bOk then
+    ModalResult := mrOK
+  else begin
+    Application.MessageBox('Usuario no válido. Compruebe si ha escrito correctamente'
+      + #13 + #10 + 'el usuario y la contraseña.', 'Atención', MB_OK);
+    Dec(FIntentos);
+    if (FIntentos <= 0) then
+      ModalResult := mrCancel;
+  end;}
+end;
+
+procedure TfLoginForm.FormCreate(Sender: TObject);
+begin
+  FIntentos := 3;
+end;
+
+procedure TfLoginForm.ToolButton4Click(Sender: TObject);
+var
+  ATimer : Boolean;
+begin
+  if Timer1.Enabled then
+  begin
+    ATimer := True;
+    Timer1.Enabled := False;
+  end;
+
+  dmConexion.ConfigurarConexion;
+
+  if ATimer then
+    Timer1.Enabled := True;
+end;
+
+procedure TfLoginForm.FormShow(Sender: TObject);
+begin
+  Self.Caption := Self.Caption + ' - ' + AppFactuGES.AppVersion;
+  JvFormStorage1.RestoreFormPlacement;
+  // Hacer login automática si hay usuario/password y no hay más de una base
+  // de datos como opción para conectarse.
+
+  if ((Length(edtUser.Text) > 0) and (Length(edtPassword.Text) > 0)) then
+    Timer1.Enabled := True;
+end;
+
+procedure TfLoginForm.Timer1Timer(Sender: TObject);
+begin
+  Timer1.Enabled := False;
+  bAceptar.Click;
+end;
+
+end.

Source/ApplicationBase/Usuarios/Data/uUCROConn.pas

@@ -50,43 +50,11 @@ type
     property RemoteService : TRORemoteService read FRemoteService write SetRemoteService;
   end;
 
-const
-  // Select para as tabelas de sistema !!! Para outro tipo de banco implemente aqui !!!!!
-
-  // Para banco novo !!!
-  // Não esquecer de colocar em TBancoDados, o tipo de banco !!!!!!
-  // Não esquecer de colocar no 'case' de UCFindTable
-
-  SQL_Firebird =
-    'SELECT ' +
-    '  UPPER(RDB$RELATIONS.RDB$RELATION_NAME) RDB$RELATION_NAME ' +
-    'FROM ' +
-    '  RDB$RELATIONS ' +
-    'WHERE ' +
-    '  RDB$RELATIONS.RDB$FLAGS = 1 AND UPPER(RDB$RELATIONS.RDB$RELATION_NAME) = ' +
-    '  UPPER(''%s'')';
-
-  SQL_MSSQL = '';
-
-  SQL_Oracle = '';
-
-  SQL_PostgreSQL =
-    'SELECT ' +
-    '  UPPER(PG_CLASS.RELNAME) ' +
-    'FROM ' +
-    '  PG_CLASS ' +
-    'WHERE ' +
-    '  PG_CLASS.RELKIND = ''r'' AND ' +
-    '  UPPER(PG_CLASS.RELNAME) LIKE UPPER(''%s'')';
-
-  SQL_MySQL = '';
-
-  SQL_Paradox = '';
-
 implementation
 
 uses
-  FactuGES_Intf, uROTypes, uDAClasses, uDADataTable;
+  Forms, Dialogs, FactuGES_Intf, uROTypes, uDAClasses, uDADataTable,
+  uDACDSDataTable;
 
 { TUCROConn }
 
@@ -177,18 +145,35 @@ begin
   end;
 end;
 
+
 function TUCROConn.UCGetSQLDataset(FSQL: String): TDataset;
 var
-  AStream : Binary;
+  AStream: TMemoryStream;
-  ADataTable : TDADataTable;
+  ADataStreamer: TDABin2DataStreamer;
+  ADataTable: TDACDSDataTable;
 begin
-  Result := NIL;
+  ADataStreamer := TDABin2DataStreamer.Create(NIL);
   AStream := (FRemoteService as IsrvUsuarios).SQLGetData(FSQL, True, -1);
-  if Assigned(AStream) then
+
-  begin
+  if AStream <> nil then
-    ADataTable := TDADataTable.Create(NIL);
+  try
-    ADataTable.LoadFromStream(AStream);
+    ADataTable := TDACDSDataTable.Create(Application);
-    Result := ADataTable.Dataset;
+
+    // Generar un nombre aleatorio
+    Randomize;
+    ADataTable.Name := 'SQLResult' + '_' + IntToStr(Random(MAXINT));
+
+    ADataTable.LocalDataStreamer := ADataStreamer;
+    ADataTable.RemoteFetchEnabled := False;
+    try
+      ADataStreamer.ReadDataset(AStream, ADataTable, True);
+      Result := ADataTable.Dataset;
+    finally
+      //FreeAndNIL(ADataTable); <-- No liberar, lo hace Application
+    end;
+  finally
+    FreeAndNIL(AStream);
+    FreeAndNIL(ADataStreamer);
   end;
 end;
 

Source/ApplicationBase/Usuarios/Model/schUsuariosClient_Intf.pas

@@ -9,11 +9,11 @@ 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_USUARIOS = '{BCEAD2C9-F685-4AD0-BFD5-FAA3694FB6B8}';
+  RID_USUARIOS = '{1A97AED1-832A-46A9-9894-8CB44D7AFBBD}';
-  RID_USUARIOS_EVENTOS = '{FCCBD5C6-0BBB-44C1-B19A-983FEE8F93D5}';
+  RID_USUARIOS_EVENTOS = '{16F186E3-A7CF-40DD-B040-EB735A5F1FDD}';
-  RID_USUARIOS_LOGON = '{31C71D37-D969-4C21-AD16-ECD67F1BD5B0}';
+  RID_USUARIOS_LOGON = '{8005FBCF-1276-473D-A3BE-15C8159AB6CE}';
-  RID_PERMISOS = '{90F13FF0-B34A-4AA9-8EC5-F8427722C146}';
+  RID_PERMISOS = '{802AF8DD-DA72-412A-AB43-4D5F0EA5630F}';
-  RID_PERMISOSEX = '{30F060F4-D38F-41D2-8888-EE5E91BBAA0B}';
+  RID_PERMISOSEX = '{B2319D8E-0423-41D1-B166-7BD9EC069549}';
 
   { Data table names }
   nme_USUARIOS = 'USUARIOS';
@@ -115,7 +115,7 @@ const
 type
   { IUSUARIOS }
   IUSUARIOS = interface(IDAStronglyTypedDataTable)
-  ['{98E5DC96-C6C8-48DD-9A93-727F34455103}']
+  ['{F248A54E-1181-40E9-B9B4-9A1D9F4DA382}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -282,7 +282,7 @@ type
 
   { IUSUARIOS_EVENTOS }
   IUSUARIOS_EVENTOS = interface(IDAStronglyTypedDataTable)
-  ['{AFFBC554-995C-4D6C-A88B-3A786E4905CD}']
+  ['{8E5D7E37-04E5-4395-8B3E-E0757F5675B4}']
     { Property getters and setters }
     function GetAPLICACIONValue: String;
     procedure SetAPLICACIONValue(const aValue: String);
@@ -413,7 +413,7 @@ type
 
   { IUSUARIOS_LOGON }
   IUSUARIOS_LOGON = interface(IDAStronglyTypedDataTable)
-  ['{721BFDBE-77B1-4E34-8E49-D2782E2939A1}']
+  ['{FF8C8388-9397-4FA2-AB70-491B8299DC00}']
     { Property getters and setters }
     function GetLOGONIDValue: String;
     procedure SetLOGONIDValue(const aValue: String);
@@ -496,7 +496,7 @@ type
 
   { IPERMISOS }
   IPERMISOS = interface(IDAStronglyTypedDataTable)
-  ['{E369AE58-C4F5-476F-8D81-1C0440F6A362}']
+  ['{7705D3E7-EC27-4CB7-9492-1873D2158F79}']
     { Property getters and setters }
     function GetID_USUARIOValue: Integer;
     procedure SetID_USUARIOValue(const aValue: Integer);
@@ -567,7 +567,7 @@ type
 
   { IPERMISOSEX }
   IPERMISOSEX = interface(IDAStronglyTypedDataTable)
-  ['{956C4144-986B-4043-8DA5-81667770CD85}']
+  ['{1636E92E-3A74-4F5F-AF20-5831B0D57A38}']
     { Property getters and setters }
     function GetID_USUARIOValue: Integer;
     procedure SetID_USUARIOValue(const aValue: Integer);

Source/ApplicationBase/Usuarios/Model/schUsuariosServer_Intf.pas

@@ -9,16 +9,16 @@ 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_USUARIOSDelta = '{46E1A07E-12D3-4FEB-B692-A849C5467B93}';
+  RID_USUARIOSDelta = '{30AE63B9-1580-4117-9B4F-448F309BD6AC}';
-  RID_USUARIOS_EVENTOSDelta = '{53E03F8A-166F-4A18-85B9-BBBEB2D60052}';
+  RID_USUARIOS_EVENTOSDelta = '{81DD56BF-BBB5-4311-9AF3-E72EF8B5EC32}';
-  RID_USUARIOS_LOGONDelta = '{0EC1E706-6226-449C-885B-6C6AC5187088}';
+  RID_USUARIOS_LOGONDelta = '{BE275431-94DF-4C1C-83D0-C09B4E0DA9D9}';
-  RID_PERMISOSDelta = '{A8CCC0BF-DEB4-439F-B7C4-3A25F5210A5E}';
+  RID_PERMISOSDelta = '{F99C6E2E-FE0E-4943-9B69-37B2F48AF314}';
-  RID_PERMISOSEXDelta = '{78ACF719-CCD6-47F3-AA01-D580F121F7A8}';
+  RID_PERMISOSEXDelta = '{43B62FCB-7C4A-4F3A-9F77-85339308E91A}';
 
 type
   { IUSUARIOSDelta }
   IUSUARIOSDelta = interface(IUSUARIOS)
-  ['{46E1A07E-12D3-4FEB-B692-A849C5467B93}']
+  ['{30AE63B9-1580-4117-9B4F-448F309BD6AC}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldUSERNAMEValue : String;
@@ -184,7 +184,7 @@ type
 
   { IUSUARIOS_EVENTOSDelta }
   IUSUARIOS_EVENTOSDelta = interface(IUSUARIOS_EVENTOS)
-  ['{53E03F8A-166F-4A18-85B9-BBBEB2D60052}']
+  ['{81DD56BF-BBB5-4311-9AF3-E72EF8B5EC32}']
     { Property getters and setters }
     function GetOldAPLICACIONValue : String;
     function GetOldID_USUARIOValue : Integer;
@@ -315,7 +315,7 @@ type
 
   { IUSUARIOS_LOGONDelta }
   IUSUARIOS_LOGONDelta = interface(IUSUARIOS_LOGON)
-  ['{0EC1E706-6226-449C-885B-6C6AC5187088}']
+  ['{BE275431-94DF-4C1C-83D0-C09B4E0DA9D9}']
     { Property getters and setters }
     function GetOldLOGONIDValue : String;
     function GetOldID_USUARIOValue : Integer;
@@ -397,7 +397,7 @@ type
 
   { IPERMISOSDelta }
   IPERMISOSDelta = interface(IPERMISOS)
-  ['{A8CCC0BF-DEB4-439F-B7C4-3A25F5210A5E}']
+  ['{F99C6E2E-FE0E-4943-9B69-37B2F48AF314}']
     { Property getters and setters }
     function GetOldID_USUARIOValue : Integer;
     function GetOldMODULOValue : String;
@@ -467,7 +467,7 @@ type
 
   { IPERMISOSEXDelta }
   IPERMISOSEXDelta = interface(IPERMISOSEX)
-  ['{78ACF719-CCD6-47F3-AA01-D580F121F7A8}']
+  ['{43B62FCB-7C4A-4F3A-9F77-85339308E91A}']
     { Property getters and setters }
     function GetOldID_USUARIOValue : Integer;
     function GetOldMODULOValue : String;

Source/ApplicationBase/Usuarios/Model/uUsuarios.pas

@@ -0,0 +1,15 @@
+unit uUsuarios;
+
+interface
+
+uses
+  UCBase;
+
+type
+  TUsuario = class(TUCUser)
+    
+  end;
+
+implementation
+
+end.

Source/ApplicationBase/Usuarios/Views/uEditorLogin.pas

@@ -0,0 +1,126 @@
+unit uEditorLogin;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, StdCtrls, ExtCtrls, ComCtrls, cxGraphics, cxControls,
+  cxContainer, cxEdit, cxTextEdit, cxMaskEdit, cxDropDownEdit,
+  cxImageComboBox, ImgList, PngImageList, pngimage, ToolWin, JvExControls,
+  JvComponent, JvGradient, JvGIF, JvComponentBase, JvFormPlacement,
+  JvAppStorage, JvAppRegistryStorage, uIEditorLogin, uUsuariosController;
+
+type
+  TfEditorLogin = class(TForm, IEditorLogin)
+    Panel1: TPanel;
+    Label3: TLabel;
+    Label4: TLabel;
+    edtPassword: TEdit;
+    bAceptar: TButton;
+    bCancelar: TButton;
+    Label1: TLabel;
+    edtUser: TEdit;
+    JvGradient1: TJvGradient;
+    Button1: TButton;
+    Timer1: TTimer;
+    JvAppRegistryStorage1: TJvAppRegistryStorage;
+    JvFormStorage1: TJvFormStorage;
+    Image1: TImage;
+    procedure bAceptarClick(Sender: TObject);
+    procedure ToolButton4Click(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure Timer1Timer(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
+  private
+    FController : IUsuariosController;
+    FIntentos : Integer;
+    function GetController : IUsuariosController;
+    procedure SetController (const AValue : IUsuariosController);
+  published
+    property Controller : IUsuariosController read GetController write SetController;
+  end;
+  
+
+implementation
+
+uses
+  uFactuGES_App, uDataModuleConexion;
+
+{$R *.dfm}
+
+{
+********************************* TfEditorLogin **********************************
+}
+procedure TfEditorLogin.bAceptarClick(Sender: TObject);
+var
+  bOk : Boolean;
+begin
+  Timer1.Enabled := False;
+  
+  ShowHourglassCursor;
+  try
+    bOK := FController.ComprobarUsuario(edtUser.Text, edtPassword.Text);
+  finally
+    HideHourglassCursor;
+  end;
+
+  if bOk then
+    ModalResult := mrOK
+  else begin
+    Application.MessageBox('Usuario no válido. Compruebe si ha escrito correctamente'
+      + #13 + #10 + 'el usuario y la contraseña.', 'Atención', MB_OK);
+    Inc(FIntentos);
+    if (Controller.MaxIntentosLogin > 0) and (FIntentos = Controller.MaxIntentosLogin) then
+      ModalResult := mrCancel;
+  end;
+end;
+
+procedure TfEditorLogin.ToolButton4Click(Sender: TObject);
+var
+  ATimer : Boolean;
+begin
+  if Timer1.Enabled then
+  begin
+    ATimer := True;
+    Timer1.Enabled := False;
+  end;
+
+  dmConexion.ConfigurarConexion;
+
+  if ATimer then
+    Timer1.Enabled := True;
+end;
+
+procedure TfEditorLogin.FormCreate(Sender: TObject);
+begin
+  FIntentos := 0; 
+end;
+
+procedure TfEditorLogin.FormShow(Sender: TObject);
+begin
+  Self.Caption := Self.Caption + ' - ' + AppFactuGES.AppVersion;
+  JvFormStorage1.RestoreFormPlacement;
+
+  // Hacer login automática si hay usuario/password y no hay más de una base
+  // de datos como opción para conectarse.
+  if ((Length(edtUser.Text) > 0) and (Length(edtPassword.Text) > 0)) then
+    Timer1.Enabled := True;
+end;
+
+function TfEditorLogin.GetController: IUsuariosController;
+begin
+  Result := FController;
+end;
+
+procedure TfEditorLogin.SetController(const AValue: IUsuariosController);
+begin
+  FController := AValue;
+end;
+
+procedure TfEditorLogin.Timer1Timer(Sender: TObject);
+begin
+  Timer1.Enabled := False;
+  bAceptar.Click;
+end;
+
+end.

Source/ApplicationBase/Usuarios/Views/uUsuariosViewRegister.pas

@@ -0,0 +1,23 @@
+unit uUsuariosViewRegister;
+
+interface
+
+procedure RegisterViews;
+procedure UnregisterViews;
+
+implementation
+
+uses
+  uEditorRegistryUtils, uEditorLogin;
+
+procedure RegisterViews;
+begin
+  EditorRegistry.RegisterClass(TfEditorLogin, 'EditorLogin');
+end;
+
+procedure UnregisterViews;
+begin
+  EditorRegistry.UnRegisterClass(TfEditorLogin);
+end;
+
+end.

Source/ApplicationBase/_Usuarios_/Usuarios.bdsproj

@@ -0,0 +1,492 @@
+<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+	<PersonalityInfo>
+		<Option>
+			<Option Name="Personality">Delphi.Personality</Option>
+			<Option Name="ProjectType">VCLApplication</Option>
+			<Option Name="Version">1.0</Option>
+			<Option Name="GUID">{0E3D28A9-51AF-483B-B478-472A086EE120}</Option>
+		</Option>
+	</PersonalityInfo>
+	<Delphi.Personality>
+		<Source>
+			<Source Name="MainSource">Usuarios.dpk</Source>
+		</Source>
+		<FileVersion>
+			<FileVersion Name="Version">7.0</FileVersion>
+		</FileVersion>
+		<Compiler>
+			<Compiler Name="A">8</Compiler>
+			<Compiler Name="B">0</Compiler>
+			<Compiler Name="C">1</Compiler>
+			<Compiler Name="D">1</Compiler>
+			<Compiler Name="E">0</Compiler>
+			<Compiler Name="F">0</Compiler>
+			<Compiler Name="G">1</Compiler>
+			<Compiler Name="H">1</Compiler>
+			<Compiler Name="I">1</Compiler>
+			<Compiler Name="J">0</Compiler>
+			<Compiler Name="K">0</Compiler>
+			<Compiler Name="L">1</Compiler>
+			<Compiler Name="M">0</Compiler>
+			<Compiler Name="N">1</Compiler>
+			<Compiler Name="O">1</Compiler>
+			<Compiler Name="P">1</Compiler>
+			<Compiler Name="Q">0</Compiler>
+			<Compiler Name="R">0</Compiler>
+			<Compiler Name="S">0</Compiler>
+			<Compiler Name="T">0</Compiler>
+			<Compiler Name="U">0</Compiler>
+			<Compiler Name="V">1</Compiler>
+			<Compiler Name="W">0</Compiler>
+			<Compiler Name="X">1</Compiler>
+			<Compiler Name="Y">1</Compiler>
+			<Compiler Name="Z">1</Compiler>
+			<Compiler Name="ShowHints">True</Compiler>
+			<Compiler Name="ShowWarnings">True</Compiler>
+			<Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+			<Compiler Name="NamespacePrefix"></Compiler>
+			<Compiler Name="GenerateDocumentation">False</Compiler>
+			<Compiler Name="DefaultNamespace"></Compiler>
+			<Compiler Name="SymbolDeprecated">True</Compiler>
+			<Compiler Name="SymbolLibrary">True</Compiler>
+			<Compiler Name="SymbolPlatform">True</Compiler>
+			<Compiler Name="SymbolExperimental">True</Compiler>
+			<Compiler Name="UnitLibrary">True</Compiler>
+			<Compiler Name="UnitPlatform">True</Compiler>
+			<Compiler Name="UnitDeprecated">True</Compiler>
+			<Compiler Name="UnitExperimental">True</Compiler>
+			<Compiler Name="HResultCompat">True</Compiler>
+			<Compiler Name="HidingMember">True</Compiler>
+			<Compiler Name="HiddenVirtual">True</Compiler>
+			<Compiler Name="Garbage">True</Compiler>
+			<Compiler Name="BoundsError">True</Compiler>
+			<Compiler Name="ZeroNilCompat">True</Compiler>
+			<Compiler Name="StringConstTruncated">True</Compiler>
+			<Compiler Name="ForLoopVarVarPar">True</Compiler>
+			<Compiler Name="TypedConstVarPar">True</Compiler>
+			<Compiler Name="AsgToTypedConst">True</Compiler>
+			<Compiler Name="CaseLabelRange">True</Compiler>
+			<Compiler Name="ForVariable">True</Compiler>
+			<Compiler Name="ConstructingAbstract">True</Compiler>
+			<Compiler Name="ComparisonFalse">True</Compiler>
+			<Compiler Name="ComparisonTrue">True</Compiler>
+			<Compiler Name="ComparingSignedUnsigned">True</Compiler>
+			<Compiler Name="CombiningSignedUnsigned">True</Compiler>
+			<Compiler Name="UnsupportedConstruct">True</Compiler>
+			<Compiler Name="FileOpen">True</Compiler>
+			<Compiler Name="FileOpenUnitSrc">True</Compiler>
+			<Compiler Name="BadGlobalSymbol">True</Compiler>
+			<Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+			<Compiler Name="InvalidDirective">True</Compiler>
+			<Compiler Name="PackageNoLink">True</Compiler>
+			<Compiler Name="PackageThreadVar">True</Compiler>
+			<Compiler Name="ImplicitImport">True</Compiler>
+			<Compiler Name="HPPEMITIgnored">True</Compiler>
+			<Compiler Name="NoRetVal">True</Compiler>
+			<Compiler Name="UseBeforeDef">True</Compiler>
+			<Compiler Name="ForLoopVarUndef">True</Compiler>
+			<Compiler Name="UnitNameMismatch">True</Compiler>
+			<Compiler Name="NoCFGFileFound">True</Compiler>
+			<Compiler Name="ImplicitVariants">True</Compiler>
+			<Compiler Name="UnicodeToLocale">True</Compiler>
+			<Compiler Name="LocaleToUnicode">True</Compiler>
+			<Compiler Name="ImagebaseMultiple">True</Compiler>
+			<Compiler Name="SuspiciousTypecast">True</Compiler>
+			<Compiler Name="PrivatePropAccessor">True</Compiler>
+			<Compiler Name="UnsafeType">False</Compiler>
+			<Compiler Name="UnsafeCode">False</Compiler>
+			<Compiler Name="UnsafeCast">False</Compiler>
+			<Compiler Name="OptionTruncated">True</Compiler>
+			<Compiler Name="WideCharReduced">True</Compiler>
+			<Compiler Name="DuplicatesIgnored">True</Compiler>
+			<Compiler Name="UnitInitSeq">True</Compiler>
+			<Compiler Name="LocalPInvoke">True</Compiler>
+			<Compiler Name="MessageDirective">True</Compiler>
+			<Compiler Name="CodePage"></Compiler>
+		</Compiler>
+		<Linker>
+			<Linker Name="MapFile">3</Linker>
+			<Linker Name="OutputObjs">0</Linker>
+			<Linker Name="GenerateHpps">False</Linker>
+			<Linker Name="ConsoleApp">1</Linker>
+			<Linker Name="DebugInfo">False</Linker>
+			<Linker Name="RemoteSymbols">False</Linker>
+			<Linker Name="GenerateDRC">False</Linker>
+			<Linker Name="MinStackSize">16384</Linker>
+			<Linker Name="MaxStackSize">1048576</Linker>
+			<Linker Name="ImageBase">4194304</Linker>
+			<Linker Name="ExeDescription">Gestión de usuarios</Linker>
+		</Linker>
+		<Directories>
+			<Directories Name="OutputDir"></Directories>
+			<Directories Name="UnitOutputDir">.\</Directories>
+			<Directories Name="PackageDLLOutputDir">..\..\..\Output\Debug\Cliente</Directories>
+			<Directories Name="PackageDCPOutputDir">..\..\Lib</Directories>
+			<Directories Name="SearchPath">..\..\Lib;..\..\Modulos\Lib</Directories>
+			<Directories Name="Packages">vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;dclOfficeXP;cxLibraryVCLD7;dxThemeD7;cxTreeListVCLD7;cxEditorsVCLD7;cxDataD7;cxExtEditorsVCLD7;cxGridVCLD7;cxPageControlVCLD7;cxSchedulerVCLD7;dxComnD7;dxsbD7;dxBarD7;dxBarDBNavD7;dxBarExtDBItemsD7;dxBarExtItemsD7;dxDockingD7;dxLayoutControlD7;dxNavBarD7;dxPSCoreD7;cxExportVCLD7;cxIntl5D7;cxIntlPrintSys3D7;cxIntlSchedulerD7;fsIBX7;fs7;fqb70;frx7;frxADO7;frxBDE7;frxcs7;frxDB7;frxDBX7;frxe7;frxIBX7;fsADO7;fsBDE7;fsDB7;cxVerticalGridVCLD7</Directories>
+			<Directories Name="Conditionals"></Directories>
+			<Directories Name="DebugSourceDirs"></Directories>
+			<Directories Name="UsePackages">False</Directories>
+		</Directories>
+		<Parameters>
+			<Parameters Name="RunParams"></Parameters>
+			<Parameters Name="HostApplication"></Parameters>
+			<Parameters Name="Launcher"></Parameters>
+			<Parameters Name="UseLauncher">False</Parameters>
+			<Parameters Name="DebugCWD"></Parameters>
+			<Parameters Name="Debug Symbols Search Path"></Parameters>
+			<Parameters Name="LoadAllSymbols">True</Parameters>
+			<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+		</Parameters>
+		<Language>
+			<Language Name="ActiveLang"></Language>
+			<Language Name="ProjectLang">$00000000</Language>
+			<Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language>
+		</Language>
+		<VersionInfo>
+			<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+			<VersionInfo Name="AutoIncBuild">False</VersionInfo>
+			<VersionInfo Name="MajorVer">1</VersionInfo>
+			<VersionInfo Name="MinorVer">0</VersionInfo>
+			<VersionInfo Name="Release">3</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.3.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>
+	</Delphi.Personality>
+<!-- EurekaLog First Line
+[Exception Log]
+EurekaLog Version=519
+Activate=1
+Activate Handle=1
+Save Log File=1
+Foreground Tab=0
+Freeze Activate=0
+Freeze Timeout=60
+Freeze Message=The application seems to be frozen.
+SMTP From=eurekalog@email.com
+SMTP Host=
+SMTP Port=25
+SMTP UserID=
+SMTP Password=
+Append to Log=0
+Show TerminateBtn=1
+TerminateBtn Operation=1
+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=1
+AutoCrashNumber=10
+AutoCrashMinutes=1
+WebURL=
+WebUserID=
+WebPassword=
+WebPort=0
+AttachedFiles=
+Count=0
+EMail Message Line Count=0
+loNoDuplicateErrors=0
+loAppendReproduceText=0
+loDeleteLogAtVersionChange=0
+loAddComputerNameInLogFileName=0
+loSaveModulesSection=1
+loSaveCPUSection=1
+soAppStartDate=1
+soAppName=1
+soAppVersionNumber=1
+soAppParameters=1
+soAppCompilationDate=1
+soExcDate=1
+soExcAddress=1
+soExcModule=1
+soExcType=1
+soExcMessage=1
+soActCtlsFormClass=1
+soActCtlsFormText=1
+soActCtlsControlClass=1
+soActCtlsControlText=1
+soCmpName=1
+soCmpUser=1
+soCmpTotalMemory=1
+soCmpFreeMemory=1
+soCmpTotalDisk=1
+soCmpFreeDisk=1
+soCmpSysUpTime=1
+soCmpProcessor=1
+soCmpDisplayMode=1
+soOSType=1
+soOSBuildN=1
+soOSUpdate=1
+soOSLanguage=1
+soNetIP=1
+soNetSubmask=1
+soNetGateway=1
+soNetDNS1=1
+soNetDNS2=1
+soNetDHCP=1
+sndShowSendDialog=1
+sndShowSuccessFailureMsg=0
+sndSendEntireLog=0
+sndSendXMLLogCopy=0
+sndSendScreenshot=1
+sndUseOnlyActiveWindow=0
+sndSendLastHTMLPage=1
+sndSendInSeparatedThread=0
+sndAddDateInFileName=0
+sndCompressAllFiles=0
+edoShowExceptionDialog=1
+edoSendEmailChecked=1
+edoAttachScreenshotChecked=1
+edoShowCopyToClipOption=1
+edoShowDetailsButton=1
+edoShowInDetailedMode=0
+edoShowInTopMostMode=0
+edoUseEurekaLogLookAndFeel=0
+csoShowDLLs=1
+csoShowBPLs=1
+csoShowBorlandThreads=1
+csoShowWindowsThreads=1
+csoShowProcedureOffset=0
+boActivateCrashDetection=0
+boPauseBorlandThreads=0
+boDoNotPauseMainThread=0
+boPauseWindowsThreads=0
+boUseMainModuleOptions=1
+boCopyLogInCaseOfError=1
+boSaveCompressedCopyInCaseOfError=0
+Count mtInformationMsgCaption=1
+mtInformationMsgCaption0="Information."
+Count mtQuestionMsgCaption=1
+mtQuestionMsgCaption0="Question."
+Count mtDialog_Caption=1
+mtDialog_Caption0="Error."
+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_CPUCaption=1
+mtDialog_CPUCaption0="CPU"
+Count mtDialog_CPUHeader=1
+mtDialog_CPUHeader0="CPU Information"
+Count mtDialog_CustomDataCaption=1
+mtDialog_CustomDataCaption0="Other"
+Count mtDialog_CustomDataHeader=1
+mtDialog_CustomDataHeader0="Other 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_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 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_ExcHeader=1
+mtLog_ExcHeader0="Exception"
+Count mtLog_ExcDate=1
+mtLog_ExcDate0="Date"
+Count mtLog_ExcAddress=1
+mtLog_ExcAddress0="Address"
+Count mtLog_ExcModule=1
+mtLog_ExcModule0="Module"
+Count mtLog_ExcType=1
+mtLog_ExcType0="Type"
+Count mtLog_ExcMessage=1
+mtLog_ExcMessage0="Message"
+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_CmpUser=1
+mtLog_CmpUser0="User"
+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_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_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 mtSendDialog_Caption=1
+mtSendDialog_Caption0="Send."
+Count mtSendDialog_Message=1
+mtSendDialog_Message0="Message"
+Count mtSendDialog_Resolving=1
+mtSendDialog_Resolving0="Resolving DNS..."
+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 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 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."
+EurekaLog Last Line -->
+</BorlandProject>

Source/ApplicationBase/_Usuarios_/Usuarios.dpk

@@ -0,0 +1,43 @@
+package Usuarios;
+
+{$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}
+{$DESCRIPTION 'Gestión de usuarios'}
+{$IMPLICITBUILD ON}
+
+requires
+  vcl,
+  vcldb,
+  Base,
+  Empresas_model,
+  Empresas_controller,
+  JvMMD11R;
+
+contains
+  uDataModuleUsuarios in 'uDataModuleUsuarios.pas' {dmUsuarios: TDAClientDataModule},
+  uUsuarios in 'uUsuarios.pas' {fUsuarios},
+  uUsuario in 'uUsuario.pas' {fUsuario},
+  uLoginForm in 'uLoginForm.pas' {fLoginForm},
+  uCambiarPassword in 'uCambiarPassword.pas' {fCambiarPassword};
+
+end.

Source/ApplicationBase/_Usuarios_/Usuarios.dproj

@@ -0,0 +1,557 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{0e3d28a9-51af-483b-b478-472a086ee120}</ProjectGuid>
+    <MainSource>Usuarios.dpk</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>..\..\..\Output\Debug\Cliente\Usuarios.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_MapFile>3</DCC_MapFile>
+    <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;..\..\Modulos\Lib</DCC_UnitSearchPath>
+    <DCC_ResourcePath>..\..\Lib;..\..\Modulos\Lib</DCC_ResourcePath>
+    <DCC_ObjPath>..\..\Lib;..\..\Modulos\Lib</DCC_ObjPath>
+    <DCC_IncludePath>..\..\Lib;..\..\Modulos\Lib</DCC_IncludePath>
+    <DCC_Define>RELEASE</DCC_Define>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_MapFile>3</DCC_MapFile>
+    <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;..\..\Modulos\Lib</DCC_UnitSearchPath>
+    <DCC_ResourcePath>..\..\Lib;..\..\Modulos\Lib</DCC_ResourcePath>
+    <DCC_ObjPath>..\..\Lib;..\..\Modulos\Lib</DCC_ObjPath>
+    <DCC_IncludePath>..\..\Lib;..\..\Modulos\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="PackageDescription">Gestión de usuarios</Package_Options><Package_Options Name="ImplicitBuild">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">3</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.3.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">Usuarios.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+  <ItemGroup>
+    <DelphiCompile Include="Usuarios.dpk">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="..\..\Modulos\Usuarios\Controller\Base.dcp" />
+    <DCCReference Include="..\..\Modulos\Usuarios\Controller\Empresas_controller.dcp" />
+    <DCCReference Include="..\..\Modulos\Usuarios\Controller\Empresas_model.dcp" />
+    <DCCReference Include="..\..\Modulos\Usuarios\Controller\JvMMD11R.dcp" />
+    <DCCReference Include="..\..\Modulos\Usuarios\Controller\vcl.dcp" />
+    <DCCReference Include="..\..\Modulos\Usuarios\Controller\vcldb.dcp" />
+    <DCCReference Include="uCambiarPassword.pas">
+      <Form>fCambiarPassword</Form>
+    </DCCReference>
+    <DCCReference Include="uDataModuleUsuarios.pas">
+      <Form>dmUsuarios</Form>
+    </DCCReference>
+    <DCCReference Include="uLoginForm.pas">
+      <Form>fLoginForm</Form>
+    </DCCReference>
+    <DCCReference Include="uUsuario.pas">
+      <Form>fUsuario</Form>
+    </DCCReference>
+    <DCCReference Include="uUsuarios.pas">
+      <Form>fUsuarios</Form>
+    </DCCReference>
+  </ItemGroup>
+</Project>
+<!-- EurekaLog First Line
+[Exception Log]
+EurekaLog Version=6006
+Activate=1
+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=1
+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=1
+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."
+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 -->

Source/ApplicationBase/_Usuarios_/Usuarios.rc

@@ -0,0 +1,22 @@
+1 VERSIONINFO
+FILEVERSION 1,0,3,0
+PRODUCTVERSION 1,0,3,0
+FILEFLAGSMASK 0x3FL
+FILEFLAGS 0x00L
+FILEOS 0x40004L
+FILETYPE 0x1L
+FILESUBTYPE 0x0L
+BEGIN
+    BLOCK "StringFileInfo"
+    BEGIN
+         BLOCK "0C0A04E4"
+         BEGIN
+              VALUE "FileVersion", "1.0.3.0\0"
+              VALUE "ProductVersion", "1.0.0.0\0"
+         END
+    END
+    BLOCK "VarFileInfo"
+    BEGIN
+         VALUE "Translation", 0x0C0A, 1252
+    END
+END

Source/ApplicationBase/_Usuarios_/uCambiarPassword.dfm

@@ -0,0 +1,94 @@
+object fCambiarPassword: TfCambiarPassword
+  Left = 460
+  Top = 492
+  Width = 361
+  Height = 299
+  Caption = 'Cambiar la contrase'#241'a'
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'MS Sans Serif'
+  Font.Style = []
+  OldCreateOrder = False
+  Position = poScreenCenter
+  PixelsPerInch = 96
+  TextHeight = 13
+  object bAceptar: TButton
+    Left = 136
+    Top = 230
+    Width = 120
+    Height = 25
+    Caption = '&Cambiar la contrase'#241'a'
+    Default = True
+    TabOrder = 0
+    OnClick = bAceptarClick
+  end
+  object bCancelar: TButton
+    Left = 269
+    Top = 230
+    Width = 75
+    Height = 25
+    Cancel = True
+    Caption = '&Cancelar'
+    ModalResult = 2
+    TabOrder = 1
+  end
+  object PageControl1: TPageControl
+    Left = 2
+    Top = 2
+    Width = 349
+    Height = 217
+    ActivePage = pagContrasena
+    TabOrder = 2
+    object pagContrasena: TTabSheet
+      Caption = 'Cambiar la contrase'#241'a'
+      object Label4: TLabel
+        Left = 16
+        Top = 19
+        Width = 167
+        Height = 13
+        Caption = 'Escriba la nueva contrase'#241'a:'
+        Font.Charset = DEFAULT_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -11
+        Font.Name = 'MS Sans Serif'
+        Font.Style = [fsBold]
+        ParentFont = False
+        Transparent = True
+      end
+      object Label1: TLabel
+        Left = 16
+        Top = 72
+        Width = 257
+        Height = 13
+        Caption = 'Repita la nueva contrase'#241'a para confirmarla:'
+        Font.Charset = DEFAULT_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -11
+        Font.Name = 'MS Sans Serif'
+        Font.Style = [fsBold]
+        ParentFont = False
+        Transparent = True
+      end
+      object edtPassword2: TEdit
+        Left = 16
+        Top = 88
+        Width = 295
+        Height = 21
+        CharCase = ecLowerCase
+        PasswordChar = '*'
+        TabOrder = 0
+      end
+      object edtPassword: TEdit
+        Left = 16
+        Top = 39
+        Width = 295
+        Height = 21
+        CharCase = ecLowerCase
+        PasswordChar = '*'
+        TabOrder = 1
+      end
+    end
+  end
+end

Source/ApplicationBase/_Usuarios_/uCambiarPassword.pas

@@ -0,0 +1,41 @@
+unit uCambiarPassword;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, StdCtrls, ComCtrls;
+
+type
+  TfCambiarPassword = class(TForm)
+    bAceptar: TButton;
+    bCancelar: TButton;
+    Label4: TLabel;
+    edtPassword: TEdit;
+    Label1: TLabel;
+    edtPassword2: TEdit;
+    PageControl1: TPageControl;
+    pagContrasena: TTabSheet;
+    procedure bAceptarClick(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  fCambiarPassword: TfCambiarPassword;
+
+implementation
+
+{$R *.dfm}
+
+procedure TfCambiarPassword.bAceptarClick(Sender: TObject);
+begin
+  if edtPassword2.Text <> edtPassword.Text then
+    raise Exception.Create('Por favor, introduzca la MISMA contraseña en los dos campos')
+  else
+    ModalResult := mrOK;
+end;
+
+end.

Source/ApplicationBase/_Usuarios_/uDataModuleUsuarios.dfm

@@ -0,0 +1,17 @@
+object dmUsuarios: TdmUsuarios
+  OldCreateOrder = True
+  OnCreate = DAClientDataModuleCreate
+  Height = 205
+  Width = 355
+  object ROLoginService: TRORemoteService
+    Message = dmConexion.ROMessage
+    Channel = dmConexion.ROChannel
+    ServiceName = 'srvLogin'
+    Left = 48
+    Top = 32
+  end
+  object DABINAdapter: TDABINAdapter
+    Left = 48
+    Top = 104
+  end
+end

Source/ApplicationBase/_Usuarios_/uDataModuleUsuarios.pas

@@ -0,0 +1,209 @@
+unit uDataModuleUsuarios;
+
+interface
+
+uses {vcl:} SysUtils, Classes, DB, DBClient,
+     {RemObjects:} uDAClientDataModule, uDADataTable, uDABINAdapter,
+  uROServiceComponent, uRORemoteService, uROClient, uROBinMessage,
+  uROWinInetHttpChannel, uDAScriptingProvider, uDACDSDataTable,
+  FactuGES_Intf, uIntegerListUtils, uBizEmpresas, uDADataStreamer;
+
+const
+  PERFIL_ADMINISTRADORES = 'Administradores';
+
+type
+  TdmUsuarios = class(TDAClientDataModule)
+    ROLoginService: TRORemoteService;
+    DABINAdapter: TDABINAdapter;
+    procedure DAClientDataModuleCreate(Sender: TObject);
+    procedure DAClientDataModuleDestroy(Sender: TObject);
+  private
+    FUsuario : String;
+    FPassword : String;   // Lo guardo para poder hacer una reconexión
+
+    FLoginInfo: TRdxLoginInfo;
+    FEmpresaActual: IBizEmpresa;
+    function CambiarPassword (const APassword : String) : boolean; overload;
+    function GetEsAdministrador: Boolean;
+
+    function GetEmpresas: TIntegerList;
+
+    procedure SetEmpresaActual(const Value: IBizEmpresa);
+    function GetIDEmpresaActual: Integer;
+    procedure SetIDEmpresaActual(const Value: Integer);
+  public
+    function Login: Boolean; overload;
+    function Login(Usuario: String; Password: String): Boolean; overload;
+    procedure Logout;
+    procedure CambiarPassword; overload;
+    property EsAdministrador : Boolean read GetEsAdministrador;
+    property IDEmpresaActual : Integer read GetIDEmpresaActual write SetIDEmpresaActual;
+    property EmpresaActual : IBizEmpresa read FEmpresaActual write SetEmpresaActual;
+    property Empresas : TIntegerList read GetEmpresas;
+    property LoginInfo: TRdxLoginInfo read FLoginInfo;
+  end;
+
+var
+  dmUsuarios: TdmUsuarios;
+
+implementation
+
+{$R *.DFM}
+
+uses
+  Forms, Controls, uDataTableUtils, uDataModuleConexion, uLoginForm,
+  uCambiarPassword, Dialogs, Windows, uEmpresasController;
+
+{ TDAClientDataModule1 }
+
+procedure TdmUsuarios.DAClientDataModuleCreate(Sender: TObject);
+begin
+  ROLoginService.Channel := dmConexion.Channel;
+  ROLoginService.Message := dmConexion.Message;
+  FEmpresaActual := nil;
+  FUsuario := '';
+  FPassword := '';
+  FLoginInfo := NIL;
+end;
+
+function TdmUsuarios.Login: Boolean;
+begin
+  // Intento hacer login si el usuario ya lo había hecho antes
+  if (Length(FUsuario) > 0) then
+    if Login(FUsuario, FPassword) then
+    begin
+      Result := True;
+      Exit;
+    end;
+
+  // Si no funcionar el login anterior o es la primera vez,
+  // saco la pantalla de login
+  with TfLoginForm.Create(NIL) do
+    try
+      if Assigned(FLoginInfo) then
+        edtUser.Text := FLoginInfo.Usuario;
+      Result := (ShowModal = mrOK)
+    finally
+      Free;
+    end;
+end;
+
+function TdmUsuarios.Login(Usuario: String; Password: String): Boolean;
+begin
+  // Libero la información del login anterior (sesión, etc)
+  if Assigned(FLoginInfo) then
+    FreeANDNil(FLoginInfo);
+
+  Result := (ROLoginService as IsrvLogin).Login(Usuario, Password, FLoginInfo);
+
+  if Result  then
+  begin
+    // Lo guardo para poder reconectarme
+    FUsuario := Usuario;
+    FPassword := Password;
+  end;
+end;
+
+procedure TdmUsuarios.Logout;
+begin
+  (ROLoginService as IsrvLogin).Logout;
+  if Assigned(FLoginInfo) then
+    FreeANDNil(FLoginInfo);
+  FUsuario := '';
+  FPassword := '';
+end;
+
+procedure TdmUsuarios.SetEmpresaActual(const Value: IBizEmpresa);
+begin
+  FEmpresaActual := Value;
+  FEmpresaActual.DataTable.Active := True;
+end;
+
+procedure TdmUsuarios.SetIDEmpresaActual(const Value: Integer);
+var
+  AEmpresasController : IEmpresasController;
+  AEmpresa : IBizEmpresa;
+begin
+  AEmpresasController := TEmpresasController.Create;
+  AEmpresa := AEmpresasController.Buscar(Value);
+  AEmpresa.DataTable.Active := True;
+  
+  if not AEmpresa.IsEmpty then
+  begin
+    FEmpresaActual := AEmpresa;
+    FEmpresaActual.DataTable.Active := True;
+  end
+  else
+    FEmpresaActual := NIL;
+end;
+
+procedure TdmUsuarios.DAClientDataModuleDestroy(Sender: TObject);
+begin
+  if Assigned(FLoginInfo) then
+    FreeANDNil(FLoginInfo);
+end;
+
+function TdmUsuarios.GetEmpresas: TIntegerList;
+var
+  i : integer;
+begin
+  Result := TIntegerList.Create;
+
+  if not Assigned(FLoginInfo) then
+    raise Exception.Create('Usuario no validado en el sistema (login)');
+
+  for i := 0 to FLoginInfo.Empresas.Count - 1 do
+    Result.Add(FLoginInfo.Empresas.Items[i]);
+end;
+
+function TdmUsuarios.GetEsAdministrador: Boolean;
+var
+  I: Integer;
+begin
+  Result := False;
+
+  if not Assigned(FLoginInfo) then
+    raise Exception.Create('Usuario no validado en el sistema (login)');
+
+  for I := 0 to FLoginInfo.Perfiles.Count - 1 do
+    if FLoginInfo.Perfiles.Items[I] = PERFIL_ADMINISTRADORES then
+    begin
+      Result := True;
+      Break;
+    end;
+end;
+
+function TdmUsuarios.GetIDEmpresaActual: Integer;
+begin
+  if not Assigned(FEmpresaActual) then
+    Result := ID_NULO
+  else
+    Result := FEmpresaActual.ID;
+end;
+
+procedure TdmUsuarios.CambiarPassword;
+begin
+  with TfCambiarPassword.Create(NIL) do
+    try
+      if ShowModal = mrOk then
+        if CambiarPassword(edtPassword.Text) then
+          Application.MessageBox('La contraseña ha sido cambiada correctamente.', 'Información', MB_OK);
+    finally
+      Free;
+    end;
+end;
+
+function TdmUsuarios.CambiarPassword(const APassword: String): boolean;
+begin
+{  if not (ROLoginService as IsrvLogin).SetUserPassword(LoginInfo.UserID, APassword) then
+    raise Exception.Create('Error en el servidor. No se ha podido cambiar la contraseña');}
+  Result := True;
+end;
+
+initialization
+  dmUsuarios := TdmUsuarios.Create(nil);
+
+finalization
+  FreeAndNil(dmUsuarios);
+
+end.

Source/ApplicationBase/_Usuarios_/uLoginForm.pas

@@ -52,13 +52,13 @@ procedure TfLoginForm.bAceptarClick(Sender: TObject);
 var
   bOk : Boolean;
 begin
-{  ShowHourglassCursor;
+  ShowHourglassCursor;
   try
     bOK := dmUsuarios.Login(edtUser.Text, edtPassword.Text);
   finally
     HideHourglassCursor;
   end;
-
+  
   if bOk then
     ModalResult := mrOK
   else begin
@@ -67,7 +67,7 @@ begin
     Dec(FIntentos);
     if (FIntentos <= 0) then
       ModalResult := mrCancel;
-  end;}
+  end;
 end;
 
 procedure TfLoginForm.FormCreate(Sender: TObject);

Source/ApplicationBase/_Usuarios_/uUsuario.dfm

@@ -0,0 +1,123 @@
+object fUsuario: TfUsuario
+  Left = 523
+  Top = 415
+  BorderStyle = bsDialog
+  Caption = 'Datos del usuario'
+  ClientHeight = 309
+  ClientWidth = 308
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'MS Sans Serif'
+  Font.Style = []
+  OldCreateOrder = False
+  Position = poScreenCenter
+  PixelsPerInch = 96
+  TextHeight = 13
+  object Button1: TButton
+    Left = 138
+    Top = 273
+    Width = 75
+    Height = 25
+    Action = actAceptar
+    TabOrder = 1
+  end
+  object Button2: TButton
+    Left = 226
+    Top = 273
+    Width = 75
+    Height = 25
+    Action = actCancelar
+    TabOrder = 2
+  end
+  object TabControl1: TPageControl
+    Left = 8
+    Top = 8
+    Width = 293
+    Height = 257
+    ActivePage = pagUsuario
+    TabOrder = 0
+    object pagUsuario: TTabSheet
+      Caption = 'Usuario'
+      object GroupBox1: TGroupBox
+        Left = 6
+        Top = 5
+        Width = 274
+        Height = 99
+        Caption = 'GroupBox1'
+        TabOrder = 0
+        DesignSize = (
+          274
+          99)
+        object Label4: TLabel
+          Left = 34
+          Top = 28
+          Width = 39
+          Height = 13
+          Caption = 'Usuario:'
+          Transparent = False
+        end
+        object Label5: TLabel
+          Left = 16
+          Top = 60
+          Width = 57
+          Height = 13
+          Caption = 'Contrase'#241'a:'
+          Transparent = False
+        end
+        object edtUser: TEdit
+          Left = 88
+          Top = 24
+          Width = 169
+          Height = 21
+          Anchors = [akLeft, akTop, akRight]
+          TabOrder = 0
+        end
+        object edtPassword: TEdit
+          Left = 88
+          Top = 56
+          Width = 169
+          Height = 21
+          Anchors = [akLeft, akTop, akRight]
+          PasswordChar = '*'
+          TabOrder = 1
+        end
+      end
+      object GroupBox2: TGroupBox
+        Left = 7
+        Top = 111
+        Width = 273
+        Height = 110
+        Caption = 'Permisos y seguridad'
+        TabOrder = 1
+        object Label1: TLabel
+          Left = 47
+          Top = 36
+          Width = 26
+          Height = 13
+          Caption = 'Perfil:'
+          Transparent = False
+        end
+        object cbPerfil: TComboBox
+          Left = 88
+          Top = 28
+          Width = 169
+          Height = 21
+          ItemHeight = 13
+          TabOrder = 0
+        end
+      end
+    end
+  end
+  object ActionList: TActionList
+    Left = 8
+    Top = 272
+    object actAceptar: TAction
+      Caption = '&Aceptar'
+    end
+    object actCancelar: TAction
+      Caption = '&Cancelar'
+    end
+  end
+end

Source/ApplicationBase/_Usuarios_/uUsuario.pas

@@ -0,0 +1,39 @@
+unit uUsuario;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, StdCtrls, ComCtrls, ActnList;
+
+type
+  TfUsuario = class(TForm)
+    Button1: TButton;
+    Button2: TButton;
+    TabControl1: TPageControl;
+    pagUsuario: TTabSheet;
+    GroupBox1: TGroupBox;
+    Label4: TLabel;
+    Label5: TLabel;
+    edtUser: TEdit;
+    edtPassword: TEdit;
+    GroupBox2: TGroupBox;
+    Label1: TLabel;
+    cbPerfil: TComboBox;
+    ActionList: TActionList;
+    actAceptar: TAction;
+    actCancelar: TAction;
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  fUsuario: TfUsuario;
+
+implementation
+
+{$R *.dfm}
+
+end.

Source/ApplicationBase/_Usuarios_/uUsuarios.dfm

@@ -0,0 +1,118 @@
+object fUsuarios: TfUsuarios
+  Left = 490
+  Top = 417
+  BorderStyle = bsDialog
+  Caption = 'Administraci'#243'n de usuarios'
+  ClientHeight = 401
+  ClientWidth = 550
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'MS Sans Serif'
+  Font.Style = []
+  OldCreateOrder = False
+  Position = poScreenCenter
+  OnCreate = FormCreate
+  PixelsPerInch = 96
+  TextHeight = 13
+  object Grid: TDBGrid
+    Left = 8
+    Top = 40
+    Width = 425
+    Height = 313
+    DataSource = DADataSource
+    TabOrder = 0
+    TitleFont.Charset = DEFAULT_CHARSET
+    TitleFont.Color = clWindowText
+    TitleFont.Height = -11
+    TitleFont.Name = 'MS Sans Serif'
+    TitleFont.Style = []
+  end
+  object JvNavPanelHeader1: TJvNavPanelHeader
+    Left = 0
+    Top = 0
+    Width = 550
+    Align = alTop
+    Caption = 'Panel de control'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindow
+    Font.Height = -16
+    Font.Name = 'Arial'
+    Font.Style = [fsBold]
+    ParentFont = False
+    ColorFrom = 8684164
+    ColorTo = 8684164
+    ImageIndex = 0
+    StyleManager = dmBase.StyleManager
+    ParentStyleManager = False
+  end
+  object Button1: TButton
+    Left = 448
+    Top = 40
+    Width = 91
+    Height = 25
+    Action = actNuevo
+    TabOrder = 2
+  end
+  object Button2: TButton
+    Left = 448
+    Top = 136
+    Width = 91
+    Height = 25
+    Action = actModificar
+    TabOrder = 3
+  end
+  object Button3: TButton
+    Left = 448
+    Top = 176
+    Width = 91
+    Height = 25
+    Action = actEliminar
+    TabOrder = 4
+  end
+  object Button4: TButton
+    Left = 448
+    Top = 368
+    Width = 91
+    Height = 25
+    Action = actCerrar
+    TabOrder = 5
+  end
+  object Button5: TButton
+    Left = 448
+    Top = 96
+    Width = 91
+    Height = 25
+    Action = actCambiarPassword
+    TabOrder = 6
+  end
+  object DADataSource: TDADataSource
+    Left = 368
+    Top = 40
+  end
+  object ActionList: TActionList
+    Left = 8
+    Top = 360
+    object actCerrar: TAction
+      Caption = '&Cerrar'
+      OnExecute = actCerrarExecute
+    end
+    object actNuevo: TAction
+      Caption = 'Nuevo usuario'
+      OnUpdate = actNuevoUpdate
+    end
+    object actCambiarPassword: TAction
+      Caption = 'Cambiar contrase'#241'a'
+      OnUpdate = actCambiarPasswordUpdate
+    end
+    object actModificar: TAction
+      Caption = 'Modificar usuario'
+      OnUpdate = actModificarUpdate
+    end
+    object actEliminar: TAction
+      Caption = 'Eliminar usuario'
+      OnUpdate = actEliminarUpdate
+    end
+  end
+end

Source/ApplicationBase/_Usuarios_/uUsuarios.pas

@@ -0,0 +1,89 @@
+unit uUsuarios;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, DB, uDADataTable, dbcgrids, uDataModuleUsuarios, StdCtrls,
+  DBCtrls, uDataModuleBase, JvExControls, JvComponent, JvNavigationPane,
+  Grids, DBGrids, ActnList, uDAInterfaces;
+
+type
+  TfUsuarios = class(TForm)
+    DADataSource: TDADataSource;
+    Grid: TDBGrid;
+    JvNavPanelHeader1: TJvNavPanelHeader;
+    Button1: TButton;
+    Button2: TButton;
+    Button3: TButton;
+    Button4: TButton;
+    Button5: TButton;
+    ActionList: TActionList;
+    actCerrar: TAction;
+    actNuevo: TAction;
+    actCambiarPassword: TAction;
+    actModificar: TAction;
+    actEliminar: TAction;
+    procedure actCerrarExecute(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
+    procedure actEliminarUpdate(Sender: TObject);
+    procedure actModificarUpdate(Sender: TObject);
+    procedure actCambiarPasswordUpdate(Sender: TObject);
+    procedure actNuevoUpdate(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+procedure AdministrarUsuarios;
+
+implementation
+
+{$R *.dfm}
+
+
+procedure AdministrarUsuarios;
+var
+  fUsuarios: TfUsuarios;
+begin
+  fUsuarios := TfUsuarios.Create(NIL);
+  try
+    fUsuarios.ShowModal;
+  finally
+    fUsuarios.Free;
+  end;
+end;
+
+procedure TfUsuarios.actCerrarExecute(Sender: TObject);
+begin
+  Close;
+end;
+
+procedure TfUsuarios.FormCreate(Sender: TObject);
+begin
+{  DADataSource.DataTable := dmUsuarios.tbl_Usuarios;
+  DADataSource.DataTable.Active := True;}
+end;
+
+procedure TfUsuarios.actEliminarUpdate(Sender: TObject);
+begin
+  (Sender as TAction).Enabled := not (DADataSource.DataTable.IsEmpty);
+end;
+
+procedure TfUsuarios.actModificarUpdate(Sender: TObject);
+begin
+  (Sender as TAction).Enabled := not (DADataSource.DataTable.IsEmpty);
+end;
+
+procedure TfUsuarios.actCambiarPasswordUpdate(Sender: TObject);
+begin
+  (Sender as TAction).Enabled := not (DADataSource.DataTable.IsEmpty);
+end;
+
+procedure TfUsuarios.actNuevoUpdate(Sender: TObject);
+begin
+  (Sender as TAction).Enabled := Assigned(DADataSource.DataTable);
+end;
+
+end.

Source/ApplicationBase/uFactuGES_App.pas

@@ -0,0 +1,145 @@
+unit uFactuGES_App;
+
+interface
+
+uses
+  SysUtils, Classes, Forms, uUsuarios, uBizEmpresas,
+  uEmpresasController, JclFileUtils, uUsuariosController;
+
+type
+  TAppFactuGES = class(TObject)
+  private
+    FAppInfo : TJclFileVersionInfo; 
+    FEmpresasController : IEmpresasController;
+    FUsuariosController: IUsuariosController;
+    FEmpresaActiva: IBizEmpresa;
+    FUsuarioActivo: TUsuario;
+    function GetAppForm: TCustomForm;
+    procedure SetEmpresaActiva(const Value: IBizEmpresa);
+    procedure SetUsuarioActivo(const Value: TUsuario);
+    function GetEmpresasController: IEmpresasController;
+    function GetUsuariosController: IUsuariosController;
+    function GetAppName: String;
+    function GetAppVersion: String;
+  protected
+    procedure InitializeInstance; virtual;
+    procedure DestroyInstance; virtual;
+  public
+    class function NewInstance: TObject; override;
+    procedure FreeInstance; override;
+    class function RefCount: Integer;
+    property AppVersion : String read GetAppVersion;
+    property AppName : String read GetAppName;
+    property AppForm : TCustomForm read GetAppForm;
+    property EmpresaActiva : IBizEmpresa read FEmpresaActiva write SetEmpresaActiva;
+    property UsuarioActivo : TUsuario read FUsuarioActivo write SetUsuarioActivo;
+    property EmpresasController : IEmpresasController read GetEmpresasController;
+    property UsuariosController : IUsuariosController read GetUsuariosController;
+  end;
+
+var
+  AppFactuGES : TAppFactuGES = nil;
+
+implementation
+
+uses
+  uDataModuleBase, uUsuariosViewRegister;
+
+var
+  Ref_Count : Integer = 0;
+
+procedure TAppFactuGES.DestroyInstance;
+begin
+
+end;
+
+procedure TAppFactuGES.FreeInstance;
+begin
+  Dec(Ref_Count);
+  if (Ref_Count = 0) then
+  begin
+    AppFactuGES := NIL;
+    // Destroy private variables here
+
+
+
+    inherited FreeInstance;
+  end;
+end;
+
+function TAppFactuGES.GetAppForm: TCustomForm;
+begin
+  Result := Application.MainForm;
+end;
+
+function TAppFactuGES.GetAppName: String;
+begin
+  Result := FAppInfo.ProductName;
+end;
+
+function TAppFactuGES.GetAppVersion: String;
+begin
+  Result := FAppInfo.ProductVersion;
+end;
+
+function TAppFactuGES.GetEmpresasController: IEmpresasController;
+begin
+  Result := FEmpresasController;
+end;
+
+function TAppFactuGES.GetUsuariosController: IUsuariosController;
+begin
+  Result := FUsuariosController;
+end;
+
+procedure TAppFactuGES.InitializeInstance;
+begin
+  FEmpresaActiva := NIL;
+  FUsuarioActivo := NIL;
+  FAppInfo := TJclFileVersionInfo.Create(Application.ExeName);
+  FUsuariosController := TUsuariosController.Create;
+  FEmpresasController := TEmpresasController.Create;
+end;
+
+class function TAppFactuGES.NewInstance: TObject;
+begin
+  if (not Assigned(AppFactuGES)) then
+  begin
+    AppFactuGES := TAppFactuGES(inherited NewInstance);
+    // Initialize private variables here
+    AppFactuGES.InitializeInstance;
+  end;
+  Result := AppFactuGES;
+  Inc(Ref_Count);
+end;
+
+class function TAppFactuGES.RefCount: Integer;
+begin
+  Result := Ref_Count;
+end;
+
+procedure TAppFactuGES.SetEmpresaActiva(const Value: IBizEmpresa);
+begin
+  FEmpresaActiva := Value;
+end;
+
+procedure TAppFactuGES.SetUsuarioActivo(const Value: TUsuario);
+begin
+  if Assigned(FUsuarioActivo) and (FUsuarioActivo <> Value) then
+    FreeAndNIL(FUsuarioActivo);
+  FUsuarioActivo := Value;
+end;
+
+initialization
+  AppFactuGES := TAppFactuGES.Create;
+
+  // Pongo esto aquí por ahora
+  uUsuariosViewRegister.RegisterViews;
+
+finalization
+  FreeAndNIL(AppFactuGES);
+
+  // Pongo esto aquí por ahora
+  uUsuariosViewRegister.UnregisterViews;
+
+end.

Source/Base/Base.bdsproj

@@ -1,183 +1,183 @@
 <?xml version="1.0" encoding="utf-8"?>
 <BorlandProject>
-  <PersonalityInfo>
+	<PersonalityInfo>
-    <Option>
+		<Option>
-      <Option Name="Personality">Delphi.Personality</Option>
+			<Option Name="Personality">Delphi.Personality</Option>
-      <Option Name="ProjectType">VCLApplication</Option>
+			<Option Name="ProjectType">VCLApplication</Option>
-      <Option Name="Version">1.0</Option>
+			<Option Name="Version">1.0</Option>
-      <Option Name="GUID">{70A31E92-41C6-4435-A901-D77C3D82951E}</Option>
+			<Option Name="GUID">{70A31E92-41C6-4435-A901-D77C3D82951E}</Option>
-    </Option>
+		</Option>
-  </PersonalityInfo>
+	</PersonalityInfo>
-  <Delphi.Personality>
+	<Delphi.Personality>
-    <Source>
+		<Source>
-      <Source Name="MainSource">Base.dpk</Source>
+			<Source Name="MainSource">Base.dpk</Source>
-    </Source>
+		</Source>
-    <FileVersion>
+		<FileVersion>
-      <FileVersion Name="Version">7.0</FileVersion>
+			<FileVersion Name="Version">7.0</FileVersion>
-    </FileVersion>
+		</FileVersion>
-    <Compiler>
+		<Compiler>
-      <Compiler Name="A">8</Compiler>
+			<Compiler Name="A">8</Compiler>
-      <Compiler Name="B">0</Compiler>
+			<Compiler Name="B">0</Compiler>
-      <Compiler Name="C">1</Compiler>
+			<Compiler Name="C">1</Compiler>
-      <Compiler Name="D">1</Compiler>
+			<Compiler Name="D">1</Compiler>
-      <Compiler Name="E">0</Compiler>
+			<Compiler Name="E">0</Compiler>
-      <Compiler Name="F">0</Compiler>
+			<Compiler Name="F">0</Compiler>
-      <Compiler Name="G">1</Compiler>
+			<Compiler Name="G">1</Compiler>
-      <Compiler Name="H">1</Compiler>
+			<Compiler Name="H">1</Compiler>
-      <Compiler Name="I">1</Compiler>
+			<Compiler Name="I">1</Compiler>
-      <Compiler Name="J">0</Compiler>
+			<Compiler Name="J">0</Compiler>
-      <Compiler Name="K">0</Compiler>
+			<Compiler Name="K">0</Compiler>
-      <Compiler Name="L">1</Compiler>
+			<Compiler Name="L">1</Compiler>
-      <Compiler Name="M">0</Compiler>
+			<Compiler Name="M">0</Compiler>
-      <Compiler Name="N">1</Compiler>
+			<Compiler Name="N">1</Compiler>
-      <Compiler Name="O">0</Compiler>
+			<Compiler Name="O">0</Compiler>
-      <Compiler Name="P">1</Compiler>
+			<Compiler Name="P">1</Compiler>
-      <Compiler Name="Q">0</Compiler>
+			<Compiler Name="Q">0</Compiler>
-      <Compiler Name="R">0</Compiler>
+			<Compiler Name="R">0</Compiler>
-      <Compiler Name="S">0</Compiler>
+			<Compiler Name="S">0</Compiler>
-      <Compiler Name="T">0</Compiler>
+			<Compiler Name="T">0</Compiler>
-      <Compiler Name="U">0</Compiler>
+			<Compiler Name="U">0</Compiler>
-      <Compiler Name="V">1</Compiler>
+			<Compiler Name="V">1</Compiler>
-      <Compiler Name="W">1</Compiler>
+			<Compiler Name="W">1</Compiler>
-      <Compiler Name="X">1</Compiler>
+			<Compiler Name="X">1</Compiler>
-      <Compiler Name="Y">1</Compiler>
+			<Compiler Name="Y">1</Compiler>
-      <Compiler Name="Z">1</Compiler>
+			<Compiler Name="Z">1</Compiler>
-      <Compiler Name="ShowHints">True</Compiler>
+			<Compiler Name="ShowHints">True</Compiler>
-      <Compiler Name="ShowWarnings">True</Compiler>
+			<Compiler Name="ShowWarnings">True</Compiler>
-      <Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
+			<Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
-      <Compiler Name="NamespacePrefix"></Compiler>
+			<Compiler Name="NamespacePrefix"></Compiler>
-      <Compiler Name="GenerateDocumentation">False</Compiler>
+			<Compiler Name="GenerateDocumentation">False</Compiler>
-      <Compiler Name="DefaultNamespace"></Compiler>
+			<Compiler Name="DefaultNamespace"></Compiler>
-      <Compiler Name="SymbolDeprecated">True</Compiler>
+			<Compiler Name="SymbolDeprecated">True</Compiler>
-      <Compiler Name="SymbolLibrary">True</Compiler>
+			<Compiler Name="SymbolLibrary">True</Compiler>
-      <Compiler Name="SymbolPlatform">True</Compiler>
+			<Compiler Name="SymbolPlatform">True</Compiler>
-      <Compiler Name="SymbolExperimental">True</Compiler>
+			<Compiler Name="SymbolExperimental">True</Compiler>
-      <Compiler Name="UnitLibrary">True</Compiler>
+			<Compiler Name="UnitLibrary">True</Compiler>
-      <Compiler Name="UnitPlatform">True</Compiler>
+			<Compiler Name="UnitPlatform">True</Compiler>
-      <Compiler Name="UnitDeprecated">True</Compiler>
+			<Compiler Name="UnitDeprecated">True</Compiler>
-      <Compiler Name="UnitExperimental">True</Compiler>
+			<Compiler Name="UnitExperimental">True</Compiler>
-      <Compiler Name="HResultCompat">True</Compiler>
+			<Compiler Name="HResultCompat">True</Compiler>
-      <Compiler Name="HidingMember">True</Compiler>
+			<Compiler Name="HidingMember">True</Compiler>
-      <Compiler Name="HiddenVirtual">True</Compiler>
+			<Compiler Name="HiddenVirtual">True</Compiler>
-      <Compiler Name="Garbage">True</Compiler>
+			<Compiler Name="Garbage">True</Compiler>
-      <Compiler Name="BoundsError">True</Compiler>
+			<Compiler Name="BoundsError">True</Compiler>
-      <Compiler Name="ZeroNilCompat">True</Compiler>
+			<Compiler Name="ZeroNilCompat">True</Compiler>
-      <Compiler Name="StringConstTruncated">True</Compiler>
+			<Compiler Name="StringConstTruncated">True</Compiler>
-      <Compiler Name="ForLoopVarVarPar">True</Compiler>
+			<Compiler Name="ForLoopVarVarPar">True</Compiler>
-      <Compiler Name="TypedConstVarPar">True</Compiler>
+			<Compiler Name="TypedConstVarPar">True</Compiler>
-      <Compiler Name="AsgToTypedConst">True</Compiler>
+			<Compiler Name="AsgToTypedConst">True</Compiler>
-      <Compiler Name="CaseLabelRange">True</Compiler>
+			<Compiler Name="CaseLabelRange">True</Compiler>
-      <Compiler Name="ForVariable">True</Compiler>
+			<Compiler Name="ForVariable">True</Compiler>
-      <Compiler Name="ConstructingAbstract">True</Compiler>
+			<Compiler Name="ConstructingAbstract">True</Compiler>
-      <Compiler Name="ComparisonFalse">True</Compiler>
+			<Compiler Name="ComparisonFalse">True</Compiler>
-      <Compiler Name="ComparisonTrue">True</Compiler>
+			<Compiler Name="ComparisonTrue">True</Compiler>
-      <Compiler Name="ComparingSignedUnsigned">True</Compiler>
+			<Compiler Name="ComparingSignedUnsigned">True</Compiler>
-      <Compiler Name="CombiningSignedUnsigned">True</Compiler>
+			<Compiler Name="CombiningSignedUnsigned">True</Compiler>
-      <Compiler Name="UnsupportedConstruct">True</Compiler>
+			<Compiler Name="UnsupportedConstruct">True</Compiler>
-      <Compiler Name="FileOpen">True</Compiler>
+			<Compiler Name="FileOpen">True</Compiler>
-      <Compiler Name="FileOpenUnitSrc">True</Compiler>
+			<Compiler Name="FileOpenUnitSrc">True</Compiler>
-      <Compiler Name="BadGlobalSymbol">True</Compiler>
+			<Compiler Name="BadGlobalSymbol">True</Compiler>
-      <Compiler Name="DuplicateConstructorDestructor">True</Compiler>
+			<Compiler Name="DuplicateConstructorDestructor">True</Compiler>
-      <Compiler Name="InvalidDirective">True</Compiler>
+			<Compiler Name="InvalidDirective">True</Compiler>
-      <Compiler Name="PackageNoLink">True</Compiler>
+			<Compiler Name="PackageNoLink">True</Compiler>
-      <Compiler Name="PackageThreadVar">True</Compiler>
+			<Compiler Name="PackageThreadVar">True</Compiler>
-      <Compiler Name="ImplicitImport">True</Compiler>
+			<Compiler Name="ImplicitImport">True</Compiler>
-      <Compiler Name="HPPEMITIgnored">True</Compiler>
+			<Compiler Name="HPPEMITIgnored">True</Compiler>
-      <Compiler Name="NoRetVal">True</Compiler>
+			<Compiler Name="NoRetVal">True</Compiler>
-      <Compiler Name="UseBeforeDef">True</Compiler>
+			<Compiler Name="UseBeforeDef">True</Compiler>
-      <Compiler Name="ForLoopVarUndef">True</Compiler>
+			<Compiler Name="ForLoopVarUndef">True</Compiler>
-      <Compiler Name="UnitNameMismatch">True</Compiler>
+			<Compiler Name="UnitNameMismatch">True</Compiler>
-      <Compiler Name="NoCFGFileFound">True</Compiler>
+			<Compiler Name="NoCFGFileFound">True</Compiler>
-      <Compiler Name="ImplicitVariants">True</Compiler>
+			<Compiler Name="ImplicitVariants">True</Compiler>
-      <Compiler Name="UnicodeToLocale">True</Compiler>
+			<Compiler Name="UnicodeToLocale">True</Compiler>
-      <Compiler Name="LocaleToUnicode">True</Compiler>
+			<Compiler Name="LocaleToUnicode">True</Compiler>
-      <Compiler Name="ImagebaseMultiple">True</Compiler>
+			<Compiler Name="ImagebaseMultiple">True</Compiler>
-      <Compiler Name="SuspiciousTypecast">True</Compiler>
+			<Compiler Name="SuspiciousTypecast">True</Compiler>
-      <Compiler Name="PrivatePropAccessor">True</Compiler>
+			<Compiler Name="PrivatePropAccessor">True</Compiler>
-      <Compiler Name="UnsafeType">False</Compiler>
+			<Compiler Name="UnsafeType">False</Compiler>
-      <Compiler Name="UnsafeCode">False</Compiler>
+			<Compiler Name="UnsafeCode">False</Compiler>
-      <Compiler Name="UnsafeCast">False</Compiler>
+			<Compiler Name="UnsafeCast">False</Compiler>
-      <Compiler Name="OptionTruncated">True</Compiler>
+			<Compiler Name="OptionTruncated">True</Compiler>
-      <Compiler Name="WideCharReduced">True</Compiler>
+			<Compiler Name="WideCharReduced">True</Compiler>
-      <Compiler Name="DuplicatesIgnored">True</Compiler>
+			<Compiler Name="DuplicatesIgnored">True</Compiler>
-      <Compiler Name="UnitInitSeq">True</Compiler>
+			<Compiler Name="UnitInitSeq">True</Compiler>
-      <Compiler Name="LocalPInvoke">True</Compiler>
+			<Compiler Name="LocalPInvoke">True</Compiler>
-      <Compiler Name="MessageDirective">True</Compiler>
+			<Compiler Name="MessageDirective">True</Compiler>
-      <Compiler Name="TypeInfoImplicitlyAdded">True</Compiler>
+			<Compiler Name="TypeInfoImplicitlyAdded">True</Compiler>
-      <Compiler Name="XMLWhitespaceNotAllowed">True</Compiler>
+			<Compiler Name="XMLWhitespaceNotAllowed">True</Compiler>
-      <Compiler Name="XMLUnknownEntity">True</Compiler>
+			<Compiler Name="XMLUnknownEntity">True</Compiler>
-      <Compiler Name="XMLInvalidNameStart">True</Compiler>
+			<Compiler Name="XMLInvalidNameStart">True</Compiler>
-      <Compiler Name="XMLInvalidName">True</Compiler>
+			<Compiler Name="XMLInvalidName">True</Compiler>
-      <Compiler Name="XMLExpectedCharacter">True</Compiler>
+			<Compiler Name="XMLExpectedCharacter">True</Compiler>
-      <Compiler Name="XMLCRefNoResolve">True</Compiler>
+			<Compiler Name="XMLCRefNoResolve">True</Compiler>
-      <Compiler Name="XMLNoParm">True</Compiler>
+			<Compiler Name="XMLNoParm">True</Compiler>
-      <Compiler Name="XMLNoMatchingParm">True</Compiler>
+			<Compiler Name="XMLNoMatchingParm">True</Compiler>
-      <Compiler Name="CodePage"></Compiler>
+			<Compiler Name="CodePage"></Compiler>
-    </Compiler>
+		</Compiler>
-    <Linker>
+		<Linker>
-      <Linker Name="MapFile">0</Linker>
+			<Linker Name="MapFile">0</Linker>
-      <Linker Name="OutputObjs">0</Linker>
+			<Linker Name="OutputObjs">0</Linker>
-      <Linker Name="GenerateHpps">False</Linker>
+			<Linker Name="GenerateHpps">False</Linker>
-      <Linker Name="ConsoleApp">1</Linker>
+			<Linker Name="ConsoleApp">1</Linker>
-      <Linker Name="DebugInfo">False</Linker>
+			<Linker Name="DebugInfo">False</Linker>
-      <Linker Name="RemoteSymbols">False</Linker>
+			<Linker Name="RemoteSymbols">False</Linker>
-      <Linker Name="GenerateDRC">False</Linker>
+			<Linker Name="GenerateDRC">False</Linker>
-      <Linker Name="MinStackSize">16384</Linker>
+			<Linker Name="MinStackSize">16384</Linker>
-      <Linker Name="MaxStackSize">1048576</Linker>
+			<Linker Name="MaxStackSize">1048576</Linker>
-      <Linker Name="ImageBase">4194304</Linker>
+			<Linker Name="ImageBase">4194304</Linker>
-      <Linker Name="ExeDescription">Libreria base de FactuGES</Linker>
+			<Linker Name="ExeDescription">Libreria base de FactuGES</Linker>
-    </Linker>
+		</Linker>
-    <Directories>
+		<Directories>
-      <Directories Name="OutputDir"></Directories>
+			<Directories Name="OutputDir"></Directories>
-      <Directories Name="UnitOutputDir">.\</Directories>
+			<Directories Name="UnitOutputDir">.\</Directories>
-      <Directories Name="PackageDLLOutputDir">..\..\Output\Debug\Cliente</Directories>
+			<Directories Name="PackageDLLOutputDir">..\..\Output\Debug\Cliente</Directories>
-      <Directories Name="PackageDCPOutputDir">..\Lib</Directories>
+			<Directories Name="PackageDCPOutputDir">..\Lib</Directories>
-      <Directories Name="SearchPath">..\Lib</Directories>
+			<Directories Name="SearchPath"></Directories>
-      <Directories Name="Packages"></Directories>
+			<Directories Name="Packages"></Directories>
-      <Directories Name="Conditionals"></Directories>
+			<Directories Name="Conditionals"></Directories>
-      <Directories Name="DebugSourceDirs"></Directories>
+			<Directories Name="DebugSourceDirs"></Directories>
-      <Directories Name="UsePackages">False</Directories>
+			<Directories Name="UsePackages">False</Directories>
-    </Directories>
+		</Directories>
-    <Parameters>
+		<Parameters>
-      <Parameters Name="RunParams"></Parameters>
+			<Parameters Name="RunParams"></Parameters>
-      <Parameters Name="HostApplication"></Parameters>
+			<Parameters Name="HostApplication"></Parameters>
-      <Parameters Name="Launcher"></Parameters>
+			<Parameters Name="Launcher"></Parameters>
-      <Parameters Name="UseLauncher">False</Parameters>
+			<Parameters Name="UseLauncher">False</Parameters>
-      <Parameters Name="DebugCWD"></Parameters>
+			<Parameters Name="DebugCWD"></Parameters>
-      <Parameters Name="Debug Symbols Search Path"></Parameters>
+			<Parameters Name="Debug Symbols Search Path"></Parameters>
-      <Parameters Name="LoadAllSymbols">True</Parameters>
+			<Parameters Name="LoadAllSymbols">True</Parameters>
-      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+			<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
-    </Parameters>
+		</Parameters>
-    <Signing>
+		<Signing>
-      <Signing Name="SignAssembly">False</Signing>
+			<Signing Name="SignAssembly">False</Signing>
-    </Signing>
+		</Signing>
-    <VersionInfo>
+		<VersionInfo>
-      <VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+			<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
-      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+			<VersionInfo Name="AutoIncBuild">False</VersionInfo>
-      <VersionInfo Name="MajorVer">1</VersionInfo>
+			<VersionInfo Name="MajorVer">1</VersionInfo>
-      <VersionInfo Name="MinorVer">0</VersionInfo>
+			<VersionInfo Name="MinorVer">0</VersionInfo>
-      <VersionInfo Name="Release">0</VersionInfo>
+			<VersionInfo Name="Release">0</VersionInfo>
-      <VersionInfo Name="Build">0</VersionInfo>
+			<VersionInfo Name="Build">0</VersionInfo>
-      <VersionInfo Name="Debug">False</VersionInfo>
+			<VersionInfo Name="Debug">False</VersionInfo>
-      <VersionInfo Name="PreRelease">False</VersionInfo>
+			<VersionInfo Name="PreRelease">False</VersionInfo>
-      <VersionInfo Name="Special">False</VersionInfo>
+			<VersionInfo Name="Special">False</VersionInfo>
-      <VersionInfo Name="Private">False</VersionInfo>
+			<VersionInfo Name="Private">False</VersionInfo>
-      <VersionInfo Name="DLL">False</VersionInfo>
+			<VersionInfo Name="DLL">False</VersionInfo>
-      <VersionInfo Name="Locale">3082</VersionInfo>
+			<VersionInfo Name="Locale">3082</VersionInfo>
-      <VersionInfo Name="CodePage">1252</VersionInfo>
+			<VersionInfo Name="CodePage">1252</VersionInfo>
-    </VersionInfo>
+		</VersionInfo>
-    <VersionInfoKeys>
+		<VersionInfoKeys>
-      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+			<VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
-      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+			<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
-      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+			<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
-      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+			<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
-      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+			<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
-      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+			<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
-      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+			<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
-      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+			<VersionInfoKeys Name="ProductName"></VersionInfoKeys>
-      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+			<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
-    </VersionInfoKeys>
+		</VersionInfoKeys>
-    <Excluded_Packages>
+		<Excluded_Packages>
       <Excluded_Packages Name="$(BDS)\Bin\dclintraweb_90_100.bpl">VCL for the Web Design Package for CodeGear RAD Studio</Excluded_Packages>
       <Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages>
       <Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages>
@@ -186,10 +186,9 @@
       <Excluded_Packages Name="$(BDS)\bin\bcboffice2k100.bpl">CodeGear C++Builder Office 2000 Servers Package</Excluded_Packages>
       <Excluded_Packages Name="$(BDS)\bin\bcbofficexp100.bpl">CodeGear C++Builder Office XP Servers Package</Excluded_Packages>
     </Excluded_Packages>
-    <buildevents/>
+		<buildevents/>
-  </Delphi.Personality>
+	</Delphi.Personality>
 </BorlandProject>
-
 <!-- EurekaLog First Line
 [Exception Log]
 EurekaLog Version=6006

Source/Base/Base.cfg

@@ -34,7 +34,3 @@
 -N0".\"
 -LE"..\..\Output\Debug\Cliente"
 -LN"..\Lib"
--U"..\Lib"
--O"..\Lib"
--I"..\Lib"
--R"..\Lib"

Source/Base/Base.dpk

@@ -24,6 +24,7 @@ package Base;
 {$IMAGEBASE $400000}
 {$DESCRIPTION 'Libreria base de FactuGES'}
 {$IMPLICITBUILD ON}
+{$DEFINE DEBUG}
 
 requires
   rtl,
@@ -61,7 +62,19 @@ requires
   dbrtl,
   vcldb,
   dsnap,
-  adortl;
+  adortl,
+  vclactnband,
+  vclx,
+  JclVcl,
+  JvMMD11R,
+  JvCtrlsD11R,
+  pckUCDataConnector,
+  pckUserControl_RT,
+  dclIndyCore,
+  designide,
+  xmlrtl,
+  VclSmp,
+  pckMD5;
 
 contains
   uDataTableUtils in 'Utiles\uDataTableUtils.pas',
@@ -83,7 +96,6 @@ contains
   uMD5 in 'Utiles\uMD5.pas',
   uPasswordUtils in 'Utiles\uPasswordUtils.pas',
   uInfoProjectUtils in 'Utiles\uInfoProjectUtils.pas',
-  uActualizacion in 'Actualizacion\uActualizacion.pas' {fActualizacion: Form},
   uInformeRegistryUtils in 'Utiles\ClassRegistry\uInformeRegistryUtils.pas',
   uControllerDetallesDTO in 'Controladores\uControllerDetallesDTO.pas',
   uControllerBase in 'Controladores\uControllerBase.pas',

Source/Base/Base.dproj

@@ -1,7 +1,6 @@
-<?xml version="1.0" encoding="utf-8"?>
+<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
-<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
   <PropertyGroup>
-    <ProjectGuid>{54e18752-5574-484b-98ba-8f1f8ea0617d}</ProjectGuid>
+    <ProjectGuid>{70a31e92-41c6-4435-a901-d77c3d82951e}</ProjectGuid>
     <MainSource>Base.dpk</MainSource>
     <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
     <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
@@ -15,12 +14,12 @@
     <DCC_Optimize>False</DCC_Optimize>
     <DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
     <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
-    <DCC_Define>RELEASE</DCC_Define>
     <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_Define>RELEASE</DCC_Define>
   </PropertyGroup>
   <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
     <Version>7.0</Version>
@@ -31,17 +30,14 @@
     <DCC_HppOutput>.\</DCC_HppOutput>
     <DCC_BplOutput>..\..\Output\Debug\Cliente</DCC_BplOutput>
     <DCC_DcpOutput>..\Lib</DCC_DcpOutput>
-    <DCC_MapFile>3</DCC_MapFile>
+    <DCC_Define>DEBUG</DCC_Define>
-    <DCC_UnitSearchPath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10;T:\COMPON~1\jcl\lib\d11\debug;$(BDSCOMMONDIR)\Dcp</DCC_UnitSearchPath>
-    <DCC_ResourcePath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10;T:\COMPON~1\jcl\lib\d11\debug;$(BDSCOMMONDIR)\Dcp</DCC_ResourcePath>
-    <DCC_ObjPath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10;T:\COMPON~1\jcl\lib\d11\debug;$(BDSCOMMONDIR)\Dcp</DCC_ObjPath>
-    <DCC_IncludePath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10;T:\COMPON~1\jcl\lib\d11\debug;$(BDSCOMMONDIR)\Dcp</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="PackageDescription">Libreria base de FactuGES</Package_Options><Package_Options Name="ImplicitBuild">True</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><Excluded_Packages>
+<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="PackageDescription">Libreria base de FactuGES</Package_Options><Package_Options Name="ImplicitBuild">True</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><Excluded_Packages>
+      <Excluded_Packages Name="$(BDS)\Bin\dclintraweb_90_100.bpl">VCL for the Web Design Package for CodeGear RAD Studio</Excluded_Packages>
       <Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages>
       <Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages>
       <Excluded_Packages Name="$(BDS)\bin\dclofficexp100.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
@@ -56,13 +52,54 @@
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
     <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
-    <DCCReference Include="Actualizacion\uActualizacion.pas">
+    <DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
-      <Form>fActualizacion</Form>
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxDataD10.dcp" />
-    </DCCReference>
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD10.dcp" />
-    <DCCReference Include="ClassRegistry\uClassRegistryUtils.pas" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxExportD10.dcp" />
-    <DCCReference Include="ClassRegistry\uEditorRegistryUtils.pas" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxExtEditorsD10.dcp" />
-    <DCCReference Include="ClassRegistry\uInformeRegistryUtils.pas" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxGridD10.dcp" />
-    <DCCReference Include="ClassRegistry\uViewRegistryUtils.pas" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxIntl5D10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxIntlPrintSys3D10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxPageControlD10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\DataAbstract_Core_D10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dclIndyCore.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\designide.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxPSCoreD10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\GUISDK_D11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\IndyCore.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\IndyProtocols.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\IndySystem.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\Jcl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JclVcl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JSDialog100.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvCoreD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvDlgsD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvMMD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvNetD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvPageCompsD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvStdCtrlsD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvSystemD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\pckMD5.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\pckUCDataConnector.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\pckUserControl_RT.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Core_D10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\TB2k_D10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\tbx_d10.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\VclSmp.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\xmlrtl.dcp" />
     <DCCReference Include="Conexion\uConfigurarConexion.pas">
       <Form>fConfigurarConexion</Form>
     </DCCReference>
@@ -72,60 +109,12 @@
     <DCCReference Include="Configuracion\uDataModuleConfiguracion.pas">
       <Form>dmConfiguracion</Form>
     </DCCReference>
-    <DCCReference Include="Controladores\adortl.dcp" />
-    <DCCReference Include="Controladores\cxDataD10.dcp" />
-    <DCCReference Include="Controladores\cxEditorsD10.dcp" />
-    <DCCReference Include="Controladores\cxExportD10.dcp" />
-    <DCCReference Include="Controladores\cxExtEditorsD10.dcp" />
-    <DCCReference Include="Controladores\cxGridD10.dcp" />
-    <DCCReference Include="Controladores\cxIntl5D10.dcp" />
-    <DCCReference Include="Controladores\cxIntlPrintSys3D10.dcp" />
-    <DCCReference Include="Controladores\cxLibraryD10.dcp" />
-    <DCCReference Include="Controladores\cxPageControlD10.dcp" />
-    <DCCReference Include="Controladores\DataAbstract_Core_D10.dcp" />
-    <DCCReference Include="Controladores\dbrtl.dcp" />
-    <DCCReference Include="Controladores\dsnap.dcp" />
-    <DCCReference Include="Controladores\dxPSCoreD10.dcp" />
-    <DCCReference Include="Controladores\dxThemeD10.dcp" />
-    <DCCReference Include="Controladores\GUISDK_D11.dcp" />
-    <DCCReference Include="Controladores\IndyCore.dcp" />
-    <DCCReference Include="Controladores\IndyProtocols.dcp" />
-    <DCCReference Include="Controladores\IndySystem.dcp" />
-    <DCCReference Include="Controladores\Jcl.dcp" />
-    <DCCReference Include="Controladores\JSDialog100.dcp" />
-    <DCCReference Include="Controladores\JvCoreD11R.dcp" />
-    <DCCReference Include="Controladores\JvDlgsD11R.dcp" />
-    <DCCReference Include="Controladores\JvNetD11R.dcp" />
-    <DCCReference Include="Controladores\JvPageCompsD11R.dcp" />
-    <DCCReference Include="Controladores\JvStdCtrlsD11R.dcp" />
-    <DCCReference Include="Controladores\JvSystemD11R.dcp" />
-    <DCCReference Include="Controladores\PngComponentsD10.dcp" />
-    <DCCReference Include="Controladores\PNG_D10.dcp" />
-    <DCCReference Include="Controladores\RemObjects_Core_D10.dcp" />
-    <DCCReference Include="Controladores\rtl.dcp" />
-    <DCCReference Include="Controladores\TB2k_D10.dcp" />
-    <DCCReference Include="Controladores\tbx_d10.dcp" />
     <DCCReference Include="Controladores\uControllerBase.pas" />
     <DCCReference Include="Controladores\uControllerDetallesBase.pas" />
     <DCCReference Include="Controladores\uControllerDetallesDTO.pas" />
-    <DCCReference Include="Controladores\vcl.dcp" />
-    <DCCReference Include="Controladores\vcldb.dcp" />
-    <DCCReference Include="Controladores\vcljpg.dcp" />
-    <DCCReference Include="uActualizacion.pas">
-      <Form>fActualizacion</Form>
-    </DCCReference>
-    <DCCReference Include="uConfigurarConexion.pas">
-      <Form>fConfigurarConexion</Form>
-    </DCCReference>
     <DCCReference Include="uDataModuleBase.pas">
       <Form>dmBase</Form>
     </DCCReference>
-    <DCCReference Include="uDataModuleConexion.pas">
-      <Form>dmConexion</Form>
-    </DCCReference>
-    <DCCReference Include="uDataModuleConfiguracion.pas">
-      <Form>dmConfiguracion</Form>
-    </DCCReference>
     <DCCReference Include="Utiles\ClassRegistry\uClassRegistryUtils.pas" />
     <DCCReference Include="Utiles\ClassRegistry\uEditorRegistryUtils.pas" />
     <DCCReference Include="Utiles\ClassRegistry\uInformeRegistryUtils.pas" />
@@ -146,7 +135,7 @@
 <!-- EurekaLog First Line
 [Exception Log]
 EurekaLog Version=6006
-Activate=1
+Activate=0
 Activate Handle=1
 Save Log File=1
 Foreground Tab=0
@@ -624,5 +613,5 @@ Count mtException_AntiFreeze=1
 mtException_AntiFreeze0="The application seems to be frozen."
 Count mtInvalidEmailMsg=1
 mtInvalidEmailMsg0="Invalid email."
-TextsCollection=
+TextsCollection=English
 EurekaLog Last Line -->

Source/Base/Base.drc

@@ -14,10 +14,10 @@ BEGIN
 	uClassRegistryUtils_eClassnotFound,	"Class \"%s\" was not found in the registry."
 END
 
-/* C:\Codigo Tecsitel\Source\Base\Conexion\uConfigurarConexion.dfm */
+/* Conexion\uConfigurarConexion.dfm */
-/* C:\Codigo Tecsitel\Source\Base\Conexion\uDataModuleConexion.dfm */
+/* Conexion\uDataModuleConexion.dfm */
-/* C:\Codigo Tecsitel\Source\Base\Configuracion\uDataModuleConfiguracion.dfm */
+/* Configuracion\uDataModuleConfiguracion.dfm */
-/* C:\Codigo Tecsitel\Source\Base\uDataModuleBase.DFM */
+/* uDataModuleBase.DFM */
-/* C:\Codigo Tecsitel\Source\Base\Actualizacion\uActualizacion.dfm */
+/* Actualizacion\uActualizacion.dfm */
 /* C:\Codigo Tecsitel\Source\Base\Base.res */
 /* C:\Codigo Tecsitel\Source\Base\Base.drf */

Source/Base/Controladores/uControllerBase.pas

@@ -39,6 +39,9 @@ type
     destructor Destroy; override;
   end;
 
+  IControllerBase = IObservador;
+  TControllerBase = TObservador;
+
 implementation
 
 uses

Source/Base/Usuarios/Data/uDataModuleUsuarios.dfm

@@ -1,76 +0,0 @@
-object DataModuleUsuarios: TDataModuleUsuarios
-  OldCreateOrder = True
-  OnCreate = DAClientDataModuleCreate
-  Height = 205
-  Width = 355
-  object ROLoginService: TRORemoteService
-    Message = dmConexion.ROMessage
-    Channel = dmConexion.ROChannel
-    ServiceName = 'srvLogin'
-    Left = 48
-    Top = 32
-  end
-  object srvUsuarios: TRORemoteService
-    Message = dmConexion.ROMessage
-    Channel = dmConexion.ROChannel
-    ServiceName = 'srvUsuarios'
-    Left = 152
-    Top = 32
-  end
-  object Bin2DataStreamer: TDABin2DataStreamer
-    Left = 48
-    Top = 104
-  end
-  object UserControl1: TUserControl
-    ApplicationID = 'ProjetoNovo'
-    LogControl.TableLog = 'UCLog'
-    EncryptKey = 0
-    Login.InitialLogin.User = 'admin'
-    Login.InitialLogin.Email = 'usercontrol@usercontrol.net'
-    Login.InitialLogin.Password = '123mudar'
-    Login.MaxLoginAttempts = 0
-    ExtraRights = <>
-    TableUsers.FieldUserID = 'UCIdUser'
-    TableUsers.FieldUserName = 'UCUserName'
-    TableUsers.FieldLogin = 'UCLogin'
-    TableUsers.FieldPassword = 'UCPassword'
-    TableUsers.FieldEmail = 'UCEmail'
-    TableUsers.FieldPrivileged = 'UCPrivileged'
-    TableUsers.FieldTypeRec = 'UCTypeRec'
-    TableUsers.FieldProfile = 'UCProfile'
-    TableUsers.FieldKey = 'UCKey'
-    TableUsers.FieldDateExpired = 'UCPassExpired'
-    TableUsers.FieldUserExpired = 'UCUserExpired'
-    TableUsers.FieldUserDaysSun = 'UCUserDaysSun'
-    TableUsers.TableName = 'UCTabUsers'
-    TableEmpresa.FieldID = 'UCID'
-    TableEmpresa.FieldName = 'UCNOME'
-    TableEmpresa.TableName = 'UCEMPRESA'
-    TableEmpresa.Active = False
-    TableEmpresa.IDInteiro = False
-    TableRights.FieldUserID = 'UCIdUser'
-    TableRights.FieldModule = 'UCModule'
-    TableRights.FieldComponentName = 'UCCompName'
-    TableRights.FieldFormName = 'UCFormName'
-    TableRights.FieldKey = 'UCKey'
-    TableRights.TableName = 'UCTabRights'
-    TableUsersLogged.FieldLogonID = 'UCIdLogon'
-    TableUsersLogged.FieldUserID = 'UCIdUser'
-    TableUsersLogged.FieldApplicationID = 'UCApplicationId'
-    TableUsersLogged.FieldMachineName = 'UCMachineName'
-    TableUsersLogged.FieldData = 'UCData'
-    TableUsersLogged.TableName = 'UCTabUsersLogged'
-    TableHistory.TableName = 'UCTABHistory'
-    TableHistory.FieldApplicationID = 'ApplicationID'
-    TableHistory.FieldUserID = 'UserID'
-    TableHistory.FieldEventDate = 'EventDate'
-    TableHistory.FieldEventTime = 'EventTime'
-    TableHistory.FieldForm = 'Form'
-    TableHistory.FieldCaptionForm = 'FormCaption'
-    TableHistory.FieldEvent = 'Event'
-    TableHistory.FieldObs = 'Obs'
-    TableHistory.FieldTableName = 'tName'
-    Left = 192
-    Top = 120
-  end
-end

Source/Base/Utiles/uSistemaFunc.pas

@@ -43,8 +43,7 @@ procedure Deltree(DirToKill : String; KillChoosenDir : Boolean);
 implementation
 
 uses
-  SysUtils, Windows, Dialogs,
+  SysUtils, Windows, Dialogs, JclFileUtils,
-
   Messages, Classes, Graphics, Controls, Forms, 
   StdCtrls;
 
@@ -151,27 +150,14 @@ end;
 
 function DarVersionFichero (Executable : String) : String;
 var
-  Size, Size2: DWord;
+  Obj : TJclFileVersionInfo;
-  Pt, Pt2: Pointer;
 begin
- Size := GetFileVersionInfoSize(PChar (Executable), Size2);
+  Obj := TJclFileVersionInfo.Create(Application.ExeName);
- if Size > 0 then
+  try
- begin
+    Result := Obj.FileVersion;
-   GetMem (Pt, Size);
+  finally
-   try
+    FreeAndNil(Obj);
-      GetFileVersionInfo (PChar (Executable), 0, Size, Pt);
+  end;
-      VerQueryValue (Pt, '\', Pt2, Size2);
-      with TVSFixedFileInfo (Pt2^) do
-      begin
-        Result:= IntToStr (HiWord (dwFileVersionMS)) + '.' +
-                 IntToStr (LoWord (dwFileVersionMS)) + '.' +
-                 IntToStr (HiWord (dwFileVersionLS)) + '.' +
-                 IntToStr (LoWord (dwFileVersionLS));
-     end;
-   finally
-     FreeMem (Pt);
-   end;
- end;
 end;
 
 function DarFechaFichero (Executable : String) : String;

Source/Base/__uExceptions.pas__

@@ -1,20 +0,0 @@
-unit uExceptions;
-
-interface
-
-uses
-  uDADataTable;
-
-const
-  AUF_FKVIOLATION = 'violation of FOREIGN KEY';
-  AUF_HAVEVALUE = 'must have a value';  
-
-type
-  IApplyUpdateFailedException = interface
-  ['{B090A762-3D65-405E-A810-14DB4F6E8F82}']
-    procedure ShowApplyUpdateFailed (const Error: EDAApplyUpdateFailed);
-  end;
-
-implementation
-
-end.

Source/Base/uDataModuleBase.pas

@@ -24,7 +24,6 @@ type
     procedure LeerConfiguracion;
   public
     procedure SalvarConfiguracion;
-    function DarVersion : String;
     property OnThemeChange: TNotifyEvent read FOnThemeChange write
             FOnThemeChange;
   end;
@@ -98,18 +97,6 @@ begin
   dmConfiguracion.SalvarConfiguracion;
 end;
 
-function TdmBase.DarVersion: String;
-var
-  Obj : TJclFileVersionInfo;
-begin
-  Obj := TJclFileVersionInfo.Create(Application.ExeName);
-  try
-    Result := 'v' + Obj.FileVersion;
-  finally
-    FreeAndNil(Obj);
-  end;
-end;
-
 procedure TdmBase.DataModuleDestroy(Sender: TObject);
 begin
   FreeANDNIL(dmConfiguracion);

Source/Base_Group.groupproj

@@ -4,7 +4,10 @@
   </PropertyGroup>
   <ItemGroup />
   <ItemGroup>
+    <Projects Include="ApplicationBase\ApplicationBase.dproj" />
     <Projects Include="Base\Base.dproj" />
+    <Projects Include="Cliente\FactuGES.dproj" />
+    <Projects Include="GUIBase\GUIBase.dproj" />
   </ItemGroup>
   <ProjectExtensions>
     <Borland.Personality>Default.Personality</Borland.Personality>
@@ -21,14 +24,41 @@
   <Target Name="Base:Make">
     <MSBuild Projects="Base\Base.dproj" Targets="Make" />
   </Target>
+  <Target Name="GUIBase">
+    <MSBuild Projects="GUIBase\GUIBase.dproj" Targets="" />
+  </Target>
+  <Target Name="GUIBase:Clean">
+    <MSBuild Projects="GUIBase\GUIBase.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="GUIBase:Make">
+    <MSBuild Projects="GUIBase\GUIBase.dproj" Targets="Make" />
+  </Target>
+  <Target Name="ApplicationBase">
+    <MSBuild Projects="ApplicationBase\ApplicationBase.dproj" Targets="" />
+  </Target>
+  <Target Name="ApplicationBase:Clean">
+    <MSBuild Projects="ApplicationBase\ApplicationBase.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="ApplicationBase:Make">
+    <MSBuild Projects="ApplicationBase\ApplicationBase.dproj" Targets="Make" />
+  </Target>
+  <Target Name="FactuGES">
+    <MSBuild Projects="Cliente\FactuGES.dproj" Targets="" />
+  </Target>
+  <Target Name="FactuGES:Clean">
+    <MSBuild Projects="Cliente\FactuGES.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="FactuGES:Make">
+    <MSBuild Projects="Cliente\FactuGES.dproj" Targets="Make" />
+  </Target>
   <Target Name="Build">
-    <CallTarget Targets="Base" />
+    <CallTarget Targets="Base;GUIBase;ApplicationBase;FactuGES" />
   </Target>
   <Target Name="Clean">
-    <CallTarget Targets="Base:Clean" />
+    <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;FactuGES:Clean" />
   </Target>
   <Target Name="Make">
-    <CallTarget Targets="Base:Make" />
+    <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;FactuGES:Make" />
   </Target>
   <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
 </Project>

Source/ClearFiles.msbuild

@@ -1,18 +0,0 @@
-<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003" DefaultTargets="ShowFiles">
-  <ItemGroup>
-    <FilesToDelete Include="**\*.dcu"/>
-	<FilesToDelete Include="**\*.dcp"/>
-	<FilesToDelete Include="**\*.map"/>
-	<FilesToDelete Include="**\*.dsk"/>
-	<FilesToDelete Include="**\*.~*"/>
-	<FilesToDelete Include="**\*.bpl"/>
-  </ItemGroup>
-
-  <Target Name="CleanFiles">
-    <Delete Files="@(FilesToDelete)" ContinueOnError="true" />
-  </Target>
-
-  <Target Name="ShowFiles">
-    <Message Text="@(FilesToDelete)"/>
-  </Target>
-</Project>

Source/Cliente/FactuGES.dpr

@@ -1,9 +1,11 @@
 program FactuGES;
 
 uses
+  ExceptionLog,
   Forms,
   Windows,
   SysUtils,
+  uFactuGES_App,
   uPantallaPrincipal in 'uPantallaPrincipal.pas' {fPantallaPrincipal},
   uMenuUtils in 'Utiles\uMenuUtils.pas',
   uSplash in 'uSplash.pas' {SplashScreen},
@@ -20,14 +22,14 @@ var
 
 begin
   Application.Initialize;
+  //ReportMemoryLeaksOnShutdown := True;
 
   // ¡¡¡Fallo en Delphi 2007!!!
   // Tengo que ponerlo a false porque si no el formulario principal no se puede poner por encima de los formularios hijos.
   // Luego, en el formulario principal cambio los paramátros para obligar a que aparezca el icono en la barra de tareas.
   Application.MainFormOnTaskbar := False;
 
-
+  Application.Title := AppFactuGES.AppName;
-  Application.Title := 'FactuGES';
 
 {  fActualizacion := TfActualizacion.Create(Application);
   try

Source/Cliente/FactuGES.dproj

@@ -5,7 +5,7 @@
     <MainSource>FactuGES.dpr</MainSource>
     <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
     <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
-    <DCC_UsePackage>PluginSDK_D10R;GUISDK_D11;Base;GUIBase;Empresas_plugin;Empresas_controller;Empresas_model</DCC_UsePackage>
+    <DCC_UsePackage>PluginSDK_D10R;GUISDK_D11;Base;GUIBase;ApplicationBase</DCC_UsePackage>
     <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
     <DCC_DependencyCheckOutputName>..\..\Output\Debug\Cliente\FactuGES.exe</DCC_DependencyCheckOutputName>
     <DCC_EnabledPackages>true</DCC_EnabledPackages>
@@ -45,43 +45,13 @@
     <DCC_ResourcePath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10;T:\COMPON~1\jcl\lib\d11\debug;$(BDSCOMMONDIR)\Dcp;..\Lib;..\Modulos\Lib</DCC_ResourcePath>
     <DCC_ObjPath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10;T:\COMPON~1\jcl\lib\d11\debug;$(BDSCOMMONDIR)\Dcp;..\Lib;..\Modulos\Lib</DCC_ObjPath>
     <DCC_IncludePath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10;T:\COMPON~1\jcl\lib\d11\debug;$(BDSCOMMONDIR)\Dcp;..\Lib;..\Modulos\Lib</DCC_IncludePath>
-    <DCC_Define>DEBUG;</DCC_Define>
+    <DCC_Define>DEBUG;EUREKALOG;EUREKALOG_VER6</DCC_Define>
   </PropertyGroup>
   <ProjectExtensions>
     <Borland.Personality>Delphi.Personality</Borland.Personality>
     <Borland.ProjectType>VCLApplication</Borland.ProjectType>
     <BorlandProject>
 <BorlandProject><Delphi.Personality><Parameters><Parameters Name="DebugSourceDirs">T:\Codigo (Luis Leon)\Source\Modulos\Pedidos de cliente\Controller\</Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">2</VersionInfo><VersionInfo Name="Release">2</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">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.2.2.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.1.4</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
       <Excluded_Packages Name="$(BDS)\bin\applet100.bpl">CodeGear Control Panel Applet Package</Excluded_Packages>
       <Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages>
       <Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages>
@@ -116,12 +86,12 @@
 <!-- EurekaLog First Line
 [Exception Log]
 EurekaLog Version=6006
-Activate=0
+Activate=1
 Activate Handle=1
 Save Log File=1
 Foreground Tab=0
 Freeze Activate=0
-Freeze Timeout=0
+Freeze Timeout=1
 SMTP From=eurekalog@email.com
 SMTP Host=
 SMTP Port=25
@@ -268,7 +238,7 @@ boSaveCompressedCopyInCaseOfError=0
 boHandleSafeCallExceptions=1
 boCallRTLExceptionEvent=0
 boCatchHandledExceptions=0
-loCatchLeaks=0
+loCatchLeaks=1
 loGroupsSonLeaks=1
 loHideBorlandLeaks=1
 loFreeAllLeaks=1

Source/Cliente/FactuGES.drc

@@ -12,6 +12,7 @@ STRINGTABLE
 BEGIN
 END
 
+/* C:\Archivos de programa\EurekaLog 6\Delphi11\DIALOG.RES */
 /* c:\archivos de programa\codegear\rad studio\5.0\lib\WindowsXP.res */
 /* C:\Codigo Tecsitel\Lib\jvcl\JvXPCore.res */
 /* uSplash.dfm */

Source/Cliente/JvJansD11R.drc

@@ -8,8 +8,8 @@
   resources were bound to the produced executable.
 */
 
-/* C:\Codigo Tecsitel\Lib\jvcl\JvXPCore.res */
 /* c:\archivos de programa\codegear\rad studio\5.0\lib\WindowsXP.res */
-/* uAcercaDe.dfm */
+/* C:\Codigo Tecsitel\Lib\jvcl\JvXPCore.res */
-/* uSplash.dfm */
+/* C:\Codigo Tecsitel\Source\Cliente\uSplash.dfm */
-/* uPantallaPrincipal.dfm */
+/* C:\Codigo Tecsitel\Source\Cliente\uAcercaDe.dfm */
+/* C:\Codigo Tecsitel\Source\Cliente\uPantallaPrincipal.dfm */

Source/Cliente/uMainMenuController.pas

@@ -36,9 +36,8 @@ var
 implementation
 
 uses
-  Dialogs, PNGImage, uModuleController, uPluginEmpresas,
+  Dialogs, PNGImage, uModuleController, uFactuGES_App,
-  uBizEmpresas, schEmpresasClient_Intf, 
+  uBizEmpresas, uMenuUtils;
-  uMenuUtils;
 
 
 { TMainMenuController }
@@ -81,7 +80,7 @@ begin
     
     if Assigned(AListaEmpresasItem) then
     begin
-      AEmpresas := FMainForm.EmpresasController.BuscarTodos;
+      AEmpresas := AppFactuGES.EmpresasController.BuscarTodos;
       try
         AEmpresas.DataTable.Active := True;
         while not AEmpresas.DataTable.EOF do

Source/Cliente/uNavPaneController.pas

@@ -46,7 +46,7 @@ implementation
 uses
   Dialogs, uModuleController, uAcercaDe, uNavPaneUtils,
   uMainMenuController, uClienteUtils, Menus, uDataModuleBase,
-  uBizEmpresas, schEmpresasClient_Intf, JvPageList;
+  uFactuGES_App, uBizEmpresas, JvPageList;
 
 { TNavPaneController }
 
@@ -124,7 +124,7 @@ begin
     end;
 
     // Crear páginas con empresas y rellenarlas
-    AEmpresas := FMainForm.EmpresasController.BuscarTodos;
+    AEmpresas := AppFactuGES.EmpresasController.BuscarTodos;
     try
       AEmpresas.DataTable.Active := True;
       while not AEmpresas.DataTable.EOF do

Source/Cliente/uPantallaPrincipal.dfm

@@ -2,7 +2,7 @@ object fPantallaPrincipal: TfPantallaPrincipal
   Left = 358
   Top = 250
   Caption = 'Pantalla principal'
-  ClientHeight = 487
+  ClientHeight = 525
   ClientWidth = 751
   Color = clWindow
   Font.Charset = DEFAULT_CHARSET
@@ -23,7 +23,7 @@ object fPantallaPrincipal: TfPantallaPrincipal
     Left = 0
     Top = 0
     Width = 751
-    Height = 465
+    Height = 503
     Margins.Left = 5
     Margins.Top = 5
     Margins.Right = 5
@@ -31,11 +31,12 @@ object fPantallaPrincipal: TfPantallaPrincipal
     ParentColor = True
     Align = alClient
     TabOrder = 0
+    ExplicitHeight = 484
     object JvSyncSplitter1: TJvSyncSplitter
       Left = 215
       Top = 5
       Width = 5
-      Height = 455
+      Height = 493
       ResizeStyle = rsPattern
       ExplicitLeft = 210
       ExplicitHeight = 570
@@ -44,7 +45,7 @@ object fPantallaPrincipal: TfPantallaPrincipal
       Left = 5
       Top = 5
       Width = 210
-      Height = 455
+      Height = 493
       ActivePage = pagInicio
       Align = alLeft
       AutoHeaders = True
@@ -85,11 +86,12 @@ object fPantallaPrincipal: TfPantallaPrincipal
       NavPanelHotTrackFont.Style = []
       SmallImages = ModulesSmallImageList
       OnChange = JvNavigationPaneChange
+      ExplicitHeight = 474
       object pagInicio: TJvNavPanelPage
         Left = 0
         Top = 0
         Width = 208
-        Height = 382
+        Height = 420
         Background.Stretch = False
         Background.Proportional = False
         Background.Center = False
@@ -97,15 +99,17 @@ object fPantallaPrincipal: TfPantallaPrincipal
         Background.Transparent = False
         Caption = 'Inicio'
         ImageIndex = 0
+        ExplicitHeight = 401
         object Panel1: TPanel
           Left = 0
-          Top = 296
+          Top = 334
           Width = 208
           Height = 86
           Align = alBottom
           Color = clWindow
           ParentBackground = False
           TabOrder = 1
+          ExplicitTop = 315
           object Label1: TLabel
             Left = 38
             Top = 29
@@ -153,19 +157,21 @@ object fPantallaPrincipal: TfPantallaPrincipal
       Left = 220
       Top = 5
       Width = 526
-      Height = 455
+      Height = 493
       BoundColor = clActiveCaption
       BoundLines = [blLeft, blTop, blRight, blBottom]
       Caption = 'pnlBorde'
       Align = alClient
+      ExplicitHeight = 474
       object pnlMain: TTBXAlignmentPanel
         Left = 1
         Top = 1
         Width = 524
-        Height = 453
+        Height = 491
         Align = alClient
         Color = clWindow
         TabOrder = 0
+        ExplicitHeight = 472
         object lblBienvenido: TLabel
           Left = 8
           Top = 8
@@ -202,7 +208,7 @@ object fPantallaPrincipal: TfPantallaPrincipal
   end
   object TBXStatusBar1: TTBXStatusBar
     Left = 0
-    Top = 465
+    Top = 503
     Width = 751
     Images = StatusPanelImageList
     Panels = <
@@ -224,6 +230,7 @@ object fPantallaPrincipal: TfPantallaPrincipal
         Tag = 0
       end>
     UseSystemFont = False
+    ExplicitTop = 484
   end
   object XPManifest1: TXPManifest
     Left = 248

Source/Cliente/uPantallaPrincipal.pas

@@ -8,14 +8,12 @@ uses
   JvNavigationPane, ImgList, Controls, PngImageList, Classes, ActnList, XPMan,
   TBXStatusBars, JvXPCore, JvXPContainer, pngimage, ExtCtrls, StdCtrls,
   JvPageList, JvExControls, JvExExtCtrls, JvSplitter, JvSyncSplitter,
-  TBXDkPanels, uCustomEditor, uHostManager, uEmpresasController, uGUIBase,
+  TBXDkPanels, uCustomEditor, uHostManager, uGUIBase,
   Dialogs;
 
 type
   IMainForm = interface(IHostForm)
-    ['{56FCE1D7-E163-4A36-A468-A6324A4E3911}']
+    ['{7F6F5574-5E5C-486C-AA24-D3AEAA52D243}']
-    function GetEmpresasController : IEmpresasController;
-    property EmpresasController : IEmpresasController read GetEmpresasController;
     procedure ReleaseEmbedded;
   end;
 
@@ -100,9 +98,9 @@ type
     procedure actVerPanelExecute(Sender: TObject);
     procedure actVerBarraEstadoUpdate(Sender: TObject);
     procedure actVerBarraEstadoExecute(Sender: TObject);
+    procedure Acercade1Click(Sender: TObject);
   private
     FContenido : TCustomEditor;
-    FEmpresasController : IEmpresasController;
     procedure ShowEmbedded(AEditor : ICustomEditor);
     procedure ReleaseEmbedded;
     procedure AplicarPerfil;
@@ -115,14 +113,12 @@ type
     procedure WMSysCommand(var Msg: TMessage); message WM_SYSCOMMAND;    
   protected
     function GetWorkPanel : TWinControl;
-    function GetEmpresasController : IEmpresasController;
     procedure CreateParams(var Params: TCreateParams); override;
   public
     function IsShortcut(var Message: TWMKey): Boolean; override;
     procedure OnWorkPanelChanged(AEditor : ICustomEditor);
     constructor Create(AOwner: TComponent); override;
     property WorkPanel : TWinControl read GetWorkPanel;
-    property EmpresasController : IEmpresasController read GetEmpresasController;
   end;
 
 var
@@ -131,23 +127,13 @@ var
 implementation
 
 uses
-  uDataModuleConexion, uModuleController, uDataModuleBase, Math, uMenuUtils,
+  uSplash, uAcercaDe, UxTheme, Themes, uMenuUtils,
-  uSplash, uAcercaDe, UxTheme, Themes, uPluginEmpresas,
+  uFactuGES_App, uDataModuleBase, uDataModuleConexion,
-  uNavPaneController, uMainMenuController, uROSessions, FactuGES_Intf,
+  uModuleController, uMainMenuController, uNavPaneController,
-  uDialogUtils, uActualizacion, uROClient, cxControls;
+  uDialogUtils, cxControls;
 
 {$R *.dfm}
 
-{function OpenThemeData(hwnd: HWND; pszClassList: LPCWSTR): THandle; stdcall;
-  external 'uxtheme.dll';
-
-function CloseThemeData(hTheme: THandle): HRESULT; stdcall;
-  external 'uxtheme.dll';
-
-function DrawThemeBackground(hTheme: THandle; hdc: HDC; iPartId, iStateId:
-Integer; const pRect: TRect;
-  pClipRect: PRECT): HRESULT; stdcall;
-  external 'uxtheme.dll';}
 
 {
 ***************************** TfPantallaPrincipal ******************************
@@ -164,7 +150,7 @@ end;
 procedure TfPantallaPrincipal.FormCreate(Sender: TObject);
 begin
   ApplicationEvents.Activate;
-  Caption := Application.Title + ' - ' + dmBase.DarVersion;
+  Caption := AppFactuGES.AppName + ' - ' + AppFactuGES.AppVersion;
   SplashScreen := TSplashScreen.Create(Application) ;
   SplashScreen.Show;
 
@@ -200,7 +186,7 @@ procedure TfPantallaPrincipal.RefrescarUI;
 var
   ATitulo : String;
 begin
-  ATitulo := Application.Title + ' - ' + dmBase.DarVersion;
+  ATitulo := AppFactuGES.AppName + AppFactuGES.AppVersion;
 
   // OJOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO
 {  if Assigned(dmUsuarios.EmpresaActual) then
@@ -223,14 +209,10 @@ end;
 procedure TfPantallaPrincipal.RegisterModule(AModuleInfo : TModuleInfo);
 var
   AModule: TModuleController;
-  AEmpresasPlugin : IEmpresasPlugin;
 begin
   AModule := AModuleInfo.Module;
 
   SplashScreen.Texto := 'Cargando ''' + AModule.ModuleName + '''...';
-
-  if Supports(AModule, IEmpresasPlugin, AEmpresasPlugin) then
-    FEmpresasController := AEmpresasPlugin.Controller;
 end;
 
 procedure TfPantallaPrincipal.ReleaseEmbedded;
@@ -315,11 +297,6 @@ begin
   end;
 end;
 
-function TfPantallaPrincipal.GetEmpresasController: IEmpresasController;
-begin
-  Result := FEmpresasController;
-end;
-
 function TfPantallaPrincipal.GetWorkPanel: TWinControl;
 begin
   Result := pnlMain;
@@ -358,8 +335,7 @@ procedure TfPantallaPrincipal.actLoginExecute(Sender: TObject);
 begin
   HostManager.UnloadModules;
 
-  // OJOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO
+  if AppFactuGES.UsuariosController.StartLogin then
-  {  if dmUsuarios.Login then
   begin
     ShowHourglassCursor;
     SplashScreen.Update;
@@ -378,7 +354,7 @@ begin
     end;
   end
   else
-    Application.Terminate;}
+    Application.Terminate;
 end;
 
 procedure TfPantallaPrincipal.actMenuComprasExecute(Sender: TObject);
@@ -419,13 +395,13 @@ end;
 procedure TfPantallaPrincipal.ApplicationEventsException(Sender: TObject;
   E: Exception);
 begin
-  if E is EROSessionNotFound then
+{  if E is EROSessionNotFound then
   begin
   // OJOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO
-{    if not dmUsuarios.Login then
+    if not dmUsuarios.Login then
-      ShowMessage(E.Message);}
+      ShowMessage(E.Message);
   end
-  else
+  else}
     ShowMessage(E.Message);
     //ShowErrorMessage('Se ha producido un error', '', E);
 end;
@@ -476,9 +452,9 @@ end;
 
 procedure TfPantallaPrincipal.CargarModulos;
 begin
-    HostManager.LoadModule('Empresas_plugin.bpl');
+    //HostManager.LoadModule('Empresas_plugin.bpl');
-    HostManager.LoadModule('FormasPago_plugin.bpl');
+    //HostManager.LoadModule('FormasPago_plugin.bpl');
-    HostManager.LoadModule('TiposIVA_plugin.bpl');        
+    //HostManager.LoadModule('TiposIVA_plugin.bpl');        
 //    HostManager.LoadModule('Almacenes_plugin.bpl');
 //    HostManager.LoadModule('Familias_plugin.bpl');
 //    HostManager.LoadModule('Articulos_plugin.bpl');
@@ -552,12 +528,12 @@ end;
 
 procedure TfPantallaPrincipal.actActualizacionesExecute(Sender: TObject);
 begin
-  fActualizacion := TfActualizacion.Create(Self);
+{  fActualizacion := TfActualizacion.Create(Self);
   try
     fActualizacion.ShowModal;
   finally
     FreeAndNil(fActualizacion);
-  end;
+  end;}
 end;
 
 procedure TfPantallaPrincipal.actCambiarPassExecute(Sender: TObject);
@@ -566,6 +542,11 @@ begin
   RefrescarUI;
 end;
 
+procedure TfPantallaPrincipal.Acercade1Click(Sender: TObject);
+begin
+  AppFactuGES.UsuariosController.StartLogin;
+end;
+
 procedure TfPantallaPrincipal.actAcercaExecute(Sender: TObject);
 begin
   with TfAcercaDe.Create(NIL) do