Modulo almacenes
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@66 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
parent
6205a52787
commit
c9d50bfe1a
24
Source/Modulos/Almacenes/Almacenes_Group.bdsgroup
Normal file
24
Source/Modulos/Almacenes/Almacenes_Group.bdsgroup
Normal file
@ -0,0 +1,24 @@
|
|||||||
|
<?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">{33C85702-BFCB-4807-9F41-DF59018FCA46}</Option>
|
||||||
|
</Option>
|
||||||
|
</PersonalityInfo>
|
||||||
|
<Default.Personality> <Projects>
|
||||||
|
<Projects Name="Base.bpl">..\..\Base\Base.bdsproj</Projects>
|
||||||
|
<Projects Name="GUIBase.bpl">..\..\Base\GUIBase\GUIBase.bdsproj</Projects>
|
||||||
|
<Projects Name="Usuarios.bpl">..\..\Base\Usuarios\Usuarios.bdsproj</Projects>
|
||||||
|
<Projects Name="Almacenes_model.bpl">Model\Almacenes_model.bdsproj</Projects>
|
||||||
|
<Projects Name="Almacenes_data.bpl">Data\Almacenes_data.bdsproj</Projects>
|
||||||
|
<Projects Name="Almacenes_controller.bpl">Controller\Almacenes_controller.bdsproj</Projects>
|
||||||
|
<Projects Name="Almacenes_view.bpl">Views\Almacenes_view.bdsproj</Projects>
|
||||||
|
<Projects Name="Almacenes_plugin.bpl">Plugin\Almacenes_plugin.bdsproj</Projects>
|
||||||
|
<Projects Name="Targets">Base.bpl GUIBase.bpl Usuarios.bpl Almacenes_model.bpl Almacenes_data.bpl Almacenes_controller.bpl Almacenes_view.bpl Almacenes_plugin.bpl</Projects>
|
||||||
|
</Projects>
|
||||||
|
<Dependencies/>
|
||||||
|
</Default.Personality>
|
||||||
|
</BorlandProject>
|
||||||
492
Source/Modulos/Almacenes/Controller/Almacenes_controller.bdsproj
Normal file
492
Source/Modulos/Almacenes/Controller/Almacenes_controller.bdsproj
Normal file
@ -0,0 +1,492 @@
|
|||||||
|
<?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">{9697E623-37D9-4E64-8D4C-74D7748385D4}</Option>
|
||||||
|
</Option>
|
||||||
|
</PersonalityInfo>
|
||||||
|
<Delphi.Personality>
|
||||||
|
<Source>
|
||||||
|
<Source Name="MainSource">Almacenes_controller.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">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;..\..\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>
|
||||||
|
<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"></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=0
|
||||||
|
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>
|
||||||
39
Source/Modulos/Almacenes/Controller/Almacenes_controller.dpk
Normal file
39
Source/Modulos/Almacenes/Controller/Almacenes_controller.dpk
Normal file
@ -0,0 +1,39 @@
|
|||||||
|
package Almacenes_controller;
|
||||||
|
|
||||||
|
{$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}
|
||||||
|
|
||||||
|
requires
|
||||||
|
Almacenes_data,
|
||||||
|
Almacenes_model,
|
||||||
|
GUIBase,
|
||||||
|
ApplicationBase;
|
||||||
|
|
||||||
|
contains
|
||||||
|
uAlmacenesController in 'uAlmacenesController.pas',
|
||||||
|
uIEditorAlmacenes in 'View\uIEditorAlmacenes.pas',
|
||||||
|
uIEditorAlmacen in 'View\uIEditorAlmacen.pas',
|
||||||
|
uIEditorListaAlmacenes in 'View\uIEditorListaAlmacenes.pas';
|
||||||
|
|
||||||
|
end.
|
||||||
582
Source/Modulos/Almacenes/Controller/Almacenes_controller.dproj
Normal file
582
Source/Modulos/Almacenes/Controller/Almacenes_controller.dproj
Normal file
@ -0,0 +1,582 @@
|
|||||||
|
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||||
|
<PropertyGroup>
|
||||||
|
<ProjectGuid>{9697e623-37d9-4e64-8d4c-74d7748385d4}</ProjectGuid>
|
||||||
|
<MainSource>Almacenes_controller.dpk</MainSource>
|
||||||
|
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||||
|
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||||
|
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
|
||||||
|
<DCC_DependencyCheckOutputName>..\..\..\..\Output\Debug\Cliente\Almacenes_controller.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\Debug\Cliente</DCC_BplOutput>
|
||||||
|
<DCC_DcpOutput>..\..\Lib</DCC_DcpOutput>
|
||||||
|
<DCC_UnitSearchPath>..\..\..\Lib;..\..\Lib</DCC_UnitSearchPath>
|
||||||
|
<DCC_ResourcePath>..\..\..\Lib;..\..\Lib</DCC_ResourcePath>
|
||||||
|
<DCC_ObjPath>..\..\..\Lib;..\..\Lib</DCC_ObjPath>
|
||||||
|
<DCC_IncludePath>..\..\..\Lib;..\..\Lib</DCC_IncludePath>
|
||||||
|
<DCC_Define>RELEASE</DCC_Define>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||||
|
<Version>7.0</Version>
|
||||||
|
<DCC_DcuOutput>.\</DCC_DcuOutput>
|
||||||
|
<DCC_ObjOutput>.\</DCC_ObjOutput>
|
||||||
|
<DCC_HppOutput>.\</DCC_HppOutput>
|
||||||
|
<DCC_BplOutput>..\..\..\..\Output\Debug\Cliente</DCC_BplOutput>
|
||||||
|
<DCC_DcpOutput>..\..\Lib</DCC_DcpOutput>
|
||||||
|
<DCC_UnitSearchPath>..\..\..\Lib;..\..\Lib</DCC_UnitSearchPath>
|
||||||
|
<DCC_ResourcePath>..\..\..\Lib;..\..\Lib</DCC_ResourcePath>
|
||||||
|
<DCC_ObjPath>..\..\..\Lib;..\..\Lib</DCC_ObjPath>
|
||||||
|
<DCC_IncludePath>..\..\..\Lib;..\..\Lib</DCC_IncludePath>
|
||||||
|
</PropertyGroup>
|
||||||
|
<ProjectExtensions>
|
||||||
|
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||||
|
<Borland.ProjectType>Package</Borland.ProjectType>
|
||||||
|
<BorlandProject>
|
||||||
|
<BorlandProject xmlns=""> <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>
|
||||||
|
<Source>
|
||||||
|
<Source Name="MainSource">Almacenes_controller.dpk</Source>
|
||||||
|
</Source>
|
||||||
|
</Delphi.Personality> </BorlandProject></BorlandProject>
|
||||||
|
</ProjectExtensions>
|
||||||
|
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||||
|
<ItemGroup>
|
||||||
|
<DelphiCompile Include="Almacenes_controller.dpk">
|
||||||
|
<MainSource>MainSource</MainSource>
|
||||||
|
</DelphiCompile>
|
||||||
|
<DCCReference Include="..\..\..\Lib\Almacenes_data.dcp" />
|
||||||
|
<DCCReference Include="..\..\..\Lib\Almacenes_model.dcp" />
|
||||||
|
<DCCReference Include="..\..\..\Lib\ApplicationBase.dcp" />
|
||||||
|
<DCCReference Include="..\..\..\Lib\GUIBase.dcp" />
|
||||||
|
<DCCReference Include="uAlmacenesController.pas" />
|
||||||
|
<DCCReference Include="View\uIEditorAlmacen.pas" />
|
||||||
|
<DCCReference Include="View\uIEditorAlmacenes.pas" />
|
||||||
|
<DCCReference Include="View\uIEditorListaAlmacenes.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=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 -->
|
||||||
BIN
Source/Modulos/Almacenes/Controller/Almacenes_controller.res
Normal file
BIN
Source/Modulos/Almacenes/Controller/Almacenes_controller.res
Normal file
Binary file not shown.
22
Source/Modulos/Almacenes/Controller/View/uIEditorAlmacen.pas
Normal file
22
Source/Modulos/Almacenes/Controller/View/uIEditorAlmacen.pas
Normal file
@ -0,0 +1,22 @@
|
|||||||
|
unit uIEditorAlmacen;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
uEditorDBItem, uBizAlmacenes, uAlmacenesController;
|
||||||
|
|
||||||
|
type
|
||||||
|
IEditorAlmacen = interface(IEditorDBItem)
|
||||||
|
['{C3064AF4-9DD6-4DF7-9992-CAF3833AFA2D}']
|
||||||
|
function GetController : IAlmacenesController;
|
||||||
|
procedure SetController (const Value : IAlmacenesController);
|
||||||
|
property Controller : IAlmacenesController read GetController write SetController;
|
||||||
|
|
||||||
|
function GetAlmacen: IBizAlmacen;
|
||||||
|
procedure SetAlmacen(const Value: IBizAlmacen);
|
||||||
|
property Almacen: IBizAlmacen read GetAlmacen write SetAlmacen;
|
||||||
|
end;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
end.
|
||||||
@ -0,0 +1,23 @@
|
|||||||
|
unit uIEditorAlmacenes;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
uEditorGridBase, uBizAlmacenes, uAlmacenesController;
|
||||||
|
|
||||||
|
type
|
||||||
|
IEditorAlmacenes = interface(IEditorGridBase)
|
||||||
|
['{28CD8E74-C3D5-4862-A8F9-CF0EE3E79FED}']
|
||||||
|
function GetAlmacenes: IBizAlmacen;
|
||||||
|
procedure SetAlmacenes(const Value: IBizAlmacen);
|
||||||
|
property Almacenes: IBizAlmacen read GetAlmacenes write SetAlmacenes;
|
||||||
|
|
||||||
|
function GetController : IAlmacenesController;
|
||||||
|
procedure SetController (const Value : IAlmacenesController);
|
||||||
|
property Controller : IAlmacenesController read GetController write SetController;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
end.
|
||||||
@ -0,0 +1,25 @@
|
|||||||
|
unit uIEditorListaAlmacenes;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
uBizAlmacenes;
|
||||||
|
|
||||||
|
type
|
||||||
|
IEditorListaAlmacenes = interface
|
||||||
|
['{79B80CD5-4EEB-425E-8F88-FFE7990AAE54}']
|
||||||
|
function GetAlmacenes: IBizAlmacen;
|
||||||
|
procedure SetAlmacenes(const Value: IBizAlmacen);
|
||||||
|
property Almacenes: IBizAlmacen read GetAlmacenes write SetAlmacenes;
|
||||||
|
|
||||||
|
function GetAlmacenSeleccionado: IBizAlmacen;
|
||||||
|
property AlmacenSeleccionado: IBizAlmacen read GetAlmacenSeleccionado;
|
||||||
|
|
||||||
|
function ShowModal : Integer;
|
||||||
|
procedure Release;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
end.
|
||||||
424
Source/Modulos/Almacenes/Controller/uAlmacenesController.pas
Normal file
424
Source/Modulos/Almacenes/Controller/uAlmacenesController.pas
Normal file
@ -0,0 +1,424 @@
|
|||||||
|
unit uAlmacenesController;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
|
||||||
|
uses
|
||||||
|
Classes, SysUtils, uDADataTable, uControllerBase, uEditorDBItem,
|
||||||
|
uIDataModuleAlmacenes, uBizAlmacenes;
|
||||||
|
|
||||||
|
type
|
||||||
|
IAlmacenesController = interface(IObservador)
|
||||||
|
['{1F5E5845-5B29-4C08-87F0-D753E5454068}']
|
||||||
|
function Buscar(const ID: Integer): IBizAlmacen;
|
||||||
|
function BuscarTodos: IBizAlmacen;
|
||||||
|
procedure Ver(AAlmacen : IBizAlmacen);
|
||||||
|
procedure VerTodos(AAlmacenes: IBizAlmacen);
|
||||||
|
function VerLista(AAlmacenes: IBizAlmacen): IBizAlmacen;
|
||||||
|
function Nuevo : IBizAlmacen; overload;
|
||||||
|
procedure Anadir(AAlmacen : IBizAlmacen);
|
||||||
|
function Eliminar(const ID : Integer): Boolean; overload;
|
||||||
|
function Eliminar(AAlmacen : IBizAlmacen): Boolean; overload;
|
||||||
|
function Guardar(AAlmacen : IBizAlmacen): Boolean;
|
||||||
|
procedure DescartarCambios(AAlmacen : IBizAlmacen);
|
||||||
|
function Existe(const ID: Integer) : Boolean;
|
||||||
|
function Duplicar(AAlmacen: IBizAlmacen): IBizAlmacen;
|
||||||
|
procedure Preview(AAlmacen : IBizAlmacen);
|
||||||
|
procedure Print(AAlmacen : IBizAlmacen);
|
||||||
|
end;
|
||||||
|
|
||||||
|
TAlmacenesController = class(TObservador, IAlmacenesController)
|
||||||
|
protected
|
||||||
|
FDataModule : IDataModuleAlmacenes;
|
||||||
|
|
||||||
|
procedure RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable); override;
|
||||||
|
// procedure AssignarID(AAlmacen: IBizAlmacen; ADataModule : IDataModuleAlmacenes); virtual;
|
||||||
|
function CreateEditor(const AName : String; const IID: TGUID; out Intf): Boolean;
|
||||||
|
function _Vacio : IBizAlmacen;
|
||||||
|
|
||||||
|
procedure FiltrarEmpresa(AAlmacen: IBizAlmacen);
|
||||||
|
function ValidarAlmacen(AAlmacen: IBizAlmacen): Boolean;
|
||||||
|
|
||||||
|
//Estos son los tres métodos a sobre escribir si se desea heredar toda la logica de
|
||||||
|
//este controller
|
||||||
|
procedure AsignarDataModule; virtual;
|
||||||
|
procedure RecuperarObjetos(AAlmacen: IBizAlmacen); virtual;
|
||||||
|
procedure AsignarEditor(out AEditor: IEditorDBItem); virtual;
|
||||||
|
|
||||||
|
procedure ValidarObjetos; virtual;
|
||||||
|
// procedure AsignarCodigo(AAlmacen: IBizAlmacen); virtual;
|
||||||
|
|
||||||
|
public
|
||||||
|
constructor Create; virtual;
|
||||||
|
destructor Destroy; override;
|
||||||
|
|
||||||
|
function Eliminar(const ID : Integer): Boolean; overload;
|
||||||
|
function Eliminar(AAlmacen : IBizAlmacen): Boolean; overload;
|
||||||
|
function Guardar(AAlmacen : IBizAlmacen): Boolean;
|
||||||
|
procedure DescartarCambios(AAlmacen : IBizAlmacen); virtual;
|
||||||
|
function Existe(const ID: Integer) : Boolean; virtual;
|
||||||
|
procedure Anadir(AAlmacen : IBizAlmacen);
|
||||||
|
function Buscar(const ID: Integer): IBizAlmacen;
|
||||||
|
function BuscarTodos: IBizAlmacen;
|
||||||
|
function Nuevo : IBizAlmacen; overload;
|
||||||
|
procedure Ver(AAlmacen : IBizAlmacen);
|
||||||
|
procedure VerTodos(AAlmacenes: IBizAlmacen);
|
||||||
|
function VerLista(AAlmacenes: IBizAlmacen): IBizAlmacen;
|
||||||
|
function Duplicar(AAlmacen: IBizAlmacen): IBizAlmacen;
|
||||||
|
procedure Preview(AAlmacen : IBizAlmacen);
|
||||||
|
procedure Print(AAlmacen : IBizAlmacen);
|
||||||
|
end;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
uses
|
||||||
|
cxControls, DB, uEditorRegistryUtils, schAlmacenesClient_Intf,
|
||||||
|
uIEditorAlmacenes, uIEditorAlmacen, uDataModuleAlmacenes,
|
||||||
|
uDataModuleUsuarios, uDAInterfaces, uDataTableUtils,
|
||||||
|
uDateUtils, uROTypes, DateUtils, Controls, Windows, uIEditorListaAlmacenes;
|
||||||
|
|
||||||
|
{ TAlmacenesController }
|
||||||
|
|
||||||
|
procedure TAlmacenesController.Anadir(AAlmacen: IBizAlmacen);
|
||||||
|
begin
|
||||||
|
AAlmacen.Insert;
|
||||||
|
end;
|
||||||
|
|
||||||
|
{procedure TAlmacenesController.AsignarCodigo(AAlmacen: IBizAlmacen);
|
||||||
|
begin
|
||||||
|
if (AAlmacen.EsNuevo) then
|
||||||
|
AssignarID(AAlmacen, (FDataModule as IDataModuleAlmacenes));
|
||||||
|
end;}
|
||||||
|
|
||||||
|
procedure TAlmacenesController.AsignarDataModule;
|
||||||
|
begin
|
||||||
|
FDataModule := TDataModuleAlmacenes.Create(Nil);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlmacenesController.AsignarEditor(out AEditor: IEditorDBItem);
|
||||||
|
begin
|
||||||
|
CreateEditor('EditorAlmacen', IEditorAlmacen, AEditor);
|
||||||
|
end;
|
||||||
|
|
||||||
|
{procedure TAlmacenesController.AssignarID(AAlmacen: IBizAlmacen; ADataModule : IDataModuleAlmacenes);
|
||||||
|
var
|
||||||
|
NuevoIDCabecera : Integer;
|
||||||
|
begin
|
||||||
|
if not Assigned(AAlmacen) then
|
||||||
|
raise Exception.Create ('Almacen no asignada');
|
||||||
|
|
||||||
|
NuevoIDCabecera := ADataModule.GetNextID(AAlmacen.DataTable.LogicalName);
|
||||||
|
|
||||||
|
AAlmacen.Edit;
|
||||||
|
AAlmacen.ID := NuevoIDCabecera;
|
||||||
|
AAlmacen.Post;
|
||||||
|
end;}
|
||||||
|
|
||||||
|
function TAlmacenesController.Buscar(const ID: Integer): IBizAlmacen;
|
||||||
|
begin
|
||||||
|
Result := (FDataModule as IDataModuleAlmacenes).GetItem(ID);
|
||||||
|
FiltrarEmpresa(Result);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlmacenesController.BuscarTodos: IBizAlmacen;
|
||||||
|
begin
|
||||||
|
Result := FDataModule.GetItems;
|
||||||
|
FiltrarEmpresa(Result);
|
||||||
|
end;
|
||||||
|
|
||||||
|
constructor TAlmacenesController.Create;
|
||||||
|
begin
|
||||||
|
AsignarDataModule;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlmacenesController.CreateEditor(const AName: String;
|
||||||
|
const IID: TGUID; out Intf): Boolean;
|
||||||
|
begin
|
||||||
|
Result := Supports(EditorRegistry.CreateEditor(AName), IID, Intf);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlmacenesController.DescartarCambios(AAlmacen: IBizAlmacen);
|
||||||
|
begin
|
||||||
|
if not Assigned(AAlmacen) then
|
||||||
|
raise Exception.Create ('Almacen no asignado');
|
||||||
|
|
||||||
|
ShowHourglassCursor;
|
||||||
|
try
|
||||||
|
if (AAlmacen.State in dsEditModes) then
|
||||||
|
AAlmacen.Cancel;
|
||||||
|
|
||||||
|
AAlmacen.DataTable.CancelUpdates;
|
||||||
|
finally
|
||||||
|
HideHourglassCursor;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
destructor TAlmacenesController.Destroy;
|
||||||
|
begin
|
||||||
|
FDataModule := Nil;
|
||||||
|
inherited;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlmacenesController.Duplicar(AAlmacen: IBizAlmacen): IBizAlmacen;
|
||||||
|
begin
|
||||||
|
Result := Self._Vacio;
|
||||||
|
ShowHourglassCursor;
|
||||||
|
try
|
||||||
|
DuplicarRegistros(AAlmacen.DataTable, Result.DataTable, mdrActual);
|
||||||
|
|
||||||
|
// Hay que dejar algunos campos como si fuera un almacen nuevo
|
||||||
|
Result.Edit;
|
||||||
|
with Result do
|
||||||
|
begin
|
||||||
|
// ID_EMPRESA := dmUsuarios.IDEmpresaActual;
|
||||||
|
// USUARIO := dmUsuarios.LoginInfo.Usuario;
|
||||||
|
end;
|
||||||
|
|
||||||
|
Result.Post;
|
||||||
|
finally
|
||||||
|
HideHourglassCursor;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlmacenesController.ValidarAlmacen(AAlmacen: IBizAlmacen): Boolean;
|
||||||
|
begin
|
||||||
|
Result := False;
|
||||||
|
|
||||||
|
if Length(AAlmacen.NOMBRE) = 0 then
|
||||||
|
raise Exception.Create('Debe indicar al menos el nombre de este almacén.');
|
||||||
|
|
||||||
|
// Asegurarse de valores en campos "automáticos"
|
||||||
|
AAlmacen.Edit;
|
||||||
|
try
|
||||||
|
// AAlmacen.USUARIO := dmUsuarios.LoginInfo.Usuario;
|
||||||
|
|
||||||
|
Result := True;
|
||||||
|
finally
|
||||||
|
AAlmacen.Post;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlmacenesController.ValidarObjetos;
|
||||||
|
begin
|
||||||
|
//
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlmacenesController.Ver(AAlmacen: IBizAlmacen);
|
||||||
|
var
|
||||||
|
AEditor : IEditorDBItem;
|
||||||
|
begin
|
||||||
|
AEditor := NIL;
|
||||||
|
ShowHourglassCursor;
|
||||||
|
try
|
||||||
|
RecuperarObjetos(AAlmacen);
|
||||||
|
AsignarEditor(AEditor);
|
||||||
|
|
||||||
|
with (AEditor as IEditorAlmacen) do
|
||||||
|
begin
|
||||||
|
Controller := Self; //OJO ORDEN MUY IMPORTANTE
|
||||||
|
Almacen := AAlmacen;
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
HideHourglassCursor;
|
||||||
|
end;
|
||||||
|
|
||||||
|
if Assigned(AEditor) then
|
||||||
|
try
|
||||||
|
AEditor.ShowModal;
|
||||||
|
AEditor.Release;
|
||||||
|
finally
|
||||||
|
AEditor := NIL;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlmacenesController.VerLista(AAlmacenes: IBizAlmacen): IBizAlmacen;
|
||||||
|
var
|
||||||
|
AEditor : IEditorListaAlmacenes;
|
||||||
|
begin
|
||||||
|
Result := NIL;
|
||||||
|
|
||||||
|
CreateEditor('EditorListaAlmacenes', IEditorListaAlmacenes, AEditor);
|
||||||
|
try
|
||||||
|
with AEditor do
|
||||||
|
begin
|
||||||
|
Almacenes := AAlmacenes;
|
||||||
|
if IsPositiveResult(ShowModal) then
|
||||||
|
Result := AlmacenSeleccionado;
|
||||||
|
AEditor.Release;
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
AEditor := NIL;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlmacenesController.VerTodos(AAlmacenes: IBizAlmacen);
|
||||||
|
var
|
||||||
|
AEditor : IEditorAlmacenes;
|
||||||
|
begin
|
||||||
|
AEditor := NIL;
|
||||||
|
ShowHourglassCursor;
|
||||||
|
try
|
||||||
|
CreateEditor('EditorAlmacenes', IEditorAlmacenes, AEditor);
|
||||||
|
with AEditor do
|
||||||
|
begin
|
||||||
|
Controller := Self; //OJO ORDEN MUY IMPORTANTE
|
||||||
|
Almacenes := AAlmacenes;
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
HideHourglassCursor;
|
||||||
|
end;
|
||||||
|
|
||||||
|
if Assigned(AEditor) then
|
||||||
|
AEditor.ShowEmbedded;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlmacenesController._Vacio: IBizAlmacen;
|
||||||
|
begin
|
||||||
|
Result := Buscar(ID_NULO);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlmacenesController.Eliminar(const ID: Integer): Boolean;
|
||||||
|
var
|
||||||
|
AAlmacen : IBizAlmacen;
|
||||||
|
begin
|
||||||
|
AAlmacen := Buscar(ID);
|
||||||
|
|
||||||
|
if not Assigned(AAlmacen) then
|
||||||
|
raise Exception.Create(Format('No se ha encontrado el almacen con ID = %d', [ID]));
|
||||||
|
|
||||||
|
Result := Eliminar(AAlmacen);
|
||||||
|
AAlmacen := NIL;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlmacenesController.Eliminar(AAlmacen: IBizAlmacen): Boolean;
|
||||||
|
begin
|
||||||
|
Result := False;
|
||||||
|
|
||||||
|
if not Assigned(AAlmacen) then
|
||||||
|
raise Exception.Create ('Almacen no asignada');
|
||||||
|
|
||||||
|
ShowHourglassCursor;
|
||||||
|
try
|
||||||
|
if (AAlmacen.State in dsEditModes) then
|
||||||
|
AAlmacen.Cancel;
|
||||||
|
|
||||||
|
AAlmacen.Delete;
|
||||||
|
AAlmacen.DataTable.ApplyUpdates;
|
||||||
|
HideHourglassCursor;
|
||||||
|
Result := True;
|
||||||
|
except
|
||||||
|
on E: Exception do
|
||||||
|
begin
|
||||||
|
AAlmacen.DataTable.CancelUpdates;
|
||||||
|
HideHourglassCursor;
|
||||||
|
if (Pos('FOREIGN KEY', E.Message) > 0) then
|
||||||
|
MessageBox(0, 'No se puede borrar este almacen porque tiene artículos', 'Atención', MB_ICONWARNING or MB_OK);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlmacenesController.RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
//
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlmacenesController.RecuperarObjetos(AAlmacen: IBizAlmacen);
|
||||||
|
begin
|
||||||
|
//
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlmacenesController.Existe(const ID: Integer): Boolean;
|
||||||
|
var
|
||||||
|
AAlmacen : IBizAlmacen;
|
||||||
|
begin
|
||||||
|
try
|
||||||
|
AAlmacen := Buscar(ID);
|
||||||
|
Result := Assigned(AAlmacen) and (AAlmacen.ID = ID);
|
||||||
|
finally
|
||||||
|
AAlmacen := NIL;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlmacenesController.FiltrarEmpresa(AAlmacen: IBizAlmacen);
|
||||||
|
begin
|
||||||
|
if AAlmacen.DataTable.Active then
|
||||||
|
AAlmacen.DataTable.Active := False;
|
||||||
|
{
|
||||||
|
// Filtrar los Almacenes actuales por empresa
|
||||||
|
with AAlmacen.DataTable.Where do
|
||||||
|
begin
|
||||||
|
if NotEmpty then
|
||||||
|
AddOperator(opAND);
|
||||||
|
|
||||||
|
OpenBraket;
|
||||||
|
AddText('ALMACENES.' + fld_AlmacenesID_EMPRESA + ' = ' + IntToStr(dmUsuarios.IDEmpresaActual));
|
||||||
|
CloseBraket;
|
||||||
|
end;
|
||||||
|
}
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlmacenesController.Guardar(AAlmacen: IBizAlmacen): Boolean;
|
||||||
|
begin
|
||||||
|
Result := False;
|
||||||
|
|
||||||
|
if not Assigned(AAlmacen) then
|
||||||
|
raise Exception.Create ('Almacen no asignada');
|
||||||
|
|
||||||
|
ValidarObjetos;
|
||||||
|
|
||||||
|
if ValidarAlmacen(AAlmacen) then
|
||||||
|
begin
|
||||||
|
ShowHourglassCursor;
|
||||||
|
try
|
||||||
|
if (AAlmacen.DataTable.State in dsEditModes) then
|
||||||
|
AAlmacen.DataTable.Post;
|
||||||
|
|
||||||
|
// AsignarCodigo(AAlmacen);
|
||||||
|
AAlmacen.DataTable.ApplyUpdates;
|
||||||
|
|
||||||
|
Result := True;
|
||||||
|
finally
|
||||||
|
HideHourglassCursor;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlmacenesController.Nuevo: IBizAlmacen;
|
||||||
|
var
|
||||||
|
AAlmacen : IBizAlmacen;
|
||||||
|
begin
|
||||||
|
AAlmacen := FDataModule.NewItem;
|
||||||
|
FiltrarEmpresa(AAlmacen);
|
||||||
|
AAlmacen.DataTable.Active := True;
|
||||||
|
AAlmacen.Insert;
|
||||||
|
Result := AAlmacen;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlmacenesController.Preview(AAlmacen: IBizAlmacen);
|
||||||
|
//var
|
||||||
|
// AReportController : IAlmacenesReportController;
|
||||||
|
begin
|
||||||
|
{ AReportController := TAlmacenesReportController.Create;
|
||||||
|
try
|
||||||
|
AReportController.Preview(AAlmacen.ID);
|
||||||
|
finally
|
||||||
|
AReportController := NIL;
|
||||||
|
end;
|
||||||
|
}
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlmacenesController.Print(AAlmacen: IBizAlmacen);
|
||||||
|
//var
|
||||||
|
// AReportController : IAlmacenesReportController;
|
||||||
|
begin
|
||||||
|
{ AReportController := TAlmacenesReportController.Create;
|
||||||
|
try
|
||||||
|
AReportController.Print(AAlmacen.ID);
|
||||||
|
finally
|
||||||
|
AReportController := NIL;
|
||||||
|
end;
|
||||||
|
}
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
492
Source/Modulos/Almacenes/Data/Almacenes_data.bdsproj
Normal file
492
Source/Modulos/Almacenes/Data/Almacenes_data.bdsproj
Normal file
@ -0,0 +1,492 @@
|
|||||||
|
<?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">{C8118762-09B6-432F-BA26-058FA36C39D9}</Option>
|
||||||
|
</Option>
|
||||||
|
</PersonalityInfo>
|
||||||
|
<Delphi.Personality>
|
||||||
|
<Source>
|
||||||
|
<Source Name="MainSource">Almacenes_data.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">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;..\..\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>
|
||||||
|
<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"></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=0
|
||||||
|
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>
|
||||||
33
Source/Modulos/Almacenes/Data/Almacenes_data.dpk
Normal file
33
Source/Modulos/Almacenes/Data/Almacenes_data.dpk
Normal file
@ -0,0 +1,33 @@
|
|||||||
|
package Almacenes_data;
|
||||||
|
|
||||||
|
{$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}
|
||||||
|
|
||||||
|
requires
|
||||||
|
Almacenes_model;
|
||||||
|
|
||||||
|
contains
|
||||||
|
uDataModuleAlmacenes in 'uDataModuleAlmacenes.pas' {DataModuleAlmacenes};
|
||||||
|
|
||||||
|
end.
|
||||||
579
Source/Modulos/Almacenes/Data/Almacenes_data.dproj
Normal file
579
Source/Modulos/Almacenes/Data/Almacenes_data.dproj
Normal file
@ -0,0 +1,579 @@
|
|||||||
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
|
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||||
|
<PropertyGroup>
|
||||||
|
<ProjectGuid>{c8118762-09b6-432f-ba26-058fa36c39d9}</ProjectGuid>
|
||||||
|
<MainSource>Almacenes_data.dpk</MainSource>
|
||||||
|
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||||
|
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||||
|
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
|
||||||
|
<DCC_DependencyCheckOutputName>..\..\..\..\Output\Debug\Cliente\Almacenes_data.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\Debug\Cliente</DCC_BplOutput>
|
||||||
|
<DCC_DcpOutput>..\..\Lib</DCC_DcpOutput>
|
||||||
|
<DCC_UnitSearchPath>..\..\..\Lib;..\..\Lib</DCC_UnitSearchPath>
|
||||||
|
<DCC_ResourcePath>..\..\..\Lib;..\..\Lib</DCC_ResourcePath>
|
||||||
|
<DCC_ObjPath>..\..\..\Lib;..\..\Lib</DCC_ObjPath>
|
||||||
|
<DCC_IncludePath>..\..\..\Lib;..\..\Lib</DCC_IncludePath>
|
||||||
|
<DCC_Define>RELEASE</DCC_Define>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||||
|
<Version>7.0</Version>
|
||||||
|
<DCC_DcuOutput>.\</DCC_DcuOutput>
|
||||||
|
<DCC_ObjOutput>.\</DCC_ObjOutput>
|
||||||
|
<DCC_HppOutput>.\</DCC_HppOutput>
|
||||||
|
<DCC_BplOutput>..\..\..\..\Output\Debug\Cliente</DCC_BplOutput>
|
||||||
|
<DCC_DcpOutput>..\..\Lib</DCC_DcpOutput>
|
||||||
|
<DCC_UnitSearchPath>..\..\..\Lib;..\..\Lib</DCC_UnitSearchPath>
|
||||||
|
<DCC_ResourcePath>..\..\..\Lib;..\..\Lib</DCC_ResourcePath>
|
||||||
|
<DCC_ObjPath>..\..\..\Lib;..\..\Lib</DCC_ObjPath>
|
||||||
|
<DCC_IncludePath>..\..\..\Lib;..\..\Lib</DCC_IncludePath>
|
||||||
|
</PropertyGroup>
|
||||||
|
<ProjectExtensions>
|
||||||
|
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||||
|
<Borland.ProjectType>Package</Borland.ProjectType>
|
||||||
|
<BorlandProject>
|
||||||
|
<BorlandProject> <Delphi.Personality> <Parameters>
|
||||||
|
<Parameters Name="UseLauncher">False</Parameters>
|
||||||
|
<Parameters Name="LoadAllSymbols">True</Parameters>
|
||||||
|
<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
|
||||||
|
</Parameters>
|
||||||
|
<Package_Options>
|
||||||
|
<Package_Options Name="ImplicitBuild">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>
|
||||||
|
<Source>
|
||||||
|
<Source Name="MainSource">Almacenes_data.dpk</Source>
|
||||||
|
</Source>
|
||||||
|
</Delphi.Personality> </BorlandProject></BorlandProject>
|
||||||
|
</ProjectExtensions>
|
||||||
|
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||||
|
<ItemGroup>
|
||||||
|
<DelphiCompile Include="Almacenes_data.dpk">
|
||||||
|
<MainSource>MainSource</MainSource>
|
||||||
|
</DelphiCompile>
|
||||||
|
<DCCReference Include="..\..\Lib\Almacenes_model.dcp" />
|
||||||
|
<DCCReference Include="uDataModuleAlmacenes.pas">
|
||||||
|
<Form>DataModuleAlmacenes</Form>
|
||||||
|
</DCCReference>
|
||||||
|
</ItemGroup>
|
||||||
|
</Project>
|
||||||
|
|
||||||
|
<!-- EurekaLog First Line
|
||||||
|
[Exception Log]
|
||||||
|
EurekaLog Version=6006
|
||||||
|
Activate=0
|
||||||
|
Activate Handle=1
|
||||||
|
Save Log File=1
|
||||||
|
Foreground Tab=0
|
||||||
|
Freeze Activate=0
|
||||||
|
Freeze Timeout=60
|
||||||
|
SMTP From=eurekalog@email.com
|
||||||
|
SMTP Host=
|
||||||
|
SMTP Port=25
|
||||||
|
SMTP UserID=
|
||||||
|
SMTP Password=
|
||||||
|
Append to Log=0
|
||||||
|
TerminateBtn Operation=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 -->
|
||||||
0
Source/Modulos/Almacenes/Data/Almacenes_data.rc
Normal file
0
Source/Modulos/Almacenes/Data/Almacenes_data.rc
Normal file
BIN
Source/Modulos/Almacenes/Data/Almacenes_data.res
Normal file
BIN
Source/Modulos/Almacenes/Data/Almacenes_data.res
Normal file
Binary file not shown.
142
Source/Modulos/Almacenes/Data/uDataModuleAlmacenes.dfm
Normal file
142
Source/Modulos/Almacenes/Data/uDataModuleAlmacenes.dfm
Normal file
@ -0,0 +1,142 @@
|
|||||||
|
inherited DataModuleAlmacenes: TDataModuleAlmacenes
|
||||||
|
OnCreate = DAClientDataModuleCreate
|
||||||
|
Height = 234
|
||||||
|
Width = 300
|
||||||
|
object RORemoteService: TRORemoteService
|
||||||
|
Message = dmConexion.ROMessage
|
||||||
|
Channel = dmConexion.ROChannel
|
||||||
|
ServiceName = 'srvAlmacenes'
|
||||||
|
Left = 48
|
||||||
|
Top = 24
|
||||||
|
end
|
||||||
|
object Bin2DataStreamer: TDABin2DataStreamer
|
||||||
|
Left = 48
|
||||||
|
Top = 84
|
||||||
|
end
|
||||||
|
object rda_Almacenes: TDARemoteDataAdapter
|
||||||
|
GetSchemaCall.RemoteService = RORemoteService
|
||||||
|
GetDataCall.RemoteService = RORemoteService
|
||||||
|
UpdateDataCall.RemoteService = RORemoteService
|
||||||
|
GetScriptsCall.RemoteService = RORemoteService
|
||||||
|
RemoteService = RORemoteService
|
||||||
|
DataStreamer = Bin2DataStreamer
|
||||||
|
Left = 51
|
||||||
|
Top = 143
|
||||||
|
end
|
||||||
|
object tbl_Almacenes: TDAMemDataTable
|
||||||
|
RemoteUpdatesOptions = []
|
||||||
|
Fields = <
|
||||||
|
item
|
||||||
|
Name = 'ID'
|
||||||
|
DataType = datAutoInc
|
||||||
|
GeneratorName = 'GEN_ALMACENES_ID'
|
||||||
|
Required = True
|
||||||
|
DictionaryEntry = 'Almacenes_ID'
|
||||||
|
InPrimaryKey = True
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'ID_EMPRESA'
|
||||||
|
DataType = datInteger
|
||||||
|
DictionaryEntry = 'Almacenes_ID_EMPRESA'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'NOMBRE'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
DisplayLabel = 'Nombre'
|
||||||
|
DictionaryEntry = 'Almacenes_NOMBRE'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'CALLE'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
DisplayLabel = 'Calle'
|
||||||
|
DictionaryEntry = 'Almacenes_CALLE'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'PROVINCIA'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
DisplayLabel = 'Provincia'
|
||||||
|
DictionaryEntry = 'Almacenes_PROVINCIA'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'POBLACION'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
DisplayLabel = 'Poblaci'#195#179'n'
|
||||||
|
DictionaryEntry = 'Almacenes_POBLACION'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'CODIGO_POSTAL'
|
||||||
|
DataType = datString
|
||||||
|
Size = 10
|
||||||
|
DisplayLabel = 'C'#195#179'digo postal'
|
||||||
|
DictionaryEntry = 'Almacenes_CODIGO_POSTAL'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'TELEFONO'
|
||||||
|
DataType = datString
|
||||||
|
Size = 25
|
||||||
|
DisplayLabel = 'Tel'#195#169'fono'
|
||||||
|
DictionaryEntry = 'Almacenes_TELEFONO'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'MOVIL'
|
||||||
|
DataType = datString
|
||||||
|
Size = 25
|
||||||
|
DisplayLabel = 'M'#195#179'vil'
|
||||||
|
DictionaryEntry = 'Almacenes_MOVIL'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'FAX'
|
||||||
|
DataType = datString
|
||||||
|
Size = 25
|
||||||
|
DisplayLabel = 'Fax'
|
||||||
|
DictionaryEntry = 'Almacenes_FAX'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'PERSONA_CONTACTO'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
DisplayLabel = 'Persona de contacto'
|
||||||
|
DictionaryEntry = 'Almacenes_PERSONA_CONTACTO'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'OBSERVACIONES'
|
||||||
|
DataType = datMemo
|
||||||
|
DisplayLabel = 'Observaciones'
|
||||||
|
DictionaryEntry = 'Almacenes_OBSERVACIONES'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'FECHA_ALTA'
|
||||||
|
DataType = datDateTime
|
||||||
|
DictionaryEntry = 'Almacenes_FECHA_ALTA'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'FECHA_MODIFICACION'
|
||||||
|
DataType = datDateTime
|
||||||
|
DictionaryEntry = 'Almacenes_FECHA_MODIFICACION'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'USUARIO'
|
||||||
|
DataType = datString
|
||||||
|
Size = 20
|
||||||
|
DictionaryEntry = 'Almacenes_USUARIO'
|
||||||
|
end>
|
||||||
|
Params = <>
|
||||||
|
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||||
|
RemoteDataAdapter = rda_Almacenes
|
||||||
|
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
|
||||||
|
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
|
||||||
|
LogicalName = 'Almacenes'
|
||||||
|
Left = 192
|
||||||
|
Top = 80
|
||||||
|
end
|
||||||
|
object ds_Almacenes: TDADataSource
|
||||||
|
DataSet = tbl_Almacenes.Dataset
|
||||||
|
DataTable = tbl_Almacenes
|
||||||
|
Left = 192
|
||||||
|
Top = 16
|
||||||
|
end
|
||||||
|
end
|
||||||
94
Source/Modulos/Almacenes/Data/uDataModuleAlmacenes.pas
Normal file
94
Source/Modulos/Almacenes/Data/uDataModuleAlmacenes.pas
Normal file
@ -0,0 +1,94 @@
|
|||||||
|
unit uDataModuleAlmacenes;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
SysUtils, Classes, DB, uDAClientDataModule, uDADataTable, uDABINAdapter,
|
||||||
|
uDAScriptingProvider, uDACDSDataTable, uROWinInetHttpChannel, uROTypes,
|
||||||
|
uROServiceComponent, uRORemoteService, uROClient, uROBinMessage,
|
||||||
|
uDADesigntimeCall,
|
||||||
|
uIDataModuleAlmacenes, uBizAlmacenes, uDataModuleBase, uDARemoteDataAdapter,
|
||||||
|
uDADataStreamer, uDABin2DataStreamer, uDAInterfaces, uDAMemDataTable,
|
||||||
|
uRODynamicRequest;
|
||||||
|
|
||||||
|
|
||||||
|
type
|
||||||
|
TDataModuleAlmacenes = class(TDataModuleBase, IDataModuleAlmacenes)
|
||||||
|
RORemoteService: TRORemoteService;
|
||||||
|
Bin2DataStreamer: TDABin2DataStreamer;
|
||||||
|
rda_Almacenes: TDARemoteDataAdapter;
|
||||||
|
tbl_Almacenes: TDAMemDataTable;
|
||||||
|
ds_Almacenes: TDADataSource;
|
||||||
|
procedure DAClientDataModuleCreate(Sender: TObject);
|
||||||
|
|
||||||
|
protected
|
||||||
|
procedure AsignarClaseNegocio(AAlmacen: TDADataTable); virtual;
|
||||||
|
public
|
||||||
|
function GetItems : IBizAlmacen;
|
||||||
|
function GetItem(const ID : Integer) : IBizAlmacen;
|
||||||
|
function NewItem : IBizAlmacen;
|
||||||
|
end;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
{$R *.DFM}
|
||||||
|
|
||||||
|
uses
|
||||||
|
FactuGES_Intf, uDataModuleConexion, uDataTableUtils, cxControls,
|
||||||
|
schAlmacenesClient_Intf;
|
||||||
|
|
||||||
|
{ TdmAlmacens }
|
||||||
|
|
||||||
|
procedure TDataModuleAlmacenes.AsignarClaseNegocio(AAlmacen: TDADataTable);
|
||||||
|
begin
|
||||||
|
AAlmacen.BusinessRulesID := BIZ_CLIENT_ALMACEN;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TDataModuleAlmacenes.DAClientDataModuleCreate(Sender: TObject);
|
||||||
|
begin
|
||||||
|
RORemoteService.Channel := dmConexion.Channel;
|
||||||
|
RORemoteService.Message := dmConexion.Message;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TDataModuleAlmacenes.NewItem: IBizAlmacen;
|
||||||
|
begin
|
||||||
|
Result := GetItem(ID_NULO)
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TDataModuleAlmacenes.GetItem(const ID: Integer): IBizAlmacen;
|
||||||
|
begin
|
||||||
|
ShowHourglassCursor;
|
||||||
|
try
|
||||||
|
Result := Self.GetItems;
|
||||||
|
with Result.DataTable.Where do
|
||||||
|
begin
|
||||||
|
if NotEmpty then
|
||||||
|
AddOperator(opAND);
|
||||||
|
OpenBraket;
|
||||||
|
AddText('Almacenes.' + fld_AlmacenesID + ' = ' + IntToStr(ID));
|
||||||
|
CloseBraket;
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
HideHourglassCursor;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TDataModuleAlmacenes.GetItems: IBizAlmacen;
|
||||||
|
var
|
||||||
|
AAlmacen : TDAMemDataTable;
|
||||||
|
begin
|
||||||
|
ShowHourglassCursor;
|
||||||
|
try
|
||||||
|
AAlmacen := CloneDataTable(tbl_Almacenes);
|
||||||
|
|
||||||
|
AsignarClaseNegocio(AAlmacen);
|
||||||
|
|
||||||
|
Result := (AAlmacen as IBizAlmacen);
|
||||||
|
|
||||||
|
finally
|
||||||
|
HideHourglassCursor;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
end.
|
||||||
122
Source/Modulos/Almacenes/Data/uDataModuleAlmacenes.pas.bak
Normal file
122
Source/Modulos/Almacenes/Data/uDataModuleAlmacenes.pas.bak
Normal file
@ -0,0 +1,122 @@
|
|||||||
|
unit uDataModuleAlmacenes;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
SysUtils, Classes, DB, uDAClientDataModule, uDADataTable, uDABINAdapter,
|
||||||
|
uDAScriptingProvider, uDACDSDataTable, uROWinInetHttpChannel, uROTypes,
|
||||||
|
uROServiceComponent, uRORemoteService, uROClient, uROBinMessage,
|
||||||
|
uDADesigntimeCall,
|
||||||
|
uIDataModuleAlmacenes, uBizAlmacenes;
|
||||||
|
|
||||||
|
type
|
||||||
|
TDataModuleAlmacenes = class(TDAClientDataModule, IDataModuleAlmacenes)
|
||||||
|
RORemoteService: TRORemoteService;
|
||||||
|
DABinAdapter: TDABINAdapter;
|
||||||
|
DADesigntimeCall1: TDADesigntimeCall;
|
||||||
|
LoginRemoteService: TRORemoteService;
|
||||||
|
ROWinInetHTTPChannel1: TROWinInetHTTPChannel;
|
||||||
|
ROBinMessage1: TROBinMessage;
|
||||||
|
tbl_Almacenes: TDACDSDataTable;
|
||||||
|
ds_Almacenes: TDADataSource;
|
||||||
|
procedure DAClientDataModuleCreate(Sender: TObject);
|
||||||
|
|
||||||
|
protected
|
||||||
|
function _CloneDataTable (const ADataTable : TDACDSDataTable): TDACDSDataTable; overload;
|
||||||
|
procedure AsignarClaseNegocio(var AAlmacen: TDACDSDataTable); virtual;
|
||||||
|
function darNombreGenerador(DataSetName: String): String; virtual;
|
||||||
|
public
|
||||||
|
function GetItems : IBizAlmacen;
|
||||||
|
function GetItem(const ID : Integer) : IBizAlmacen;
|
||||||
|
function GetNextID(const DataSetName : String) : Integer;
|
||||||
|
function NewItem : IBizAlmacen;
|
||||||
|
end;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
{$R *.DFM}
|
||||||
|
|
||||||
|
uses
|
||||||
|
FactuGES_Intf, uDataModuleConexion, uDataTableUtils, cxControls, uDAInterfaces,
|
||||||
|
schAlmacenesClient_Intf;
|
||||||
|
|
||||||
|
{ TdmAlmacens }
|
||||||
|
|
||||||
|
procedure TDataModuleAlmacenes.AsignarClaseNegocio(var AAlmacen: TDACDSDataTable);
|
||||||
|
begin
|
||||||
|
AAlmacen.BusinessRulesID := BIZ_CLIENT_ALMACEN;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TDataModuleAlmacenes.DAClientDataModuleCreate(Sender: TObject);
|
||||||
|
begin
|
||||||
|
RORemoteService.Channel := dmConexion.Channel;
|
||||||
|
RORemoteService.Message := dmConexion.Message;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TDataModuleAlmacenes.darNombreGenerador(DataSetName: String): String;
|
||||||
|
begin
|
||||||
|
if DataSetName = nme_Almacenes then
|
||||||
|
Result := 'GEN_ALMACENES_ID';
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TDataModuleAlmacenes.GetNextID(const DataSetName: String): Integer;
|
||||||
|
var
|
||||||
|
aGeneratorName : String;
|
||||||
|
begin
|
||||||
|
aGeneratorName := darNombreGenerador(DataSetName);
|
||||||
|
Result := (RORemoteService as IsrvAlmacenes).GetNextAutoInc(aGeneratorName)
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TDataModuleAlmacenes.NewItem: IBizAlmacen;
|
||||||
|
begin
|
||||||
|
Result := GetItem(ID_NULO)
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TDataModuleAlmacenes._CloneDataTable(const ADataTable : TDACDSDataTable): TDACDSDataTable;
|
||||||
|
begin
|
||||||
|
Result := NIL;
|
||||||
|
|
||||||
|
if not Assigned(ADataTable) then
|
||||||
|
raise Exception.Create ('No se ha asignado la tabla de origen (CloneDataTable)');
|
||||||
|
|
||||||
|
Result := TDACDSDataTable.Create(NIL);
|
||||||
|
CloneDataTable(ADataTable, Result);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TDataModuleAlmacenes.GetItem(const ID: Integer): IBizAlmacen;
|
||||||
|
begin
|
||||||
|
ShowHourglassCursor;
|
||||||
|
try
|
||||||
|
Result := Self.GetItems;
|
||||||
|
with Result.DataTable.Where do
|
||||||
|
begin
|
||||||
|
if NotEmpty then
|
||||||
|
AddOperator(opAND);
|
||||||
|
OpenBraket;
|
||||||
|
AddText('Almacenes.' + fld_AlmacenesID + ' = ' + IntToStr(ID));
|
||||||
|
CloseBraket;
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
HideHourglassCursor;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TDataModuleAlmacenes.GetItems: IBizAlmacen;
|
||||||
|
var
|
||||||
|
AAlmacen : TDACDSDataTable;
|
||||||
|
begin
|
||||||
|
ShowHourglassCursor;
|
||||||
|
try
|
||||||
|
AAlmacen := _CloneDataTable(tbl_Almacenes);
|
||||||
|
|
||||||
|
AsignarClaseNegocio(AAlmacen);
|
||||||
|
|
||||||
|
Result := (AAlmacen as IBizAlmacen);
|
||||||
|
|
||||||
|
finally
|
||||||
|
HideHourglassCursor;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
end.
|
||||||
492
Source/Modulos/Almacenes/Model/Almacenes_model.bdsproj
Normal file
492
Source/Modulos/Almacenes/Model/Almacenes_model.bdsproj
Normal file
@ -0,0 +1,492 @@
|
|||||||
|
<?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">{6F3570F5-74AD-4A33-A639-70DC8F299B3F}</Option>
|
||||||
|
</Option>
|
||||||
|
</PersonalityInfo>
|
||||||
|
<Delphi.Personality>
|
||||||
|
<Source>
|
||||||
|
<Source Name="MainSource">Almacenes_model.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">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;..\..\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>
|
||||||
|
<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"></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=0
|
||||||
|
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>
|
||||||
35
Source/Modulos/Almacenes/Model/Almacenes_model.dpk
Normal file
35
Source/Modulos/Almacenes/Model/Almacenes_model.dpk
Normal file
@ -0,0 +1,35 @@
|
|||||||
|
package Almacenes_model;
|
||||||
|
|
||||||
|
{$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}
|
||||||
|
|
||||||
|
requires
|
||||||
|
Base;
|
||||||
|
|
||||||
|
contains
|
||||||
|
uBizAlmacenes in 'uBizAlmacenes.pas',
|
||||||
|
uIDataModuleAlmacenes in 'Data\uIDataModuleAlmacenes.pas',
|
||||||
|
schAlmacenesClient_Intf in 'schAlmacenesClient_Intf.pas';
|
||||||
|
|
||||||
|
end.
|
||||||
579
Source/Modulos/Almacenes/Model/Almacenes_model.dproj
Normal file
579
Source/Modulos/Almacenes/Model/Almacenes_model.dproj
Normal file
@ -0,0 +1,579 @@
|
|||||||
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
|
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||||
|
<PropertyGroup>
|
||||||
|
<ProjectGuid>{6f3570f5-74ad-4a33-a639-70dc8f299b3f}</ProjectGuid>
|
||||||
|
<MainSource>Almacenes_model.dpk</MainSource>
|
||||||
|
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||||
|
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||||
|
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
|
||||||
|
<DCC_DependencyCheckOutputName>..\..\..\..\Output\Debug\Cliente\Almacenes_model.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\Debug\Cliente</DCC_BplOutput>
|
||||||
|
<DCC_DcpOutput>..\..\Lib</DCC_DcpOutput>
|
||||||
|
<DCC_UnitSearchPath>..\..\..\Lib;..\..\Lib</DCC_UnitSearchPath>
|
||||||
|
<DCC_ResourcePath>..\..\..\Lib;..\..\Lib</DCC_ResourcePath>
|
||||||
|
<DCC_ObjPath>..\..\..\Lib;..\..\Lib</DCC_ObjPath>
|
||||||
|
<DCC_IncludePath>..\..\..\Lib;..\..\Lib</DCC_IncludePath>
|
||||||
|
<DCC_Define>RELEASE</DCC_Define>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||||
|
<Version>7.0</Version>
|
||||||
|
<DCC_DcuOutput>.\</DCC_DcuOutput>
|
||||||
|
<DCC_ObjOutput>.\</DCC_ObjOutput>
|
||||||
|
<DCC_HppOutput>.\</DCC_HppOutput>
|
||||||
|
<DCC_BplOutput>..\..\..\..\Output\Debug\Cliente</DCC_BplOutput>
|
||||||
|
<DCC_DcpOutput>..\..\Lib</DCC_DcpOutput>
|
||||||
|
<DCC_UnitSearchPath>..\..\..\Lib;..\..\Lib</DCC_UnitSearchPath>
|
||||||
|
<DCC_ResourcePath>..\..\..\Lib;..\..\Lib</DCC_ResourcePath>
|
||||||
|
<DCC_ObjPath>..\..\..\Lib;..\..\Lib</DCC_ObjPath>
|
||||||
|
<DCC_IncludePath>..\..\..\Lib;..\..\Lib</DCC_IncludePath>
|
||||||
|
</PropertyGroup>
|
||||||
|
<ProjectExtensions>
|
||||||
|
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||||
|
<Borland.ProjectType>Package</Borland.ProjectType>
|
||||||
|
<BorlandProject>
|
||||||
|
<BorlandProject> <Delphi.Personality> <Parameters>
|
||||||
|
<Parameters Name="UseLauncher">False</Parameters>
|
||||||
|
<Parameters Name="LoadAllSymbols">True</Parameters>
|
||||||
|
<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
|
||||||
|
</Parameters>
|
||||||
|
<Package_Options>
|
||||||
|
<Package_Options Name="ImplicitBuild">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>
|
||||||
|
<Source>
|
||||||
|
<Source Name="MainSource">Almacenes_model.dpk</Source>
|
||||||
|
</Source>
|
||||||
|
</Delphi.Personality> </BorlandProject></BorlandProject>
|
||||||
|
</ProjectExtensions>
|
||||||
|
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||||
|
<ItemGroup>
|
||||||
|
<DelphiCompile Include="Almacenes_model.dpk">
|
||||||
|
<MainSource>MainSource</MainSource>
|
||||||
|
</DelphiCompile>
|
||||||
|
<DCCReference Include="..\..\..\Lib\Base.dcp" />
|
||||||
|
<DCCReference Include="Data\uIDataModuleAlmacenes.pas" />
|
||||||
|
<DCCReference Include="schAlmacenesClient_Intf.pas" />
|
||||||
|
<DCCReference Include="uBizAlmacenes.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=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 -->
|
||||||
0
Source/Modulos/Almacenes/Model/Almacenes_model.rc
Normal file
0
Source/Modulos/Almacenes/Model/Almacenes_model.rc
Normal file
BIN
Source/Modulos/Almacenes/Model/Almacenes_model.res
Normal file
BIN
Source/Modulos/Almacenes/Model/Almacenes_model.res
Normal file
Binary file not shown.
@ -0,0 +1,18 @@
|
|||||||
|
unit uIDataModuleAlmacenes;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
uBizAlmacenes;
|
||||||
|
|
||||||
|
type
|
||||||
|
IDataModuleAlmacenes = interface
|
||||||
|
['{0FE2B5E6-DE76-4834-B27F-3C754C96B76A}']
|
||||||
|
function GetItems: IBizAlmacen;
|
||||||
|
function GetItem(const ID : Integer) : IBizAlmacen;
|
||||||
|
function NewItem : IBizAlmacen;
|
||||||
|
end;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
end.
|
||||||
596
Source/Modulos/Almacenes/Model/schAlmacenesClient_Intf.pas
Normal file
596
Source/Modulos/Almacenes/Model/schAlmacenesClient_Intf.pas
Normal file
@ -0,0 +1,596 @@
|
|||||||
|
unit schAlmacenesClient_Intf;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Classes, DB, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
|
||||||
|
|
||||||
|
const
|
||||||
|
{ Data table rules ids
|
||||||
|
Feel free to change them to something more human readable
|
||||||
|
but make sure they are unique in the context of your application }
|
||||||
|
RID_Almacenes = '{5EAFCDA6-24B0-49DF-908B-446E0E78DBA1}';
|
||||||
|
|
||||||
|
{ Data table names }
|
||||||
|
nme_Almacenes = 'Almacenes';
|
||||||
|
|
||||||
|
{ Almacenes fields }
|
||||||
|
fld_AlmacenesID = 'ID';
|
||||||
|
fld_AlmacenesID_EMPRESA = 'ID_EMPRESA';
|
||||||
|
fld_AlmacenesNOMBRE = 'NOMBRE';
|
||||||
|
fld_AlmacenesCALLE = 'CALLE';
|
||||||
|
fld_AlmacenesPROVINCIA = 'PROVINCIA';
|
||||||
|
fld_AlmacenesPOBLACION = 'POBLACION';
|
||||||
|
fld_AlmacenesCODIGO_POSTAL = 'CODIGO_POSTAL';
|
||||||
|
fld_AlmacenesTELEFONO = 'TELEFONO';
|
||||||
|
fld_AlmacenesMOVIL = 'MOVIL';
|
||||||
|
fld_AlmacenesFAX = 'FAX';
|
||||||
|
fld_AlmacenesPERSONA_CONTACTO = 'PERSONA_CONTACTO';
|
||||||
|
fld_AlmacenesOBSERVACIONES = 'OBSERVACIONES';
|
||||||
|
fld_AlmacenesFECHA_ALTA = 'FECHA_ALTA';
|
||||||
|
fld_AlmacenesFECHA_MODIFICACION = 'FECHA_MODIFICACION';
|
||||||
|
fld_AlmacenesUSUARIO = 'USUARIO';
|
||||||
|
|
||||||
|
{ Almacenes field indexes }
|
||||||
|
idx_AlmacenesID = 0;
|
||||||
|
idx_AlmacenesID_EMPRESA = 1;
|
||||||
|
idx_AlmacenesNOMBRE = 2;
|
||||||
|
idx_AlmacenesCALLE = 3;
|
||||||
|
idx_AlmacenesPROVINCIA = 4;
|
||||||
|
idx_AlmacenesPOBLACION = 5;
|
||||||
|
idx_AlmacenesCODIGO_POSTAL = 6;
|
||||||
|
idx_AlmacenesTELEFONO = 7;
|
||||||
|
idx_AlmacenesMOVIL = 8;
|
||||||
|
idx_AlmacenesFAX = 9;
|
||||||
|
idx_AlmacenesPERSONA_CONTACTO = 10;
|
||||||
|
idx_AlmacenesOBSERVACIONES = 11;
|
||||||
|
idx_AlmacenesFECHA_ALTA = 12;
|
||||||
|
idx_AlmacenesFECHA_MODIFICACION = 13;
|
||||||
|
idx_AlmacenesUSUARIO = 14;
|
||||||
|
|
||||||
|
type
|
||||||
|
{ IAlmacenes }
|
||||||
|
IAlmacenes = interface(IDAStronglyTypedDataTable)
|
||||||
|
['{DADCBB7A-E505-4CA1-A7F0-A9E7BF58CE65}']
|
||||||
|
{ Property getters and setters }
|
||||||
|
function GetIDValue: Integer;
|
||||||
|
procedure SetIDValue(const aValue: Integer);
|
||||||
|
function GetIDIsNull: Boolean;
|
||||||
|
procedure SetIDIsNull(const aValue: Boolean);
|
||||||
|
function GetID_EMPRESAValue: Integer;
|
||||||
|
procedure SetID_EMPRESAValue(const aValue: Integer);
|
||||||
|
function GetID_EMPRESAIsNull: Boolean;
|
||||||
|
procedure SetID_EMPRESAIsNull(const aValue: Boolean);
|
||||||
|
function GetNOMBREValue: String;
|
||||||
|
procedure SetNOMBREValue(const aValue: String);
|
||||||
|
function GetNOMBREIsNull: Boolean;
|
||||||
|
procedure SetNOMBREIsNull(const aValue: Boolean);
|
||||||
|
function GetCALLEValue: String;
|
||||||
|
procedure SetCALLEValue(const aValue: String);
|
||||||
|
function GetCALLEIsNull: Boolean;
|
||||||
|
procedure SetCALLEIsNull(const aValue: Boolean);
|
||||||
|
function GetPROVINCIAValue: String;
|
||||||
|
procedure SetPROVINCIAValue(const aValue: String);
|
||||||
|
function GetPROVINCIAIsNull: Boolean;
|
||||||
|
procedure SetPROVINCIAIsNull(const aValue: Boolean);
|
||||||
|
function GetPOBLACIONValue: String;
|
||||||
|
procedure SetPOBLACIONValue(const aValue: String);
|
||||||
|
function GetPOBLACIONIsNull: Boolean;
|
||||||
|
procedure SetPOBLACIONIsNull(const aValue: Boolean);
|
||||||
|
function GetCODIGO_POSTALValue: String;
|
||||||
|
procedure SetCODIGO_POSTALValue(const aValue: String);
|
||||||
|
function GetCODIGO_POSTALIsNull: Boolean;
|
||||||
|
procedure SetCODIGO_POSTALIsNull(const aValue: Boolean);
|
||||||
|
function GetTELEFONOValue: String;
|
||||||
|
procedure SetTELEFONOValue(const aValue: String);
|
||||||
|
function GetTELEFONOIsNull: Boolean;
|
||||||
|
procedure SetTELEFONOIsNull(const aValue: Boolean);
|
||||||
|
function GetMOVILValue: String;
|
||||||
|
procedure SetMOVILValue(const aValue: String);
|
||||||
|
function GetMOVILIsNull: Boolean;
|
||||||
|
procedure SetMOVILIsNull(const aValue: Boolean);
|
||||||
|
function GetFAXValue: String;
|
||||||
|
procedure SetFAXValue(const aValue: String);
|
||||||
|
function GetFAXIsNull: Boolean;
|
||||||
|
procedure SetFAXIsNull(const aValue: Boolean);
|
||||||
|
function GetPERSONA_CONTACTOValue: String;
|
||||||
|
procedure SetPERSONA_CONTACTOValue(const aValue: String);
|
||||||
|
function GetPERSONA_CONTACTOIsNull: Boolean;
|
||||||
|
procedure SetPERSONA_CONTACTOIsNull(const aValue: Boolean);
|
||||||
|
function GetOBSERVACIONESValue: IROStrings;
|
||||||
|
function GetOBSERVACIONESIsNull: Boolean;
|
||||||
|
procedure SetOBSERVACIONESIsNull(const aValue: Boolean);
|
||||||
|
function GetFECHA_ALTAValue: DateTime;
|
||||||
|
procedure SetFECHA_ALTAValue(const aValue: DateTime);
|
||||||
|
function GetFECHA_ALTAIsNull: Boolean;
|
||||||
|
procedure SetFECHA_ALTAIsNull(const aValue: Boolean);
|
||||||
|
function GetFECHA_MODIFICACIONValue: DateTime;
|
||||||
|
procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime);
|
||||||
|
function GetFECHA_MODIFICACIONIsNull: Boolean;
|
||||||
|
procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
|
||||||
|
function GetUSUARIOValue: String;
|
||||||
|
procedure SetUSUARIOValue(const aValue: String);
|
||||||
|
function GetUSUARIOIsNull: Boolean;
|
||||||
|
procedure SetUSUARIOIsNull(const aValue: Boolean);
|
||||||
|
|
||||||
|
|
||||||
|
{ Properties }
|
||||||
|
property ID: Integer read GetIDValue write SetIDValue;
|
||||||
|
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
|
||||||
|
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
|
||||||
|
property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
|
||||||
|
property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
|
||||||
|
property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
|
||||||
|
property CALLE: String read GetCALLEValue write SetCALLEValue;
|
||||||
|
property CALLEIsNull: Boolean read GetCALLEIsNull write SetCALLEIsNull;
|
||||||
|
property PROVINCIA: String read GetPROVINCIAValue write SetPROVINCIAValue;
|
||||||
|
property PROVINCIAIsNull: Boolean read GetPROVINCIAIsNull write SetPROVINCIAIsNull;
|
||||||
|
property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue;
|
||||||
|
property POBLACIONIsNull: Boolean read GetPOBLACIONIsNull write SetPOBLACIONIsNull;
|
||||||
|
property CODIGO_POSTAL: String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue;
|
||||||
|
property CODIGO_POSTALIsNull: Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull;
|
||||||
|
property TELEFONO: String read GetTELEFONOValue write SetTELEFONOValue;
|
||||||
|
property TELEFONOIsNull: Boolean read GetTELEFONOIsNull write SetTELEFONOIsNull;
|
||||||
|
property MOVIL: String read GetMOVILValue write SetMOVILValue;
|
||||||
|
property MOVILIsNull: Boolean read GetMOVILIsNull write SetMOVILIsNull;
|
||||||
|
property FAX: String read GetFAXValue write SetFAXValue;
|
||||||
|
property FAXIsNull: Boolean read GetFAXIsNull write SetFAXIsNull;
|
||||||
|
property PERSONA_CONTACTO: String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue;
|
||||||
|
property PERSONA_CONTACTOIsNull: Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull;
|
||||||
|
property OBSERVACIONES: IROStrings read GetOBSERVACIONESValue;
|
||||||
|
property OBSERVACIONESIsNull: Boolean read GetOBSERVACIONESIsNull write SetOBSERVACIONESIsNull;
|
||||||
|
property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
|
||||||
|
property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
|
||||||
|
property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
|
||||||
|
property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull;
|
||||||
|
property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
|
||||||
|
property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
|
||||||
|
end;
|
||||||
|
|
||||||
|
{ TAlmacenesDataTableRules }
|
||||||
|
TAlmacenesDataTableRules = class(TDADataTableRules, IAlmacenes)
|
||||||
|
private
|
||||||
|
f_OBSERVACIONES: IROStrings;
|
||||||
|
procedure OBSERVACIONES_OnChange(Sender: TObject);
|
||||||
|
protected
|
||||||
|
{ Property getters and setters }
|
||||||
|
function GetIDValue: Integer; virtual;
|
||||||
|
procedure SetIDValue(const aValue: Integer); virtual;
|
||||||
|
function GetIDIsNull: Boolean; virtual;
|
||||||
|
procedure SetIDIsNull(const aValue: Boolean); virtual;
|
||||||
|
function GetID_EMPRESAValue: Integer; virtual;
|
||||||
|
procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
|
||||||
|
function GetID_EMPRESAIsNull: Boolean; virtual;
|
||||||
|
procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual;
|
||||||
|
function GetNOMBREValue: String; virtual;
|
||||||
|
procedure SetNOMBREValue(const aValue: String); virtual;
|
||||||
|
function GetNOMBREIsNull: Boolean; virtual;
|
||||||
|
procedure SetNOMBREIsNull(const aValue: Boolean); virtual;
|
||||||
|
function GetCALLEValue: String; virtual;
|
||||||
|
procedure SetCALLEValue(const aValue: String); virtual;
|
||||||
|
function GetCALLEIsNull: Boolean; virtual;
|
||||||
|
procedure SetCALLEIsNull(const aValue: Boolean); virtual;
|
||||||
|
function GetPROVINCIAValue: String; virtual;
|
||||||
|
procedure SetPROVINCIAValue(const aValue: String); virtual;
|
||||||
|
function GetPROVINCIAIsNull: Boolean; virtual;
|
||||||
|
procedure SetPROVINCIAIsNull(const aValue: Boolean); virtual;
|
||||||
|
function GetPOBLACIONValue: String; virtual;
|
||||||
|
procedure SetPOBLACIONValue(const aValue: String); virtual;
|
||||||
|
function GetPOBLACIONIsNull: Boolean; virtual;
|
||||||
|
procedure SetPOBLACIONIsNull(const aValue: Boolean); virtual;
|
||||||
|
function GetCODIGO_POSTALValue: String; virtual;
|
||||||
|
procedure SetCODIGO_POSTALValue(const aValue: String); virtual;
|
||||||
|
function GetCODIGO_POSTALIsNull: Boolean; virtual;
|
||||||
|
procedure SetCODIGO_POSTALIsNull(const aValue: Boolean); virtual;
|
||||||
|
function GetTELEFONOValue: String; virtual;
|
||||||
|
procedure SetTELEFONOValue(const aValue: String); virtual;
|
||||||
|
function GetTELEFONOIsNull: Boolean; virtual;
|
||||||
|
procedure SetTELEFONOIsNull(const aValue: Boolean); virtual;
|
||||||
|
function GetMOVILValue: String; virtual;
|
||||||
|
procedure SetMOVILValue(const aValue: String); virtual;
|
||||||
|
function GetMOVILIsNull: Boolean; virtual;
|
||||||
|
procedure SetMOVILIsNull(const aValue: Boolean); virtual;
|
||||||
|
function GetFAXValue: String; virtual;
|
||||||
|
procedure SetFAXValue(const aValue: String); virtual;
|
||||||
|
function GetFAXIsNull: Boolean; virtual;
|
||||||
|
procedure SetFAXIsNull(const aValue: Boolean); virtual;
|
||||||
|
function GetPERSONA_CONTACTOValue: String; virtual;
|
||||||
|
procedure SetPERSONA_CONTACTOValue(const aValue: String); virtual;
|
||||||
|
function GetPERSONA_CONTACTOIsNull: Boolean; virtual;
|
||||||
|
procedure SetPERSONA_CONTACTOIsNull(const aValue: Boolean); virtual;
|
||||||
|
function GetOBSERVACIONESValue: IROStrings; virtual;
|
||||||
|
function GetOBSERVACIONESIsNull: Boolean; virtual;
|
||||||
|
procedure SetOBSERVACIONESIsNull(const aValue: Boolean); virtual;
|
||||||
|
function GetFECHA_ALTAValue: DateTime; virtual;
|
||||||
|
procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual;
|
||||||
|
function GetFECHA_ALTAIsNull: Boolean; virtual;
|
||||||
|
procedure SetFECHA_ALTAIsNull(const aValue: Boolean); virtual;
|
||||||
|
function GetFECHA_MODIFICACIONValue: DateTime; virtual;
|
||||||
|
procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual;
|
||||||
|
function GetFECHA_MODIFICACIONIsNull: Boolean; virtual;
|
||||||
|
procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual;
|
||||||
|
function GetUSUARIOValue: String; virtual;
|
||||||
|
procedure SetUSUARIOValue(const aValue: String); virtual;
|
||||||
|
function GetUSUARIOIsNull: Boolean; virtual;
|
||||||
|
procedure SetUSUARIOIsNull(const aValue: Boolean); virtual;
|
||||||
|
|
||||||
|
{ Properties }
|
||||||
|
property ID: Integer read GetIDValue write SetIDValue;
|
||||||
|
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
|
||||||
|
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
|
||||||
|
property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
|
||||||
|
property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
|
||||||
|
property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
|
||||||
|
property CALLE: String read GetCALLEValue write SetCALLEValue;
|
||||||
|
property CALLEIsNull: Boolean read GetCALLEIsNull write SetCALLEIsNull;
|
||||||
|
property PROVINCIA: String read GetPROVINCIAValue write SetPROVINCIAValue;
|
||||||
|
property PROVINCIAIsNull: Boolean read GetPROVINCIAIsNull write SetPROVINCIAIsNull;
|
||||||
|
property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue;
|
||||||
|
property POBLACIONIsNull: Boolean read GetPOBLACIONIsNull write SetPOBLACIONIsNull;
|
||||||
|
property CODIGO_POSTAL: String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue;
|
||||||
|
property CODIGO_POSTALIsNull: Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull;
|
||||||
|
property TELEFONO: String read GetTELEFONOValue write SetTELEFONOValue;
|
||||||
|
property TELEFONOIsNull: Boolean read GetTELEFONOIsNull write SetTELEFONOIsNull;
|
||||||
|
property MOVIL: String read GetMOVILValue write SetMOVILValue;
|
||||||
|
property MOVILIsNull: Boolean read GetMOVILIsNull write SetMOVILIsNull;
|
||||||
|
property FAX: String read GetFAXValue write SetFAXValue;
|
||||||
|
property FAXIsNull: Boolean read GetFAXIsNull write SetFAXIsNull;
|
||||||
|
property PERSONA_CONTACTO: String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue;
|
||||||
|
property PERSONA_CONTACTOIsNull: Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull;
|
||||||
|
property OBSERVACIONES: IROStrings read GetOBSERVACIONESValue;
|
||||||
|
property OBSERVACIONESIsNull: Boolean read GetOBSERVACIONESIsNull write SetOBSERVACIONESIsNull;
|
||||||
|
property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
|
||||||
|
property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
|
||||||
|
property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
|
||||||
|
property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull;
|
||||||
|
property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
|
||||||
|
property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
|
||||||
|
|
||||||
|
public
|
||||||
|
constructor Create(aDataTable: TDADataTable); override;
|
||||||
|
destructor Destroy; override;
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
uses Variants, uROBinaryHelpers;
|
||||||
|
|
||||||
|
{ TAlmacenesDataTableRules }
|
||||||
|
constructor TAlmacenesDataTableRules.Create(aDataTable: TDADataTable);
|
||||||
|
var
|
||||||
|
StrList: TStringList;
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
|
||||||
|
StrList := TStringList.Create;
|
||||||
|
StrList.OnChange := OBSERVACIONES_OnChange;
|
||||||
|
f_OBSERVACIONES := NewROStrings(StrList,True);
|
||||||
|
end;
|
||||||
|
|
||||||
|
destructor TAlmacenesDataTableRules.Destroy;
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlmacenesDataTableRules.OBSERVACIONES_OnChange(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if DataTable.Editing then DataTable.Fields[idx_AlmacenesOBSERVACIONES].AsVariant := TStringList(Sender).Text;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlmacenesDataTableRules.GetIDValue: Integer;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_AlmacenesID].AsInteger;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlmacenesDataTableRules.SetIDValue(const aValue: Integer);
|
||||||
|
begin
|
||||||
|
DataTable.Fields[idx_AlmacenesID].AsInteger := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlmacenesDataTableRules.GetIDIsNull: boolean;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_AlmacenesID].IsNull;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlmacenesDataTableRules.SetIDIsNull(const aValue: Boolean);
|
||||||
|
begin
|
||||||
|
if aValue then
|
||||||
|
DataTable.Fields[idx_AlmacenesID].AsVariant := Null;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlmacenesDataTableRules.GetID_EMPRESAValue: Integer;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_AlmacenesID_EMPRESA].AsInteger;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlmacenesDataTableRules.SetID_EMPRESAValue(const aValue: Integer);
|
||||||
|
begin
|
||||||
|
DataTable.Fields[idx_AlmacenesID_EMPRESA].AsInteger := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlmacenesDataTableRules.GetID_EMPRESAIsNull: boolean;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_AlmacenesID_EMPRESA].IsNull;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlmacenesDataTableRules.SetID_EMPRESAIsNull(const aValue: Boolean);
|
||||||
|
begin
|
||||||
|
if aValue then
|
||||||
|
DataTable.Fields[idx_AlmacenesID_EMPRESA].AsVariant := Null;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlmacenesDataTableRules.GetNOMBREValue: String;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_AlmacenesNOMBRE].AsString;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlmacenesDataTableRules.SetNOMBREValue(const aValue: String);
|
||||||
|
begin
|
||||||
|
DataTable.Fields[idx_AlmacenesNOMBRE].AsString := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlmacenesDataTableRules.GetNOMBREIsNull: boolean;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_AlmacenesNOMBRE].IsNull;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlmacenesDataTableRules.SetNOMBREIsNull(const aValue: Boolean);
|
||||||
|
begin
|
||||||
|
if aValue then
|
||||||
|
DataTable.Fields[idx_AlmacenesNOMBRE].AsVariant := Null;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlmacenesDataTableRules.GetCALLEValue: String;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_AlmacenesCALLE].AsString;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlmacenesDataTableRules.SetCALLEValue(const aValue: String);
|
||||||
|
begin
|
||||||
|
DataTable.Fields[idx_AlmacenesCALLE].AsString := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlmacenesDataTableRules.GetCALLEIsNull: boolean;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_AlmacenesCALLE].IsNull;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlmacenesDataTableRules.SetCALLEIsNull(const aValue: Boolean);
|
||||||
|
begin
|
||||||
|
if aValue then
|
||||||
|
DataTable.Fields[idx_AlmacenesCALLE].AsVariant := Null;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlmacenesDataTableRules.GetPROVINCIAValue: String;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_AlmacenesPROVINCIA].AsString;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlmacenesDataTableRules.SetPROVINCIAValue(const aValue: String);
|
||||||
|
begin
|
||||||
|
DataTable.Fields[idx_AlmacenesPROVINCIA].AsString := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlmacenesDataTableRules.GetPROVINCIAIsNull: boolean;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_AlmacenesPROVINCIA].IsNull;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlmacenesDataTableRules.SetPROVINCIAIsNull(const aValue: Boolean);
|
||||||
|
begin
|
||||||
|
if aValue then
|
||||||
|
DataTable.Fields[idx_AlmacenesPROVINCIA].AsVariant := Null;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlmacenesDataTableRules.GetPOBLACIONValue: String;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_AlmacenesPOBLACION].AsString;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlmacenesDataTableRules.SetPOBLACIONValue(const aValue: String);
|
||||||
|
begin
|
||||||
|
DataTable.Fields[idx_AlmacenesPOBLACION].AsString := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlmacenesDataTableRules.GetPOBLACIONIsNull: boolean;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_AlmacenesPOBLACION].IsNull;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlmacenesDataTableRules.SetPOBLACIONIsNull(const aValue: Boolean);
|
||||||
|
begin
|
||||||
|
if aValue then
|
||||||
|
DataTable.Fields[idx_AlmacenesPOBLACION].AsVariant := Null;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlmacenesDataTableRules.GetCODIGO_POSTALValue: String;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_AlmacenesCODIGO_POSTAL].AsString;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlmacenesDataTableRules.SetCODIGO_POSTALValue(const aValue: String);
|
||||||
|
begin
|
||||||
|
DataTable.Fields[idx_AlmacenesCODIGO_POSTAL].AsString := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlmacenesDataTableRules.GetCODIGO_POSTALIsNull: boolean;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_AlmacenesCODIGO_POSTAL].IsNull;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlmacenesDataTableRules.SetCODIGO_POSTALIsNull(const aValue: Boolean);
|
||||||
|
begin
|
||||||
|
if aValue then
|
||||||
|
DataTable.Fields[idx_AlmacenesCODIGO_POSTAL].AsVariant := Null;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlmacenesDataTableRules.GetTELEFONOValue: String;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_AlmacenesTELEFONO].AsString;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlmacenesDataTableRules.SetTELEFONOValue(const aValue: String);
|
||||||
|
begin
|
||||||
|
DataTable.Fields[idx_AlmacenesTELEFONO].AsString := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlmacenesDataTableRules.GetTELEFONOIsNull: boolean;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_AlmacenesTELEFONO].IsNull;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlmacenesDataTableRules.SetTELEFONOIsNull(const aValue: Boolean);
|
||||||
|
begin
|
||||||
|
if aValue then
|
||||||
|
DataTable.Fields[idx_AlmacenesTELEFONO].AsVariant := Null;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlmacenesDataTableRules.GetMOVILValue: String;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_AlmacenesMOVIL].AsString;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlmacenesDataTableRules.SetMOVILValue(const aValue: String);
|
||||||
|
begin
|
||||||
|
DataTable.Fields[idx_AlmacenesMOVIL].AsString := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlmacenesDataTableRules.GetMOVILIsNull: boolean;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_AlmacenesMOVIL].IsNull;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlmacenesDataTableRules.SetMOVILIsNull(const aValue: Boolean);
|
||||||
|
begin
|
||||||
|
if aValue then
|
||||||
|
DataTable.Fields[idx_AlmacenesMOVIL].AsVariant := Null;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlmacenesDataTableRules.GetFAXValue: String;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_AlmacenesFAX].AsString;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlmacenesDataTableRules.SetFAXValue(const aValue: String);
|
||||||
|
begin
|
||||||
|
DataTable.Fields[idx_AlmacenesFAX].AsString := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlmacenesDataTableRules.GetFAXIsNull: boolean;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_AlmacenesFAX].IsNull;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlmacenesDataTableRules.SetFAXIsNull(const aValue: Boolean);
|
||||||
|
begin
|
||||||
|
if aValue then
|
||||||
|
DataTable.Fields[idx_AlmacenesFAX].AsVariant := Null;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlmacenesDataTableRules.GetPERSONA_CONTACTOValue: String;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_AlmacenesPERSONA_CONTACTO].AsString;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlmacenesDataTableRules.SetPERSONA_CONTACTOValue(const aValue: String);
|
||||||
|
begin
|
||||||
|
DataTable.Fields[idx_AlmacenesPERSONA_CONTACTO].AsString := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlmacenesDataTableRules.GetPERSONA_CONTACTOIsNull: boolean;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_AlmacenesPERSONA_CONTACTO].IsNull;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlmacenesDataTableRules.SetPERSONA_CONTACTOIsNull(const aValue: Boolean);
|
||||||
|
begin
|
||||||
|
if aValue then
|
||||||
|
DataTable.Fields[idx_AlmacenesPERSONA_CONTACTO].AsVariant := Null;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlmacenesDataTableRules.GetOBSERVACIONESValue: IROStrings;
|
||||||
|
begin
|
||||||
|
result := f_OBSERVACIONES;
|
||||||
|
result.Text := DataTable.Fields[idx_AlmacenesOBSERVACIONES].AsString;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlmacenesDataTableRules.GetOBSERVACIONESIsNull: boolean;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_AlmacenesOBSERVACIONES].IsNull;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlmacenesDataTableRules.SetOBSERVACIONESIsNull(const aValue: Boolean);
|
||||||
|
begin
|
||||||
|
if aValue then
|
||||||
|
DataTable.Fields[idx_AlmacenesOBSERVACIONES].AsVariant := Null;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlmacenesDataTableRules.GetFECHA_ALTAValue: DateTime;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_AlmacenesFECHA_ALTA].AsDateTime;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlmacenesDataTableRules.SetFECHA_ALTAValue(const aValue: DateTime);
|
||||||
|
begin
|
||||||
|
DataTable.Fields[idx_AlmacenesFECHA_ALTA].AsDateTime := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlmacenesDataTableRules.GetFECHA_ALTAIsNull: boolean;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_AlmacenesFECHA_ALTA].IsNull;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlmacenesDataTableRules.SetFECHA_ALTAIsNull(const aValue: Boolean);
|
||||||
|
begin
|
||||||
|
if aValue then
|
||||||
|
DataTable.Fields[idx_AlmacenesFECHA_ALTA].AsVariant := Null;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlmacenesDataTableRules.GetFECHA_MODIFICACIONValue: DateTime;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_AlmacenesFECHA_MODIFICACION].AsDateTime;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlmacenesDataTableRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime);
|
||||||
|
begin
|
||||||
|
DataTable.Fields[idx_AlmacenesFECHA_MODIFICACION].AsDateTime := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlmacenesDataTableRules.GetFECHA_MODIFICACIONIsNull: boolean;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_AlmacenesFECHA_MODIFICACION].IsNull;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlmacenesDataTableRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
|
||||||
|
begin
|
||||||
|
if aValue then
|
||||||
|
DataTable.Fields[idx_AlmacenesFECHA_MODIFICACION].AsVariant := Null;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlmacenesDataTableRules.GetUSUARIOValue: String;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_AlmacenesUSUARIO].AsString;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlmacenesDataTableRules.SetUSUARIOValue(const aValue: String);
|
||||||
|
begin
|
||||||
|
DataTable.Fields[idx_AlmacenesUSUARIO].AsString := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlmacenesDataTableRules.GetUSUARIOIsNull: boolean;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_AlmacenesUSUARIO].IsNull;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlmacenesDataTableRules.SetUSUARIOIsNull(const aValue: Boolean);
|
||||||
|
begin
|
||||||
|
if aValue then
|
||||||
|
DataTable.Fields[idx_AlmacenesUSUARIO].AsVariant := Null;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
initialization
|
||||||
|
RegisterDataTableRules(RID_Almacenes, TAlmacenesDataTableRules);
|
||||||
|
|
||||||
|
end.
|
||||||
711
Source/Modulos/Almacenes/Model/schAlmacenesServer_Intf.pas
Normal file
711
Source/Modulos/Almacenes/Model/schAlmacenesServer_Intf.pas
Normal file
@ -0,0 +1,711 @@
|
|||||||
|
unit schAlmacenesServer_Intf;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Classes, DB, SysUtils, uROClasses, uDADataTable, uDABusinessProcessor, FmtBCD, uROXMLIntf, schAlmacenesClient_Intf;
|
||||||
|
|
||||||
|
const
|
||||||
|
{ Delta rules ids
|
||||||
|
Feel free to change them to something more human readable
|
||||||
|
but make sure they are unique in the context of your application }
|
||||||
|
RID_AlmacenesDelta = '{A363FBCF-EBBA-4747-8A56-A10E5150E4FE}';
|
||||||
|
|
||||||
|
type
|
||||||
|
{ IAlmacenesDelta }
|
||||||
|
IAlmacenesDelta = interface(IAlmacenes)
|
||||||
|
['{A363FBCF-EBBA-4747-8A56-A10E5150E4FE}']
|
||||||
|
{ Property getters and setters }
|
||||||
|
function GetOldIDValue : Integer;
|
||||||
|
function GetOldID_EMPRESAValue : Integer;
|
||||||
|
function GetOldNOMBREValue : String;
|
||||||
|
function GetOldCALLEValue : String;
|
||||||
|
function GetOldPROVINCIAValue : String;
|
||||||
|
function GetOldPOBLACIONValue : String;
|
||||||
|
function GetOldCODIGO_POSTALValue : String;
|
||||||
|
function GetOldTELEFONOValue : String;
|
||||||
|
function GetOldMOVILValue : String;
|
||||||
|
function GetOldFAXValue : String;
|
||||||
|
function GetOldPERSONA_CONTACTOValue : String;
|
||||||
|
function GetOldOBSERVACIONESValue : IROStrings;
|
||||||
|
function GetOldFECHA_ALTAValue : DateTime;
|
||||||
|
function GetOldFECHA_MODIFICACIONValue : DateTime;
|
||||||
|
function GetOldUSUARIOValue : String;
|
||||||
|
|
||||||
|
{ Properties }
|
||||||
|
property OldID : Integer read GetOldIDValue;
|
||||||
|
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
|
||||||
|
property OldNOMBRE : String read GetOldNOMBREValue;
|
||||||
|
property OldCALLE : String read GetOldCALLEValue;
|
||||||
|
property OldPROVINCIA : String read GetOldPROVINCIAValue;
|
||||||
|
property OldPOBLACION : String read GetOldPOBLACIONValue;
|
||||||
|
property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue;
|
||||||
|
property OldTELEFONO : String read GetOldTELEFONOValue;
|
||||||
|
property OldMOVIL : String read GetOldMOVILValue;
|
||||||
|
property OldFAX : String read GetOldFAXValue;
|
||||||
|
property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue;
|
||||||
|
property OldOBSERVACIONES : IROStrings read GetOldOBSERVACIONESValue;
|
||||||
|
property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
|
||||||
|
property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
|
||||||
|
property OldUSUARIO : String read GetOldUSUARIOValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
{ TAlmacenesBusinessProcessorRules }
|
||||||
|
TAlmacenesBusinessProcessorRules = class(TDABusinessProcessorRules, IAlmacenes, IAlmacenesDelta)
|
||||||
|
private
|
||||||
|
f_OBSERVACIONES: IROStrings;
|
||||||
|
procedure OBSERVACIONES_OnChange(Sender: TObject);
|
||||||
|
protected
|
||||||
|
{ Property getters and setters }
|
||||||
|
function GetIDValue: Integer; virtual;
|
||||||
|
function GetIDIsNull: Boolean; virtual;
|
||||||
|
function GetOldIDValue: Integer; virtual;
|
||||||
|
function GetOldIDIsNull: Boolean; virtual;
|
||||||
|
procedure SetIDValue(const aValue: Integer); virtual;
|
||||||
|
procedure SetIDIsNull(const aValue: Boolean); virtual;
|
||||||
|
function GetID_EMPRESAValue: Integer; virtual;
|
||||||
|
function GetID_EMPRESAIsNull: Boolean; virtual;
|
||||||
|
function GetOldID_EMPRESAValue: Integer; virtual;
|
||||||
|
function GetOldID_EMPRESAIsNull: Boolean; virtual;
|
||||||
|
procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
|
||||||
|
procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual;
|
||||||
|
function GetNOMBREValue: String; virtual;
|
||||||
|
function GetNOMBREIsNull: Boolean; virtual;
|
||||||
|
function GetOldNOMBREValue: String; virtual;
|
||||||
|
function GetOldNOMBREIsNull: Boolean; virtual;
|
||||||
|
procedure SetNOMBREValue(const aValue: String); virtual;
|
||||||
|
procedure SetNOMBREIsNull(const aValue: Boolean); virtual;
|
||||||
|
function GetCALLEValue: String; virtual;
|
||||||
|
function GetCALLEIsNull: Boolean; virtual;
|
||||||
|
function GetOldCALLEValue: String; virtual;
|
||||||
|
function GetOldCALLEIsNull: Boolean; virtual;
|
||||||
|
procedure SetCALLEValue(const aValue: String); virtual;
|
||||||
|
procedure SetCALLEIsNull(const aValue: Boolean); virtual;
|
||||||
|
function GetPROVINCIAValue: String; virtual;
|
||||||
|
function GetPROVINCIAIsNull: Boolean; virtual;
|
||||||
|
function GetOldPROVINCIAValue: String; virtual;
|
||||||
|
function GetOldPROVINCIAIsNull: Boolean; virtual;
|
||||||
|
procedure SetPROVINCIAValue(const aValue: String); virtual;
|
||||||
|
procedure SetPROVINCIAIsNull(const aValue: Boolean); virtual;
|
||||||
|
function GetPOBLACIONValue: String; virtual;
|
||||||
|
function GetPOBLACIONIsNull: Boolean; virtual;
|
||||||
|
function GetOldPOBLACIONValue: String; virtual;
|
||||||
|
function GetOldPOBLACIONIsNull: Boolean; virtual;
|
||||||
|
procedure SetPOBLACIONValue(const aValue: String); virtual;
|
||||||
|
procedure SetPOBLACIONIsNull(const aValue: Boolean); virtual;
|
||||||
|
function GetCODIGO_POSTALValue: String; virtual;
|
||||||
|
function GetCODIGO_POSTALIsNull: Boolean; virtual;
|
||||||
|
function GetOldCODIGO_POSTALValue: String; virtual;
|
||||||
|
function GetOldCODIGO_POSTALIsNull: Boolean; virtual;
|
||||||
|
procedure SetCODIGO_POSTALValue(const aValue: String); virtual;
|
||||||
|
procedure SetCODIGO_POSTALIsNull(const aValue: Boolean); virtual;
|
||||||
|
function GetTELEFONOValue: String; virtual;
|
||||||
|
function GetTELEFONOIsNull: Boolean; virtual;
|
||||||
|
function GetOldTELEFONOValue: String; virtual;
|
||||||
|
function GetOldTELEFONOIsNull: Boolean; virtual;
|
||||||
|
procedure SetTELEFONOValue(const aValue: String); virtual;
|
||||||
|
procedure SetTELEFONOIsNull(const aValue: Boolean); virtual;
|
||||||
|
function GetMOVILValue: String; virtual;
|
||||||
|
function GetMOVILIsNull: Boolean; virtual;
|
||||||
|
function GetOldMOVILValue: String; virtual;
|
||||||
|
function GetOldMOVILIsNull: Boolean; virtual;
|
||||||
|
procedure SetMOVILValue(const aValue: String); virtual;
|
||||||
|
procedure SetMOVILIsNull(const aValue: Boolean); virtual;
|
||||||
|
function GetFAXValue: String; virtual;
|
||||||
|
function GetFAXIsNull: Boolean; virtual;
|
||||||
|
function GetOldFAXValue: String; virtual;
|
||||||
|
function GetOldFAXIsNull: Boolean; virtual;
|
||||||
|
procedure SetFAXValue(const aValue: String); virtual;
|
||||||
|
procedure SetFAXIsNull(const aValue: Boolean); virtual;
|
||||||
|
function GetPERSONA_CONTACTOValue: String; virtual;
|
||||||
|
function GetPERSONA_CONTACTOIsNull: Boolean; virtual;
|
||||||
|
function GetOldPERSONA_CONTACTOValue: String; virtual;
|
||||||
|
function GetOldPERSONA_CONTACTOIsNull: Boolean; virtual;
|
||||||
|
procedure SetPERSONA_CONTACTOValue(const aValue: String); virtual;
|
||||||
|
procedure SetPERSONA_CONTACTOIsNull(const aValue: Boolean); virtual;
|
||||||
|
function GetOBSERVACIONESValue: IROStrings; virtual;
|
||||||
|
function GetOBSERVACIONESIsNull: Boolean; virtual;
|
||||||
|
function GetOldOBSERVACIONESValue: IROStrings; virtual;
|
||||||
|
function GetOldOBSERVACIONESIsNull: Boolean; virtual;
|
||||||
|
procedure SetOBSERVACIONESIsNull(const aValue: Boolean); virtual;
|
||||||
|
function GetFECHA_ALTAValue: DateTime; virtual;
|
||||||
|
function GetFECHA_ALTAIsNull: Boolean; virtual;
|
||||||
|
function GetOldFECHA_ALTAValue: DateTime; virtual;
|
||||||
|
function GetOldFECHA_ALTAIsNull: Boolean; virtual;
|
||||||
|
procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual;
|
||||||
|
procedure SetFECHA_ALTAIsNull(const aValue: Boolean); virtual;
|
||||||
|
function GetFECHA_MODIFICACIONValue: DateTime; virtual;
|
||||||
|
function GetFECHA_MODIFICACIONIsNull: Boolean; virtual;
|
||||||
|
function GetOldFECHA_MODIFICACIONValue: DateTime; virtual;
|
||||||
|
function GetOldFECHA_MODIFICACIONIsNull: Boolean; virtual;
|
||||||
|
procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual;
|
||||||
|
procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual;
|
||||||
|
function GetUSUARIOValue: String; virtual;
|
||||||
|
function GetUSUARIOIsNull: Boolean; virtual;
|
||||||
|
function GetOldUSUARIOValue: String; virtual;
|
||||||
|
function GetOldUSUARIOIsNull: Boolean; virtual;
|
||||||
|
procedure SetUSUARIOValue(const aValue: String); virtual;
|
||||||
|
procedure SetUSUARIOIsNull(const aValue: Boolean); virtual;
|
||||||
|
|
||||||
|
{ Properties }
|
||||||
|
property ID : Integer read GetIDValue write SetIDValue;
|
||||||
|
property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull;
|
||||||
|
property OldID : Integer read GetOldIDValue;
|
||||||
|
property OldIDIsNull : Boolean read GetOldIDIsNull;
|
||||||
|
property ID_EMPRESA : Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
|
||||||
|
property ID_EMPRESAIsNull : Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
|
||||||
|
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
|
||||||
|
property OldID_EMPRESAIsNull : Boolean read GetOldID_EMPRESAIsNull;
|
||||||
|
property NOMBRE : String read GetNOMBREValue write SetNOMBREValue;
|
||||||
|
property NOMBREIsNull : Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
|
||||||
|
property OldNOMBRE : String read GetOldNOMBREValue;
|
||||||
|
property OldNOMBREIsNull : Boolean read GetOldNOMBREIsNull;
|
||||||
|
property CALLE : String read GetCALLEValue write SetCALLEValue;
|
||||||
|
property CALLEIsNull : Boolean read GetCALLEIsNull write SetCALLEIsNull;
|
||||||
|
property OldCALLE : String read GetOldCALLEValue;
|
||||||
|
property OldCALLEIsNull : Boolean read GetOldCALLEIsNull;
|
||||||
|
property PROVINCIA : String read GetPROVINCIAValue write SetPROVINCIAValue;
|
||||||
|
property PROVINCIAIsNull : Boolean read GetPROVINCIAIsNull write SetPROVINCIAIsNull;
|
||||||
|
property OldPROVINCIA : String read GetOldPROVINCIAValue;
|
||||||
|
property OldPROVINCIAIsNull : Boolean read GetOldPROVINCIAIsNull;
|
||||||
|
property POBLACION : String read GetPOBLACIONValue write SetPOBLACIONValue;
|
||||||
|
property POBLACIONIsNull : Boolean read GetPOBLACIONIsNull write SetPOBLACIONIsNull;
|
||||||
|
property OldPOBLACION : String read GetOldPOBLACIONValue;
|
||||||
|
property OldPOBLACIONIsNull : Boolean read GetOldPOBLACIONIsNull;
|
||||||
|
property CODIGO_POSTAL : String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue;
|
||||||
|
property CODIGO_POSTALIsNull : Boolean read GetCODIGO_POSTALIsNull write SetCODIGO_POSTALIsNull;
|
||||||
|
property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue;
|
||||||
|
property OldCODIGO_POSTALIsNull : Boolean read GetOldCODIGO_POSTALIsNull;
|
||||||
|
property TELEFONO : String read GetTELEFONOValue write SetTELEFONOValue;
|
||||||
|
property TELEFONOIsNull : Boolean read GetTELEFONOIsNull write SetTELEFONOIsNull;
|
||||||
|
property OldTELEFONO : String read GetOldTELEFONOValue;
|
||||||
|
property OldTELEFONOIsNull : Boolean read GetOldTELEFONOIsNull;
|
||||||
|
property MOVIL : String read GetMOVILValue write SetMOVILValue;
|
||||||
|
property MOVILIsNull : Boolean read GetMOVILIsNull write SetMOVILIsNull;
|
||||||
|
property OldMOVIL : String read GetOldMOVILValue;
|
||||||
|
property OldMOVILIsNull : Boolean read GetOldMOVILIsNull;
|
||||||
|
property FAX : String read GetFAXValue write SetFAXValue;
|
||||||
|
property FAXIsNull : Boolean read GetFAXIsNull write SetFAXIsNull;
|
||||||
|
property OldFAX : String read GetOldFAXValue;
|
||||||
|
property OldFAXIsNull : Boolean read GetOldFAXIsNull;
|
||||||
|
property PERSONA_CONTACTO : String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue;
|
||||||
|
property PERSONA_CONTACTOIsNull : Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull;
|
||||||
|
property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue;
|
||||||
|
property OldPERSONA_CONTACTOIsNull : Boolean read GetOldPERSONA_CONTACTOIsNull;
|
||||||
|
property OBSERVACIONES : IROStrings read GetOBSERVACIONESValue;
|
||||||
|
property OBSERVACIONESIsNull : Boolean read GetOBSERVACIONESIsNull write SetOBSERVACIONESIsNull;
|
||||||
|
property OldOBSERVACIONES : IROStrings read GetOldOBSERVACIONESValue;
|
||||||
|
property OldOBSERVACIONESIsNull : Boolean read GetOldOBSERVACIONESIsNull;
|
||||||
|
property FECHA_ALTA : DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
|
||||||
|
property FECHA_ALTAIsNull : Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
|
||||||
|
property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
|
||||||
|
property OldFECHA_ALTAIsNull : Boolean read GetOldFECHA_ALTAIsNull;
|
||||||
|
property FECHA_MODIFICACION : DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
|
||||||
|
property FECHA_MODIFICACIONIsNull : Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull;
|
||||||
|
property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
|
||||||
|
property OldFECHA_MODIFICACIONIsNull : Boolean read GetOldFECHA_MODIFICACIONIsNull;
|
||||||
|
property USUARIO : String read GetUSUARIOValue write SetUSUARIOValue;
|
||||||
|
property USUARIOIsNull : Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
|
||||||
|
property OldUSUARIO : String read GetOldUSUARIOValue;
|
||||||
|
property OldUSUARIOIsNull : Boolean read GetOldUSUARIOIsNull;
|
||||||
|
|
||||||
|
public
|
||||||
|
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
||||||
|
destructor Destroy; override;
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
uses
|
||||||
|
Variants, uROBinaryHelpers, uDAInterfaces;
|
||||||
|
|
||||||
|
{ TAlmacenesBusinessProcessorRules }
|
||||||
|
constructor TAlmacenesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
||||||
|
var
|
||||||
|
StrList: TStringList;
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
|
||||||
|
StrList := TStringList.Create;
|
||||||
|
StrList.OnChange := OBSERVACIONES_OnChange;
|
||||||
|
f_OBSERVACIONES := NewROStrings(StrList,True);
|
||||||
|
end;
|
||||||
|
|
||||||
|
destructor TAlmacenesBusinessProcessorRules.Destroy;
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlmacenesBusinessProcessorRules.OBSERVACIONES_OnChange(Sender: TObject);
|
||||||
|
begin
|
||||||
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AlmacenesOBSERVACIONES] := TStringList(Sender).Text;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlmacenesBusinessProcessorRules.GetIDValue: Integer;
|
||||||
|
begin
|
||||||
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlmacenesID];
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlmacenesBusinessProcessorRules.GetIDIsNull: Boolean;
|
||||||
|
begin
|
||||||
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlmacenesID]);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlmacenesBusinessProcessorRules.GetOldIDValue: Integer;
|
||||||
|
begin
|
||||||
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlmacenesID];
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlmacenesBusinessProcessorRules.GetOldIDIsNull: Boolean;
|
||||||
|
begin
|
||||||
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlmacenesID]);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlmacenesBusinessProcessorRules.SetIDValue(const aValue: Integer);
|
||||||
|
begin
|
||||||
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AlmacenesID] := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlmacenesBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
|
||||||
|
begin
|
||||||
|
if aValue then
|
||||||
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AlmacenesID] := Null;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlmacenesBusinessProcessorRules.GetID_EMPRESAValue: Integer;
|
||||||
|
begin
|
||||||
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlmacenesID_EMPRESA];
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlmacenesBusinessProcessorRules.GetID_EMPRESAIsNull: Boolean;
|
||||||
|
begin
|
||||||
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlmacenesID_EMPRESA]);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlmacenesBusinessProcessorRules.GetOldID_EMPRESAValue: Integer;
|
||||||
|
begin
|
||||||
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlmacenesID_EMPRESA];
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlmacenesBusinessProcessorRules.GetOldID_EMPRESAIsNull: Boolean;
|
||||||
|
begin
|
||||||
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlmacenesID_EMPRESA]);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlmacenesBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer);
|
||||||
|
begin
|
||||||
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AlmacenesID_EMPRESA] := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlmacenesBusinessProcessorRules.SetID_EMPRESAIsNull(const aValue: Boolean);
|
||||||
|
begin
|
||||||
|
if aValue then
|
||||||
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AlmacenesID_EMPRESA] := Null;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlmacenesBusinessProcessorRules.GetNOMBREValue: String;
|
||||||
|
begin
|
||||||
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlmacenesNOMBRE];
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlmacenesBusinessProcessorRules.GetNOMBREIsNull: Boolean;
|
||||||
|
begin
|
||||||
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlmacenesNOMBRE]);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlmacenesBusinessProcessorRules.GetOldNOMBREValue: String;
|
||||||
|
begin
|
||||||
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlmacenesNOMBRE];
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlmacenesBusinessProcessorRules.GetOldNOMBREIsNull: Boolean;
|
||||||
|
begin
|
||||||
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlmacenesNOMBRE]);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlmacenesBusinessProcessorRules.SetNOMBREValue(const aValue: String);
|
||||||
|
begin
|
||||||
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AlmacenesNOMBRE] := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlmacenesBusinessProcessorRules.SetNOMBREIsNull(const aValue: Boolean);
|
||||||
|
begin
|
||||||
|
if aValue then
|
||||||
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AlmacenesNOMBRE] := Null;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlmacenesBusinessProcessorRules.GetCALLEValue: String;
|
||||||
|
begin
|
||||||
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlmacenesCALLE];
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlmacenesBusinessProcessorRules.GetCALLEIsNull: Boolean;
|
||||||
|
begin
|
||||||
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlmacenesCALLE]);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlmacenesBusinessProcessorRules.GetOldCALLEValue: String;
|
||||||
|
begin
|
||||||
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlmacenesCALLE];
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlmacenesBusinessProcessorRules.GetOldCALLEIsNull: Boolean;
|
||||||
|
begin
|
||||||
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlmacenesCALLE]);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlmacenesBusinessProcessorRules.SetCALLEValue(const aValue: String);
|
||||||
|
begin
|
||||||
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AlmacenesCALLE] := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlmacenesBusinessProcessorRules.SetCALLEIsNull(const aValue: Boolean);
|
||||||
|
begin
|
||||||
|
if aValue then
|
||||||
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AlmacenesCALLE] := Null;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlmacenesBusinessProcessorRules.GetPROVINCIAValue: String;
|
||||||
|
begin
|
||||||
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlmacenesPROVINCIA];
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlmacenesBusinessProcessorRules.GetPROVINCIAIsNull: Boolean;
|
||||||
|
begin
|
||||||
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlmacenesPROVINCIA]);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlmacenesBusinessProcessorRules.GetOldPROVINCIAValue: String;
|
||||||
|
begin
|
||||||
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlmacenesPROVINCIA];
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlmacenesBusinessProcessorRules.GetOldPROVINCIAIsNull: Boolean;
|
||||||
|
begin
|
||||||
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlmacenesPROVINCIA]);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlmacenesBusinessProcessorRules.SetPROVINCIAValue(const aValue: String);
|
||||||
|
begin
|
||||||
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AlmacenesPROVINCIA] := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlmacenesBusinessProcessorRules.SetPROVINCIAIsNull(const aValue: Boolean);
|
||||||
|
begin
|
||||||
|
if aValue then
|
||||||
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AlmacenesPROVINCIA] := Null;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlmacenesBusinessProcessorRules.GetPOBLACIONValue: String;
|
||||||
|
begin
|
||||||
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlmacenesPOBLACION];
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlmacenesBusinessProcessorRules.GetPOBLACIONIsNull: Boolean;
|
||||||
|
begin
|
||||||
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlmacenesPOBLACION]);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlmacenesBusinessProcessorRules.GetOldPOBLACIONValue: String;
|
||||||
|
begin
|
||||||
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlmacenesPOBLACION];
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlmacenesBusinessProcessorRules.GetOldPOBLACIONIsNull: Boolean;
|
||||||
|
begin
|
||||||
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlmacenesPOBLACION]);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlmacenesBusinessProcessorRules.SetPOBLACIONValue(const aValue: String);
|
||||||
|
begin
|
||||||
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AlmacenesPOBLACION] := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlmacenesBusinessProcessorRules.SetPOBLACIONIsNull(const aValue: Boolean);
|
||||||
|
begin
|
||||||
|
if aValue then
|
||||||
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AlmacenesPOBLACION] := Null;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlmacenesBusinessProcessorRules.GetCODIGO_POSTALValue: String;
|
||||||
|
begin
|
||||||
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlmacenesCODIGO_POSTAL];
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlmacenesBusinessProcessorRules.GetCODIGO_POSTALIsNull: Boolean;
|
||||||
|
begin
|
||||||
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlmacenesCODIGO_POSTAL]);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlmacenesBusinessProcessorRules.GetOldCODIGO_POSTALValue: String;
|
||||||
|
begin
|
||||||
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlmacenesCODIGO_POSTAL];
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlmacenesBusinessProcessorRules.GetOldCODIGO_POSTALIsNull: Boolean;
|
||||||
|
begin
|
||||||
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlmacenesCODIGO_POSTAL]);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlmacenesBusinessProcessorRules.SetCODIGO_POSTALValue(const aValue: String);
|
||||||
|
begin
|
||||||
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AlmacenesCODIGO_POSTAL] := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlmacenesBusinessProcessorRules.SetCODIGO_POSTALIsNull(const aValue: Boolean);
|
||||||
|
begin
|
||||||
|
if aValue then
|
||||||
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AlmacenesCODIGO_POSTAL] := Null;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlmacenesBusinessProcessorRules.GetTELEFONOValue: String;
|
||||||
|
begin
|
||||||
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlmacenesTELEFONO];
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlmacenesBusinessProcessorRules.GetTELEFONOIsNull: Boolean;
|
||||||
|
begin
|
||||||
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlmacenesTELEFONO]);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlmacenesBusinessProcessorRules.GetOldTELEFONOValue: String;
|
||||||
|
begin
|
||||||
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlmacenesTELEFONO];
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlmacenesBusinessProcessorRules.GetOldTELEFONOIsNull: Boolean;
|
||||||
|
begin
|
||||||
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlmacenesTELEFONO]);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlmacenesBusinessProcessorRules.SetTELEFONOValue(const aValue: String);
|
||||||
|
begin
|
||||||
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AlmacenesTELEFONO] := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlmacenesBusinessProcessorRules.SetTELEFONOIsNull(const aValue: Boolean);
|
||||||
|
begin
|
||||||
|
if aValue then
|
||||||
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AlmacenesTELEFONO] := Null;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlmacenesBusinessProcessorRules.GetMOVILValue: String;
|
||||||
|
begin
|
||||||
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlmacenesMOVIL];
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlmacenesBusinessProcessorRules.GetMOVILIsNull: Boolean;
|
||||||
|
begin
|
||||||
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlmacenesMOVIL]);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlmacenesBusinessProcessorRules.GetOldMOVILValue: String;
|
||||||
|
begin
|
||||||
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlmacenesMOVIL];
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlmacenesBusinessProcessorRules.GetOldMOVILIsNull: Boolean;
|
||||||
|
begin
|
||||||
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlmacenesMOVIL]);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlmacenesBusinessProcessorRules.SetMOVILValue(const aValue: String);
|
||||||
|
begin
|
||||||
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AlmacenesMOVIL] := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlmacenesBusinessProcessorRules.SetMOVILIsNull(const aValue: Boolean);
|
||||||
|
begin
|
||||||
|
if aValue then
|
||||||
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AlmacenesMOVIL] := Null;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlmacenesBusinessProcessorRules.GetFAXValue: String;
|
||||||
|
begin
|
||||||
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlmacenesFAX];
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlmacenesBusinessProcessorRules.GetFAXIsNull: Boolean;
|
||||||
|
begin
|
||||||
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlmacenesFAX]);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlmacenesBusinessProcessorRules.GetOldFAXValue: String;
|
||||||
|
begin
|
||||||
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlmacenesFAX];
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlmacenesBusinessProcessorRules.GetOldFAXIsNull: Boolean;
|
||||||
|
begin
|
||||||
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlmacenesFAX]);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlmacenesBusinessProcessorRules.SetFAXValue(const aValue: String);
|
||||||
|
begin
|
||||||
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AlmacenesFAX] := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlmacenesBusinessProcessorRules.SetFAXIsNull(const aValue: Boolean);
|
||||||
|
begin
|
||||||
|
if aValue then
|
||||||
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AlmacenesFAX] := Null;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlmacenesBusinessProcessorRules.GetPERSONA_CONTACTOValue: String;
|
||||||
|
begin
|
||||||
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlmacenesPERSONA_CONTACTO];
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlmacenesBusinessProcessorRules.GetPERSONA_CONTACTOIsNull: Boolean;
|
||||||
|
begin
|
||||||
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlmacenesPERSONA_CONTACTO]);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlmacenesBusinessProcessorRules.GetOldPERSONA_CONTACTOValue: String;
|
||||||
|
begin
|
||||||
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlmacenesPERSONA_CONTACTO];
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlmacenesBusinessProcessorRules.GetOldPERSONA_CONTACTOIsNull: Boolean;
|
||||||
|
begin
|
||||||
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlmacenesPERSONA_CONTACTO]);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlmacenesBusinessProcessorRules.SetPERSONA_CONTACTOValue(const aValue: String);
|
||||||
|
begin
|
||||||
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AlmacenesPERSONA_CONTACTO] := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlmacenesBusinessProcessorRules.SetPERSONA_CONTACTOIsNull(const aValue: Boolean);
|
||||||
|
begin
|
||||||
|
if aValue then
|
||||||
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AlmacenesPERSONA_CONTACTO] := Null;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlmacenesBusinessProcessorRules.GetOBSERVACIONESValue: IROStrings;
|
||||||
|
begin
|
||||||
|
result := f_OBSERVACIONES;
|
||||||
|
result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_AlmacenesOBSERVACIONES];
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlmacenesBusinessProcessorRules.GetOBSERVACIONESIsNull: Boolean;
|
||||||
|
begin
|
||||||
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlmacenesOBSERVACIONES]);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlmacenesBusinessProcessorRules.GetOldOBSERVACIONESValue: IROStrings;
|
||||||
|
begin
|
||||||
|
result := NewROStrings();
|
||||||
|
result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_AlmacenesOBSERVACIONES];
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlmacenesBusinessProcessorRules.GetOldOBSERVACIONESIsNull: Boolean;
|
||||||
|
begin
|
||||||
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlmacenesOBSERVACIONES]);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlmacenesBusinessProcessorRules.SetOBSERVACIONESIsNull(const aValue: Boolean);
|
||||||
|
begin
|
||||||
|
if aValue then
|
||||||
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AlmacenesOBSERVACIONES] := Null;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlmacenesBusinessProcessorRules.GetFECHA_ALTAValue: DateTime;
|
||||||
|
begin
|
||||||
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlmacenesFECHA_ALTA];
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlmacenesBusinessProcessorRules.GetFECHA_ALTAIsNull: Boolean;
|
||||||
|
begin
|
||||||
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlmacenesFECHA_ALTA]);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlmacenesBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime;
|
||||||
|
begin
|
||||||
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlmacenesFECHA_ALTA];
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlmacenesBusinessProcessorRules.GetOldFECHA_ALTAIsNull: Boolean;
|
||||||
|
begin
|
||||||
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlmacenesFECHA_ALTA]);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlmacenesBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime);
|
||||||
|
begin
|
||||||
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AlmacenesFECHA_ALTA] := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlmacenesBusinessProcessorRules.SetFECHA_ALTAIsNull(const aValue: Boolean);
|
||||||
|
begin
|
||||||
|
if aValue then
|
||||||
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AlmacenesFECHA_ALTA] := Null;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlmacenesBusinessProcessorRules.GetFECHA_MODIFICACIONValue: DateTime;
|
||||||
|
begin
|
||||||
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlmacenesFECHA_MODIFICACION];
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlmacenesBusinessProcessorRules.GetFECHA_MODIFICACIONIsNull: Boolean;
|
||||||
|
begin
|
||||||
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlmacenesFECHA_MODIFICACION]);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlmacenesBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime;
|
||||||
|
begin
|
||||||
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlmacenesFECHA_MODIFICACION];
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlmacenesBusinessProcessorRules.GetOldFECHA_MODIFICACIONIsNull: Boolean;
|
||||||
|
begin
|
||||||
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlmacenesFECHA_MODIFICACION]);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlmacenesBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime);
|
||||||
|
begin
|
||||||
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AlmacenesFECHA_MODIFICACION] := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlmacenesBusinessProcessorRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
|
||||||
|
begin
|
||||||
|
if aValue then
|
||||||
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AlmacenesFECHA_MODIFICACION] := Null;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlmacenesBusinessProcessorRules.GetUSUARIOValue: String;
|
||||||
|
begin
|
||||||
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlmacenesUSUARIO];
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlmacenesBusinessProcessorRules.GetUSUARIOIsNull: Boolean;
|
||||||
|
begin
|
||||||
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlmacenesUSUARIO]);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlmacenesBusinessProcessorRules.GetOldUSUARIOValue: String;
|
||||||
|
begin
|
||||||
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlmacenesUSUARIO];
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAlmacenesBusinessProcessorRules.GetOldUSUARIOIsNull: Boolean;
|
||||||
|
begin
|
||||||
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlmacenesUSUARIO]);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlmacenesBusinessProcessorRules.SetUSUARIOValue(const aValue: String);
|
||||||
|
begin
|
||||||
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AlmacenesUSUARIO] := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAlmacenesBusinessProcessorRules.SetUSUARIOIsNull(const aValue: Boolean);
|
||||||
|
begin
|
||||||
|
if aValue then
|
||||||
|
BusinessProcessor.CurrentChange.NewValueByName[fld_AlmacenesUSUARIO] := Null;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
initialization
|
||||||
|
RegisterBusinessProcessorRules(RID_AlmacenesDelta, TAlmacenesBusinessProcessorRules);
|
||||||
|
|
||||||
|
end.
|
||||||
51
Source/Modulos/Almacenes/Model/uBizAlmacenes.pas
Normal file
51
Source/Modulos/Almacenes/Model/uBizAlmacenes.pas
Normal file
@ -0,0 +1,51 @@
|
|||||||
|
unit uBizAlmacenes;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
uDAInterfaces, uDADataTable, schAlmacenesClient_Intf;
|
||||||
|
|
||||||
|
const
|
||||||
|
BIZ_CLIENT_ALMACEN = 'Client.Almacen';
|
||||||
|
|
||||||
|
type
|
||||||
|
IBizAlmacen = interface(IAlmacenes)
|
||||||
|
['{4DEDACCD-5CC1-474A-BE9A-46D3BCCF9025}']
|
||||||
|
function EsNuevo : Boolean;
|
||||||
|
end;
|
||||||
|
|
||||||
|
TBizAlmacen = class(TAlmacenesDataTableRules, IBizAlmacen)
|
||||||
|
protected
|
||||||
|
procedure OnNewRecord(Sender: TDADataTable); override;
|
||||||
|
|
||||||
|
public
|
||||||
|
function EsNuevo : Boolean;
|
||||||
|
end;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
//uses
|
||||||
|
// uDataModuleUsuarios;
|
||||||
|
|
||||||
|
{ TBizAlmacen }
|
||||||
|
|
||||||
|
function TBizAlmacen.EsNuevo: Boolean;
|
||||||
|
begin
|
||||||
|
Result := (ID < 0);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TBizAlmacen.OnNewRecord(Sender: TDADataTable);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
// ID := GetRecNo; // -1, -2, -3...
|
||||||
|
ID_EMPRESA := 1; // dmUsuarios.IDEmpresaActual;
|
||||||
|
// USUARIO := dmUsuarios.LoginInfo.Usuario;
|
||||||
|
end;
|
||||||
|
|
||||||
|
initialization
|
||||||
|
RegisterDataTableRules(BIZ_CLIENT_ALMACEN, TBizAlmacen);
|
||||||
|
|
||||||
|
finalization
|
||||||
|
|
||||||
|
end.
|
||||||
|
|
||||||
492
Source/Modulos/Almacenes/Plugin/Almacenes_plugin.bdsproj
Normal file
492
Source/Modulos/Almacenes/Plugin/Almacenes_plugin.bdsproj
Normal file
@ -0,0 +1,492 @@
|
|||||||
|
<?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">{93C484BB-2C1D-4AFB-B75D-3CE39B2B3E1C}</Option>
|
||||||
|
</Option>
|
||||||
|
</PersonalityInfo>
|
||||||
|
<Delphi.Personality>
|
||||||
|
<Source>
|
||||||
|
<Source Name="MainSource">Almacenes_plugin.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">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;..\..\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>
|
||||||
|
<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"></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=0
|
||||||
|
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>
|
||||||
35
Source/Modulos/Almacenes/Plugin/Almacenes_plugin.dpk
Normal file
35
Source/Modulos/Almacenes/Plugin/Almacenes_plugin.dpk
Normal file
@ -0,0 +1,35 @@
|
|||||||
|
package Almacenes_plugin;
|
||||||
|
|
||||||
|
{$R *.res}
|
||||||
|
{$ALIGN 8}
|
||||||
|
{$ASSERTIONS ON}
|
||||||
|
{$BOOLEVAL OFF}
|
||||||
|
{$DEBUGINFO ON}
|
||||||
|
{$EXTENDEDSYNTAX ON}
|
||||||
|
{$IMPORTEDDATA ON}
|
||||||
|
{$IOCHECKS ON}
|
||||||
|
{$LOCALSYMBOLS ON}
|
||||||
|
{$LONGSTRINGS ON}
|
||||||
|
{$OPENSTRINGS ON}
|
||||||
|
{$OPTIMIZATION ON}
|
||||||
|
{$OVERFLOWCHECKS OFF}
|
||||||
|
{$RANGECHECKS OFF}
|
||||||
|
{$REFERENCEINFO ON}
|
||||||
|
{$SAFEDIVIDE OFF}
|
||||||
|
{$STACKFRAMES OFF}
|
||||||
|
{$TYPEDADDRESS OFF}
|
||||||
|
{$VARSTRINGCHECKS ON}
|
||||||
|
{$WRITEABLECONST OFF}
|
||||||
|
{$MINENUMSIZE 1}
|
||||||
|
{$IMAGEBASE $400000}
|
||||||
|
{$IMPLICITBUILD ON}
|
||||||
|
|
||||||
|
requires
|
||||||
|
Almacenes_model,
|
||||||
|
Almacenes_controller,
|
||||||
|
Almacenes_view;
|
||||||
|
|
||||||
|
contains
|
||||||
|
uPluginAlmacenes in 'uPluginAlmacenes.pas';
|
||||||
|
|
||||||
|
end.
|
||||||
578
Source/Modulos/Almacenes/Plugin/Almacenes_plugin.dproj
Normal file
578
Source/Modulos/Almacenes/Plugin/Almacenes_plugin.dproj
Normal file
@ -0,0 +1,578 @@
|
|||||||
|
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||||
|
<PropertyGroup>
|
||||||
|
<ProjectGuid>{93c484bb-2c1d-4afb-b75d-3ce39b2b3e1c}</ProjectGuid>
|
||||||
|
<MainSource>Almacenes_plugin.dpk</MainSource>
|
||||||
|
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||||
|
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||||
|
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
|
||||||
|
<DCC_DependencyCheckOutputName>..\..\..\..\Output\Debug\Cliente\Almacenes_plugin.bpl</DCC_DependencyCheckOutputName>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||||
|
<Version>7.0</Version>
|
||||||
|
<DCC_DebugInformation>False</DCC_DebugInformation>
|
||||||
|
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
|
||||||
|
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
||||||
|
<DCC_DcuOutput>.\</DCC_DcuOutput>
|
||||||
|
<DCC_ObjOutput>.\</DCC_ObjOutput>
|
||||||
|
<DCC_HppOutput>.\</DCC_HppOutput>
|
||||||
|
<DCC_BplOutput>..\..\..\..\Output\Debug\Cliente</DCC_BplOutput>
|
||||||
|
<DCC_DcpOutput>..\..\Lib</DCC_DcpOutput>
|
||||||
|
<DCC_UnitSearchPath>..\..\..\Lib;..\..\Lib</DCC_UnitSearchPath>
|
||||||
|
<DCC_ResourcePath>..\..\..\Lib;..\..\Lib</DCC_ResourcePath>
|
||||||
|
<DCC_ObjPath>..\..\..\Lib;..\..\Lib</DCC_ObjPath>
|
||||||
|
<DCC_IncludePath>..\..\..\Lib;..\..\Lib</DCC_IncludePath>
|
||||||
|
<DCC_Define>RELEASE</DCC_Define>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||||
|
<Version>7.0</Version>
|
||||||
|
<DCC_DcuOutput>.\</DCC_DcuOutput>
|
||||||
|
<DCC_ObjOutput>.\</DCC_ObjOutput>
|
||||||
|
<DCC_HppOutput>.\</DCC_HppOutput>
|
||||||
|
<DCC_BplOutput>..\..\..\..\Output\Debug\Cliente</DCC_BplOutput>
|
||||||
|
<DCC_DcpOutput>..\..\Lib</DCC_DcpOutput>
|
||||||
|
<DCC_UnitSearchPath>..\..\..\Lib;..\..\Lib</DCC_UnitSearchPath>
|
||||||
|
<DCC_ResourcePath>..\..\..\Lib;..\..\Lib</DCC_ResourcePath>
|
||||||
|
<DCC_ObjPath>..\..\..\Lib;..\..\Lib</DCC_ObjPath>
|
||||||
|
<DCC_IncludePath>..\..\..\Lib;..\..\Lib</DCC_IncludePath>
|
||||||
|
</PropertyGroup>
|
||||||
|
<ProjectExtensions>
|
||||||
|
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||||
|
<Borland.ProjectType>Package</Borland.ProjectType>
|
||||||
|
<BorlandProject>
|
||||||
|
<BorlandProject xmlns=""> <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>
|
||||||
|
<Source>
|
||||||
|
<Source Name="MainSource">Almacenes_plugin.dpk</Source>
|
||||||
|
</Source>
|
||||||
|
</Delphi.Personality> </BorlandProject></BorlandProject>
|
||||||
|
</ProjectExtensions>
|
||||||
|
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||||
|
<ItemGroup>
|
||||||
|
<DelphiCompile Include="Almacenes_plugin.dpk">
|
||||||
|
<MainSource>MainSource</MainSource>
|
||||||
|
</DelphiCompile>
|
||||||
|
<DCCReference Include="..\..\Lib\Almacenes_controller.dcp" />
|
||||||
|
<DCCReference Include="..\..\Lib\Almacenes_model.dcp" />
|
||||||
|
<DCCReference Include="..\..\Lib\Almacenes_view.dcp" />
|
||||||
|
<DCCReference Include="uPluginAlmacenes.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=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 -->
|
||||||
0
Source/Modulos/Almacenes/Plugin/Almacenes_plugin.rc
Normal file
0
Source/Modulos/Almacenes/Plugin/Almacenes_plugin.rc
Normal file
BIN
Source/Modulos/Almacenes/Plugin/Almacenes_plugin.res
Normal file
BIN
Source/Modulos/Almacenes/Plugin/Almacenes_plugin.res
Normal file
Binary file not shown.
131
Source/Modulos/Almacenes/Plugin/uPluginAlmacenes.dfm
Normal file
131
Source/Modulos/Almacenes/Plugin/uPluginAlmacenes.dfm
Normal file
@ -0,0 +1,131 @@
|
|||||||
|
object PluginAlmacenes: TPluginAlmacenes
|
||||||
|
OldCreateOrder = True
|
||||||
|
Description = 'Log'#237'stica'
|
||||||
|
ModuleMenu = MainMenu
|
||||||
|
ModuleName = 'Almacenes'
|
||||||
|
SmallImages = SmallImages
|
||||||
|
LargeImages = LargeImages
|
||||||
|
Author = 'Rodax Software'
|
||||||
|
Version = '1.0.0'
|
||||||
|
Height = 252
|
||||||
|
Width = 401
|
||||||
|
object LargeImages: TPngImageList
|
||||||
|
Height = 24
|
||||||
|
Width = 24
|
||||||
|
PngImages = <
|
||||||
|
item
|
||||||
|
PngImage.Data = {
|
||||||
|
89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D
|
||||||
|
F80000000970485973000017120000171201679FD252000001D44944415478DA
|
||||||
|
B5D4BD4B027118C0F1E737D552D0105843616F838519166551345443A32D2E0D
|
||||||
|
D15863FF416B2141353544144A2004114144431695841445D00BE950E7905618
|
||||||
|
742F2257CFD9D9EFCE3BEF4EF001797E9CFAFD1C8A125114A19C43648010A2F9
|
||||||
|
8205AF5D7C611296C3FE33961802189F5909C13B1383EFF427B05FB94738B409
|
||||||
|
76BB0DC6E756FEAE7D289EF7EF3E422010280E941ADF589E8754A3AF3820C7F1
|
||||||
|
0DA9D798A5785D8D0D6EAB87F5013A8E81D46BDC521C471750C731F0CEC44DC5
|
||||||
|
5B1B9A41E00510848C36B038D15410C7F3C1FAB261BCABC3998BF31969472B07
|
||||||
|
0A81D97E52D20F62D0E381CCEF5DF3129043CE494F21B03445C4B1D169C36036
|
||||||
|
9B95223C27C0D17E181CCE36E963A19163C1551A40C731747274019DDDED529C
|
||||||
|
460EBF1CD601751CCF91D328F40DBA81653905B2976CB10668C5715F5DDEC2D0
|
||||||
|
88473AD3C80ED3681ED08BE3BEBBB997001C1AD98ED79B038AC5F14E9FEE9FF3
|
||||||
|
008D6C3DD41A03EA38FBCDE501FE6F332F090520236BD755C5013A22A8367D3D
|
||||||
|
F9962C00562315100C06FFFF21D480D938EE743AAD00E4389E3581E1A149D371
|
||||||
|
FC0E388ECD03745C17F0F4FA4CC77164401DD705DC2EAFE9B80CE03FA73AAE0B
|
||||||
|
9C733EB03A5A714DA05C5376E00756B52DFEBD3C9AE50000000049454E44AE42
|
||||||
|
6082}
|
||||||
|
Name = 'PngImage1'
|
||||||
|
Background = clWindow
|
||||||
|
end>
|
||||||
|
Left = 232
|
||||||
|
Top = 16
|
||||||
|
Bitmap = {}
|
||||||
|
end
|
||||||
|
object ModuleActionList: TActionList
|
||||||
|
Images = LargeImages
|
||||||
|
Left = 40
|
||||||
|
Top = 72
|
||||||
|
object actAlmacenes: TAction
|
||||||
|
Tag = 100
|
||||||
|
Category = 'Log'#237'stica'
|
||||||
|
Caption = 'Almacenes'
|
||||||
|
ImageIndex = 0
|
||||||
|
OnExecute = actAlmacenesExecute
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object MainMenu: TMainMenu
|
||||||
|
Images = LargeImages
|
||||||
|
Left = 40
|
||||||
|
Top = 16
|
||||||
|
object Ventas1: TMenuItem
|
||||||
|
Caption = 'Log'#237'stica'
|
||||||
|
object Almacenes1: TMenuItem
|
||||||
|
Tag = 101
|
||||||
|
Action = actAlmacenes
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object SmallImages: TPngImageList
|
||||||
|
PngImages = <
|
||||||
|
item
|
||||||
|
PngImage.Data = {
|
||||||
|
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
|
||||||
|
610000000970485973000017120000171201679FD2520000022E4944415478DA
|
||||||
|
8D93CF6BD36018C7BF6997A45DD376EA70CA18D31D44981741280C44119DA83D
|
||||||
|
C87619781A1EFD1BC49B2028B28353141111A43BE8CD934E65A8D4A1686B61B5
|
||||||
|
A31DD8CCBAFEDAACEDF226B389EFFB26CBCC54E6030FEFCB4B3E9FE79B9744B0
|
||||||
|
2C0B8220E0F7BA3AB2D75A282DE07F4AD82C60F0851B8F50530BF85EF98A6236
|
||||||
|
8DCCAB69B0B366BD8C95B24ACF4BB877FD226AFD635EC13A5CF99243A356869A
|
||||||
|
4D51F8398799EC476D09E5621E0F6F5EC6C8D938EE7C503604EB7055CDA34127
|
||||||
|
A8B90C3ECD3CE570A35AA2FD0DCB4B2AEE4F5CC29953C35094102667655B706D
|
||||||
|
7480C3F97412AD951AAAC502E6DEBCE47031974673B942BB8AA9DB57103F7D12
|
||||||
|
9D9D413ED4154C8C0BD6FCE7AD2F6C2816C3CE9E6E8862077C3E9F57307CE2FC
|
||||||
|
1F80655A308C35E844C7B3273318D8D78FE8B6282449A41211B7DE05FE2D304D
|
||||||
|
13866EC34433F0FAC55BF4EDE945A42B0C910A6459C6DD94F27781D936F964B2
|
||||||
|
AADB02DAEF9329ECEEED4138A240944548B2840773DBBD02B637596C6238205D
|
||||||
|
352AD175643E66B1A3BB0B0A15489204292061AAB0CB2B68D3C96B34367120BE
|
||||||
|
3AB2F96C01E1A8825028083920F35778BCD8B721387E6C9C42060788465C50A3
|
||||||
|
12B24AB0582C2110946907282C61BA3588442221B882C343E75C50A30093B104
|
||||||
|
84D849EAD53AFC1D7E0ECFFA631C76FF0526387470D4135977405B62A0D56CB2
|
||||||
|
C791891C71618FE0C0FEB873618623B2E33361FB679B4A340A1FF5C01E41928C
|
||||||
|
6DF9256E8659FD02D3B7960923D6946A0000000049454E44AE426082}
|
||||||
|
Name = 'PngImage1'
|
||||||
|
Background = clWindow
|
||||||
|
end>
|
||||||
|
PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled]
|
||||||
|
Left = 308
|
||||||
|
Top = 16
|
||||||
|
Bitmap = {}
|
||||||
|
end
|
||||||
|
object ExtraImages: TPngImageList
|
||||||
|
Height = 28
|
||||||
|
Width = 28
|
||||||
|
PngImages = <
|
||||||
|
item
|
||||||
|
PngImage.Data = {
|
||||||
|
89504E470D0A1A0A0000000D494844520000001C0000001C0806000000720DDF
|
||||||
|
940000000970485973000017120000171201679FD2520000020F4944415478DA
|
||||||
|
E5D4DB2B04511800F06FB659D7CD2D892816B984258992242129E5924BDEE491
|
||||||
|
47FF81571E9495072F44BB1EF69127CAA5DC436E895C4A92AC6CC48E9961EC39
|
||||||
|
63C7EEEC65CEAC6D5F7CF575E69C33F3FD3AA773861204014219D4FF02298AF2
|
||||||
|
FAD2709B5EB8BEBF0E18195B17A4C28A20C2FA8D16E059065EACF7F0FE6203FB
|
||||||
|
AB986B9619D0EB93A169D0E8757E7A6C089ED2BBC1643291814E4C2CF0EC13F3
|
||||||
|
368FB0AE8E5618DF0E27038381A1200283851181C1C414C191F6CC3F611DED2D
|
||||||
|
A0D150E4E0402515F0A56CACAF83C8A808A069DA0DF50B8EF65242437D1F11C0
|
||||||
|
B13C701C87DBA58555282E2B045A4B83D691AE685040578C6339585DDC808292
|
||||||
|
3C0CC9D13F83728CE378D858D981DC826C8CC9D189DD88C0C10F86151119BAB7
|
||||||
|
7D08593919222843270F74EAC1AFCF2FBC126F181A3FDA3F85F4CC34097245A7
|
||||||
|
4EE2D4814A18EA9F1D5F404A6A1284858779A0B3E789E42009869E2FCF6F2031
|
||||||
|
29016FA11C9DBB4A26034931D691B73777101B1F8341396AB94D53064930C6FE
|
||||||
|
21818F0F5688D6454907C589CE5BB3C16C36BBFF3EE5605D6DAF072616E781E7
|
||||||
|
C53196FD5D1DEADB9E6D18D06A7F4FE73263C018AAEB17ACAAEC715FCD4F515F
|
||||||
|
186ADFDFDE1C975C23615B9A720953042BCA3A556168FB19C68EBF47E8A1AEDA
|
||||||
|
0D53044B0DADAA30144EF038A6C60353048BF29B55614ED017A6086E32DD1048
|
||||||
|
F8C2FC82A1889083DF93D867F65E51168D0000000049454E44AE426082}
|
||||||
|
Name = 'PngImage0'
|
||||||
|
Background = clWindow
|
||||||
|
end>
|
||||||
|
Left = 232
|
||||||
|
Top = 80
|
||||||
|
Bitmap = {}
|
||||||
|
end
|
||||||
|
end
|
||||||
74
Source/Modulos/Almacenes/Plugin/uPluginAlmacenes.pas
Normal file
74
Source/Modulos/Almacenes/Plugin/uPluginAlmacenes.pas
Normal file
@ -0,0 +1,74 @@
|
|||||||
|
unit uPluginAlmacenes;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
uModuleController, uInterfaces, uHostManager, Menus, Classes, ActnList,
|
||||||
|
ImgList, Controls, PngImageList;
|
||||||
|
|
||||||
|
type
|
||||||
|
IMCAlmacenes = interface(IInterface)
|
||||||
|
['{ED6B467B-B6DD-4E2E-8E54-BCEB8FD0A012}']
|
||||||
|
end;
|
||||||
|
|
||||||
|
TPluginAlmacenes = class(TModuleController, IMCAlmacenes)
|
||||||
|
actAlmacenes: TAction;
|
||||||
|
ExtraImages: TPngImageList;
|
||||||
|
LargeImages: TPngImageList;
|
||||||
|
MainMenu: TMainMenu;
|
||||||
|
ModuleActionList: TActionList;
|
||||||
|
SmallImages: TPngImageList;
|
||||||
|
Ventas1: TMenuItem;
|
||||||
|
Almacenes1: TMenuItem;
|
||||||
|
procedure actAlmacenesExecute(Sender: TObject);
|
||||||
|
public
|
||||||
|
constructor Create(AOwner: TComponent); override;
|
||||||
|
destructor Destroy; override;
|
||||||
|
end;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
{$R *.dfm}
|
||||||
|
|
||||||
|
uses
|
||||||
|
Forms, Dialogs, SysUtils,
|
||||||
|
uAlmacenesController, uBizAlmacenes, uAlmacenesViewRegister;
|
||||||
|
|
||||||
|
function GetModule : TModuleController;
|
||||||
|
begin
|
||||||
|
Result := TPluginAlmacenes.Create(NIL);
|
||||||
|
end;
|
||||||
|
|
||||||
|
exports
|
||||||
|
GetModule name GET_MODULE_FUNC;
|
||||||
|
|
||||||
|
procedure TPluginAlmacenes.actAlmacenesExecute(Sender: TObject);
|
||||||
|
var
|
||||||
|
AAlmacenesController : IAlmacenesController;
|
||||||
|
AAlmacenes : IBizAlmacen;
|
||||||
|
|
||||||
|
begin
|
||||||
|
AAlmacenesController := TAlmacenesController.Create;
|
||||||
|
AAlmacenes := (AAlmacenesController.BuscarTodos as IBizAlmacen);
|
||||||
|
AAlmacenesController.VerTodos(AAlmacenes);
|
||||||
|
end;
|
||||||
|
|
||||||
|
constructor TPluginAlmacenes.Create(AOwner: TComponent);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
uAlmacenesViewRegister.RegisterViews;
|
||||||
|
end;
|
||||||
|
|
||||||
|
destructor TPluginAlmacenes.Destroy;
|
||||||
|
begin
|
||||||
|
uAlmacenesViewRegister.UnregisterViews;
|
||||||
|
inherited;
|
||||||
|
end;
|
||||||
|
|
||||||
|
initialization
|
||||||
|
RegisterModuleClass(TPluginAlmacenes);
|
||||||
|
|
||||||
|
finalization
|
||||||
|
UnRegisterModuleClass(TPluginAlmacenes);
|
||||||
|
|
||||||
|
end.
|
||||||
287
Source/Modulos/Almacenes/Servidor/srvAlmacenes_Impl.dfm
Normal file
287
Source/Modulos/Almacenes/Servidor/srvAlmacenes_Impl.dfm
Normal file
@ -0,0 +1,287 @@
|
|||||||
|
object srvAlmacenes: TsrvAlmacenes
|
||||||
|
OldCreateOrder = True
|
||||||
|
OnCreate = DARemoteServiceCreate
|
||||||
|
RequiresSession = True
|
||||||
|
SessionManager = dmServer.SessionManager
|
||||||
|
ConnectionName = 'IBX'
|
||||||
|
ServiceSchema = schAlmacenes
|
||||||
|
ServiceDataStreamer = Bin2DataStreamer
|
||||||
|
ExportedDataTables = <>
|
||||||
|
BeforeAcquireConnection = DataAbstractServiceBeforeAcquireConnection
|
||||||
|
Height = 249
|
||||||
|
Width = 343
|
||||||
|
object Diagrams: TDADiagrams
|
||||||
|
Left = 150
|
||||||
|
Top = 74
|
||||||
|
DiagramData = '<Diagrams>'#13#10'</Diagrams>'#13#10
|
||||||
|
end
|
||||||
|
object DataDictionary: TDADataDictionary
|
||||||
|
Fields = <
|
||||||
|
item
|
||||||
|
Name = 'Almacenes_CALLE'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
DisplayLabel = 'Calle'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'Almacenes_PROVINCIA'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
DisplayLabel = 'Provincia'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'Almacenes_POBLACION'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
DisplayLabel = 'Poblaci'#243'n'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'Almacenes_CODIGO_POSTAL'
|
||||||
|
DataType = datString
|
||||||
|
Size = 10
|
||||||
|
DisplayLabel = 'C'#243'digo postal'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'Almacenes_TELEFONO'
|
||||||
|
DataType = datString
|
||||||
|
Size = 25
|
||||||
|
DisplayLabel = 'Tel'#233'fono'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'Almacenes_MOVIL'
|
||||||
|
DataType = datString
|
||||||
|
Size = 25
|
||||||
|
DisplayLabel = 'M'#243'vil'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'Almacenes_FAX'
|
||||||
|
DataType = datString
|
||||||
|
Size = 25
|
||||||
|
DisplayLabel = 'Fax'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'Almacenes_OBSERVACIONES'
|
||||||
|
DataType = datMemo
|
||||||
|
DisplayLabel = 'Observaciones'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'Almacenes_ID'
|
||||||
|
DataType = datAutoInc
|
||||||
|
GeneratorName = 'GEN_ALMACENES_ID'
|
||||||
|
Required = True
|
||||||
|
DisplayLabel = 'ID'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'Almacenes_ID_EMPRESA'
|
||||||
|
DataType = datInteger
|
||||||
|
DisplayLabel = 'ID_EMPRESA'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'Almacenes_FECHA_ALTA'
|
||||||
|
DataType = datDateTime
|
||||||
|
DisplayLabel = 'FECHA_ALTA'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'Almacenes_PERSONA_CONTACTO'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
DisplayLabel = 'Persona de contacto'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'Almacenes_FECHA_MODIFICACION'
|
||||||
|
DataType = datDateTime
|
||||||
|
DisplayLabel = 'FECHA_MODIFICACION'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'Almacenes_USUARIO'
|
||||||
|
DataType = datString
|
||||||
|
Size = 20
|
||||||
|
DisplayLabel = 'USUARIO'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'Almacenes_NOMBRE'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
DisplayLabel = 'Nombre'
|
||||||
|
end>
|
||||||
|
Left = 150
|
||||||
|
Top = 22
|
||||||
|
end
|
||||||
|
object schAlmacenes: TDASchema
|
||||||
|
ConnectionManager = dmServer.ConnectionManager
|
||||||
|
DataDictionary = DataDictionary
|
||||||
|
Diagrams = Diagrams
|
||||||
|
Datasets = <
|
||||||
|
item
|
||||||
|
Params = <>
|
||||||
|
Statements = <
|
||||||
|
item
|
||||||
|
Connection = 'IBX'
|
||||||
|
TargetTable = 'ALMACENES'
|
||||||
|
StatementType = stAutoSQL
|
||||||
|
ColumnMappings = <
|
||||||
|
item
|
||||||
|
DatasetField = 'ID'
|
||||||
|
TableField = 'ID'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'ID_EMPRESA'
|
||||||
|
TableField = 'ID_EMPRESA'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'NOMBRE'
|
||||||
|
TableField = 'NOMBRE'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'CALLE'
|
||||||
|
TableField = 'CALLE'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'PROVINCIA'
|
||||||
|
TableField = 'PROVINCIA'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'POBLACION'
|
||||||
|
TableField = 'POBLACION'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'CODIGO_POSTAL'
|
||||||
|
TableField = 'CODIGO_POSTAL'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'TELEFONO'
|
||||||
|
TableField = 'TELEFONO'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'MOVIL'
|
||||||
|
TableField = 'MOVIL'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'FAX'
|
||||||
|
TableField = 'FAX'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'PERSONA_CONTACTO'
|
||||||
|
TableField = 'PERSONA_CONTACTO'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'OBSERVACIONES'
|
||||||
|
TableField = 'OBSERVACIONES'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'FECHA_ALTA'
|
||||||
|
TableField = 'FECHA_ALTA'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'FECHA_MODIFICACION'
|
||||||
|
TableField = 'FECHA_MODIFICACION'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'USUARIO'
|
||||||
|
TableField = 'USUARIO'
|
||||||
|
end>
|
||||||
|
end>
|
||||||
|
Name = 'Almacenes'
|
||||||
|
Fields = <
|
||||||
|
item
|
||||||
|
Name = 'ID'
|
||||||
|
DataType = datAutoInc
|
||||||
|
GeneratorName = 'GEN_ALMACENES_ID'
|
||||||
|
DictionaryEntry = 'Almacenes_ID'
|
||||||
|
InPrimaryKey = True
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'ID_EMPRESA'
|
||||||
|
DataType = datInteger
|
||||||
|
DictionaryEntry = 'Almacenes_ID_EMPRESA'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'NOMBRE'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
DictionaryEntry = 'Almacenes_NOMBRE'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'CALLE'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
DictionaryEntry = 'Almacenes_CALLE'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'PROVINCIA'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
DictionaryEntry = 'Almacenes_PROVINCIA'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'POBLACION'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
DictionaryEntry = 'Almacenes_POBLACION'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'CODIGO_POSTAL'
|
||||||
|
DataType = datString
|
||||||
|
Size = 10
|
||||||
|
DictionaryEntry = 'Almacenes_CODIGO_POSTAL'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'TELEFONO'
|
||||||
|
DataType = datString
|
||||||
|
Size = 25
|
||||||
|
DictionaryEntry = 'Almacenes_TELEFONO'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'MOVIL'
|
||||||
|
DataType = datString
|
||||||
|
Size = 25
|
||||||
|
DictionaryEntry = 'Almacenes_MOVIL'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'FAX'
|
||||||
|
DataType = datString
|
||||||
|
Size = 25
|
||||||
|
DictionaryEntry = 'Almacenes_FAX'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'PERSONA_CONTACTO'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
DictionaryEntry = 'Almacenes_PERSONA_CONTACTO'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'OBSERVACIONES'
|
||||||
|
DataType = datMemo
|
||||||
|
DictionaryEntry = 'Almacenes_OBSERVACIONES'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'FECHA_ALTA'
|
||||||
|
DataType = datDateTime
|
||||||
|
DictionaryEntry = 'Almacenes_FECHA_ALTA'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'FECHA_MODIFICACION'
|
||||||
|
DataType = datDateTime
|
||||||
|
DictionaryEntry = 'Almacenes_FECHA_MODIFICACION'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'USUARIO'
|
||||||
|
DataType = datString
|
||||||
|
Size = 20
|
||||||
|
DictionaryEntry = 'Almacenes_USUARIO'
|
||||||
|
end>
|
||||||
|
end>
|
||||||
|
JoinDataTables = <>
|
||||||
|
UnionDataTables = <>
|
||||||
|
Commands = <>
|
||||||
|
RelationShips = <>
|
||||||
|
UpdateRules = <>
|
||||||
|
Version = 0
|
||||||
|
Left = 48
|
||||||
|
Top = 24
|
||||||
|
end
|
||||||
|
object Bin2DataStreamer: TDABin2DataStreamer
|
||||||
|
Left = 48
|
||||||
|
Top = 80
|
||||||
|
end
|
||||||
|
end
|
||||||
77
Source/Modulos/Almacenes/Servidor/srvAlmacenes_Impl.pas
Normal file
77
Source/Modulos/Almacenes/Servidor/srvAlmacenes_Impl.pas
Normal file
@ -0,0 +1,77 @@
|
|||||||
|
unit srvAlmacenes_Impl;
|
||||||
|
|
||||||
|
{----------------------------------------------------------------------------}
|
||||||
|
{ This unit was automatically generated by the RemObjects SDK after reading }
|
||||||
|
{ the RODL file associated with this project . }
|
||||||
|
{ }
|
||||||
|
{ This is where you are supposed to code the implementation of your objects. }
|
||||||
|
{----------------------------------------------------------------------------}
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
{vcl:} Classes, SysUtils,
|
||||||
|
{RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions,
|
||||||
|
{Ancestor Implementation:} DataAbstractService_Impl,
|
||||||
|
{Used RODLs:} DataAbstract4_Intf,
|
||||||
|
{Generated:} FactuGES_Intf, uDADataTable, uDABINAdapter, uDAClasses,
|
||||||
|
uDAScriptingProvider, uDABusinessProcessor, uDAInterfaces, uDADataStreamer,
|
||||||
|
uDABin2DataStreamer;
|
||||||
|
|
||||||
|
type
|
||||||
|
{ TsrvAlmacenes }
|
||||||
|
TsrvAlmacenes = class(TDataAbstractService, IsrvAlmacenes)
|
||||||
|
Diagrams: TDADiagrams;
|
||||||
|
Bin2DataStreamer: TDABin2DataStreamer;
|
||||||
|
schAlmacenes: TDASchema;
|
||||||
|
DataDictionary: TDADataDictionary;
|
||||||
|
procedure DARemoteServiceAfterGetDatasetData(const Dataset: IDADataset;
|
||||||
|
const IncludeSchema: Boolean; const MaxRecords: Integer);
|
||||||
|
procedure DARemoteServiceCreate(Sender: TObject);
|
||||||
|
procedure DataAbstractServiceBeforeAcquireConnection(aSender: TObject;
|
||||||
|
var aConnectionName: string);
|
||||||
|
end;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
{$R *.dfm}
|
||||||
|
uses
|
||||||
|
{Generated:} FactuGES_Invk, uDataModuleServer,
|
||||||
|
uDatabaseUtils, schAlmacenesClient_Intf, uRestriccionesUsuarioUtils;
|
||||||
|
|
||||||
|
procedure Create_srvAlmacenes(out anInstance : IUnknown);
|
||||||
|
begin
|
||||||
|
anInstance := TsrvAlmacenes.Create(NIL);
|
||||||
|
end;
|
||||||
|
|
||||||
|
{ srvAlmacenes }
|
||||||
|
procedure TsrvAlmacenes.DARemoteServiceAfterGetDatasetData(
|
||||||
|
const Dataset: IDADataset; const IncludeSchema: Boolean;
|
||||||
|
const MaxRecords: Integer);
|
||||||
|
begin
|
||||||
|
if DataSet.Name = nme_Almacenes then
|
||||||
|
begin
|
||||||
|
{ Aquí se asegura que el usuario sólo accede a los almacenes
|
||||||
|
de las empresas a las que tiene permiso para acceder
|
||||||
|
filtrando DataSet por ID_EMPRESA. }
|
||||||
|
FiltrarAccesoUsuario(Session, Connection, schAlmacenes, DataSet, fld_AlmacenesID_EMPRESA);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TsrvAlmacenes.DARemoteServiceCreate(Sender: TObject);
|
||||||
|
begin
|
||||||
|
SessionManager := dmServer.SessionManager;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TsrvAlmacenes.DataAbstractServiceBeforeAcquireConnection(
|
||||||
|
aSender: TObject; var aConnectionName: string);
|
||||||
|
begin
|
||||||
|
ConnectionName := dmServer.ConnectionName;
|
||||||
|
end;
|
||||||
|
|
||||||
|
initialization
|
||||||
|
TROClassFactory.Create('srvAlmacenes', Create_srvAlmacenes, TsrvAlmacenes_Invoker);
|
||||||
|
|
||||||
|
finalization
|
||||||
|
|
||||||
|
end.
|
||||||
492
Source/Modulos/Almacenes/Views/Almacenes_view.bdsproj
Normal file
492
Source/Modulos/Almacenes/Views/Almacenes_view.bdsproj
Normal file
@ -0,0 +1,492 @@
|
|||||||
|
<?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">{09ECB9EC-6DE2-404D-984B-CC7D73CAEA9A}</Option>
|
||||||
|
</Option>
|
||||||
|
</PersonalityInfo>
|
||||||
|
<Delphi.Personality>
|
||||||
|
<Source>
|
||||||
|
<Source Name="MainSource">Almacenes_view.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">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;..\..\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>
|
||||||
|
<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"></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=0
|
||||||
|
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>
|
||||||
40
Source/Modulos/Almacenes/Views/Almacenes_view.dpk
Normal file
40
Source/Modulos/Almacenes/Views/Almacenes_view.dpk
Normal file
@ -0,0 +1,40 @@
|
|||||||
|
package Almacenes_view;
|
||||||
|
|
||||||
|
{$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}
|
||||||
|
|
||||||
|
requires
|
||||||
|
Almacenes_controller,
|
||||||
|
Almacenes_model,
|
||||||
|
ApplicationBase;
|
||||||
|
|
||||||
|
contains
|
||||||
|
uViewAlmacen in 'uViewAlmacen.pas' {frViewAlmacen: TFrame},
|
||||||
|
uViewAlmacenes in 'uViewAlmacenes.pas' {frViewAlmacenes: TFrame},
|
||||||
|
uEditorAlmacenes in 'uEditorAlmacenes.pas' {fEditorAlmacenes: TfEditorAlmacenes},
|
||||||
|
uAlmacenesViewRegister in 'uAlmacenesViewRegister.pas',
|
||||||
|
uEditorAlmacen in 'uEditorAlmacen.pas' {fEditorAlmacen: TfEditorAlmacen},
|
||||||
|
uEditorListaAlmacenes in 'uEditorListaAlmacenes.pas' {fEditorListaAlmacenes: TfListaAlmacenes};
|
||||||
|
|
||||||
|
end.
|
||||||
593
Source/Modulos/Almacenes/Views/Almacenes_view.dproj
Normal file
593
Source/Modulos/Almacenes/Views/Almacenes_view.dproj
Normal file
@ -0,0 +1,593 @@
|
|||||||
|
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||||
|
<PropertyGroup>
|
||||||
|
<ProjectGuid>{09ecb9ec-6de2-404d-984b-cc7d73caea9a}</ProjectGuid>
|
||||||
|
<MainSource>Almacenes_view.dpk</MainSource>
|
||||||
|
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||||
|
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||||
|
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
|
||||||
|
<DCC_DependencyCheckOutputName>..\..\..\..\Output\Debug\Cliente\Almacenes_view.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\Debug\Cliente</DCC_BplOutput>
|
||||||
|
<DCC_DcpOutput>..\..\Lib</DCC_DcpOutput>
|
||||||
|
<DCC_UnitSearchPath>..\..\..\Lib;..\..\Lib</DCC_UnitSearchPath>
|
||||||
|
<DCC_ResourcePath>..\..\..\Lib;..\..\Lib</DCC_ResourcePath>
|
||||||
|
<DCC_ObjPath>..\..\..\Lib;..\..\Lib</DCC_ObjPath>
|
||||||
|
<DCC_IncludePath>..\..\..\Lib;..\..\Lib</DCC_IncludePath>
|
||||||
|
<DCC_Define>RELEASE</DCC_Define>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||||
|
<Version>7.0</Version>
|
||||||
|
<DCC_DcuOutput>.\</DCC_DcuOutput>
|
||||||
|
<DCC_ObjOutput>.\</DCC_ObjOutput>
|
||||||
|
<DCC_HppOutput>.\</DCC_HppOutput>
|
||||||
|
<DCC_BplOutput>..\..\..\..\Output\Debug\Cliente</DCC_BplOutput>
|
||||||
|
<DCC_DcpOutput>..\..\Lib</DCC_DcpOutput>
|
||||||
|
<DCC_UnitSearchPath>..\..\..\Lib;..\..\Lib</DCC_UnitSearchPath>
|
||||||
|
<DCC_ResourcePath>..\..\..\Lib;..\..\Lib</DCC_ResourcePath>
|
||||||
|
<DCC_ObjPath>..\..\..\Lib;..\..\Lib</DCC_ObjPath>
|
||||||
|
<DCC_IncludePath>..\..\..\Lib;..\..\Lib</DCC_IncludePath>
|
||||||
|
</PropertyGroup>
|
||||||
|
<ProjectExtensions>
|
||||||
|
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||||
|
<Borland.ProjectType>Package</Borland.ProjectType>
|
||||||
|
<BorlandProject>
|
||||||
|
<BorlandProject xmlns=""> <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>
|
||||||
|
<Source>
|
||||||
|
<Source Name="MainSource">Almacenes_view.dpk</Source>
|
||||||
|
</Source>
|
||||||
|
</Delphi.Personality> </BorlandProject></BorlandProject>
|
||||||
|
</ProjectExtensions>
|
||||||
|
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||||
|
<ItemGroup>
|
||||||
|
<DelphiCompile Include="Almacenes_view.dpk">
|
||||||
|
<MainSource>MainSource</MainSource>
|
||||||
|
</DelphiCompile>
|
||||||
|
<DCCReference Include="..\..\..\Lib\Almacenes_controller.dcp" />
|
||||||
|
<DCCReference Include="..\..\..\Lib\Almacenes_model.dcp" />
|
||||||
|
<DCCReference Include="..\..\..\Lib\ApplicationBase.dcp" />
|
||||||
|
<DCCReference Include="uAlmacenesViewRegister.pas" />
|
||||||
|
<DCCReference Include="uEditorAlmacen.pas">
|
||||||
|
<Form>fEditorAlmacen</Form>
|
||||||
|
</DCCReference>
|
||||||
|
<DCCReference Include="uEditorAlmacenes.pas">
|
||||||
|
<Form>fEditorAlmacenes</Form>
|
||||||
|
</DCCReference>
|
||||||
|
<DCCReference Include="uEditorListaAlmacenes.pas">
|
||||||
|
<Form>fEditorListaAlmacenes</Form>
|
||||||
|
</DCCReference>
|
||||||
|
<DCCReference Include="uViewAlmacen.pas">
|
||||||
|
<Form>frViewAlmacen</Form>
|
||||||
|
</DCCReference>
|
||||||
|
<DCCReference Include="uViewAlmacenes.pas">
|
||||||
|
<Form>frViewAlmacenes</Form>
|
||||||
|
</DCCReference>
|
||||||
|
</ItemGroup>
|
||||||
|
</Project>
|
||||||
|
|
||||||
|
<!-- EurekaLog First Line
|
||||||
|
[Exception Log]
|
||||||
|
EurekaLog Version=6006
|
||||||
|
Activate=0
|
||||||
|
Activate Handle=1
|
||||||
|
Save Log File=1
|
||||||
|
Foreground Tab=0
|
||||||
|
Freeze Activate=0
|
||||||
|
Freeze Timeout=60
|
||||||
|
SMTP From=eurekalog@email.com
|
||||||
|
SMTP Host=
|
||||||
|
SMTP Port=25
|
||||||
|
SMTP UserID=
|
||||||
|
SMTP Password=
|
||||||
|
Append to Log=0
|
||||||
|
TerminateBtn Operation=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 -->
|
||||||
0
Source/Modulos/Almacenes/Views/Almacenes_view.rc
Normal file
0
Source/Modulos/Almacenes/Views/Almacenes_view.rc
Normal file
BIN
Source/Modulos/Almacenes/Views/Almacenes_view.res
Normal file
BIN
Source/Modulos/Almacenes/Views/Almacenes_view.res
Normal file
Binary file not shown.
27
Source/Modulos/Almacenes/Views/uAlmacenesViewRegister.pas
Normal file
27
Source/Modulos/Almacenes/Views/uAlmacenesViewRegister.pas
Normal file
@ -0,0 +1,27 @@
|
|||||||
|
unit uAlmacenesViewRegister;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
procedure RegisterViews;
|
||||||
|
procedure UnregisterViews;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
uses
|
||||||
|
uEditorRegistryUtils, uEditorAlmacenes, uEditorAlmacen, uEditorListaAlmacenes;
|
||||||
|
|
||||||
|
procedure RegisterViews;
|
||||||
|
begin
|
||||||
|
EditorRegistry.RegisterClass(TfEditorAlmacen, 'EditorAlmacen');
|
||||||
|
EditorRegistry.RegisterClass(TfEditorAlmacenes, 'EditorAlmacenes');
|
||||||
|
EditorRegistry.RegisterClass(TfEditorListaAlmacenes, 'EditorListaAlmacenes');
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure UnregisterViews;
|
||||||
|
begin
|
||||||
|
EditorRegistry.UnRegisterClass(TfEditorAlmacen);
|
||||||
|
EditorRegistry.UnRegisterClass(TfEditorAlmacenes);
|
||||||
|
EditorRegistry.UnRegisterClass(TfEditorListaAlmacenes);
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
143
Source/Modulos/Almacenes/Views/uEditorAlmacen.dfm
Normal file
143
Source/Modulos/Almacenes/Views/uEditorAlmacen.dfm
Normal file
@ -0,0 +1,143 @@
|
|||||||
|
inherited fEditorAlmacen: TfEditorAlmacen
|
||||||
|
Left = 374
|
||||||
|
Top = 273
|
||||||
|
HorzScrollBar.Visible = False
|
||||||
|
VertScrollBar.Visible = False
|
||||||
|
Caption = 'Ficha de almac'#233'n'
|
||||||
|
ClientWidth = 632
|
||||||
|
Scaled = False
|
||||||
|
OnClose = CustomEditorClose
|
||||||
|
ExplicitWidth = 640
|
||||||
|
PixelsPerInch = 96
|
||||||
|
TextHeight = 13
|
||||||
|
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||||
|
Width = 632
|
||||||
|
Caption = 'Almac'#233'n'
|
||||||
|
ExplicitWidth = 632
|
||||||
|
inherited Image1: TImage
|
||||||
|
Left = 605
|
||||||
|
Picture.Data = {
|
||||||
|
0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001C00
|
||||||
|
00001C0806000000720DDF940000000970485973000017120000171201679FD2
|
||||||
|
520000000467414D410000B18E7CFB51930000020F4944415478DAE5D4DB2B04
|
||||||
|
511800F06FB659D7CD2D892816B984258992242129E5924BDEE49147FF81571E
|
||||||
|
9495072F44BB1EF69127CAA5DC436E895C4A92AC6CC48E9961EC3963C7EEEC65
|
||||||
|
CEAC6D5F7CF575E69C33F3FD3AA773861204014219D4FF02298AF2FAD2709B5E
|
||||||
|
B8BEBF0E18195B17A4C28A20C2FA8D16E059065EACF7F0FE6203FBAB986B9619
|
||||||
|
D0EB93A169D0E8757E7A6C089ED2BBC1643291814E4C2CF0EC13F3368FB0AE8E
|
||||||
|
5618DF0E27038381A1200283851181C1C414C191F6CC3F611DED2DA0D150E4E0
|
||||||
|
402515F0A56CACAF83C8A808A069DA0DF50B8EF65242437D1F11C0B13C701C87
|
||||||
|
DBA58555282E2B045A4B83D691AE685040578C6339585DDC8082923C0CC9D13F
|
||||||
|
83728CE378D858D981DC826C8CC9D189DD88C0C10F86151119BAB77D08593919
|
||||||
|
222843270F74EAC1AFCF2FBC126F181A3FDA3F85F4CC34097245A74EE2D4814A
|
||||||
|
18EA9F1D5F404A6A1284858779A0B3E789E42009869E2FCF6F203129016FA11C
|
||||||
|
9DBB4A26034931D691B73777101B1F8341396AB94D53064930C6FE21818F0F56
|
||||||
|
88D6454907C589CE5BB3C16C36BBFF3EE5605D6DAF072616E781E7C53196FD5D
|
||||||
|
1DEADB9E6D18D06A7F4FE73263C018AAEB17ACAAEC715FCD4F515F186ADFDFDE
|
||||||
|
1C975C23615B9A720953042BCA3A556168FB19C68EBF47E8A1AEDA0D53044B0D
|
||||||
|
ADAA30144EF038A6C60353048BF29B55614ED017A6086E32DD1048F8C2FC82A1
|
||||||
|
889083DF93D867F65E51168D0000000049454E44AE426082}
|
||||||
|
ExplicitLeft = 607
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited TBXDock: TTBXDock
|
||||||
|
Width = 632
|
||||||
|
ExplicitWidth = 632
|
||||||
|
inherited tbxMain: TTBXToolbar
|
||||||
|
ExplicitWidth = 324
|
||||||
|
inherited TBXItem2: TTBXItem
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
inherited TBXItem5: TTBXItem
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
inherited TBXItem23: TTBXItem
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
inherited TBXItem3: TTBXItem
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited tbxMenu: TTBXToolbar
|
||||||
|
DockPos = 0
|
||||||
|
ExplicitWidth = 632
|
||||||
|
inherited TBXSubmenuItem4: TTBXSubmenuItem
|
||||||
|
inherited TBXItem8: TTBXItem
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
inherited TBXSeparatorItem5: TTBXSeparatorItem
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
inherited TBXItem10: TTBXItem
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
inherited TBXItem21: TTBXItem
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
inherited TBXItem22: TTBXItem
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
inherited TBXItem9: TTBXItem
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited TBXSubmenuItem1: TTBXSubmenuItem
|
||||||
|
inherited TBXItem32: TTBXItem
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
inherited TBXItem31: TTBXItem
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
inherited TBXSeparatorItem13: TTBXSeparatorItem
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited pgPaginas: TPageControl
|
||||||
|
Width = 632
|
||||||
|
ExplicitWidth = 632
|
||||||
|
inherited pagGeneral: TTabSheet
|
||||||
|
ExplicitLeft = 4
|
||||||
|
ExplicitTop = 24
|
||||||
|
ExplicitWidth = 624
|
||||||
|
ExplicitHeight = 338
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited StatusBar: TJvStatusBar
|
||||||
|
Width = 632
|
||||||
|
Panels = <
|
||||||
|
item
|
||||||
|
Width = 200
|
||||||
|
end>
|
||||||
|
ExplicitWidth = 632
|
||||||
|
end
|
||||||
|
inherited EditorActionList: TActionList
|
||||||
|
Top = 128
|
||||||
|
end
|
||||||
|
inherited SmallImages: TPngImageList
|
||||||
|
Top = 112
|
||||||
|
end
|
||||||
|
inherited dsDataTable: TDADataSource [6]
|
||||||
|
Left = 168
|
||||||
|
Top = 120
|
||||||
|
end
|
||||||
|
inherited LargeImages: TPngImageList [7]
|
||||||
|
Top = 112
|
||||||
|
end
|
||||||
|
inherited JvFormStorage: TJvFormStorage [8]
|
||||||
|
end
|
||||||
|
object dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList
|
||||||
|
Left = 320
|
||||||
|
Top = 248
|
||||||
|
object dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel
|
||||||
|
GroupOptions.CaptionOptions.Font.Charset = DEFAULT_CHARSET
|
||||||
|
GroupOptions.CaptionOptions.Font.Color = clWindowText
|
||||||
|
GroupOptions.CaptionOptions.Font.Height = -11
|
||||||
|
GroupOptions.CaptionOptions.Font.Name = 'Tahoma'
|
||||||
|
GroupOptions.CaptionOptions.Font.Style = [fsBold]
|
||||||
|
GroupOptions.CaptionOptions.TextColor = clHighlight
|
||||||
|
GroupOptions.CaptionOptions.UseDefaultFont = False
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
204
Source/Modulos/Almacenes/Views/uEditorAlmacen.pas
Normal file
204
Source/Modulos/Almacenes/Views/uEditorAlmacen.pas
Normal file
@ -0,0 +1,204 @@
|
|||||||
|
unit uEditorAlmacen;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||||
|
Dialogs, uEditorDBItem, ToolWin, ComCtrls, JvExControls, JvComponent,
|
||||||
|
uViewAlmacen, uBizAlmacenes, JvNavigationPane, ActnList,
|
||||||
|
uEditorBase, StdActns, TB2Dock, TB2Toolbar, TBX, ImgList, PngImageList,
|
||||||
|
TB2Item, uEditorItem, DB, uDADataTable, uEditorDBBase, JvFormAutoSize,
|
||||||
|
uDAScriptingProvider, uDACDSDataTable, StdCtrls, pngimage, ExtCtrls,
|
||||||
|
TBXDkPanels, JvButton, AppEvnts, uCustomView, uViewBase,
|
||||||
|
JvAppStorage, JvAppRegistryStorage, JvFormPlacement, JvComponentBase,
|
||||||
|
|
||||||
|
uViewAlmacenes, uIEditorAlmacen, uAlmacenesController, JvExComCtrls,
|
||||||
|
JvStatusBar, dxLayoutLookAndFeels;
|
||||||
|
|
||||||
|
type
|
||||||
|
TfEditorAlmacen = class(TfEditorDBItem, IEditorAlmacen)
|
||||||
|
dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList;
|
||||||
|
dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel;
|
||||||
|
procedure FormShow(Sender: TObject);
|
||||||
|
procedure dsDataTableDataChange(Sender: TObject; Field: TField);
|
||||||
|
procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction);
|
||||||
|
protected
|
||||||
|
FController : IAlmacenesController;
|
||||||
|
FAlmacen: IBizAlmacen;
|
||||||
|
FViewAlmacen : IViewAlmacen;
|
||||||
|
|
||||||
|
function GetController : IAlmacenesController;
|
||||||
|
procedure SetController (const Value : IAlmacenesController); virtual;
|
||||||
|
function GetAlmacen: IBizAlmacen; virtual;
|
||||||
|
procedure SetAlmacen(const Value: IBizAlmacen); virtual;
|
||||||
|
function GetViewAlmacen: IViewAlmacen;
|
||||||
|
procedure SetViewAlmacen(const Value: IViewAlmacen);
|
||||||
|
property ViewAlmacen: IViewAlmacen read GetViewAlmacen write SetViewAlmacen;
|
||||||
|
|
||||||
|
procedure GuardarInterno; override;
|
||||||
|
procedure EliminarInterno; override;
|
||||||
|
|
||||||
|
procedure PonerTitulos(const ATitulo: string = ''); override;
|
||||||
|
|
||||||
|
//Si queremos crear otra vista para el editor heredado solo tendriamos que
|
||||||
|
//sobreescribir este metodo
|
||||||
|
procedure AsignarVista; virtual;
|
||||||
|
|
||||||
|
public
|
||||||
|
property Almacen: IBizAlmacen read GetAlmacen write SetAlmacen;
|
||||||
|
constructor Create(AOwner: TComponent); override;
|
||||||
|
destructor Destroy; override;
|
||||||
|
end;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
{$R *.dfm}
|
||||||
|
|
||||||
|
uses
|
||||||
|
uCustomEditor, uDataModuleAlmacenes, uDataModuleBase;
|
||||||
|
|
||||||
|
function ShowEditorAlmacen (ABizObject : TDADataTableRules): TModalResult;
|
||||||
|
var
|
||||||
|
AEditor: TfEditorAlmacen;
|
||||||
|
begin
|
||||||
|
AEditor := TfEditorAlmacen.Create(Application);
|
||||||
|
try
|
||||||
|
AEditor.Almacen := (ABizObject as IBizAlmacen);
|
||||||
|
Result := AEditor.ShowModal;
|
||||||
|
finally
|
||||||
|
AEditor.Release;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
{
|
||||||
|
******************************* TfEditorAlmacen *******************************
|
||||||
|
}
|
||||||
|
function TfEditorAlmacen.GetAlmacen: IBizAlmacen;
|
||||||
|
begin
|
||||||
|
Result := FAlmacen;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TfEditorAlmacen.GetController: IAlmacenesController;
|
||||||
|
begin
|
||||||
|
Result := FController;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TfEditorAlmacen.GetViewAlmacen: IViewAlmacen;
|
||||||
|
begin
|
||||||
|
Result := FViewAlmacen;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorAlmacen.GuardarInterno;
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
FController.Guardar(FAlmacen);
|
||||||
|
Modified := False;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorAlmacen.PonerTitulos(const ATitulo: string);
|
||||||
|
var
|
||||||
|
FTitulo : String;
|
||||||
|
begin
|
||||||
|
if Assigned(Almacen) then
|
||||||
|
begin
|
||||||
|
if Almacen.EsNuevo then
|
||||||
|
FTitulo := 'Nuevo almacén'
|
||||||
|
else
|
||||||
|
FTitulo := 'Almacén' + ' - ' + Almacen.NOMBRE;
|
||||||
|
end;
|
||||||
|
|
||||||
|
inherited PonerTitulos(FTitulo);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorAlmacen.SetAlmacen(const Value: IBizAlmacen);
|
||||||
|
begin
|
||||||
|
FAlmacen := Value;
|
||||||
|
dsDataTable.DataTable := FAlmacen.DataTable;
|
||||||
|
|
||||||
|
if Assigned(FViewAlmacen) and Assigned(Almacen) then
|
||||||
|
FViewAlmacen.Almacen := Almacen;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorAlmacen.SetController(const Value: IAlmacenesController);
|
||||||
|
begin
|
||||||
|
FController := Value;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorAlmacen.SetViewAlmacen(const Value: IViewAlmacen);
|
||||||
|
begin
|
||||||
|
FViewAlmacen := Value;
|
||||||
|
|
||||||
|
if Assigned(FViewAlmacen) and Assigned(Almacen) then
|
||||||
|
FViewAlmacen.Almacen := Almacen;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorAlmacen.FormShow(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
|
||||||
|
if not Assigned(FViewAlmacen) then
|
||||||
|
raise Exception.Create('No hay ninguna vista asignada');
|
||||||
|
|
||||||
|
if not Assigned(Almacen) then
|
||||||
|
raise Exception.Create('No hay ningún almacén asignado');
|
||||||
|
|
||||||
|
Almacen.DataTable.Active := True;
|
||||||
|
end;
|
||||||
|
|
||||||
|
destructor TfEditorAlmacen.Destroy;
|
||||||
|
begin
|
||||||
|
// Utilizar mejor OnClose;
|
||||||
|
inherited;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorAlmacen.AsignarVista;
|
||||||
|
var
|
||||||
|
AViewAlmacen: TfrViewAlmacen;
|
||||||
|
begin
|
||||||
|
AViewAlmacen := TfrViewAlmacen.create(Self);
|
||||||
|
with AViewAlmacen do
|
||||||
|
begin
|
||||||
|
Parent := pagGeneral;
|
||||||
|
Align := alClient;
|
||||||
|
dxLayoutControlAlmacen.LookAndFeel := dxLayoutOfficeLookAndFeel1;
|
||||||
|
end;
|
||||||
|
ViewAlmacen := AViewAlmacen;
|
||||||
|
end;
|
||||||
|
|
||||||
|
constructor TfEditorAlmacen.Create(AOwner: TComponent);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
pgPaginas.ActivePageIndex := 0;
|
||||||
|
AsignarVista;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorAlmacen.CustomEditorClose(Sender: TObject;
|
||||||
|
var Action: TCloseAction);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
dsDataTable.DataTable := NIL;
|
||||||
|
FViewAlmacen := NIL;
|
||||||
|
FAlmacen := NIL;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorAlmacen.dsDataTableDataChange(Sender: TObject;
|
||||||
|
Field: TField);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
if Assigned(FAlmacen) and (not (FAlmacen.DataTable.Fetching) or
|
||||||
|
not (FAlmacen.DataTable.Opening) or not (FAlmacen.DataTable.Closing)) then
|
||||||
|
PonerTitulos;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorAlmacen.EliminarInterno;
|
||||||
|
begin
|
||||||
|
if (Application.MessageBox('¿Desea borrar este almacen?', 'Atención', MB_YESNO) = IDYES) then
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
if not FController.Eliminar(FAlmacen) then
|
||||||
|
actRefrescar.Execute;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
|
|
||||||
1499
Source/Modulos/Almacenes/Views/uEditorAlmacenes.dfm
Normal file
1499
Source/Modulos/Almacenes/Views/uEditorAlmacenes.dfm
Normal file
File diff suppressed because it is too large
Load Diff
152
Source/Modulos/Almacenes/Views/uEditorAlmacenes.pas
Normal file
152
Source/Modulos/Almacenes/Views/uEditorAlmacenes.pas
Normal file
@ -0,0 +1,152 @@
|
|||||||
|
unit uEditorAlmacenes;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||||
|
Dialogs, uEditorBase, ToolWin, ComCtrls, JvExControls, JvComponent,
|
||||||
|
JvNavigationPane, uViewAlmacenes, uBizAlmacenes, ActnList, DBActns, uViewGrid,
|
||||||
|
Menus, uDataModuleBase, ImgList, PngImageList, TB2Dock, TB2Toolbar, TBX,
|
||||||
|
TB2Item, StdActns, TB2ExtItems, TBXExtItems, TB2MRU, DB, uDADataTable,
|
||||||
|
JvFormAutoSize, uDAScriptingProvider, uDACDSDataTable, JvAppStorage,
|
||||||
|
JvAppRegistryStorage, JvFormPlacement, ExtCtrls, uCustomView, uViewBase,
|
||||||
|
uViewBarraSeleccion, pngimage, uIEditorAlmacenes, uEditorGridBase,
|
||||||
|
JvComponentBase, uViewGridBase, uAlmacenesController, JvExComCtrls,
|
||||||
|
JvStatusBar, uDAInterfaces;
|
||||||
|
|
||||||
|
type
|
||||||
|
TfEditorAlmacenes = class(TfEditorGridBase, IEditorAlmacenes)
|
||||||
|
frViewAlmacenes1: TfrViewAlmacenes;
|
||||||
|
procedure FormShow(Sender: TObject);
|
||||||
|
private
|
||||||
|
FAlmacenes: IBizAlmacen;
|
||||||
|
FController : IAlmacenesController;
|
||||||
|
protected
|
||||||
|
function GetAlmacenes: IBizAlmacen;
|
||||||
|
procedure SetAlmacenes(const Value: IBizAlmacen);
|
||||||
|
function GetController : IAlmacenesController; virtual;
|
||||||
|
procedure SetController (const Value : IAlmacenesController); virtual;
|
||||||
|
|
||||||
|
procedure NuevoInterno; override;
|
||||||
|
procedure EliminarInterno; override;
|
||||||
|
procedure ModificarInterno; override;
|
||||||
|
procedure DuplicarInterno; override;
|
||||||
|
|
||||||
|
public
|
||||||
|
procedure PonerTitulos(const ATitulo: string = ''); override;
|
||||||
|
property Almacenes: IBizAlmacen read GetAlmacenes write SetAlmacenes;
|
||||||
|
property Controller : IAlmacenesController read GetController write SetController;
|
||||||
|
constructor Create(AOwner: TComponent); override;
|
||||||
|
destructor Destroy; override;
|
||||||
|
end;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
uses
|
||||||
|
uCustomEditor, uDataModuleAlmacenes, uDataModuleUsuarios,
|
||||||
|
uEditorAlmacen, uEditorDBBase,
|
||||||
|
cxGrid, cxGridCustomTableView; //, uListaAlmacenes;
|
||||||
|
|
||||||
|
{$R *.dfm}
|
||||||
|
|
||||||
|
{
|
||||||
|
****************************** TfEditorAlmacenes *******************************
|
||||||
|
}
|
||||||
|
procedure TfEditorAlmacenes.FormShow(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
|
||||||
|
if not Assigned(ViewGrid) then
|
||||||
|
raise Exception.Create('No hay ninguna vista asignada');
|
||||||
|
|
||||||
|
if not Assigned(Almacenes) then
|
||||||
|
raise Exception.Create('No hay ningún Almacen asignado');
|
||||||
|
|
||||||
|
Almacenes.DataTable.Active := True;
|
||||||
|
ViewGrid.GotoFirst;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TfEditorAlmacenes.GetAlmacenes: IBizAlmacen;
|
||||||
|
begin
|
||||||
|
Result := FAlmacenes;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TfEditorAlmacenes.GetController: IAlmacenesController;
|
||||||
|
begin
|
||||||
|
Result := FController;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorAlmacenes.ModificarInterno;
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
FController.Ver(Almacenes);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorAlmacenes.NuevoInterno;
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
FController.Anadir(Almacenes);
|
||||||
|
FController.Ver(Almacenes);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorAlmacenes.PonerTitulos(const ATitulo: string);
|
||||||
|
var
|
||||||
|
FTitulo : String;
|
||||||
|
begin
|
||||||
|
// FTitulo := 'Lista de almacenes - ' + dmUsuarios.EmpresaActual.NOMBRE;
|
||||||
|
inherited PonerTitulos(FTitulo);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorAlmacenes.SetAlmacenes(const Value: IBizAlmacen);
|
||||||
|
begin
|
||||||
|
FAlmacenes := Value;
|
||||||
|
dsDataTable.DataTable := FAlmacenes.DataTable;
|
||||||
|
if Assigned(ViewGrid) then
|
||||||
|
(ViewGrid as IViewAlmacenes).Almacenes := Almacenes;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorAlmacenes.SetController(const Value: IAlmacenesController);
|
||||||
|
begin
|
||||||
|
FController := Value;
|
||||||
|
end;
|
||||||
|
|
||||||
|
destructor TfEditorAlmacenes.Destroy;
|
||||||
|
begin
|
||||||
|
FAlmacenes := NIL;
|
||||||
|
inherited;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorAlmacenes.DuplicarInterno;
|
||||||
|
var
|
||||||
|
AAlmacen : IBizAlmacen;
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
AAlmacen := FController.Duplicar(Almacenes);
|
||||||
|
try
|
||||||
|
FController.Ver(AAlmacen);
|
||||||
|
finally
|
||||||
|
actRefrescar.Execute;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorAlmacenes.EliminarInterno;
|
||||||
|
begin
|
||||||
|
|
||||||
|
if (Application.MessageBox('¿Desea borrar este almacén?', 'Atención', MB_YESNO) = IDYES) then
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
//Para que en el caso de no poderse realizar la operación se refresquen
|
||||||
|
//los datos y no nos permita eliminar un registro a la segunda
|
||||||
|
if not FController.Eliminar(Almacenes) then
|
||||||
|
actRefrescar.Execute;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
constructor TfEditorAlmacenes.Create(AOwner: TComponent);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
ViewGrid := frViewAlmacenes1; //CreateView(TfrViewAlmacenes) as IViewAlmacenes;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
|
|
||||||
103
Source/Modulos/Almacenes/Views/uEditorListaAlmacenes.dfm
Normal file
103
Source/Modulos/Almacenes/Views/uEditorListaAlmacenes.dfm
Normal file
@ -0,0 +1,103 @@
|
|||||||
|
object fEditorListaAlmacenes: TfEditorListaAlmacenes
|
||||||
|
Left = 356
|
||||||
|
Top = 461
|
||||||
|
ActiveControl = cxAlmacenes
|
||||||
|
Caption = 'fEditorListaAlmacenes'
|
||||||
|
ClientHeight = 116
|
||||||
|
ClientWidth = 355
|
||||||
|
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 Label1: TLabel
|
||||||
|
Left = 21
|
||||||
|
Top = 42
|
||||||
|
Width = 100
|
||||||
|
Height = 13
|
||||||
|
Caption = 'Nombre del almac'#233'n:'
|
||||||
|
end
|
||||||
|
object Label5: TLabel
|
||||||
|
Left = 9
|
||||||
|
Top = 9
|
||||||
|
Width = 84
|
||||||
|
Height = 13
|
||||||
|
Caption = 'Elegir almac'#233'n'
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clActiveCaption
|
||||||
|
Font.Height = -11
|
||||||
|
Font.Name = 'MS Sans Serif'
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
end
|
||||||
|
object Bevel1: TBevel
|
||||||
|
Left = 108
|
||||||
|
Top = 9
|
||||||
|
Width = 237
|
||||||
|
Height = 9
|
||||||
|
Shape = bsBottomLine
|
||||||
|
end
|
||||||
|
object cxAlmacenes: TcxLookupComboBox
|
||||||
|
Left = 128
|
||||||
|
Top = 38
|
||||||
|
Properties.KeyFieldNames = 'ID'
|
||||||
|
Properties.ListColumns = <
|
||||||
|
item
|
||||||
|
SortOrder = soAscending
|
||||||
|
FieldName = 'NOMBRE'
|
||||||
|
end>
|
||||||
|
Properties.ListOptions.AnsiSort = True
|
||||||
|
Properties.ListOptions.GridLines = glNone
|
||||||
|
Properties.ListOptions.ShowHeader = False
|
||||||
|
Properties.ListSource = DADataSource
|
||||||
|
Style.LookAndFeel.NativeStyle = True
|
||||||
|
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||||
|
StyleFocused.LookAndFeel.NativeStyle = True
|
||||||
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
|
TabOrder = 0
|
||||||
|
Width = 217
|
||||||
|
end
|
||||||
|
object pnlSeleccion: TPanel
|
||||||
|
Left = 0
|
||||||
|
Top = 79
|
||||||
|
Width = 355
|
||||||
|
Height = 37
|
||||||
|
Align = alBottom
|
||||||
|
BevelOuter = bvNone
|
||||||
|
TabOrder = 1
|
||||||
|
DesignSize = (
|
||||||
|
355
|
||||||
|
37)
|
||||||
|
object bSeleccionar: TButton
|
||||||
|
Left = 192
|
||||||
|
Top = 7
|
||||||
|
Width = 74
|
||||||
|
Height = 23
|
||||||
|
Anchors = [akRight]
|
||||||
|
Caption = '&Seleccionar'
|
||||||
|
Default = True
|
||||||
|
ModalResult = 1
|
||||||
|
TabOrder = 0
|
||||||
|
end
|
||||||
|
object bCancelar: TButton
|
||||||
|
Left = 273
|
||||||
|
Top = 7
|
||||||
|
Width = 74
|
||||||
|
Height = 23
|
||||||
|
Anchors = [akRight]
|
||||||
|
Cancel = True
|
||||||
|
Caption = '&Cancelar'
|
||||||
|
ModalResult = 2
|
||||||
|
TabOrder = 1
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object DADataSource: TDADataSource
|
||||||
|
Left = 84
|
||||||
|
Top = 68
|
||||||
|
end
|
||||||
|
end
|
||||||
84
Source/Modulos/Almacenes/Views/uEditorListaAlmacenes.pas
Normal file
84
Source/Modulos/Almacenes/Views/uEditorListaAlmacenes.pas
Normal file
@ -0,0 +1,84 @@
|
|||||||
|
unit uEditorListaAlmacenes;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||||
|
Dialogs, cxGraphics, cxControls, cxContainer, cxEdit, cxTextEdit,
|
||||||
|
cxMaskEdit, cxDropDownEdit, cxLookupEdit, cxDBLookupEdit,
|
||||||
|
cxDBLookupComboBox, DB, uDADataTable, uCustomView, uViewBase,
|
||||||
|
uViewBarraSeleccion, uBizAlmacenes, ExtCtrls, StdCtrls,
|
||||||
|
Grids, DBGrids, uIEditorListaAlmacenes;
|
||||||
|
|
||||||
|
type
|
||||||
|
TfEditorListaAlmacenes = class(TForm, IEditorListaAlmacenes)
|
||||||
|
DADataSource: TDADataSource;
|
||||||
|
Label1: TLabel;
|
||||||
|
Label5: TLabel;
|
||||||
|
Bevel1: TBevel;
|
||||||
|
cxAlmacenes: TcxLookupComboBox;
|
||||||
|
pnlSeleccion: TPanel;
|
||||||
|
bSeleccionar: TButton;
|
||||||
|
bCancelar: TButton;
|
||||||
|
private
|
||||||
|
FAlmacenes: IBizAlmacen;
|
||||||
|
function GetAlmacenes: IBizAlmacen;
|
||||||
|
procedure SetAlmacenes(const Value: IBizAlmacen);
|
||||||
|
procedure localizarAlmacen;
|
||||||
|
function GetAlmacenSeleccionado: IBizAlmacen;
|
||||||
|
public
|
||||||
|
property Almacenes: IBizAlmacen read GetAlmacenes write SetAlmacenes;
|
||||||
|
property AlmacenSeleccionado: IBizAlmacen read GetAlmacenSeleccionado;
|
||||||
|
constructor Create(AOwner: TComponent); override;
|
||||||
|
destructor Destroy; override;
|
||||||
|
end;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
{$R *.dfm}
|
||||||
|
|
||||||
|
uses uDataModuleAlmacenes, schAlmacenesClient_Intf;
|
||||||
|
|
||||||
|
{ TfListaAlmacenes }
|
||||||
|
|
||||||
|
constructor TfEditorListaAlmacenes.Create(AOwner: TComponent);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
end;
|
||||||
|
|
||||||
|
destructor TfEditorListaAlmacenes.Destroy;
|
||||||
|
begin
|
||||||
|
FAlmacenes := Nil;
|
||||||
|
inherited;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TfEditorListaAlmacenes.GetAlmacenes: IBizAlmacen;
|
||||||
|
begin
|
||||||
|
Result := FAlmacenes;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TfEditorListaAlmacenes.GetAlmacenSeleccionado: IBizAlmacen;
|
||||||
|
begin
|
||||||
|
localizarAlmacen;
|
||||||
|
Result := FAlmacenes;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorListaAlmacenes.localizarAlmacen;
|
||||||
|
begin
|
||||||
|
FAlmacenes.First;
|
||||||
|
FAlmacenes.Locate(fld_ALMACENESNOMBRE, cxAlmacenes.Text);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorListaAlmacenes.SetAlmacenes(const Value: IBizAlmacen);
|
||||||
|
begin
|
||||||
|
FAlmacenes := Value;
|
||||||
|
if Assigned(FAlmacenes) then
|
||||||
|
begin
|
||||||
|
DADataSource.DataTable := FAlmacenes.DataTable;
|
||||||
|
FAlmacenes.DataTable.Active := True;
|
||||||
|
cxAlmacenes.ItemIndex := 0;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
DADataSource.DataTable := Nil;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
103
Source/Modulos/Almacenes/Views/uListaAlmacenes.dfm
Normal file
103
Source/Modulos/Almacenes/Views/uListaAlmacenes.dfm
Normal file
@ -0,0 +1,103 @@
|
|||||||
|
object fListaAlmacenes: TfListaAlmacenes
|
||||||
|
Left = 356
|
||||||
|
Top = 461
|
||||||
|
ActiveControl = cxAlmacenes
|
||||||
|
Caption = 'fListaAlmacenes'
|
||||||
|
ClientHeight = 116
|
||||||
|
ClientWidth = 355
|
||||||
|
Color = clBtnFace
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -11
|
||||||
|
Font.Name = 'MS Sans Serif'
|
||||||
|
Font.Style = []
|
||||||
|
OldCreateOrder = False
|
||||||
|
PixelsPerInch = 96
|
||||||
|
TextHeight = 13
|
||||||
|
object Label1: TLabel
|
||||||
|
Left = 21
|
||||||
|
Top = 42
|
||||||
|
Width = 100
|
||||||
|
Height = 13
|
||||||
|
Caption = 'Nombre del almac'#233'n:'
|
||||||
|
end
|
||||||
|
object Label5: TLabel
|
||||||
|
Left = 9
|
||||||
|
Top = 9
|
||||||
|
Width = 84
|
||||||
|
Height = 13
|
||||||
|
Caption = 'Elegir almac'#233'n'
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clActiveCaption
|
||||||
|
Font.Height = -11
|
||||||
|
Font.Name = 'MS Sans Serif'
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
end
|
||||||
|
object Bevel1: TBevel
|
||||||
|
Left = 108
|
||||||
|
Top = 9
|
||||||
|
Width = 237
|
||||||
|
Height = 9
|
||||||
|
Shape = bsBottomLine
|
||||||
|
end
|
||||||
|
object cxAlmacenes: TcxLookupComboBox
|
||||||
|
Left = 128
|
||||||
|
Top = 38
|
||||||
|
Properties.KeyFieldNames = 'CODIGO'
|
||||||
|
Properties.ListColumns = <
|
||||||
|
item
|
||||||
|
SortOrder = soAscending
|
||||||
|
FieldName = 'NOMBRE'
|
||||||
|
end>
|
||||||
|
Properties.ListOptions.AnsiSort = True
|
||||||
|
Properties.ListOptions.GridLines = glNone
|
||||||
|
Properties.ListOptions.ShowHeader = False
|
||||||
|
Properties.ListSource = DADataSource
|
||||||
|
Style.LookAndFeel.NativeStyle = True
|
||||||
|
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||||
|
StyleFocused.LookAndFeel.NativeStyle = True
|
||||||
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
|
TabOrder = 0
|
||||||
|
Width = 217
|
||||||
|
end
|
||||||
|
object pnlSeleccion: TPanel
|
||||||
|
Left = 0
|
||||||
|
Top = 79
|
||||||
|
Width = 355
|
||||||
|
Height = 37
|
||||||
|
Align = alBottom
|
||||||
|
BevelOuter = bvNone
|
||||||
|
TabOrder = 1
|
||||||
|
DesignSize = (
|
||||||
|
355
|
||||||
|
37)
|
||||||
|
object bSeleccionar: TButton
|
||||||
|
Left = 192
|
||||||
|
Top = 7
|
||||||
|
Width = 74
|
||||||
|
Height = 23
|
||||||
|
Anchors = [akRight]
|
||||||
|
Caption = '&Seleccionar'
|
||||||
|
Default = True
|
||||||
|
ModalResult = 1
|
||||||
|
TabOrder = 0
|
||||||
|
OnClick = bSeleccionarClick
|
||||||
|
end
|
||||||
|
object bCancelar: TButton
|
||||||
|
Left = 273
|
||||||
|
Top = 7
|
||||||
|
Width = 74
|
||||||
|
Height = 23
|
||||||
|
Anchors = [akRight]
|
||||||
|
Cancel = True
|
||||||
|
Caption = '&Cancelar'
|
||||||
|
ModalResult = 2
|
||||||
|
TabOrder = 1
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object DADataSource: TDADataSource
|
||||||
|
Left = 84
|
||||||
|
Top = 68
|
||||||
|
end
|
||||||
|
end
|
||||||
76
Source/Modulos/Almacenes/Views/uListaAlmacenes.pas
Normal file
76
Source/Modulos/Almacenes/Views/uListaAlmacenes.pas
Normal file
@ -0,0 +1,76 @@
|
|||||||
|
unit uListaAlmacenes;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||||
|
Dialogs, cxGraphics, cxControls, cxContainer, cxEdit, cxTextEdit,
|
||||||
|
cxMaskEdit, cxDropDownEdit, cxLookupEdit, cxDBLookupEdit,
|
||||||
|
cxDBLookupComboBox, DB, uDADataTable, uCustomView, uViewBase,
|
||||||
|
uViewBarraSeleccion, uBizAlmacenes, ExtCtrls, StdCtrls,
|
||||||
|
Grids, DBGrids;
|
||||||
|
|
||||||
|
type
|
||||||
|
TfListaAlmacenes = class(TForm)
|
||||||
|
DADataSource: TDADataSource;
|
||||||
|
Label1: TLabel;
|
||||||
|
Label5: TLabel;
|
||||||
|
Bevel1: TBevel;
|
||||||
|
cxAlmacenes: TcxLookupComboBox;
|
||||||
|
pnlSeleccion: TPanel;
|
||||||
|
bSeleccionar: TButton;
|
||||||
|
bCancelar: TButton;
|
||||||
|
procedure bSeleccionarClick(Sender: TObject);
|
||||||
|
private
|
||||||
|
FAlmacenes: IBizAlmacen;
|
||||||
|
function GetAlmacenes: IBizAlmacen;
|
||||||
|
procedure SetAlmacen(const Value: IBizAlmacen);
|
||||||
|
public
|
||||||
|
property Almacenes: IBizAlmacen read GetAlmacenes write SetAlmacen;
|
||||||
|
constructor Create(AOwner: TComponent); override;
|
||||||
|
destructor Destroy; override;
|
||||||
|
end;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
{$R *.dfm}
|
||||||
|
|
||||||
|
uses uDataModuleAlmacenes, schAlmacenesClient_Intf;
|
||||||
|
|
||||||
|
{ TfListaAlmacenes }
|
||||||
|
|
||||||
|
constructor TfListaAlmacenes.Create(AOwner: TComponent);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
end;
|
||||||
|
|
||||||
|
destructor TfListaAlmacenes.Destroy;
|
||||||
|
begin
|
||||||
|
FAlmacenes := Nil;
|
||||||
|
inherited;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TfListaAlmacenes.GetAlmacenes: IBizAlmacen;
|
||||||
|
begin
|
||||||
|
Result := FAlmacenes;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfListaAlmacenes.SetAlmacen(const Value: IBizAlmacen);
|
||||||
|
begin
|
||||||
|
FAlmacenes := Value;
|
||||||
|
if Assigned(FAlmacenes) then
|
||||||
|
begin
|
||||||
|
DADataSource.DataTable := FAlmacenes.DataTable;
|
||||||
|
FAlmacenes.DataTable.Active := True;
|
||||||
|
cxAlmacenes.ItemIndex := 0;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
DADataSource.DataTable := Nil;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfListaAlmacenes.bSeleccionarClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
FAlmacenes.First;
|
||||||
|
FAlmacenes.Locate(fld_ALMACENESNOMBRE, cxAlmacenes.Text);
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
264
Source/Modulos/Almacenes/Views/uViewAlmacen.dfm
Normal file
264
Source/Modulos/Almacenes/Views/uViewAlmacen.dfm
Normal file
@ -0,0 +1,264 @@
|
|||||||
|
inherited frViewAlmacen: TfrViewAlmacen
|
||||||
|
Width = 451
|
||||||
|
Height = 304
|
||||||
|
Align = alClient
|
||||||
|
AutoSize = True
|
||||||
|
ExplicitWidth = 451
|
||||||
|
ExplicitHeight = 304
|
||||||
|
object dxLayoutControlAlmacen: TdxLayoutControl
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
Width = 451
|
||||||
|
Height = 304
|
||||||
|
Align = alClient
|
||||||
|
ParentBackground = True
|
||||||
|
TabOrder = 0
|
||||||
|
AutoContentSizes = [acsWidth, acsHeight]
|
||||||
|
DesignSize = (
|
||||||
|
451
|
||||||
|
304)
|
||||||
|
object eNombre: TcxDBTextEdit
|
||||||
|
Left = 130
|
||||||
|
Top = 28
|
||||||
|
Anchors = [akLeft, akTop, akRight]
|
||||||
|
DataBinding.DataField = 'NOMBRE'
|
||||||
|
DataBinding.DataSource = DADataSource
|
||||||
|
Properties.ValidateOnEnter = True
|
||||||
|
Style.BorderColor = clWindowFrame
|
||||||
|
Style.BorderStyle = ebs3D
|
||||||
|
Style.Color = 14745599
|
||||||
|
Style.HotTrack = False
|
||||||
|
Style.LookAndFeel.NativeStyle = True
|
||||||
|
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||||
|
StyleFocused.LookAndFeel.NativeStyle = True
|
||||||
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
|
TabOrder = 0
|
||||||
|
Width = 204
|
||||||
|
end
|
||||||
|
object ePersonaContacto: TcxDBTextEdit
|
||||||
|
Left = 130
|
||||||
|
Top = 55
|
||||||
|
Anchors = [akLeft, akTop, akRight]
|
||||||
|
DataBinding.DataField = 'PERSONA_CONTACTO'
|
||||||
|
DataBinding.DataSource = DADataSource
|
||||||
|
Style.BorderColor = clWindowFrame
|
||||||
|
Style.BorderStyle = ebs3D
|
||||||
|
Style.HotTrack = False
|
||||||
|
Style.LookAndFeel.NativeStyle = True
|
||||||
|
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||||
|
StyleFocused.LookAndFeel.NativeStyle = True
|
||||||
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
|
TabOrder = 1
|
||||||
|
Width = 204
|
||||||
|
end
|
||||||
|
object eTlfTelefono: TcxDBTextEdit
|
||||||
|
Left = 341
|
||||||
|
Top = 28
|
||||||
|
DataBinding.DataField = 'TELEFONO'
|
||||||
|
DataBinding.DataSource = DADataSource
|
||||||
|
Style.BorderColor = clWindowFrame
|
||||||
|
Style.BorderStyle = ebs3D
|
||||||
|
Style.HotTrack = False
|
||||||
|
Style.LookAndFeel.NativeStyle = True
|
||||||
|
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||||
|
StyleFocused.LookAndFeel.NativeStyle = True
|
||||||
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
|
TabOrder = 2
|
||||||
|
Width = 173
|
||||||
|
end
|
||||||
|
object eTlfMovil: TcxDBTextEdit
|
||||||
|
Left = 341
|
||||||
|
Top = 55
|
||||||
|
DataBinding.DataField = 'MOVIL'
|
||||||
|
DataBinding.DataSource = DADataSource
|
||||||
|
Style.BorderColor = clWindowFrame
|
||||||
|
Style.BorderStyle = ebs3D
|
||||||
|
Style.HotTrack = False
|
||||||
|
Style.LookAndFeel.NativeStyle = True
|
||||||
|
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||||
|
StyleFocused.LookAndFeel.NativeStyle = True
|
||||||
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
|
TabOrder = 3
|
||||||
|
Width = 173
|
||||||
|
end
|
||||||
|
object eFax: TcxDBTextEdit
|
||||||
|
Left = 341
|
||||||
|
Top = 82
|
||||||
|
DataBinding.DataField = 'FAX'
|
||||||
|
DataBinding.DataSource = DADataSource
|
||||||
|
Style.BorderColor = clWindowFrame
|
||||||
|
Style.BorderStyle = ebs3D
|
||||||
|
Style.HotTrack = False
|
||||||
|
Style.LookAndFeel.NativeStyle = True
|
||||||
|
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||||
|
StyleFocused.LookAndFeel.NativeStyle = True
|
||||||
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
|
TabOrder = 4
|
||||||
|
Width = 173
|
||||||
|
end
|
||||||
|
object eCalle: TcxDBTextEdit
|
||||||
|
Left = 130
|
||||||
|
Top = 139
|
||||||
|
DataBinding.DataField = 'CALLE'
|
||||||
|
DataBinding.DataSource = DADataSource
|
||||||
|
Style.BorderColor = clWindowFrame
|
||||||
|
Style.BorderStyle = ebs3D
|
||||||
|
Style.HotTrack = False
|
||||||
|
Style.LookAndFeel.Kind = lfStandard
|
||||||
|
Style.LookAndFeel.NativeStyle = True
|
||||||
|
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||||
|
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||||
|
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||||
|
StyleFocused.LookAndFeel.NativeStyle = True
|
||||||
|
StyleHot.LookAndFeel.Kind = lfStandard
|
||||||
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
|
TabOrder = 5
|
||||||
|
Width = 278
|
||||||
|
end
|
||||||
|
object ePoblacion: TcxDBTextEdit
|
||||||
|
Left = 130
|
||||||
|
Top = 166
|
||||||
|
DataBinding.DataField = 'POBLACION'
|
||||||
|
DataBinding.DataSource = DADataSource
|
||||||
|
Style.BorderColor = clWindowFrame
|
||||||
|
Style.BorderStyle = ebs3D
|
||||||
|
Style.HotTrack = False
|
||||||
|
Style.LookAndFeel.Kind = lfStandard
|
||||||
|
Style.LookAndFeel.NativeStyle = True
|
||||||
|
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||||
|
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||||
|
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||||
|
StyleFocused.LookAndFeel.NativeStyle = True
|
||||||
|
StyleHot.LookAndFeel.Kind = lfStandard
|
||||||
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
|
TabOrder = 6
|
||||||
|
Width = 177
|
||||||
|
end
|
||||||
|
object eCodigoPostal: TcxDBTextEdit
|
||||||
|
Left = 359
|
||||||
|
Top = 166
|
||||||
|
DataBinding.DataField = 'CODIGO_POSTAL'
|
||||||
|
DataBinding.DataSource = DADataSource
|
||||||
|
Style.BorderColor = clWindowFrame
|
||||||
|
Style.BorderStyle = ebs3D
|
||||||
|
Style.HotTrack = False
|
||||||
|
Style.LookAndFeel.Kind = lfStandard
|
||||||
|
Style.LookAndFeel.NativeStyle = True
|
||||||
|
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||||
|
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||||
|
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||||
|
StyleFocused.LookAndFeel.NativeStyle = True
|
||||||
|
StyleHot.LookAndFeel.Kind = lfStandard
|
||||||
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
|
TabOrder = 7
|
||||||
|
Width = 65
|
||||||
|
end
|
||||||
|
object eProvincia: TcxDBTextEdit
|
||||||
|
Left = 130
|
||||||
|
Top = 193
|
||||||
|
DataBinding.DataField = 'PROVINCIA'
|
||||||
|
DataBinding.DataSource = DADataSource
|
||||||
|
Style.BorderColor = clWindowFrame
|
||||||
|
Style.BorderStyle = ebs3D
|
||||||
|
Style.HotTrack = False
|
||||||
|
Style.LookAndFeel.Kind = lfStandard
|
||||||
|
Style.LookAndFeel.NativeStyle = True
|
||||||
|
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||||
|
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||||
|
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||||
|
StyleFocused.LookAndFeel.NativeStyle = True
|
||||||
|
StyleHot.LookAndFeel.Kind = lfStandard
|
||||||
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
|
TabOrder = 8
|
||||||
|
Width = 278
|
||||||
|
end
|
||||||
|
object dxLayoutControlAlmacenGroup_Root: TdxLayoutGroup
|
||||||
|
ShowCaption = False
|
||||||
|
Hidden = True
|
||||||
|
ShowBorder = False
|
||||||
|
object dxLayoutControlAlmacenGroup4: TdxLayoutGroup
|
||||||
|
ShowCaption = False
|
||||||
|
Hidden = True
|
||||||
|
LayoutDirection = ldHorizontal
|
||||||
|
ShowBorder = False
|
||||||
|
object dxLayoutControlAlmacenGroup1: TdxLayoutGroup
|
||||||
|
AutoAligns = [aaVertical]
|
||||||
|
AlignHorz = ahClient
|
||||||
|
Caption = 'Datos generales del almac'#233'n'
|
||||||
|
object dxLayoutControlAlmacenItem3: TdxLayoutItem
|
||||||
|
Caption = 'Nombre:'
|
||||||
|
Control = eNombre
|
||||||
|
ControlOptions.ShowBorder = False
|
||||||
|
end
|
||||||
|
object dxLayoutControlAlmacenItem4: TdxLayoutItem
|
||||||
|
Caption = 'Persona de contacto:'
|
||||||
|
Control = ePersonaContacto
|
||||||
|
ControlOptions.ShowBorder = False
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object dxLayoutControlAlmacenGroup2: TdxLayoutGroup
|
||||||
|
AutoAligns = [aaVertical]
|
||||||
|
AlignHorz = ahClient
|
||||||
|
Caption = 'Tel'#233'fonos'
|
||||||
|
object dxLayoutControlAlmacenItem1: TdxLayoutItem
|
||||||
|
Caption = 'Tel'#233'fono:'
|
||||||
|
Control = eTlfTelefono
|
||||||
|
ControlOptions.ShowBorder = False
|
||||||
|
end
|
||||||
|
object dxLayoutControlAlmacenItem5: TdxLayoutItem
|
||||||
|
Caption = 'M'#243'vil:'
|
||||||
|
Control = eTlfMovil
|
||||||
|
ControlOptions.ShowBorder = False
|
||||||
|
end
|
||||||
|
object dxLayoutControlAlmacenItem6: TdxLayoutItem
|
||||||
|
Caption = 'N'#250'mero de fax:'
|
||||||
|
Control = eFax
|
||||||
|
ControlOptions.ShowBorder = False
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object dxLayoutControlAlmacenGroup3: TdxLayoutGroup
|
||||||
|
Caption = 'Direcci'#243'n'
|
||||||
|
object dxLayoutControlAlmacenItem10: TdxLayoutItem
|
||||||
|
Caption = 'Calle:'
|
||||||
|
Control = eCalle
|
||||||
|
ControlOptions.ShowBorder = False
|
||||||
|
end
|
||||||
|
object dxLayoutControlAlmacenGroup5: TdxLayoutGroup
|
||||||
|
ShowCaption = False
|
||||||
|
Hidden = True
|
||||||
|
ShowBorder = False
|
||||||
|
object dxLayoutControlAlmacenGroup6: TdxLayoutGroup
|
||||||
|
ShowCaption = False
|
||||||
|
Hidden = True
|
||||||
|
LayoutDirection = ldHorizontal
|
||||||
|
ShowBorder = False
|
||||||
|
object dxLayoutControlAlmacenItem2: TdxLayoutItem
|
||||||
|
AutoAligns = [aaVertical]
|
||||||
|
AlignHorz = ahClient
|
||||||
|
Caption = 'Poblaci'#243'n:'
|
||||||
|
Control = ePoblacion
|
||||||
|
ControlOptions.ShowBorder = False
|
||||||
|
end
|
||||||
|
object dxLayoutControlAlmacenItem7: TdxLayoutItem
|
||||||
|
AutoAligns = [aaVertical]
|
||||||
|
AlignHorz = ahClient
|
||||||
|
Caption = 'C. P.:'
|
||||||
|
Control = eCodigoPostal
|
||||||
|
ControlOptions.ShowBorder = False
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object dxLayoutControlAlmacenItem9: TdxLayoutItem
|
||||||
|
Caption = 'Provincia:'
|
||||||
|
Control = eProvincia
|
||||||
|
ControlOptions.ShowBorder = False
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object DADataSource: TDADataSource
|
||||||
|
Left = 336
|
||||||
|
Top = 64
|
||||||
|
end
|
||||||
|
end
|
||||||
83
Source/Modulos/Almacenes/Views/uViewAlmacen.pas
Normal file
83
Source/Modulos/Almacenes/Views/uViewAlmacen.pas
Normal file
@ -0,0 +1,83 @@
|
|||||||
|
unit uViewAlmacen;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||||
|
Dialogs, uViewBase, ExtCtrls, StdCtrls, Buttons, DB, uDADataTable,
|
||||||
|
DBCtrls, Grids, DBGrids, uBizAlmacenes, Mask, ComCtrls, uCustomView,
|
||||||
|
JvComponent, JvFormAutoSize, cxControls, cxContainer, cxEdit, cxTextEdit,
|
||||||
|
cxDBEdit, dxLayoutControl;
|
||||||
|
|
||||||
|
type
|
||||||
|
IViewAlmacen = interface(IViewBase)
|
||||||
|
['{F44F8AEF-CB9C-44D5-93DA-53D6AB6A2D29}']
|
||||||
|
function GetAlmacen: IBizAlmacen;
|
||||||
|
procedure SetAlmacen(const Value: IBizAlmacen);
|
||||||
|
property Almacen: IBizAlmacen read GetAlmacen write SetAlmacen;
|
||||||
|
end;
|
||||||
|
|
||||||
|
TfrViewAlmacen = class(TfrViewBase, IViewAlmacen)
|
||||||
|
DADataSource: TDADataSource;
|
||||||
|
ePersonaContacto: TcxDBTextEdit;
|
||||||
|
eTlfTelefono: TcxDBTextEdit;
|
||||||
|
eTlfMovil: TcxDBTextEdit;
|
||||||
|
eFax: TcxDBTextEdit;
|
||||||
|
dxLayoutControlAlmacenGroup_Root: TdxLayoutGroup;
|
||||||
|
dxLayoutControlAlmacen: TdxLayoutControl;
|
||||||
|
dxLayoutControlAlmacenGroup1: TdxLayoutGroup;
|
||||||
|
dxLayoutControlAlmacenItem3: TdxLayoutItem;
|
||||||
|
eNombre: TcxDBTextEdit;
|
||||||
|
dxLayoutControlAlmacenItem4: TdxLayoutItem;
|
||||||
|
dxLayoutControlAlmacenGroup2: TdxLayoutGroup;
|
||||||
|
dxLayoutControlAlmacenItem1: TdxLayoutItem;
|
||||||
|
dxLayoutControlAlmacenItem5: TdxLayoutItem;
|
||||||
|
dxLayoutControlAlmacenItem6: TdxLayoutItem;
|
||||||
|
dxLayoutControlAlmacenGroup3: TdxLayoutGroup;
|
||||||
|
dxLayoutControlAlmacenGroup4: TdxLayoutGroup;
|
||||||
|
dxLayoutControlAlmacenItem10: TdxLayoutItem;
|
||||||
|
eCalle: TcxDBTextEdit;
|
||||||
|
dxLayoutControlAlmacenItem2: TdxLayoutItem;
|
||||||
|
ePoblacion: TcxDBTextEdit;
|
||||||
|
dxLayoutControlAlmacenItem7: TdxLayoutItem;
|
||||||
|
dxLayoutControlAlmacenGroup5: TdxLayoutGroup;
|
||||||
|
eCodigoPostal: TcxDBTextEdit;
|
||||||
|
dxLayoutControlAlmacenItem9: TdxLayoutItem;
|
||||||
|
dxLayoutControlAlmacenGroup6: TdxLayoutGroup;
|
||||||
|
eProvincia: TcxDBTextEdit;
|
||||||
|
protected
|
||||||
|
FAlmacen: IBizAlmacen;
|
||||||
|
function GetAlmacen: IBizAlmacen;
|
||||||
|
procedure SetAlmacen(const Value: IBizAlmacen);
|
||||||
|
public
|
||||||
|
property Almacen: IBizAlmacen read GetAlmacen write SetAlmacen;
|
||||||
|
end;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
uses uDataModuleAlmacenes;
|
||||||
|
|
||||||
|
{$R *.dfm}
|
||||||
|
|
||||||
|
{ TfrViewAlmacenes }
|
||||||
|
|
||||||
|
{
|
||||||
|
******************************* TfrViewAlmacenes ********************************
|
||||||
|
}
|
||||||
|
|
||||||
|
function TfrViewAlmacen.GetAlmacen: IBizAlmacen;
|
||||||
|
begin
|
||||||
|
Result := FAlmacen;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewAlmacen.SetAlmacen(const Value: IBizAlmacen);
|
||||||
|
begin
|
||||||
|
FAlmacen := Value;
|
||||||
|
if Assigned(FAlmacen) then
|
||||||
|
DADataSource.DataTable := FAlmacen.DataTable
|
||||||
|
else
|
||||||
|
DADataSource.DataTable := NIL;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
|
|
||||||
121
Source/Modulos/Almacenes/Views/uViewAlmacenes.dfm
Normal file
121
Source/Modulos/Almacenes/Views/uViewAlmacenes.dfm
Normal file
@ -0,0 +1,121 @@
|
|||||||
|
inherited frViewAlmacenes: TfrViewAlmacenes
|
||||||
|
inherited cxGrid: TcxGrid
|
||||||
|
inherited cxGridView: TcxGridDBTableView
|
||||||
|
DataController.KeyFieldNames = 'ID'
|
||||||
|
DataController.Summary.FooterSummaryItems = <
|
||||||
|
item
|
||||||
|
Format = '0 almacenes'
|
||||||
|
Kind = skCount
|
||||||
|
Column = cxGridViewNOMBRE
|
||||||
|
end>
|
||||||
|
OptionsBehavior.PullFocusing = True
|
||||||
|
object cxGridViewID: TcxGridDBColumn
|
||||||
|
DataBinding.FieldName = 'ID'
|
||||||
|
OnCustomDrawCell = cxGridViewIDCustomDrawCell
|
||||||
|
BestFitMaxWidth = 22
|
||||||
|
MinWidth = 22
|
||||||
|
Options.HorzSizing = False
|
||||||
|
Width = 22
|
||||||
|
IsCaptionAssigned = True
|
||||||
|
end
|
||||||
|
object cxGridViewNOMBRE: TcxGridDBColumn
|
||||||
|
DataBinding.FieldName = 'NOMBRE'
|
||||||
|
SortIndex = 0
|
||||||
|
SortOrder = soAscending
|
||||||
|
Width = 304
|
||||||
|
end
|
||||||
|
object cxGridViewPERSONACONTACTO: TcxGridDBColumn
|
||||||
|
DataBinding.FieldName = 'PERSONA_CONTACTO'
|
||||||
|
Width = 118
|
||||||
|
end
|
||||||
|
object cxGridViewTELEFONO: TcxGridDBColumn
|
||||||
|
DataBinding.FieldName = 'TELEFONO'
|
||||||
|
BestFitMaxWidth = 64
|
||||||
|
Width = 118
|
||||||
|
end
|
||||||
|
object cxGridViewMOVIL: TcxGridDBColumn
|
||||||
|
DataBinding.FieldName = 'MOVIL'
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object cxGridViewFAX: TcxGridDBColumn
|
||||||
|
DataBinding.FieldName = 'FAX'
|
||||||
|
end
|
||||||
|
object cxGridViewCALLE: TcxGridDBColumn
|
||||||
|
DataBinding.FieldName = 'CALLE'
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object cxGridViewPROVINCIA: TcxGridDBColumn
|
||||||
|
DataBinding.FieldName = 'PROVINCIA'
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object cxGridViewPOBLACION: TcxGridDBColumn
|
||||||
|
DataBinding.FieldName = 'POBLACION'
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object cxGridViewCODIGO_POSTAL: TcxGridDBColumn
|
||||||
|
DataBinding.FieldName = 'CODIGO_POSTAL'
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited frViewFiltroBase1: TfrViewFiltroBase
|
||||||
|
inherited TBXDockablePanel1: TTBXDockablePanel
|
||||||
|
inherited dxLayoutControl1: TdxLayoutControl
|
||||||
|
inherited txtFiltroTodo: TcxTextEdit
|
||||||
|
ExplicitWidth = 273
|
||||||
|
Width = 273
|
||||||
|
end
|
||||||
|
inherited edtFechaIniFiltro: TcxDateEdit
|
||||||
|
ExplicitWidth = 121
|
||||||
|
Width = 121
|
||||||
|
end
|
||||||
|
inherited edtFechaFinFiltro: TcxDateEdit
|
||||||
|
ExplicitWidth = 121
|
||||||
|
Width = 121
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited dxComponentPrinter: TdxComponentPrinter
|
||||||
|
inherited dxComponentPrinterLink: TdxGridReportLink
|
||||||
|
ReportDocument.CreationDate = 38673.842406053240000000
|
||||||
|
BuiltInReportLink = True
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited dxPrintStyleManager1: TdxPrintStyleManager
|
||||||
|
inherited dxPrintStyleManager1Style1: TdxPSPrintStyle
|
||||||
|
BuiltInStyle = True
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object PngImageList: TPngImageList
|
||||||
|
PngImages = <
|
||||||
|
item
|
||||||
|
PngImage.Data = {
|
||||||
|
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
|
||||||
|
610000000970485973000017120000171201679FD2520000022E4944415478DA
|
||||||
|
8D93CF6BD36018C7BF6997A45DD376EA70CA18D31D44981741280C44119DA83D
|
||||||
|
C87619781A1EFD1BC49B2028B28353141111A43BE8CD934E65A8D4A1686B61B5
|
||||||
|
A31DD8CCBAFEDAACEDF226B389EFFB26CBCC54E6030FEFCB4B3E9FE79B9744B0
|
||||||
|
2C0B8220E0F7BA3AB2D75A282DE07F4AD82C60F0851B8F50530BF85EF98A6236
|
||||||
|
8DCCAB69B0B366BD8C95B24ACF4BB877FD226AFD635EC13A5CF99243A356869A
|
||||||
|
4D51F8398799EC476D09E5621E0F6F5EC6C8D938EE7C503604EB7055CDA34127
|
||||||
|
A8B90C3ECD3CE570A35AA2FD0DCB4B2AEE4F5CC29953C35094102667655B706D
|
||||||
|
7480C3F97412AD951AAAC502E6DEBCE47031974673B942BB8AA9DB57103F7D12
|
||||||
|
9D9D413ED4154C8C0BD6FCE7AD2F6C2816C3CE9E6E8862077C3E9F57307CE2FC
|
||||||
|
1F80655A308C35E844C7B3273318D8D78FE8B6282449A41211B7DE05FE2D304D
|
||||||
|
13866EC34433F0FAC55BF4EDE945A42B0C910A6459C6DD94F27781D936F964B2
|
||||||
|
AADB02DAEF9329ECEEED4138A240944548B2840773DBBD02B637596C6238205D
|
||||||
|
352AD175643E66B1A3BB0B0A15489204292061AAB0CB2B68D3C96B34367120BE
|
||||||
|
3AB2F96C01E1A8825028083920F35778BCD8B721387E6C9C42060788465C50A3
|
||||||
|
12B24AB0582C2110946907282C61BA3588442221B882C343E75C50A30093B104
|
||||||
|
84D849EAD53AFC1D7E0ECFFA631C76FF0526387470D4135977405B62A0D56CB2
|
||||||
|
C791891C71618FE0C0FEB873618623B2E33361FB679B4A340A1FF5C01E41928C
|
||||||
|
6DF9256E8659FD02D3B7960923D6946A0000000049454E44AE426082}
|
||||||
|
Name = 'PngImage0'
|
||||||
|
Background = clWindow
|
||||||
|
end>
|
||||||
|
Left = 160
|
||||||
|
Top = 32
|
||||||
|
Bitmap = {}
|
||||||
|
end
|
||||||
|
end
|
||||||
87
Source/Modulos/Almacenes/Views/uViewAlmacenes.pas
Normal file
87
Source/Modulos/Almacenes/Views/uViewAlmacenes.pas
Normal file
@ -0,0 +1,87 @@
|
|||||||
|
unit uViewAlmacenes;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||||
|
Dialogs, uViewGrid, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
|
||||||
|
cxDataStorage, cxEdit, DB, cxDBData, uDADataTable, cxGridLevel,
|
||||||
|
cxClasses, cxControls, cxGridCustomView, cxGridCustomTableView,
|
||||||
|
cxGridTableView, cxGridDBTableView, cxGrid, uBizAlmacenes, ActnList, Menus,
|
||||||
|
cxGridBandedTableView, cxGridDBBandedTableView, JvComponent,
|
||||||
|
JvFormAutoSize, PngImageList, ImgList, dxPSGlbl, dxPSUtl, dxPSEngn,
|
||||||
|
dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider, dxPSFillPatterns,
|
||||||
|
dxPSEdgePatterns, cxIntlPrintSys3, dxPSCore, dxPScxCommon, dxPScxGridLnk,
|
||||||
|
cxGridCustomPopupMenu, cxGridPopupMenu, uViewFiltroBase, TB2Item, TBX,
|
||||||
|
TB2Toolbar, TBXDkPanels, TB2Dock, dxPgsDlg, uDAInterfaces;
|
||||||
|
|
||||||
|
type
|
||||||
|
IViewAlmacenes = interface(IViewGrid)
|
||||||
|
['{E6798DF7-011C-40EC-B368-160C48697445}']
|
||||||
|
function GetAlmacenes: IBizAlmacen;
|
||||||
|
procedure SetAlmacenes(const Value: IBizAlmacen);
|
||||||
|
property Almacenes: IBizAlmacen read GetAlmacenes write SetAlmacenes;
|
||||||
|
end;
|
||||||
|
|
||||||
|
TfrViewAlmacenes = class(TfrViewGrid, IViewAlmacenes)
|
||||||
|
cxGridViewPERSONACONTACTO: TcxGridDBColumn;
|
||||||
|
cxGridViewNOMBRE: TcxGridDBColumn;
|
||||||
|
cxGridViewTELEFONO: TcxGridDBColumn;
|
||||||
|
cxGridViewID: TcxGridDBColumn;
|
||||||
|
PngImageList: TPngImageList;
|
||||||
|
cxGridViewCALLE: TcxGridDBColumn;
|
||||||
|
cxGridViewPROVINCIA: TcxGridDBColumn;
|
||||||
|
cxGridViewPOBLACION: TcxGridDBColumn;
|
||||||
|
cxGridViewCODIGO_POSTAL: TcxGridDBColumn;
|
||||||
|
cxGridViewMOVIL: TcxGridDBColumn;
|
||||||
|
cxGridViewFAX: TcxGridDBColumn;
|
||||||
|
procedure cxGridViewIDCustomDrawCell(
|
||||||
|
Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
|
||||||
|
AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
|
||||||
|
protected
|
||||||
|
FAlmacenes: IBizAlmacen;
|
||||||
|
function GetAlmacenes: IBizAlmacen; virtual;
|
||||||
|
procedure SetAlmacenes(const Value: IBizAlmacen); virtual;
|
||||||
|
public
|
||||||
|
property Almacenes: IBizAlmacen read GetAlmacenes write SetAlmacenes;
|
||||||
|
end;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
uses uDataModuleAlmacenes;
|
||||||
|
|
||||||
|
|
||||||
|
{$R *.dfm}
|
||||||
|
|
||||||
|
{ TfrViewAlmacenes }
|
||||||
|
|
||||||
|
{
|
||||||
|
******************************* TfrViewAlmacenes *******************************
|
||||||
|
}
|
||||||
|
function TfrViewAlmacenes.GetAlmacenes: IBizAlmacen;
|
||||||
|
begin
|
||||||
|
Result := FAlmacenes;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewAlmacenes.SetAlmacenes(const Value: IBizAlmacen);
|
||||||
|
begin
|
||||||
|
FAlmacenes := Value;
|
||||||
|
if Assigned(FAlmacenes) then
|
||||||
|
dsDataSource.DataTable := FAlmacenes.DataTable;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
procedure TfrViewAlmacenes.cxGridViewIDCustomDrawCell(
|
||||||
|
Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
|
||||||
|
AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
|
||||||
|
var
|
||||||
|
R : TRect;
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
R := AViewInfo.ContentBounds;
|
||||||
|
ACanvas.FillRect(R);
|
||||||
|
ACanvas.DrawImage(PngImageList, R.Left, R.Top, 0);
|
||||||
|
ADone := True;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
Loading…
Reference in New Issue
Block a user