Limpieza de unidades en el módulo de pedidos a proveedor.
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@26 c93665c3-c93d-084d-9b98-7d5f4a9c3376
This commit is contained in:
parent
307d935bf5
commit
a0778bea2f
@ -0,0 +1,26 @@
|
|||||||
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
|
<BorlandProject>
|
||||||
|
<PersonalityInfo>
|
||||||
|
<Option>
|
||||||
|
<Option Name="Personality">Default.Personality</Option>
|
||||||
|
<Option Name="ProjectType"></Option>
|
||||||
|
<Option Name="Version">1.0</Option>
|
||||||
|
<Option Name="GUID">{C142AFFD-27DC-4024-8A66-63F391E33373}</Option>
|
||||||
|
</Option>
|
||||||
|
</PersonalityInfo>
|
||||||
|
<Default.Personality> <Projects>
|
||||||
|
<Projects Name="DataAbstract_D10.bpl">..\..\DataAbstract_D10\DataAbstract_D10.bdsproj</Projects>
|
||||||
|
<Projects Name="Base.bpl">..\..\Base\Base.bdsproj</Projects>
|
||||||
|
<Projects Name="ControllerBase.bpl">..\..\Base\ControllerBase\ControllerBase.bdsproj</Projects>
|
||||||
|
<Projects Name="GUIBase.bpl">..\..\Base\GUIBase\GUIBase.bdsproj</Projects>
|
||||||
|
<Projects Name="Contactos_view.bpl">..\Contactos\Views\Contactos_view.bdsproj</Projects>
|
||||||
|
<Projects Name="PedidosProveedor_model.bpl">Model\PedidosProveedor_model.bdsproj</Projects>
|
||||||
|
<Projects Name="PedidosProveedor_data.bpl">Data\PedidosProveedor_data.bdsproj</Projects>
|
||||||
|
<Projects Name="PedidosProveedor_controller.bpl">Controller\PedidosProveedor_controller.bdsproj</Projects>
|
||||||
|
<Projects Name="PedidosProveedor_view.bpl">Views\PedidosProveedor_view.bdsproj</Projects>
|
||||||
|
<Projects Name="PedidosProveedor_plugin.bpl">Plugin\PedidosProveedor_plugin.bdsproj</Projects>
|
||||||
|
<Projects Name="Targets">DataAbstract_D10.bpl Base.bpl ControllerBase.bpl GUIBase.bpl Contactos_view.bpl PedidosProveedor_model.bpl PedidosProveedor_data.bpl PedidosProveedor_controller.bpl PedidosProveedor_view.bpl PedidosProveedor_plugin.bpl</Projects>
|
||||||
|
</Projects>
|
||||||
|
<Dependencies/>
|
||||||
|
</Default.Personality>
|
||||||
|
</BorlandProject>
|
||||||
@ -1,34 +0,0 @@
|
|||||||
<?xml version="1.0" encoding="utf-8"?>
|
|
||||||
<BorlandProject>
|
|
||||||
<PersonalityInfo>
|
|
||||||
<Option>
|
|
||||||
<Option Name="Personality">Default.Personality</Option>
|
|
||||||
<Option Name="ProjectType"></Option>
|
|
||||||
<Option Name="Version">1.0</Option>
|
|
||||||
<Option Name="GUID">{C142AFFD-27DC-4024-8A66-63F391E33373}</Option>
|
|
||||||
</Option>
|
|
||||||
</PersonalityInfo>
|
|
||||||
<Default.Personality> <Projects>
|
|
||||||
<Projects Name="DataAbstract_D10.bpl">..\..\DataAbstract_D10\DataAbstract_D10.bdsproj</Projects>
|
|
||||||
<Projects Name="Base.bpl">..\..\Base\Base.bdsproj</Projects>
|
|
||||||
<Projects Name="ControllerBase.bpl">..\..\Base\ControllerBase\ControllerBase.bdsproj</Projects>
|
|
||||||
<Projects Name="GUIBase.bpl">..\..\Base\GUIBase\GUIBase.bdsproj</Projects>
|
|
||||||
<Projects Name="ClassRegistry.bpl">..\..\Base\ClassRegistry\ClassRegistry.bdsproj</Projects>
|
|
||||||
<Projects Name="Contactos_view.bpl">..\Contactos\Views\Contactos_view.bdsproj</Projects>
|
|
||||||
<Projects Name="Presupuestos_model.bpl">Model\Presupuestos_model.bdsproj</Projects>
|
|
||||||
<Projects Name="Presupuestos_data.bpl">Data\Presupuestos_data.bdsproj</Projects>
|
|
||||||
<Projects Name="Presupuestos_controller.bpl">Controller\Presupuestos_controller.bdsproj</Projects>
|
|
||||||
<Projects Name="Presupuestos_view.bpl">Views\Presupuestos_view.bdsproj</Projects>
|
|
||||||
<Projects Name="Presupuestos_plugin.bpl">Plugin\Presupuestos_plugin.bdsproj</Projects>
|
|
||||||
<Projects Name="Presupuestos_Test.exe">Test\Presupuestos_Test.bdsproj</Projects>
|
|
||||||
<Projects Name="Targets">DataAbstract_D10.bpl Base.bpl ControllerBase.bpl GUIBase.bpl ClassRegistry.bpl Contactos_view.bpl Presupuestos_model.bpl Presupuestos_data.bpl Presupuestos_controller.bpl Presupuestos_view.bpl Presupuestos_plugin.bpl Presupuestos_Test.exe</Projects>
|
|
||||||
</Projects>
|
|
||||||
<Dependencies>
|
|
||||||
<Dependency GUID="{E7D762A1-3A15-46B2-BD5B-3821D13B8347}">
|
|
||||||
<Dependency GUID="{9E558626-CF49-4CFF-A178-E12C186758AC}"/>
|
|
||||||
<Dependency GUID="{A7225A8D-F40D-4878-9A27-C5DE0E7CB638}"/>
|
|
||||||
<Dependency GUID="{38EEF566-1895-4BDD-8007-F92F5E32CCE6}"/>
|
|
||||||
</Dependency>
|
|
||||||
</Dependencies>
|
|
||||||
</Default.Personality>
|
|
||||||
</BorlandProject>
|
|
||||||
@ -1,496 +0,0 @@
|
|||||||
<?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">{BCA6CA66-CADE-480B-AB06-006F1F30AD81}</Option>
|
|
||||||
</Option>
|
|
||||||
</PersonalityInfo>
|
|
||||||
<Delphi.Personality>
|
|
||||||
<Source>
|
|
||||||
<Source Name="MainSource">Presupuestos_Test.dpr</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"></Linker>
|
|
||||||
</Linker>
|
|
||||||
<Directories>
|
|
||||||
<Directories Name="OutputDir">..\..\..\Output\Cliente</Directories>
|
|
||||||
<Directories Name="UnitOutputDir">.\</Directories>
|
|
||||||
<Directories Name="PackageDLLOutputDir"></Directories>
|
|
||||||
<Directories Name="PackageDCPOutputDir">..\..\Lib</Directories>
|
|
||||||
<Directories Name="SearchPath">..\..\..\Lib;..\..\Lib</Directories>
|
|
||||||
<Directories Name="Packages">DataAbstract_D10;base;GUIBase;ClassRegistry;Empresas_controller;Presupuestos_model;presupuestos_data;presupuestos_controller;presupuestos_view;presupuestos_plugin</Directories>
|
|
||||||
<Directories Name="Conditionals">_CONSOLE_TESTRUNNER;EUREKALOG;EUREKALOG_VER5</Directories>
|
|
||||||
<Directories Name="DebugSourceDirs"></Directories>
|
|
||||||
<Directories Name="UsePackages">True</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"></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">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">Presupuestos_Test</VersionInfoKeys>
|
|
||||||
<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
|
|
||||||
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
|
|
||||||
<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
|
|
||||||
<VersionInfoKeys Name="ProductName">Presupuestos_Test</VersionInfoKeys>
|
|
||||||
<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
|
|
||||||
<VersionInfoKeys Name="Comments"></VersionInfoKeys>
|
|
||||||
</VersionInfoKeys>
|
|
||||||
</Delphi.Personality>
|
|
||||||
<UnitTesting>
|
|
||||||
<TestFramework>DUnit / Delphi Win32</TestFramework>
|
|
||||||
<TestRunner>GUI</TestRunner>
|
|
||||||
</UnitTesting>
|
|
||||||
<!-- 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=0
|
|
||||||
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=0
|
|
||||||
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=1
|
|
||||||
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>
|
|
||||||
@ -1,40 +0,0 @@
|
|||||||
program Presupuestos_Test;
|
|
||||||
{
|
|
||||||
|
|
||||||
Delphi DUnit Test Project
|
|
||||||
-------------------------
|
|
||||||
This project contains the DUnit test framework and the GUI/Console test runners.
|
|
||||||
Add "CONSOLE_TESTRUNNER" to the conditional defines entry in the project options
|
|
||||||
to use the console test runner. Otherwise the GUI test runner will be used by
|
|
||||||
default.
|
|
||||||
|
|
||||||
}
|
|
||||||
|
|
||||||
{$IFDEF CONSOLE_TESTRUNNER}
|
|
||||||
{$APPTYPE CONSOLE}
|
|
||||||
{$ENDIF}
|
|
||||||
|
|
||||||
uses
|
|
||||||
ExceptionLog,
|
|
||||||
Forms,
|
|
||||||
TestFramework,
|
|
||||||
GUITestRunner,
|
|
||||||
TextTestRunner,
|
|
||||||
uPresupuestosViewRegister,
|
|
||||||
uContactosViewRegister,
|
|
||||||
uPluginPresupuestos_Test in 'uPluginPresupuestos_Test.pas',
|
|
||||||
uHostMainForm in 'uHostMainForm.pas' {HostMainForm},
|
|
||||||
uPresupuestosController_Test in 'uPresupuestosController_Test.pas',
|
|
||||||
uDataModulePresupuestos_Test in 'uDataModulePresupuestos_Test.pas';
|
|
||||||
|
|
||||||
{$R *.RES}
|
|
||||||
|
|
||||||
begin
|
|
||||||
Application.Initialize;
|
|
||||||
Application.CreateForm(THostMainForm, HostMainForm);
|
|
||||||
uPresupuestosViewRegister.RegisterViews;
|
|
||||||
uContactosViewRegister.RegisterViews;
|
|
||||||
Application.Run;
|
|
||||||
Application.Terminate;
|
|
||||||
end.
|
|
||||||
|
|
||||||
@ -1,14 +0,0 @@
|
|||||||
/* VER180
|
|
||||||
Generated by the Borland Delphi Pascal Compiler
|
|
||||||
because -GD or --drc was supplied to the compiler.
|
|
||||||
|
|
||||||
This file contains compiler-generated resources that
|
|
||||||
were bound to the executable.
|
|
||||||
If this file is empty, then no compiler-generated
|
|
||||||
resources were bound to the produced executable.
|
|
||||||
*/
|
|
||||||
|
|
||||||
STRINGTABLE
|
|
||||||
BEGIN
|
|
||||||
END
|
|
||||||
|
|
||||||
Binary file not shown.
@ -1,98 +0,0 @@
|
|||||||
unit uDataModulePresupuestos_Test;
|
|
||||||
{
|
|
||||||
|
|
||||||
Delphi DUnit Test Case
|
|
||||||
----------------------
|
|
||||||
This unit contains a skeleton test case class generated by the Test Case Wizard.
|
|
||||||
Modify the generated code to correctly setup and call the methods from the unit
|
|
||||||
being tested.
|
|
||||||
|
|
||||||
}
|
|
||||||
|
|
||||||
interface
|
|
||||||
|
|
||||||
uses
|
|
||||||
TestFramework, uROBinMessage, uROServiceComponent, uDAClientDataModule,
|
|
||||||
uDACDSDataTable, uDADataTable, uBizDetallesPresupuesto, uBizPresupuestos, Classes, DB,
|
|
||||||
uDAScriptingProvider, SysUtils, uIDataModulePresupuestos, uROWinInetHttpChannel,
|
|
||||||
uROClient, uDABINAdapter, uRORemoteService, DBClient, uDataModulePresupuestos;
|
|
||||||
type
|
|
||||||
// Test methods for class TDataModulePresupuestos
|
|
||||||
|
|
||||||
TestTDataModulePresupuestos = class(TTestCase)
|
|
||||||
strict private
|
|
||||||
FDataModulePresupuestos: TDataModulePresupuestos;
|
|
||||||
public
|
|
||||||
procedure SetUp; override;
|
|
||||||
procedure TearDown; override;
|
|
||||||
published
|
|
||||||
procedure TestDAClientDataModuleCreate;
|
|
||||||
procedure Test_CloneDataTable;
|
|
||||||
procedure TestGetDetalles;
|
|
||||||
procedure TestGetItems;
|
|
||||||
procedure TestGetNextID;
|
|
||||||
end;
|
|
||||||
|
|
||||||
implementation
|
|
||||||
|
|
||||||
procedure TestTDataModulePresupuestos.SetUp;
|
|
||||||
begin
|
|
||||||
FDataModulePresupuestos := TDataModulePresupuestos.Create(Nil);
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TestTDataModulePresupuestos.TearDown;
|
|
||||||
begin
|
|
||||||
FDataModulePresupuestos.Free;
|
|
||||||
FDataModulePresupuestos := nil;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TestTDataModulePresupuestos.TestDAClientDataModuleCreate;
|
|
||||||
var
|
|
||||||
Sender: TObject;
|
|
||||||
begin
|
|
||||||
// TODO: Setup method call parameters
|
|
||||||
FDataModulePresupuestos.DAClientDataModuleCreate(Sender);
|
|
||||||
// TODO: Validate method results
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TestTDataModulePresupuestos.Test_CloneDataTable;
|
|
||||||
var
|
|
||||||
ReturnValue: TDACDSDataTable;
|
|
||||||
ADataTable: TDACDSDataTable;
|
|
||||||
begin
|
|
||||||
// TODO: Setup method call parameters
|
|
||||||
ReturnValue := FDataModulePresupuestos._CloneDataTable(ADataTable);
|
|
||||||
// TODO: Validate method results
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TestTDataModulePresupuestos.TestGetDetalles;
|
|
||||||
var
|
|
||||||
ReturnValue: IBizDetallesPresupuesto;
|
|
||||||
begin
|
|
||||||
// ReturnValue := FDataModulePresupuestos.GetDetalles;
|
|
||||||
// TODO: Validate method results
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TestTDataModulePresupuestos.TestGetItems;
|
|
||||||
var
|
|
||||||
ReturnValue: IBizPresupuesto;
|
|
||||||
begin
|
|
||||||
ReturnValue := FDataModulePresupuestos.GetItems;
|
|
||||||
// TODO: Validate method results
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TestTDataModulePresupuestos.TestGetNextID;
|
|
||||||
var
|
|
||||||
ReturnValue: Integer;
|
|
||||||
DataSetName: string;
|
|
||||||
begin
|
|
||||||
// TODO: Setup method call parameters
|
|
||||||
ReturnValue := FDataModulePresupuestos.GetNextID(DataSetName);
|
|
||||||
// TODO: Validate method results
|
|
||||||
end;
|
|
||||||
|
|
||||||
initialization
|
|
||||||
// Register any test cases with the test runner
|
|
||||||
RegisterTest(TestTDataModulePresupuestos.Suite);
|
|
||||||
end.
|
|
||||||
|
|
||||||
@ -1,28 +0,0 @@
|
|||||||
object HostMainForm: THostMainForm
|
|
||||||
Left = 0
|
|
||||||
Top = 0
|
|
||||||
Caption = 'HostMainForm'
|
|
||||||
ClientHeight = 598
|
|
||||||
ClientWidth = 690
|
|
||||||
Color = clBtnFace
|
|
||||||
Font.Charset = DEFAULT_CHARSET
|
|
||||||
Font.Color = clWindowText
|
|
||||||
Font.Height = -11
|
|
||||||
Font.Name = 'Tahoma'
|
|
||||||
Font.Style = []
|
|
||||||
OldCreateOrder = False
|
|
||||||
Position = poScreenCenter
|
|
||||||
OnCloseQuery = FormCloseQuery
|
|
||||||
OnShow = FormShow
|
|
||||||
PixelsPerInch = 96
|
|
||||||
TextHeight = 13
|
|
||||||
object Panel1: TPanel
|
|
||||||
Left = 0
|
|
||||||
Top = 0
|
|
||||||
Width = 690
|
|
||||||
Height = 598
|
|
||||||
Align = alClient
|
|
||||||
BevelOuter = bvNone
|
|
||||||
TabOrder = 0
|
|
||||||
end
|
|
||||||
end
|
|
||||||
@ -1,116 +0,0 @@
|
|||||||
unit uHostMainForm;
|
|
||||||
|
|
||||||
interface
|
|
||||||
|
|
||||||
uses
|
|
||||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
||||||
Dialogs, uGUIBase, ExtCtrls, uCustomEditor, cxControls;
|
|
||||||
|
|
||||||
type
|
|
||||||
THostMainForm = class(TForm, IHostForm)
|
|
||||||
Panel1: TPanel;
|
|
||||||
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
|
|
||||||
procedure FormShow(Sender: TObject);
|
|
||||||
protected
|
|
||||||
FContenido : TCustomEditor;
|
|
||||||
function GetWorkPanel: TWinControl;
|
|
||||||
procedure OnWorkPanelChanged(AEditor : ICustomEditor);
|
|
||||||
procedure ShowEmbedded(AEditor : ICustomEditor);
|
|
||||||
procedure ReleaseEmbedded;
|
|
||||||
public
|
|
||||||
constructor Create(AOwner: TComponent); override;
|
|
||||||
destructor Destroy; override;
|
|
||||||
property WorkPanel: TWinControl read GetWorkPanel;
|
|
||||||
end;
|
|
||||||
|
|
||||||
var
|
|
||||||
HostMainForm: THostMainForm;
|
|
||||||
|
|
||||||
implementation
|
|
||||||
|
|
||||||
{$R *.dfm}
|
|
||||||
|
|
||||||
uses
|
|
||||||
TestFramework, GUITestRunner, TextTestRunner;
|
|
||||||
|
|
||||||
|
|
||||||
{ TForm1 }
|
|
||||||
|
|
||||||
constructor THostMainForm.Create(AOwner: TComponent);
|
|
||||||
begin
|
|
||||||
inherited;
|
|
||||||
FContenido := NIL;
|
|
||||||
end;
|
|
||||||
|
|
||||||
destructor THostMainForm.Destroy;
|
|
||||||
begin
|
|
||||||
ReleaseEmbedded;
|
|
||||||
inherited;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure THostMainForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
|
|
||||||
begin
|
|
||||||
CanClose := True;
|
|
||||||
if Assigned(FContenido) then
|
|
||||||
CanClose := FContenido.CloseQuery;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure THostMainForm.FormShow(Sender: TObject);
|
|
||||||
begin
|
|
||||||
if IsConsole then
|
|
||||||
TextTestRunner.RunRegisteredTests
|
|
||||||
else
|
|
||||||
GUITestRunner.RunRegisteredTestsModeless;
|
|
||||||
Self.SendToBack;
|
|
||||||
end;
|
|
||||||
|
|
||||||
function THostMainForm.GetWorkPanel: TWinControl;
|
|
||||||
begin
|
|
||||||
Result := Panel1;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure THostMainForm.OnWorkPanelChanged(AEditor: ICustomEditor);
|
|
||||||
begin
|
|
||||||
//
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure THostMainForm.ReleaseEmbedded;
|
|
||||||
begin
|
|
||||||
if Assigned(FContenido) then
|
|
||||||
FContenido.Release;
|
|
||||||
Application.ProcessMessages;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure THostMainForm.ShowEmbedded(AEditor: ICustomEditor);
|
|
||||||
begin
|
|
||||||
if Assigned(FContenido) then
|
|
||||||
if not FContenido.CloseQuery then
|
|
||||||
begin
|
|
||||||
AEditor.Release;
|
|
||||||
AEditor := NIL;
|
|
||||||
Exit;
|
|
||||||
end;
|
|
||||||
|
|
||||||
ShowHourglassCursor;
|
|
||||||
LockWindowUpdate(Handle);
|
|
||||||
try
|
|
||||||
FContenido := AEditor.GetInstance as TCustomEditor;
|
|
||||||
with (FContenido) do
|
|
||||||
begin
|
|
||||||
Visible := False;
|
|
||||||
BorderIcons := [];
|
|
||||||
BorderStyle := bsNone;
|
|
||||||
Parent := WorkPanel;
|
|
||||||
FContenido.Show;
|
|
||||||
Align := alClient;
|
|
||||||
FContenido.SetFocus;
|
|
||||||
end;
|
|
||||||
finally
|
|
||||||
Application.ProcessMessages;
|
|
||||||
LockWindowUpdate(0);
|
|
||||||
HideHourglassCursor;
|
|
||||||
end;
|
|
||||||
OnWorkPanelChanged(FContenido);
|
|
||||||
end;
|
|
||||||
|
|
||||||
end.
|
|
||||||
@ -1,56 +0,0 @@
|
|||||||
unit uPluginPresupuestos_Test;
|
|
||||||
{
|
|
||||||
|
|
||||||
Delphi DUnit Test Case
|
|
||||||
----------------------
|
|
||||||
This unit contains a skeleton test case class generated by the Test Case Wizard.
|
|
||||||
Modify the generated code to correctly setup and call the methods from the unit
|
|
||||||
being tested.
|
|
||||||
|
|
||||||
}
|
|
||||||
|
|
||||||
interface
|
|
||||||
|
|
||||||
uses
|
|
||||||
TestFramework, ActnList, uPluginPresupuestos, Classes, ImgList, uInterfaces,
|
|
||||||
uModuleController, uHostManager, PngImageList, Controls, Menus;
|
|
||||||
type
|
|
||||||
// Test methods for class TPluginPresupuestos
|
|
||||||
|
|
||||||
TestTPluginPresupuestos = class(TTestCase)
|
|
||||||
strict private
|
|
||||||
FPluginPresupuestos: TPluginPresupuestos;
|
|
||||||
public
|
|
||||||
procedure SetUp; override;
|
|
||||||
procedure TearDown; override;
|
|
||||||
published
|
|
||||||
procedure TestactPresupuestosExecute;
|
|
||||||
end;
|
|
||||||
|
|
||||||
implementation
|
|
||||||
|
|
||||||
procedure TestTPluginPresupuestos.SetUp;
|
|
||||||
begin
|
|
||||||
FPluginPresupuestos := TPluginPresupuestos.Create(Nil);
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TestTPluginPresupuestos.TearDown;
|
|
||||||
begin
|
|
||||||
FPluginPresupuestos.Free;
|
|
||||||
FPluginPresupuestos := nil;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TestTPluginPresupuestos.TestactPresupuestosExecute;
|
|
||||||
var
|
|
||||||
Sender: TObject;
|
|
||||||
begin
|
|
||||||
// TODO: Setup method call parameters
|
|
||||||
// FPluginPresupuestos.actPresupuestosExecute(Sender);
|
|
||||||
// TODO: Validate method results
|
|
||||||
end;
|
|
||||||
|
|
||||||
initialization
|
|
||||||
// Register any test cases with the test runner
|
|
||||||
RegisterTest(TestTPluginPresupuestos.Suite);
|
|
||||||
end.
|
|
||||||
|
|
||||||
@ -1,85 +0,0 @@
|
|||||||
unit uPresupuestosController_Test;
|
|
||||||
{
|
|
||||||
|
|
||||||
Delphi DUnit Test Case
|
|
||||||
----------------------
|
|
||||||
This unit contains a skeleton test case class generated by the Test Case Wizard.
|
|
||||||
Modify the generated code to correctly setup and call the methods from the unit
|
|
||||||
being tested.
|
|
||||||
|
|
||||||
}
|
|
||||||
|
|
||||||
interface
|
|
||||||
|
|
||||||
uses
|
|
||||||
TestFramework, uBizPresupuestos, Classes, Contnrs, Windows,
|
|
||||||
Forms, SysUtils, Controls, uBizDetallesPresupuesto, uIDataModulePresupuestos,
|
|
||||||
uPresupuestosController;
|
|
||||||
type
|
|
||||||
// Test methods for class TPresupuestosController
|
|
||||||
|
|
||||||
TestTPresupuestosController = class(TTestCase)
|
|
||||||
strict private
|
|
||||||
FPresupuestosController : IPresupuestosController;
|
|
||||||
public
|
|
||||||
procedure SetUp; override;
|
|
||||||
procedure TearDown; override;
|
|
||||||
published
|
|
||||||
procedure TestBuscarTodos;
|
|
||||||
procedure TestVerTodos;
|
|
||||||
procedure hola;
|
|
||||||
end;
|
|
||||||
|
|
||||||
var
|
|
||||||
FPresupuestosController: IPresupuestosController;
|
|
||||||
|
|
||||||
implementation
|
|
||||||
|
|
||||||
uses dialogs;
|
|
||||||
|
|
||||||
|
|
||||||
procedure TestTPresupuestosController.hola;
|
|
||||||
begin
|
|
||||||
//
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TestTPresupuestosController.SetUp;
|
|
||||||
begin
|
|
||||||
FPresupuestosController := TPresupuestosController.Create;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TestTPresupuestosController.TearDown;
|
|
||||||
begin
|
|
||||||
FPresupuestosController := Nil;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TestTPresupuestosController.TestBuscarTodos;
|
|
||||||
var
|
|
||||||
ReturnValue: IBizPresupuesto;
|
|
||||||
begin
|
|
||||||
ReturnValue := FPresupuestosController.BuscarTodos;
|
|
||||||
|
|
||||||
ReturnValue.DataTable.Open;
|
|
||||||
showmessage(IntToStr(ReturnValue.DataTable.RecordCount));
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TestTPresupuestosController.TestVerTodos;
|
|
||||||
var
|
|
||||||
APresupuestos: IBizPresupuesto;
|
|
||||||
begin
|
|
||||||
APresupuestos := FPresupuestosController.BuscarTodos;
|
|
||||||
APresupuestos.DataTable.Open;
|
|
||||||
// TODO: Setup method call parameters
|
|
||||||
FPresupuestosController.VerTodos(APresupuestos);
|
|
||||||
// TODO: Validate method results
|
|
||||||
end;
|
|
||||||
|
|
||||||
initialization
|
|
||||||
// Register any test cases with the test runner
|
|
||||||
RegisterTest(TestTPresupuestosController.Suite);
|
|
||||||
|
|
||||||
finalization
|
|
||||||
|
|
||||||
|
|
||||||
end.
|
|
||||||
|
|
||||||
Reference in New Issue
Block a user