Se añade el modulo de agenda de alonso y sal a estudio
git-svn-id: https://192.168.0.254/svn/Proyectos.EstudioCarnicero_ProGestion/trunk@7 1b8572a8-2d6b-b84e-8c90-20ed86fa4eca
This commit is contained in:
parent
9329ca9438
commit
ff8a7f6d6c
492
Modulos/Calendarios/Cliente/Calendarios.bdsproj
Normal file
492
Modulos/Calendarios/Cliente/Calendarios.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">VCLApplication</Option>
|
||||||
|
<Option Name="Version">1.0</Option>
|
||||||
|
<Option Name="GUID">{76B74253-BAC4-48DE-9775-5C9182016207}</Option>
|
||||||
|
</Option>
|
||||||
|
</PersonalityInfo>
|
||||||
|
<Delphi.Personality>
|
||||||
|
<Source>
|
||||||
|
<Source Name="MainSource">Calendarios.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">0</Compiler>
|
||||||
|
<Compiler Name="P">1</Compiler>
|
||||||
|
<Compiler Name="Q">0</Compiler>
|
||||||
|
<Compiler Name="R">0</Compiler>
|
||||||
|
<Compiler Name="S">0</Compiler>
|
||||||
|
<Compiler Name="T">0</Compiler>
|
||||||
|
<Compiler Name="U">0</Compiler>
|
||||||
|
<Compiler Name="V">1</Compiler>
|
||||||
|
<Compiler Name="W">0</Compiler>
|
||||||
|
<Compiler Name="X">1</Compiler>
|
||||||
|
<Compiler Name="Y">1</Compiler>
|
||||||
|
<Compiler Name="Z">1</Compiler>
|
||||||
|
<Compiler Name="ShowHints">True</Compiler>
|
||||||
|
<Compiler Name="ShowWarnings">True</Compiler>
|
||||||
|
<Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>
|
||||||
|
<Compiler Name="NamespacePrefix"></Compiler>
|
||||||
|
<Compiler Name="GenerateDocumentation">False</Compiler>
|
||||||
|
<Compiler Name="DefaultNamespace"></Compiler>
|
||||||
|
<Compiler Name="SymbolDeprecated">True</Compiler>
|
||||||
|
<Compiler Name="SymbolLibrary">True</Compiler>
|
||||||
|
<Compiler Name="SymbolPlatform">True</Compiler>
|
||||||
|
<Compiler Name="SymbolExperimental">True</Compiler>
|
||||||
|
<Compiler Name="UnitLibrary">True</Compiler>
|
||||||
|
<Compiler Name="UnitPlatform">True</Compiler>
|
||||||
|
<Compiler Name="UnitDeprecated">True</Compiler>
|
||||||
|
<Compiler Name="UnitExperimental">True</Compiler>
|
||||||
|
<Compiler Name="HResultCompat">True</Compiler>
|
||||||
|
<Compiler Name="HidingMember">True</Compiler>
|
||||||
|
<Compiler Name="HiddenVirtual">True</Compiler>
|
||||||
|
<Compiler Name="Garbage">True</Compiler>
|
||||||
|
<Compiler Name="BoundsError">True</Compiler>
|
||||||
|
<Compiler Name="ZeroNilCompat">True</Compiler>
|
||||||
|
<Compiler Name="StringConstTruncated">True</Compiler>
|
||||||
|
<Compiler Name="ForLoopVarVarPar">True</Compiler>
|
||||||
|
<Compiler Name="TypedConstVarPar">True</Compiler>
|
||||||
|
<Compiler Name="AsgToTypedConst">True</Compiler>
|
||||||
|
<Compiler Name="CaseLabelRange">True</Compiler>
|
||||||
|
<Compiler Name="ForVariable">True</Compiler>
|
||||||
|
<Compiler Name="ConstructingAbstract">True</Compiler>
|
||||||
|
<Compiler Name="ComparisonFalse">True</Compiler>
|
||||||
|
<Compiler Name="ComparisonTrue">True</Compiler>
|
||||||
|
<Compiler Name="ComparingSignedUnsigned">True</Compiler>
|
||||||
|
<Compiler Name="CombiningSignedUnsigned">True</Compiler>
|
||||||
|
<Compiler Name="UnsupportedConstruct">True</Compiler>
|
||||||
|
<Compiler Name="FileOpen">True</Compiler>
|
||||||
|
<Compiler Name="FileOpenUnitSrc">True</Compiler>
|
||||||
|
<Compiler Name="BadGlobalSymbol">True</Compiler>
|
||||||
|
<Compiler Name="DuplicateConstructorDestructor">True</Compiler>
|
||||||
|
<Compiler Name="InvalidDirective">True</Compiler>
|
||||||
|
<Compiler Name="PackageNoLink">True</Compiler>
|
||||||
|
<Compiler Name="PackageThreadVar">True</Compiler>
|
||||||
|
<Compiler Name="ImplicitImport">True</Compiler>
|
||||||
|
<Compiler Name="HPPEMITIgnored">True</Compiler>
|
||||||
|
<Compiler Name="NoRetVal">True</Compiler>
|
||||||
|
<Compiler Name="UseBeforeDef">True</Compiler>
|
||||||
|
<Compiler Name="ForLoopVarUndef">True</Compiler>
|
||||||
|
<Compiler Name="UnitNameMismatch">True</Compiler>
|
||||||
|
<Compiler Name="NoCFGFileFound">True</Compiler>
|
||||||
|
<Compiler Name="ImplicitVariants">True</Compiler>
|
||||||
|
<Compiler Name="UnicodeToLocale">True</Compiler>
|
||||||
|
<Compiler Name="LocaleToUnicode">True</Compiler>
|
||||||
|
<Compiler Name="ImagebaseMultiple">True</Compiler>
|
||||||
|
<Compiler Name="SuspiciousTypecast">True</Compiler>
|
||||||
|
<Compiler Name="PrivatePropAccessor">True</Compiler>
|
||||||
|
<Compiler Name="UnsafeType">False</Compiler>
|
||||||
|
<Compiler Name="UnsafeCode">False</Compiler>
|
||||||
|
<Compiler Name="UnsafeCast">False</Compiler>
|
||||||
|
<Compiler Name="OptionTruncated">True</Compiler>
|
||||||
|
<Compiler Name="WideCharReduced">True</Compiler>
|
||||||
|
<Compiler Name="DuplicatesIgnored">True</Compiler>
|
||||||
|
<Compiler Name="UnitInitSeq">True</Compiler>
|
||||||
|
<Compiler Name="LocalPInvoke">True</Compiler>
|
||||||
|
<Compiler Name="MessageDirective">True</Compiler>
|
||||||
|
<Compiler Name="CodePage"></Compiler>
|
||||||
|
</Compiler>
|
||||||
|
<Linker>
|
||||||
|
<Linker Name="MapFile">3</Linker>
|
||||||
|
<Linker Name="OutputObjs">0</Linker>
|
||||||
|
<Linker Name="GenerateHpps">False</Linker>
|
||||||
|
<Linker Name="ConsoleApp">1</Linker>
|
||||||
|
<Linker Name="DebugInfo">False</Linker>
|
||||||
|
<Linker Name="RemoteSymbols">False</Linker>
|
||||||
|
<Linker Name="GenerateDRC">False</Linker>
|
||||||
|
<Linker Name="MinStackSize">16384</Linker>
|
||||||
|
<Linker Name="MaxStackSize">1048576</Linker>
|
||||||
|
<Linker Name="ImageBase">4194304</Linker>
|
||||||
|
<Linker Name="ExeDescription"></Linker>
|
||||||
|
</Linker>
|
||||||
|
<Directories>
|
||||||
|
<Directories Name="OutputDir"></Directories>
|
||||||
|
<Directories Name="UnitOutputDir">.\</Directories>
|
||||||
|
<Directories Name="PackageDLLOutputDir">..\..\..\Output\Cliente</Directories>
|
||||||
|
<Directories Name="PackageDCPOutputDir">.\</Directories>
|
||||||
|
<Directories Name="SearchPath">$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\Reglas;..\Cliente</Directories>
|
||||||
|
<Directories Name="Packages">vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;IntrawebDB_50_70;Intraweb_50_70;Rave50CLX;Rave50VCL;dclOfficeXP;PluginSDK_D7R;DJcl;JvStdCtrlsD7R;JvAppFrmD7R;JvCoreD7R;JvBandsD7R;JvBDED7R;JvDBD7R;JvDlgsD7R;JvCmpD7R;JvCryptD7R;JvCtrlsD7R;JvCustomD7R;JvDockingD7R;JvDotNetCtrlsD7R;JvEDID7R;qrpt;JvGlobusD7R;JvHMID7R;JvInspectorD7R;JvInterpreterD7R;JvJansD7R;JvManagedThreadsD7R;JvMMD7R;JvNetD7R;JvPageCompsD7R;JvPluginD7R;JvPrintPreviewD7R;JvSystemD7R;JvTimeFrameworkD7R;JvUIBD7R;JvValidatorsD7R;JvWizardD7R;JvXPCtrlsD7R;GUISDK_D7;RemObjects_WebBroker_D7;RemObjects_Indy_D7;RemObjects_RODX_D7;RemObjects_BPDX_D7;PascalScript_RO_D7;DataAbstract_Core_D7;DataAbstract_IDE_D7;DataAbstract_DBXDriver_D7;DataAbstract_Scripting_D7;dxBarD7;dxComnD7;cxLibraryVCLD7;cxEditorsVCLD7;dxThemeD7;cxDataD7;cxExtEditorsVCLD7;cxGridVCLD7;cxPageControlVCLD7;cxSchedulerVCLD7;cxTreeListVCLD7;dxBarDBNavD7;dxBarExtDBItemsD7;dxBarExtItemsD7;dxDockingD7;dxNavBarD7;dxPSCoreD7;dxsbD7;dxPSLnksD7;dxPSTeeChartD7;EPCOTAUtils70;PNG_D7;PngComponentsD7;tb2k_d7;tbx_d7;UserControlD7_RT;fqb70;frx7;frxADO7;frxBDE7;frxcs7;frxDB7;frxDBX7;frxe7;frxIBX7;fs7;fsADO7;fsBDE7;fsDB7;fsIBX7;cxExportVCLD7;cxIntl5D7;cxIntlPrintSys3D7;dxPScxCommonD7;dxPScxExtCommonD7;dxPScxGridLnkD7;dxPScxPCProdD7;dxPScxTLLnkD7;dxPSDBTeeChartD7;dxPsPrVwAdvD7;TMSD7;FR7;FRIBX7;cxIntlSchedulerD7;dxLayoutControlD7;dxPScxScheduler2LnkD7</Directories>
|
||||||
|
<Directories Name="Conditionals"></Directories>
|
||||||
|
<Directories Name="DebugSourceDirs"></Directories>
|
||||||
|
<Directories Name="UsePackages">False</Directories>
|
||||||
|
</Directories>
|
||||||
|
<Parameters>
|
||||||
|
<Parameters Name="RunParams"></Parameters>
|
||||||
|
<Parameters Name="HostApplication"></Parameters>
|
||||||
|
<Parameters Name="Launcher"></Parameters>
|
||||||
|
<Parameters Name="UseLauncher">False</Parameters>
|
||||||
|
<Parameters Name="DebugCWD"></Parameters>
|
||||||
|
<Parameters Name="Debug Symbols Search Path"></Parameters>
|
||||||
|
<Parameters Name="LoadAllSymbols">True</Parameters>
|
||||||
|
<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
|
||||||
|
</Parameters>
|
||||||
|
<Language>
|
||||||
|
<Language Name="ActiveLang"></Language>
|
||||||
|
<Language Name="ProjectLang">$00000000</Language>
|
||||||
|
<Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language>
|
||||||
|
</Language>
|
||||||
|
<VersionInfo>
|
||||||
|
<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
|
||||||
|
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
|
||||||
|
<VersionInfo Name="MajorVer">1</VersionInfo>
|
||||||
|
<VersionInfo Name="MinorVer">0</VersionInfo>
|
||||||
|
<VersionInfo Name="Release">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=0
|
||||||
|
Freeze Message=The application seems to be frozen.
|
||||||
|
SMTP From=eurekalog@email.com
|
||||||
|
SMTP Host=
|
||||||
|
SMTP Port=25
|
||||||
|
SMTP UserID=
|
||||||
|
SMTP Password=
|
||||||
|
Append to Log=0
|
||||||
|
Show TerminateBtn=1
|
||||||
|
TerminateBtn Operation=1
|
||||||
|
Errors Number=32
|
||||||
|
Errors Terminate=3
|
||||||
|
Email Address=
|
||||||
|
Email Object=
|
||||||
|
Email Send Options=0
|
||||||
|
Output Path=
|
||||||
|
Encrypt Password=
|
||||||
|
AutoCloseDialogSecs=0
|
||||||
|
WebSendMode=0
|
||||||
|
SupportULR=
|
||||||
|
HTMLLayout Count=15
|
||||||
|
HTMLLine0="%3Chtml%3E"
|
||||||
|
HTMLLine1=" %3Chead%3E"
|
||||||
|
HTMLLine2=" %3C/head%3E"
|
||||||
|
HTMLLine3=" %3Cbody TopMargin=10 LeftMargin=10%3E"
|
||||||
|
HTMLLine4=" %3Ctable width="100%%" border="0"%3E"
|
||||||
|
HTMLLine5=" %3Ctr%3E"
|
||||||
|
HTMLLine6=" %3Ctd nowrap%3E"
|
||||||
|
HTMLLine7=" %3Cfont face="Lucida Console, Courier" size="2"%3E"
|
||||||
|
HTMLLine8=" %3C%%HTML_TAG%%%3E"
|
||||||
|
HTMLLine9=" %3C/font%3E"
|
||||||
|
HTMLLine10=" %3C/td%3E"
|
||||||
|
HTMLLine11=" %3C/tr%3E"
|
||||||
|
HTMLLine12=" %3C/table%3E"
|
||||||
|
HTMLLine13=" %3C/body%3E"
|
||||||
|
HTMLLine14="%3C/html%3E"
|
||||||
|
AutoCrashOperation=1
|
||||||
|
AutoCrashNumber=10
|
||||||
|
AutoCrashMinutes=1
|
||||||
|
WebURL=
|
||||||
|
WebUserID=
|
||||||
|
WebPassword=
|
||||||
|
WebPort=0
|
||||||
|
AttachedFiles=
|
||||||
|
Count=0
|
||||||
|
EMail Message Line Count=0
|
||||||
|
loNoDuplicateErrors=0
|
||||||
|
loAppendReproduceText=0
|
||||||
|
loDeleteLogAtVersionChange=0
|
||||||
|
loAddComputerNameInLogFileName=0
|
||||||
|
loSaveModulesSection=1
|
||||||
|
loSaveCPUSection=1
|
||||||
|
soAppStartDate=1
|
||||||
|
soAppName=1
|
||||||
|
soAppVersionNumber=1
|
||||||
|
soAppParameters=1
|
||||||
|
soAppCompilationDate=1
|
||||||
|
soExcDate=1
|
||||||
|
soExcAddress=1
|
||||||
|
soExcModule=1
|
||||||
|
soExcType=1
|
||||||
|
soExcMessage=1
|
||||||
|
soActCtlsFormClass=1
|
||||||
|
soActCtlsFormText=1
|
||||||
|
soActCtlsControlClass=1
|
||||||
|
soActCtlsControlText=1
|
||||||
|
soCmpName=1
|
||||||
|
soCmpUser=1
|
||||||
|
soCmpTotalMemory=1
|
||||||
|
soCmpFreeMemory=1
|
||||||
|
soCmpTotalDisk=1
|
||||||
|
soCmpFreeDisk=1
|
||||||
|
soCmpSysUpTime=1
|
||||||
|
soCmpProcessor=1
|
||||||
|
soCmpDisplayMode=1
|
||||||
|
soOSType=1
|
||||||
|
soOSBuildN=1
|
||||||
|
soOSUpdate=1
|
||||||
|
soOSLanguage=1
|
||||||
|
soNetIP=1
|
||||||
|
soNetSubmask=1
|
||||||
|
soNetGateway=1
|
||||||
|
soNetDNS1=1
|
||||||
|
soNetDNS2=1
|
||||||
|
soNetDHCP=1
|
||||||
|
sndShowSendDialog=1
|
||||||
|
sndShowSuccessFailureMsg=0
|
||||||
|
sndSendEntireLog=0
|
||||||
|
sndSendXMLLogCopy=0
|
||||||
|
sndSendScreenshot=0
|
||||||
|
sndUseOnlyActiveWindow=0
|
||||||
|
sndSendLastHTMLPage=1
|
||||||
|
sndSendInSeparatedThread=0
|
||||||
|
sndAddDateInFileName=0
|
||||||
|
sndCompressAllFiles=0
|
||||||
|
edoShowExceptionDialog=1
|
||||||
|
edoSendEmailChecked=1
|
||||||
|
edoAttachScreenshotChecked=1
|
||||||
|
edoShowCopyToClipOption=1
|
||||||
|
edoShowDetailsButton=1
|
||||||
|
edoShowInDetailedMode=0
|
||||||
|
edoShowInTopMostMode=0
|
||||||
|
edoUseEurekaLogLookAndFeel=1
|
||||||
|
csoShowDLLs=1
|
||||||
|
csoShowBPLs=1
|
||||||
|
csoShowBorlandThreads=1
|
||||||
|
csoShowWindowsThreads=1
|
||||||
|
csoShowProcedureOffset=0
|
||||||
|
boActivateCrashDetection=0
|
||||||
|
boPauseBorlandThreads=0
|
||||||
|
boDoNotPauseMainThread=0
|
||||||
|
boPauseWindowsThreads=0
|
||||||
|
boUseMainModuleOptions=1
|
||||||
|
boCopyLogInCaseOfError=1
|
||||||
|
boSaveCompressedCopyInCaseOfError=0
|
||||||
|
Count mtInformationMsgCaption=1
|
||||||
|
mtInformationMsgCaption0="Information."
|
||||||
|
Count mtQuestionMsgCaption=1
|
||||||
|
mtQuestionMsgCaption0="Question."
|
||||||
|
Count mtDialog_Caption=1
|
||||||
|
mtDialog_Caption0="Error."
|
||||||
|
Count mtDialog_ErrorMsgCaption=2
|
||||||
|
mtDialog_ErrorMsgCaption0="An error has occurred during program execution."
|
||||||
|
mtDialog_ErrorMsgCaption1="Please read the following information for further details."
|
||||||
|
Count mtDialog_GeneralCaption=1
|
||||||
|
mtDialog_GeneralCaption0="General"
|
||||||
|
Count mtDialog_GeneralHeader=1
|
||||||
|
mtDialog_GeneralHeader0="General Information"
|
||||||
|
Count mtDialog_CallStackCaption=1
|
||||||
|
mtDialog_CallStackCaption0="Call Stack"
|
||||||
|
Count mtDialog_CallStackHeader=1
|
||||||
|
mtDialog_CallStackHeader0="Call Stack Information"
|
||||||
|
Count mtDialog_ModulesCaption=1
|
||||||
|
mtDialog_ModulesCaption0="Modules"
|
||||||
|
Count mtDialog_ModulesHeader=1
|
||||||
|
mtDialog_ModulesHeader0="Modules Information"
|
||||||
|
Count mtDialog_CPUCaption=1
|
||||||
|
mtDialog_CPUCaption0="CPU"
|
||||||
|
Count mtDialog_CPUHeader=1
|
||||||
|
mtDialog_CPUHeader0="CPU Information"
|
||||||
|
Count mtDialog_CustomDataCaption=1
|
||||||
|
mtDialog_CustomDataCaption0="Other"
|
||||||
|
Count mtDialog_CustomDataHeader=1
|
||||||
|
mtDialog_CustomDataHeader0="Other Information"
|
||||||
|
Count mtDialog_OKButtonCaption=1
|
||||||
|
mtDialog_OKButtonCaption0="%26OK"
|
||||||
|
Count mtDialog_TerminateButtonCaption=1
|
||||||
|
mtDialog_TerminateButtonCaption0="%26Terminate"
|
||||||
|
Count mtDialog_RestartButtonCaption=1
|
||||||
|
mtDialog_RestartButtonCaption0="%26Restart"
|
||||||
|
Count mtDialog_DetailsButtonCaption=1
|
||||||
|
mtDialog_DetailsButtonCaption0="%26Details"
|
||||||
|
Count mtDialog_SendMessage=1
|
||||||
|
mtDialog_SendMessage0="%26Send this error via Internet"
|
||||||
|
Count mtDialog_ScreenshotMessage=1
|
||||||
|
mtDialog_ScreenshotMessage0="%26Attach a Screenshot image"
|
||||||
|
Count mtDialog_CopyMessage=1
|
||||||
|
mtDialog_CopyMessage0="%26Copy to Clipboard"
|
||||||
|
Count mtDialog_SupportMessage=1
|
||||||
|
mtDialog_SupportMessage0="Go to the Support Page"
|
||||||
|
Count mtLog_AppHeader=1
|
||||||
|
mtLog_AppHeader0="Application"
|
||||||
|
Count mtLog_AppStartDate=1
|
||||||
|
mtLog_AppStartDate0="Start Date"
|
||||||
|
Count mtLog_AppName=1
|
||||||
|
mtLog_AppName0="Name/Description"
|
||||||
|
Count mtLog_AppVersionNumber=1
|
||||||
|
mtLog_AppVersionNumber0="Version Number"
|
||||||
|
Count mtLog_AppParameters=1
|
||||||
|
mtLog_AppParameters0="Parameters"
|
||||||
|
Count mtLog_AppCompilationDate=1
|
||||||
|
mtLog_AppCompilationDate0="Compilation Date"
|
||||||
|
Count mtLog_ExcHeader=1
|
||||||
|
mtLog_ExcHeader0="Exception"
|
||||||
|
Count mtLog_ExcDate=1
|
||||||
|
mtLog_ExcDate0="Date"
|
||||||
|
Count mtLog_ExcAddress=1
|
||||||
|
mtLog_ExcAddress0="Address"
|
||||||
|
Count mtLog_ExcModule=1
|
||||||
|
mtLog_ExcModule0="Module"
|
||||||
|
Count mtLog_ExcType=1
|
||||||
|
mtLog_ExcType0="Type"
|
||||||
|
Count mtLog_ExcMessage=1
|
||||||
|
mtLog_ExcMessage0="Message"
|
||||||
|
Count mtLog_ActCtrlsHeader=1
|
||||||
|
mtLog_ActCtrlsHeader0="Active Controls"
|
||||||
|
Count mtLog_ActCtrlsFormClass=1
|
||||||
|
mtLog_ActCtrlsFormClass0="Form Class"
|
||||||
|
Count mtLog_ActCtrlsFormText=1
|
||||||
|
mtLog_ActCtrlsFormText0="Form Text"
|
||||||
|
Count mtLog_ActCtrlsControlClass=1
|
||||||
|
mtLog_ActCtrlsControlClass0="Control Class"
|
||||||
|
Count mtLog_ActCtrlsControlText=1
|
||||||
|
mtLog_ActCtrlsControlText0="Control Text"
|
||||||
|
Count mtLog_CmpHeader=1
|
||||||
|
mtLog_CmpHeader0="Computer"
|
||||||
|
Count mtLog_CmpName=1
|
||||||
|
mtLog_CmpName0="Name"
|
||||||
|
Count mtLog_CmpUser=1
|
||||||
|
mtLog_CmpUser0="User"
|
||||||
|
Count mtLog_CmpTotalMemory=1
|
||||||
|
mtLog_CmpTotalMemory0="Total Memory"
|
||||||
|
Count mtLog_CmpFreeMemory=1
|
||||||
|
mtLog_CmpFreeMemory0="Free Memory"
|
||||||
|
Count mtLog_CmpTotalDisk=1
|
||||||
|
mtLog_CmpTotalDisk0="Total Disk"
|
||||||
|
Count mtLog_CmpFreeDisk=1
|
||||||
|
mtLog_CmpFreeDisk0="Free Disk"
|
||||||
|
Count mtLog_CmpSystemUpTime=1
|
||||||
|
mtLog_CmpSystemUpTime0="System Up Time"
|
||||||
|
Count mtLog_CmpProcessor=1
|
||||||
|
mtLog_CmpProcessor0="Processor"
|
||||||
|
Count mtLog_CmpDisplayMode=1
|
||||||
|
mtLog_CmpDisplayMode0="Display Mode"
|
||||||
|
Count mtLog_OSHeader=1
|
||||||
|
mtLog_OSHeader0="Operating System"
|
||||||
|
Count mtLog_OSType=1
|
||||||
|
mtLog_OSType0="Type"
|
||||||
|
Count mtLog_OSBuildN=1
|
||||||
|
mtLog_OSBuildN0="Build #"
|
||||||
|
Count mtLog_OSUpdate=1
|
||||||
|
mtLog_OSUpdate0="Update"
|
||||||
|
Count mtLog_OSLanguage=1
|
||||||
|
mtLog_OSLanguage0="Language"
|
||||||
|
Count mtLog_NetHeader=1
|
||||||
|
mtLog_NetHeader0="Network"
|
||||||
|
Count mtLog_NetIP=1
|
||||||
|
mtLog_NetIP0="IP Address"
|
||||||
|
Count mtLog_NetSubmask=1
|
||||||
|
mtLog_NetSubmask0="Submask"
|
||||||
|
Count mtLog_NetGateway=1
|
||||||
|
mtLog_NetGateway0="Gateway"
|
||||||
|
Count mtLog_NetDNS1=1
|
||||||
|
mtLog_NetDNS10="DNS 1"
|
||||||
|
Count mtLog_NetDNS2=1
|
||||||
|
mtLog_NetDNS20="DNS 2"
|
||||||
|
Count mtLog_NetDHCP=1
|
||||||
|
mtLog_NetDHCP0="DHCP"
|
||||||
|
Count mtLog_CustInfoHeader=1
|
||||||
|
mtLog_CustInfoHeader0="Custom Information"
|
||||||
|
Count mtCallStack_Address=1
|
||||||
|
mtCallStack_Address0="Address"
|
||||||
|
Count mtCallStack_Name=1
|
||||||
|
mtCallStack_Name0="Module"
|
||||||
|
Count mtCallStack_Unit=1
|
||||||
|
mtCallStack_Unit0="Unit"
|
||||||
|
Count mtCallStack_Class=1
|
||||||
|
mtCallStack_Class0="Class"
|
||||||
|
Count mtCallStack_Procedure=1
|
||||||
|
mtCallStack_Procedure0="Procedure/Method"
|
||||||
|
Count mtCallStack_Line=1
|
||||||
|
mtCallStack_Line0="Line"
|
||||||
|
Count mtCallStack_MainThread=1
|
||||||
|
mtCallStack_MainThread0="Main"
|
||||||
|
Count mtCallStack_ExceptionThread=1
|
||||||
|
mtCallStack_ExceptionThread0="Exception Thread"
|
||||||
|
Count mtCallStack_RunningThread=1
|
||||||
|
mtCallStack_RunningThread0="Running Thread"
|
||||||
|
Count mtCallStack_CallingThread=1
|
||||||
|
mtCallStack_CallingThread0="Calling Thread"
|
||||||
|
Count mtCallStack_ThreadID=1
|
||||||
|
mtCallStack_ThreadID0="ID"
|
||||||
|
Count mtCallStack_ThreadPriority=1
|
||||||
|
mtCallStack_ThreadPriority0="Priority"
|
||||||
|
Count mtCallStack_ThreadClass=1
|
||||||
|
mtCallStack_ThreadClass0="Class"
|
||||||
|
Count mtSendDialog_Caption=1
|
||||||
|
mtSendDialog_Caption0="Send."
|
||||||
|
Count mtSendDialog_Message=1
|
||||||
|
mtSendDialog_Message0="Message"
|
||||||
|
Count mtSendDialog_Resolving=1
|
||||||
|
mtSendDialog_Resolving0="Resolving DNS..."
|
||||||
|
Count mtSendDialog_Connecting=1
|
||||||
|
mtSendDialog_Connecting0="Connecting with server..."
|
||||||
|
Count mtSendDialog_Connected=1
|
||||||
|
mtSendDialog_Connected0="Connected with server."
|
||||||
|
Count mtSendDialog_Sending=1
|
||||||
|
mtSendDialog_Sending0="Sending message..."
|
||||||
|
Count mtReproduceDialog_Caption=1
|
||||||
|
mtReproduceDialog_Caption0="Request"
|
||||||
|
Count mtReproduceDialog_Request=1
|
||||||
|
mtReproduceDialog_Request0="Please describe the steps to reproduce the error:"
|
||||||
|
Count mtReproduceDialog_OKButtonCaption=1
|
||||||
|
mtReproduceDialog_OKButtonCaption0="%26OK"
|
||||||
|
Count mtModules_Handle=1
|
||||||
|
mtModules_Handle0="Handle"
|
||||||
|
Count mtModules_Name=1
|
||||||
|
mtModules_Name0="Name"
|
||||||
|
Count mtModules_Description=1
|
||||||
|
mtModules_Description0="Description"
|
||||||
|
Count mtModules_Version=1
|
||||||
|
mtModules_Version0="Version"
|
||||||
|
Count mtModules_Size=1
|
||||||
|
mtModules_Size0="Size"
|
||||||
|
Count mtModules_LastModified=1
|
||||||
|
mtModules_LastModified0="Modified"
|
||||||
|
Count mtModules_Path=1
|
||||||
|
mtModules_Path0="Path"
|
||||||
|
Count mtCPU_Registers=1
|
||||||
|
mtCPU_Registers0="Registers"
|
||||||
|
Count mtCPU_Stack=1
|
||||||
|
mtCPU_Stack0="Stack"
|
||||||
|
Count mtCPU_MemoryDump=1
|
||||||
|
mtCPU_MemoryDump0="Memory Dump"
|
||||||
|
Count mtSend_SuccessMsg=1
|
||||||
|
mtSend_SuccessMsg0="The message was sent successfully."
|
||||||
|
Count mtSend_FailureMsg=1
|
||||||
|
mtSend_FailureMsg0="Sorry, sending the message didn't work."
|
||||||
|
EurekaLog Last Line -->
|
||||||
|
</BorlandProject>
|
||||||
45
Modulos/Calendarios/Cliente/Calendarios.cfg
Normal file
45
Modulos/Calendarios/Cliente/Calendarios.cfg
Normal file
@ -0,0 +1,45 @@
|
|||||||
|
-$A8
|
||||||
|
-$B-
|
||||||
|
-$C+
|
||||||
|
-$D+
|
||||||
|
-$E-
|
||||||
|
-$F-
|
||||||
|
-$G+
|
||||||
|
-$H+
|
||||||
|
-$I+
|
||||||
|
-$J-
|
||||||
|
-$K-
|
||||||
|
-$L+
|
||||||
|
-$M-
|
||||||
|
-$N+
|
||||||
|
-$O-
|
||||||
|
-$P+
|
||||||
|
-$Q-
|
||||||
|
-$R-
|
||||||
|
-$S-
|
||||||
|
-$T-
|
||||||
|
-$U-
|
||||||
|
-$V+
|
||||||
|
-$W-
|
||||||
|
-$X+
|
||||||
|
-$YD
|
||||||
|
-$Z1
|
||||||
|
-GD
|
||||||
|
-cg
|
||||||
|
-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
|
||||||
|
-H+
|
||||||
|
-W+
|
||||||
|
-M
|
||||||
|
-$M16384,1048576
|
||||||
|
-K$00400000
|
||||||
|
-N".\"
|
||||||
|
-LE"..\..\..\Output\Cliente"
|
||||||
|
-LN".\"
|
||||||
|
-U"c:\archivos de programa\borland\delphi7\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\Reglas;..\Cliente"
|
||||||
|
-O"c:\archivos de programa\borland\delphi7\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\Reglas;..\Cliente"
|
||||||
|
-I"c:\archivos de programa\borland\delphi7\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\Reglas;..\Cliente"
|
||||||
|
-R"c:\archivos de programa\borland\delphi7\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\Reglas;..\Cliente"
|
||||||
|
-Z
|
||||||
|
-w-UNSAFE_TYPE
|
||||||
|
-w-UNSAFE_CODE
|
||||||
|
-w-UNSAFE_CAST
|
||||||
79
Modulos/Calendarios/Cliente/Calendarios.dpk
Normal file
79
Modulos/Calendarios/Cliente/Calendarios.dpk
Normal file
@ -0,0 +1,79 @@
|
|||||||
|
package Calendarios;
|
||||||
|
|
||||||
|
{$R *.res}
|
||||||
|
{$ALIGN 8}
|
||||||
|
{$ASSERTIONS ON}
|
||||||
|
{$BOOLEVAL OFF}
|
||||||
|
{$DEBUGINFO ON}
|
||||||
|
{$EXTENDEDSYNTAX ON}
|
||||||
|
{$IMPORTEDDATA ON}
|
||||||
|
{$IOCHECKS ON}
|
||||||
|
{$LOCALSYMBOLS ON}
|
||||||
|
{$LONGSTRINGS ON}
|
||||||
|
{$OPENSTRINGS ON}
|
||||||
|
{$OPTIMIZATION OFF}
|
||||||
|
{$OVERFLOWCHECKS OFF}
|
||||||
|
{$RANGECHECKS OFF}
|
||||||
|
{$REFERENCEINFO ON}
|
||||||
|
{$SAFEDIVIDE OFF}
|
||||||
|
{$STACKFRAMES OFF}
|
||||||
|
{$TYPEDADDRESS OFF}
|
||||||
|
{$VARSTRINGCHECKS ON}
|
||||||
|
{$WRITEABLECONST OFF}
|
||||||
|
{$MINENUMSIZE 1}
|
||||||
|
{$IMAGEBASE $400000}
|
||||||
|
{$IMPLICITBUILD OFF}
|
||||||
|
|
||||||
|
requires
|
||||||
|
BaseD7,
|
||||||
|
PluginSDK_D7R,
|
||||||
|
rtl,
|
||||||
|
vcl,
|
||||||
|
cxLibraryVCLD7,
|
||||||
|
dxThemeD7,
|
||||||
|
cxEditorsVCLD7,
|
||||||
|
cxDataD7,
|
||||||
|
dbrtl,
|
||||||
|
vcljpg,
|
||||||
|
vcldb,
|
||||||
|
cxExtEditorsVCLD7,
|
||||||
|
vclx,
|
||||||
|
cxExportVCLD7,
|
||||||
|
cxSchedulerVCLD7,
|
||||||
|
dxPScxScheduler2LnkD7,
|
||||||
|
cxGridVCLD7,
|
||||||
|
cxPageControlVCLD7,
|
||||||
|
dxPSCoreD7,
|
||||||
|
dxComnD7,
|
||||||
|
dxPScxGridLnkD7,
|
||||||
|
dxPScxCommonD7,
|
||||||
|
dxPSLnksD7,
|
||||||
|
designide,
|
||||||
|
vclactnband,
|
||||||
|
vclshlctrls,
|
||||||
|
dclcxLibraryVCLD7,
|
||||||
|
dsnap,
|
||||||
|
adortl,
|
||||||
|
PngComponentsD7,
|
||||||
|
PNG_D7,
|
||||||
|
tb2k_d7,
|
||||||
|
tbx_d7,
|
||||||
|
JvCoreD7R,
|
||||||
|
Jcl,
|
||||||
|
JclVcl,
|
||||||
|
JvSystemD7R,
|
||||||
|
JvPageCompsD7R,
|
||||||
|
JvStdCtrlsD7R;
|
||||||
|
|
||||||
|
contains
|
||||||
|
uPluginControllerCalendarios in 'uPluginControllerCalendarios.pas' {ModuleCalendarios: TModuleController},
|
||||||
|
uDataModuleCalendarios in 'uDataModuleCalendarios.pas' {dmCalendarios: TDAClientDataModule},
|
||||||
|
uViewCalendarioBase in 'uViewCalendarioBase.pas' {frViewCalendarioBase: TCustomView},
|
||||||
|
uBizCitas in '..\Reglas\uBizCitas.pas',
|
||||||
|
uEditorCalendarioBase in 'uEditorCalendarioBase.pas' {fEditorCalendarioBase: TCustomEditor},
|
||||||
|
uEditorCalendarioMediciones in 'uEditorCalendarioMediciones.pas' {fEditorCalendarioMediciones: TCustomEditor},
|
||||||
|
uViewCalendarioConFiltro in 'uViewCalendarioConFiltro.pas' {frViewCalendarioConFiltro: TCustomView},
|
||||||
|
EditorEventos in 'EditorEventos.pas' {frEditorEventos},
|
||||||
|
uEditorCalendarioConFiltro in 'uEditorCalendarioConFiltro.pas' {fEditorCalendarioConFiltro: TCustomEditor};
|
||||||
|
|
||||||
|
end.
|
||||||
BIN
Modulos/Calendarios/Cliente/Calendarios.res
Normal file
BIN
Modulos/Calendarios/Cliente/Calendarios.res
Normal file
Binary file not shown.
267
Modulos/Calendarios/Cliente/EditorEventos.dfm
Normal file
267
Modulos/Calendarios/Cliente/EditorEventos.dfm
Normal file
@ -0,0 +1,267 @@
|
|||||||
|
inherited frEditorEventos: TfrEditorEventos
|
||||||
|
Left = 428
|
||||||
|
Top = 320
|
||||||
|
BorderIcons = [biSystemMenu]
|
||||||
|
Caption = 'frEditorEventos'
|
||||||
|
ClientHeight = 533
|
||||||
|
Constraints.MinHeight = 350
|
||||||
|
PixelsPerInch = 96
|
||||||
|
TextHeight = 13
|
||||||
|
inherited pnlButtons: TPanel
|
||||||
|
Top = 492
|
||||||
|
Height = 41
|
||||||
|
AutoSize = True
|
||||||
|
inherited pnlThreeButtons: TPanel
|
||||||
|
Height = 41
|
||||||
|
inherited btnOk: TcxButton
|
||||||
|
Left = -34
|
||||||
|
end
|
||||||
|
inherited btnCancel: TcxButton
|
||||||
|
Left = 76
|
||||||
|
end
|
||||||
|
inherited btnDelete: TcxButton
|
||||||
|
Left = 186
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited pnlRecurrence: TPanel
|
||||||
|
Height = 41
|
||||||
|
inherited btnRecurrence: TcxButton
|
||||||
|
LookAndFeel.Kind = lfFlat
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited pnlCaption: TPanel
|
||||||
|
Top = 148
|
||||||
|
Height = 37
|
||||||
|
Visible = False
|
||||||
|
DesignSize = (
|
||||||
|
450
|
||||||
|
37)
|
||||||
|
inherited lbLocation: TLabel
|
||||||
|
Top = 62
|
||||||
|
end
|
||||||
|
inherited lbLabel: TLabel
|
||||||
|
Top = 62
|
||||||
|
end
|
||||||
|
inherited teLocation: TcxTextEdit
|
||||||
|
Top = 58
|
||||||
|
end
|
||||||
|
inherited icbLabel: TcxImageComboBox
|
||||||
|
Top = 58
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited pnlTime: TPanel
|
||||||
|
Top = 185
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
inherited pnlRecurrenceInfo: TPanel
|
||||||
|
Top = 252
|
||||||
|
end
|
||||||
|
inherited pnlPlaceHolder: TPanel
|
||||||
|
Top = 332
|
||||||
|
Visible = False
|
||||||
|
inherited pnlReminder: TPanel
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
inherited Panel1: TPanel
|
||||||
|
inherited Bevel3: TBevel
|
||||||
|
Width = 431
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited pnlMessage: TPanel
|
||||||
|
Top = 375
|
||||||
|
Height = 117
|
||||||
|
Anchors = []
|
||||||
|
BorderWidth = 10
|
||||||
|
TabOrder = 9
|
||||||
|
Visible = False
|
||||||
|
inherited Bevel2: TBevel
|
||||||
|
Width = 431
|
||||||
|
end
|
||||||
|
inherited Bevel1: TBevel
|
||||||
|
Left = 10
|
||||||
|
Top = 106
|
||||||
|
Width = 430
|
||||||
|
Height = 1
|
||||||
|
Align = alBottom
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
inherited meMessage: TcxMemo
|
||||||
|
Top = 10
|
||||||
|
Align = alClient
|
||||||
|
Height = 96
|
||||||
|
Width = 430
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited pnlResource: TPanel
|
||||||
|
Top = 105
|
||||||
|
Visible = False
|
||||||
|
object Bevel9: TBevel [2]
|
||||||
|
Left = 12
|
||||||
|
Top = 36
|
||||||
|
Width = 429
|
||||||
|
Height = 7
|
||||||
|
Anchors = [akLeft, akTop, akRight]
|
||||||
|
Shape = bsBottomLine
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object cbInstaladores: TcxComboBox [3]
|
||||||
|
Left = 80
|
||||||
|
Top = 13
|
||||||
|
TabOrder = 1
|
||||||
|
Width = 217
|
||||||
|
end
|
||||||
|
inherited cbResources: TcxCheckComboBox
|
||||||
|
Left = 144
|
||||||
|
Properties.EmptySelectionText = 'Ninguno seleccionado'
|
||||||
|
Visible = False
|
||||||
|
Width = 122
|
||||||
|
end
|
||||||
|
object cbMedicion: TcxCheckBox
|
||||||
|
Left = 319
|
||||||
|
Top = 14
|
||||||
|
Caption = 'Es una medici'#243'n'
|
||||||
|
Properties.OnChange = cbTerminadoPropertiesChange
|
||||||
|
TabOrder = 2
|
||||||
|
Visible = False
|
||||||
|
Width = 122
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object pnlObra: TPanel
|
||||||
|
Left = 0
|
||||||
|
Top = 41
|
||||||
|
Width = 450
|
||||||
|
Height = 64
|
||||||
|
Align = alTop
|
||||||
|
BevelOuter = bvNone
|
||||||
|
FullRepaint = False
|
||||||
|
ParentColor = True
|
||||||
|
TabOrder = 6
|
||||||
|
Visible = False
|
||||||
|
DesignSize = (
|
||||||
|
450
|
||||||
|
64)
|
||||||
|
object lbObra: TLabel
|
||||||
|
Left = 16
|
||||||
|
Top = 16
|
||||||
|
Width = 28
|
||||||
|
Height = 13
|
||||||
|
Caption = 'Obra:'
|
||||||
|
end
|
||||||
|
object lbTipo: TLabel
|
||||||
|
Left = 16
|
||||||
|
Top = 41
|
||||||
|
Width = 24
|
||||||
|
Height = 13
|
||||||
|
Caption = 'Tipo:'
|
||||||
|
end
|
||||||
|
object lbPartida: TLabel
|
||||||
|
Left = 241
|
||||||
|
Top = 41
|
||||||
|
Width = 51
|
||||||
|
Height = 13
|
||||||
|
Alignment = taRightJustify
|
||||||
|
Caption = 'Pedido de:'
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object Bevel10: TBevel
|
||||||
|
Left = 11
|
||||||
|
Top = 0
|
||||||
|
Width = 429
|
||||||
|
Height = 8
|
||||||
|
Anchors = [akLeft, akTop, akRight]
|
||||||
|
Shape = bsTopLine
|
||||||
|
end
|
||||||
|
object cbObra: TcxComboBox
|
||||||
|
Left = 72
|
||||||
|
Top = 12
|
||||||
|
Anchors = [akLeft, akTop, akRight]
|
||||||
|
Properties.DropDownAutoWidth = False
|
||||||
|
Properties.DropDownListStyle = lsFixedList
|
||||||
|
Properties.OnEditValueChanged = cbObraPropertiesEditValueChanged
|
||||||
|
TabOrder = 0
|
||||||
|
Width = 370
|
||||||
|
end
|
||||||
|
object cbTipo: TcxComboBox
|
||||||
|
Left = 72
|
||||||
|
Top = 37
|
||||||
|
Properties.DropDownAutoWidth = False
|
||||||
|
Properties.DropDownListStyle = lsFixedList
|
||||||
|
Properties.OnEditValueChanged = cbTipoPropertiesEditValueChanged
|
||||||
|
TabOrder = 1
|
||||||
|
Width = 145
|
||||||
|
end
|
||||||
|
object teCodigoContrato: TEdit
|
||||||
|
Left = 40
|
||||||
|
Top = 32
|
||||||
|
Width = 25
|
||||||
|
Height = 21
|
||||||
|
TabOrder = 2
|
||||||
|
Text = 'teCodigoContrato'
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object teNombreCliente: TEdit
|
||||||
|
Left = 40
|
||||||
|
Top = 8
|
||||||
|
Width = 25
|
||||||
|
Height = 21
|
||||||
|
TabOrder = 3
|
||||||
|
Text = 'teNombreCliente'
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object cbPartida: TcxComboBox
|
||||||
|
Left = 296
|
||||||
|
Top = 37
|
||||||
|
Anchors = [akLeft, akTop, akRight]
|
||||||
|
Properties.DropDownAutoWidth = False
|
||||||
|
Properties.DropDownListStyle = lsFixedList
|
||||||
|
Properties.OnEditValueChanged = cbTipoPropertiesEditValueChanged
|
||||||
|
TabOrder = 4
|
||||||
|
Visible = False
|
||||||
|
Width = 145
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object pnlCompletada: TPanel
|
||||||
|
Left = 0
|
||||||
|
Top = 292
|
||||||
|
Width = 450
|
||||||
|
Height = 40
|
||||||
|
Align = alTop
|
||||||
|
BevelOuter = bvNone
|
||||||
|
FullRepaint = False
|
||||||
|
ParentColor = True
|
||||||
|
TabOrder = 8
|
||||||
|
Visible = False
|
||||||
|
DesignSize = (
|
||||||
|
450
|
||||||
|
40)
|
||||||
|
object Bevel8: TBevel
|
||||||
|
Left = 11
|
||||||
|
Top = 0
|
||||||
|
Width = 431
|
||||||
|
Height = 9
|
||||||
|
Anchors = [akLeft, akTop, akRight]
|
||||||
|
Shape = bsTopLine
|
||||||
|
end
|
||||||
|
object cbCompletada: TcxCheckBox
|
||||||
|
Left = 12
|
||||||
|
Top = 12
|
||||||
|
Caption = 'Cita completada el d'#237'a'
|
||||||
|
Properties.OnChange = cbTerminadoPropertiesChange
|
||||||
|
TabOrder = 0
|
||||||
|
Width = 141
|
||||||
|
end
|
||||||
|
object deFechaCompletada: TcxDateEdit
|
||||||
|
Left = 147
|
||||||
|
Top = 11
|
||||||
|
Properties.DateButtons = [btnToday]
|
||||||
|
Properties.ImmediatePost = True
|
||||||
|
Properties.InputKind = ikStandard
|
||||||
|
Properties.OnChange = deFechaCompletadaPropertiesChange
|
||||||
|
TabOrder = 1
|
||||||
|
Width = 121
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
352
Modulos/Calendarios/Cliente/EditorEventos.pas
Normal file
352
Modulos/Calendarios/Cliente/EditorEventos.pas
Normal file
@ -0,0 +1,352 @@
|
|||||||
|
unit EditorEventos;
|
||||||
|
//Para poder ver el dfm de esta unidad es necesario abrir primero
|
||||||
|
//C:\Archivos de programa\Developer Express Inc\ExpressScheduler 2\Sources\cxSchedulerEventEditor
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses Graphics, cxSchedulerDialogs, cxSchedulerEventEditor,
|
||||||
|
Menus, cxLookAndFeelPainters, cxGraphics, StdCtrls,
|
||||||
|
cxCheckComboBox, cxMemo, cxDropDownEdit, cxCheckBox, cxSpinEdit,
|
||||||
|
cxTimeEdit, cxCalendar, cxMaskEdit, cxImageComboBox, cxTextEdit,
|
||||||
|
cxControls, cxContainer, cxEdit, cxGroupBox, Controls, ExtCtrls,
|
||||||
|
cxButtons, Classes,
|
||||||
|
|
||||||
|
uBizCitas;
|
||||||
|
|
||||||
|
type
|
||||||
|
TfrEditorEventos = class(TcxSchedulerEventEditorForm)
|
||||||
|
pnlObra: TPanel;
|
||||||
|
lbObra: TLabel;
|
||||||
|
cbObra: TcxComboBox;
|
||||||
|
lbTipo: TLabel;
|
||||||
|
cbTipo: TcxComboBox;
|
||||||
|
teCodigoContrato: TEdit;
|
||||||
|
teNombreCliente: TEdit;
|
||||||
|
lbPartida: TLabel;
|
||||||
|
cbPartida: TcxComboBox;
|
||||||
|
pnlCompletada: TPanel;
|
||||||
|
Bevel8: TBevel;
|
||||||
|
cbCompletada: TcxCheckBox;
|
||||||
|
deFechaCompletada: TcxDateEdit;
|
||||||
|
Bevel9: TBevel;
|
||||||
|
cbInstaladores: TcxComboBox;
|
||||||
|
Bevel10: TBevel;
|
||||||
|
cbMedicion: TcxCheckBox;
|
||||||
|
procedure cbObraPropertiesEditValueChanged(Sender: TObject);
|
||||||
|
procedure cbTipoPropertiesEditValueChanged(Sender: TObject);
|
||||||
|
procedure cbTerminadoPropertiesChange(Sender: TObject);
|
||||||
|
procedure deFechaCompletadaPropertiesChange(Sender: TObject);
|
||||||
|
private
|
||||||
|
FTipoEvento : TTipoCitas;
|
||||||
|
procedure ApplyChanges;
|
||||||
|
protected
|
||||||
|
procedure DeleteEvent; override;
|
||||||
|
procedure PostEvent; override;
|
||||||
|
procedure SaveChanges; override;
|
||||||
|
function GetFormColor: TColor; override;
|
||||||
|
function GetResourcesPanelVisible: Boolean; override;
|
||||||
|
procedure InitializeControls; override;
|
||||||
|
procedure LoadEventValuesIntoControls; override;
|
||||||
|
function IsValid: Boolean; override;
|
||||||
|
procedure SetCaptions; override;
|
||||||
|
procedure SetReadOnly(AValue: Boolean); override;
|
||||||
|
procedure UpdateEventValuesFromControls; override;
|
||||||
|
procedure SaveResourceID; override;
|
||||||
|
public
|
||||||
|
constructor Create(AOwner: TComponent); override;
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
frEditorEventos: TfrEditorEventos;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
{$R *.dfm}
|
||||||
|
|
||||||
|
uses SysUtils, Dialogs, Variants, DateUtils, cxSchedulerUtils,
|
||||||
|
schCitasClient_Intf, uDataModuleCalendarios;
|
||||||
|
|
||||||
|
{ TfrEditorEventos }
|
||||||
|
|
||||||
|
procedure TfrEditorEventos.ApplyChanges;
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
//
|
||||||
|
end;
|
||||||
|
|
||||||
|
constructor TfrEditorEventos.Create(AOwner: TComponent);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TfrEditorEventos.GetFormColor: TColor;
|
||||||
|
begin
|
||||||
|
Result := $00F9FEFF;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrEditorEventos.InitializeControls;
|
||||||
|
begin
|
||||||
|
if not VarIsNull(Event.GetCustomFieldValueByName(fld_CITASTIPOTAREA)) then
|
||||||
|
FTipoEvento := DarTipoCita(Event.GetCustomFieldValueByName(fld_CITASTIPOTAREA))
|
||||||
|
else
|
||||||
|
FTipoEvento := tcPersonal;
|
||||||
|
|
||||||
|
inherited;
|
||||||
|
|
||||||
|
pnlMessage.Visible := True;
|
||||||
|
pnlCaption.Visible := True;
|
||||||
|
|
||||||
|
if not (FTipoEvento in [tcPersonal, tcMedicion]) then
|
||||||
|
begin
|
||||||
|
pnlObra.Visible := True;
|
||||||
|
if FTipoEvento in [tcPedido, tcConfirmacion, tcRecepcion, tcAviso, tcEntregaCliente] then
|
||||||
|
begin
|
||||||
|
pnlCompletada.Visible := True;
|
||||||
|
end;
|
||||||
|
end
|
||||||
|
else begin
|
||||||
|
pnlObra.Visible := False;
|
||||||
|
cbMedicion.Visible := (FTipoEvento = tcMedicion)
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TfrEditorEventos.IsValid: Boolean;
|
||||||
|
begin
|
||||||
|
Result := inherited IsValid;
|
||||||
|
|
||||||
|
if Result then
|
||||||
|
begin
|
||||||
|
if Length(teSubject.Text) = 0 then
|
||||||
|
begin
|
||||||
|
ShowMessage('Indique el asunto');
|
||||||
|
Result := False;
|
||||||
|
end;
|
||||||
|
|
||||||
|
if (FTipoEvento in [tcEntrega, tcMontaje, tcRemate]) then
|
||||||
|
begin
|
||||||
|
if Length(cbInstaladores.EditValue) = 0 then
|
||||||
|
begin
|
||||||
|
ShowMessage('Hay que indicar el instalador');
|
||||||
|
Result := False;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrEditorEventos.LoadEventValuesIntoControls;
|
||||||
|
var
|
||||||
|
I, AResourceIndex: Integer;
|
||||||
|
begin
|
||||||
|
inherited LoadEventValuesIntoControls;
|
||||||
|
|
||||||
|
if icbLabel.ItemIndex = 6 then
|
||||||
|
cbMedicion.Checked := True;
|
||||||
|
|
||||||
|
|
||||||
|
if (Event.GetCustomFieldValueByName(fld_CITASTIPOTAREA) <> NULL) and
|
||||||
|
not (Length(Event.GetCustomFieldValueByName(fld_CITASTIPOTAREA)) = 0) then
|
||||||
|
cbTipo.EditValue := Event.GetCustomFieldValueByName(fld_CITASTIPOTAREA);
|
||||||
|
|
||||||
|
if not (FTipoEvento in [tcPersonal, tcMedicion]) then
|
||||||
|
begin
|
||||||
|
if (Event.GetCustomFieldValueByName(fld_CITASCODIGOCONTRATO) <> NULL) and
|
||||||
|
not (Length(Event.GetCustomFieldValueByName(fld_CITASCODIGOCONTRATO))=0) then
|
||||||
|
teCodigoContrato.Text := Event.GetCustomFieldValueByName(fld_CITASCODIGOCONTRATO);
|
||||||
|
|
||||||
|
if (Event.GetCustomFieldValueByName(fld_CITASNOMBRECLIENTE) <> NULL) and
|
||||||
|
not (Length(Event.GetCustomFieldValueByName(fld_CITASNOMBRECLIENTE))=0) then
|
||||||
|
teNombreCliente.Text := Event.GetCustomFieldValueByName(fld_CITASNOMBRECLIENTE);
|
||||||
|
|
||||||
|
if (Event.GetCustomFieldValueByName(fld_CITASCOMPLETADA) <> NULL) then
|
||||||
|
begin
|
||||||
|
cbCompletada.Checked := True;
|
||||||
|
deFechaCompletada.Date := DateOf(VarToDateTime(Event.GetCustomFieldValueByName(fld_CITASCOMPLETADA)));
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
AResourceIndex := -1;
|
||||||
|
with cbInstaladores do
|
||||||
|
begin
|
||||||
|
Properties.Items.BeginUpdate;
|
||||||
|
try
|
||||||
|
Properties.Items.Clear;
|
||||||
|
for i := 0 to cbResources.Properties.Items.Count - 1 do
|
||||||
|
begin
|
||||||
|
Properties.Items.Add(cbResources.Properties.Items[i].Description);
|
||||||
|
if cbResources.States[I] = cbsChecked then
|
||||||
|
AResourceIndex := i;
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
Properties.Items.EndUpdate;
|
||||||
|
end;
|
||||||
|
ItemIndex := AResourceIndex;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrEditorEventos.SetCaptions;
|
||||||
|
begin
|
||||||
|
inherited SetCaptions;
|
||||||
|
|
||||||
|
case FTipoEvento of
|
||||||
|
tcEntrega,
|
||||||
|
tcMontaje,
|
||||||
|
tcRemate : lbResource.Caption := 'Instalador:';
|
||||||
|
|
||||||
|
tcMedicion: lbResource.Caption := 'Vendedor:';
|
||||||
|
end;
|
||||||
|
|
||||||
|
lbSubject.Caption := 'Asunto:';
|
||||||
|
lbStartTime.Caption := 'Comienzo:';
|
||||||
|
lbEndTime.Caption := 'Final:';
|
||||||
|
cbAllDayEvent.Caption := 'Todo el día';
|
||||||
|
btnOk.Caption := 'Aceptar';
|
||||||
|
btnDelete.Caption := 'Eliminar';
|
||||||
|
btnCancel.Caption := 'Cancelar';
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrEditorEventos.SetReadOnly(AValue: Boolean);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
if AValue then
|
||||||
|
begin
|
||||||
|
cbObra.Enabled:= False;
|
||||||
|
cbPartida.Enabled:= False;
|
||||||
|
cbTipo.Enabled:= False;
|
||||||
|
deFechaCompletada.Enabled:= False;
|
||||||
|
cbCompletada.Enabled:= False;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
cbObra.Enabled:= True;
|
||||||
|
cbPartida.Enabled:= True;
|
||||||
|
cbTipo.Enabled:= True;
|
||||||
|
deFechaCompletada.Enabled:= True;
|
||||||
|
cbCompletada.Enabled:= True;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrEditorEventos.UpdateEventValuesFromControls;
|
||||||
|
begin
|
||||||
|
inherited UpdateEventValuesFromControls;
|
||||||
|
|
||||||
|
SaveResourceID;
|
||||||
|
|
||||||
|
try
|
||||||
|
// post the data from the custom editing controls
|
||||||
|
|
||||||
|
if not VarIsNull(teCodigoContrato.Text) then
|
||||||
|
Event.SetCustomFieldValueByName(fld_CITASCODIGOCONTRATO, teCodigoContrato.Text);
|
||||||
|
|
||||||
|
if not VarIsNull(teNombreCliente.Text) then
|
||||||
|
Event.SetCustomFieldValueByName(fld_CITASNOMBRECLIENTE, teNombreCliente.Text);
|
||||||
|
|
||||||
|
if not VarIsNull(cbPartida.EditValue) then
|
||||||
|
Event.SetCustomFieldValueByName(fld_CITASPARTIDA, TextoPartidasObra[cbPartida.ItemIndex]);
|
||||||
|
|
||||||
|
if not VarIsNull(deFechaCompletada.EditValue) then
|
||||||
|
Event.SetCustomFieldValueByName(fld_CITASCOMPLETADA, deFechaCompletada.Date)
|
||||||
|
else
|
||||||
|
Event.SetCustomFieldValueByName(fld_CITASCOMPLETADA, Null);
|
||||||
|
|
||||||
|
if not VarIsNull(cbTipo.EditValue) then
|
||||||
|
begin
|
||||||
|
FTipoEvento := DarTipoCita(cbTipo.EditValue);
|
||||||
|
Event.SetCustomFieldValueByName(fld_CITASTIPOTAREA, TextoTipoCita[Ord(FTipoEvento)]);
|
||||||
|
end
|
||||||
|
else
|
||||||
|
FTipoEvento := tcPersonal;
|
||||||
|
|
||||||
|
if cbMedicion.Checked then
|
||||||
|
Event.LabelColor := EventLabelColors[6]
|
||||||
|
else
|
||||||
|
Event.LabelColor := EventLabelColors[Ord(FTipoEvento) + 1];
|
||||||
|
except
|
||||||
|
on E: Exception do
|
||||||
|
ShowMessage('Can''t post data' + #13#10 + E.Message);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrEditorEventos.cbObraPropertiesEditValueChanged(
|
||||||
|
Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited OnChanged(Sender);
|
||||||
|
if Length(cbObra.EditValue) <> 0 then
|
||||||
|
begin
|
||||||
|
teCodigoContrato.Text := Copy(cbObra.EditValue, 0, Pos(' ', cbObra.EditValue)-1);
|
||||||
|
teNombreCliente.Text := Copy(cbObra.EditValue, Pos(' ', cbObra.EditValue)+1, MaxInt);
|
||||||
|
end
|
||||||
|
else begin
|
||||||
|
teCodigoContrato.Text := '0';
|
||||||
|
teNombreCliente.Text := '';
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrEditorEventos.cbTipoPropertiesEditValueChanged(
|
||||||
|
Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited OnChanged(Sender);
|
||||||
|
icbLabel.ItemIndex := cbTipo.ItemIndex + 1;
|
||||||
|
icbLabel.EditModified := True;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrEditorEventos.cbTerminadoPropertiesChange(Sender: TObject);
|
||||||
|
begin
|
||||||
|
deFechaCompletada.Enabled := cbCompletada.Checked;
|
||||||
|
if not cbCompletada.Checked then
|
||||||
|
deFechaCompletada.Clear
|
||||||
|
else
|
||||||
|
if Length(deFechaCompletada.EditValue) = 0 then
|
||||||
|
deFechaCompletada.Date := DateOf(Now);
|
||||||
|
|
||||||
|
FModified := True;
|
||||||
|
CheckVisible;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrEditorEventos.deFechaCompletadaPropertiesChange(
|
||||||
|
Sender: TObject);
|
||||||
|
begin
|
||||||
|
FModified := True;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrEditorEventos.DeleteEvent;
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrEditorEventos.PostEvent;
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrEditorEventos.SaveChanges;
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TfrEditorEventos.GetResourcesPanelVisible: Boolean;
|
||||||
|
begin
|
||||||
|
Result := not (FTipoEvento in [tcPedido, tcConfirmacion, tcRecepcion, tcAviso, tcEntregaCliente]);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrEditorEventos.SaveResourceID;
|
||||||
|
var
|
||||||
|
I: Integer;
|
||||||
|
begin
|
||||||
|
if pnlResource.Visible then
|
||||||
|
begin
|
||||||
|
for I := 0 to cbResources.Properties.Items.Count - 1 do
|
||||||
|
cbResources.States[I] := cbsUnchecked;
|
||||||
|
cbResources.States[cbInstaladores.ItemIndex] := cbsChecked;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
showmessage('debo poner a nulo el valor de resources');
|
||||||
|
for I := 0 to cbResources.Properties.Items.Count - 1 do
|
||||||
|
cbResources.States[I] := cbsUnchecked;
|
||||||
|
end;
|
||||||
|
inherited;
|
||||||
|
end;
|
||||||
|
|
||||||
|
initialization
|
||||||
|
cxEventEditorClass := TfrEditorEventos; // indicate that the new Event modal dialog will be invoked at runtime
|
||||||
|
|
||||||
|
end.
|
||||||
BIN
Modulos/Calendarios/Cliente/uDataModuleCalendarios.dfm
Normal file
BIN
Modulos/Calendarios/Cliente/uDataModuleCalendarios.dfm
Normal file
Binary file not shown.
110
Modulos/Calendarios/Cliente/uDataModuleCalendarios.pas
Normal file
110
Modulos/Calendarios/Cliente/uDataModuleCalendarios.pas
Normal file
@ -0,0 +1,110 @@
|
|||||||
|
unit uDataModuleCalendarios;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses {vcl:} SysUtils, Classes, DB, DBClient,
|
||||||
|
{RemObjects:} uDAClientDataModule, uDADataTable, uDABINAdapter,
|
||||||
|
uROServiceComponent, uRORemoteService, uROClient, uROBinMessage,
|
||||||
|
uROWinInetHttpChannel, uDAScriptingProvider, uDACDSDataTable,
|
||||||
|
uBizCitas;
|
||||||
|
|
||||||
|
type
|
||||||
|
TdmCalendarios = class(TDAClientDataModule)
|
||||||
|
DABINAdapter: TDABINAdapter;
|
||||||
|
RORemoteService: TRORemoteService;
|
||||||
|
tbl_Citas: TDACDSDataTable;
|
||||||
|
ds_Citas: TDADataSource;
|
||||||
|
tbl_Vendedores: TDACDSDataTable;
|
||||||
|
ds_Vendedores: TDADataSource;
|
||||||
|
procedure DAClientDataModuleCreate(Sender: TObject);
|
||||||
|
private
|
||||||
|
public
|
||||||
|
function GetCodigo: Integer;
|
||||||
|
function GetItems: IBizCitas;
|
||||||
|
function GetMediciones: IBizCitas;
|
||||||
|
function GetVendedores: IBizVendedores;
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
dmCalendarios: TdmCalendarios;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
{$R *.DFM}
|
||||||
|
|
||||||
|
uses
|
||||||
|
Controls, Forms, uDAInterfaces, DataAbstract_Intf, FactuGES_Intf,
|
||||||
|
uDataTableUtils, uROTypes, uEditorPreview, Variants,
|
||||||
|
Dialogs, uDataModuleBase, uDBSelectionList,
|
||||||
|
schCitasClient_Intf;
|
||||||
|
|
||||||
|
|
||||||
|
procedure TdmCalendarios.DAClientDataModuleCreate(Sender: TObject);
|
||||||
|
begin
|
||||||
|
RORemoteService.Channel := dmBase.Channel;
|
||||||
|
RORemoteService.Message := dmBase.Message;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TdmCalendarios.GetCodigo: Integer;
|
||||||
|
begin
|
||||||
|
Result := (RORemoteService as IsrvCitas).GetCodigo('GEN_ID');
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TdmCalendarios.GetItems: IBizCitas;
|
||||||
|
var
|
||||||
|
dtCitas: TDACDSDataTable;
|
||||||
|
ACursor: TCursor;
|
||||||
|
begin
|
||||||
|
ACursor := Screen.Cursor;
|
||||||
|
Screen.Cursor := crHourGlass;
|
||||||
|
try
|
||||||
|
dtCitas := TDACDSDataTable.Create(NIL);
|
||||||
|
CloneDataTable(tbl_Citas, dtCitas);
|
||||||
|
dtCitas.BusinessRulesID := BIZ_CITAS;
|
||||||
|
Result := (dtCitas as IBizCitas);
|
||||||
|
finally
|
||||||
|
Screen.Cursor := ACursor;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TdmCalendarios.GetMediciones: IBizCitas;
|
||||||
|
var
|
||||||
|
dtCitas : IBizCitas;
|
||||||
|
begin
|
||||||
|
dtCitas := GetItems;
|
||||||
|
with dtCitas.DataTable.Where do
|
||||||
|
begin
|
||||||
|
if not Empty then
|
||||||
|
AddOperator(opAND);
|
||||||
|
OpenBraket;
|
||||||
|
AddText('CITAS.' + fld_CITASTIPOTAREA + ' = ''' + TextoTipoCita[Ord(tcMedicion)] + '''', False);
|
||||||
|
CloseBraket;
|
||||||
|
end;
|
||||||
|
Result := dtCitas;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TdmCalendarios.GetVendedores: IBizVendedores;
|
||||||
|
var
|
||||||
|
dtVendedores: TDACDSDataTable;
|
||||||
|
ACursor: TCursor;
|
||||||
|
begin
|
||||||
|
ACursor := Screen.Cursor;
|
||||||
|
Screen.Cursor := crHourGlass;
|
||||||
|
try
|
||||||
|
dtVendedores := TDACDSDataTable.Create(NIL);
|
||||||
|
CloneDataTable(tbl_Vendedores, dtVendedores);
|
||||||
|
dtVendedores.BusinessRulesID := BIZ_VENDEDORES;
|
||||||
|
Result := (dtVendedores as IBizVendedores);
|
||||||
|
finally
|
||||||
|
Screen.Cursor := ACursor;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
initialization
|
||||||
|
dmCalendarios := TdmCalendarios.Create(nil);
|
||||||
|
|
||||||
|
finalization
|
||||||
|
FreeAndNil(dmCalendarios);
|
||||||
|
|
||||||
|
end.
|
||||||
|
|
||||||
147
Modulos/Calendarios/Cliente/uEditorCalendarioBase.dfm
Normal file
147
Modulos/Calendarios/Cliente/uEditorCalendarioBase.dfm
Normal file
@ -0,0 +1,147 @@
|
|||||||
|
inherited fEditorCalendarioBase: TfEditorCalendarioBase
|
||||||
|
Left = 784
|
||||||
|
Top = 337
|
||||||
|
Align = alClient
|
||||||
|
Caption = 'fEditorCalendarioBase'
|
||||||
|
PixelsPerInch = 96
|
||||||
|
TextHeight = 13
|
||||||
|
inherited TBXDock: TTBXDock
|
||||||
|
inherited tbxMain: TTBXToolbar
|
||||||
|
object TBXSeparatorItem14: TTBXSeparatorItem
|
||||||
|
end
|
||||||
|
object TBXItem33: TTBXItem
|
||||||
|
Action = actDia
|
||||||
|
end
|
||||||
|
object TBXItem34: TTBXItem
|
||||||
|
Action = actSemana
|
||||||
|
end
|
||||||
|
object TBXItem7: TTBXItem
|
||||||
|
Action = actMes
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited EditorActionList: TActionList
|
||||||
|
Left = 0
|
||||||
|
Top = 80
|
||||||
|
inherited actNuevo: TAction
|
||||||
|
Category = 'Calendario'
|
||||||
|
OnExecute = actNuevoExecute
|
||||||
|
end
|
||||||
|
inherited actModificar: TAction
|
||||||
|
Category = 'Calendario'
|
||||||
|
OnExecute = actModificarExecute
|
||||||
|
OnUpdate = actModificarUpdate
|
||||||
|
end
|
||||||
|
inherited actGuardarCerrar: TAction
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
inherited actGuardar: TAction
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
inherited actEliminar: TAction
|
||||||
|
Category = 'Calendario'
|
||||||
|
OnExecute = actEliminarExecute
|
||||||
|
OnUpdate = actEliminarUpdate
|
||||||
|
end
|
||||||
|
inherited actPrevisualizar: TAction
|
||||||
|
OnExecute = actPrevisualizarExecute
|
||||||
|
end
|
||||||
|
inherited actImprimir: TAction
|
||||||
|
OnExecute = actImprimirExecute
|
||||||
|
end
|
||||||
|
inherited actCerrar: TAction
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
inherited actRefrescar: TAction
|
||||||
|
Category = 'Calendario'
|
||||||
|
OnExecute = actRefrescarExecute
|
||||||
|
end
|
||||||
|
inherited actAnterior: TAction
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
inherited actSiguiente: TAction
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object actDia: TAction
|
||||||
|
Category = 'Calendario'
|
||||||
|
Caption = 'D'#237'a'
|
||||||
|
OnExecute = actDiaExecute
|
||||||
|
end
|
||||||
|
object actSemana: TAction
|
||||||
|
Category = 'Calendario'
|
||||||
|
Caption = 'Semana'
|
||||||
|
OnExecute = actSemanaExecute
|
||||||
|
end
|
||||||
|
object actMes: TAction
|
||||||
|
Category = 'Calendario'
|
||||||
|
Caption = 'Mes'
|
||||||
|
OnExecute = actMesExecute
|
||||||
|
end
|
||||||
|
object actSemana5: TAction
|
||||||
|
Category = 'Calendario'
|
||||||
|
Caption = 'Semana laboral'
|
||||||
|
OnExecute = actSemana5Execute
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object cxSchedulerDBStorage: TcxSchedulerDBStorage
|
||||||
|
Resources.Items = <>
|
||||||
|
Resources.ResourceID = 'CODIGO'
|
||||||
|
Resources.ResourceName = 'NOMBRE'
|
||||||
|
CustomFields = <>
|
||||||
|
DataSource = DADataSource
|
||||||
|
FieldNames.Caption = 'CAPTION'
|
||||||
|
FieldNames.EventType = 'TIPO'
|
||||||
|
FieldNames.Finish = 'FINISH'
|
||||||
|
FieldNames.ID = 'ID'
|
||||||
|
FieldNames.LabelColor = 'LABELCOLOR'
|
||||||
|
FieldNames.Location = 'LOCATION'
|
||||||
|
FieldNames.Message = 'MENSAJE'
|
||||||
|
FieldNames.Options = 'OPTIONS'
|
||||||
|
FieldNames.ParentID = 'PARENTID'
|
||||||
|
FieldNames.ResourceID = 'RESOURCEID'
|
||||||
|
FieldNames.Start = 'START'
|
||||||
|
FieldNames.State = 'STATE'
|
||||||
|
Left = 32
|
||||||
|
Top = 80
|
||||||
|
end
|
||||||
|
object DADataSource: TDADataSource
|
||||||
|
Left = 64
|
||||||
|
Top = 80
|
||||||
|
end
|
||||||
|
object dxComponentPrinter1: TdxComponentPrinter
|
||||||
|
CurrentLink = dxComponentPrinter1Link2
|
||||||
|
PreviewOptions.EnableOptions = [peoPageSetup, peoPrint]
|
||||||
|
PreviewOptions.Caption = 'Vista previa'
|
||||||
|
PreviewOptions.VisibleOptions = [pvoPageSetup, pvoPrint, pvoPageMargins]
|
||||||
|
Version = 0
|
||||||
|
Left = 32
|
||||||
|
Top = 112
|
||||||
|
object dxComponentPrinter1Link2: TcxSchedulerReportLink
|
||||||
|
PrinterPage.DMPaper = 9
|
||||||
|
PrinterPage.Footer = 6350
|
||||||
|
PrinterPage.Header = 6350
|
||||||
|
PrinterPage.Margins.Bottom = 12700
|
||||||
|
PrinterPage.Margins.Left = 12700
|
||||||
|
PrinterPage.Margins.Right = 12700
|
||||||
|
PrinterPage.Margins.Top = 12700
|
||||||
|
PrinterPage.PageSize.X = 210000
|
||||||
|
PrinterPage.PageSize.Y = 297000
|
||||||
|
PrinterPage._dxMeasurementUnits_ = 0
|
||||||
|
PrinterPage._dxLastMU_ = 2
|
||||||
|
ReportDocument.CreationDate = 38869.819535011570000000
|
||||||
|
OptionsFormatting.SuppressBackgroundBitmaps = True
|
||||||
|
OptionsFormatting.UseNativeStyles = True
|
||||||
|
PrintRange.TimePrintFrom = 0.416666666666666700
|
||||||
|
PrintRange.TimePrintTo = 0.854166666666666600
|
||||||
|
PrintStyles.Weekly.Active = True
|
||||||
|
SupportedCustomDraw = True
|
||||||
|
BuiltInReportLink = True
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object dxPrintDialog1: TdxPrintDialog
|
||||||
|
ButtonsEnabled = [pdbPrinterProperties, pdbNetwork, pdbPreview, pdbPageSetup]
|
||||||
|
ButtonsVisible = [pdbPrinterProperties, pdbNetwork, pdbPreview]
|
||||||
|
OptionsEnabled = [pdoAllPages, pdoPageRange]
|
||||||
|
Top = 112
|
||||||
|
end
|
||||||
|
end
|
||||||
334
Modulos/Calendarios/Cliente/uEditorCalendarioBase.pas
Normal file
334
Modulos/Calendarios/Cliente/uEditorCalendarioBase.pas
Normal file
@ -0,0 +1,334 @@
|
|||||||
|
unit uEditorCalendarioBase;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||||
|
Dialogs, uEditorBase, dxLayoutLookAndFeels, JvAppStorage,
|
||||||
|
JvAppRegistryStorage, JvComponentBase, JvFormPlacement, ImgList,
|
||||||
|
PngImageList, StdActns, ActnList, ComCtrls, TBX, TB2Item, TB2Dock,
|
||||||
|
TB2Toolbar, pngimage, ExtCtrls, JvExControls, JvComponent,
|
||||||
|
JvNavigationPane, uBizCitas, uViewCalendarioBase, cxSchedulerStorage,
|
||||||
|
cxSchedulerDBStorage, DB, uDADataTable,
|
||||||
|
|
||||||
|
|
||||||
|
cxScheduler, cxSchedulerCustomControls, cxSchedulerCustomResourceView,
|
||||||
|
cxSchedulerDayView, cxSchedulerDateNavigator, cxSchedulerTimeGridView,
|
||||||
|
cxSchedulerUtils, cxSchedulerWeekView, cxSchedulerYearView, dxPSGlbl,
|
||||||
|
dxPSUtl, dxPSEngn, dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider,
|
||||||
|
dxPSFillPatterns, dxPSEdgePatterns, dxPrnDlg, dxPSCore, dxPScxCommon,
|
||||||
|
dxPScxScheduler2Lnk;
|
||||||
|
|
||||||
|
type
|
||||||
|
IEditorCalendarioBase = interface(IEditorBase)
|
||||||
|
['{FC69C1D8-B566-4CBF-9F87-16728114D161}']
|
||||||
|
function GetCitas: IBizCitas;
|
||||||
|
procedure SetCitas(const Value: IBizCitas);
|
||||||
|
property Citas: IBizCitas read GetCitas write SetCitas;
|
||||||
|
end;
|
||||||
|
|
||||||
|
TfEditorCalendarioBase = class(TfEditorBase, IEditorCalendarioBase)
|
||||||
|
TBXItem7: TTBXItem;
|
||||||
|
TBXSeparatorItem14: TTBXSeparatorItem;
|
||||||
|
TBXItem33: TTBXItem;
|
||||||
|
TBXItem34: TTBXItem;
|
||||||
|
actDia: TAction;
|
||||||
|
actSemana: TAction;
|
||||||
|
actMes: TAction;
|
||||||
|
cxSchedulerDBStorage: TcxSchedulerDBStorage;
|
||||||
|
DADataSource: TDADataSource;
|
||||||
|
actSemana5: TAction;
|
||||||
|
dxComponentPrinter1: TdxComponentPrinter;
|
||||||
|
dxComponentPrinter1Link2: TcxSchedulerReportLink;
|
||||||
|
dxPrintDialog1: TdxPrintDialog;
|
||||||
|
|
||||||
|
procedure FormShow(Sender: TObject);
|
||||||
|
procedure actDiaExecute(Sender: TObject);
|
||||||
|
procedure actSemanaExecute(Sender: TObject);
|
||||||
|
procedure actMesExecute(Sender: TObject);
|
||||||
|
procedure actRefrescarExecute(Sender: TObject);
|
||||||
|
procedure actNuevoExecute(Sender: TObject);
|
||||||
|
procedure actModificarExecute(Sender: TObject);
|
||||||
|
procedure actEliminarExecute(Sender: TObject);
|
||||||
|
procedure actModificarUpdate(Sender: TObject);
|
||||||
|
procedure actEliminarUpdate(Sender: TObject);
|
||||||
|
procedure actSemana5Execute(Sender: TObject);
|
||||||
|
procedure actImprimirExecute(Sender: TObject);
|
||||||
|
|
||||||
|
procedure cxSchedulerBeforeEditing(Sender: TcxCustomScheduler;
|
||||||
|
AEvent: TcxSchedulerControlEvent; AInplace: Boolean;
|
||||||
|
var Allow: Boolean);
|
||||||
|
procedure actPrevisualizarExecute(Sender: TObject);
|
||||||
|
|
||||||
|
private
|
||||||
|
FCitas: IBizCitas;
|
||||||
|
FViewCitas: IViewCalendarioBase;
|
||||||
|
|
||||||
|
protected
|
||||||
|
function GetViewCitas: IViewCalendarioBase;
|
||||||
|
procedure SetViewCitas(const Value: IViewCalendarioBase);
|
||||||
|
function GetCitas: IBizCitas;
|
||||||
|
procedure SetCitas(const Value: IBizCitas);
|
||||||
|
|
||||||
|
procedure InicializarCampos; virtual;
|
||||||
|
procedure InicializarEvento (var aEvent : TcxSchedulerControlEvent); virtual;
|
||||||
|
|
||||||
|
public
|
||||||
|
property Citas: IBizCitas read GetCitas write SetCitas;
|
||||||
|
property ViewCitas: IViewCalendarioBase read GetViewCitas write SetViewCitas;
|
||||||
|
destructor Destroy; override;
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
fEditorCalendarioBase: TfEditorCalendarioBase;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
{$R *.dfm}
|
||||||
|
|
||||||
|
{ TfEditorCalendarioBase }
|
||||||
|
|
||||||
|
uses schCitasClient_Intf;
|
||||||
|
|
||||||
|
function TfEditorCalendarioBase.GetCitas: IBizCitas;
|
||||||
|
begin
|
||||||
|
Result := FCitas;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TfEditorCalendarioBase.GetViewCitas: IViewCalendarioBase;
|
||||||
|
begin
|
||||||
|
Result := FViewCitas;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorCalendarioBase.SetCitas(const Value: IBizCitas);
|
||||||
|
begin
|
||||||
|
FCitas := Value;
|
||||||
|
|
||||||
|
if Assigned(FCitas) then
|
||||||
|
begin
|
||||||
|
DADataSource.DataTable := FCitas.DataTable;
|
||||||
|
|
||||||
|
if not DADataSource.DataTable.Active then
|
||||||
|
DADataSource.DataTable.Active := True;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
DADataSource.DataTable := NIL;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorCalendarioBase.SetViewCitas(const Value: IViewCalendarioBase);
|
||||||
|
begin
|
||||||
|
FViewCitas := Value;
|
||||||
|
|
||||||
|
if Assigned(FViewCitas) then
|
||||||
|
FViewCitas.Calendario.OnBeforeEditing := cxSchedulerBeforeEditing;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorCalendarioBase.FormShow(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
|
||||||
|
InicializarCampos;
|
||||||
|
|
||||||
|
if not Assigned(FViewCitas) then
|
||||||
|
raise Exception.Create('No hay ninguna vista asignada');
|
||||||
|
|
||||||
|
if not Assigned(Citas) then
|
||||||
|
raise Exception.Create('No hay ninguna cita asignada');
|
||||||
|
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
destructor TfEditorCalendarioBase.Destroy;
|
||||||
|
begin
|
||||||
|
FViewCitas := NIL;
|
||||||
|
FCitas := NIL;
|
||||||
|
inherited;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorCalendarioBase.actDiaExecute(Sender: TObject);
|
||||||
|
begin
|
||||||
|
with FViewCitas.Calendario do
|
||||||
|
begin
|
||||||
|
if not ViewWeek.Active then
|
||||||
|
FViewCitas.pAnchorDate := SelectedDays[0];
|
||||||
|
SelectDays([FViewCitas.pAnchorDate], True);
|
||||||
|
|
||||||
|
ViewDay.Active := True;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorCalendarioBase.actSemanaExecute(Sender: TObject);
|
||||||
|
begin
|
||||||
|
with FViewCitas.Calendario do
|
||||||
|
begin
|
||||||
|
if not ViewWeek.Active then
|
||||||
|
FViewCitas.pAnchorDate := SelectedDays[0];
|
||||||
|
SelectDays([FViewCitas.pAnchorDate], False);
|
||||||
|
|
||||||
|
ViewWeek.Active := True;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorCalendarioBase.actMesExecute(Sender: TObject);
|
||||||
|
begin
|
||||||
|
with FViewCitas.Calendario do
|
||||||
|
begin
|
||||||
|
if not ViewWeek.Active then
|
||||||
|
FViewCitas.pAnchorDate := SelectedDays[0];
|
||||||
|
SelectDays([FViewCitas.pAnchorDate], False);
|
||||||
|
|
||||||
|
GoToDate(SelectedDays[0], vmMonth);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorCalendarioBase.actRefrescarExecute(Sender: TObject);
|
||||||
|
begin
|
||||||
|
cxSchedulerDBStorage.FullRefresh;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorCalendarioBase.actNuevoExecute(Sender: TObject);
|
||||||
|
begin
|
||||||
|
FViewCitas.Calendario.CreateEventUsingDialog;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorCalendarioBase.actModificarExecute(Sender: TObject);
|
||||||
|
begin
|
||||||
|
with FViewCitas.Calendario do
|
||||||
|
begin
|
||||||
|
if (SelectedEventCount = 1) then
|
||||||
|
EditEventUsingDialog(SelectedEvents[0]);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorCalendarioBase.actEliminarExecute(Sender: TObject);
|
||||||
|
begin
|
||||||
|
with FViewCitas.Calendario do
|
||||||
|
begin
|
||||||
|
if (SelectedEventCount > 0) then
|
||||||
|
DeleteSelectedEvents();
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorCalendarioBase.actModificarUpdate(Sender: TObject);
|
||||||
|
begin
|
||||||
|
(Sender as TAction).Enabled := (FViewCitas.Calendario.SelectedEventCount = 1);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorCalendarioBase.actEliminarUpdate(Sender: TObject);
|
||||||
|
begin
|
||||||
|
(Sender as TAction).Enabled := (FViewCitas.Calendario.SelectedEventCount > 0);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorCalendarioBase.actSemana5Execute(Sender: TObject);
|
||||||
|
begin
|
||||||
|
with FViewCitas.Calendario do
|
||||||
|
begin
|
||||||
|
FViewCitas.pAnchorDate := SelectedDays[0];
|
||||||
|
SelectDays([FViewCitas.pAnchorDate], True);
|
||||||
|
|
||||||
|
SelectWorkDays(Date);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorCalendarioBase.actImprimirExecute(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
with FViewCitas.Calendario do
|
||||||
|
begin
|
||||||
|
with dxComponentPrinter1Link2.PrintStyles do
|
||||||
|
begin
|
||||||
|
if ViewDay.Active then
|
||||||
|
begin
|
||||||
|
Daily.Active := True;
|
||||||
|
FViewCitas.pAnchorDate := SelectedDays.Items[0];
|
||||||
|
end
|
||||||
|
else
|
||||||
|
if ViewWeek.Active then
|
||||||
|
Weekly.Active := True
|
||||||
|
else begin
|
||||||
|
Monthly.Active := True;
|
||||||
|
FViewCitas.pAnchorDate := SelectedDays.Items[SelectedDays.Count DIV 2];
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
dxComponentPrinter1Link2.PrintRange.PrintFrom := FViewCitas.pAnchorDate;
|
||||||
|
dxComponentPrinter1Link2.PrintRange.PrintTo := FViewCitas.pAnchorDate;
|
||||||
|
dxComponentPrinter1.Print(True, nil, nil);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorCalendarioBase.InicializarEvento(var aEvent: TcxSchedulerControlEvent);
|
||||||
|
begin
|
||||||
|
//
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorCalendarioBase.cxSchedulerBeforeEditing(
|
||||||
|
Sender: TcxCustomScheduler; AEvent: TcxSchedulerControlEvent;
|
||||||
|
AInplace: Boolean; var Allow: Boolean);
|
||||||
|
begin
|
||||||
|
if VarIsNull(AEvent.ID) then
|
||||||
|
InicializarEvento(AEvent);
|
||||||
|
Allow := True;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorCalendarioBase.InicializarCampos;
|
||||||
|
var
|
||||||
|
aField : TcxSchedulerDBStorageField;
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
|
||||||
|
with cxSchedulerDBStorage.CustomFields do
|
||||||
|
begin
|
||||||
|
try
|
||||||
|
BeginUpdate;
|
||||||
|
Clear;
|
||||||
|
|
||||||
|
aField := Add;
|
||||||
|
aField.FieldName := fld_CITASTIPOTAREA;
|
||||||
|
|
||||||
|
aField := Add;
|
||||||
|
aField.FieldName := fld_CITASCODIGOCONTRATO;
|
||||||
|
|
||||||
|
aField := Add;
|
||||||
|
aField.FieldName := fld_CITASNOMBRECLIENTE;
|
||||||
|
|
||||||
|
aField := Add;
|
||||||
|
aField.FieldName := fld_CITASPARTIDA;
|
||||||
|
|
||||||
|
aField := Add;
|
||||||
|
aField.FieldName := fld_CITASCOMPLETADA;
|
||||||
|
|
||||||
|
aField := Add;
|
||||||
|
aField.FieldName := fld_CITASNOMBREPROVEEDOR;
|
||||||
|
|
||||||
|
finally
|
||||||
|
EndUpdate;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorCalendarioBase.actPrevisualizarExecute(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
with FViewCitas.Calendario do
|
||||||
|
begin
|
||||||
|
with dxComponentPrinter1Link2.PrintStyles do
|
||||||
|
begin
|
||||||
|
if ViewDay.Active then
|
||||||
|
begin
|
||||||
|
Daily.Active := True;
|
||||||
|
FViewCitas.pAnchorDate := SelectedDays.Items[0];
|
||||||
|
end
|
||||||
|
else
|
||||||
|
if ViewWeek.Active then
|
||||||
|
Weekly.Active := True
|
||||||
|
else begin
|
||||||
|
Monthly.Active := True;
|
||||||
|
FViewCitas.pAnchorDate := SelectedDays.Items[SelectedDays.Count DIV 2];
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
dxComponentPrinter1Link2.PrintRange.PrintFrom := FViewCitas.pAnchorDate;
|
||||||
|
dxComponentPrinter1Link2.PrintRange.PrintTo := FViewCitas.pAnchorDate;
|
||||||
|
// dxComponentPrinter1.Preview(True, nil, nil);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
20
Modulos/Calendarios/Cliente/uEditorCalendarioConFiltro.dfm
Normal file
20
Modulos/Calendarios/Cliente/uEditorCalendarioConFiltro.dfm
Normal file
@ -0,0 +1,20 @@
|
|||||||
|
inherited fEditorCalendarioConFiltro: TfEditorCalendarioConFiltro
|
||||||
|
Caption = 'fEditorCalendarioConFiltro'
|
||||||
|
PixelsPerInch = 96
|
||||||
|
TextHeight = 13
|
||||||
|
inherited EditorActionList: TActionList
|
||||||
|
object actVerTodos: TAction
|
||||||
|
Category = 'Calendario'
|
||||||
|
Caption = 'Ver todos'
|
||||||
|
OnExecute = actVerTodosExecute
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited JvFormStorage: TJvFormStorage
|
||||||
|
OnSavePlacement = JvFormStorageSavePlacement
|
||||||
|
end
|
||||||
|
inherited dxComponentPrinter1: TdxComponentPrinter
|
||||||
|
inherited dxComponentPrinter1Link2: TcxSchedulerReportLink
|
||||||
|
BuiltInReportLink = True
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
132
Modulos/Calendarios/Cliente/uEditorCalendarioConFiltro.pas
Normal file
132
Modulos/Calendarios/Cliente/uEditorCalendarioConFiltro.pas
Normal file
@ -0,0 +1,132 @@
|
|||||||
|
unit uEditorCalendarioConFiltro;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||||
|
Dialogs, uEditorCalendarioBase, dxPSGlbl, dxPSUtl, dxPSEngn, dxPrnPg,
|
||||||
|
dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider, dxPSFillPatterns,
|
||||||
|
dxPSEdgePatterns, dxPrnDlg, dxPSCore, dxPScxCommon, dxPScxScheduler2Lnk,
|
||||||
|
DB, uDADataTable, cxSchedulerStorage, cxSchedulerDBStorage,
|
||||||
|
dxLayoutLookAndFeels, JvAppStorage, JvAppRegistryStorage,
|
||||||
|
JvComponentBase, JvFormPlacement, ImgList, PngImageList, StdActns,
|
||||||
|
ActnList, ComCtrls, TBX, TB2Item, TB2Dock, TB2Toolbar, pngimage,
|
||||||
|
ExtCtrls, JvExControls, JvComponent, JvNavigationPane;
|
||||||
|
|
||||||
|
type
|
||||||
|
IEditorCalendarioConFiltro = interface(IEditorCalendarioBase)
|
||||||
|
['{81ED9B0E-6F65-4B7D-884F-192AE45A7708}']
|
||||||
|
end;
|
||||||
|
|
||||||
|
TfEditorCalendarioConFiltro = class(TfEditorCalendarioBase, IEditorCalendarioConFiltro)
|
||||||
|
actVerTodos: TAction;
|
||||||
|
procedure actVerTodosExecute(Sender: TObject);
|
||||||
|
procedure FormShow(Sender: TObject);
|
||||||
|
procedure JvFormStorageSavePlacement(Sender: TObject);
|
||||||
|
protected
|
||||||
|
NombreLista: String;
|
||||||
|
procedure CargarLista; virtual;
|
||||||
|
public
|
||||||
|
destructor destroy; override;
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
fEditorCalendarioConFiltro: TfEditorCalendarioConFiltro;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
{$R *.dfm}
|
||||||
|
|
||||||
|
uses uViewCalendarioConFiltro;
|
||||||
|
|
||||||
|
procedure TfEditorCalendarioConFiltro.actVerTodosExecute(Sender: TObject);
|
||||||
|
var
|
||||||
|
I: Integer;
|
||||||
|
begin
|
||||||
|
with (ViewCitas as IViewCalendarioConFiltro).Resources do
|
||||||
|
begin
|
||||||
|
Items.BeginUpdate;
|
||||||
|
try
|
||||||
|
for I := 0 to Items.Count - 1 do
|
||||||
|
begin
|
||||||
|
Items[I].Checked := True;
|
||||||
|
TcxSchedulerStorageResourceItem(Items[I].ItemObject).Visible := True;
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
Items.EndUpdate;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorCalendarioConFiltro.CargarLista;
|
||||||
|
var
|
||||||
|
I: Integer;
|
||||||
|
cadena: String;
|
||||||
|
begin
|
||||||
|
cadena := JvFormStorage.ReadString(NombreLista, '');
|
||||||
|
|
||||||
|
with (ViewCitas as IViewCalendarioConFiltro).Resources do
|
||||||
|
begin
|
||||||
|
Items.BeginUpdate;
|
||||||
|
try
|
||||||
|
Items.Clear;
|
||||||
|
|
||||||
|
for I := 0 to ViewCitas.Calendario.Storage.ResourceCount - 1 do
|
||||||
|
begin
|
||||||
|
with Items.Add do
|
||||||
|
begin
|
||||||
|
ImageIndex := 0;
|
||||||
|
Text := ViewCitas.Calendario.Storage.ResourceNames[I];
|
||||||
|
Checked := ViewCitas.Calendario.Storage.Resources.ResourceItems[I].Visible;
|
||||||
|
ItemObject := ViewCitas.Calendario.Storage.Resources.ResourceItems[I];
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
Items.EndUpdate;
|
||||||
|
end;
|
||||||
|
|
||||||
|
for I := 0 to Items.Count - 1 do
|
||||||
|
if (Length(cadena) > 0) and (Pos('#' + IntToStr(i) + '#', cadena) = 0) then
|
||||||
|
begin
|
||||||
|
Items[i].Checked := False;
|
||||||
|
(Items[i].ItemObject as TcxSchedulerStorageResourceItem).Visible := False;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
destructor TfEditorCalendarioConFiltro.destroy;
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorCalendarioConFiltro.FormShow(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited FormShow(Sender);
|
||||||
|
|
||||||
|
try
|
||||||
|
ViewCitas.Calendario.BeginUpdate;
|
||||||
|
CargarLista;
|
||||||
|
finally;
|
||||||
|
ViewCitas.Calendario.EndUpdate;
|
||||||
|
end;
|
||||||
|
|
||||||
|
actSemana.Execute;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorCalendarioConFiltro.JvFormStorageSavePlacement(
|
||||||
|
Sender: TObject);
|
||||||
|
var
|
||||||
|
i : integer;
|
||||||
|
cadena : string;
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
with (ViewCitas as IViewCalendarioConFiltro).Resources do
|
||||||
|
begin
|
||||||
|
cadena := '#';
|
||||||
|
for i := 0 to Items.Count - 1 do
|
||||||
|
if Items[i].Checked then
|
||||||
|
cadena := cadena + IntToStr(i) + '#';
|
||||||
|
JvFormStorage.WriteString(NombreLista, cadena);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
135
Modulos/Calendarios/Cliente/uEditorCalendarioMediciones.dfm
Normal file
135
Modulos/Calendarios/Cliente/uEditorCalendarioMediciones.dfm
Normal file
@ -0,0 +1,135 @@
|
|||||||
|
inherited fEditorCalendarioMediciones: TfEditorCalendarioMediciones
|
||||||
|
Left = 529
|
||||||
|
Top = 184
|
||||||
|
Width = 800
|
||||||
|
Height = 646
|
||||||
|
Caption = 'fEditorCalendarioMediciones'
|
||||||
|
PixelsPerInch = 96
|
||||||
|
TextHeight = 13
|
||||||
|
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||||
|
Width = 792
|
||||||
|
Caption = 'AGENDA'
|
||||||
|
inherited Image1: TImage
|
||||||
|
Left = 765
|
||||||
|
Picture.Data = {
|
||||||
|
0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001C00
|
||||||
|
00001C0806000000720DDF940000000970485973000017120000171201679FD2
|
||||||
|
520000000467414D410000B18E7CFB5193000004D64944415478DABD957D5054
|
||||||
|
5514C07F6FD905044492B5D6044CD210FCFE0C9B093533C4444B821C14AB51FE
|
||||||
|
404873C26AC68FCCB226C5D132354B9D880835191D1D5304B2A6D148938F2C34
|
||||||
|
244405D915C4E563835D78BBBDB7C88B6D91D8FEF0CCDC39F79E77CFFDBD73EE
|
||||||
|
3BE709369B8DFB29820C14044131C4AFC8785152FBA5B1E0EB8F120EB87A604F
|
||||||
|
FE765637405BE6B6458C9FB58CA29C5D828BBC1EFD1560F09B854A5EA7984B49
|
||||||
|
8E9B4FCA86548C6396BA9CB29EFC2B3E1C2F28C075D1A3EDC6DC43FB899F399D
|
||||||
|
B5DB37B27CCDC74E07B65BC16C81568BCD3E4C2DB2EE589BDB245D7648F1F79F
|
||||||
|
9CA63C134B5751787267F7C088D061EC3E9CEE046C6D93615D00164798FC22B6
|
||||||
|
CA438ABFF7D8B4BBFB405DDE0350964B97CF3A007B0393E71E37B3157FB7B0CD
|
||||||
|
76BB2CF704EA6F5CE7607A1A712FA5A20B0C720926DB04D30DAA8BB6E117BA82
|
||||||
|
BAB600E585EF09FCB7B80273DCE7788E13D0E5CFD145F12BD9F30F303BB7C416
|
||||||
|
33738C4B07AC395049F6B1DFB971BDCEC11E18A425267A04CB676A11452BA2D5
|
||||||
|
CA915305ECCB3CFADFC04F324E3AD9F4EEC315D0CA9469786BFB4B69173B8645
|
||||||
|
A4C5D24EE6CE5C059CF8A42FC7F2CFF51E989230CB21AA6D3B7E6069EC281E19
|
||||||
|
1B82A1BA960754CD840DF1E3F9C8CD1CCE5945E95523E78D7D308B36BECB3AC3
|
||||||
|
6BC953D1592EFF3F60E8A2E344853F4CD098C7B85A7289D9E10F32794200CD2D
|
||||||
|
AD145FD4E3A90BC068B252F8D36F9CBB2922FAF861B8504EE2742B5F7D73C235
|
||||||
|
606774EFBD1F4B45512949B121E8745E4859E48A41A4FA8E0D3715988C356C5D
|
||||||
|
B99025EBF6917EA69ECB3F96313DF00ED5B7CB9C81DDDD59A7ECC811ED772265
|
||||||
|
8A886015E19307D9E767AFB4633283462D9543731D69AFC63167711233E6BDC0
|
||||||
|
D1C3BF9073BB2FD7F38B19EA7E86E2BCCF9C815D53D875ED1391CE9AF5F351D5
|
||||||
|
5D2331360C51B0D128F5D19FCBDB259880A5C5C8A665F3895CB084C8D878346E
|
||||||
|
022A53138BB79660F8B50A9D299FF20B5FBA064C5D3D8F89FD9B099FA0A35DB2
|
||||||
|
15558AF6E8AACA0AF9E2835446854F65CEC25750BBC1C08041685ACD246F29A0
|
||||||
|
B4E816FD0C7954FF91E11A30E58D68B62C7E878CAC25F8870CA7418A502DA572
|
||||||
|
7DC253AC7D7727EB5727A192FEADF2EF352DF320519336F1E8AC27A8AA6AC547
|
||||||
|
9F87BE2CA3F777F8D6E70696AE8CE2E9000B6DBE03A482966182943AA9A599EE
|
||||||
|
B0213186ED47F2159B466D23A88F86675ECFE55291817EFA135497EDEF7D8472
|
||||||
|
494C9D3B9E606E133C7A186A55C787A276EBD032447D57CB6B1F09DC58594BDC
|
||||||
|
9E0A6ACE5748777842BA4317809D6511B9600A8F6B2D8C9838548209DDC23C24
|
||||||
|
1DE4A92179D3F71498FD69CA3F89BF7B1925797B7B0FEC8C32242294D69A1A52
|
||||||
|
660FC677D0000495CD218D7D352A06BAABF934EB02BB2E8AB4379A08AD3D4D4D
|
||||||
|
53BD631D3E376314BB324FF5D8B0E53E2A473929269C56BD8184B1DECC891A49
|
||||||
|
63730BE346BE8DB1762BB70C0DA46515937BCB13542ABC0A8E93103F8ECCEC5C
|
||||||
|
4760F4B491F6CE6EEFF0F62E6FA35D997768AB54E97BCF3629CD3B70FA68A92E
|
||||||
|
F50CF65571F35A1DBA210FF167A3805AABA5ADDE8857C969E626BDDC7D2F9D1D
|
||||||
|
11C6DE83F9F4461A1B4C7C9B574971BDB6DBE7FD340D0CF7AA21F2D9097879FB
|
||||||
|
D86D4EC08D5B76F70AD655CC52D36EAC1369B3796015540896BFF0F430D357EB
|
||||||
|
89BBA7B7D37E05783FE56F92C591F6D1A442580000000049454E44AE426082}
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited TBXDock: TTBXDock
|
||||||
|
Width = 792
|
||||||
|
inherited tbxMenu: TTBXToolbar
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited StatusBar: TStatusBar
|
||||||
|
Top = 593
|
||||||
|
Width = 792
|
||||||
|
end
|
||||||
|
inline frViewCalendarioMediciones: TfrViewCalendarioConFiltro [3]
|
||||||
|
Left = 0
|
||||||
|
Top = 76
|
||||||
|
Width = 792
|
||||||
|
Height = 517
|
||||||
|
Align = alClient
|
||||||
|
AutoSize = True
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -11
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = []
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 3
|
||||||
|
ReadOnly = False
|
||||||
|
inherited cxScheduler: TcxScheduler
|
||||||
|
Width = 792
|
||||||
|
Height = 517
|
||||||
|
OptionsView.WorkStart = 0.416666666666666700
|
||||||
|
OptionsView.WorkFinish = 0.854166666666666800
|
||||||
|
Storage = cxSchedulerDBStorage
|
||||||
|
Splitters = {
|
||||||
|
89020000FA00000018030000FF00000084020000000000008902000005020000}
|
||||||
|
StoredClientBounds = {00000000000000001803000005020000}
|
||||||
|
inherited pnlVendedores: TPanel
|
||||||
|
Height = 262
|
||||||
|
inherited cxResources: TcxCheckListBox
|
||||||
|
Height = 225
|
||||||
|
end
|
||||||
|
inherited Panel2: TPanel
|
||||||
|
Caption = 'Usuarios'
|
||||||
|
end
|
||||||
|
inherited tbxMain: TTBXToolbar
|
||||||
|
Top = 243
|
||||||
|
Height = 19
|
||||||
|
inherited TBXItem5: TTBXItem
|
||||||
|
Action = actVerTodos
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited EditorActionList: TActionList [4]
|
||||||
|
end
|
||||||
|
inherited SmallImages: TPngImageList [5]
|
||||||
|
end
|
||||||
|
inherited LargeImages: TPngImageList [6]
|
||||||
|
end
|
||||||
|
inherited JvFormStorage: TJvFormStorage [7]
|
||||||
|
end
|
||||||
|
inherited JvAppRegistryStorage: TJvAppRegistryStorage [8]
|
||||||
|
end
|
||||||
|
inherited cxSchedulerDBStorage: TcxSchedulerDBStorage
|
||||||
|
Resources.DataSource = DADataSource2
|
||||||
|
end
|
||||||
|
inherited dxComponentPrinter1: TdxComponentPrinter
|
||||||
|
inherited dxComponentPrinter1Link2: TcxSchedulerReportLink
|
||||||
|
BuiltInReportLink = True
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList [12]
|
||||||
|
end
|
||||||
|
object DADataSource2: TDADataSource
|
||||||
|
Left = 96
|
||||||
|
Top = 80
|
||||||
|
end
|
||||||
|
end
|
||||||
104
Modulos/Calendarios/Cliente/uEditorCalendarioMediciones.pas
Normal file
104
Modulos/Calendarios/Cliente/uEditorCalendarioMediciones.pas
Normal file
@ -0,0 +1,104 @@
|
|||||||
|
unit uEditorCalendarioMediciones;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||||
|
Dialogs, dxLayoutLookAndFeels, JvAppStorage, JvAppRegistryStorage,
|
||||||
|
JvComponentBase, JvFormPlacement, ImgList, PngImageList, StdActns, ActnList,
|
||||||
|
ComCtrls, TBX, TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls, JvExControls,
|
||||||
|
JvComponent, JvNavigationPane, uCustomView, uViewBase, uViewCalendarioBase,
|
||||||
|
cxSchedulerStorage, cxSchedulerDBStorage, DB,
|
||||||
|
uDADataTable, dxPSGlbl, dxPSUtl, dxPSEngn, dxPrnPg, dxBkgnd, dxWrap,
|
||||||
|
dxPrnDev, dxPSCompsProvider, dxPSFillPatterns, dxPSEdgePatterns,
|
||||||
|
dxPrnDlg, dxPSCore, dxPScxCommon, dxPScxScheduler2Lnk, Grids, DBGrids,
|
||||||
|
|
||||||
|
uBizCitas, uEditorCalendarioConFiltro, uViewCalendarioConFiltro,
|
||||||
|
uEditorCalendarioBase, uViewCalendarioMediciones;
|
||||||
|
|
||||||
|
type
|
||||||
|
IEditorCalendarioMediciones = interface(IEditorCalendarioConFiltro)
|
||||||
|
['{CA83B596-1408-455F-AD78-0BC121A452C3}']
|
||||||
|
function GetVendedores: IBizVendedores;
|
||||||
|
procedure SetVendedores(const Value: IBizVendedores);
|
||||||
|
property Vendedores : IBizVendedores read GetVendedores write SetVendedores;
|
||||||
|
end;
|
||||||
|
|
||||||
|
TfEditorCalendarioMediciones = class(TfEditorCalendarioConFiltro, IEditorCalendarioMediciones)
|
||||||
|
DADataSource2: TDADataSource;
|
||||||
|
frViewCalendarioMediciones: TfrViewCalendarioConFiltro;
|
||||||
|
|
||||||
|
private
|
||||||
|
FVendedores: IBizVendedores;
|
||||||
|
procedure CargarLista; override;
|
||||||
|
function GetVendedores: IBizVendedores;
|
||||||
|
procedure SetVendedores(const Value: IBizVendedores);
|
||||||
|
|
||||||
|
protected
|
||||||
|
procedure InicializarEvento (var aEvent : TcxSchedulerControlEvent); override;
|
||||||
|
|
||||||
|
public
|
||||||
|
property Vendedores : IBizVendedores read GetVendedores write SetVendedores;
|
||||||
|
constructor Create(AOwner: TComponent); override;
|
||||||
|
destructor Destroy; override;
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
fEditorCalendarioMediciones: TfEditorCalendarioMediciones;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
{$R *.dfm}
|
||||||
|
|
||||||
|
{ TfEditorCalendarioMediciones }
|
||||||
|
|
||||||
|
uses schCitasClient_Intf;
|
||||||
|
|
||||||
|
|
||||||
|
constructor TfEditorCalendarioMediciones.Create(AOwner: TComponent);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
ViewCitas := frViewCalendarioMediciones;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorCalendarioMediciones.CargarLista;
|
||||||
|
begin
|
||||||
|
NombreLista := 'Mediciones';
|
||||||
|
inherited;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TfEditorCalendarioMediciones.GetVendedores: IBizVendedores;
|
||||||
|
begin
|
||||||
|
Result := FVendedores;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorCalendarioMediciones.SetVendedores(const Value: IBizVendedores);
|
||||||
|
begin
|
||||||
|
FVendedores := Value;
|
||||||
|
|
||||||
|
if Assigned(FVendedores) then
|
||||||
|
begin
|
||||||
|
DADataSource2.DataTable := FVendedores.DataTable;
|
||||||
|
|
||||||
|
if not FVendedores.DataTable.Active then
|
||||||
|
FVendedores.DataTable.Active := True;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
DADataSource2.DataTable := Nil;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorCalendarioMediciones.InicializarEvento(var aEvent: TcxSchedulerControlEvent);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
with AEvent do
|
||||||
|
begin
|
||||||
|
SetCustomFieldValueByName(fld_CITASTIPOTAREA, TextoTipoCita[Ord(tcMedicion)]);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
destructor TfEditorCalendarioMediciones.Destroy;
|
||||||
|
begin
|
||||||
|
FVendedores := Nil;
|
||||||
|
inherited;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
76
Modulos/Calendarios/Cliente/uEditorCalendarioMontajes.dfm
Normal file
76
Modulos/Calendarios/Cliente/uEditorCalendarioMontajes.dfm
Normal file
@ -0,0 +1,76 @@
|
|||||||
|
inherited fEditorCalendarioMontajes: TfEditorCalendarioMontajes
|
||||||
|
Caption = 'fEditorCalendarioMontajes'
|
||||||
|
PixelsPerInch = 96
|
||||||
|
TextHeight = 13
|
||||||
|
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||||
|
Caption = 'CALENDARIO MONTAJES'
|
||||||
|
end
|
||||||
|
inline frViewCalendarioMontajes: TfrViewCalendarioConFiltro [3]
|
||||||
|
Left = 0
|
||||||
|
Top = 76
|
||||||
|
Width = 666
|
||||||
|
Height = 387
|
||||||
|
Align = alClient
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -11
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = []
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 3
|
||||||
|
ReadOnly = False
|
||||||
|
inherited cxScheduler: TcxScheduler
|
||||||
|
Width = 666
|
||||||
|
Height = 387
|
||||||
|
OptionsView.WorkStart = 0.416666666666666700
|
||||||
|
OptionsView.WorkFinish = 0.854166666666666800
|
||||||
|
Storage = cxSchedulerDBStorage
|
||||||
|
Selection = 28
|
||||||
|
Splitters = {
|
||||||
|
0B020000FA0000009A020000FF00000006020000000000000B02000083010000}
|
||||||
|
StoredClientBounds = {00000000000000009A02000083010000}
|
||||||
|
inherited pnlVendedores: TPanel
|
||||||
|
Height = 132
|
||||||
|
inherited cxResources: TcxCheckListBox
|
||||||
|
Height = 95
|
||||||
|
end
|
||||||
|
inherited Panel2: TPanel
|
||||||
|
Caption = 'Instaladores'
|
||||||
|
end
|
||||||
|
inherited tbxMain: TTBXToolbar
|
||||||
|
Top = 113
|
||||||
|
Height = 19
|
||||||
|
inherited TBXItem5: TTBXItem
|
||||||
|
Action = actVerTodos
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited EditorActionList: TActionList [4]
|
||||||
|
end
|
||||||
|
inherited SmallImages: TPngImageList [5]
|
||||||
|
end
|
||||||
|
inherited LargeImages: TPngImageList [6]
|
||||||
|
end
|
||||||
|
inherited JvFormStorage: TJvFormStorage [7]
|
||||||
|
end
|
||||||
|
inherited JvAppRegistryStorage: TJvAppRegistryStorage [8]
|
||||||
|
end
|
||||||
|
inherited dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList [9]
|
||||||
|
end
|
||||||
|
inherited cxSchedulerDBStorage: TcxSchedulerDBStorage [10]
|
||||||
|
Resources.DataSource = DADataSource2
|
||||||
|
end
|
||||||
|
inherited DADataSource: TDADataSource [11]
|
||||||
|
end
|
||||||
|
inherited dxComponentPrinter1: TdxComponentPrinter [12]
|
||||||
|
inherited dxComponentPrinter1Link2: TcxSchedulerReportLink
|
||||||
|
BuiltInReportLink = True
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object DADataSource2: TDADataSource
|
||||||
|
Left = 96
|
||||||
|
Top = 80
|
||||||
|
end
|
||||||
|
end
|
||||||
149
Modulos/Calendarios/Cliente/uEditorCalendarioMontajes.pas
Normal file
149
Modulos/Calendarios/Cliente/uEditorCalendarioMontajes.pas
Normal file
@ -0,0 +1,149 @@
|
|||||||
|
unit uEditorCalendarioMontajes;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||||
|
Dialogs, uEditorCalendarioBase, dxPSGlbl, dxPSUtl, dxPSEngn, dxPrnPg,
|
||||||
|
dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider, dxPSFillPatterns,
|
||||||
|
dxPSEdgePatterns, dxPrnDlg, dxPSCore, dxPScxCommon, dxPScxScheduler2Lnk,
|
||||||
|
DB, uDADataTable, cxSchedulerStorage, cxSchedulerDBStorage,
|
||||||
|
dxLayoutLookAndFeels, JvAppStorage, JvAppRegistryStorage,
|
||||||
|
JvComponentBase, JvFormPlacement, ImgList, PngImageList, StdActns,
|
||||||
|
ActnList, ComCtrls, TBX, TB2Item, TB2Dock, TB2Toolbar, pngimage,
|
||||||
|
ExtCtrls, JvExControls, JvComponent, JvNavigationPane, uCustomView,
|
||||||
|
uViewBase, uViewCalendarioBase, uViewCalendarioConFiltro,
|
||||||
|
uEditorCalendarioConFiltro, uBizCitas;
|
||||||
|
|
||||||
|
type
|
||||||
|
IEditorCalendarioMontajes = interface(IEditorCalendarioConFiltro)
|
||||||
|
['{158B8A5F-5CF6-43F2-BBD0-C65212089035}']
|
||||||
|
function GetInstaladores: IBizInstaladores;
|
||||||
|
procedure SetInstaladores(const Value: IBizInstaladores);
|
||||||
|
property Instaladores : IBizInstaladores read GetInstaladores write SetInstaladores;
|
||||||
|
end;
|
||||||
|
|
||||||
|
TfEditorCalendarioMontajes = class(TfEditorCalendarioConFiltro, IEditorCalendarioMontajes)
|
||||||
|
frViewCalendarioMontajes: TfrViewCalendarioConFiltro;
|
||||||
|
DADataSource2: TDADataSource;
|
||||||
|
|
||||||
|
procedure EventDisplayText(Sender: TObject; AEvent: TcxSchedulerControlEvent;
|
||||||
|
var AText: String);
|
||||||
|
procedure EventHintText(Sender: TObject; AEvent: TcxSchedulerControlEvent;
|
||||||
|
var AText: String);
|
||||||
|
procedure FormShow(Sender: TObject);
|
||||||
|
private
|
||||||
|
FInstaladores: IBizInstaladores;
|
||||||
|
procedure CargarLista; override;
|
||||||
|
function GetInstaladores: IBizInstaladores;
|
||||||
|
procedure SetInstaladores(const Value: IBizInstaladores);
|
||||||
|
|
||||||
|
protected
|
||||||
|
procedure InicializarEvento (var aEvent : TcxSchedulerControlEvent); override;
|
||||||
|
|
||||||
|
public
|
||||||
|
property Instaladores : IBizInstaladores read GetInstaladores write SetInstaladores;
|
||||||
|
constructor Create(AOwner: TComponent); override;
|
||||||
|
destructor destroy; override;
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
fEditorCalendarioMontajes: TfEditorCalendarioMontajes;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
{$R *.dfm}
|
||||||
|
{ TfEditorCalendarioMontajes }
|
||||||
|
|
||||||
|
uses schCitasClient_Intf;
|
||||||
|
|
||||||
|
procedure TfEditorCalendarioMontajes.CargarLista;
|
||||||
|
begin
|
||||||
|
NombreLista := 'Instaladores';
|
||||||
|
inherited;
|
||||||
|
end;
|
||||||
|
|
||||||
|
constructor TfEditorCalendarioMontajes.Create(AOwner: TComponent);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
ViewCitas := frViewCalendarioMontajes;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TfEditorCalendarioMontajes.GetInstaladores: IBizInstaladores;
|
||||||
|
begin
|
||||||
|
Result := FInstaladores;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorCalendarioMontajes.InicializarEvento(var aEvent: TcxSchedulerControlEvent);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
|
||||||
|
with AEvent do
|
||||||
|
begin
|
||||||
|
SetCustomFieldValueByName(fld_CITASTIPOTAREA, TextoTipoCita[Ord(tcMontaje)]);
|
||||||
|
AllDayEvent := True;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorCalendarioMontajes.SetInstaladores(const Value: IBizInstaladores);
|
||||||
|
begin
|
||||||
|
FInstaladores := Value;
|
||||||
|
|
||||||
|
if Assigned(FInstaladores) then
|
||||||
|
begin
|
||||||
|
DADataSource2.DataTable := FInstaladores.DataTable;
|
||||||
|
|
||||||
|
if not FInstaladores.DataTable.Active then
|
||||||
|
FInstaladores.DataTable.Active := True;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
DADataSource2.DataTable := Nil;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorCalendarioMontajes.EventDisplayText(Sender: TObject; AEvent: TcxSchedulerControlEvent; var AText: String);
|
||||||
|
var
|
||||||
|
Nombre : String;
|
||||||
|
Tipo : String;
|
||||||
|
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
|
||||||
|
if not VarIsNull(AEvent.GetCustomFieldValueByName(fld_CITASNOMBRECLIENTE)) then
|
||||||
|
begin
|
||||||
|
Nombre := VarToStr(AEvent.GetCustomFieldValueByName(fld_CITASNOMBRECLIENTE));
|
||||||
|
Tipo := VarToStr(AEvent.GetCustomFieldValueByName(fld_CITASTIPOTAREA));
|
||||||
|
AText := AEvent.Caption + ' - ' + Tipo + ' (' + Nombre + ')';
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorCalendarioMontajes.EventHintText(Sender: TObject; AEvent: TcxSchedulerControlEvent; var AText: String);
|
||||||
|
var
|
||||||
|
Nombre : String;
|
||||||
|
Tipo : String;
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
if not VarIsNull(AEvent.GetCustomFieldValueByName(fld_CITASNOMBRECLIENTE)) then
|
||||||
|
begin
|
||||||
|
Nombre := VarToStr(AEvent.GetCustomFieldValueByName(fld_CITASNOMBRECLIENTE));
|
||||||
|
Tipo := VarToStr(AEvent.GetCustomFieldValueByName(fld_CITASTIPOTAREA));
|
||||||
|
AText := AEvent.Caption + #10#13 + Tipo + ' (' + Nombre + ')';
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorCalendarioMontajes.FormShow(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited FormShow(Sender);
|
||||||
|
|
||||||
|
ViewCitas.Calendario.OnGetEventDisplayText := EventDisplayText;
|
||||||
|
ViewCitas.Calendario.OnGetEventHintText := EventHintText;
|
||||||
|
end;
|
||||||
|
|
||||||
|
destructor TfEditorCalendarioMontajes.destroy;
|
||||||
|
begin
|
||||||
|
ViewCitas.Calendario.OnGetEventDisplayText := Nil;
|
||||||
|
ViewCitas.Calendario.OnGetEventHintText := Nil;
|
||||||
|
|
||||||
|
inherited;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
67
Modulos/Calendarios/Cliente/uEditorCalendarioRecepciones.dfm
Normal file
67
Modulos/Calendarios/Cliente/uEditorCalendarioRecepciones.dfm
Normal file
@ -0,0 +1,67 @@
|
|||||||
|
inherited fEditorCalendarioRecepciones: TfEditorCalendarioRecepciones
|
||||||
|
Caption = 'fEditorCalendarioRecepciones'
|
||||||
|
PixelsPerInch = 96
|
||||||
|
TextHeight = 13
|
||||||
|
inline frViewCalendarioRecepciones: TfrViewCalendarioConFiltro [3]
|
||||||
|
Left = 0
|
||||||
|
Top = 76
|
||||||
|
Width = 630
|
||||||
|
Height = 319
|
||||||
|
Align = alClient
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -11
|
||||||
|
Font.Name = 'Tahoma'
|
||||||
|
Font.Style = []
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 3
|
||||||
|
ReadOnly = False
|
||||||
|
inherited cxScheduler: TcxScheduler
|
||||||
|
Height = 319
|
||||||
|
OptionsView.WorkStart = 0.416666666666666700
|
||||||
|
OptionsView.WorkFinish = 0.854166666666666800
|
||||||
|
Storage = cxSchedulerDBStorage
|
||||||
|
Selection = 56
|
||||||
|
Splitters = {
|
||||||
|
E7010000FA00000076020000FF000000E201000000000000E70100003F010000}
|
||||||
|
StoredClientBounds = {0000000000000000760200003F010000}
|
||||||
|
inherited pnlVendedores: TPanel
|
||||||
|
Height = 64
|
||||||
|
inherited cxResources: TcxCheckListBox
|
||||||
|
Height = 40
|
||||||
|
end
|
||||||
|
inherited tbxMain: TTBXToolbar
|
||||||
|
Top = 58
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited EditorActionList: TActionList [4]
|
||||||
|
end
|
||||||
|
inherited SmallImages: TPngImageList [5]
|
||||||
|
end
|
||||||
|
inherited LargeImages: TPngImageList [6]
|
||||||
|
end
|
||||||
|
inherited JvFormStorage: TJvFormStorage [7]
|
||||||
|
end
|
||||||
|
inherited JvAppRegistryStorage: TJvAppRegistryStorage [8]
|
||||||
|
end
|
||||||
|
inherited dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList [9]
|
||||||
|
end
|
||||||
|
inherited cxSchedulerDBStorage: TcxSchedulerDBStorage [10]
|
||||||
|
Resources.DataSource = DADataSource2
|
||||||
|
Resources.ResourceName = 'DESCRIPCION'
|
||||||
|
end
|
||||||
|
inherited DADataSource: TDADataSource [11]
|
||||||
|
end
|
||||||
|
inherited dxComponentPrinter1: TdxComponentPrinter [12]
|
||||||
|
inherited dxComponentPrinter1Link2: TcxSchedulerReportLink
|
||||||
|
BuiltInReportLink = True
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object DADataSource2: TDADataSource
|
||||||
|
Left = 95
|
||||||
|
Top = 80
|
||||||
|
end
|
||||||
|
end
|
||||||
142
Modulos/Calendarios/Cliente/uEditorCalendarioRecepciones.pas
Normal file
142
Modulos/Calendarios/Cliente/uEditorCalendarioRecepciones.pas
Normal file
@ -0,0 +1,142 @@
|
|||||||
|
unit uEditorCalendarioRecepciones;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||||
|
Dialogs, uEditorCalendarioConFiltro, dxPSGlbl, dxPSUtl, dxPSEngn,
|
||||||
|
dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider, dxPSFillPatterns,
|
||||||
|
dxPSEdgePatterns, dxPrnDlg, dxPSCore, dxPScxCommon, dxPScxScheduler2Lnk,
|
||||||
|
DB, uDADataTable, cxSchedulerStorage, cxSchedulerDBStorage,
|
||||||
|
dxLayoutLookAndFeels, JvAppStorage, JvAppRegistryStorage, cxCheckBox,
|
||||||
|
JvComponentBase, JvFormPlacement, ImgList, PngImageList, StdActns,
|
||||||
|
ActnList, ComCtrls, TBX, TB2Item, TB2Dock, TB2Toolbar, pngimage,
|
||||||
|
ExtCtrls, JvExControls, JvComponent, JvNavigationPane, uCustomView,
|
||||||
|
uViewBase, uViewCalendarioBase, uViewCalendarioConFiltro, uBizCitas;
|
||||||
|
|
||||||
|
type
|
||||||
|
IEditorCalendarioRecepciones = interface(IEditorCalendarioConFiltro)
|
||||||
|
['{108A5E35-18F4-4100-B4EB-F059AC86BBB4}']
|
||||||
|
function GetDocumentos: IBizDocumentos;
|
||||||
|
procedure SetDocumentos(const Value: IBizDocumentos);
|
||||||
|
property Documentos : IBizDocumentos read GetDocumentos write SetDocumentos;
|
||||||
|
end;
|
||||||
|
|
||||||
|
TfEditorCalendarioRecepciones = class(TfEditorCalendarioConFiltro, IEditorCalendarioRecepciones)
|
||||||
|
frViewCalendarioRecepciones: TfrViewCalendarioConFiltro;
|
||||||
|
DADataSource2: TDADataSource;
|
||||||
|
|
||||||
|
private
|
||||||
|
FDocumentos: IBizDocumentos;
|
||||||
|
procedure CargarLista; override;
|
||||||
|
function GetDocumentos: IBizDocumentos;
|
||||||
|
procedure SetDocumentos(const Value: IBizDocumentos);
|
||||||
|
|
||||||
|
protected
|
||||||
|
procedure InicializarCampos; override;
|
||||||
|
procedure InicializarEvento (var aEvent : TcxSchedulerControlEvent); override;
|
||||||
|
|
||||||
|
public
|
||||||
|
property Documentos : IBizDocumentos read GetDocumentos write SetDocumentos;
|
||||||
|
constructor Create(AOwner: TComponent); override;
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
fEditorCalendarioRecepciones: TfEditorCalendarioRecepciones;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
{$R *.dfm}
|
||||||
|
{ TfEditorCalendarioRecepciones }
|
||||||
|
uses schCitasClient_Intf, uEditorCalendarioBase, uDataModuleCalendarios;
|
||||||
|
|
||||||
|
procedure TfEditorCalendarioRecepciones.CargarLista;
|
||||||
|
begin
|
||||||
|
NombreLista := 'Documentos';
|
||||||
|
inherited;
|
||||||
|
end;
|
||||||
|
|
||||||
|
constructor TfEditorCalendarioRecepciones.Create(AOwner: TComponent);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
ViewCitas := frViewCalendarioRecepciones;
|
||||||
|
// (ViewCitas as IViewCalendarioConFiltro).Resources.OnEditValueChanged := Nil;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TfEditorCalendarioRecepciones.GetDocumentos: IBizDocumentos;
|
||||||
|
begin
|
||||||
|
Result := FDocumentos;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorCalendarioRecepciones.InicializarCampos;
|
||||||
|
var
|
||||||
|
aField : TcxSchedulerDBStorageField;
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
|
||||||
|
with cxSchedulerDBStorage.CustomFields do
|
||||||
|
begin
|
||||||
|
try
|
||||||
|
BeginUpdate;
|
||||||
|
|
||||||
|
aField := Add;
|
||||||
|
aField.FieldName := CTE_TIPO_DOCUMENTO;
|
||||||
|
|
||||||
|
finally
|
||||||
|
EndUpdate;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorCalendarioRecepciones.InicializarEvento(var aEvent: TcxSchedulerControlEvent);
|
||||||
|
var
|
||||||
|
ItemSeleccionado: Integer;
|
||||||
|
ItemTextSeleccionado: String;
|
||||||
|
ADocumento : IBizDocumentos;
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
|
||||||
|
with AEvent do
|
||||||
|
begin
|
||||||
|
SetCustomFieldValueByName(fld_CITASTIPOTAREA, TextoTipoCita[Ord(tcRecepcion)]);
|
||||||
|
|
||||||
|
//Preparamos la fuente de datos para que se cargen los tipos de pedido del documento seleccionado
|
||||||
|
//CAMBIARÁ
|
||||||
|
|
||||||
|
|
||||||
|
with (ViewCitas as IViewCalendarioConFiltro).Resources do
|
||||||
|
begin
|
||||||
|
Items.BeginUpdate;
|
||||||
|
for ItemSeleccionado := 0 to Items.Count - 1 do
|
||||||
|
if Items[ItemSeleccionado].Checked then
|
||||||
|
Break;
|
||||||
|
Items.EndUpdate;
|
||||||
|
end;
|
||||||
|
ItemTextSeleccionado := (ViewCitas as IViewCalendarioConFiltro).Resources.Items[ItemSeleccionado].Text;
|
||||||
|
|
||||||
|
ADocumento := dmCalendarios.GetDocumento(ItemTextSeleccionado);
|
||||||
|
ADocumento.DataTable.Active := True;
|
||||||
|
SetCustomFieldValueByName(CTE_TIPO_DOCUMENTO, ADocumento.CODIGO);
|
||||||
|
ADocumento := Nil;
|
||||||
|
|
||||||
|
AllDayEvent := True;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfEditorCalendarioRecepciones.SetDocumentos(const Value: IBizDocumentos);
|
||||||
|
begin
|
||||||
|
FDocumentos := Value;
|
||||||
|
|
||||||
|
if Assigned(FDocumentos) then
|
||||||
|
begin
|
||||||
|
DADataSource2.DataTable := FDocumentos.DataTable;
|
||||||
|
|
||||||
|
if not FDocumentos.DataTable.Active then
|
||||||
|
FDocumentos.DataTable.Active := True;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
DADataSource2.DataTable := Nil;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
176
Modulos/Calendarios/Cliente/uPluginControllerCalendarios.dfm
Normal file
176
Modulos/Calendarios/Cliente/uPluginControllerCalendarios.dfm
Normal file
@ -0,0 +1,176 @@
|
|||||||
|
object ModuleCalendarios: TModuleCalendarios
|
||||||
|
OldCreateOrder = True
|
||||||
|
DefaultAction = actMediciones
|
||||||
|
Description = 'Agenda'
|
||||||
|
ModuleMenu = MainMenu
|
||||||
|
ModuleName = 'Agenda'
|
||||||
|
SmallImages = SmallImages
|
||||||
|
LargeImages = LargeImages
|
||||||
|
Author = 'Rodax Software'
|
||||||
|
Version = '1.0.0'
|
||||||
|
Left = 743
|
||||||
|
Top = 220
|
||||||
|
Height = 252
|
||||||
|
Width = 401
|
||||||
|
object LargeImages: TPngImageList
|
||||||
|
Height = 24
|
||||||
|
Width = 24
|
||||||
|
PngImages = <
|
||||||
|
item
|
||||||
|
PngImage.Data = {
|
||||||
|
89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D
|
||||||
|
F80000000970485973000017120000171201679FD252000003F74944415478DA
|
||||||
|
BD957B4C5B6514C07F2D2D9416A40B38B083B291381DD98693988118A6892608
|
||||||
|
D14D668CD1CD6982A8F860EA8C7F684C4C9C5B14B30D8D9338CC1E42946C6C63
|
||||||
|
43C79AC5B94D200B5319E1FD280104DA1568A1406F1FB7DE768C50C7A3FEA127
|
||||||
|
3939E77B9CF3CB3DDF77CF27F37ABDFC9722FBDF003299CC6F9F2B3CB65F3285
|
||||||
|
921E283FB07D673049168B990FE02DDBBF8DFBB30AF8A3E6A02C48C08231B380
|
||||||
|
A4F77FF73BE9420B996BEEA6E4E411AC2979419561A118E367A9B200C0474FAC
|
||||||
|
C770FC07FFB8B5AD96B73E2C0E4834E5F03229E94D7B733C2559A1EBF86C8C3A
|
||||||
|
A5C83F6F55B5CF0F18EEEFA3E24811CFECD8455C827EC9E4D302386DFD18AFEE
|
||||||
|
E3CE753BB9E15C81DB0376CD0280F964B1E47E5FF0CEFABEE43E9917F06FAFE0
|
||||||
|
521200386168F46E7D2C65C920B75BC470CD44EBB093419B07BBD383522E121B
|
||||||
|
0E69492A925769A9ACA9E3BBB22AFF8D5A14F0D5B17301E391090FA30A3DFAD5
|
||||||
|
AB707A44CC9609C6C6EC84466A10E572C99F241E1B892A13DF5754070778637B
|
||||||
|
96DFFFF8EB6AE4BA0D444447611E1A637D8292C45825A72AEAC8DC9CC1E5261B
|
||||||
|
ED2607823C0487B193B1EB55341ABE090EE02BCBBBA5CDAC4C4EC2661A212FFB
|
||||||
|
2ED46A39E3D2A1769A44AC935E5C8E712C374638D7EC66C42DC77CF114BD3F7F
|
||||||
|
703BE09F65F149B719E2531FC262B65290134B84464EDFA848EBA048885C3A17
|
||||||
|
E704BB5FC965CB8E7CD6A63FCE9ED37D8C5B46E92DDF9B382FE056596EF9FBAA
|
||||||
|
FA7168A2D0874F93FD600C6E29E4B74E372E3788AE293E7D6D2B9B72B6F0D44B
|
||||||
|
F9A89532BE3DDDCD9501277D35D56F070578EF680FEE3015CF6744B2325E4DAF
|
||||||
|
45C4681699B49A38BAE71D6256E879FAE5D789940E3B4A7B07B5B5FD94363A30
|
||||||
|
35D4960555A26B1389C8140A428DD7C9DFF5243D5272450874345CA4E3D79334
|
||||||
|
751AF1F5CA0D69E9E4BE584071D12F74E9EEC5DC507736A82F283CDCC1B442CD
|
||||||
|
03496AB45A0D4A0533EA458E1B954A895202864A73DA5019672E0D72B0DEC6E0
|
||||||
|
65C3E1A0004595DDB409E1C484B848BB2F6E0E60466792FB7CBD4AC1B6E226DA
|
||||||
|
A54BD0F5E397AF0655A2018B93CEB03588A2C80B9BE2D044A96E4BEE535D9882
|
||||||
|
B3F5837C72DE82BDBB8DC1F23C5D0060F323EBA466E5F1DF7BB7470CF03FAFEC
|
||||||
|
A2C3AB25CC25F066968EB8B8081CD2BACD3AC1EA782DCBA443A9ACFB8BBDE7CD
|
||||||
|
08820BE1D22106EA4B03FF839CCC640E555C98B707395D1ECEB4C8995A9E8830
|
||||||
|
25B051AF62ED72053F9DB84AF6B319185AACB48F79F10802BAA12B4C0C77F1A7
|
||||||
|
A12410B0FB8B92451B9D287AB12912A4D6BB91B098E8D967D6BF26F5697B4F3B
|
||||||
|
F29E0BC4442A9049BD29A017CDDDBCA42C7B541F7ECFC3B9AA98E854294AEB9E
|
||||||
|
B65BEC7DCDF562674595F42A0CCDDDFA374E2097A403759C690000000049454E
|
||||||
|
44AE426082}
|
||||||
|
Name = 'PngImage0'
|
||||||
|
Background = clWindow
|
||||||
|
end>
|
||||||
|
Left = 232
|
||||||
|
Top = 16
|
||||||
|
Bitmap = {}
|
||||||
|
end
|
||||||
|
object ModuleActionList: TActionList
|
||||||
|
Images = LargeImages
|
||||||
|
Left = 40
|
||||||
|
Top = 72
|
||||||
|
object actMediciones: TAction
|
||||||
|
Category = 'Agenda'
|
||||||
|
Caption = 'Agenda'
|
||||||
|
ImageIndex = 0
|
||||||
|
OnExecute = actMedicionesExecute
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object MainMenu: TMainMenu
|
||||||
|
Images = LargeImages
|
||||||
|
Left = 40
|
||||||
|
Top = 16
|
||||||
|
object menu: TMenuItem
|
||||||
|
Tag = 90
|
||||||
|
Caption = 'A&genda'
|
||||||
|
GroupIndex = 1
|
||||||
|
ImageIndex = 0
|
||||||
|
OnClick = actMedicionesExecute
|
||||||
|
object Calendario1: TMenuItem
|
||||||
|
Tag = 90
|
||||||
|
Action = actMediciones
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object SmallImages: TPngImageList
|
||||||
|
PngImages = <
|
||||||
|
item
|
||||||
|
PngImage.Data = {
|
||||||
|
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
|
||||||
|
610000000970485973000017120000171201679FD2520000020E4944415478DA
|
||||||
|
A5935148535118C77FD7B995E5C21CA68B066A08D540849E4620410F93C256AE
|
||||||
|
20230823F42924CAA8071D7B08E9A1879EB37AAA204741413D15962D7CD0A264
|
||||||
|
D440289DC26ACEB5ED7AB7DDDDED76B7B5626CEB213F38FC0FE79CEFF7FD0FDF
|
||||||
|
3942DB9539950D8490038CF576966DA4D2105B57898AD9BCC6122AB2B6169754
|
||||||
|
44A9A0D9CF23950195928B4945402E6A177E03FED77EC3C709048F6752753A4F
|
||||||
|
FCF36026AB925632DA1514D2E94C7EEE79F18EBBF79F9603DC6E7749B2AAF95B
|
||||||
|
150D289B9A51F57564D6C30C0F9EE4F5CC87EA0097CB95D78B97AE71F9C6130E
|
||||||
|
D9BB097C8FB1B8A6407D1391509446C9CFDBA9E77F01952A7F93F7D269B3D165
|
||||||
|
D1B3D3A4239294F185B6303B1F6439AAE3EBCB3BA58062E59C5E1819A7C6DACF
|
||||||
|
E90346AC1D26225A6796B58E8C9F3D86AD6F884FD1DDBC9FF3557710485868DC
|
||||||
|
7790D1336DC43302B32B1213C3FDEC393240778F03EFF4021E6FB8BA83C1B187
|
||||||
|
44B20D5C3DDF85683473F39CA3A4407DC729BCB1D6EA0E96E226A2663B037DED
|
||||||
|
246A7424D3DA238A49646BB7D2BE0D269FCDF3783A5800F43A8EFFE9AF9C536D
|
||||||
|
ACFE4C30FAE807965D469CF65616E302920CE63AD08B6B0CDDF22107BF14003D
|
||||||
|
878F72CFF3AAEC01F9571466C22DB46C376035496C1652C4754D3C78134289C7
|
||||||
|
6896A60A80EBB7CB938B91CC1A499AF69334EC20256B1F4A4E61100398053F06
|
||||||
|
240455DDD06FE617B61D3A44F24E4F720000000049454E44AE426082}
|
||||||
|
Name = 'PngImage0'
|
||||||
|
Background = clWindow
|
||||||
|
end>
|
||||||
|
PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled]
|
||||||
|
Left = 308
|
||||||
|
Top = 16
|
||||||
|
Bitmap = {}
|
||||||
|
end
|
||||||
|
object ExtraImages: TPngImageList
|
||||||
|
Height = 28
|
||||||
|
Width = 28
|
||||||
|
PngImages = <
|
||||||
|
item
|
||||||
|
PngImage.Data = {
|
||||||
|
89504E470D0A1A0A0000000D494844520000001C0000001C0806000000720DDF
|
||||||
|
940000000970485973000017120000171201679FD252000004D64944415478DA
|
||||||
|
BD957D50545514C07F6FD905044492B5D6044CD210FCFE0C9B093533C4444B82
|
||||||
|
1C14AB51FE404873C26AC68FCCB226C5D132354B9D880835191D1D5304B2A6D1
|
||||||
|
48938F2C34244405D915C4E563835D78BBBDB7C88B6D91D8FEF0CCDC39F79E77
|
||||||
|
CFFDBD73EE3BE709369B8DFB29820C14044131C4AFC8785152FBA5B1E0EB8F12
|
||||||
|
0EB87A604FFE765637405BE6B6458C9FB58CA29C5D828BBC1EFD1560F09B854A
|
||||||
|
5EA7984B498E9B4FCA86548C6396BA9CB29EFC2B3E1C2F28C075D1A3EDC6DC43
|
||||||
|
FB899F399DB5DB37B27CCDC74E07B65BC16C81568BCD3E4C2DB2EE589BDB245D
|
||||||
|
7648F1F79F9CA63C134B5751787267F7C088D061EC3E9CEE046C6D93615D0016
|
||||||
|
4798FC22B6CA438ABFF7D8B4BBFB405DDE0350964B97CF3A007B0393E71E37B3
|
||||||
|
157FB7B0CD76BB2CF704EA6F5CE7607A1A712FA5A20B0C720926DB04D30DAA8B
|
||||||
|
B6E117BA82BAB600E585EF09FCB7B80273DCE7788E13D0E5CFD145F12BD9F30F
|
||||||
|
303BB7C41633738C4B07AC395049F6B1DFB971BDCEC11E18A425267A04CB676A
|
||||||
|
11452BA2D5CA915305ECCB3CFADFC04F324E3AD9F4EEC315D0CA9469786BFB4B
|
||||||
|
69173B8645A4C5D24EE6CE5C059CF8A42FC7F2CFF51E989230CB21AA6D3B7E60
|
||||||
|
69EC281E191B82A1BA960754CD840DF1E3F9C8CD1CCE5945E95523E78D7D308B
|
||||||
|
36BECB3AC36BC953D1592EFF3F60E8A2E344853F4CD098C7B85A7289D9E10F32
|
||||||
|
794200CD2DAD145FD4E3A90BC068B252F8D36F9CBB2922FAF861B8504EE2742B
|
||||||
|
5F7D73C235606774EFBD1F4B45512949B121E8745E4859E48A41A4FA8E0D3715
|
||||||
|
988C356C5DB99025EBF6917EA69ECB3F96313DF00ED5B7CB9C81DDDD59A7ECC8
|
||||||
|
11ED7722658A886015E19307D9E767AFB4633283462D9543731D69AFC6316771
|
||||||
|
1233E6BDC0D1C3BF9073BB2FD7F38B19EA7E86E2BCCF9C815D53D875ED1391CE
|
||||||
|
9AF5F351D55D2331360C51B0D128F5D19FCBDB259880A5C5C8A665F3895CB084
|
||||||
|
C8D878346E022A53138BB79660F8B50A9D299FF20B5FBA064C5D3D8F89FD9B09
|
||||||
|
9FA0A35DB215558AF6E8AACA0AF9E2835446854F65CEC25750BBC1C08041685A
|
||||||
|
CD246F29A0B4E816FD0C7954FF91E11A30E58D68B62C7E878CAC25F8870CA741
|
||||||
|
8A502DA5727DC253AC7D7727EB5727A192FEADF2EF352DF320519336F1E8AC27
|
||||||
|
A8AA6AC5479F87BE2CA3F777F8D6E70696AE8CE2E9000B6DBE03A48296618294
|
||||||
|
3AA9A599EEB0213186ED47F2159B466D23A88F86675ECFE55291817EFA135497
|
||||||
|
EDEF7D8472494C9D3B9E606E133C7A186A55C787A276EBD032447D57CB6B1F09
|
||||||
|
DC58594BDC9E0A6ACE5748777842BA4317809D6511B9600A8F6B2D8C98385482
|
||||||
|
09DDC23C241DE4A92179D3F71498FD69CA3F89BF7B1925797B7B0FEC8C322422
|
||||||
|
94D69A1A52660FC677D0000495CD218D7D352A06BAABF934EB02BB2E8AB4379A
|
||||||
|
08AD3D4D4D53BD631D3E376314BB324FF5D8B0E53E2A473929269C56BD8184B1
|
||||||
|
DECC891A4963730BE346BE8DB1762BB70C0DA46515937BCB13542ABC0A8E9310
|
||||||
|
3F8ECCEC5C4760F4B491F6CE6EEFF0F62E6FA35D997768AB54E97BCF3629CD3B
|
||||||
|
70FA68A92EF50CF65571F35A1DBA210FF167A3805AABA5ADDE8857C969E626BD
|
||||||
|
DC7D2F9D1D11C6DE83F9F4461A1B4C7C9B574971BDB6DBE7FD340D0CF7AA21F2
|
||||||
|
D9097879FBD86D4EC08D5B76F70AD655CC52D36EAC1369B3796015540896BFF0
|
||||||
|
F430D357EB89BBA7B7D37E05783FE56F92C591F6D1A442580000000049454E44
|
||||||
|
AE426082}
|
||||||
|
Name = 'PngImage0'
|
||||||
|
Background = clWindow
|
||||||
|
end>
|
||||||
|
Left = 232
|
||||||
|
Top = 80
|
||||||
|
Bitmap = {}
|
||||||
|
end
|
||||||
|
end
|
||||||
79
Modulos/Calendarios/Cliente/uPluginControllerCalendarios.pas
Normal file
79
Modulos/Calendarios/Cliente/uPluginControllerCalendarios.pas
Normal file
@ -0,0 +1,79 @@
|
|||||||
|
unit uPluginControllerCalendarios;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
uModuleController, uInterfaces, uHostManager, Menus, Classes, ActnList,
|
||||||
|
ImgList, Controls, PngImageList;
|
||||||
|
|
||||||
|
type
|
||||||
|
IMCCuentas = interface(IInterface)
|
||||||
|
['{269979BB-DCF8-41FD-8F46-57022242FE86}']
|
||||||
|
end;
|
||||||
|
|
||||||
|
TModuleCalendarios = class(TModuleController, IMCCuentas)
|
||||||
|
actMediciones: TAction;
|
||||||
|
menu: TMenuItem;
|
||||||
|
ExtraImages: TPngImageList;
|
||||||
|
LargeImages: TPngImageList;
|
||||||
|
MainMenu: TMainMenu;
|
||||||
|
ModuleActionList: TActionList;
|
||||||
|
Calendario1: TMenuItem;
|
||||||
|
SmallImages: TPngImageList;
|
||||||
|
procedure actMedicionesExecute(Sender: TObject);
|
||||||
|
public
|
||||||
|
end;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
{$R *.dfm}
|
||||||
|
|
||||||
|
uses
|
||||||
|
Forms, Dialogs, uGUIBase, SysUtils, uDataModuleCalendarios,
|
||||||
|
uBizCitas,
|
||||||
|
|
||||||
|
uEditorCalendarioMediciones, uEditorCalendarioBase,
|
||||||
|
uEditorCalendarioConFiltro;
|
||||||
|
|
||||||
|
function GetModule : TModuleController;
|
||||||
|
begin
|
||||||
|
Result := TModuleCalendarios.Create(NIL);
|
||||||
|
end;
|
||||||
|
|
||||||
|
exports
|
||||||
|
GetModule name GET_MODULE_FUNC;
|
||||||
|
|
||||||
|
{
|
||||||
|
******************************* TModuleContactos *******************************
|
||||||
|
}
|
||||||
|
|
||||||
|
procedure TModuleCalendarios.actMedicionesExecute(Sender: TObject);
|
||||||
|
var
|
||||||
|
aObj: IEditorCalendarioMediciones;
|
||||||
|
ACitas : IBizCitas;
|
||||||
|
AVendedores : IBizVendedores;
|
||||||
|
begin
|
||||||
|
ACitas := dmCalendarios.GetMediciones;
|
||||||
|
AVendedores := dmCalendarios.GetVendedores;
|
||||||
|
aObj := TfEditorCalendarioMediciones.Create(Application);
|
||||||
|
try
|
||||||
|
with aObj do
|
||||||
|
begin
|
||||||
|
Citas := ACitas;
|
||||||
|
Vendedores := AVendedores;
|
||||||
|
ShowEmbedded;
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
ACitas := NIL;
|
||||||
|
AVendedores := NIL;
|
||||||
|
aObj := NIL;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
initialization
|
||||||
|
RegisterModuleClass(TModuleCalendarios);
|
||||||
|
|
||||||
|
finalization
|
||||||
|
UnRegisterModuleClass(TModuleCalendarios);
|
||||||
|
|
||||||
|
end.
|
||||||
45
Modulos/Calendarios/Cliente/uViewCalendarioBase.dfm
Normal file
45
Modulos/Calendarios/Cliente/uViewCalendarioBase.dfm
Normal file
@ -0,0 +1,45 @@
|
|||||||
|
inherited frViewCalendarioBase: TfrViewCalendarioBase
|
||||||
|
Width = 443
|
||||||
|
Height = 270
|
||||||
|
Align = alClient
|
||||||
|
object cxScheduler: TcxScheduler
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
Width = 443
|
||||||
|
Height = 270
|
||||||
|
DateNavigator.RowCount = 2
|
||||||
|
DateNavigator.ShowWeekNumbers = False
|
||||||
|
ViewDay.Active = True
|
||||||
|
ViewDay.AutoContentHeight = True
|
||||||
|
ViewDay.GroupingKind = gkByDate
|
||||||
|
ViewTimeGrid.ShowTimeAsClock = True
|
||||||
|
ViewWeek.GroupingKind = gkByDate
|
||||||
|
ViewWeek.ShowTimeAsClock = True
|
||||||
|
ViewWeeks.GroupingKind = gkNone
|
||||||
|
ViewWeeks.ShowTimeAsClock = True
|
||||||
|
Align = alClient
|
||||||
|
BevelInner = bvNone
|
||||||
|
BevelOuter = bvNone
|
||||||
|
BorderStyle = cxcbsNone
|
||||||
|
ContentPopupMenu.Items = [cpmiNewEvent, cpmiToday, cpmiGoToThisDay]
|
||||||
|
DialogsLookAndFeel.NativeStyle = True
|
||||||
|
EventOperations.InplaceEditing = False
|
||||||
|
EventOperations.Recurrence = False
|
||||||
|
EventPopupMenu.Items = [epmiOpen, epmiDelete]
|
||||||
|
LookAndFeel.Kind = lfUltraFlat
|
||||||
|
LookAndFeel.NativeStyle = False
|
||||||
|
OptionsCustomize.DynamicSizing = True
|
||||||
|
OptionsView.DayBorderColor = clActiveCaption
|
||||||
|
OptionsView.ShowEventsWithoutResource = True
|
||||||
|
OptionsView.WorkDays = [dMonday, dTuesday, dWednesday, dThursday, dFriday, dSaturday]
|
||||||
|
OptionsView.WorkStart = 0.416666666666666700
|
||||||
|
OptionsView.WorkFinish = 0.854166666666666800
|
||||||
|
ParentFont = True
|
||||||
|
ShowHint = True
|
||||||
|
TabOrder = 0
|
||||||
|
Selection = 1
|
||||||
|
Splitters = {
|
||||||
|
2C010000FA000000BB010000FF00000027010000000000002C0100000E010000}
|
||||||
|
StoredClientBounds = {0000000000000000BB0100000E010000}
|
||||||
|
end
|
||||||
|
end
|
||||||
79
Modulos/Calendarios/Cliente/uViewCalendarioBase.pas
Normal file
79
Modulos/Calendarios/Cliente/uViewCalendarioBase.pas
Normal file
@ -0,0 +1,79 @@
|
|||||||
|
unit uViewCalendarioBase;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||||
|
Dialogs, uViewBase, dxLayoutControl, cxControls, Menus, cxStyles,
|
||||||
|
cxGraphics, cxEdit, cxScheduler, cxSchedulerStorage,
|
||||||
|
cxSchedulerCustomControls, cxSchedulerCustomResourceView,
|
||||||
|
cxSchedulerDayView, cxSchedulerDateNavigator, cxSchedulerTimeGridView,
|
||||||
|
cxSchedulerUtils, cxSchedulerWeekView, cxSchedulerYearView, dxPrnDev,
|
||||||
|
dxPSGlbl, dxPSUtl, dxPSEngn, dxPrnPg, dxBkgnd, dxWrap, dxPSCompsProvider,
|
||||||
|
dxPSFillPatterns, dxPSEdgePatterns, dxPSCore, dxPScxCommon,
|
||||||
|
dxPScxScheduler2Lnk, dxPrnDlg, cxSchedulerDBStorage, ActnList, DB,
|
||||||
|
uDADataTable, uBizCitas, JvAppStorage, JvAppRegistryStorage,
|
||||||
|
JvComponentBase, JvFormPlacement, uViewGrid;
|
||||||
|
|
||||||
|
type
|
||||||
|
IViewCalendarioBase = interface(IViewBase)
|
||||||
|
['{A5CF0823-17C6-4FBA-9DC8-6E8D310503F5}']
|
||||||
|
function getCalendario: TcxScheduler;
|
||||||
|
property Calendario: TcxScheduler read getCalendario;
|
||||||
|
|
||||||
|
function GetpAnchorDate: TDateTime;
|
||||||
|
procedure SetpAnchorDate(const Value: TDateTime);
|
||||||
|
property pAnchorDate: TDateTime read GetpAnchorDate write SetpAnchorDate;
|
||||||
|
end;
|
||||||
|
|
||||||
|
TfrViewCalendarioBase = class(TfrViewBase, IViewCalendarioBase)
|
||||||
|
cxScheduler : TcxScheduler;
|
||||||
|
private
|
||||||
|
AnchorDate: TDateTime;
|
||||||
|
|
||||||
|
protected
|
||||||
|
function GetpAnchorDate: TDateTime;
|
||||||
|
procedure SetpAnchorDate(const Value: TDateTime);
|
||||||
|
|
||||||
|
function getCalendario: TcxScheduler;
|
||||||
|
public
|
||||||
|
property pAnchorDate: TDateTime read GetpAnchorDate write SetpAnchorDate;
|
||||||
|
property Calendario: TcxScheduler read getCalendario;
|
||||||
|
constructor Create(AOwner : TComponent); override;
|
||||||
|
destructor Destroy; override;
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
frViewCalendarioBase: TfrViewCalendarioBase;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
{$R *.dfm}
|
||||||
|
|
||||||
|
constructor TfrViewCalendarioBase.Create(AOwner: TComponent);
|
||||||
|
begin
|
||||||
|
inherited Create(AOwner);
|
||||||
|
AnchorDate := Date;
|
||||||
|
end;
|
||||||
|
|
||||||
|
destructor TfrViewCalendarioBase.Destroy;
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TfrViewCalendarioBase.getCalendario: TcxScheduler;
|
||||||
|
begin
|
||||||
|
Result := cxScheduler;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TfrViewCalendarioBase.GetpAnchorDate: TDateTime;
|
||||||
|
begin
|
||||||
|
Result := AnchorDate;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewCalendarioBase.SetpAnchorDate(const Value: TDateTime);
|
||||||
|
begin
|
||||||
|
AnchorDate := Value;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
624
Modulos/Calendarios/Cliente/uViewCalendarioConFiltro.dfm
Normal file
624
Modulos/Calendarios/Cliente/uViewCalendarioConFiltro.dfm
Normal file
@ -0,0 +1,624 @@
|
|||||||
|
inherited frViewCalendarioConFiltro: TfrViewCalendarioConFiltro
|
||||||
|
inherited cxScheduler: TcxScheduler
|
||||||
|
OnInitEventImages = cxSchedulerInitEventImages
|
||||||
|
ControlBox.Control = pnlVendedores
|
||||||
|
EventImages = ImageList1
|
||||||
|
OptionsView.WorkStart = 0.416666666666666700
|
||||||
|
OptionsView.WorkFinish = 0.854166666666666800
|
||||||
|
Selection = 1
|
||||||
|
Splitters = {
|
||||||
|
2C010000FA000000BB010000FF00000027010000000000002C0100000E010000}
|
||||||
|
StoredClientBounds = {0000000000000000BB0100000E010000}
|
||||||
|
object pnlVendedores: TPanel
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
Width = 143
|
||||||
|
Height = 15
|
||||||
|
Align = alClient
|
||||||
|
BevelOuter = bvNone
|
||||||
|
Color = 16383743
|
||||||
|
Constraints.MaxHeight = 440
|
||||||
|
ParentBackground = True
|
||||||
|
TabOrder = 0
|
||||||
|
object cxResources: TcxCheckListBox
|
||||||
|
Left = 0
|
||||||
|
Top = 18
|
||||||
|
Width = 143
|
||||||
|
Height = 416
|
||||||
|
Align = alClient
|
||||||
|
Items = <>
|
||||||
|
ParentFont = False
|
||||||
|
Sorted = True
|
||||||
|
Style.BorderStyle = cbsNone
|
||||||
|
Style.LookAndFeel.Kind = lfStandard
|
||||||
|
Style.TransparentBorder = False
|
||||||
|
StyleDisabled.BorderStyle = cbsNone
|
||||||
|
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||||
|
StyleFocused.BorderStyle = cbsNone
|
||||||
|
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||||
|
StyleHot.BorderStyle = cbsNone
|
||||||
|
StyleHot.LookAndFeel.Kind = lfStandard
|
||||||
|
TabOrder = 0
|
||||||
|
OnEditValueChanged = cxResourcesEditValueChanged
|
||||||
|
end
|
||||||
|
object Panel2: TPanel
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
Width = 143
|
||||||
|
Height = 18
|
||||||
|
Align = alTop
|
||||||
|
BevelInner = bvSpace
|
||||||
|
BevelOuter = bvNone
|
||||||
|
Caption = 'Titulo filtro'
|
||||||
|
Color = 14280169
|
||||||
|
Font.Charset = DEFAULT_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -11
|
||||||
|
Font.Name = 'MS Sans Serif'
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 1
|
||||||
|
end
|
||||||
|
object tbxMain: TTBXToolbar
|
||||||
|
Left = 0
|
||||||
|
Top = 9
|
||||||
|
Width = 143
|
||||||
|
Height = 6
|
||||||
|
Align = alBottom
|
||||||
|
Caption = 'tbxMain'
|
||||||
|
ChevronHint = 'M'#225's botones|'
|
||||||
|
DockMode = dmCannotFloatOrChangeDocks
|
||||||
|
DockPos = -23
|
||||||
|
DockRow = 1
|
||||||
|
DragHandleStyle = dhNone
|
||||||
|
ParentShowHint = False
|
||||||
|
ShowHint = True
|
||||||
|
TabOrder = 2
|
||||||
|
object TBXItem5: TTBXItem
|
||||||
|
DisplayMode = nbdmImageAndText
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object ImageList1: TImageList
|
||||||
|
Height = 32
|
||||||
|
Width = 32
|
||||||
|
Left = 744
|
||||||
|
Top = 280
|
||||||
|
Bitmap = {
|
||||||
|
494C010101000400040020002000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
|
||||||
|
0000000000003600000028000000800000002000000001002000000000000040
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
00000000000000000000000000000000000000000000000000000A0A0AFF0A0A
|
||||||
|
0AFF0A0A0AFF0A0A0AFF0A0A0AFF000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
00000000000000000000000000000000000000000000000000000A0A0AFF0A0A
|
||||||
|
0AFF306074FF0A0A0AFF0A0A0AFF0A0A0AFF0000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
000000000000000000000000000000000000000000000A0A0AFF0A0A0AFF76FC
|
||||||
|
FAFF76FCFAFF306074FF0A0A0AFF0A0A0AFF0A0A0AFF00000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000A0A0AFF0A0A0AFF76FCFAFF76FC
|
||||||
|
FAFF76FCFAFF76FCFAFF306074FF0A0A0AFF0A0A0AFF0A0A0AFF000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
00000000000000000000000000000A0A0AFF0A0A0AFF76FCFAFF76FCFAFF76FC
|
||||||
|
FAFF76FCFAFF76FCFAFF76FCFAFF306074FF0A0A0AFF0A0A0AFF0A0A0AFF0000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
000000000000000000000A0A0AFF0A0A0AFF76FCFAFF76FCFAFF76FCFAFF76FC
|
||||||
|
FAFF43CCFFFF76FCFAFF76FCFAFF76FCFAFF306074FF0A0A0AFF0A0A0AFF0A0A
|
||||||
|
0AFF000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
000000000000000000000A0A0AFF0A0A0AFF76FCFAFF76FCFAFF306074FF60B7
|
||||||
|
D0FF43CCFFFF76FCFAFF76FCFAFF76FCFAFF76FCFAFF306074FF0A0A0AFF0A0A
|
||||||
|
0AFF0A0A0AFF0000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
00000000000000000000000000000A0A0AFF0A0A0AFF306074FF0A0A0AFF43CC
|
||||||
|
FFFF76FCFAFF43CCFFFF306074FF43CCFFFF76FCFAFF76FCFAFF306074FF0A0A
|
||||||
|
0AFF0A0A0AFF0A0A0AFF00000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000A0A0AFF0A0A0AFF43CCFFFF76FC
|
||||||
|
FAFF43CCFFFF306074FF0A0A0AFF43CCFFFF76FCFAFF76FCFAFF76FCFAFF3060
|
||||||
|
74FF0A0A0AFF0A0A0AFF0A0A0AFF000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
000000000000000000000000000000000000000000000A0A0AFF0A0A0AFF97DE
|
||||||
|
F3FF306074FF0A0A0AFF43CCFFFF76FCFAFF76FCFAFF76FCFAFF76FCFAFF76FC
|
||||||
|
FAFF306074FF0A0A0AFF0A0A0AFF0A0A0AFF0000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
00000000000000000000000000000000000000000000000000000A0A0AFF0A0A
|
||||||
|
0AFF0A0A0AFF43CCFFFF76FCFAFF76FCFAFF76FCFAFF43CCFFFF76FCFAFF76FC
|
||||||
|
FAFF76FCFAFF306074FF0A0A0AFF0A0A0AFF0A0A0AFF00000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000A0A
|
||||||
|
0AFF0A0A0AFF76FCFAFF76FCFAFF306074FF60B7D0FF43CCFFFF76FCFAFF76FC
|
||||||
|
FAFF76FCFAFF76FCFAFF306074FF0A0A0AFF0A0A0AFF0A0A0AFF000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
00000A0A0AFF0A0A0AFF306074FF0A0A0AFF43CCFFFF76FCFAFF43CCFFFF3060
|
||||||
|
74FF43CCFFFF76FCFAFF76FCFAFF306074FF0A0A0AFF0A0A0AFF0A0A0AFF0000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000A0A0AFF0A0A0AFF43CCFFFF76FCFAFF43CCFFFF306074FF0A0A
|
||||||
|
0AFF60B7D0FF76FCFAFF76FCFAFF76FCFAFF306074FF0A0A0AFF0A0A0AFF0A0A
|
||||||
|
0AFF000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
000000000000000000000A0A0AFF0A0A0AFF43CCFFFF306074FF0A0A0AFF43CC
|
||||||
|
FFFF43CCFFFF76FCFAFF76FCFAFF76FCFAFF76FCFAFF306074FF0A0A0AFF0A0A
|
||||||
|
0AFF000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
00000000000000000000000000000A0A0AFF0A0A0AFF0A0A0AFF43CCFFFF76FC
|
||||||
|
FAFF76FCFAFF76FCFAFF76FCFAFF76FCFAFF76FCFAFF76FCFAFF306074FF0A0A
|
||||||
|
0AFF000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000A0A0AFF0A0A0AFF97DEF3FF76FC
|
||||||
|
FAFF306074FF60B7D0FF43CCFFFF76FCFAFF76FCFAFF76FCFAFF306074FF0A0A
|
||||||
|
0AFF000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
000000000000000000000000000000000000000000000A0A0AFF0A0A0AFF3060
|
||||||
|
74FF0A0A0AFF43CCFFFF76FCFAFF76FCFAFF76FCFAFF306074FF0A0A0AFF0000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
00000000000000000000000000000000000000000000000000000A0A0AFF0A0A
|
||||||
|
0AFF43CCFFFF76FCFAFF76FCFAFF76FCFAFF306074FF0A0A0AFF000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000A0A
|
||||||
|
0AFF0A0A0AFF76FCFAFF76FCFAFF306074FF0A0A0AFF00000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
00000A0A0AFF0A0A0AFF306074FF0A0A0AFF0000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000A0A0AFF0A0A0AFF000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
0000000000000000000000000000000000000000000000000000000000000000
|
||||||
|
000000000000000000000000000000000000424D3E000000000000003E000000
|
||||||
|
2800000080000000200000000100010000000000000200000000000000000000
|
||||||
|
000000000000000000000000FFFFFF00FFFFFFFF000000000000000000000000
|
||||||
|
FFFFFFFF000000000000000000000000FFFFFFFF000000000000000000000000
|
||||||
|
FFFFFFFF000000000000000000000000FFC1FFFF000000000000000000000000
|
||||||
|
FFC0FFFF000000000000000000000000FF807FFF000000000000000000000000
|
||||||
|
FF003FFF000000000000000000000000FE001FFF000000000000000000000000
|
||||||
|
FC000FFF000000000000000000000000FC0007FF000000000000000000000000
|
||||||
|
FE0003FF000000000000000000000000FF0001FF000000000000000000000000
|
||||||
|
FF8000FF000000000000000000000000FFC0007F000000000000000000000000
|
||||||
|
FFE0003F000000000000000000000000FFF0001F000000000000000000000000
|
||||||
|
FFF8000F000000000000000000000000FFFC000F000000000000000000000000
|
||||||
|
FFFE000F000000000000000000000000FFFF000F000000000000000000000000
|
||||||
|
FFFF801F000000000000000000000000FFFFC03F000000000000000000000000
|
||||||
|
FFFFE07F000000000000000000000000FFFFF0FF000000000000000000000000
|
||||||
|
FFFFF9FF000000000000000000000000FFFFFFFF000000000000000000000000
|
||||||
|
FFFFFFFF000000000000000000000000FFFFFFFF000000000000000000000000
|
||||||
|
FFFFFFFF000000000000000000000000FFFFFFFF000000000000000000000000
|
||||||
|
FFFFFFFF00000000000000000000000000000000000000000000000000000000
|
||||||
|
000000000000}
|
||||||
|
end
|
||||||
|
end
|
||||||
119
Modulos/Calendarios/Cliente/uViewCalendarioConFiltro.pas
Normal file
119
Modulos/Calendarios/Cliente/uViewCalendarioConFiltro.pas
Normal file
@ -0,0 +1,119 @@
|
|||||||
|
unit uViewCalendarioConFiltro;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||||
|
Dialogs, uViewCalendarioBase, Menus, cxStyles, cxGraphics, cxEdit,
|
||||||
|
cxScheduler, cxSchedulerStorage, cxSchedulerCustomControls,
|
||||||
|
cxSchedulerCustomResourceView, cxSchedulerDayView,
|
||||||
|
cxSchedulerDateNavigator, cxSchedulerTimeGridView, cxSchedulerUtils,
|
||||||
|
cxSchedulerWeekView, cxSchedulerYearView, dxPrnDev, dxPSGlbl, dxPSUtl,
|
||||||
|
dxPSEngn, dxPrnPg, dxBkgnd, dxWrap, dxPSCompsProvider, dxPSFillPatterns,
|
||||||
|
dxPSEdgePatterns, cxContainer, cxCheckListBox, ExtCtrls,
|
||||||
|
dxPSCore, dxPScxCommon, dxPScxScheduler2Lnk, dxPrnDlg,
|
||||||
|
cxSchedulerDBStorage, ActnList, cxControls, JvAppStorage,
|
||||||
|
JvAppRegistryStorage, JvComponentBase, JvFormPlacement, TB2Item, TBX,
|
||||||
|
TB2Dock, TB2Toolbar, DB, uDADataTable, ImgList;
|
||||||
|
|
||||||
|
type
|
||||||
|
IViewCalendarioConFiltro = interface(IViewCalendarioBase)
|
||||||
|
['{636C30A6-74A9-4B6D-A68A-2B26DE208A7F}']
|
||||||
|
function getResources: TcxCheckListBox;
|
||||||
|
property Resources: TcxCheckListBox read getResources;
|
||||||
|
end;
|
||||||
|
|
||||||
|
TfrViewCalendarioConFiltro = class(TfrViewCalendarioBase, IViewCalendarioConFiltro)
|
||||||
|
pnlVendedores: TPanel;
|
||||||
|
cxResources: TcxCheckListBox;
|
||||||
|
Panel2: TPanel;
|
||||||
|
tbxMain: TTBXToolbar;
|
||||||
|
TBXItem5: TTBXItem;
|
||||||
|
ImageList1: TImageList;
|
||||||
|
procedure cxResourcesEditValueChanged(Sender: TObject);
|
||||||
|
procedure cxSchedulerInitEventImages(Sender: TcxCustomScheduler;
|
||||||
|
AEvent: TcxSchedulerControlEvent; AImages: TcxSchedulerEventImages);
|
||||||
|
protected
|
||||||
|
function getResources: TcxCheckListBox;
|
||||||
|
public
|
||||||
|
property Resources: TcxCheckListBox read getResources;
|
||||||
|
|
||||||
|
public
|
||||||
|
constructor Create(AOwner : TComponent); override;
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
frViewCalendarioConFiltro: TfrViewCalendarioConFiltro;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
{$R *.dfm}
|
||||||
|
|
||||||
|
procedure TfrViewCalendarioConFiltro.cxResourcesEditValueChanged(Sender: TObject);
|
||||||
|
var
|
||||||
|
AIndex: Integer;
|
||||||
|
begin
|
||||||
|
AIndex := cxResources.ItemIndex;
|
||||||
|
|
||||||
|
if AIndex < 0 then
|
||||||
|
Exit;
|
||||||
|
with cxResources.Items[AIndex] do
|
||||||
|
TcxSchedulerStorageResourceItem(ItemObject).Visible := Checked;
|
||||||
|
|
||||||
|
if cxScheduler.Storage.Resources.ResourceItems.VisibleResourceCount = 0 then
|
||||||
|
begin
|
||||||
|
cxResources.Items[AIndex].Checked := True;
|
||||||
|
Exit;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewCalendarioConFiltro.cxSchedulerInitEventImages(
|
||||||
|
Sender: TcxCustomScheduler; AEvent: TcxSchedulerControlEvent;
|
||||||
|
AImages: TcxSchedulerEventImages);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
if not cxScheduler.ViewWeeks.Active then
|
||||||
|
if AEvent.LabelColor = EventLabelColors[6] then
|
||||||
|
AImages.Add(0);
|
||||||
|
end;
|
||||||
|
|
||||||
|
constructor TfrViewCalendarioConFiltro.Create(AOwner: TComponent);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
{
|
||||||
|
dsCitas.DataSet := TablaCitas;
|
||||||
|
dsVendedores.DataSet := TablaVendedores;
|
||||||
|
|
||||||
|
with TablaCitas do
|
||||||
|
begin
|
||||||
|
Database := dmBaseDatos.BD;
|
||||||
|
Transaction := dmBaseDatos.Transaccion;
|
||||||
|
SelectSQL.Assign(dmTablaCitas.sqlConsultar);
|
||||||
|
SelectSQL.Add('WHERE TIPOTAREA = ''' + TextoTipoCita[Ord(tcMedicion)] + '''');
|
||||||
|
InsertSQL.Assign(dmTablaCitas.sqlInsertar);
|
||||||
|
ModifySQL.Assign(dmTablaCitas.sqlModificar);
|
||||||
|
DeleteSQL.Assign(dmTablaCitas.sqlEliminar);
|
||||||
|
RefreshSQL.Assign(dmTablaCitas.sqlRefrescar);
|
||||||
|
RefreshSQL.Add('and TIPOTAREA = ''' + TextoTipoCita[Ord(tcMedicion)] + '''');
|
||||||
|
|
||||||
|
BeforePost := TablaCitasBeforePost;
|
||||||
|
AfterPost := TablaCitasAfterPost;
|
||||||
|
Prepare;
|
||||||
|
end;
|
||||||
|
|
||||||
|
with TablaVendedores do
|
||||||
|
begin
|
||||||
|
Database := dmBaseDatos.BD;
|
||||||
|
Transaction := dmBaseDatos.Transaccion;
|
||||||
|
SelectSQL.Add('select * from VENDEDORES');
|
||||||
|
Prepare;
|
||||||
|
end;
|
||||||
|
}
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TfrViewCalendarioConFiltro.getResources: TcxCheckListBox;
|
||||||
|
begin
|
||||||
|
Result := cxResources;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
26
Modulos/Calendarios/Cliente/uViewCalendarioMediciones.dfm
Normal file
26
Modulos/Calendarios/Cliente/uViewCalendarioMediciones.dfm
Normal file
@ -0,0 +1,26 @@
|
|||||||
|
inherited frViewCalendarioMediciones: TfrViewCalendarioMediciones
|
||||||
|
Width = 586
|
||||||
|
Height = 406
|
||||||
|
inherited cxScheduler: TcxScheduler
|
||||||
|
Width = 586
|
||||||
|
Height = 406
|
||||||
|
OptionsView.WorkStart = 0.416666666666666700
|
||||||
|
OptionsView.WorkFinish = 0.854166666666666800
|
||||||
|
Selection = 231
|
||||||
|
Splitters = {
|
||||||
|
BB010000FA0000004A020000FF000000B601000000000000BB01000096010000}
|
||||||
|
StoredClientBounds = {00000000000000004A02000096010000}
|
||||||
|
inherited pnlVendedores: TPanel
|
||||||
|
Height = 151
|
||||||
|
inherited cxResources: TcxCheckListBox
|
||||||
|
Height = 127
|
||||||
|
end
|
||||||
|
inherited Panel2: TPanel
|
||||||
|
Caption = 'Vendedores'
|
||||||
|
end
|
||||||
|
inherited tbxMain: TTBXToolbar
|
||||||
|
Top = 145
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
29
Modulos/Calendarios/Cliente/uViewCalendarioMediciones.pas
Normal file
29
Modulos/Calendarios/Cliente/uViewCalendarioMediciones.pas
Normal file
@ -0,0 +1,29 @@
|
|||||||
|
unit uViewCalendarioMediciones;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||||
|
Dialogs, uViewCalendarioConFiltro, Menus, cxStyles, cxGraphics, cxEdit,
|
||||||
|
cxScheduler, cxSchedulerStorage, cxSchedulerCustomControls,
|
||||||
|
cxSchedulerCustomResourceView, cxSchedulerDayView,
|
||||||
|
cxSchedulerDateNavigator, cxSchedulerTimeGridView, cxSchedulerUtils,
|
||||||
|
cxSchedulerWeekView, cxSchedulerYearView, ImgList, TB2Item, TBX, TB2Dock,
|
||||||
|
TB2Toolbar, cxContainer, cxCheckListBox, ExtCtrls, cxControls;
|
||||||
|
|
||||||
|
type
|
||||||
|
TfrViewCalendarioMediciones = class(TfrViewCalendarioConFiltro)
|
||||||
|
private
|
||||||
|
{ Private declarations }
|
||||||
|
public
|
||||||
|
{ Public declarations }
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
frViewCalendarioMediciones: TfrViewCalendarioMediciones;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
{$R *.dfm}
|
||||||
|
|
||||||
|
end.
|
||||||
862
Modulos/Calendarios/Reglas/schCitasClient_Intf.pas
Normal file
862
Modulos/Calendarios/Reglas/schCitasClient_Intf.pas
Normal file
@ -0,0 +1,862 @@
|
|||||||
|
unit schCitasClient_Intf;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Classes, DB, SysUtils, uROClasses, uDADataTable;
|
||||||
|
|
||||||
|
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_CITAS = '{8A00AC3C-FD7C-4241-B7C7-8EFD1937F000}';
|
||||||
|
RID_VENDEDORES = '{59850C69-DF4D-44E2-BA00-C4FDC03E39E0}';
|
||||||
|
|
||||||
|
{ Data table names }
|
||||||
|
nme_CITAS = 'CITAS';
|
||||||
|
nme_VENDEDORES = 'VENDEDORES';
|
||||||
|
|
||||||
|
{ CITAS fields }
|
||||||
|
fld_CITASID = 'ID';
|
||||||
|
fld_CITASPARENTID = 'PARENTID';
|
||||||
|
fld_CITASSTART = 'START';
|
||||||
|
fld_CITASTIPO = 'TIPO';
|
||||||
|
fld_CITASFINISH = 'FINISH';
|
||||||
|
fld_CITASOPTIONS = 'OPTIONS';
|
||||||
|
fld_CITASCAPTION = 'CAPTION';
|
||||||
|
fld_CITASMENSAJE = 'MENSAJE';
|
||||||
|
fld_CITASRECURRENCEINDEX = 'RECURRENCEINDEX';
|
||||||
|
fld_CITASRESOURCEID = 'RESOURCEID';
|
||||||
|
fld_CITASLOCATION = 'LOCATION';
|
||||||
|
fld_CITASREMINDER = 'REMINDER';
|
||||||
|
fld_CITASSTATE = 'STATE';
|
||||||
|
fld_CITASLABELCOLOR = 'LABELCOLOR';
|
||||||
|
fld_CITASCODIGOCONTRATO = 'CODIGOCONTRATO';
|
||||||
|
fld_CITASTIPOTAREA = 'TIPOTAREA';
|
||||||
|
fld_CITASNOMBRECLIENTE = 'NOMBRECLIENTE';
|
||||||
|
fld_CITASPARTIDA = 'PARTIDA';
|
||||||
|
fld_CITASCOMPLETADA = 'COMPLETADA';
|
||||||
|
fld_CITASNOMBREPROVEEDOR = 'NOMBREPROVEEDOR';
|
||||||
|
fld_CITASCODIGOCOLUMNA = 'CODIGOCOLUMNA';
|
||||||
|
fld_CITASCODIGOFILA = 'CODIGOFILA';
|
||||||
|
fld_CITASEMPRESA = 'EMPRESA';
|
||||||
|
|
||||||
|
{ CITAS field indexes }
|
||||||
|
idx_CITASID = 0;
|
||||||
|
idx_CITASPARENTID = 1;
|
||||||
|
idx_CITASSTART = 2;
|
||||||
|
idx_CITASTIPO = 3;
|
||||||
|
idx_CITASFINISH = 4;
|
||||||
|
idx_CITASOPTIONS = 5;
|
||||||
|
idx_CITASCAPTION = 6;
|
||||||
|
idx_CITASMENSAJE = 7;
|
||||||
|
idx_CITASRECURRENCEINDEX = 8;
|
||||||
|
idx_CITASRESOURCEID = 9;
|
||||||
|
idx_CITASLOCATION = 10;
|
||||||
|
idx_CITASREMINDER = 11;
|
||||||
|
idx_CITASSTATE = 12;
|
||||||
|
idx_CITASLABELCOLOR = 13;
|
||||||
|
idx_CITASCODIGOCONTRATO = 14;
|
||||||
|
idx_CITASTIPOTAREA = 15;
|
||||||
|
idx_CITASNOMBRECLIENTE = 16;
|
||||||
|
idx_CITASPARTIDA = 17;
|
||||||
|
idx_CITASCOMPLETADA = 18;
|
||||||
|
idx_CITASNOMBREPROVEEDOR = 19;
|
||||||
|
idx_CITASCODIGOCOLUMNA = 20;
|
||||||
|
idx_CITASCODIGOFILA = 21;
|
||||||
|
idx_CITASEMPRESA = 22;
|
||||||
|
|
||||||
|
{ VENDEDORES fields }
|
||||||
|
fld_VENDEDORESCODIGOEMPRESA = 'CODIGOEMPRESA';
|
||||||
|
fld_VENDEDORESCODIGO = 'CODIGO';
|
||||||
|
fld_VENDEDORESFECHAALTA = 'FECHAALTA';
|
||||||
|
fld_VENDEDORESUSUARIO = 'USUARIO';
|
||||||
|
fld_VENDEDORESNIFCIF = 'NIFCIF';
|
||||||
|
fld_VENDEDORESNOMBRE = 'NOMBRE';
|
||||||
|
fld_VENDEDORESNOTAS = 'NOTAS';
|
||||||
|
fld_VENDEDORESCALLE = 'CALLE';
|
||||||
|
fld_VENDEDORESPROVINCIA = 'PROVINCIA';
|
||||||
|
fld_VENDEDORESCODIGOPOSTAL = 'CODIGOPOSTAL';
|
||||||
|
fld_VENDEDORESPOBLACION = 'POBLACION';
|
||||||
|
fld_VENDEDORESTELEFONO1 = 'TELEFONO1';
|
||||||
|
fld_VENDEDORESTELEFONO2 = 'TELEFONO2';
|
||||||
|
fld_VENDEDORESMOVIL = 'MOVIL';
|
||||||
|
fld_VENDEDORESFAX = 'FAX';
|
||||||
|
fld_VENDEDORESCORREO1 = 'CORREO1';
|
||||||
|
fld_VENDEDORESCORREO2 = 'CORREO2';
|
||||||
|
fld_VENDEDORESPAGINAWEB = 'PAGINAWEB';
|
||||||
|
fld_VENDEDORESPERSONACONTACTO = 'PERSONACONTACTO';
|
||||||
|
|
||||||
|
{ VENDEDORES field indexes }
|
||||||
|
idx_VENDEDORESCODIGOEMPRESA = 0;
|
||||||
|
idx_VENDEDORESCODIGO = 1;
|
||||||
|
idx_VENDEDORESFECHAALTA = 2;
|
||||||
|
idx_VENDEDORESUSUARIO = 3;
|
||||||
|
idx_VENDEDORESNIFCIF = 4;
|
||||||
|
idx_VENDEDORESNOMBRE = 5;
|
||||||
|
idx_VENDEDORESNOTAS = 6;
|
||||||
|
idx_VENDEDORESCALLE = 7;
|
||||||
|
idx_VENDEDORESPROVINCIA = 8;
|
||||||
|
idx_VENDEDORESCODIGOPOSTAL = 9;
|
||||||
|
idx_VENDEDORESPOBLACION = 10;
|
||||||
|
idx_VENDEDORESTELEFONO1 = 11;
|
||||||
|
idx_VENDEDORESTELEFONO2 = 12;
|
||||||
|
idx_VENDEDORESMOVIL = 13;
|
||||||
|
idx_VENDEDORESFAX = 14;
|
||||||
|
idx_VENDEDORESCORREO1 = 15;
|
||||||
|
idx_VENDEDORESCORREO2 = 16;
|
||||||
|
idx_VENDEDORESPAGINAWEB = 17;
|
||||||
|
idx_VENDEDORESPERSONACONTACTO = 18;
|
||||||
|
|
||||||
|
type
|
||||||
|
{ ICITAS }
|
||||||
|
ICITAS = interface(IDAStronglyTypedDataTable)
|
||||||
|
['{03AC3728-729B-4224-B900-4A4A1666746B}']
|
||||||
|
{ Property getters and setters }
|
||||||
|
function GetIDValue: Integer;
|
||||||
|
procedure SetIDValue(const aValue: Integer);
|
||||||
|
function GetPARENTIDValue: Integer;
|
||||||
|
procedure SetPARENTIDValue(const aValue: Integer);
|
||||||
|
function GetSTARTValue: DateTime;
|
||||||
|
procedure SetSTARTValue(const aValue: DateTime);
|
||||||
|
function GetTIPOValue: Integer;
|
||||||
|
procedure SetTIPOValue(const aValue: Integer);
|
||||||
|
function GetFINISHValue: DateTime;
|
||||||
|
procedure SetFINISHValue(const aValue: DateTime);
|
||||||
|
function GetOPTIONSValue: Integer;
|
||||||
|
procedure SetOPTIONSValue(const aValue: Integer);
|
||||||
|
function GetCAPTIONValue: String;
|
||||||
|
procedure SetCAPTIONValue(const aValue: String);
|
||||||
|
function GetMENSAJEValue: String;
|
||||||
|
procedure SetMENSAJEValue(const aValue: String);
|
||||||
|
function GetRECURRENCEINDEXValue: Integer;
|
||||||
|
procedure SetRECURRENCEINDEXValue(const aValue: Integer);
|
||||||
|
function GetRESOURCEIDValue: Integer;
|
||||||
|
procedure SetRESOURCEIDValue(const aValue: Integer);
|
||||||
|
function GetLOCATIONValue: String;
|
||||||
|
procedure SetLOCATIONValue(const aValue: String);
|
||||||
|
function GetREMINDERValue: Integer;
|
||||||
|
procedure SetREMINDERValue(const aValue: Integer);
|
||||||
|
function GetSTATEValue: Integer;
|
||||||
|
procedure SetSTATEValue(const aValue: Integer);
|
||||||
|
function GetLABELCOLORValue: Integer;
|
||||||
|
procedure SetLABELCOLORValue(const aValue: Integer);
|
||||||
|
function GetCODIGOCONTRATOValue: String;
|
||||||
|
procedure SetCODIGOCONTRATOValue(const aValue: String);
|
||||||
|
function GetTIPOTAREAValue: String;
|
||||||
|
procedure SetTIPOTAREAValue(const aValue: String);
|
||||||
|
function GetNOMBRECLIENTEValue: String;
|
||||||
|
procedure SetNOMBRECLIENTEValue(const aValue: String);
|
||||||
|
function GetPARTIDAValue: String;
|
||||||
|
procedure SetPARTIDAValue(const aValue: String);
|
||||||
|
function GetCOMPLETADAValue: DateTime;
|
||||||
|
procedure SetCOMPLETADAValue(const aValue: DateTime);
|
||||||
|
function GetNOMBREPROVEEDORValue: String;
|
||||||
|
procedure SetNOMBREPROVEEDORValue(const aValue: String);
|
||||||
|
function GetCODIGOCOLUMNAValue: Integer;
|
||||||
|
procedure SetCODIGOCOLUMNAValue(const aValue: Integer);
|
||||||
|
function GetCODIGOFILAValue: Integer;
|
||||||
|
procedure SetCODIGOFILAValue(const aValue: Integer);
|
||||||
|
function GetEMPRESAValue: Integer;
|
||||||
|
procedure SetEMPRESAValue(const aValue: Integer);
|
||||||
|
|
||||||
|
|
||||||
|
{ Properties }
|
||||||
|
property ID: Integer read GetIDValue write SetIDValue;
|
||||||
|
property PARENTID: Integer read GetPARENTIDValue write SetPARENTIDValue;
|
||||||
|
property START: DateTime read GetSTARTValue write SetSTARTValue;
|
||||||
|
property TIPO: Integer read GetTIPOValue write SetTIPOValue;
|
||||||
|
property FINISH: DateTime read GetFINISHValue write SetFINISHValue;
|
||||||
|
property OPTIONS: Integer read GetOPTIONSValue write SetOPTIONSValue;
|
||||||
|
property CAPTION: String read GetCAPTIONValue write SetCAPTIONValue;
|
||||||
|
property MENSAJE: String read GetMENSAJEValue write SetMENSAJEValue;
|
||||||
|
property RECURRENCEINDEX: Integer read GetRECURRENCEINDEXValue write SetRECURRENCEINDEXValue;
|
||||||
|
property RESOURCEID: Integer read GetRESOURCEIDValue write SetRESOURCEIDValue;
|
||||||
|
property LOCATION: String read GetLOCATIONValue write SetLOCATIONValue;
|
||||||
|
property REMINDER: Integer read GetREMINDERValue write SetREMINDERValue;
|
||||||
|
property STATE: Integer read GetSTATEValue write SetSTATEValue;
|
||||||
|
property LABELCOLOR: Integer read GetLABELCOLORValue write SetLABELCOLORValue;
|
||||||
|
property CODIGOCONTRATO: String read GetCODIGOCONTRATOValue write SetCODIGOCONTRATOValue;
|
||||||
|
property TIPOTAREA: String read GetTIPOTAREAValue write SetTIPOTAREAValue;
|
||||||
|
property NOMBRECLIENTE: String read GetNOMBRECLIENTEValue write SetNOMBRECLIENTEValue;
|
||||||
|
property PARTIDA: String read GetPARTIDAValue write SetPARTIDAValue;
|
||||||
|
property COMPLETADA: DateTime read GetCOMPLETADAValue write SetCOMPLETADAValue;
|
||||||
|
property NOMBREPROVEEDOR: String read GetNOMBREPROVEEDORValue write SetNOMBREPROVEEDORValue;
|
||||||
|
property CODIGOCOLUMNA: Integer read GetCODIGOCOLUMNAValue write SetCODIGOCOLUMNAValue;
|
||||||
|
property CODIGOFILA: Integer read GetCODIGOFILAValue write SetCODIGOFILAValue;
|
||||||
|
property EMPRESA: Integer read GetEMPRESAValue write SetEMPRESAValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
{ TCITASDataTableRules }
|
||||||
|
TCITASDataTableRules = class(TDADataTableRules, ICITAS)
|
||||||
|
private
|
||||||
|
protected
|
||||||
|
{ Property getters and setters }
|
||||||
|
function GetIDValue: Integer; virtual;
|
||||||
|
procedure SetIDValue(const aValue: Integer); virtual;
|
||||||
|
function GetPARENTIDValue: Integer; virtual;
|
||||||
|
procedure SetPARENTIDValue(const aValue: Integer); virtual;
|
||||||
|
function GetSTARTValue: DateTime; virtual;
|
||||||
|
procedure SetSTARTValue(const aValue: DateTime); virtual;
|
||||||
|
function GetTIPOValue: Integer; virtual;
|
||||||
|
procedure SetTIPOValue(const aValue: Integer); virtual;
|
||||||
|
function GetFINISHValue: DateTime; virtual;
|
||||||
|
procedure SetFINISHValue(const aValue: DateTime); virtual;
|
||||||
|
function GetOPTIONSValue: Integer; virtual;
|
||||||
|
procedure SetOPTIONSValue(const aValue: Integer); virtual;
|
||||||
|
function GetCAPTIONValue: String; virtual;
|
||||||
|
procedure SetCAPTIONValue(const aValue: String); virtual;
|
||||||
|
function GetMENSAJEValue: String; virtual;
|
||||||
|
procedure SetMENSAJEValue(const aValue: String); virtual;
|
||||||
|
function GetRECURRENCEINDEXValue: Integer; virtual;
|
||||||
|
procedure SetRECURRENCEINDEXValue(const aValue: Integer); virtual;
|
||||||
|
function GetRESOURCEIDValue: Integer; virtual;
|
||||||
|
procedure SetRESOURCEIDValue(const aValue: Integer); virtual;
|
||||||
|
function GetLOCATIONValue: String; virtual;
|
||||||
|
procedure SetLOCATIONValue(const aValue: String); virtual;
|
||||||
|
function GetREMINDERValue: Integer; virtual;
|
||||||
|
procedure SetREMINDERValue(const aValue: Integer); virtual;
|
||||||
|
function GetSTATEValue: Integer; virtual;
|
||||||
|
procedure SetSTATEValue(const aValue: Integer); virtual;
|
||||||
|
function GetLABELCOLORValue: Integer; virtual;
|
||||||
|
procedure SetLABELCOLORValue(const aValue: Integer); virtual;
|
||||||
|
function GetCODIGOCONTRATOValue: String; virtual;
|
||||||
|
procedure SetCODIGOCONTRATOValue(const aValue: String); virtual;
|
||||||
|
function GetTIPOTAREAValue: String; virtual;
|
||||||
|
procedure SetTIPOTAREAValue(const aValue: String); virtual;
|
||||||
|
function GetNOMBRECLIENTEValue: String; virtual;
|
||||||
|
procedure SetNOMBRECLIENTEValue(const aValue: String); virtual;
|
||||||
|
function GetPARTIDAValue: String; virtual;
|
||||||
|
procedure SetPARTIDAValue(const aValue: String); virtual;
|
||||||
|
function GetCOMPLETADAValue: DateTime; virtual;
|
||||||
|
procedure SetCOMPLETADAValue(const aValue: DateTime); virtual;
|
||||||
|
function GetNOMBREPROVEEDORValue: String; virtual;
|
||||||
|
procedure SetNOMBREPROVEEDORValue(const aValue: String); virtual;
|
||||||
|
function GetCODIGOCOLUMNAValue: Integer; virtual;
|
||||||
|
procedure SetCODIGOCOLUMNAValue(const aValue: Integer); virtual;
|
||||||
|
function GetCODIGOFILAValue: Integer; virtual;
|
||||||
|
procedure SetCODIGOFILAValue(const aValue: Integer); virtual;
|
||||||
|
function GetEMPRESAValue: Integer; virtual;
|
||||||
|
procedure SetEMPRESAValue(const aValue: Integer); virtual;
|
||||||
|
|
||||||
|
{ Properties }
|
||||||
|
property ID: Integer read GetIDValue write SetIDValue;
|
||||||
|
property PARENTID: Integer read GetPARENTIDValue write SetPARENTIDValue;
|
||||||
|
property START: DateTime read GetSTARTValue write SetSTARTValue;
|
||||||
|
property TIPO: Integer read GetTIPOValue write SetTIPOValue;
|
||||||
|
property FINISH: DateTime read GetFINISHValue write SetFINISHValue;
|
||||||
|
property OPTIONS: Integer read GetOPTIONSValue write SetOPTIONSValue;
|
||||||
|
property CAPTION: String read GetCAPTIONValue write SetCAPTIONValue;
|
||||||
|
property MENSAJE: String read GetMENSAJEValue write SetMENSAJEValue;
|
||||||
|
property RECURRENCEINDEX: Integer read GetRECURRENCEINDEXValue write SetRECURRENCEINDEXValue;
|
||||||
|
property RESOURCEID: Integer read GetRESOURCEIDValue write SetRESOURCEIDValue;
|
||||||
|
property LOCATION: String read GetLOCATIONValue write SetLOCATIONValue;
|
||||||
|
property REMINDER: Integer read GetREMINDERValue write SetREMINDERValue;
|
||||||
|
property STATE: Integer read GetSTATEValue write SetSTATEValue;
|
||||||
|
property LABELCOLOR: Integer read GetLABELCOLORValue write SetLABELCOLORValue;
|
||||||
|
property CODIGOCONTRATO: String read GetCODIGOCONTRATOValue write SetCODIGOCONTRATOValue;
|
||||||
|
property TIPOTAREA: String read GetTIPOTAREAValue write SetTIPOTAREAValue;
|
||||||
|
property NOMBRECLIENTE: String read GetNOMBRECLIENTEValue write SetNOMBRECLIENTEValue;
|
||||||
|
property PARTIDA: String read GetPARTIDAValue write SetPARTIDAValue;
|
||||||
|
property COMPLETADA: DateTime read GetCOMPLETADAValue write SetCOMPLETADAValue;
|
||||||
|
property NOMBREPROVEEDOR: String read GetNOMBREPROVEEDORValue write SetNOMBREPROVEEDORValue;
|
||||||
|
property CODIGOCOLUMNA: Integer read GetCODIGOCOLUMNAValue write SetCODIGOCOLUMNAValue;
|
||||||
|
property CODIGOFILA: Integer read GetCODIGOFILAValue write SetCODIGOFILAValue;
|
||||||
|
property EMPRESA: Integer read GetEMPRESAValue write SetEMPRESAValue;
|
||||||
|
|
||||||
|
public
|
||||||
|
constructor Create(aDataTable: TDADataTable); override;
|
||||||
|
destructor Destroy; override;
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
{ IVENDEDORES }
|
||||||
|
IVENDEDORES = interface(IDAStronglyTypedDataTable)
|
||||||
|
['{97DEA09F-C83C-47D3-8854-74212F62078A}']
|
||||||
|
{ Property getters and setters }
|
||||||
|
function GetCODIGOEMPRESAValue: Integer;
|
||||||
|
procedure SetCODIGOEMPRESAValue(const aValue: Integer);
|
||||||
|
function GetCODIGOValue: Integer;
|
||||||
|
procedure SetCODIGOValue(const aValue: Integer);
|
||||||
|
function GetFECHAALTAValue: DateTime;
|
||||||
|
procedure SetFECHAALTAValue(const aValue: DateTime);
|
||||||
|
function GetUSUARIOValue: String;
|
||||||
|
procedure SetUSUARIOValue(const aValue: String);
|
||||||
|
function GetNIFCIFValue: String;
|
||||||
|
procedure SetNIFCIFValue(const aValue: String);
|
||||||
|
function GetNOMBREValue: String;
|
||||||
|
procedure SetNOMBREValue(const aValue: String);
|
||||||
|
function GetNOTASValue: String;
|
||||||
|
procedure SetNOTASValue(const aValue: String);
|
||||||
|
function GetCALLEValue: String;
|
||||||
|
procedure SetCALLEValue(const aValue: String);
|
||||||
|
function GetPROVINCIAValue: String;
|
||||||
|
procedure SetPROVINCIAValue(const aValue: String);
|
||||||
|
function GetCODIGOPOSTALValue: String;
|
||||||
|
procedure SetCODIGOPOSTALValue(const aValue: String);
|
||||||
|
function GetPOBLACIONValue: String;
|
||||||
|
procedure SetPOBLACIONValue(const aValue: String);
|
||||||
|
function GetTELEFONO1Value: String;
|
||||||
|
procedure SetTELEFONO1Value(const aValue: String);
|
||||||
|
function GetTELEFONO2Value: String;
|
||||||
|
procedure SetTELEFONO2Value(const aValue: String);
|
||||||
|
function GetMOVILValue: String;
|
||||||
|
procedure SetMOVILValue(const aValue: String);
|
||||||
|
function GetFAXValue: String;
|
||||||
|
procedure SetFAXValue(const aValue: String);
|
||||||
|
function GetCORREO1Value: String;
|
||||||
|
procedure SetCORREO1Value(const aValue: String);
|
||||||
|
function GetCORREO2Value: String;
|
||||||
|
procedure SetCORREO2Value(const aValue: String);
|
||||||
|
function GetPAGINAWEBValue: String;
|
||||||
|
procedure SetPAGINAWEBValue(const aValue: String);
|
||||||
|
function GetPERSONACONTACTOValue: String;
|
||||||
|
procedure SetPERSONACONTACTOValue(const aValue: String);
|
||||||
|
|
||||||
|
|
||||||
|
{ Properties }
|
||||||
|
property CODIGOEMPRESA: Integer read GetCODIGOEMPRESAValue write SetCODIGOEMPRESAValue;
|
||||||
|
property CODIGO: Integer read GetCODIGOValue write SetCODIGOValue;
|
||||||
|
property FECHAALTA: DateTime read GetFECHAALTAValue write SetFECHAALTAValue;
|
||||||
|
property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
|
||||||
|
property NIFCIF: String read GetNIFCIFValue write SetNIFCIFValue;
|
||||||
|
property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
|
||||||
|
property NOTAS: String read GetNOTASValue write SetNOTASValue;
|
||||||
|
property CALLE: String read GetCALLEValue write SetCALLEValue;
|
||||||
|
property PROVINCIA: String read GetPROVINCIAValue write SetPROVINCIAValue;
|
||||||
|
property CODIGOPOSTAL: String read GetCODIGOPOSTALValue write SetCODIGOPOSTALValue;
|
||||||
|
property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue;
|
||||||
|
property TELEFONO1: String read GetTELEFONO1Value write SetTELEFONO1Value;
|
||||||
|
property TELEFONO2: String read GetTELEFONO2Value write SetTELEFONO2Value;
|
||||||
|
property MOVIL: String read GetMOVILValue write SetMOVILValue;
|
||||||
|
property FAX: String read GetFAXValue write SetFAXValue;
|
||||||
|
property CORREO1: String read GetCORREO1Value write SetCORREO1Value;
|
||||||
|
property CORREO2: String read GetCORREO2Value write SetCORREO2Value;
|
||||||
|
property PAGINAWEB: String read GetPAGINAWEBValue write SetPAGINAWEBValue;
|
||||||
|
property PERSONACONTACTO: String read GetPERSONACONTACTOValue write SetPERSONACONTACTOValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
{ TVENDEDORESDataTableRules }
|
||||||
|
TVENDEDORESDataTableRules = class(TDADataTableRules, IVENDEDORES)
|
||||||
|
private
|
||||||
|
protected
|
||||||
|
{ Property getters and setters }
|
||||||
|
function GetCODIGOEMPRESAValue: Integer; virtual;
|
||||||
|
procedure SetCODIGOEMPRESAValue(const aValue: Integer); virtual;
|
||||||
|
function GetCODIGOValue: Integer; virtual;
|
||||||
|
procedure SetCODIGOValue(const aValue: Integer); virtual;
|
||||||
|
function GetFECHAALTAValue: DateTime; virtual;
|
||||||
|
procedure SetFECHAALTAValue(const aValue: DateTime); virtual;
|
||||||
|
function GetUSUARIOValue: String; virtual;
|
||||||
|
procedure SetUSUARIOValue(const aValue: String); virtual;
|
||||||
|
function GetNIFCIFValue: String; virtual;
|
||||||
|
procedure SetNIFCIFValue(const aValue: String); virtual;
|
||||||
|
function GetNOMBREValue: String; virtual;
|
||||||
|
procedure SetNOMBREValue(const aValue: String); virtual;
|
||||||
|
function GetNOTASValue: String; virtual;
|
||||||
|
procedure SetNOTASValue(const aValue: String); virtual;
|
||||||
|
function GetCALLEValue: String; virtual;
|
||||||
|
procedure SetCALLEValue(const aValue: String); virtual;
|
||||||
|
function GetPROVINCIAValue: String; virtual;
|
||||||
|
procedure SetPROVINCIAValue(const aValue: String); virtual;
|
||||||
|
function GetCODIGOPOSTALValue: String; virtual;
|
||||||
|
procedure SetCODIGOPOSTALValue(const aValue: String); virtual;
|
||||||
|
function GetPOBLACIONValue: String; virtual;
|
||||||
|
procedure SetPOBLACIONValue(const aValue: String); virtual;
|
||||||
|
function GetTELEFONO1Value: String; virtual;
|
||||||
|
procedure SetTELEFONO1Value(const aValue: String); virtual;
|
||||||
|
function GetTELEFONO2Value: String; virtual;
|
||||||
|
procedure SetTELEFONO2Value(const aValue: String); virtual;
|
||||||
|
function GetMOVILValue: String; virtual;
|
||||||
|
procedure SetMOVILValue(const aValue: String); virtual;
|
||||||
|
function GetFAXValue: String; virtual;
|
||||||
|
procedure SetFAXValue(const aValue: String); virtual;
|
||||||
|
function GetCORREO1Value: String; virtual;
|
||||||
|
procedure SetCORREO1Value(const aValue: String); virtual;
|
||||||
|
function GetCORREO2Value: String; virtual;
|
||||||
|
procedure SetCORREO2Value(const aValue: String); virtual;
|
||||||
|
function GetPAGINAWEBValue: String; virtual;
|
||||||
|
procedure SetPAGINAWEBValue(const aValue: String); virtual;
|
||||||
|
function GetPERSONACONTACTOValue: String; virtual;
|
||||||
|
procedure SetPERSONACONTACTOValue(const aValue: String); virtual;
|
||||||
|
|
||||||
|
{ Properties }
|
||||||
|
property CODIGOEMPRESA: Integer read GetCODIGOEMPRESAValue write SetCODIGOEMPRESAValue;
|
||||||
|
property CODIGO: Integer read GetCODIGOValue write SetCODIGOValue;
|
||||||
|
property FECHAALTA: DateTime read GetFECHAALTAValue write SetFECHAALTAValue;
|
||||||
|
property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
|
||||||
|
property NIFCIF: String read GetNIFCIFValue write SetNIFCIFValue;
|
||||||
|
property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
|
||||||
|
property NOTAS: String read GetNOTASValue write SetNOTASValue;
|
||||||
|
property CALLE: String read GetCALLEValue write SetCALLEValue;
|
||||||
|
property PROVINCIA: String read GetPROVINCIAValue write SetPROVINCIAValue;
|
||||||
|
property CODIGOPOSTAL: String read GetCODIGOPOSTALValue write SetCODIGOPOSTALValue;
|
||||||
|
property POBLACION: String read GetPOBLACIONValue write SetPOBLACIONValue;
|
||||||
|
property TELEFONO1: String read GetTELEFONO1Value write SetTELEFONO1Value;
|
||||||
|
property TELEFONO2: String read GetTELEFONO2Value write SetTELEFONO2Value;
|
||||||
|
property MOVIL: String read GetMOVILValue write SetMOVILValue;
|
||||||
|
property FAX: String read GetFAXValue write SetFAXValue;
|
||||||
|
property CORREO1: String read GetCORREO1Value write SetCORREO1Value;
|
||||||
|
property CORREO2: String read GetCORREO2Value write SetCORREO2Value;
|
||||||
|
property PAGINAWEB: String read GetPAGINAWEBValue write SetPAGINAWEBValue;
|
||||||
|
property PERSONACONTACTO: String read GetPERSONACONTACTOValue write SetPERSONACONTACTOValue;
|
||||||
|
|
||||||
|
public
|
||||||
|
constructor Create(aDataTable: TDADataTable); override;
|
||||||
|
destructor Destroy; override;
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
uses Variants;
|
||||||
|
|
||||||
|
{ TCITASDataTableRules }
|
||||||
|
constructor TCITASDataTableRules.Create(aDataTable: TDADataTable);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
end;
|
||||||
|
|
||||||
|
destructor TCITASDataTableRules.Destroy;
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TCITASDataTableRules.GetIDValue: Integer;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_CITASID].AsInteger;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TCITASDataTableRules.SetIDValue(const aValue: Integer);
|
||||||
|
begin
|
||||||
|
DataTable.Fields[idx_CITASID].AsInteger := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TCITASDataTableRules.GetPARENTIDValue: Integer;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_CITASPARENTID].AsInteger;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TCITASDataTableRules.SetPARENTIDValue(const aValue: Integer);
|
||||||
|
begin
|
||||||
|
DataTable.Fields[idx_CITASPARENTID].AsInteger := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TCITASDataTableRules.GetSTARTValue: DateTime;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_CITASSTART].AsDateTime;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TCITASDataTableRules.SetSTARTValue(const aValue: DateTime);
|
||||||
|
begin
|
||||||
|
DataTable.Fields[idx_CITASSTART].AsDateTime := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TCITASDataTableRules.GetTIPOValue: Integer;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_CITASTIPO].AsInteger;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TCITASDataTableRules.SetTIPOValue(const aValue: Integer);
|
||||||
|
begin
|
||||||
|
DataTable.Fields[idx_CITASTIPO].AsInteger := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TCITASDataTableRules.GetFINISHValue: DateTime;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_CITASFINISH].AsDateTime;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TCITASDataTableRules.SetFINISHValue(const aValue: DateTime);
|
||||||
|
begin
|
||||||
|
DataTable.Fields[idx_CITASFINISH].AsDateTime := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TCITASDataTableRules.GetOPTIONSValue: Integer;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_CITASOPTIONS].AsInteger;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TCITASDataTableRules.SetOPTIONSValue(const aValue: Integer);
|
||||||
|
begin
|
||||||
|
DataTable.Fields[idx_CITASOPTIONS].AsInteger := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TCITASDataTableRules.GetCAPTIONValue: String;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_CITASCAPTION].AsString;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TCITASDataTableRules.SetCAPTIONValue(const aValue: String);
|
||||||
|
begin
|
||||||
|
DataTable.Fields[idx_CITASCAPTION].AsString := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TCITASDataTableRules.GetMENSAJEValue: String;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_CITASMENSAJE].AsString;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TCITASDataTableRules.SetMENSAJEValue(const aValue: String);
|
||||||
|
begin
|
||||||
|
DataTable.Fields[idx_CITASMENSAJE].AsString := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TCITASDataTableRules.GetRECURRENCEINDEXValue: Integer;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_CITASRECURRENCEINDEX].AsInteger;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TCITASDataTableRules.SetRECURRENCEINDEXValue(const aValue: Integer);
|
||||||
|
begin
|
||||||
|
DataTable.Fields[idx_CITASRECURRENCEINDEX].AsInteger := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TCITASDataTableRules.GetRESOURCEIDValue: Integer;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_CITASRESOURCEID].AsInteger;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TCITASDataTableRules.SetRESOURCEIDValue(const aValue: Integer);
|
||||||
|
begin
|
||||||
|
DataTable.Fields[idx_CITASRESOURCEID].AsInteger := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TCITASDataTableRules.GetLOCATIONValue: String;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_CITASLOCATION].AsString;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TCITASDataTableRules.SetLOCATIONValue(const aValue: String);
|
||||||
|
begin
|
||||||
|
DataTable.Fields[idx_CITASLOCATION].AsString := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TCITASDataTableRules.GetREMINDERValue: Integer;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_CITASREMINDER].AsInteger;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TCITASDataTableRules.SetREMINDERValue(const aValue: Integer);
|
||||||
|
begin
|
||||||
|
DataTable.Fields[idx_CITASREMINDER].AsInteger := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TCITASDataTableRules.GetSTATEValue: Integer;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_CITASSTATE].AsInteger;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TCITASDataTableRules.SetSTATEValue(const aValue: Integer);
|
||||||
|
begin
|
||||||
|
DataTable.Fields[idx_CITASSTATE].AsInteger := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TCITASDataTableRules.GetLABELCOLORValue: Integer;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_CITASLABELCOLOR].AsInteger;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TCITASDataTableRules.SetLABELCOLORValue(const aValue: Integer);
|
||||||
|
begin
|
||||||
|
DataTable.Fields[idx_CITASLABELCOLOR].AsInteger := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TCITASDataTableRules.GetCODIGOCONTRATOValue: String;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_CITASCODIGOCONTRATO].AsString;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TCITASDataTableRules.SetCODIGOCONTRATOValue(const aValue: String);
|
||||||
|
begin
|
||||||
|
DataTable.Fields[idx_CITASCODIGOCONTRATO].AsString := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TCITASDataTableRules.GetTIPOTAREAValue: String;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_CITASTIPOTAREA].AsString;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TCITASDataTableRules.SetTIPOTAREAValue(const aValue: String);
|
||||||
|
begin
|
||||||
|
DataTable.Fields[idx_CITASTIPOTAREA].AsString := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TCITASDataTableRules.GetNOMBRECLIENTEValue: String;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_CITASNOMBRECLIENTE].AsString;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TCITASDataTableRules.SetNOMBRECLIENTEValue(const aValue: String);
|
||||||
|
begin
|
||||||
|
DataTable.Fields[idx_CITASNOMBRECLIENTE].AsString := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TCITASDataTableRules.GetPARTIDAValue: String;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_CITASPARTIDA].AsString;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TCITASDataTableRules.SetPARTIDAValue(const aValue: String);
|
||||||
|
begin
|
||||||
|
DataTable.Fields[idx_CITASPARTIDA].AsString := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TCITASDataTableRules.GetCOMPLETADAValue: DateTime;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_CITASCOMPLETADA].AsDateTime;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TCITASDataTableRules.SetCOMPLETADAValue(const aValue: DateTime);
|
||||||
|
begin
|
||||||
|
DataTable.Fields[idx_CITASCOMPLETADA].AsDateTime := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TCITASDataTableRules.GetNOMBREPROVEEDORValue: String;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_CITASNOMBREPROVEEDOR].AsString;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TCITASDataTableRules.SetNOMBREPROVEEDORValue(const aValue: String);
|
||||||
|
begin
|
||||||
|
DataTable.Fields[idx_CITASNOMBREPROVEEDOR].AsString := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TCITASDataTableRules.GetCODIGOCOLUMNAValue: Integer;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_CITASCODIGOCOLUMNA].AsInteger;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TCITASDataTableRules.SetCODIGOCOLUMNAValue(const aValue: Integer);
|
||||||
|
begin
|
||||||
|
DataTable.Fields[idx_CITASCODIGOCOLUMNA].AsInteger := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TCITASDataTableRules.GetCODIGOFILAValue: Integer;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_CITASCODIGOFILA].AsInteger;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TCITASDataTableRules.SetCODIGOFILAValue(const aValue: Integer);
|
||||||
|
begin
|
||||||
|
DataTable.Fields[idx_CITASCODIGOFILA].AsInteger := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TCITASDataTableRules.GetEMPRESAValue: Integer;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_CITASEMPRESA].AsInteger;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TCITASDataTableRules.SetEMPRESAValue(const aValue: Integer);
|
||||||
|
begin
|
||||||
|
DataTable.Fields[idx_CITASEMPRESA].AsInteger := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
{ TVENDEDORESDataTableRules }
|
||||||
|
constructor TVENDEDORESDataTableRules.Create(aDataTable: TDADataTable);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
end;
|
||||||
|
|
||||||
|
destructor TVENDEDORESDataTableRules.Destroy;
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TVENDEDORESDataTableRules.GetCODIGOEMPRESAValue: Integer;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_VENDEDORESCODIGOEMPRESA].AsInteger;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TVENDEDORESDataTableRules.SetCODIGOEMPRESAValue(const aValue: Integer);
|
||||||
|
begin
|
||||||
|
DataTable.Fields[idx_VENDEDORESCODIGOEMPRESA].AsInteger := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TVENDEDORESDataTableRules.GetCODIGOValue: Integer;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_VENDEDORESCODIGO].AsInteger;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TVENDEDORESDataTableRules.SetCODIGOValue(const aValue: Integer);
|
||||||
|
begin
|
||||||
|
DataTable.Fields[idx_VENDEDORESCODIGO].AsInteger := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TVENDEDORESDataTableRules.GetFECHAALTAValue: DateTime;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_VENDEDORESFECHAALTA].AsDateTime;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TVENDEDORESDataTableRules.SetFECHAALTAValue(const aValue: DateTime);
|
||||||
|
begin
|
||||||
|
DataTable.Fields[idx_VENDEDORESFECHAALTA].AsDateTime := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TVENDEDORESDataTableRules.GetUSUARIOValue: String;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_VENDEDORESUSUARIO].AsString;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TVENDEDORESDataTableRules.SetUSUARIOValue(const aValue: String);
|
||||||
|
begin
|
||||||
|
DataTable.Fields[idx_VENDEDORESUSUARIO].AsString := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TVENDEDORESDataTableRules.GetNIFCIFValue: String;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_VENDEDORESNIFCIF].AsString;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TVENDEDORESDataTableRules.SetNIFCIFValue(const aValue: String);
|
||||||
|
begin
|
||||||
|
DataTable.Fields[idx_VENDEDORESNIFCIF].AsString := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TVENDEDORESDataTableRules.GetNOMBREValue: String;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_VENDEDORESNOMBRE].AsString;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TVENDEDORESDataTableRules.SetNOMBREValue(const aValue: String);
|
||||||
|
begin
|
||||||
|
DataTable.Fields[idx_VENDEDORESNOMBRE].AsString := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TVENDEDORESDataTableRules.GetNOTASValue: String;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_VENDEDORESNOTAS].AsString;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TVENDEDORESDataTableRules.SetNOTASValue(const aValue: String);
|
||||||
|
begin
|
||||||
|
DataTable.Fields[idx_VENDEDORESNOTAS].AsString := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TVENDEDORESDataTableRules.GetCALLEValue: String;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_VENDEDORESCALLE].AsString;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TVENDEDORESDataTableRules.SetCALLEValue(const aValue: String);
|
||||||
|
begin
|
||||||
|
DataTable.Fields[idx_VENDEDORESCALLE].AsString := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TVENDEDORESDataTableRules.GetPROVINCIAValue: String;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_VENDEDORESPROVINCIA].AsString;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TVENDEDORESDataTableRules.SetPROVINCIAValue(const aValue: String);
|
||||||
|
begin
|
||||||
|
DataTable.Fields[idx_VENDEDORESPROVINCIA].AsString := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TVENDEDORESDataTableRules.GetCODIGOPOSTALValue: String;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_VENDEDORESCODIGOPOSTAL].AsString;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TVENDEDORESDataTableRules.SetCODIGOPOSTALValue(const aValue: String);
|
||||||
|
begin
|
||||||
|
DataTable.Fields[idx_VENDEDORESCODIGOPOSTAL].AsString := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TVENDEDORESDataTableRules.GetPOBLACIONValue: String;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_VENDEDORESPOBLACION].AsString;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TVENDEDORESDataTableRules.SetPOBLACIONValue(const aValue: String);
|
||||||
|
begin
|
||||||
|
DataTable.Fields[idx_VENDEDORESPOBLACION].AsString := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TVENDEDORESDataTableRules.GetTELEFONO1Value: String;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_VENDEDORESTELEFONO1].AsString;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TVENDEDORESDataTableRules.SetTELEFONO1Value(const aValue: String);
|
||||||
|
begin
|
||||||
|
DataTable.Fields[idx_VENDEDORESTELEFONO1].AsString := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TVENDEDORESDataTableRules.GetTELEFONO2Value: String;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_VENDEDORESTELEFONO2].AsString;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TVENDEDORESDataTableRules.SetTELEFONO2Value(const aValue: String);
|
||||||
|
begin
|
||||||
|
DataTable.Fields[idx_VENDEDORESTELEFONO2].AsString := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TVENDEDORESDataTableRules.GetMOVILValue: String;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_VENDEDORESMOVIL].AsString;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TVENDEDORESDataTableRules.SetMOVILValue(const aValue: String);
|
||||||
|
begin
|
||||||
|
DataTable.Fields[idx_VENDEDORESMOVIL].AsString := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TVENDEDORESDataTableRules.GetFAXValue: String;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_VENDEDORESFAX].AsString;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TVENDEDORESDataTableRules.SetFAXValue(const aValue: String);
|
||||||
|
begin
|
||||||
|
DataTable.Fields[idx_VENDEDORESFAX].AsString := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TVENDEDORESDataTableRules.GetCORREO1Value: String;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_VENDEDORESCORREO1].AsString;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TVENDEDORESDataTableRules.SetCORREO1Value(const aValue: String);
|
||||||
|
begin
|
||||||
|
DataTable.Fields[idx_VENDEDORESCORREO1].AsString := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TVENDEDORESDataTableRules.GetCORREO2Value: String;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_VENDEDORESCORREO2].AsString;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TVENDEDORESDataTableRules.SetCORREO2Value(const aValue: String);
|
||||||
|
begin
|
||||||
|
DataTable.Fields[idx_VENDEDORESCORREO2].AsString := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TVENDEDORESDataTableRules.GetPAGINAWEBValue: String;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_VENDEDORESPAGINAWEB].AsString;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TVENDEDORESDataTableRules.SetPAGINAWEBValue(const aValue: String);
|
||||||
|
begin
|
||||||
|
DataTable.Fields[idx_VENDEDORESPAGINAWEB].AsString := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TVENDEDORESDataTableRules.GetPERSONACONTACTOValue: String;
|
||||||
|
begin
|
||||||
|
result := DataTable.Fields[idx_VENDEDORESPERSONACONTACTO].AsString;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TVENDEDORESDataTableRules.SetPERSONACONTACTOValue(const aValue: String);
|
||||||
|
begin
|
||||||
|
DataTable.Fields[idx_VENDEDORESPERSONACONTACTO].AsString := aValue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
initialization
|
||||||
|
RegisterDataTableRules(RID_CITAS, TCITASDataTableRules);
|
||||||
|
RegisterDataTableRules(RID_VENDEDORES, TVENDEDORESDataTableRules);
|
||||||
|
|
||||||
|
end.
|
||||||
1017
Modulos/Calendarios/Reglas/schCitasServer_Intf.pas
Normal file
1017
Modulos/Calendarios/Reglas/schCitasServer_Intf.pas
Normal file
File diff suppressed because it is too large
Load Diff
193
Modulos/Calendarios/Reglas/uBizCitas.pas
Normal file
193
Modulos/Calendarios/Reglas/uBizCitas.pas
Normal file
@ -0,0 +1,193 @@
|
|||||||
|
unit uBizCitas;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
uDAInterfaces, uDADataTable, Classes, DBGrids, uDBSelectionList, DB,
|
||||||
|
uExceptions, Controls,
|
||||||
|
|
||||||
|
schCitasClient_Intf;
|
||||||
|
|
||||||
|
const
|
||||||
|
BIZ_CITAS = 'BizCitas';
|
||||||
|
BIZ_VENDEDORES = 'BizVendedores';
|
||||||
|
BIZ_INSTALADORES = 'BizInstaladores';
|
||||||
|
BIZ_DOCUMENTOS = 'BizDocumentos';
|
||||||
|
BIZ_TIPOSPEDIDODOCUMENTO = 'BizTiposPedidoDocumento';
|
||||||
|
CTE_TIPO_DOCUMENTO = 'TIPO_DOCUMENTO';
|
||||||
|
BIZ_OBRAS = 'BizObras';
|
||||||
|
|
||||||
|
TextoTipoCita: array[0..9] of String = ('PERSONAL', 'MEDICION', 'ENTREGA',
|
||||||
|
'MONTAJE', 'REMATE', 'PEDIDO', 'CONFIRMACION',
|
||||||
|
'RECEPCION', 'AVISO', 'ENTREGACLIENTE');
|
||||||
|
|
||||||
|
LiteralTipoCita: array[0..9] of String = ('Personal', 'Medición',
|
||||||
|
'Entrega a instalador', 'Montaje', 'Remate', 'Pedido',
|
||||||
|
'Confirmación de pedido', 'Recepción de pedido', 'Aviso transportista',
|
||||||
|
'Entrega al cliente');
|
||||||
|
|
||||||
|
TextoPartidasObra: array[0..3] of String = ('COCINA', 'ENCIMERAS',
|
||||||
|
'ELECTRO', 'VARIOS');
|
||||||
|
|
||||||
|
LiteralPartidasObra: array[0..3] of String = ('Cocina', 'Encimeras',
|
||||||
|
'Electrodomésticos', 'Varios');
|
||||||
|
|
||||||
|
type
|
||||||
|
TPartidasObra = (poCocina, poEncimeras, poElectro, poVarios);
|
||||||
|
TTipoCitas = (tcPersonal, tcMedicion, tcEntrega, tcMontaje, tcRemate,
|
||||||
|
tcPedido, tcConfirmacion, tcRecepcion, tcAviso, tcEntregaCliente);
|
||||||
|
|
||||||
|
|
||||||
|
IBizCitas = interface(ICitas)
|
||||||
|
['{B7CFAD14-99F6-4541-89B4-94B4C4B829D2}']
|
||||||
|
procedure Show;
|
||||||
|
end;
|
||||||
|
|
||||||
|
IBizVendedores = interface(IVendedores)
|
||||||
|
['{19E86356-0BA1-4A58-A552-D68D665232DB}']
|
||||||
|
end;
|
||||||
|
|
||||||
|
IBizInstaladores = interface //(IInstaladores)
|
||||||
|
['{27917CC0-E202-4C0B-82FE-19DC2B494DB2}']
|
||||||
|
end;
|
||||||
|
|
||||||
|
IBizDocumentos = interface //(IDocumentos)
|
||||||
|
['{3000D86E-FD7B-40BD-99FB-E05C00B8FA8A}']
|
||||||
|
end;
|
||||||
|
|
||||||
|
IBizTiposPedidoDocumento = interface //(ITiposPedidoDocumento)
|
||||||
|
['{B6B48E61-C510-4ACA-BFD8-65A876010B13}']
|
||||||
|
end;
|
||||||
|
|
||||||
|
IBizObras = interface //(IObras)
|
||||||
|
['{B9A9EDDE-4F4C-46D1-B48C-2B0BB4E4580E}']
|
||||||
|
end;
|
||||||
|
|
||||||
|
TBizCitasDataTableRules = class(TCitasDataTableRules, IBizCitas,
|
||||||
|
IApplyUpdateFailedException)
|
||||||
|
private
|
||||||
|
procedure BeforeApplyUpdates(Sender: TDADataTable; const Delta: IDADelta);
|
||||||
|
procedure BeforePost(Sender: TDADataTable);
|
||||||
|
procedure OnPostError(DataTable: TDADataTable; Error: EDatabaseError;
|
||||||
|
var Action: TDataAction); override;
|
||||||
|
protected
|
||||||
|
procedure OnNewRecord(Sender: TDADataTable); override;
|
||||||
|
procedure ShowApplyUpdateFailed (const Error: EDAApplyUpdateFailed); virtual;
|
||||||
|
public
|
||||||
|
constructor Create(aDataTable: TDADataTable); override;
|
||||||
|
destructor Destroy; override;
|
||||||
|
procedure Show; virtual;
|
||||||
|
end;
|
||||||
|
|
||||||
|
TBizVendedoresDataTableRules = class(TVendedoresDataTableRules, IBizVendedores)
|
||||||
|
end;
|
||||||
|
|
||||||
|
function DarTipoCita (Texto : String) : TTipoCitas;
|
||||||
|
function esCitaFase (Texto : String) : Boolean;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
uses
|
||||||
|
Windows, Dialogs, uDACDSDataTable, SysUtils, uDataModuleBase,
|
||||||
|
uEditorUtils, Variants,
|
||||||
|
|
||||||
|
uDataModuleCalendarios;
|
||||||
|
|
||||||
|
|
||||||
|
function DarTipoCita (Texto : String) : TTipoCitas;
|
||||||
|
var
|
||||||
|
i : Integer;
|
||||||
|
begin
|
||||||
|
Result := tcPersonal;
|
||||||
|
for I := Low(TextoTipoCita) to High(TextoTipoCita) do
|
||||||
|
begin
|
||||||
|
if UpperCase(TextoTipoCita[i]) = UpperCase(Texto) then
|
||||||
|
Result := TTipoCitas(I);
|
||||||
|
end;
|
||||||
|
|
||||||
|
if Result = tcPersonal then
|
||||||
|
for I := Low(LiteralTipoCita) to High(LiteralTipoCita) do
|
||||||
|
begin
|
||||||
|
if UpperCase(LiteralTipoCita[i]) = UpperCase(Texto) then
|
||||||
|
Result := TTipoCitas(I);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function esCitaFase (Texto : String) : Boolean;
|
||||||
|
var
|
||||||
|
I: TTipoCitas;
|
||||||
|
begin
|
||||||
|
Result := False;
|
||||||
|
for I:=tcPedido to tcEntregaCliente do
|
||||||
|
if (TextoTipoCita[Ord(I)] = Texto) then
|
||||||
|
Result := True;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
{ TBizCitasDataTableRules }
|
||||||
|
|
||||||
|
{
|
||||||
|
************************** TBizCitasDataTableRules **************************
|
||||||
|
}
|
||||||
|
|
||||||
|
procedure TBizCitasDataTableRules.OnNewRecord(Sender: TDADataTable);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
ID := dmCalendarios.GetCodigo;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TBizCitasDataTableRules.Show;
|
||||||
|
begin
|
||||||
|
ShowEditor(IBizCitas, Self, etItem);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TBizCitasDataTableRules.ShowApplyUpdateFailed(const Error: EDAApplyUpdateFailed);
|
||||||
|
begin
|
||||||
|
// if (Pos(AUF_FKVIOLATION, Error.Message) > 0) then
|
||||||
|
// MessageBox(0, 'No se puede borrar esta cuenta porque tiene pagos asociados', 'Atención', MB_ICONWARNING or MB_OK);
|
||||||
|
end;
|
||||||
|
|
||||||
|
constructor TBizCitasDataTableRules.Create(aDataTable: TDADataTable);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
aDataTable.OnBeforeApplyUpdates := BeforeApplyUpdates;
|
||||||
|
end;
|
||||||
|
|
||||||
|
destructor TBizCitasDataTableRules.Destroy;
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TBizCitasDataTableRules.BeforeApplyUpdates(Sender: TDADataTable; const Delta: IDADelta);
|
||||||
|
begin
|
||||||
|
//
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TBizCitasDataTableRules.OnPostError(DataTable: TDADataTable;
|
||||||
|
Error: EDatabaseError; var Action: TDataAction);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
Action := daAbort;
|
||||||
|
if (Pos(AUF_HAVEVALUE, Error.Message) > 0) then
|
||||||
|
begin
|
||||||
|
if (Pos('Nombre', Error.Message) > 0) then
|
||||||
|
MessageBox(0, 'Debe indicar al menos el nombre', 'Atención', MB_ICONWARNING or MB_OK)
|
||||||
|
else
|
||||||
|
raise Error;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
raise Error;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TBizCitasDataTableRules.BeforePost(Sender: TDADataTable);
|
||||||
|
begin
|
||||||
|
Sender.FieldByName(fld_CITASCODIGOCONTRATO).AsVariant := null;
|
||||||
|
end;
|
||||||
|
|
||||||
|
initialization
|
||||||
|
RegisterDataTableRules(BIZ_CITAS, TBizCitasDataTableRules);
|
||||||
|
RegisterDataTableRules(BIZ_VENDEDORES, TBizVendedoresDataTableRules);
|
||||||
|
|
||||||
|
finalization
|
||||||
|
|
||||||
|
end.
|
||||||
Loading…
Reference in New Issue
Block a user