Acana_Interiorismo/FactuGES2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Version 3.4.0 (multiempresa Cristina)

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@685 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
roberto 2022-02-09 15:00:16 +00:00
parent 3285e54f7d
commit 482f6d8fb6
192 changed files with 13059 additions and 1965 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
Database/udfs/funciones.pas
View File

@ -8,24 +8,30 @@ implementation
uses
Forms, Classes, SysUtils, StdCtrls, ComCtrls,
Menus, Windows;
Menus, Windows;
function RtfToText(Cadena: PChar): PChar;
var
AStream : TStringStream;
ARichEdit: TRichEdit;
begin
AStream := TStringStream.Create(Cadena);
ARichEdit := TRichEdit.CreateParented(HWND(-3));
ARichEdit := TRichEdit.CreateParented(HWND_MESSAGE);
try
ARichEdit.SelectAll;
ARichEdit.SelText := StrPas(Cadena);
Result := PChar(ARichEdit.Text);
AStream := TStringStream.Create(Cadena);
try
ARichEdit.SelectAll;
ARichEdit.SelText := StrPas(Cadena);
Result := PChar(ARichEdit.Text);
finally
FreeAndNIL(AStream);
end;
finally
FreeAndNIL(AStream);
FreeAndNIL(ARichEdit);
end;
end;
end.

BIN
Database/udfs/udf_RtfToText.dll
View File

Binary file not shown.

529
Database/udfs/udf_RtfToText.dproj
View File

@ -24,57 +24,504 @@
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType />
<BorlandProject>
<BorlandProject xmlns=""> <Delphi.Personality> <Parameters>
<Parameters Name="UseLauncher">False</Parameters>
<Parameters Name="LoadAllSymbols">True</Parameters>
<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
</Parameters>
<VersionInfo>
<VersionInfo Name="IncludeVerInfo">False</VersionInfo>
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
<VersionInfo Name="MajorVer">1</VersionInfo>
<VersionInfo Name="MinorVer">0</VersionInfo>
<VersionInfo Name="Release">0</VersionInfo>
<VersionInfo Name="Build">0</VersionInfo>
<VersionInfo Name="Debug">False</VersionInfo>
<VersionInfo Name="PreRelease">False</VersionInfo>
<VersionInfo Name="Special">False</VersionInfo>
<VersionInfo Name="Private">False</VersionInfo>
<VersionInfo Name="DLL">False</VersionInfo>
<VersionInfo Name="Locale">3082</VersionInfo>
<VersionInfo Name="CodePage">1252</VersionInfo>
</VersionInfo>
<VersionInfoKeys>
<VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
<VersionInfoKeys Name="ProductName"></VersionInfoKeys>
<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
<VersionInfoKeys Name="Comments"></VersionInfoKeys>
</VersionInfoKeys>
<Excluded_Packages>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</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">2.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">2.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\Usuario\Mis documentos\Borland Studio Projects\Bpl\EasyListviewD10.bpl">Muststang Peak EasyListview Runtime Package</Excluded_Packages>
<Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
</Excluded_Packages>
<Source>
<Source Name="MainSource">udf_RtfToText.dpr</Source>
</Source>
</Delphi.Personality> </BorlandProject></BorlandProject>
</Excluded_Packages><Source><Source Name="MainSource">udf_RtfToText.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>
<ItemGroup />
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup>
<DelphiCompile Include="udf_RtfToText.dpr">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="funciones.pas" />
</ItemGroup>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
</Project>
</Project>
<!-- EurekaLog First Line
[Exception Log]
EurekaLog Version=6006
Activate=0
Activate Handle=1
Save Log File=1
Foreground Tab=0
Freeze Activate=0
Freeze Timeout=60
SMTP From=eurekalog@email.com
SMTP Host=
SMTP Port=25
SMTP UserID=
SMTP Password=
Append to Log=0
TerminateBtn Operation=2
Errors Number=32
Errors Terminate=3
Email Address=
Email Object=
Email Send Options=0
Output Path=
Encrypt Password=
AutoCloseDialogSecs=0
WebSendMode=0
SupportULR=
HTMLLayout Count=15
HTMLLine0="%3Chtml%3E"
HTMLLine1=" %3Chead%3E"
HTMLLine2=" %3C/head%3E"
HTMLLine3=" %3Cbody TopMargin=10 LeftMargin=10%3E"
HTMLLine4=" %3Ctable width="100%%" border="0"%3E"
HTMLLine5=" %3Ctr%3E"
HTMLLine6=" %3Ctd nowrap%3E"
HTMLLine7=" %3Cfont face="Lucida Console, Courier" size="2"%3E"
HTMLLine8=" %3C%%HTML_TAG%%%3E"
HTMLLine9=" %3C/font%3E"
HTMLLine10=" %3C/td%3E"
HTMLLine11=" %3C/tr%3E"
HTMLLine12=" %3C/table%3E"
HTMLLine13=" %3C/body%3E"
HTMLLine14="%3C/html%3E"
AutoCrashOperation=2
AutoCrashNumber=10
AutoCrashMinutes=1
WebURL=
WebUserID=
WebPassword=
WebPort=0
AttachedFiles=
ProxyURL=
ProxyUser=
ProxyPassword=
ProxyPort=8080
TrakerUser=
TrakerPassword=
TrakerAssignTo=
TrakerProject=
TrakerCategory=
TrakerTrialID=
ZipPassword=
PreBuildEvent=
PostSuccessfulBuildEvent=
PostFailureBuildEvent=
ExceptionDialogType=2
Count=0
EMail Message Line Count=0
loNoDuplicateErrors=0
loAppendReproduceText=0
loDeleteLogAtVersionChange=0
loAddComputerNameInLogFileName=0
loSaveModulesAndProcessesSections=1
loSaveAssemblerAndCPUSections=1
soAppStartDate=1
soAppName=1
soAppVersionNumber=1
soAppParameters=1
soAppCompilationDate=1
soAppUpTime=1
soExcDate=1
soExcAddress=1
soExcModuleName=1
soExcModuleVersion=1
soExcType=1
soExcMessage=1
soExcID=1
soExcCount=1
soExcStatus=1
soExcNote=1
soUserID=1
soUserName=1
soUserEmail=1
soUserPrivileges=1
soUserCompany=1
soActCtlsFormClass=1
soActCtlsFormText=1
soActCtlsControlClass=1
soActCtlsControlText=1
soCmpName=1
soCmpTotalMemory=1
soCmpFreeMemory=1
soCmpTotalDisk=1
soCmpFreeDisk=1
soCmpSysUpTime=1
soCmpProcessor=1
soCmpDisplayMode=1
soCmpDisplayDPI=1
soCmpVideoCard=1
soCmpPrinter=1
soOSType=1
soOSBuildN=1
soOSUpdate=1
soOSLanguage=1
soOSCharset=1
soNetIP=1
soNetSubmask=1
soNetGateway=1
soNetDNS1=1
soNetDNS2=1
soNetDHCP=1
soCustomData=1
sndShowSendDialog=1
sndShowSuccessFailureMsg=0
sndSendEntireLog=0
sndSendXMLLogCopy=0
sndSendScreenshot=1
sndUseOnlyActiveWindow=0
sndSendLastHTMLPage=1
sndSendInSeparatedThread=0
sndAddDateInFileName=0
sndAddComputerNameInFileName=0
edoSendErrorReportChecked=1
edoAttachScreenshotChecked=1
edoShowCopyToClipOption=1
edoShowDetailsButton=1
edoShowInDetailedMode=0
edoShowInTopMostMode=0
edoUseEurekaLogLookAndFeel=0
edoShowSendErrorReportOption=1
edoShowAttachScreenshotOption=1
edoShowCustomButton=0
csoShowDLLs=1
csoShowBPLs=1
csoShowBorlandThreads=1
csoShowWindowsThreads=1
csoDoNotStoreProcNames=0
boPauseBorlandThreads=0
boDoNotPauseMainThread=0
boPauseWindowsThreads=0
boUseMainModuleOptions=1
boCopyLogInCaseOfError=1
boSaveCompressedCopyInCaseOfError=0
boHandleSafeCallExceptions=1
boCallRTLExceptionEvent=0
boCatchHandledExceptions=0
loCatchLeaks=0
loGroupsSonLeaks=1
loHideBorlandLeaks=1
loFreeAllLeaks=1
loCatchLeaksExceptions=1
cfoReduceFileSize=1
cfoCheckFileCorruption=0
Count mtInformationMsgCaption=1
mtInformationMsgCaption0="Information."
Count mtQuestionMsgCaption=1
mtQuestionMsgCaption0="Question."
Count mtErrorMsgCaption=1
mtErrorMsgCaption0="Error."
Count mtDialog_Caption=1
mtDialog_Caption0="Error occurred"
Count mtDialog_ErrorMsgCaption=2
mtDialog_ErrorMsgCaption0="An error has occurred during program execution."
mtDialog_ErrorMsgCaption1="Please read the following information for further details."
Count mtDialog_GeneralCaption=1
mtDialog_GeneralCaption0="General"
Count mtDialog_GeneralHeader=1
mtDialog_GeneralHeader0="General Information"
Count mtDialog_CallStackCaption=1
mtDialog_CallStackCaption0="Call Stack"
Count mtDialog_CallStackHeader=1
mtDialog_CallStackHeader0="Call Stack Information"
Count mtDialog_ModulesCaption=1
mtDialog_ModulesCaption0="Modules"
Count mtDialog_ModulesHeader=1
mtDialog_ModulesHeader0="Modules Information"
Count mtDialog_ProcessesCaption=1
mtDialog_ProcessesCaption0="Processes"
Count mtDialog_ProcessesHeader=1
mtDialog_ProcessesHeader0="Processes Information"
Count mtDialog_AsmCaption=1
mtDialog_AsmCaption0="Assembler"
Count mtDialog_AsmHeader=1
mtDialog_AsmHeader0="Assembler Information"
Count mtDialog_CPUCaption=1
mtDialog_CPUCaption0="CPU"
Count mtDialog_CPUHeader=1
mtDialog_CPUHeader0="CPU Information"
Count mtDialog_OKButtonCaption=1
mtDialog_OKButtonCaption0="%26OK"
Count mtDialog_TerminateButtonCaption=1
mtDialog_TerminateButtonCaption0="%26Terminate"
Count mtDialog_RestartButtonCaption=1
mtDialog_RestartButtonCaption0="%26Restart"
Count mtDialog_DetailsButtonCaption=1
mtDialog_DetailsButtonCaption0="%26Details"
Count mtDialog_CustomButtonCaption=1
mtDialog_CustomButtonCaption0="%26Help"
Count mtDialog_SendMessage=1
mtDialog_SendMessage0="%26Send this error via Internet"
Count mtDialog_ScreenshotMessage=1
mtDialog_ScreenshotMessage0="%26Attach a Screenshot image"
Count mtDialog_CopyMessage=1
mtDialog_CopyMessage0="%26Copy to Clipboard"
Count mtDialog_SupportMessage=1
mtDialog_SupportMessage0="Go to the Support Page"
Count mtMSDialog_ErrorMsgCaption=1
mtMSDialog_ErrorMsgCaption0="The application has encountered a problem. We are sorry for the inconvenience."
Count mtMSDialog_RestartCaption=1
mtMSDialog_RestartCaption0="Restart application."
Count mtMSDialog_TerminateCaption=1
mtMSDialog_TerminateCaption0="Terminate application."
Count mtMSDialog_PleaseCaption=1
mtMSDialog_PleaseCaption0="Please tell us about this problem."
Count mtMSDialog_DescriptionCaption=1
mtMSDialog_DescriptionCaption0="We have created an error report that you can send to us. We will treat this report as confidential and anonymous."
Count mtMSDialog_SeeDetailsCaption=1
mtMSDialog_SeeDetailsCaption0="To see what data the error report contains,"
Count mtMSDialog_SeeClickCaption=1
mtMSDialog_SeeClickCaption0="click here."
Count mtMSDialog_HowToReproduceCaption=1
mtMSDialog_HowToReproduceCaption0="What were you doing when the problem happended (optional)?"
Count mtMSDialog_EmailCaption=1
mtMSDialog_EmailCaption0="Email address (optional):"
Count mtMSDialog_SendButtonCaption=1
mtMSDialog_SendButtonCaption0="%26Send Error Report"
Count mtMSDialog_NoSendButtonCaption=1
mtMSDialog_NoSendButtonCaption0="%26Don't Send"
Count mtLog_AppHeader=1
mtLog_AppHeader0="Application"
Count mtLog_AppStartDate=1
mtLog_AppStartDate0="Start Date"
Count mtLog_AppName=1
mtLog_AppName0="Name/Description"
Count mtLog_AppVersionNumber=1
mtLog_AppVersionNumber0="Version Number"
Count mtLog_AppParameters=1
mtLog_AppParameters0="Parameters"
Count mtLog_AppCompilationDate=1
mtLog_AppCompilationDate0="Compilation Date"
Count mtLog_AppUpTime=1
mtLog_AppUpTime0="Up Time"
Count mtLog_ExcHeader=1
mtLog_ExcHeader0="Exception"
Count mtLog_ExcDate=1
mtLog_ExcDate0="Date"
Count mtLog_ExcAddress=1
mtLog_ExcAddress0="Address"
Count mtLog_ExcModuleName=1
mtLog_ExcModuleName0="Module Name"
Count mtLog_ExcModuleVersion=1
mtLog_ExcModuleVersion0="Module Version"
Count mtLog_ExcType=1
mtLog_ExcType0="Type"
Count mtLog_ExcMessage=1
mtLog_ExcMessage0="Message"
Count mtLog_ExcID=1
mtLog_ExcID0="ID"
Count mtLog_ExcCount=1
mtLog_ExcCount0="Count"
Count mtLog_ExcStatus=1
mtLog_ExcStatus0="Status"
Count mtLog_ExcNote=1
mtLog_ExcNote0="Note"
Count mtLog_UserHeader=1
mtLog_UserHeader0="User"
Count mtLog_UserID=1
mtLog_UserID0="ID"
Count mtLog_UserName=1
mtLog_UserName0="Name"
Count mtLog_UserEmail=1
mtLog_UserEmail0="Email"
Count mtLog_UserCompany=1
mtLog_UserCompany0="Company"
Count mtLog_UserPrivileges=1
mtLog_UserPrivileges0="Privileges"
Count mtLog_ActCtrlsHeader=1
mtLog_ActCtrlsHeader0="Active Controls"
Count mtLog_ActCtrlsFormClass=1
mtLog_ActCtrlsFormClass0="Form Class"
Count mtLog_ActCtrlsFormText=1
mtLog_ActCtrlsFormText0="Form Text"
Count mtLog_ActCtrlsControlClass=1
mtLog_ActCtrlsControlClass0="Control Class"
Count mtLog_ActCtrlsControlText=1
mtLog_ActCtrlsControlText0="Control Text"
Count mtLog_CmpHeader=1
mtLog_CmpHeader0="Computer"
Count mtLog_CmpName=1
mtLog_CmpName0="Name"
Count mtLog_CmpTotalMemory=1
mtLog_CmpTotalMemory0="Total Memory"
Count mtLog_CmpFreeMemory=1
mtLog_CmpFreeMemory0="Free Memory"
Count mtLog_CmpTotalDisk=1
mtLog_CmpTotalDisk0="Total Disk"
Count mtLog_CmpFreeDisk=1
mtLog_CmpFreeDisk0="Free Disk"
Count mtLog_CmpSystemUpTime=1
mtLog_CmpSystemUpTime0="System Up Time"
Count mtLog_CmpProcessor=1
mtLog_CmpProcessor0="Processor"
Count mtLog_CmpDisplayMode=1
mtLog_CmpDisplayMode0="Display Mode"
Count mtLog_CmpDisplayDPI=1
mtLog_CmpDisplayDPI0="Display DPI"
Count mtLog_CmpVideoCard=1
mtLog_CmpVideoCard0="Video Card"
Count mtLog_CmpPrinter=1
mtLog_CmpPrinter0="Printer"
Count mtLog_OSHeader=1
mtLog_OSHeader0="Operating System"
Count mtLog_OSType=1
mtLog_OSType0="Type"
Count mtLog_OSBuildN=1
mtLog_OSBuildN0="Build #"
Count mtLog_OSUpdate=1
mtLog_OSUpdate0="Update"
Count mtLog_OSLanguage=1
mtLog_OSLanguage0="Language"
Count mtLog_OSCharset=1
mtLog_OSCharset0="Charset"
Count mtLog_NetHeader=1
mtLog_NetHeader0="Network"
Count mtLog_NetIP=1
mtLog_NetIP0="IP Address"
Count mtLog_NetSubmask=1
mtLog_NetSubmask0="Submask"
Count mtLog_NetGateway=1
mtLog_NetGateway0="Gateway"
Count mtLog_NetDNS1=1
mtLog_NetDNS10="DNS 1"
Count mtLog_NetDNS2=1
mtLog_NetDNS20="DNS 2"
Count mtLog_NetDHCP=1
mtLog_NetDHCP0="DHCP"
Count mtLog_CustInfoHeader=1
mtLog_CustInfoHeader0="Custom Information"
Count mtCallStack_Address=1
mtCallStack_Address0="Address"
Count mtCallStack_Name=1
mtCallStack_Name0="Module"
Count mtCallStack_Unit=1
mtCallStack_Unit0="Unit"
Count mtCallStack_Class=1
mtCallStack_Class0="Class"
Count mtCallStack_Procedure=1
mtCallStack_Procedure0="Procedure/Method"
Count mtCallStack_Line=1
mtCallStack_Line0="Line"
Count mtCallStack_MainThread=1
mtCallStack_MainThread0="Main"
Count mtCallStack_ExceptionThread=1
mtCallStack_ExceptionThread0="Exception Thread"
Count mtCallStack_RunningThread=1
mtCallStack_RunningThread0="Running Thread"
Count mtCallStack_CallingThread=1
mtCallStack_CallingThread0="Calling Thread"
Count mtCallStack_ThreadID=1
mtCallStack_ThreadID0="ID"
Count mtCallStack_ThreadPriority=1
mtCallStack_ThreadPriority0="Priority"
Count mtCallStack_ThreadClass=1
mtCallStack_ThreadClass0="Class"
Count mtCallStack_LeakCaption=1
mtCallStack_LeakCaption0="Memory Leak"
Count mtCallStack_LeakData=1
mtCallStack_LeakData0="Data"
Count mtCallStack_LeakType=1
mtCallStack_LeakType0="Type"
Count mtCallStack_LeakSize=1
mtCallStack_LeakSize0="Total size"
Count mtCallStack_LeakCount=1
mtCallStack_LeakCount0="Count"
Count mtSendDialog_Caption=1
mtSendDialog_Caption0="Send."
Count mtSendDialog_Message=1
mtSendDialog_Message0="Message"
Count mtSendDialog_Resolving=1
mtSendDialog_Resolving0="Resolving DNS..."
Count mtSendDialog_Login=1
mtSendDialog_Login0="Login..."
Count mtSendDialog_Connecting=1
mtSendDialog_Connecting0="Connecting with server..."
Count mtSendDialog_Connected=1
mtSendDialog_Connected0="Connected with server."
Count mtSendDialog_Sending=1
mtSendDialog_Sending0="Sending message..."
Count mtSendDialog_Sent=1
mtSendDialog_Sent0="Message sent."
Count mtSendDialog_SelectProject=1
mtSendDialog_SelectProject0="Select project..."
Count mtSendDialog_Searching=1
mtSendDialog_Searching0="Searching..."
Count mtSendDialog_Modifying=1
mtSendDialog_Modifying0="Modifying..."
Count mtSendDialog_Disconnecting=1
mtSendDialog_Disconnecting0="Disconnecting..."
Count mtSendDialog_Disconnected=1
mtSendDialog_Disconnected0="Disconnected."
Count mtReproduceDialog_Caption=1
mtReproduceDialog_Caption0="Request"
Count mtReproduceDialog_Request=1
mtReproduceDialog_Request0="Please describe the steps to reproduce the error:"
Count mtReproduceDialog_OKButtonCaption=1
mtReproduceDialog_OKButtonCaption0="%26OK"
Count mtModules_Handle=1
mtModules_Handle0="Handle"
Count mtModules_Name=1
mtModules_Name0="Name"
Count mtModules_Description=1
mtModules_Description0="Description"
Count mtModules_Version=1
mtModules_Version0="Version"
Count mtModules_Size=1
mtModules_Size0="Size"
Count mtModules_LastModified=1
mtModules_LastModified0="Modified"
Count mtModules_Path=1
mtModules_Path0="Path"
Count mtProcesses_ID=1
mtProcesses_ID0="ID"
Count mtProcesses_Name=1
mtProcesses_Name0="Name"
Count mtProcesses_Description=1
mtProcesses_Description0="Description"
Count mtProcesses_Version=1
mtProcesses_Version0="Version"
Count mtProcesses_Memory=1
mtProcesses_Memory0="Memory"
Count mtProcesses_Priority=1
mtProcesses_Priority0="Priority"
Count mtProcesses_Threads=1
mtProcesses_Threads0="Threads"
Count mtProcesses_Path=1
mtProcesses_Path0="Path"
Count mtCPU_Registers=1
mtCPU_Registers0="Registers"
Count mtCPU_Stack=1
mtCPU_Stack0="Stack"
Count mtCPU_MemoryDump=1
mtCPU_MemoryDump0="Memory Dump"
Count mtSend_SuccessMsg=1
mtSend_SuccessMsg0="The message was sent successfully."
Count mtSend_FailureMsg=1
mtSend_FailureMsg0="Sorry, sending the message didn't work."
Count mtSend_BugClosedMsg=2
mtSend_BugClosedMsg0="These BUG is just closed."
mtSend_BugClosedMsg1="Contact the program support to obtain an update."
Count mtSend_UnknownErrorMsg=1
mtSend_UnknownErrorMsg0="Unknown error."
Count mtSend_InvalidLoginMsg=1
mtSend_InvalidLoginMsg0="Invalid login request."
Count mtSend_InvalidSearchMsg=1
mtSend_InvalidSearchMsg0="Invalid search request."
Count mtSend_InvalidSelectionMsg=1
mtSend_InvalidSelectionMsg0="Invalid selection request."
Count mtSend_InvalidInsertMsg=1
mtSend_InvalidInsertMsg0="Invalid insert request."
Count mtSend_InvalidModifyMsg=1
mtSend_InvalidModifyMsg0="Invalid modify request."
Count mtFileCrackedMsg=2
mtFileCrackedMsg0="This file is cracked."
mtFileCrackedMsg1="The application will be closed."
Count mtException_LeakMultiFree=1
mtException_LeakMultiFree0="Multi Free memory leak."
Count mtException_LeakMemoryOverrun=1
mtException_LeakMemoryOverrun0="Memory Overrun leak."
Count mtException_AntiFreeze=1
mtException_AntiFreeze0="The application seems to be frozen."
Count mtInvalidEmailMsg=1
mtInvalidEmailMsg0="Invalid email."
TextsCollection=English
EurekaLog Last Line -->

BIN
Database/udfs/udf_RtfToText.res
View File

Binary file not shown.

18
Source/ApplicationBase/Empresas/Controller/uEmpresasController.pas
View File

@ -34,6 +34,7 @@ type
function DarListaFormasPago: TStringList;
function DarListaTiposIVA: TStringList;
Procedure AsignarIDFormaPago(AEmpresa: IBizEmpresa; const IDFormaPago: Variant);
Procedure AsignarIDFormaPagoProveedores(AEmpresa: IBizEmpresa; const IDFormaPago: Variant);
Procedure AsignarIDTipoIVA(AEmpresa: IBizEmpresa; const IDTipoIVA: Variant);
end;
@ -67,6 +68,7 @@ type
function DarListaFormasPago: TStringList;
function DarListaTiposIVA: TStringList;
Procedure AsignarIDFormaPago(AEmpresa: IBizEmpresa; const IDFormaPago: Variant);
Procedure AsignarIDFormaPagoProveedores(AEmpresa: IBizEmpresa; const IDFormaPago: Variant);
Procedure AsignarIDTipoIVA(AEmpresa: IBizEmpresa; const IDTipoIVA: Variant);
property TiendasController : ITiendasEmpresaController read GetTiendasController;
@ -101,6 +103,22 @@ begin
end;
end;
procedure TEmpresasController.AsignarIDFormaPagoProveedores(AEmpresa: IBizEmpresa; const IDFormaPago: Variant);
begin
if Assigned(AEmpresa) then
begin
if not AEmpresa.DataTable.Editing then
AEmpresa.DataTable.Edit;
if EsCadenaVacia(IDFormaPago) then
AEmpresa.ID_FORMA_PAGO_PROVEEDORESIsNull := true
else
AEmpresa.ID_FORMA_PAGO_PROVEEDORES := IDFormaPago;
AEmpresa.DataTable.Post;
end;
end;
procedure TEmpresasController.AsignarIDTipoIVA(AEmpresa: IBizEmpresa;
const IDTipoIVA: Variant);
begin

4
Source/ApplicationBase/Empresas/Data/uDataModuleEmpresas.dfm
View File

@ -188,6 +188,10 @@ inherited DataModuleEmpresas: TDataModuleEmpresas
Name = 'ID_FORMA_PAGO'
DataType = datSmallInt
end
item
Name = 'ID_FORMA_PAGO_PROVEEDORES'
DataType = datSmallInt
end
item
Name = 'VALIDEZ_PRESUPUESTOS'
DataType = datSmallInt

53
Source/ApplicationBase/Empresas/Model/schEmpresasClient_Intf.pas
View File

@ -9,9 +9,9 @@ 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_EmpresasTiendas = '{3533FE9D-1F57-4EAD-ADCF-41E9BAE8E0A8}';
RID_Empresas = '{AB7C71EF-D2F3-43E3-928E-83E62A65AD60}';
RID_EmpresasDatosBanco = '{6B72546D-7B98-462F-849E-EC7C95FE01B8}';
RID_EmpresasTiendas = '{75ED554E-84FB-44E5-ACC7-53A876D86E64}';
RID_Empresas = '{10ABDF2A-085A-421B-ADDE-8819A0E88D80}';
RID_EmpresasDatosBanco = '{7E305A2F-73A0-43EE-9A45-21CDFA6A3725}';
{ Data table names }
nme_EmpresasTiendas = 'EmpresasTiendas';
@ -79,6 +79,7 @@ const
fld_EmpresasREGISTRO_MERCANTIL = 'REGISTRO_MERCANTIL';
fld_EmpresasID_TIPO_IVA = 'ID_TIPO_IVA';
fld_EmpresasID_FORMA_PAGO = 'ID_FORMA_PAGO';
fld_EmpresasID_FORMA_PAGO_PROVEEDORES = 'ID_FORMA_PAGO_PROVEEDORES';
fld_EmpresasVALIDEZ_PRESUPUESTOS = 'VALIDEZ_PRESUPUESTOS';
fld_EmpresasNUM_ORDEN = 'NUM_ORDEN';
fld_EmpresasID_PERFIL = 'ID_PERFIL';
@ -108,9 +109,10 @@ const
idx_EmpresasREGISTRO_MERCANTIL = 21;
idx_EmpresasID_TIPO_IVA = 22;
idx_EmpresasID_FORMA_PAGO = 23;
idx_EmpresasVALIDEZ_PRESUPUESTOS = 24;
idx_EmpresasNUM_ORDEN = 25;
idx_EmpresasID_PERFIL = 26;
idx_EmpresasID_FORMA_PAGO_PROVEEDORES = 24;
idx_EmpresasVALIDEZ_PRESUPUESTOS = 25;
idx_EmpresasNUM_ORDEN = 26;
idx_EmpresasID_PERFIL = 27;
{ EmpresasDatosBanco fields }
fld_EmpresasDatosBancoID = 'ID';
@ -137,7 +139,7 @@ const
type
{ IEmpresasTiendas }
IEmpresasTiendas = interface(IDAStronglyTypedDataTable)
['{DE6BE283-469C-4253-9A99-60E55A11E17C}']
['{A5E943E3-6466-46DD-B3C1-D4C8BE5FC18A}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -352,7 +354,7 @@ type
{ IEmpresas }
IEmpresas = interface(IDAStronglyTypedDataTable)
['{D210073A-3C0F-46FD-97FD-3928459451E7}']
['{9D935CED-1A5C-4ADD-B00B-73C3B31F2D8A}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -448,6 +450,10 @@ type
procedure SetID_FORMA_PAGOValue(const aValue: SmallInt);
function GetID_FORMA_PAGOIsNull: Boolean;
procedure SetID_FORMA_PAGOIsNull(const aValue: Boolean);
function GetID_FORMA_PAGO_PROVEEDORESValue: SmallInt;
procedure SetID_FORMA_PAGO_PROVEEDORESValue(const aValue: SmallInt);
function GetID_FORMA_PAGO_PROVEEDORESIsNull: Boolean;
procedure SetID_FORMA_PAGO_PROVEEDORESIsNull(const aValue: Boolean);
function GetVALIDEZ_PRESUPUESTOSValue: SmallInt;
procedure SetVALIDEZ_PRESUPUESTOSValue(const aValue: SmallInt);
function GetVALIDEZ_PRESUPUESTOSIsNull: Boolean;
@ -511,6 +517,8 @@ type
property ID_TIPO_IVAIsNull: Boolean read GetID_TIPO_IVAIsNull write SetID_TIPO_IVAIsNull;
property ID_FORMA_PAGO: SmallInt read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
property ID_FORMA_PAGOIsNull: Boolean read GetID_FORMA_PAGOIsNull write SetID_FORMA_PAGOIsNull;
property ID_FORMA_PAGO_PROVEEDORES: SmallInt read GetID_FORMA_PAGO_PROVEEDORESValue write SetID_FORMA_PAGO_PROVEEDORESValue;
property ID_FORMA_PAGO_PROVEEDORESIsNull: Boolean read GetID_FORMA_PAGO_PROVEEDORESIsNull write SetID_FORMA_PAGO_PROVEEDORESIsNull;
property VALIDEZ_PRESUPUESTOS: SmallInt read GetVALIDEZ_PRESUPUESTOSValue write SetVALIDEZ_PRESUPUESTOSValue;
property VALIDEZ_PRESUPUESTOSIsNull: Boolean read GetVALIDEZ_PRESUPUESTOSIsNull write SetVALIDEZ_PRESUPUESTOSIsNull;
property NUM_ORDEN: SmallInt read GetNUM_ORDENValue write SetNUM_ORDENValue;
@ -622,6 +630,10 @@ type
procedure SetID_FORMA_PAGOValue(const aValue: SmallInt); virtual;
function GetID_FORMA_PAGOIsNull: Boolean; virtual;
procedure SetID_FORMA_PAGOIsNull(const aValue: Boolean); virtual;
function GetID_FORMA_PAGO_PROVEEDORESValue: SmallInt; virtual;
procedure SetID_FORMA_PAGO_PROVEEDORESValue(const aValue: SmallInt); virtual;
function GetID_FORMA_PAGO_PROVEEDORESIsNull: Boolean; virtual;
procedure SetID_FORMA_PAGO_PROVEEDORESIsNull(const aValue: Boolean); virtual;
function GetVALIDEZ_PRESUPUESTOSValue: SmallInt; virtual;
procedure SetVALIDEZ_PRESUPUESTOSValue(const aValue: SmallInt); virtual;
function GetVALIDEZ_PRESUPUESTOSIsNull: Boolean; virtual;
@ -684,6 +696,8 @@ type
property ID_TIPO_IVAIsNull: Boolean read GetID_TIPO_IVAIsNull write SetID_TIPO_IVAIsNull;
property ID_FORMA_PAGO: SmallInt read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
property ID_FORMA_PAGOIsNull: Boolean read GetID_FORMA_PAGOIsNull write SetID_FORMA_PAGOIsNull;
property ID_FORMA_PAGO_PROVEEDORES: SmallInt read GetID_FORMA_PAGO_PROVEEDORESValue write SetID_FORMA_PAGO_PROVEEDORESValue;
property ID_FORMA_PAGO_PROVEEDORESIsNull: Boolean read GetID_FORMA_PAGO_PROVEEDORESIsNull write SetID_FORMA_PAGO_PROVEEDORESIsNull;
property VALIDEZ_PRESUPUESTOS: SmallInt read GetVALIDEZ_PRESUPUESTOSValue write SetVALIDEZ_PRESUPUESTOSValue;
property VALIDEZ_PRESUPUESTOSIsNull: Boolean read GetVALIDEZ_PRESUPUESTOSIsNull write SetVALIDEZ_PRESUPUESTOSIsNull;
property NUM_ORDEN: SmallInt read GetNUM_ORDENValue write SetNUM_ORDENValue;
@ -699,7 +713,7 @@ type
{ IEmpresasDatosBanco }
IEmpresasDatosBanco = interface(IDAStronglyTypedDataTable)
['{DF6BEEB5-1CC8-4419-A432-D1FC275D5852}']
['{7662EC5C-CE6D-4FEF-9F39-A29307FEC214}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -1719,6 +1733,27 @@ begin
DataTable.Fields[idx_EmpresasID_FORMA_PAGO].AsVariant := Null;
end;
function TEmpresasDataTableRules.GetID_FORMA_PAGO_PROVEEDORESValue: SmallInt;
begin
result := DataTable.Fields[idx_EmpresasID_FORMA_PAGO_PROVEEDORES].AsSmallInt;
end;
procedure TEmpresasDataTableRules.SetID_FORMA_PAGO_PROVEEDORESValue(const aValue: SmallInt);
begin
DataTable.Fields[idx_EmpresasID_FORMA_PAGO_PROVEEDORES].AsSmallInt := aValue;
end;
function TEmpresasDataTableRules.GetID_FORMA_PAGO_PROVEEDORESIsNull: boolean;
begin
result := DataTable.Fields[idx_EmpresasID_FORMA_PAGO_PROVEEDORES].IsNull;
end;
procedure TEmpresasDataTableRules.SetID_FORMA_PAGO_PROVEEDORESIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_EmpresasID_FORMA_PAGO_PROVEEDORES].AsVariant := Null;
end;
function TEmpresasDataTableRules.GetVALIDEZ_PRESUPUESTOSValue: SmallInt;
begin
result := DataTable.Fields[idx_EmpresasVALIDEZ_PRESUPUESTOS].AsSmallInt;

55
Source/ApplicationBase/Empresas/Model/schEmpresasServer_Intf.pas
View File

@ -9,14 +9,14 @@ const
{ Delta rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_EmpresasTiendasDelta = '{13E84D72-2300-4184-9F8C-B1F4F117CD4A}';
RID_EmpresasDelta = '{C652CB8F-D35A-4C25-80C6-C18C214FF9F8}';
RID_EmpresasDatosBancoDelta = '{D8E33A1D-2CF4-408D-A7EE-68711A3EE24F}';
RID_EmpresasTiendasDelta = '{4B58C4F4-2B40-45F7-97CF-A69DE7400EC5}';
RID_EmpresasDelta = '{1C685D7D-AC4D-43AC-A3B9-95C2B9FA13FB}';
RID_EmpresasDatosBancoDelta = '{7077625B-BD29-46F8-AC4F-927850B2B9A2}';
type
{ IEmpresasTiendasDelta }
IEmpresasTiendasDelta = interface(IEmpresasTiendas)
['{13E84D72-2300-4184-9F8C-B1F4F117CD4A}']
['{4B58C4F4-2B40-45F7-97CF-A69DE7400EC5}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -231,7 +231,7 @@ type
{ IEmpresasDelta }
IEmpresasDelta = interface(IEmpresas)
['{C652CB8F-D35A-4C25-80C6-C18C214FF9F8}']
['{1C685D7D-AC4D-43AC-A3B9-95C2B9FA13FB}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldNIF_CIFValue : String;
@ -257,6 +257,7 @@ type
function GetOldREGISTRO_MERCANTILValue : String;
function GetOldID_TIPO_IVAValue : SmallInt;
function GetOldID_FORMA_PAGOValue : SmallInt;
function GetOldID_FORMA_PAGO_PROVEEDORESValue : SmallInt;
function GetOldVALIDEZ_PRESUPUESTOSValue : SmallInt;
function GetOldNUM_ORDENValue : SmallInt;
function GetOldID_PERFILValue : Integer;
@ -286,6 +287,7 @@ type
property OldREGISTRO_MERCANTIL : String read GetOldREGISTRO_MERCANTILValue;
property OldID_TIPO_IVA : SmallInt read GetOldID_TIPO_IVAValue;
property OldID_FORMA_PAGO : SmallInt read GetOldID_FORMA_PAGOValue;
property OldID_FORMA_PAGO_PROVEEDORES : SmallInt read GetOldID_FORMA_PAGO_PROVEEDORESValue;
property OldVALIDEZ_PRESUPUESTOS : SmallInt read GetOldVALIDEZ_PRESUPUESTOSValue;
property OldNUM_ORDEN : SmallInt read GetOldNUM_ORDENValue;
property OldID_PERFIL : Integer read GetOldID_PERFILValue;
@ -442,6 +444,12 @@ type
function GetOldID_FORMA_PAGOIsNull: Boolean; virtual;
procedure SetID_FORMA_PAGOValue(const aValue: SmallInt); virtual;
procedure SetID_FORMA_PAGOIsNull(const aValue: Boolean); virtual;
function GetID_FORMA_PAGO_PROVEEDORESValue: SmallInt; virtual;
function GetID_FORMA_PAGO_PROVEEDORESIsNull: Boolean; virtual;
function GetOldID_FORMA_PAGO_PROVEEDORESValue: SmallInt; virtual;
function GetOldID_FORMA_PAGO_PROVEEDORESIsNull: Boolean; virtual;
procedure SetID_FORMA_PAGO_PROVEEDORESValue(const aValue: SmallInt); virtual;
procedure SetID_FORMA_PAGO_PROVEEDORESIsNull(const aValue: Boolean); virtual;
function GetVALIDEZ_PRESUPUESTOSValue: SmallInt; virtual;
function GetVALIDEZ_PRESUPUESTOSIsNull: Boolean; virtual;
function GetOldVALIDEZ_PRESUPUESTOSValue: SmallInt; virtual;
@ -558,6 +566,10 @@ type
property ID_FORMA_PAGOIsNull : Boolean read GetID_FORMA_PAGOIsNull write SetID_FORMA_PAGOIsNull;
property OldID_FORMA_PAGO : SmallInt read GetOldID_FORMA_PAGOValue;
property OldID_FORMA_PAGOIsNull : Boolean read GetOldID_FORMA_PAGOIsNull;
property ID_FORMA_PAGO_PROVEEDORES : SmallInt read GetID_FORMA_PAGO_PROVEEDORESValue write SetID_FORMA_PAGO_PROVEEDORESValue;
property ID_FORMA_PAGO_PROVEEDORESIsNull : Boolean read GetID_FORMA_PAGO_PROVEEDORESIsNull write SetID_FORMA_PAGO_PROVEEDORESIsNull;
property OldID_FORMA_PAGO_PROVEEDORES : SmallInt read GetOldID_FORMA_PAGO_PROVEEDORESValue;
property OldID_FORMA_PAGO_PROVEEDORESIsNull : Boolean read GetOldID_FORMA_PAGO_PROVEEDORESIsNull;
property VALIDEZ_PRESUPUESTOS : SmallInt read GetVALIDEZ_PRESUPUESTOSValue write SetVALIDEZ_PRESUPUESTOSValue;
property VALIDEZ_PRESUPUESTOSIsNull : Boolean read GetVALIDEZ_PRESUPUESTOSIsNull write SetVALIDEZ_PRESUPUESTOSIsNull;
property OldVALIDEZ_PRESUPUESTOS : SmallInt read GetOldVALIDEZ_PRESUPUESTOSValue;
@ -579,7 +591,7 @@ type
{ IEmpresasDatosBancoDelta }
IEmpresasDatosBancoDelta = interface(IEmpresasDatosBanco)
['{D8E33A1D-2CF4-408D-A7EE-68711A3EE24F}']
['{7077625B-BD29-46F8-AC4F-927850B2B9A2}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -2002,6 +2014,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasID_FORMA_PAGO] := Null;
end;
function TEmpresasBusinessProcessorRules.GetID_FORMA_PAGO_PROVEEDORESValue: SmallInt;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasID_FORMA_PAGO_PROVEEDORES];
end;
function TEmpresasBusinessProcessorRules.GetID_FORMA_PAGO_PROVEEDORESIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasID_FORMA_PAGO_PROVEEDORES]);
end;
function TEmpresasBusinessProcessorRules.GetOldID_FORMA_PAGO_PROVEEDORESValue: SmallInt;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasID_FORMA_PAGO_PROVEEDORES];
end;
function TEmpresasBusinessProcessorRules.GetOldID_FORMA_PAGO_PROVEEDORESIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasID_FORMA_PAGO_PROVEEDORES]);
end;
procedure TEmpresasBusinessProcessorRules.SetID_FORMA_PAGO_PROVEEDORESValue(const aValue: SmallInt);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasID_FORMA_PAGO_PROVEEDORES] := aValue;
end;
procedure TEmpresasBusinessProcessorRules.SetID_FORMA_PAGO_PROVEEDORESIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasID_FORMA_PAGO_PROVEEDORES] := Null;
end;
function TEmpresasBusinessProcessorRules.GetVALIDEZ_PRESUPUESTOSValue: SmallInt;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasVALIDEZ_PRESUPUESTOS];

77
Source/ApplicationBase/Empresas/Servidor/srvEmpresas_Impl.dfm
View File

@ -303,6 +303,10 @@ object srvEmpresas: TsrvEmpresas
item
DatasetField = 'ID_PERFIL'
TableField = 'ID_PERFIL'
end
item
DatasetField = 'ID_FORMA_PAGO_PROVEEDORES'
TableField = 'ID_FORMA_PAGO_PROVEEDORES'
end>
end>
Name = 'Empresas'
@ -446,6 +450,10 @@ object srvEmpresas: TsrvEmpresas
Name = 'ID_FORMA_PAGO'
DataType = datSmallInt
end
item
Name = 'ID_FORMA_PAGO_PROVEEDORES'
DataType = datSmallInt
end
item
Name = 'VALIDEZ_PRESUPUESTOS'
DataType = datSmallInt
@ -577,98 +585,144 @@ object srvEmpresas: TsrvEmpresas
end
item
Name = 'NIF_CIF'
DataType = datString
Size = 15
Value = ''
end
item
Name = 'NOMBRE'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'RAZON_SOCIAL'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'CALLE'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'POBLACION'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'PROVINCIA'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'CODIGO_POSTAL'
DataType = datString
Size = 10
Value = ''
end
item
Name = 'TELEFONO_1'
DataType = datString
Size = 25
Value = ''
end
item
Name = 'TELEFONO_2'
DataType = datString
Size = 25
Value = ''
end
item
Name = 'MOVIL_1'
DataType = datString
Size = 25
Value = ''
end
item
Name = 'MOVIL_2'
DataType = datString
Size = 25
Value = ''
end
item
Name = 'FAX'
DataType = datString
Size = 25
Value = ''
end
item
Name = 'EMAIL_1'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'EMAIL_2'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'PAGINA_WEB'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'NOTAS'
DataType = datMemo
Value = ''
end
item
Name = 'FECHA_ALTA'
DataType = datDateTime
Value = ''
end
item
Name = 'FECHA_MODIFICACION'
DataType = datDateTime
Value = ''
end
item
Name = 'USUARIO'
DataType = datString
Size = 30
Value = ''
end
item
Name = 'LOGOTIPO'
DataType = datBlob
Value = ''
end
item
Name = 'REGISTRO_MERCANTIL'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'ID_TIPO_IVA'
DataType = datSmallInt
Value = ''
end
item
Name = 'ID_FORMA_PAGO'
DataType = datSmallInt
Value = ''
end
item
Name = 'VALIDEZ_PRESUPUESTOS'
DataType = datSmallInt
Value = ''
end
item
Name = 'ID_FORMA_PAGO_PROVEEDORES'
DataType = datSmallInt
Value = ''
end>
Statements = <
@ -682,12 +736,13 @@ object srvEmpresas: TsrvEmpresas
'FONO_2, MOVIL_1, MOVIL_2, '#10' FAX, EMAIL_1, EMAIL_2, PAGINA_WE' +
'B, NOTAS, FECHA_ALTA, '#10' FECHA_MODIFICACION, USUARIO, LOGOTIP' +
'O, REGISTRO_MERCANTIL, '#10' ID_TIPO_IVA, ID_FORMA_PAGO, VALIDEZ' +
'_PRESUPUESTOS)'#10' VALUES'#10' (:ID,:NIF_CIF, :NOMBRE, :RAZON_SOCIA' +
'L, :CALLE, :POBLACION,'#10' :PROVINCIA, :CODIGO_POSTAL, :TELEFON' +
'O_1, :TELEFONO_2, '#10' :MOVIL_1, :MOVIL_2, :FAX, :EMAIL_1, :EMA' +
'IL_2, :PAGINA_WEB, '#10' :NOTAS, :FECHA_ALTA, :FECHA_MODIFICACIO' +
'N, :USUARIO, '#10' :LOGOTIPO, :REGISTRO_MERCANTIL, :ID_TIPO_IVA,' +
' :ID_FORMA_PAGO, '#10' :VALIDEZ_PRESUPUESTOS)'#10
'_PRESUPUESTOS, ID_FORMA_PAGO_PROVEEDORES)'#10' VALUES'#10' (:ID,:NIF' +
'_CIF, :NOMBRE, :RAZON_SOCIAL, :CALLE, :POBLACION,'#10' :PROVINCI' +
'A, :CODIGO_POSTAL, :TELEFONO_1, :TELEFONO_2, '#10' :MOVIL_1, :MO' +
'VIL_2, :FAX, :EMAIL_1, :EMAIL_2, :PAGINA_WEB, '#10' :NOTAS, :FEC' +
'HA_ALTA, :FECHA_MODIFICACION, :USUARIO, '#10' :LOGOTIPO, :REGIST' +
'RO_MERCANTIL, :ID_TIPO_IVA, :ID_FORMA_PAGO, '#10' :VALIDEZ_PRESU' +
'PUESTOS, :ID_FORMA_PAGO_PROVEEDORES)'#10
StatementType = stSQL
ColumnMappings = <>
end>
@ -849,6 +904,11 @@ object srvEmpresas: TsrvEmpresas
DataType = datSmallInt
Value = ''
end
item
Name = 'ID_FORMA_PAGO_PROVEEDORES'
DataType = datSmallInt
Value = ''
end
item
Name = 'OLD_ID'
Value = ''
@ -870,8 +930,9 @@ object srvEmpresas: TsrvEmpresas
'CHA_MODIFICACION, '#10' USUARIO = :USUARIO, '#10' LOGOTIPO = :LOGO' +
'TIPO, '#10' REGISTRO_MERCANTIL = :REGISTRO_MERCANTIL, '#10' ID_TIP' +
'O_IVA = :ID_TIPO_IVA, '#10' ID_FORMA_PAGO = :ID_FORMA_PAGO, '#10' ' +
'VALIDEZ_PRESUPUESTOS = :VALIDEZ_PRESUPUESTOS'#10' WHERE'#10' (ID = :' +
'OLD_ID)'#10
'VALIDEZ_PRESUPUESTOS = :VALIDEZ_PRESUPUESTOS,'#10' ID_FORMA_PAGO_' +
'PROVEEDORES = :ID_FORMA_PAGO_PROVEEDORES'#10' WHERE'#10' (ID = :OLD_' +
'ID)'#10
StatementType = stSQL
ColumnMappings = <>
end>

76
Source/ApplicationBase/Empresas/Views/uViewEmpresa.dfm
View File

@ -35,7 +35,7 @@ inherited frViewEmpresa: TfrViewEmpresa
end
object eCalle: TcxDBTextEdit
Left = 195
Top = 247
Top = 274
DataBinding.DataField = 'CALLE'
DataBinding.DataSource = DADataSource
Style.BorderColor = clWindowFrame
@ -52,12 +52,12 @@ inherited frViewEmpresa: TfrViewEmpresa
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 6
TabOrder = 7
Width = 84
end
object cbProvincia: TcxDBComboBox
Left = 195
Top = 274
Top = 301
DataBinding.DataField = 'PROVINCIA'
DataBinding.DataSource = DADataSource
Properties.OnInitPopup = eProvinciaPropertiesInitPopup
@ -77,12 +77,12 @@ inherited frViewEmpresa: TfrViewEmpresa
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 7
TabOrder = 8
Width = 106
end
object cbPoblacion: TcxDBComboBox
Left = 195
Top = 301
Top = 328
DataBinding.DataField = 'POBLACION'
DataBinding.DataSource = DADataSource
Properties.OnInitPopup = ePoblacionPropertiesInitPopup
@ -102,12 +102,12 @@ inherited frViewEmpresa: TfrViewEmpresa
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 9
TabOrder = 10
Width = 100
end
object eCodigoPostal: TcxDBTextEdit
Left = 369
Top = 274
Top = 301
DataBinding.DataField = 'CODIGO_POSTAL'
DataBinding.DataSource = DADataSource
Style.BorderColor = clWindowFrame
@ -124,7 +124,7 @@ inherited frViewEmpresa: TfrViewEmpresa
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 8
TabOrder = 9
Width = 65
end
object ePaginaWeb: TcxDBTextEdit
@ -146,7 +146,7 @@ inherited frViewEmpresa: TfrViewEmpresa
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 17
TabOrder = 18
Width = 165
end
object eMailParticular: TcxDBTextEdit
@ -168,7 +168,7 @@ inherited frViewEmpresa: TfrViewEmpresa
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 16
TabOrder = 17
Width = 165
end
object eMailTrabajo: TcxDBTextEdit
@ -190,7 +190,7 @@ inherited frViewEmpresa: TfrViewEmpresa
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 15
TabOrder = 16
Width = 129
end
object eTlfParticular: TcxDBTextEdit
@ -212,7 +212,7 @@ inherited frViewEmpresa: TfrViewEmpresa
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 12
TabOrder = 13
Width = 91
end
object eTlfTrabajo: TcxDBTextEdit
@ -234,7 +234,7 @@ inherited frViewEmpresa: TfrViewEmpresa
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 11
TabOrder = 12
Width = 127
end
object eTlfMovil: TcxDBTextEdit
@ -256,7 +256,7 @@ inherited frViewEmpresa: TfrViewEmpresa
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 13
TabOrder = 14
Width = 155
end
object eFax: TcxDBTextEdit
@ -278,7 +278,7 @@ inherited frViewEmpresa: TfrViewEmpresa
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 14
TabOrder = 15
Width = 391
end
object eNombre: TcxDBTextEdit
@ -367,7 +367,7 @@ inherited frViewEmpresa: TfrViewEmpresa
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 18
TabOrder = 19
Height = 100
Width = 140
end
@ -427,7 +427,7 @@ inherited frViewEmpresa: TfrViewEmpresa
end
inline frViewObservaciones1: TfrViewObservaciones
Left = 22
Top = 358
Top = 385
Width = 521
Height = 150
Font.Charset = DEFAULT_CHARSET
@ -436,10 +436,10 @@ inherited frViewEmpresa: TfrViewEmpresa
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 10
TabOrder = 11
ReadOnly = False
ExplicitLeft = 22
ExplicitTop = 358
ExplicitTop = 385
inherited memObservaciones: TcxDBMemo
DataBinding.DataField = 'NOTAS'
DataBinding.DataSource = DADataSource
@ -447,7 +447,7 @@ inherited frViewEmpresa: TfrViewEmpresa
end
object eValidez: TcxDBSpinEdit
Left = 195
Top = 190
Top = 217
DataBinding.DataField = 'VALIDEZ_PRESUPUESTOS'
DataBinding.DataSource = DADataSource
Properties.Alignment.Horz = taRightJustify
@ -464,9 +464,36 @@ inherited frViewEmpresa: TfrViewEmpresa
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 5
TabOrder = 6
Width = 121
end
object cbFormaPagoProveedores: TcxComboBox
Left = 195
Top = 190
Anchors = [akLeft, akTop, akRight]
Properties.DropDownListStyle = lsEditFixedList
Properties.DropDownRows = 25
Properties.ImmediatePost = True
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 5
Width = 239
end
object dxLayoutControl1Group_Root: TdxLayoutGroup
ShowCaption = False
Hidden = True
@ -504,10 +531,15 @@ inherited frViewEmpresa: TfrViewEmpresa
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item18: TdxLayoutItem
Caption = 'Forma de pago por defecto:'
Caption = 'Forma de pago para clientes:'
Control = cbFormaPago
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item22: TdxLayoutItem
Caption = 'Forma pago para proveedores'
Control = cbFormaPagoProveedores
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item21: TdxLayoutItem
Caption = 'Meses de validez en presupuestos:'
Control = eValidez

36
Source/ApplicationBase/Empresas/Views/uViewEmpresa.pas
View File

@ -86,6 +86,8 @@ type
dxLayoutControl1Item8: TdxLayoutItem;
eValidez: TcxDBSpinEdit;
dxLayoutControl1Item21: TdxLayoutItem;
dxLayoutControl1Item22: TdxLayoutItem;
cbFormaPagoProveedores: TcxComboBox;
procedure actAnadirExecute(Sender: TObject);
procedure actEliminarExecute(Sender: TObject);
procedure actEliminarUpdate(Sender: TObject);
@ -93,6 +95,7 @@ type
procedure eProvinciaPropertiesInitPopup(Sender: TObject);
procedure ePoblacionPropertiesInitPopup(Sender: TObject);
procedure FormaPagoEditValueChanged(Sender: TObject);
procedure FormaPagoProveedoresEditValueChanged(Sender: TObject);
procedure TipoIVAEditValueChanged(Sender: TObject);
procedure CustomViewShow(Sender: TObject);
@ -247,13 +250,20 @@ var
begin
inherited;
//Activamos la forma de pago que tenga la empresa
//Activamos la forma de pago para clientes que tenga la empresa
cbFormaPago.ItemIndex := 0;
for i := 0 to FFormasPago.Count - 1 do
if IntToStr(FEmpresa.ID_FORMA_PAGO) = FFormasPago.Values[FFormasPago.Names[i]] then
cbFormaPago.ItemIndex := i;
//Activamos la forma de pago para proveedores que tenga la empresa
cbFormaPagoProveedores.ItemIndex := 0;
for i := 0 to FFormasPago.Count - 1 do
if IntToStr(FEmpresa.ID_FORMA_PAGO_PROVEEDORES) = FFormasPago.Values[FFormasPago.Names[i]] then
cbFormaPagoProveedores.ItemIndex := i;
cbFormaPago.Properties.OnEditValueChanged := FormaPagoEditValueChanged;
cbFormaPagoProveedores.Properties.OnEditValueChanged := FormaPagoProveedoresEditValueChanged;
//Activamos el tipo iva que tenga la empresa
cbTipoIVA.ItemIndex := 0;
@ -319,6 +329,17 @@ begin
Controller.AsignarIDFormaPago(FEmpresa, IDFormaPago);
end;
procedure TfrViewEmpresa.FormaPagoProveedoresEditValueChanged(Sender: TObject);
var
IDFormaPago: String;
begin
IDFormaPago := '';
if Assigned(FFormasPago) then
IDFormaPago := FFormasPago.Values[cbFormaPagoProveedores.EditValue];
Controller.AsignarIDFormaPagoProveedores(FEmpresa, IDFormaPago);
end;
function TfrViewEmpresa.GetController: IEmpresasController;
begin
Result := FController;
@ -351,6 +372,19 @@ begin
end;
end;
if Assigned(FFormasPago) then
with cbFormaPagoProveedores.Properties.Items do
begin
BeginUpdate;
try
Clear;
for i := 0 to FFormasPago.Count - 1 do
Add(FFormasPago.Names[i]);
finally
EndUpdate;
end;
end;
FTiposIVA := FController.DarListaTiposIVA;
if Assigned(FTiposIVA) then
with cbTipoIVA.Properties.Items do

98
Source/Base/Base.dproj
View File

@ -58,56 +58,56 @@
<DelphiCompile Include="Base.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\Modulos\Contactos\adortl.dcp" />
<DCCReference Include="..\Modulos\Contactos\cxDataD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\cxEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\cxExtEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\cxGridD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\cxPageControlD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Contactos\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Contactos\dclIndyCore.dcp" />
<DCCReference Include="..\Modulos\Contactos\designide.dcp" />
<DCCReference Include="..\Modulos\Contactos\dsnap.dcp" />
<DCCReference Include="..\Modulos\Contactos\dxCoreD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\dxPSCoreD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Contactos\GUISDK_D11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\IndyCore.dcp" />
<DCCReference Include="..\Modulos\Contactos\IndyProtocols.dcp" />
<DCCReference Include="..\Modulos\Contactos\IndySystem.dcp" />
<DCCReference Include="..\Modulos\Contactos\Jcl.dcp" />
<DCCReference Include="..\Modulos\Contactos\JclVcl.dcp" />
<DCCReference Include="..\Modulos\Contactos\JSDialog100.dcp" />
<DCCReference Include="..\Modulos\Contactos\JvCmpD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\JvCoreD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\JvDlgsD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\JvMMD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\JvNetD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\JvPageCompsD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\JvSystemD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\pckMD5.dcp" />
<DCCReference Include="..\Modulos\Contactos\pckUCDataConnector.dcp" />
<DCCReference Include="..\Modulos\Contactos\pckUserControl_RT.dcp" />
<DCCReference Include="..\Modulos\Contactos\PluginSDK_D11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Contactos\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Contactos\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Contactos\rtl.dcp" />
<DCCReference Include="..\Modulos\Contactos\TB2k_D10.dcp" />
<DCCReference Include="..\Modulos\Contactos\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Contactos\vcl.dcp" />
<DCCReference Include="..\Modulos\Contactos\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Contactos\vcldb.dcp" />
<DCCReference Include="..\Modulos\Contactos\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Contactos\VclSmp.dcp" />
<DCCReference Include="..\Modulos\Contactos\vclx.dcp" />
<DCCReference Include="..\Modulos\Contactos\xmlrtl.dcp" />
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
<DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxDataD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxExtEditorsD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxGridD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxPageControlD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\DataAbstract_Core_D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dclIndyCore.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\designide.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxCoreD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxPSCoreD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\GUISDK_D11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\IndyCore.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\IndyProtocols.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\IndySystem.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Jcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JclVcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JSDialog100.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCmpD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCoreD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvDlgsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvMMD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvNetD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvPageCompsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvStdCtrlsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvSystemD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\pckMD5.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\pckUCDataConnector.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\pckUserControl_RT.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PluginSDK_D11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Core_D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\TB2k_D10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\tbx_d10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\VclSmp.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\xmlrtl.dcp" />
<DCCReference Include="Conexion\uConfigurarConexion.pas">
<Form>fConfigurarConexion</Form>
<DesignClass>TForm</DesignClass>

BIN
Source/Base/Base.res
View File

Binary file not shown.

2
Source/Base/Controladores/uControllerDetallesBase.pas
View File

@ -755,6 +755,8 @@ begin
FieldByName(CAMPO_CANTIDAD).AsVariant := Null;
FieldByName(CAMPO_IMPORTE_UNIDAD).AsVariant := Null;
FieldByName(CAMPO_IMPORTE_TOTAL).AsVariant := Null;
FieldByName(CAMPO_INCREMENTO).AsVariant := Null;
FieldByName(CAMPO_DECREMENTO).AsVariant := Null;
FieldByName(CAMPO_DESCUENTO).AsVariant := Null;
FieldByName(CAMPO_IMPORTE_PORTE).AsVariant := Null;

56
Source/Base/Utiles/uCalculosUtils.pas
View File

@ -14,6 +14,8 @@ const
CAMPO_CANTIDAD = 'CANTIDAD';
CAMPO_IMPORTE_UNIDAD = 'IMPORTE_UNIDAD';
CAMPO_IMPORTE_TOTAL = 'IMPORTE_TOTAL';
CAMPO_INCREMENTO = 'INCREMENTO';
CAMPO_DECREMENTO = 'DECREMENTO';
CAMPO_DESCUENTO = 'DESCUENTO';
CAMPO_IMPORTE_PORTE = 'IMPORTE_PORTE';
CAMPO_VISIBLE = 'VISIBLE'; //Se usará para saber si un concepto se debe sumar o no
@ -25,27 +27,61 @@ const
procedure DesglosarPorte(ImportePorte: Currency; ADetalles: IDAStronglyTypedDataTable);
function DarTotalPorte(ADetalles: IDAStronglyTypedDataTable): Double;
function CalcularImporteNeto (const ImporteUnidad: Double = 0; const Incremento: Double = 0; const Decremento: Double = 0): Double;
implementation
uses
SysUtils, DB, Variants, cxControls;
SysUtils, DB, Variants, cxControls, uNumUtils;
function CalcularImporteNeto (const ImporteUnidad: Double = 0; const Incremento: Double = 0; const Decremento: Double = 0): Double;
var
PorcentajeIncrementar: Double;
ValorADecrementar: Double;
begin
//Regla de 3 escalar el precio complementario pedido por José Luís
//1000x40% = 1000 - 400 = 600: 1000 = 0,6 -> precio coste: 0,6
PorcentajeIncrementar := ((100 - Incremento)/100);
//Desactivamos a petición José Luís
// ValorADecrementar := ImporteUnidad * (Decremento/100);
Result := RoundCurrency(ImporteUnidad/PorcentajeIncrementar);
end;
function CalcularLineaConcepto (const ADataTable : TDADataTable): Double;
var
ImporteTotal : Double;
AField: TDAField;
ImporteTotal, ImporteNeto, Incremento, Decremento, Descuento, ImportePorte : Double;
begin
with ADataTable do
begin
if (VarIsNull(FieldByName(CAMPO_DESCUENTO).AsVariant)) then
ImporteTotal := FieldByName(CAMPO_CANTIDAD).asFloat * FieldByName(CAMPO_IMPORTE_UNIDAD).AsFloat
else
ImporteTotal := FieldByName(CAMPO_CANTIDAD).asFloat * (FieldByName(CAMPO_IMPORTE_UNIDAD).AsFloat - (FieldByName(CAMPO_IMPORTE_UNIDAD).AsFloat * (FieldByName(CAMPO_DESCUENTO).AsFloat/100)));
Incremento := 0;
Decremento := 0;
Descuento := 0;
ImportePorte := 0;
ImporteNeto := FieldByName(CAMPO_IMPORTE_UNIDAD).AsFloat;
if (VarIsNull(FieldByName(CAMPO_IMPORTE_PORTE).AsVariant)) then
ImporteTotal := ImporteTotal
else
ImporteTotal := ImporteTotal + (FieldByName(CAMPO_CANTIDAD).asFloat * FieldByName(CAMPO_IMPORTE_PORTE).AsFloat);
//Validamos la existencia del campo incremento, por si no está activo en otros módulos que no sean (presupuestos y contratos)
AField := FindField(CAMPO_INCREMENTO);
if Assigned(AField) then
if (not VarIsNull(AField.AsVariant)) then
Incremento := AField.AsFloat;
//Validamos la existencia del campo decremento, por si no está activo en otros módulos que no sean (presupuestos y contratos)
AField := FindField(CAMPO_DECREMENTO);
if Assigned(AField) then
if (not VarIsNull(AField.AsVariant)) then
Decremento := AField.AsFloat;
ImporteNeto := CalcularImporteNeto(ImporteNeto, Incremento, Decremento);
if (not VarIsNull(FieldByName(CAMPO_DESCUENTO).AsVariant)) then
Descuento := ImporteNeto * (FieldByName(CAMPO_DESCUENTO).AsFloat/100);
if (not VarIsNull(FieldByName(CAMPO_IMPORTE_PORTE).AsVariant)) then
ImportePorte := FieldByName(CAMPO_CANTIDAD).asFloat * FieldByName(CAMPO_IMPORTE_PORTE).AsFloat;
ImporteTotal := (RoundCurrency(ImporteNeto - Descuento) * FieldByName(CAMPO_CANTIDAD).asFloat) + ImportePorte;
end;
Result := ImporteTotal;

1
Source/Cliente/FactuGES.dpr
View File

@ -1,7 +1,6 @@
program FactuGES;
uses
ExceptionLog,
Forms,
Windows,
SysUtils,

7
Source/Cliente/FactuGES.dproj
View File

@ -43,7 +43,7 @@
<DCC_ResourcePath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10;T:\COMPON~1\jcl\lib\d11\debug;$(BDSCOMMONDIR)\Dcp;..\Lib;..\Modulos\Lib</DCC_ResourcePath>
<DCC_ObjPath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10;T:\COMPON~1\jcl\lib\d11\debug;$(BDSCOMMONDIR)\Dcp;..\Lib;..\Modulos\Lib</DCC_ObjPath>
<DCC_IncludePath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10;T:\COMPON~1\jcl\lib\d11\debug;$(BDSCOMMONDIR)\Dcp;..\Lib;..\Modulos\Lib</DCC_IncludePath>
<DCC_Define>DEBUG;EUREKALOG;EUREKALOG_VER6</DCC_Define>
<DCC_Define>DEBUG;</DCC_Define>
<DCC_DebugInfoInExe>True</DCC_DebugInfoInExe>
<DCC_DebugVN>True</DCC_DebugVN>
<DCC_MapFile>3</DCC_MapFile>
@ -52,7 +52,8 @@
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>VCLApplication</Borland.ProjectType>
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">3</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">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">3.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">3.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><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">3</VersionInfo><VersionInfo Name="MinorVer">4</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">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">3.4.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">3.4.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl">File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
</ProjectExtensions>
@ -80,7 +81,7 @@
<!-- EurekaLog First Line
[Exception Log]
EurekaLog Version=6006
Activate=1
Activate=0
Activate Handle=1
Save Log File=1
Foreground Tab=0

8
Source/Cliente/FactuGES.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "C:\Codigo Acana\Resources\Iconos\Factuges.ico"
1 VERSIONINFO
FILEVERSION 3,0,0,0
PRODUCTVERSION 3,0,0,0
FILEVERSION 3,4,0,0
PRODUCTVERSION 3,4,0,0
FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L
FILEOS 0x40004L
@ -13,10 +13,10 @@ BEGIN
BLOCK "0C0A04E4"
BEGIN
VALUE "CompanyName", "Rodax Software S.L.\0"
VALUE "FileVersion", "3.0.0.0\0"
VALUE "FileVersion", "3.4.0.0\0"
VALUE "InternalName", "FactuGES\0"
VALUE "ProductName", "FactuGES\0"
VALUE "ProductVersion", "3.0.0.0\0"
VALUE "ProductVersion", "3.4.0.0\0"
END
END
BLOCK "VarFileInfo"

BIN
Source/Cliente/FactuGES.res
View File

Binary file not shown.

56
Source/GUIBase/GUIBase.dproj
View File

@ -58,34 +58,34 @@
<DelphiCompile Include="GUIBase.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\Modulos\Contratos de cliente\Model\Base.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Model\ccpackD11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Model\cxDataD11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Model\cxEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Model\cxExportD11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Model\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Model\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Model\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Model\dxLayoutControlD11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Model\dxPScxCommonD11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Model\dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Model\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Model\frx11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Model\frxe11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Model\fs11.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Model\JvAppFrmD11R.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Model\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Model\JvGlobusD11R.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Model\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Model\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Model\rtl.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Model\tb2k_d10.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Model\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Model\vcl.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Model\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Model\vcldb.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Model\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Contratos de cliente\Model\vclx.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\ccpackD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxDataD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxExportD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxLayoutControlD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxPScxCommonD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\frx11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\frxe11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\fs11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvAppFrmD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvGlobusD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\tb2k_d10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\tbx_d10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
<DCCReference Include="uDialogBase.pas">
<Form>fDialogBase</Form>
</DCCReference>

10
Source/GUIBase/uViewDetallesBase.dfm
View File

@ -64,7 +64,7 @@ inherited frViewDetallesBase: TfrViewDetallesBase
DroppedDownWidth = 145
MaxMRUCount = 0
FontName = 'Tahoma'
ItemIndex = 40
ItemIndex = 35
Options = [foTrueTypeOnly, foNoOEMFonts, foScalableOnly, foWysiWyg]
Sorted = True
TabOrder = 2
@ -147,15 +147,13 @@ inherited frViewDetallesBase: TfrViewDetallesBase
end
object cxGrid: TcxGrid
Left = 0
Top = 75
Top = 72
Width = 451
Height = 229
Height = 232
Align = alClient
TabOrder = 1
LookAndFeel.Kind = lfStandard
LookAndFeel.NativeStyle = True
ExplicitTop = 72
ExplicitHeight = 232
object cxGridView: TcxGridDBTableView
OnKeyDown = cxGridViewKeyDown
NavigatorButtons.ConfirmDelete = False
@ -387,7 +385,7 @@ inherited frViewDetallesBase: TfrViewDetallesBase
Left = 0
Top = 46
Width = 451
Height = 29
Height = 26
BackgroundOnToolbars = False
UseParentBackground = True
object TBXToolbar1: TTBXToolbar

5
Source/GUIBase/uViewDetallesBase.pas
View File

@ -11,7 +11,7 @@ uses
PngImageList, cxGrid, cxImageComboBox, cxTextEdit, cxMaskEdit, cxCheckBox,
uGridUtils, uControllerDetallesBase, cxCurrencyEdit, ExtCtrls, Grids, DBGrids, StdCtrls,
ExtActns, StdActns, cxRichEdit, JvExStdCtrls, JvCombobox, JvColorCombo,
TB2Item, TBX, TB2Dock, TB2Toolbar, uDAInterfaces;
TB2Item, TBX, TB2Dock, TB2Toolbar, uDAInterfaces, cxMemo;
type
IViewDetallesBase = interface(IViewBase)
@ -241,6 +241,9 @@ var
AuxTop, AuxRow:Integer;
begin
if (Application.MessageBox('¿Está seguro que desea borrar este artículo?', 'Atención', MB_YESNO) = IDNO) then
Exit;
cxGridView.BeginUpdate;
try
if Assigned(Controller)

53
Source/GUIBase/uViewDetallesDTO.dfm
View File

@ -24,15 +24,31 @@ inherited frViewDetallesDTO: TfrViewDetallesDTO
end
inherited cxGrid: TcxGrid
inherited cxGridView: TcxGridDBTableView
object cxGridViewDESCUENTO: TcxGridDBColumn [6]
Caption = 'Dto'
DataBinding.FieldName = 'DESCUENTO'
object cxGridViewINCREMENTO: TcxGridDBColumn [6]
Caption = 'Incremento'
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.Alignment.Horz = taRightJustify
Properties.Alignment.Vert = taBottomJustify
Properties.DisplayFormat = ',0.00 %;-,0.00 %'
Properties.EditFormat = ',0.00;-,0.00'
Properties.MaxValue = 100.000000000000000000
Visible = False
HeaderAlignmentHorz = taRightJustify
VisibleForCustomization = False
end
object cxGridViewIMPORTENETO: TcxGridDBColumn [7]
object cxGridViewDECREMENTO: TcxGridDBColumn [7]
Caption = 'Decremento'
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.Alignment.Horz = taRightJustify
Properties.Alignment.Vert = taBottomJustify
Properties.DisplayFormat = ',0.00 %;-,0.00 %'
Properties.EditFormat = ',0.00;-,0.00'
Properties.MaxValue = 100.000000000000000000
Visible = False
HeaderAlignmentHorz = taRightJustify
VisibleForCustomization = False
end
object cxGridViewIMPORTENETO: TcxGridDBColumn [8]
Caption = 'Importe neto'
DataBinding.ValueType = 'Currency'
PropertiesClassName = 'TcxCurrencyEditProperties'
@ -41,17 +57,44 @@ inherited frViewDetallesDTO: TfrViewDetallesDTO
Properties.EditFormat = ',0.00 '#8364';-,0.00 '#8364
Properties.ReadOnly = True
Properties.OnValidate = cxGridViewIMPORTENETOPropertiesValidate
Visible = False
OnGetDisplayText = cxGridViewIMPORTENETOGetDisplayText
HeaderAlignmentHorz = taRightJustify
Options.Editing = False
VisibleForCustomization = False
end
object cxGridViewIMPORTEPORTE: TcxGridDBColumn [8]
object cxGridViewDESCUENTO: TcxGridDBColumn [9]
Caption = 'Dto'
DataBinding.FieldName = 'DESCUENTO'
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.DisplayFormat = ',0.00 %;-,0.00 %'
Properties.EditFormat = ',0.00;-,0.00'
Properties.MaxValue = 100.000000000000000000
VisibleForCustomization = False
end
object cxGridViewIMP_UNIDAD_DTO: TcxGridDBColumn [10]
Caption = 'Importe u. con dto'
DataBinding.ValueType = 'Currency'
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.Alignment.Horz = taRightJustify
Properties.ReadOnly = True
OnGetDisplayText = cxGridViewIMP_UNIDAD_DTOGetDisplayText
HeaderAlignmentHorz = taRightJustify
Options.Editing = False
VisibleForCustomization = False
end
object cxGridViewIMPORTEPORTE: TcxGridDBColumn [11]
Caption = 'Importe porte'
DataBinding.FieldName = 'IMPORTE_PORTE'
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.Alignment.Horz = taRightJustify
Properties.EditFormat = ',0.00 '#8364';-,0.00 '#8364
Visible = False
HeaderAlignmentHorz = taRightJustify
VisibleForCustomization = False
end
inherited cxGridViewIMPORTETOTAL: TcxGridDBColumn
VisibleForCustomization = False
end
end
end

75
Source/GUIBase/uViewDetallesDTO.pas
View File

@ -10,7 +10,7 @@ uses
StdActns, ExtActns, ActnList, TB2Item, TBX, TB2Dock, TB2Toolbar, cxGridLevel,
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses,
cxControls, cxGridCustomView, cxGrid, ComCtrls, StdCtrls, JvExStdCtrls,
JvCombobox, JvColorCombo, ToolWin, uDAInterfaces;
JvCombobox, JvColorCombo, ToolWin, uDAInterfaces, cxTextEdit, cxMemo;
type
IViewDetallesDTO = interface(IViewDetallesBase)
@ -21,10 +21,15 @@ type
cxGridViewDESCUENTO: TcxGridDBColumn;
cxGridViewIMPORTEPORTE: TcxGridDBColumn;
cxGridViewIMPORTENETO: TcxGridDBColumn;
cxGridViewDECREMENTO: TcxGridDBColumn;
cxGridViewINCREMENTO: TcxGridDBColumn;
cxGridViewIMP_UNIDAD_DTO: TcxGridDBColumn;
procedure cxGridViewIMPORTENETOGetDisplayText(Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord;
var AText: string);
procedure cxGridViewIMPORTENETOPropertiesValidate(Sender: TObject;
var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
procedure cxGridViewIMP_UNIDAD_DTOGetDisplayText(Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord;
var AText: string);
protected
function HayQueRecalcular(AItem: TcxCustomGridTableItem): Boolean; override;
end;
@ -32,21 +37,34 @@ type
implementation
{$R *.dfm}
uses
uNumUtils, uCalculosUtils;
{ TfrViewDetallesDTO }
procedure TfrViewDetallesDTO.cxGridViewIMPORTENETOGetDisplayText(Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord;
var AText: string);
var
ImporteNeto : Double;
ImporteNeto, Incremento, Decremento : Double;
begin
//Se encarga de mostrar el campo calculado de importe neto
ImporteNeto := -1;
Incremento := 0;
Decremento := 0;
if not VarIsNull(ARecord.Values[cxGridViewIMPORTEUNIDAD.Index]) then
if not VarIsNull(ARecord.Values[cxGridViewDESCUENTO.Index]) then
ImporteNeto := ARecord.Values[cxGridViewIMPORTEUNIDAD.Index] - ((ARecord.Values[cxGridViewIMPORTEUNIDAD.Index] * ARecord.Values[cxGridViewDESCUENTO.Index])/100)
else
ImporteNeto := ARecord.Values[cxGridViewIMPORTEUNIDAD.Index];
begin
ImporteNeto := ARecord.Values[cxGridViewIMPORTEUNIDAD.Index];
if not VarIsNull(ARecord.Values[cxGridViewINCREMENTO.Index]) then
Incremento := ARecord.Values[cxGridViewINCREMENTO.Index];
if not VarIsNull(ARecord.Values[cxGridViewDECREMENTO.Index]) then
Decremento := ARecord.Values[cxGridViewDECREMENTO.Index];
ImporteNeto := CalcularImporteNeto(ARecord.Values[cxGridViewIMPORTEUNIDAD.Index], Incremento, Decremento);
end;
if (ImporteNeto <> -1) then
begin
@ -58,10 +76,47 @@ procedure TfrViewDetallesDTO.cxGridViewIMPORTENETOPropertiesValidate(Sender: TOb
var Error: Boolean);
begin
inherited;
if not VarIsNull(DisplayValue) then
// if not VarIsNull(DisplayValue) then
// begin
// cxGridViewDESCUENTO.DataBinding.Field.Value := ((cxGridViewIMPORTEUNIDAD.DataBinding.Field.Value - DisplayValue) * 100) / cxGridViewIMPORTEUNIDAD.DataBinding.Field.Value;
// Controller.ActualizarTotales(Detalles);
// end;
end;
procedure TfrViewDetallesDTO.cxGridViewIMP_UNIDAD_DTOGetDisplayText(Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord;
var AText: string);
var
ImporteUnidadDTO, ImporteNeto, Incremento, Decremento, Descuento : Double;
begin
//Se encarga de mostrar el campo calculado de importe neto
ImporteNeto := -1;
Incremento := 0;
Decremento := 0;
Descuento := 0;
if not VarIsNull(ARecord.Values[cxGridViewIMPORTEUNIDAD.Index]) then
begin
cxGridViewDESCUENTO.DataBinding.Field.Value := ((cxGridViewIMPORTEUNIDAD.DataBinding.Field.Value - DisplayValue) * 100) / cxGridViewIMPORTEUNIDAD.DataBinding.Field.Value;
Controller.ActualizarTotales(Detalles);
ImporteNeto := ARecord.Values[cxGridViewIMPORTEUNIDAD.Index];
if not VarIsNull(ARecord.Values[cxGridViewINCREMENTO.Index]) then
Incremento := ARecord.Values[cxGridViewINCREMENTO.Index];
if not VarIsNull(ARecord.Values[cxGridViewDECREMENTO.Index]) then
Decremento := ARecord.Values[cxGridViewDECREMENTO.Index];
ImporteNeto := CalcularImporteNeto(ARecord.Values[cxGridViewIMPORTEUNIDAD.Index], Incremento, Decremento);
if not VarIsNull(ARecord.Values[cxGridViewDESCUENTO.Index]) then
Descuento := ImporteNeto * (ARecord.Values[cxGridViewDESCUENTO.Index]/100);
ImporteUnidadDTO := RoundCurrency(ImporteNeto - Descuento);
end;
if (Descuento <> 0) then
begin
AText := FormatCurr(',0.00 €;-,0.00 €', FloatToCurr(ImporteUnidadDTO))
end;
end;
@ -69,7 +124,7 @@ function TfrViewDetallesDTO.HayQueRecalcular(AItem: TcxCustomGridTableItem): Boo
begin
Result := inherited HayQueRecalcular(AItem);
if not Result then
Result := (AItem = cxGridViewDESCUENTO) or (AItem = cxGridViewIMPORTEPORTE);
Result := (AItem = cxGridViewINCREMENTO) or (AItem = cxGridViewDECREMENTO) or (AItem = cxGridViewDESCUENTO) or (AItem = cxGridViewIMPORTEPORTE);
end;
end.

40
Source/Informes/5/InfAlbaranCliente.fr3
View File

File diff suppressed because one or more lines are too long

87
Source/Informes/6/InfPresupuestoCliente.fr3 Normal file
View File

File diff suppressed because one or more lines are too long

8
Source/Informes/InfContratoCliente.fr3
View File

File diff suppressed because one or more lines are too long

6
Source/Informes/InfPresupuestoCliente.fr3
View File

File diff suppressed because one or more lines are too long

2
Source/Modulos/Albaranes de cliente/Views/uViewAlbaranCliente.dfm
View File

@ -605,7 +605,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item23: TdxLayoutItem
Caption = 'Ref. cliente:'
Caption = 'Ref. contenido:'
Control = eRefCliente
ControlOptions.ShowBorder = False
end

38
Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.dfm
View File

@ -74,27 +74,26 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
object cxGridViewSITUACION: TcxGridDBColumn
DataBinding.FieldName = 'SITUACION'
BestFitMaxWidth = 45
Width = 70
Width = 67
end
object cxGridViewFECHA_ALBARAN: TcxGridDBColumn
DataBinding.FieldName = 'FECHA_ALBARAN'
BestFitMaxWidth = 45
SortIndex = 0
SortOrder = soDescending
Width = 94
Width = 90
end
object cxGridViewREF_PEDIDO: TcxGridDBColumn
Caption = 'Ref. contenido'
DataBinding.FieldName = 'REFERENCIA_CLIENTE'
BestFitMaxWidth = 45
Width = 66
end
object cxGridViewNOMBRE: TcxGridDBColumn
Caption = 'Cliente'
DataBinding.FieldName = 'NOMBRE'
BestFitMaxWidth = 120
Width = 601
end
object cxGridViewREF_PEDIDO: TcxGridDBColumn
DataBinding.FieldName = 'REF_PEDIDO'
Visible = False
BestFitMaxWidth = 45
VisibleForCustomization = False
Width = 39
Width = 555
end
object cxGridViewFECHA_PREVISTA_ENVIO: TcxGridDBColumn
DataBinding.FieldName = 'FECHA_PREVISTA_ENVIO'
@ -120,12 +119,12 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
object cxGridViewREF_CONTRATO: TcxGridDBColumn
DataBinding.FieldName = 'REF_CONTRATO'
BestFitMaxWidth = 45
Width = 75
Width = 70
end
object cxGridViewREF_FACTURA: TcxGridDBColumn
DataBinding.FieldName = 'REF_FACTURA'
BestFitMaxWidth = 45
Width = 73
Width = 68
end
object cxGridViewNOMBRE_ALMACEN: TcxGridDBColumn
DataBinding.FieldName = 'NOMBRE_ALMACEN'
@ -171,11 +170,12 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
Properties.Alignment.Horz = taRightJustify
FooterAlignmentHorz = taRightJustify
HeaderAlignmentHorz = taRightJustify
Width = 78
Width = 72
end
object cxGridViewLISTA_NOMBRES: TcxGridDBColumn
Caption = 'Otros nombres'
DataBinding.FieldName = 'LISTA_NOMBRES'
Width = 59
end
end
inherited cxGridLevel: TcxGridLevel
@ -209,15 +209,27 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
Width = 1121
ExplicitWidth = 1121
inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 499
Width = 499
end
inherited edtFechaIniFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 147
Width = 147
end
inherited edtFechaFinFiltro: TcxDateEdit
Left = 457
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 457
ExplicitWidth = 335
Width = 335

101
Source/Modulos/Albaranes de cliente/Views/uViewDetallesAlbaranCliente.dfm
View File

@ -1,117 +1,20 @@
inherited frViewDetallesAlbaranCliente: TfrViewDetallesAlbaranCliente
Width = 1016
Height = 639
inherited ToolBar1: TToolBar
Width = 1016
Height = 24
inherited ToolButton4: TToolButton
Wrap = False
end
inherited ToolButton14: TToolButton
Left = 334
Top = 0
ExplicitLeft = 334
ExplicitTop = 0
end
inherited FontName: TJvFontComboBox
Left = 368
Top = 0
ExplicitLeft = 368
ExplicitTop = 0
end
inherited FontSize: TEdit
Left = 513
Top = 0
ExplicitLeft = 513
ExplicitTop = 0
end
inherited UpDown1: TUpDown
Left = 555
Top = 0
ExplicitLeft = 555
ExplicitTop = 0
end
inherited ToolButton13: TToolButton
Left = 572
Top = 0
ExplicitLeft = 572
ExplicitTop = 0
end
inherited ToolButton6: TToolButton
Left = 580
Top = 0
ExplicitLeft = 580
ExplicitTop = 0
end
inherited ToolButton7: TToolButton
Left = 614
Top = 0
ExplicitLeft = 614
ExplicitTop = 0
end
inherited ToolButton8: TToolButton
Left = 648
Top = 0
ExplicitLeft = 648
ExplicitTop = 0
end
inherited ToolButton12: TToolButton
Left = 682
Top = 0
ExplicitLeft = 682
ExplicitTop = 0
end
inherited ToolButton9: TToolButton
Left = 690
Top = 0
ExplicitLeft = 690
ExplicitTop = 0
end
inherited ToolButton10: TToolButton
Left = 724
Top = 0
ExplicitLeft = 724
ExplicitTop = 0
end
inherited ToolButton11: TToolButton
Left = 758
Top = 0
ExplicitLeft = 758
ExplicitTop = 0
end
end
inherited cxGrid: TcxGrid
Top = 50
Width = 1016
Height = 589
inherited cxGridView: TcxGridDBTableView
inherited cxGridViewDESCRIPCION: TcxGridDBColumn
Width = 752
end
inherited cxGridViewCANTIDAD: TcxGridDBColumn
VisibleForCustomization = False
Width = 68
end
inherited cxGridViewIMPORTEUNIDAD: TcxGridDBColumn
VisibleForCustomization = False
Width = 97
end
inherited cxGridViewDESCUENTO: TcxGridDBColumn
Visible = False
VisibleForCustomization = False
end
inherited cxGridViewIMPORTENETO: TcxGridDBColumn
Visible = False
VisibleForCustomization = False
end
inherited cxGridViewIMPORTETOTAL: TcxGridDBColumn
Width = 83
end
end
end
inherited TBXDock1: TTBXDock
Top = 24
Width = 1016
inherited TBXToolbar1: TTBXToolbar
ExplicitWidth = 548
end
end
end

56
Source/Modulos/Albaranes de proveedor/AlbaranesProveedor_Group.groupproj
View File

@ -9,12 +9,17 @@
<Projects Include="..\..\Cliente\FactuGES.dproj" />
<Projects Include="..\..\GUIBase\GUIBase.dproj" />
<Projects Include="..\..\Servidor\FactuGES_Server.dproj" />
<Projects Include="..\Almacenes\Plugin\Almacenes_plugin.dproj" />
<Projects Include="..\Almacenes\Views\Almacenes_view.dproj" />
<Projects Include="..\Articulos\Views\Articulos_view.dproj" />
<Projects Include="..\Contabilidad\Views\Contabilidad_view.dproj" />
<Projects Include="..\Contactos\Controller\Contactos_controller.dproj" />
<Projects Include="..\Contactos\Views\Contactos_view.dproj" />
<Projects Include="..\Facturas de proveedor\Controller\FacturasProveedor_controller.dproj" />
<Projects Include="..\Facturas de proveedor\Views\FacturasProveedor_view.dproj" />
<Projects Include="..\Pedidos a proveedor\Controller\PedidosProveedor_controller.dproj" />
<Projects Include="..\Pedidos a proveedor\Views\PedidosProveedor_view.dproj" />
<Projects Include="..\Relaciones\Pedidos de proveedor - Albaranes de proveedor\PedProv_AlbProv_relation.dproj" />
<Projects Include="Controller\AlbaranesProveedor_controller.dproj" />
<Projects Include="Data\AlbaranesProveedor_data.dproj" />
<Projects Include="Model\AlbaranesProveedor_model.dproj" />
@ -171,14 +176,59 @@
<Target Name="FacturasProveedor_controller:Make">
<MSBuild Projects="..\Facturas de proveedor\Controller\FacturasProveedor_controller.dproj" Targets="Make" />
</Target>
<Target Name="PedProv_AlbProv_relation">
<MSBuild Projects="..\Relaciones\Pedidos de proveedor - Albaranes de proveedor\PedProv_AlbProv_relation.dproj" Targets="" />
</Target>
<Target Name="PedProv_AlbProv_relation:Clean">
<MSBuild Projects="..\Relaciones\Pedidos de proveedor - Albaranes de proveedor\PedProv_AlbProv_relation.dproj" Targets="Clean" />
</Target>
<Target Name="PedProv_AlbProv_relation:Make">
<MSBuild Projects="..\Relaciones\Pedidos de proveedor - Albaranes de proveedor\PedProv_AlbProv_relation.dproj" Targets="Make" />
</Target>
<Target Name="PedidosProveedor_controller">
<MSBuild Projects="..\Pedidos a proveedor\Controller\PedidosProveedor_controller.dproj" Targets="" />
</Target>
<Target Name="PedidosProveedor_controller:Clean">
<MSBuild Projects="..\Pedidos a proveedor\Controller\PedidosProveedor_controller.dproj" Targets="Clean" />
</Target>
<Target Name="PedidosProveedor_controller:Make">
<MSBuild Projects="..\Pedidos a proveedor\Controller\PedidosProveedor_controller.dproj" Targets="Make" />
</Target>
<Target Name="PedidosProveedor_view">
<MSBuild Projects="..\Pedidos a proveedor\Views\PedidosProveedor_view.dproj" Targets="" />
</Target>
<Target Name="PedidosProveedor_view:Clean">
<MSBuild Projects="..\Pedidos a proveedor\Views\PedidosProveedor_view.dproj" Targets="Clean" />
</Target>
<Target Name="PedidosProveedor_view:Make">
<MSBuild Projects="..\Pedidos a proveedor\Views\PedidosProveedor_view.dproj" Targets="Make" />
</Target>
<Target Name="Almacenes_view">
<MSBuild Projects="..\Almacenes\Views\Almacenes_view.dproj" Targets="" />
</Target>
<Target Name="Almacenes_view:Clean">
<MSBuild Projects="..\Almacenes\Views\Almacenes_view.dproj" Targets="Clean" />
</Target>
<Target Name="Almacenes_view:Make">
<MSBuild Projects="..\Almacenes\Views\Almacenes_view.dproj" Targets="Make" />
</Target>
<Target Name="Almacenes_plugin">
<MSBuild Projects="..\Almacenes\Plugin\Almacenes_plugin.dproj" Targets="" />
</Target>
<Target Name="Almacenes_plugin:Clean">
<MSBuild Projects="..\Almacenes\Plugin\Almacenes_plugin.dproj" Targets="Clean" />
</Target>
<Target Name="Almacenes_plugin:Make">
<MSBuild Projects="..\Almacenes\Plugin\Almacenes_plugin.dproj" Targets="Make" />
</Target>
<Target Name="Build">
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;Articulos_view;AlbaranesProveedor_model;AlbaranesProveedor_data;AlbaranesProveedor_controller;AlbaranesProveedor_view;AlbaranesProveedor_plugin;FactuGES;FactuGES_Server;FacturasProveedor_view;Contabilidad_view;Contactos_controller;FacturasProveedor_controller" />
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;Articulos_view;AlbaranesProveedor_model;AlbaranesProveedor_data;AlbaranesProveedor_controller;AlbaranesProveedor_view;AlbaranesProveedor_plugin;FactuGES;FactuGES_Server;FacturasProveedor_view;Contabilidad_view;Contactos_controller;FacturasProveedor_controller;PedProv_AlbProv_relation;PedidosProveedor_controller;PedidosProveedor_view;Almacenes_view;Almacenes_plugin" />
</Target>
<Target Name="Clean">
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;Articulos_view:Clean;AlbaranesProveedor_model:Clean;AlbaranesProveedor_data:Clean;AlbaranesProveedor_controller:Clean;AlbaranesProveedor_view:Clean;AlbaranesProveedor_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;FacturasProveedor_view:Clean;Contabilidad_view:Clean;Contactos_controller:Clean;FacturasProveedor_controller:Clean" />
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;Articulos_view:Clean;AlbaranesProveedor_model:Clean;AlbaranesProveedor_data:Clean;AlbaranesProveedor_controller:Clean;AlbaranesProveedor_view:Clean;AlbaranesProveedor_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;FacturasProveedor_view:Clean;Contabilidad_view:Clean;Contactos_controller:Clean;FacturasProveedor_controller:Clean;PedProv_AlbProv_relation:Clean;PedidosProveedor_controller:Clean;PedidosProveedor_view:Clean;Almacenes_view:Clean;Almacenes_plugin:Clean" />
</Target>
<Target Name="Make">
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;Articulos_view:Make;AlbaranesProveedor_model:Make;AlbaranesProveedor_data:Make;AlbaranesProveedor_controller:Make;AlbaranesProveedor_view:Make;AlbaranesProveedor_plugin:Make;FactuGES:Make;FactuGES_Server:Make;FacturasProveedor_view:Make;Contabilidad_view:Make;Contactos_controller:Make;FacturasProveedor_controller:Make" />
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;Articulos_view:Make;AlbaranesProveedor_model:Make;AlbaranesProveedor_data:Make;AlbaranesProveedor_controller:Make;AlbaranesProveedor_view:Make;AlbaranesProveedor_plugin:Make;FactuGES:Make;FactuGES_Server:Make;FacturasProveedor_view:Make;Contabilidad_view:Make;Contactos_controller:Make;FacturasProveedor_controller:Make;PedProv_AlbProv_relation:Make;PedidosProveedor_controller:Make;PedidosProveedor_view:Make;Almacenes_view:Make;Almacenes_plugin:Make" />
</Target>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project>

280
Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorController.pas
View File

@ -7,7 +7,7 @@ uses
SysUtils, uDADataTable, uEditorDBItem,
uControllerBase, uIDataModuleAlbaranesProveedor, uProveedoresController,
uDetallesAlbaranProveedorController, uBizAlbaranesProveedor,
uBizDireccionesContacto;
uBizDireccionesContacto, uBizPedidosProveedor;
//, uBizInventario;
type
@ -30,10 +30,11 @@ type
procedure VerTodosAlbaranes(AAlbarans: IBizAlbaranProveedor);
procedure VerTodosAlbaranesDev(AAlbarans: IBizAlbaranProveedor);
procedure VerDireccionEntrega(AAlbaran : IBizAlbaranProveedor);
function Nuevo : IBizAlbaranProveedor;
function Nuevo (WithInsert: Boolean = True): IBizAlbaranProveedor;
function Anadir(AAlbaran : IBizAlbaranProveedor) : Boolean; overload;
function AnadirAlbaranDev(AAlbaran : IBizAlbaranProveedor) : Boolean;
// function Anadir(AAlbaran : IBizAlbaranProveedor; const IDPedido : Integer; AInventarioRecibido: IBizInventario): Boolean; overload;
function Anadir(AAlbaranes : IBizAlbaranProveedor; AListaPedidos : IBizPedidoProveedor; ANumBultos: Variant; AUbicacion: Variant; AAlmacen: Variant; AFechaRecepcion: TDateTime): Boolean; overload;
function Eliminar(const ID : Integer): Boolean; overload;
function Eliminar(AAlbaran : IBizAlbaranProveedor; AllItems: Boolean = false): Boolean; overload;
@ -95,12 +96,14 @@ type
function Anadir(AAlbaran : IBizAlbaranProveedor) : Boolean; overload;
function AnadirAlbaranDev(AAlbaran : IBizAlbaranProveedor) : Boolean;
// function Anadir(AAlbaran : IBizAlbaranProveedor; const IDPedido : Integer; AInventarioRecibido: IBizInventario): Boolean; overload;
function Anadir(AAlbaranes : IBizAlbaranProveedor; AListaPedidos : IBizPedidoProveedor; ANumBultos: Variant; AUbicacion: Variant; AAlmacen: Variant; AFechaRecepcion: TDateTime): Boolean; overload;
function Buscar(const ID: Integer): IBizAlbaranProveedor;
function BuscarTodos: IBizAlbaranProveedor;
function BuscarAlbaranesNormales: IBizAlbaranProveedor;
function BuscarAlbaranesDevolucion: IBizAlbaranProveedor;
function BuscarSinFacturar : IBizAlbaranProveedor;
function Nuevo : IBizAlbaranProveedor;
function Nuevo (WithInsert: Boolean = True): IBizAlbaranProveedor;
procedure Ver(AAlbaran : IBizAlbaranProveedor);
procedure VerTodosAlbaranes(AAlbarans: IBizAlbaranProveedor);
procedure VerTodosAlbaranesDev(AAlbarans: IBizAlbaranProveedor);
@ -131,7 +134,7 @@ uses
schAlbaranesProveedorClient_Intf, uDAInterfaces, uDateUtils, uIEditorAlbaranProveedor,
uIEditorElegirAlbaranesProveedor, uIEditorDireccionEntregaAlbaranProveedor,
schContactosClient_Intf, Forms, schPedidosProveedorClient_Intf, uFactuGES_App,
uBizPedidosProveedor, uPedidosProveedorController,
uPedidosProveedorController, uBizDetallesPedidoProveedor,
// schInventarioClient_Intf,
uArticulosController, uBizArticulos, uControllerDetallesBase, Classes,
schArticulosClient_Intf, uControllerDetallesArticulos, Variants, uDialogUtils,
@ -173,8 +176,90 @@ begin
AAlbaran.ID_ALMACEN := APedido.ID_ALMACEN;
end;
{
procedure CopiarArticulosAAlbaran(APedido: IBizPedidoProveedor; AAlbaran: IBizAlbaranProveedor;
procedure CopiarArticulosAAlbaran (ID_PEDIDO: Integer; ADetallesPedido: IBizDetallesPedidoProveedor; ADetallesDestino: IBizDetallesAlbaranProveedor);
var
i : integer;
ADetallesController : IDetallesAlbaranProveedorController;
ACantidad: Variant;
ArticulosAnadidosAux: TStringList;
ACadena: String;
begin
if not Assigned(ADetallesPedido) then
raise Exception.Create ('ADetallesPedido no asignado (CopiarArticulosPedidoAlbaran)');
if not Assigned(ADetallesDestino) then
raise Exception.Create ('Destino no asignado (CopiarArticulosPedido)');
if not ADetallesPedido.DataTable.Active then
ADetallesPedido.DataTable.Active := True;
if not ADetallesDestino.DataTable.Active then
ADetallesDestino.DataTable.Active := True;
ADetallesController := TDetallesAlbaranProveedorController.Create;
// ArticulosAnadidosAux:= TStringList.Create;
try
//OJO IMPORTANTE
//Siempre que vayamos a trabajar con los detalles debemos hacer un beginupdate de los mismos y un endupdate para
//obligarle siempre a recalcular los detalles una sola vez
ADetallesController.BeginUpdate(ADetallesDestino);
ADetallesPedido.DataTable.First;
for i := 0 to ADetallesPedido.DataTable.RecordCount - 1 do
begin
ACadena := '';
//EN ACANA no se puede recibir parcialmente
ACantidad := ADetallesPedido.CANTIDAD;
{ //Comprobamos el articulo del pedido no haya sido recibido ya en otro albaran.
AArticulosPendientes.DataTable.First;
if AArticulosPendientes.DataTable.Locate(fld_PedidosProveedor_DetallesID_ARTICULO, ADetallesPedido.ID_ARTICULO, []) then
begin
//Esto es para el caso de meter edl mismo articulo varias veces en el pedido cambiando la descripción, si esto ocurre,
//Metemos en la primera aparición la suma de las unidades a recibir y en las siguiente apariciones se pone CERO
if (ArticulosAnadidosAux.IndexOf(IntToStr(AOrigen.ID_ARTICULO)) = -1) then
begin
ACantidad := AArticulosPendientes.CANTIDAD;
ArticulosAnadidosAux.Add(IntToStr(ADetallesPedido.ID_ARTICULO));
end
else begin
ACantidad := 0;
ACadena := #10 + #13 + ' - Artículo con ref. ' + ADetallesPedido.REFERENCIA + ' repetido en otra linea y descripción diferente';
end;
end
else
begin
ACantidad := 0; //AOrigen.CANTIDAD;
ACadena := ' - Recibido en un albarán anterior'
end;
}
ADetallesController.Add(ADetallesDestino, TIPO_DETALLE_CONCEPTO);
ADetallesDestino.Edit;
// ADetallesDestino.REFERENCIA := ADetallesPedido.REFERENCIA;
if ADetallesPedido.ID_ARTICULO > 0 then
ADetallesDestino.ID_ARTICULO := ADetallesPedido.ID_ARTICULO;
ADetallesDestino.CONCEPTO := ADetallesPedido.CONCEPTO + ACadena;
ADetallesDestino.CANTIDAD := ACantidad;
ADetallesDestino.IMPORTE_UNIDAD := ADetallesPedido.IMPORTE_UNIDAD;
ADetallesDestino.IMPORTE_TOTAL := ADetallesPedido.IMPORTE_TOTAL;
ADetallesDestino.DESCUENTO := ADetallesPedido.DESCUENTO;
ADetallesDestino.IMPORTE_PORTE := ADetallesPedido.IMPORTE_PORTE;
ADetallesDestino.VISIBLE := ADetallesPedido.VISIBLE;
// ADetallesDestino.REFERENCIA_PROVEEDOR := ADetallesPedido.REFERENCIA_PROVEEDOR;
ADetallesDestino.ID_PEDIDO := ID_PEDIDO;
ADetallesDestino.Post;
ADetallesPedido.Next;
end;
finally
// ArticulosAnadidosAux.Destroy;
ADetallesController.EndUpdate(ADetallesDestino);
ADetallesController := NIL;
end;
end;
{procedure CopiarArticulosAAlbaran(APedido: IBizPedidoProveedor; AAlbaran: IBizAlbaranProveedor;
AInventarioRecibido: IBizInventario);
var
i : integer;
@ -344,6 +429,183 @@ begin
end;
}
function TAlbaranesProveedorController.Anadir(AAlbaranes: IBizAlbaranProveedor;
AListaPedidos: IBizPedidoProveedor; ANumBultos: Variant; AUbicacion: Variant; AAlmacen: Variant; AFechaRecepcion: TDateTime): Boolean;
var
AAlbaranActual : IBizAlbaranProveedor;
APedidosController : IPedidosProveedorController;
// AArticulosPendientes : IBizDetallesPedidoProveedorPend;
I: Integer;
bEnEdicion : Boolean;
begin
Result := False;
// ATENCIÓN!!! AAlbaranes tiene que estar vacio para no pisar albaranes
// ya generados.
if not Assigned(AAlbaranes) then
raise Exception.Create ('Albaran no asignado (Anadir)');
if not Assigned(AListaPedidos) then
raise Exception.Create ('Pedidos no asignados (Anadir)');
if not AAlbaranes.DataTable.Active then
AAlbaranes.DataTable.Active := True;
if not AListaPedidos.DataTable.Active then
AListaPedidos.DataTable.Active := True;
ShowHourglassCursor;
Application.ProcessMessages;
APedidosController := TPedidosProveedorController.Create;
try
// Ordenar por fecha de pedido
AListaPedidos.DataTable.Sort([fld_PedidosProveedorFECHA_PEDIDO], [uDADataTable.sdAscending]);
AListaPedidos.First;
for I := 0 to AListaPedidos.DataTable.RecordCount - 1 do
begin
AListaPedidos._Proveedor := NIL;
AAlbaranActual := NIL;
// Busco si hay algun albarán ya hecho de ese Proveedor
AAlbaranes.DataTable.First;
if AAlbaranes.DataTable.Locate(fld_AlbaranesProveedorID_Proveedor, AListaPedidos.ID_Proveedor, []) then
begin
AAlbaranActual := AAlbaranes;
RecuperarProveedor(AAlbaranActual);
AAlbaranActual.Proveedor.DataTable.Active := True;
bEnEdicion := (AAlbaranActual.DataTable.State in dsEditModes);
if not bEnEdicion then
AAlbaranActual.Edit;
//Si ya tenemos un albarán quiere decir que dicho albarán va ha recibir mas de un pedido
//por lo que la relación con el pedido se traslada a los articulos detalles, es decir un albarán que recibe varios pedidos
//el idPedido de la cabeceza será null.
AAlbaranActual.ID_PEDIDOIsNull := True;
//Cuando elijo varios pedidos ponemos como almacén destino siempre el que tenga asociado el primer pedido del albaran
// AAlbaranActual.ID_ALMACEN := AL PASADO POR PARAMETRO
AAlbaranActual.Post;
if bEnEdicion then
AAlbaranActual.Edit;
end
else begin
// No hay albaran de ese Proveedor. Creo una nueva
Anadir(AAlbaranes);
APedidosController.RecuperarProveedor(AListaPedidos);
AAlbaranes.Proveedor := AListaPedidos.Proveedor;
//Siempre asignaremos por defecto el ID_PEDIDO del primer pedido de la lista, si hay más pedidos en el albarán luego los pondremos a null,
//con ID_ALMACEN pasará lo mismo
bEnEdicion := (AAlbaranes.DataTable.State in dsEditModes);
if not bEnEdicion then
AAlbaranes.Edit;
AAlbaranes.ID_PEDIDO := AListaPedidos.ID;
if (AAlmacen = 0) then
AAlbaranes.DataTable.FieldByName(fld_PedidosProveedorID_ALMACEN).AsVariant := Null
else
AAlbaranes.ID_ALMACEN := AAlmacen;
AAlbaranes.CALLE := AListaPedidos.CALLE;
AAlbaranes.CODIGO_POSTAL := AListaPedidos.CODIGO_POSTAL;
AAlbaranes.POBLACION := AListaPedidos.POBLACION;
AAlbaranes.PROVINCIA := AListaPedidos.PROVINCIA;
AAlbaranes.PERSONA_CONTACTO := AListaPedidos.PERSONA_CONTACTO;
AAlbaranes.TELEFONO := AListaPedidos.TELEFONO;
AAlbaranes.Post;
if bEnEdicion then
AAlbaranes.Edit;
//Si el albaran es de tipo devolución hacemos la factura de tipo abono
{ if (AListaAlbaranes.TIPO = CTE_TIPO_ALBARAN_DEV) then
begin
bEnEdicion := (AFacturas.DataTable.State in dsEditModes);
if not bEnEdicion then
AFacturas.Edit;
AFacturas.TIPO := CTE_TIPO_ABONO;
AFacturas.Post;
if bEnEdicion then
AFacturas.Edit;
end;
}
AAlbaranActual := AAlbaranes;
end;
// Ya tengo el albarán. Le añado los conceptos del pedido
//Recogemos los articulos pendientes de recibir de pedido, para solo recibir lo restante si ya estubiera recibido parcialmente.
//SOLO SE TENDRA EN CUENTA LOS INVENTARIABLES
// AArticulosPendientes := APedidosController.ArticulosPendientesDeRecibir(AListaPedidos.ID);
//OJO
//En el caso de acana se copian todos los detalles no hay pedidos parcialmenterecibidos.
AAlbaranActual.Detalles.DataTable.Last;
// Añado el título
Self.DetallesController.Add(AAlbaranActual.Detalles, TIPO_DETALLE_TITULO);
with AAlbaranActual.Detalles do
begin
Edit;
CONCEPTO := 'Pedido ' + AListaPedidos.REFERENCIA + ' del ' + DateToStr(AListaPedidos.FECHA_PEDIDO);
Post;
end;
// Añado el contenido del pedido
CopiarArticulosAAlbaran(AListaPedidos.ID, AListaPedidos.Detalles, AAlbaranActual.Detalles);
{En los albaranes a proveedor el porte es a nivel del artículo
Self.DetallesController.Add(AFacturaActual.Detalles, TIPO_DETALLE_CONCEPTO);
with AFacturaActual.Detalles do
begin
Edit;
CONCEPTO := 'Porte del albarán';
CANTIDAD := 1;
IMPORTE_UNIDAD := AListaAlbaranes.IMPORTE_PORTE;
Post;
end;
}
// Añado el resumen
Self.DetallesController.Add(AAlbaranActual.Detalles, TIPO_DETALLE_SUBTOTAL);
with AAlbaranActual.Detalles do
begin
Edit;
CONCEPTO := 'Total del pedido ' + AListaPedidos.REFERENCIA;
Post;
end;
// Añado una línea en blanco
Self.DetallesController.Add(AAlbaranActual.Detalles, TIPO_DETALLE_CONCEPTO);
with AAlbaranActual.Detalles do
begin
Edit;
CONCEPTO := '';
Post;
end;
// Guardo el albaran que acabo de generar o editar
AAlbaranActual.CalcularImporteTotal;
Self.Guardar(AAlbaranActual);
// Se asocia el pedido al albaran ya que un pedido solo vendrá en un único albarán
// Asignamos el almacen y ubicación así como numero de bultos del pedido
AListaPedidos.Edit;
AListaPedidos.ID_ALBARAN := AAlbaranActual.ID;
AListaPedidos.ID_ALMACEN := AAlmacen;
AListaPedidos.UBICACION := AUbicacion;
AListaPedidos.NUM_BULTOS := ANumBultos;
AListaPedidos.FECHA_ENTREGA := AFechaRecepcion;
AListaPedidos.Post;
APedidosController.Guardar(AListaPedidos);
AListaPedidos.Next;
end;
Result := True;
finally
APedidosController := NIL;
HideHourglassCursor
end;
end;
function TAlbaranesProveedorController.AnadirAlbaranDev(AAlbaran: IBizAlbaranProveedor): Boolean;
begin
Result := Anadir(AAlbaran);
@ -946,17 +1208,19 @@ begin
end;
end;
function TAlbaranesProveedorController.Nuevo: IBizAlbaranProveedor;
function TAlbaranesProveedorController.Nuevo (WithInsert: Boolean = True): IBizAlbaranProveedor;
var
AAlbaran : IBizAlbaranProveedor;
begin
AAlbaran := FDataModule.NewItem;
FiltrarEmpresa(AAlbaran);
AAlbaran.DataTable.Active := True;
AAlbaran.Insert;
if WithInsert then
AAlbaran.Insert;
Result := AAlbaran;
end;
procedure TAlbaranesProveedorController.Preview(AAlbaran: IBizAlbaranProveedor; AllItems: Boolean = false);
var
AReportController : IAlbaranesProveedorReportController;

4
Source/Modulos/Albaranes de proveedor/Data/uDataModuleAlbaranesProveedor.dfm
View File

@ -375,6 +375,10 @@ inherited DataModuleAlbaranesProveedor: TDataModuleAlbaranesProveedor
Size = 255
DisplayLabel = 'Ref. proveedor'
DictionaryEntry = 'AlbaranesProveedor_Detalles_REFERENCIA_PROVEEDOR'
end
item
Name = 'ID_PEDIDO'
DataType = datInteger
end>
Params = <>
MasterMappingMode = mmWhere

43
Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorClient_Intf.pas
View File

@ -9,8 +9,8 @@ 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_AlbaranesProveedor = '{FC51EA41-4822-47DC-9EA6-8A81B75EEBF0}';
RID_AlbaranesProveedor_Detalles = '{D33B5B6F-E114-4A97-B524-94872D62277C}';
RID_AlbaranesProveedor = '{8BE31A69-3F96-4428-A51C-774590E24FA1}';
RID_AlbaranesProveedor_Detalles = '{87E2A4FF-4130-4DA0-BCBC-EFED39A33D83}';
{ Data table names }
nme_AlbaranesProveedor = 'AlbaranesProveedor';
@ -113,6 +113,7 @@ const
fld_AlbaranesProveedor_DetallesIMPORTE_PORTE = 'IMPORTE_PORTE';
fld_AlbaranesProveedor_DetallesREFERENCIA = 'REFERENCIA';
fld_AlbaranesProveedor_DetallesREFERENCIA_PROVEEDOR = 'REFERENCIA_PROVEEDOR';
fld_AlbaranesProveedor_DetallesID_PEDIDO = 'ID_PEDIDO';
{ AlbaranesProveedor_Detalles field indexes }
idx_AlbaranesProveedor_DetallesID = 0;
@ -129,11 +130,12 @@ const
idx_AlbaranesProveedor_DetallesIMPORTE_PORTE = 11;
idx_AlbaranesProveedor_DetallesREFERENCIA = 12;
idx_AlbaranesProveedor_DetallesREFERENCIA_PROVEEDOR = 13;
idx_AlbaranesProveedor_DetallesID_PEDIDO = 14;
type
{ IAlbaranesProveedor }
IAlbaranesProveedor = interface(IDAStronglyTypedDataTable)
['{5166113D-4E31-4A0E-9B2A-D95DE1724A0C}']
['{E272858C-E2C0-4D50-AD8C-16F07C262B1A}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -624,7 +626,7 @@ type
{ IAlbaranesProveedor_Detalles }
IAlbaranesProveedor_Detalles = interface(IDAStronglyTypedDataTable)
['{4589DE0C-CDAD-4373-B7D2-D433C4DED5BF}']
['{80D018EE-3C58-4900-93BF-5571F03F2DD6}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -682,6 +684,10 @@ type
procedure SetREFERENCIA_PROVEEDORValue(const aValue: String);
function GetREFERENCIA_PROVEEDORIsNull: Boolean;
procedure SetREFERENCIA_PROVEEDORIsNull(const aValue: Boolean);
function GetID_PEDIDOValue: Integer;
procedure SetID_PEDIDOValue(const aValue: Integer);
function GetID_PEDIDOIsNull: Boolean;
procedure SetID_PEDIDOIsNull(const aValue: Boolean);
{ Properties }
@ -713,6 +719,8 @@ type
property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
property REFERENCIA_PROVEEDOR: String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue;
property REFERENCIA_PROVEEDORIsNull: Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull;
property ID_PEDIDO: Integer read GetID_PEDIDOValue write SetID_PEDIDOValue;
property ID_PEDIDOIsNull: Boolean read GetID_PEDIDOIsNull write SetID_PEDIDOIsNull;
end;
{ TAlbaranesProveedor_DetallesDataTableRules }
@ -776,6 +784,10 @@ type
procedure SetREFERENCIA_PROVEEDORValue(const aValue: String); virtual;
function GetREFERENCIA_PROVEEDORIsNull: Boolean; virtual;
procedure SetREFERENCIA_PROVEEDORIsNull(const aValue: Boolean); virtual;
function GetID_PEDIDOValue: Integer; virtual;
procedure SetID_PEDIDOValue(const aValue: Integer); virtual;
function GetID_PEDIDOIsNull: Boolean; virtual;
procedure SetID_PEDIDOIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
@ -806,6 +818,8 @@ type
property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
property REFERENCIA_PROVEEDOR: String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue;
property REFERENCIA_PROVEEDORIsNull: Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull;
property ID_PEDIDO: Integer read GetID_PEDIDOValue write SetID_PEDIDOValue;
property ID_PEDIDOIsNull: Boolean read GetID_PEDIDOIsNull write SetID_PEDIDOIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
@ -1965,6 +1979,27 @@ begin
DataTable.Fields[idx_AlbaranesProveedor_DetallesREFERENCIA_PROVEEDOR].AsVariant := Null;
end;
function TAlbaranesProveedor_DetallesDataTableRules.GetID_PEDIDOValue: Integer;
begin
result := DataTable.Fields[idx_AlbaranesProveedor_DetallesID_PEDIDO].AsInteger;
end;
procedure TAlbaranesProveedor_DetallesDataTableRules.SetID_PEDIDOValue(const aValue: Integer);
begin
DataTable.Fields[idx_AlbaranesProveedor_DetallesID_PEDIDO].AsInteger := aValue;
end;
function TAlbaranesProveedor_DetallesDataTableRules.GetID_PEDIDOIsNull: boolean;
begin
result := DataTable.Fields[idx_AlbaranesProveedor_DetallesID_PEDIDO].IsNull;
end;
procedure TAlbaranesProveedor_DetallesDataTableRules.SetID_PEDIDOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_AlbaranesProveedor_DetallesID_PEDIDO].AsVariant := Null;
end;
initialization
RegisterDataTableRules(RID_AlbaranesProveedor, TAlbaranesProveedorDataTableRules);

51
Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorServer_Intf.pas
View File

@ -9,13 +9,13 @@ const
{ Delta rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_AlbaranesProveedorDelta = '{C93949D2-C150-41AD-8520-FBC50DBA7ECD}';
RID_AlbaranesProveedor_DetallesDelta = '{EC66A666-6CC9-4784-ABF0-3B63D981C24E}';
RID_AlbaranesProveedorDelta = '{77DA50AC-7040-4020-9694-EC017C25527D}';
RID_AlbaranesProveedor_DetallesDelta = '{EF2BF457-C37A-4FBE-8014-2F3A298125C8}';
type
{ IAlbaranesProveedorDelta }
IAlbaranesProveedorDelta = interface(IAlbaranesProveedor)
['{C93949D2-C150-41AD-8520-FBC50DBA7ECD}']
['{77DA50AC-7040-4020-9694-EC017C25527D}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -507,7 +507,7 @@ type
{ IAlbaranesProveedor_DetallesDelta }
IAlbaranesProveedor_DetallesDelta = interface(IAlbaranesProveedor_Detalles)
['{EC66A666-6CC9-4784-ABF0-3B63D981C24E}']
['{EF2BF457-C37A-4FBE-8014-2F3A298125C8}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_ALBARANValue : Integer;
@ -523,6 +523,7 @@ type
function GetOldIMPORTE_PORTEValue : Currency;
function GetOldREFERENCIAValue : String;
function GetOldREFERENCIA_PROVEEDORValue : String;
function GetOldID_PEDIDOValue : Integer;
{ Properties }
property OldID : Integer read GetOldIDValue;
@ -539,6 +540,7 @@ type
property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue;
property OldREFERENCIA : String read GetOldREFERENCIAValue;
property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue;
property OldID_PEDIDO : Integer read GetOldID_PEDIDOValue;
end;
{ TAlbaranesProveedor_DetallesBusinessProcessorRules }
@ -630,6 +632,12 @@ type
function GetOldREFERENCIA_PROVEEDORIsNull: Boolean; virtual;
procedure SetREFERENCIA_PROVEEDORValue(const aValue: String); virtual;
procedure SetREFERENCIA_PROVEEDORIsNull(const aValue: Boolean); virtual;
function GetID_PEDIDOValue: Integer; virtual;
function GetID_PEDIDOIsNull: Boolean; virtual;
function GetOldID_PEDIDOValue: Integer; virtual;
function GetOldID_PEDIDOIsNull: Boolean; virtual;
procedure SetID_PEDIDOValue(const aValue: Integer); virtual;
procedure SetID_PEDIDOIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
@ -688,6 +696,10 @@ type
property REFERENCIA_PROVEEDORIsNull : Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull;
property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue;
property OldREFERENCIA_PROVEEDORIsNull : Boolean read GetOldREFERENCIA_PROVEEDORIsNull;
property ID_PEDIDO : Integer read GetID_PEDIDOValue write SetID_PEDIDOValue;
property ID_PEDIDOIsNull : Boolean read GetID_PEDIDOIsNull write SetID_PEDIDOIsNull;
property OldID_PEDIDO : Integer read GetOldID_PEDIDOValue;
property OldID_PEDIDOIsNull : Boolean read GetOldID_PEDIDOIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -2380,6 +2392,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_DetallesREFERENCIA_PROVEEDOR] := Null;
end;
function TAlbaranesProveedor_DetallesBusinessProcessorRules.GetID_PEDIDOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_DetallesID_PEDIDO];
end;
function TAlbaranesProveedor_DetallesBusinessProcessorRules.GetID_PEDIDOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_DetallesID_PEDIDO]);
end;
function TAlbaranesProveedor_DetallesBusinessProcessorRules.GetOldID_PEDIDOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_DetallesID_PEDIDO];
end;
function TAlbaranesProveedor_DetallesBusinessProcessorRules.GetOldID_PEDIDOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedor_DetallesID_PEDIDO]);
end;
procedure TAlbaranesProveedor_DetallesBusinessProcessorRules.SetID_PEDIDOValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_DetallesID_PEDIDO] := aValue;
end;
procedure TAlbaranesProveedor_DetallesBusinessProcessorRules.SetID_PEDIDOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedor_DetallesID_PEDIDO] := Null;
end;
initialization
RegisterBusinessProcessorRules(RID_AlbaranesProveedorDelta, TAlbaranesProveedorBusinessProcessorRules);

2
Source/Modulos/Albaranes de proveedor/Model/uBizAlbaranesProveedor.pas
View File

@ -32,6 +32,7 @@ type
property Detalles: IBizDetallesAlbaranProveedor read GetDetalles write SetDetalles;
function EsNuevo : Boolean;
procedure CalcularImporteTotal;
end;
TBizAlbaranProveedor = class(TAlbaranesProveedorDataTableRules, IBizAlbaranProveedor, ISeleccionable)
@ -229,6 +230,7 @@ begin
DataTable.Edit;
ID_PROVEEDOR := FProveedor.ID;
NOMBRE := FProveedor.NOMBRE;
DataTable.Post; //Muy importante ya que es necesario hacer un post de la cabecera antes de añadir detalles
//si se quita el id de la cabecera y los detalles se desincroniza

2
Source/Modulos/Albaranes de proveedor/Plugin/uPluginAlbaranesProveedor.dfm
View File

@ -254,9 +254,7 @@ object PluginAlbaranesProveedor: TPluginAlbaranesProveedor
object actAlbaranesProveedor: TAction
Category = 'Compras'
Caption = 'Albaranes de proveedor'
Enabled = False
ImageIndex = 0
Visible = False
OnExecute = actAlbaranesProveedorExecute
end
object actDevolucionesProveedor: TAction

68
Source/Modulos/Albaranes de proveedor/Servidor/srvAlbaranesProveedor_Impl.dfm
View File

@ -407,9 +407,10 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
'LE,'#10#10' ALBARANES_PROVEEDOR_DETALLES.ID_ARTICULO, ALBARANES_PRO' +
'VEEDOR_DETALLES.DESCUENTO,'#10' ALBARANES_PROVEEDOR_DETALLES.IMPO' +
'RTE_PORTE,'#10' ARTICULOS.REFERENCIA, ARTICULOS.REFERENCIA_PROV a' +
's REFERENCIA_PROVEEDOR'#10#10'FROM ALBARANES_PROVEEDOR_DETALLES'#10'LEFT J' +
'OIN ARTICULOS ON ALBARANES_PROVEEDOR_DETALLES.ID_ARTICULO = ARTI' +
'CULOS.ID'#10'WHERE {where}'#10'ORDER BY POSICION;'#10
's REFERENCIA_PROVEEDOR,'#10' ALBARANES_PROVEEDOR_DETALLES.ID_PEDI' +
'DO'#10#10'FROM ALBARANES_PROVEEDOR_DETALLES'#10'LEFT JOIN ARTICULOS ON ALB' +
'ARANES_PROVEEDOR_DETALLES.ID_ARTICULO = ARTICULOS.ID'#10'WHERE {wher' +
'e}'#10'ORDER BY POSICION;'#10
StatementType = stSQL
ColumnMappings = <
item
@ -469,6 +470,10 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
DatasetField = 'REFERENCIA_PROVEEDOR'
TableField = '<unknown>'
SQLOrigin = 'REFERENCIA_PROVEEDOR'
end
item
DatasetField = 'ID_PEDIDO'
TableField = 'ID_PEDIDO'
end>
end>
Name = 'AlbaranesProveedor_Detalles'
@ -549,6 +554,10 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
DataType = datString
Size = 255
DictionaryEntry = 'AlbaranesProveedor_Detalles_REFERENCIA_PROVEEDOR'
end
item
Name = 'ID_PEDIDO'
DataType = datInteger
end>
end>
JoinDataTables = <>
@ -903,10 +912,12 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
Params = <
item
Name = 'CANTIDAD'
DataType = datCurrency
Value = ''
end
item
Name = 'POSICION'
DataType = datInteger
Value = ''
end
item
@ -917,38 +928,54 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
end
item
Name = 'TIPO_DETALLE'
DataType = datString
Size = 10
Value = ''
end
item
Name = 'CONCEPTO'
DataType = datString
Size = 2000
Value = ''
end
item
Name = 'IMPORTE_UNIDAD'
DataType = datCurrency
Value = ''
end
item
Name = 'IMPORTE_TOTAL'
DataType = datCurrency
Value = ''
end
item
Name = 'VISIBLE'
DataType = datSmallInt
Value = ''
end
item
Name = 'ID_ALBARAN'
DataType = datInteger
Value = ''
end
item
Name = 'ID_ARTICULO'
DataType = datInteger
Value = ''
end
item
Name = 'DESCUENTO'
DataType = datFloat
Value = ''
end
item
Name = 'IMPORTE_PORTE'
DataType = datCurrency
Value = ''
end
item
Name = 'ID_PEDIDO'
DataType = datInteger
Value = ''
end>
Statements = <
@ -959,9 +986,10 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
'INSERT'#10' INTO ALBARANES_PROVEEDOR_DETALLES'#10' (CANTIDAD, POSICI' +
'ON, ID, TIPO_DETALLE, CONCEPTO, IMPORTE_UNIDAD,'#10' IMPORTE_TOT' +
'AL, VISIBLE, ID_ALBARAN,'#10' ID_ARTICULO, DESCUENTO, IMPORTE_PO' +
'RTE)'#10' VALUES'#10' (:CANTIDAD, :POSICION, :ID, :TIPO_DETALLE, :CO' +
'NCEPTO,'#10' :IMPORTE_UNIDAD, :IMPORTE_TOTAL, :VISIBLE, :ID_ALBA' +
'RAN,'#10' :ID_ARTICULO, :DESCUENTO, :IMPORTE_PORTE)'#10
'RTE, ID_PEDIDO)'#10' VALUES'#10' (:CANTIDAD, :POSICION, :ID, :TIPO_D' +
'ETALLE, :CONCEPTO,'#10' :IMPORTE_UNIDAD, :IMPORTE_TOTAL, :VISIBL' +
'E, :ID_ALBARAN,'#10' :ID_ARTICULO, :DESCUENTO, :IMPORTE_PORTE, :' +
'ID_PEDIDO)'#10
StatementType = stSQL
ColumnMappings = <>
end>
@ -989,50 +1017,69 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
Params = <
item
Name = 'CANTIDAD'
DataType = datCurrency
Value = ''
end
item
Name = 'POSICION'
DataType = datInteger
Value = ''
end
item
Name = 'ID'
DataType = datInteger
Value = ''
end
item
Name = 'TIPO_DETALLE'
DataType = datString
Size = 10
Value = ''
end
item
Name = 'CONCEPTO'
DataType = datString
Size = 2000
Value = ''
end
item
Name = 'IMPORTE_UNIDAD'
DataType = datCurrency
Value = ''
end
item
Name = 'IMPORTE_TOTAL'
DataType = datCurrency
Value = ''
end
item
Name = 'VISIBLE'
DataType = datSmallInt
Value = ''
end
item
Name = 'ID_ALBARAN'
DataType = datInteger
Value = ''
end
item
Name = 'ID_ARTICULO'
DataType = datInteger
Value = ''
end
item
Name = 'DESCUENTO'
DataType = datFloat
Value = ''
end
item
Name = 'IMPORTE_PORTE'
DataType = datCurrency
Value = ''
end
item
Name = 'ID_PEDIDO'
DataType = datInteger
Value = ''
end
item
@ -1050,7 +1097,8 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
' = :IMPORTE_UNIDAD, '#10' IMPORTE_TOTAL = :IMPORTE_TOTAL, '#10' VI' +
'SIBLE = :VISIBLE, '#10' ID_ALBARAN = :ID_ALBARAN,'#10' ID_ARTICULO' +
' = :ID_ARTICULO,'#10' DESCUENTO = :DESCUENTO,'#10' IMPORTE_PORTE =' +
' :IMPORTE_PORTE'#10' WHERE'#10' (ID = :OLD_ID)'
' :IMPORTE_PORTE,'#10' ID_PEDIDO = :ID_PEDIDO'#10' WHERE'#10' (ID = :O' +
'LD_ID)'#10
StatementType = stSQL
ColumnMappings = <>
end>
@ -1117,9 +1165,8 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
InsertCommandName = 'Insert_AlbaranesProveedor'
DeleteCommandName = 'Delete_AlbaranesProveedor'
UpdateCommandName = 'Update_AlbaranesProveedor'
RefreshDatasetName = 'AlbaranesProveedor_Refresh'
ReferencedDataset = 'AlbaranesProveedor'
ProcessorOptions = [poPrepareCommands]
ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands]
UpdateMode = updWhereKeyOnly
Left = 208
Top = 24
@ -1129,9 +1176,8 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
InsertCommandName = 'Insert_AlbaranesProveedor_Detalles'
DeleteCommandName = 'Delete_AlbaranesProveedor_Detalles'
UpdateCommandName = 'Update_AlbaranesProveedor_Detalles'
RefreshDatasetName = 'AlbaranesProveedor_Detalles_Refresh'
ReferencedDataset = 'AlbaranesProveedor_Detalles'
ProcessorOptions = [poPrepareCommands]
ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands]
UpdateMode = updWhereKeyOnly
Left = 208
Top = 88

BIN
Source/Modulos/Albaranes de proveedor/Views/AlbaranesProveedor_view.dpk
View File

Binary file not shown.

16
Source/Modulos/Albaranes de proveedor/Views/AlbaranesProveedor_view.dproj
View File

@ -1,4 +1,5 @@
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<?xml version="1.0" encoding="utf-8"?>
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<ProjectGuid>{9e558626-cf49-4cff-a178-e12c186758ac}</ProjectGuid>
<MainSource>AlbaranesProveedor_view.dpk</MainSource>
@ -48,12 +49,13 @@
<DelphiCompile Include="AlbaranesProveedor_view.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\AlbaranesProveedor_controller.dcp" />
<DCCReference Include="..\AlbaranesProveedor_model.dcp" />
<DCCReference Include="..\Almacenes_controller.dcp" />
<DCCReference Include="..\Almacenes_model.dcp" />
<DCCReference Include="..\Articulos_view.dcp" />
<DCCReference Include="..\GUIBase.dcp" />
<DCCReference Include="..\..\Lib\AlbaranesProveedor_controller.dcp" />
<DCCReference Include="..\..\Lib\AlbaranesProveedor_model.dcp" />
<DCCReference Include="..\..\Lib\Almacenes_controller.dcp" />
<DCCReference Include="..\..\Lib\Almacenes_model.dcp" />
<DCCReference Include="..\..\Lib\Articulos_view.dcp" />
<DCCReference Include="..\..\Lib\GUIBase.dcp" />
<DCCReference Include="..\..\Lib\PedProv_AlbProv_relation.dcp" />
<DCCReference Include="uAlbaranesProveedorViewRegister.pas" />
<DCCReference Include="uEditorAlbaranDevProveedor.pas">
<Form>fEditorAlbaranDevProveedor</Form>

5
Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesProveedor.dfm
View File

@ -2,7 +2,6 @@ inherited fEditorAlbaranesProveedor: TfEditorAlbaranesProveedor
Caption = 'Lista de albaranes de proveedor'
ClientWidth = 606
ExplicitWidth = 614
ExplicitHeight = 471
PixelsPerInch = 96
TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader
@ -151,10 +150,10 @@ inherited fEditorAlbaranesProveedor: TfEditorAlbaranesProveedor
Visible = False
end
inherited actPrevisualizar: TAction
Visible = True
Enabled = False
end
inherited actImprimir: TAction
Visible = True
Enabled = False
end
inherited actAnchoAuto: TAction
ImageIndex = 22

5
Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesProveedor.pas
View File

@ -60,7 +60,8 @@ implementation
uses
uDataModuleAlbaranesProveedor, uDataModuleUsuarios, uFactuGES_App,
// uGenerarFacturasProvAlbProvUtils, uGenerarAlbaranesProvUtils,
// uGenerarFacturasProvAlbProvUtils,
uGenerarAlbaranesProvUtils,
uEditorBase, schAlbaranesProveedorClient_Intf,
uGridUtils, uDBSelectionListUtils;
@ -263,7 +264,7 @@ begin
begin
case JsNuevoAlbaranDialog.CustomButtonResult of
200 : begin // Utilizar un pedido
// GenerarAlbaranProv;
GenerarAlbaranProv;
actRefrescar.Execute;
end;
100 : begin // Albaran nuevo vacio

6
Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranProveedor.dfm
View File

@ -322,6 +322,7 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
Top = 249
Width = 366
Height = 32
Enabled = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
@ -358,9 +359,12 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
ReadOnly = False
ExplicitLeft = 350
ExplicitTop = 276
ExplicitHeight = 228
inherited memObservaciones: TcxDBMemo
DataBinding.DataField = 'OBSERVACIONES'
DataBinding.DataSource = DADataSource
ExplicitHeight = 228
Height = 228
end
end
object dxLayoutControl1Group_Root: TdxLayoutGroup
@ -445,6 +449,8 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor
end
object dxLayoutControl1Group9: TdxLayoutGroup
Caption = 'El albar'#225'n pertenece a la tienda'
Enabled = False
Visible = False
object dxLayoutControl1Item13: TdxLayoutItem
Control = frViewTienda1
ControlOptions.AutoColor = True

22
Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranesProveedor.dfm
View File

@ -61,6 +61,8 @@ inherited frViewAlbaranesProveedor: TfrViewAlbaranesProveedor
object cxGridViewTIENDA: TcxGridDBColumn
Caption = 'Tienda'
DataBinding.FieldName = 'TIENDA'
Visible = False
VisibleForCustomization = False
end
object cxGridViewREFERENCIA: TcxGridDBColumn
DataBinding.FieldName = 'REFERENCIA'
@ -149,15 +151,27 @@ inherited frViewAlbaranesProveedor: TfrViewAlbaranesProveedor
Width = 596
ExplicitWidth = 596
inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 273
Width = 273
end
inherited edtFechaIniFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 121
Width = 121
end
inherited edtFechaFinFiltro: TcxDateEdit
Left = 292
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 292
ExplicitWidth = 217
Width = 217
@ -203,9 +217,6 @@ inherited frViewAlbaranesProveedor: TfrViewAlbaranesProveedor
BuiltInReportLink = True
end
end
inherited cxStyleRepository1: TcxStyleRepository
Left = 248
end
inherited ActionList1: TActionList
Left = 392
Top = 448
@ -220,10 +231,13 @@ inherited frViewAlbaranesProveedor: TfrViewAlbaranesProveedor
OnUpdate = actAlmacenUpdate
end
end
inherited PngImageList10: TPngImageList
inherited GridPNGImageList: TPngImageList
Left = 352
Top = 448
end
inherited cxStyleRepository1: TcxStyleRepository
Left = 248
end
object PngImageList: TPngImageList
PngImages = <
item

4
Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranesProveedor.pas
View File

@ -12,7 +12,7 @@ uses
uDADataTable, cxGridLevel, cxClasses, cxControls, cxGridCustomView, Classes,
cxGrid, uBizAlbaranesProveedor, cxCurrencyEdit, Forms, uViewFiltroBase,
ActnList, TB2Item, TBX, TB2Toolbar, TBXDkPanels, TB2Dock, dxPgsDlg, cxTextEdit,
uDAInterfaces;
uDAInterfaces, uCustomView, uViewBase;
type
IViewAlbaranesProveedor = interface(IViewGrid)
@ -21,7 +21,7 @@ type
procedure SetAlbaranes(const Value: IBizAlbaranProveedor);
property Albaranes: IBizAlbaranProveedor read GetAlbaranes write SetAlbaranes;
end;
TfrViewAlbaranesProveedor = class(TfrViewGrid, IViewAlbaranesProveedor)
PngImageList: TPngImageList;
cxGridViewREFERENCIA: TcxGridDBColumn;

18
Source/Modulos/Almacenes/Almacenes_Group.groupproj
View File

@ -7,6 +7,7 @@
<Projects Include="..\..\ApplicationBase\ApplicationBase.dproj" />
<Projects Include="..\..\Base\Base.dproj" />
<Projects Include="..\..\GUIBase\GUIBase.dproj" />
<Projects Include="..\..\Servidor\FactuGES_Server.dproj" />
<Projects Include="Controller\Almacenes_controller.dproj" />
<Projects Include="Data\Almacenes_data.dproj" />
<Projects Include="Model\Almacenes_model.dproj" />
@ -17,7 +18,7 @@
<Borland.Personality>Default.Personality</Borland.Personality>
<Borland.ProjectType />
<BorlandProject>
<BorlandProject xmlns=""> <Default.Personality> </Default.Personality> </BorlandProject></BorlandProject>
<BorlandProject xmlns=""><Default.Personality></Default.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>
<Target Name="Base">
<MSBuild Projects="..\..\Base\Base.dproj" Targets="" />
@ -91,14 +92,23 @@
<Target Name="Almacenes_plugin:Make">
<MSBuild Projects="Plugin\Almacenes_plugin.dproj" Targets="Make" />
</Target>
<Target Name="FactuGES_Server">
<MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="" />
</Target>
<Target Name="FactuGES_Server:Clean">
<MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Clean" />
</Target>
<Target Name="FactuGES_Server:Make">
<MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Make" />
</Target>
<Target Name="Build">
<CallTarget Targets="Base;GUIBase;ApplicationBase;Almacenes_model;Almacenes_data;Almacenes_controller;Almacenes_view;Almacenes_plugin" />
<CallTarget Targets="Base;GUIBase;ApplicationBase;Almacenes_model;Almacenes_data;Almacenes_controller;Almacenes_view;Almacenes_plugin;FactuGES_Server" />
</Target>
<Target Name="Clean">
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Almacenes_model:Clean;Almacenes_data:Clean;Almacenes_controller:Clean;Almacenes_view:Clean;Almacenes_plugin:Clean" />
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Almacenes_model:Clean;Almacenes_data:Clean;Almacenes_controller:Clean;Almacenes_view:Clean;Almacenes_plugin:Clean;FactuGES_Server:Clean" />
</Target>
<Target Name="Make">
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Almacenes_model:Make;Almacenes_data:Make;Almacenes_controller:Make;Almacenes_view:Make;Almacenes_plugin:Make" />
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Almacenes_model:Make;Almacenes_data:Make;Almacenes_controller:Make;Almacenes_view:Make;Almacenes_plugin:Make;FactuGES_Server:Make" />
</Target>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project>

BIN
Source/Modulos/Almacenes/Controller/Almacenes_controller.dpk
View File

Binary file not shown.

69
Source/Modulos/Almacenes/Controller/Almacenes_controller.dproj
View File

@ -1,4 +1,5 @@
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<?xml version="1.0" encoding="utf-8"?>
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<ProjectGuid>{9697e623-37d9-4e64-8d4c-74d7748385d4}</ProjectGuid>
<MainSource>Almacenes_controller.dpk</MainSource>
@ -39,64 +40,38 @@
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject>
<BorlandProject xmlns=""> <Delphi.Personality> <Parameters>
<Parameters Name="UseLauncher">False</Parameters>
<Parameters Name="LoadAllSymbols">True</Parameters>
<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
</Parameters>
<Package_Options>
<Package_Options Name="ImplicitBuild">True</Package_Options>
<Package_Options Name="DesigntimeOnly">False</Package_Options>
<Package_Options Name="RuntimeOnly">False</Package_Options>
</Package_Options>
<VersionInfo>
<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
<VersionInfo Name="MajorVer">1</VersionInfo>
<VersionInfo Name="MinorVer">0</VersionInfo>
<VersionInfo Name="Release">0</VersionInfo>
<VersionInfo Name="Build">0</VersionInfo>
<VersionInfo Name="Debug">False</VersionInfo>
<VersionInfo Name="PreRelease">False</VersionInfo>
<VersionInfo Name="Special">False</VersionInfo>
<VersionInfo Name="Private">False</VersionInfo>
<VersionInfo Name="DLL">False</VersionInfo>
<VersionInfo Name="Locale">3082</VersionInfo>
<VersionInfo Name="CodePage">1252</VersionInfo>
</VersionInfo>
<VersionInfoKeys>
<VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
<VersionInfoKeys Name="ProductName"></VersionInfoKeys>
<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
<VersionInfoKeys Name="Comments"></VersionInfoKeys>
</VersionInfoKeys>
<Source>
<Source Name="MainSource">Almacenes_controller.dpk</Source>
</Source>
</Delphi.Personality> </BorlandProject></BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">Almacenes_controller.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup>
<DelphiCompile Include="Almacenes_controller.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\..\..\Lib\Almacenes_data.dcp" />
<DCCReference Include="..\..\..\Lib\Almacenes_model.dcp" />
<DCCReference Include="..\..\..\Lib\ApplicationBase.dcp" />
<DCCReference Include="..\..\..\Lib\GUIBase.dcp" />
<DCCReference Include="uAlmacenesController.pas" />
<DCCReference Include="uUbicacionesAlmacenController.pas" />
<DCCReference Include="View\adortl.dcp" />
<DCCReference Include="View\Almacenes_data.dcp" />
<DCCReference Include="View\Almacenes_model.dcp" />
<DCCReference Include="View\ApplicationBase.dcp" />
<DCCReference Include="View\cxLibraryD11.dcp" />
<DCCReference Include="View\DataAbstract_Core_D11.dcp" />
<DCCReference Include="View\dbrtl.dcp" />
<DCCReference Include="View\dsnap.dcp" />
<DCCReference Include="View\dxCoreD11.dcp" />
<DCCReference Include="View\dxGDIPlusD11.dcp" />
<DCCReference Include="View\dxThemeD11.dcp" />
<DCCReference Include="View\GUIBase.dcp" />
<DCCReference Include="View\RemObjects_Core_D11.dcp" />
<DCCReference Include="View\rtl.dcp" />
<DCCReference Include="View\uIEditorAlmacen.pas" />
<DCCReference Include="View\uIEditorAlmacenes.pas" />
<DCCReference Include="View\uIEditorListaAlmacenes.pas" />
<DCCReference Include="View\uIEditorUbicacionesAlmacen.pas" />
<DCCReference Include="View\vcl.dcp" />
<DCCReference Include="View\vcldb.dcp" />
<DCCReference Include="View\vclx.dcp" />
</ItemGroup>
</Project>
<!-- EurekaLog First Line
[Exception Log]
EurekaLog Version=6006

23
Source/Modulos/Almacenes/Controller/View/uIEditorUbicacionesAlmacen.pas Normal file
View File

@ -0,0 +1,23 @@
unit uIEditorUbicacionesAlmacen;
interface
uses
uEditorDBBase, uBizUbicacionesAlmacen, uUbicacionesAlmacenController;
type
IEditorUbicacionesAlmacen = interface(IEditorDBBase)
['{A10D7B5F-ECE9-4170-90C3-DB75F6E56679}']
function GetUbicacionesAlmacen: IBizUbicacionAlmacen;
procedure SetUbicacionesAlmacen(const Value: IBizUbicacionAlmacen);
property UbicacionesAlmacen: IBizUbicacionAlmacen read GetUbicacionesAlmacen write SetUbicacionesAlmacen;
function GetController : IUbicacionesAlmacenController;
procedure SetController (const Value : IUbicacionesAlmacenController);
property Controller : IUbicacionesAlmacenController read GetController write SetController;
end;
implementation
end.

220
Source/Modulos/Almacenes/Controller/uUbicacionesAlmacenController.pas Normal file
View File

@ -0,0 +1,220 @@
unit uUbicacionesAlmacenController;
interface
uses
Classes, SysUtils, uDADataTable, uEditorDBItem,
uIDataModuleAlmacenes,
uBizUbicacionesAlmacen, uControllerBase;
type
IUbicacionesAlmacenController = interface(IControllerBase)
['{3604C8C7-264D-4B7A-B3A8-FD8C33509945}']
function BuscarTodos: IBizUbicacionAlmacen;
procedure VerTodos(AUbicacionesAlmacen: IBizUbicacionAlmacen);
procedure Anadir(AUbicacionAlmacen : IBizUbicacionAlmacen);
function Eliminar(AUbicacionAlmacen : IBizUbicacionAlmacen): Boolean;
function Guardar(AUbicacionAlmacen : IBizUbicacionAlmacen): Boolean;
procedure DescartarCambios(AUbicacionAlmacen : IBizUbicacionAlmacen);
function Localizar(AUbicacionesAlmacen: IBizUbicacionAlmacen; ADescripcion:String): Boolean;
function DarListaUbicacionesAlmacen: TStringList;
end;
TUbicacionesAlmacenController = class(TControllerBase, IUbicacionesAlmacenController)
protected
FDataModule : IDataModuleAlmacenes;
procedure RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable); override;
function CreateEditor(const AName : String; const IID: TGUID; out Intf): Boolean;
function ValidarUbicacionAlmacen(AUbicacionAlmacen: IBizUbicacionAlmacen): Boolean;
procedure AsignarDataModule; virtual;
public
constructor Create; override;
destructor Destroy; override;
function Eliminar(AUbicacionAlmacen : IBizUbicacionAlmacen): Boolean;
function Guardar(AUbicacionAlmacen : IBizUbicacionAlmacen): Boolean;
procedure DescartarCambios(AUbicacionAlmacen : IBizUbicacionAlmacen); virtual;
procedure Anadir(AUbicacionAlmacen : IBizUbicacionAlmacen);
function BuscarTodos: IBizUbicacionAlmacen;
procedure VerTodos(AUbicacionesAlmacen: IBizUbicacionAlmacen);
function Localizar(AUbicacionesAlmacen: IBizUbicacionAlmacen; ADescripcion:String): Boolean;
function DarListaUbicacionesAlmacen: TStringList;
end;
implementation
uses
cxControls, DB, uEditorRegistryUtils,
uIEditorUbicacionesAlmacen, uDataModuleAlmacenes,
uDAInterfaces, uDataTableUtils, schAlmacenesClient_Intf,
uDateUtils, uROTypes, DateUtils, Controls, Windows;
{ TUbicacionesAlmacenController }
procedure TUbicacionesAlmacenController.Anadir(AUbicacionAlmacen: IBizUbicacionAlmacen);
begin
AUbicacionAlmacen.Insert;
end;
procedure TUbicacionesAlmacenController.AsignarDataModule;
begin
FDataModule := TDataModuleAlmacenes.Create(Nil);
end;
function TUbicacionesAlmacenController.BuscarTodos: IBizUbicacionAlmacen;
begin
Result := FDataModule.GetUbicacionesAlmacen;
end;
constructor TUbicacionesAlmacenController.Create;
begin
inherited;
AsignarDataModule;
end;
function TUbicacionesAlmacenController.CreateEditor(const AName: String; const IID: TGUID; out Intf): Boolean;
begin
Result := Supports(EditorRegistry.CreateEditor(AName), IID, Intf);
end;
function TUbicacionesAlmacenController.DarListaUbicacionesAlmacen: TStringList;
var
AUbicacionesAlmacen: IBizUbicacionAlmacen;
begin
AUbicacionesAlmacen := BuscarTodos;
AUbicacionesAlmacen.DataTable.Active := True;
Result := TStringList.Create;
try
with Result do
begin
AUbicacionesAlmacen.DataTable.First;
while not AUbicacionesAlmacen.DataTable.EOF do
begin
Add(AUbicacionesAlmacen.DESCRIPCION);
AUbicacionesAlmacen.DataTable.Next;
end;
end;
finally
AUbicacionesAlmacen := NIL;
end;
end;
procedure TUbicacionesAlmacenController.DescartarCambios(AUbicacionAlmacen: IBizUbicacionAlmacen);
begin
if not Assigned(AUbicacionAlmacen) then
raise Exception.Create ('UbicacionAlmacen no asignado');
ShowHourglassCursor;
try
if (AUbicacionAlmacen.State in dsEditModes) then
AUbicacionAlmacen.Cancel;
AUbicacionAlmacen.DataTable.CancelUpdates;
finally
HideHourglassCursor;
end;
end;
destructor TUbicacionesAlmacenController.Destroy;
begin
FDataModule := Nil;
inherited;
end;
function TUbicacionesAlmacenController.ValidarUbicacionAlmacen(AUbicacionAlmacen: IBizUbicacionAlmacen): Boolean;
begin
if not Assigned(AUbicacionAlmacen) then
raise Exception.Create ('UbicacionAlmacen no asignada');
if (AUbicacionAlmacen.DataTable.State in dsEditModes) then
AUbicacionAlmacen.DataTable.Post;
if Length(AUbicacionAlmacen.DESCRIPCION) = 0 then
raise Exception.Create('Debe indicar al menos la descripción de esta ubicación.');
Result := True;
end;
procedure TUbicacionesAlmacenController.VerTodos(AUbicacionesAlmacen: IBizUbicacionAlmacen);
var
AEditor : IEditorUbicacionesAlmacen;
begin
AEditor := NIL;
CreateEditor('EditorUbicacionesAlmacen', IEditorUbicacionesAlmacen, AEditor);
if Assigned(AEditor) then
try
AEditor.Controller := Self; //OJO ORDEN MUY IMPORTANTE
AEditor.UbicacionesAlmacen := AUbicacionesAlmacen;
AEditor.ShowModal;
finally
AEditor.Release;
AEditor := NIL;
end;
end;
function TUbicacionesAlmacenController.Eliminar(AUbicacionAlmacen: IBizUbicacionAlmacen): Boolean;
begin
if not Assigned(AUbicacionAlmacen) then
raise Exception.Create ('UbicacionAlmacen no asignada');
ShowHourglassCursor;
try
if (AUbicacionAlmacen.State in dsEditModes) then
AUbicacionAlmacen.Cancel;
AUbicacionAlmacen.Delete;
AUbicacionAlmacen.DataTable.ApplyUpdates;
HideHourglassCursor;
Result := True;
finally
HideHourglassCursor;
end;
end;
procedure TUbicacionesAlmacenController.RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable);
begin
inherited;
//
end;
function TUbicacionesAlmacenController.Guardar(AUbicacionAlmacen: IBizUbicacionAlmacen): Boolean;
begin
Result := False;
if ValidarUbicacionAlmacen(AUbicacionAlmacen) then
begin
ShowHourglassCursor;
try
if (AUbicacionAlmacen.DataTable.State in dsEditModes) then
AUbicacionAlmacen.DataTable.Post;
AUbicacionAlmacen.DataTable.ApplyUpdates;
Result := True;
finally
HideHourglassCursor;
end;
end;
end;
function TUbicacionesAlmacenController.Localizar(AUbicacionesAlmacen: IBizUbicacionAlmacen; ADescripcion: String): Boolean;
begin
Result := True;
ShowHourglassCursor;
try
with AUbicacionesAlmacen.DataTable do
begin
DisableControls;
First;
if not Locate(fld_AlmacenesUbicacionesDESCRIPCION, ADescripcion, []) then
Result := False;
EnableControls;
end;
finally
HideHourglassCursor;
end;
end;
end.

45
Source/Modulos/Almacenes/Data/Almacenes_data.dproj
View File

@ -40,60 +40,19 @@
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject>
<BorlandProject> <Delphi.Personality> <Parameters>
<Parameters Name="UseLauncher">False</Parameters>
<Parameters Name="LoadAllSymbols">True</Parameters>
<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
</Parameters>
<Package_Options>
<Package_Options Name="ImplicitBuild">True</Package_Options>
<Package_Options Name="DesigntimeOnly">False</Package_Options>
<Package_Options Name="RuntimeOnly">False</Package_Options>
</Package_Options>
<VersionInfo>
<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
<VersionInfo Name="MajorVer">1</VersionInfo>
<VersionInfo Name="MinorVer">0</VersionInfo>
<VersionInfo Name="Release">0</VersionInfo>
<VersionInfo Name="Build">0</VersionInfo>
<VersionInfo Name="Debug">False</VersionInfo>
<VersionInfo Name="PreRelease">False</VersionInfo>
<VersionInfo Name="Special">False</VersionInfo>
<VersionInfo Name="Private">False</VersionInfo>
<VersionInfo Name="DLL">False</VersionInfo>
<VersionInfo Name="Locale">3082</VersionInfo>
<VersionInfo Name="CodePage">1252</VersionInfo>
</VersionInfo>
<VersionInfoKeys>
<VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
<VersionInfoKeys Name="ProductName"></VersionInfoKeys>
<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
<VersionInfoKeys Name="Comments"></VersionInfoKeys>
</VersionInfoKeys>
<Source>
<Source Name="MainSource">Almacenes_data.dpk</Source>
</Source>
</Delphi.Personality> </BorlandProject></BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">Almacenes_data.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup>
<DelphiCompile Include="Almacenes_data.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\..\Lib\Almacenes_model.dcp" />
<DCCReference Include="..\Views\Almacenes_model.dcp" />
<DCCReference Include="uDataModuleAlmacenes.pas">
<Form>DataModuleAlmacenes</Form>
</DCCReference>
</ItemGroup>
</Project>
<!-- EurekaLog First Line
[Exception Log]
EurekaLog Version=6006

40
Source/Modulos/Almacenes/Data/uDataModuleAlmacenes.dfm
View File

@ -1,7 +1,7 @@
inherited DataModuleAlmacenes: TDataModuleAlmacenes
OnCreate = DAClientDataModuleCreate
Height = 234
Width = 300
Height = 265
Width = 328
object RORemoteService: TRORemoteService
Message = dmConexion.ROMessage
Channel = dmConexion.ROChannel
@ -14,12 +14,12 @@ inherited DataModuleAlmacenes: TDataModuleAlmacenes
Top = 84
end
object rda_Almacenes: TDARemoteDataAdapter
DataStreamer = Bin2DataStreamer
GetSchemaCall.RemoteService = RORemoteService
GetDataCall.RemoteService = RORemoteService
UpdateDataCall.RemoteService = RORemoteService
GetScriptsCall.RemoteService = RORemoteService
RemoteService = RORemoteService
DataStreamer = Bin2DataStreamer
Left = 51
Top = 143
end
@ -128,8 +128,6 @@ inherited DataModuleAlmacenes: TDataModuleAlmacenes
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_Almacenes
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'Almacenes'
IndexDefs = <>
Left = 192
@ -141,4 +139,36 @@ inherited DataModuleAlmacenes: TDataModuleAlmacenes
Left = 192
Top = 16
end
object tbl_AlmacenesUbicaciones: TDAMemDataTable
RemoteUpdatesOptions = []
Fields = <
item
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_ALMACENES_UBICACIONES_ID'
Required = True
DictionaryEntry = 'AlmacenesUbicaciones_ID'
InPrimaryKey = True
end
item
Name = 'DESCRIPCION'
DataType = datString
Size = 255
DisplayLabel = 'AlmacenesUbicaciones_DESCRIPCION'
DictionaryEntry = 'AlmacenesUbicaciones_DESCRIPCION'
end>
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_Almacenes
LogicalName = 'AlmacenesUbicaciones'
IndexDefs = <>
Left = 200
Top = 192
end
object ds_AlmacenesUbicaciones: TDADataSource
DataSet = tbl_AlmacenesUbicaciones.Dataset
DataTable = tbl_AlmacenesUbicaciones
Left = 200
Top = 144
end
end

20
Source/Modulos/Almacenes/Data/uDataModuleAlmacenes.pas
View File

@ -6,7 +6,7 @@ uses
SysUtils, Classes, DB, uDAClientDataModule, uDADataTable, uDABINAdapter,
uDAScriptingProvider, uDACDSDataTable, uROWinInetHttpChannel, uROTypes,
uRORemoteService, uROClient, uROBinMessage,
uDADesigntimeCall,
uDADesigntimeCall, uBizUbicacionesAlmacen,
uIDataModuleAlmacenes, uBizAlmacenes, uDataModuleBase, uDARemoteDataAdapter,
uDADataStreamer, uDABin2DataStreamer, uDAInterfaces, uDAMemDataTable,
uRODynamicRequest;
@ -19,6 +19,8 @@ type
rda_Almacenes: TDARemoteDataAdapter;
tbl_Almacenes: TDAMemDataTable;
ds_Almacenes: TDADataSource;
tbl_AlmacenesUbicaciones: TDAMemDataTable;
ds_AlmacenesUbicaciones: TDADataSource;
procedure DAClientDataModuleCreate(Sender: TObject);
protected
@ -27,6 +29,7 @@ type
function GetItems : IBizAlmacen;
function GetItem(const ID : Integer) : IBizAlmacen;
function NewItem : IBizAlmacen;
function GetUbicacionesAlmacen : IBizUbicacionAlmacen;
end;
implementation
@ -97,4 +100,19 @@ begin
end;
function TDataModuleAlmacenes.GetUbicacionesAlmacen: IBizUbicacionAlmacen;
var
AUbicacionesAlmacen : TDAMemDataTable;
begin
ShowHourglassCursor;
try
AUbicacionesAlmacen := CloneDataTable(tbl_AlmacenesUbicaciones);
AUbicacionesAlmacen.BusinessRulesID := BIZ_CLIENT_UBICACIONESALMACEN;
Result := (AUbicacionesAlmacen as IBizUbicacionAlmacen);
finally
HideHourglassCursor;
end;
end;
end.

BIN
Source/Modulos/Almacenes/Model/Almacenes_model.dpk
View File

Binary file not shown.

30
Source/Modulos/Almacenes/Model/Almacenes_model.dproj
View File

@ -41,7 +41,18 @@
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">Almacenes_model.dpk</Source></Source><Excluded_Packages>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">Almacenes_model.dpk</Source></Source><Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\vclhie100.bpl">Internet Explorer Hosting Support Package</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\applet100.bpl">CodeGear Control Panel Applet Package</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages>
@ -60,8 +71,21 @@
<DelphiCompile Include="Almacenes_model.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\..\..\GUIBase\ApplicationBasecontainsuBizAlmacenesin.dcp" />
<DCCReference Include="..\..\..\GUIBase\Base.dcp" />
<DCCReference Include="adortl.dcp" />
<DCCReference Include="ApplicationBase.dcp" />
<DCCReference Include="Base.dcp" />
<DCCReference Include="DataAbstract_Core_D11.dcp" />
<DCCReference Include="Data\uIDataModuleAlmacenes.pas" />
<DCCReference Include="Data\uIDataModuleUbicacionesAlmacen.pas" />
<DCCReference Include="dbrtl.dcp" />
<DCCReference Include="dsnap.dcp" />
<DCCReference Include="RemObjects_Core_D11.dcp" />
<DCCReference Include="rtl.dcp" />
<DCCReference Include="schAlmacenesClient_Intf.pas" />
<DCCReference Include="uBizAlmacenes.pas" />
<DCCReference Include="uBizUbicacionesAlmacen.pas" />
<DCCReference Include="vcl.dcp" />
<DCCReference Include="vcldb.dcp" />
</ItemGroup>
</Project>
<!-- EurekaLog First Line

3
Source/Modulos/Almacenes/Model/Data/uIDataModuleAlmacenes.pas
View File

@ -3,7 +3,7 @@ unit uIDataModuleAlmacenes;
interface
uses
uBizAlmacenes;
uBizAlmacenes, uBizUbicacionesAlmacen;
type
IDataModuleAlmacenes = interface
@ -11,6 +11,7 @@ type
function GetItems: IBizAlmacen;
function GetItem(const ID : Integer) : IBizAlmacen;
function NewItem : IBizAlmacen;
function GetUbicacionesAlmacen : IBizUbicacionAlmacen;
end;
implementation

16
Source/Modulos/Almacenes/Model/Data/uIDataModuleUbicacionesAlmacen.pas Normal file
View File

@ -0,0 +1,16 @@
unit uIDataModuleUbicacionesAlmacen;
interface
uses
uBizUbicacionesAlmacen;
type
IDataModuleUbicacionesAlmacen = interface
['{7AEAF616-9D24-4399-B575-86BF18FF19FB}']
function GetItems: IBizUbicacionAlmacen;
end;
implementation
end.

118
Source/Modulos/Almacenes/Model/schAlmacenesClient_Intf.pas
View File

@ -3,17 +3,27 @@ unit schAlmacenesClient_Intf;
interface
uses
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
const
{ Data table rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_Almacenes = '{EE679D71-1729-4CD1-8CB9-1A2CE6B05493}';
RID_AlmacenesUbicaciones = '{E8165005-5380-4D2F-874C-3E92E06EBE62}';
RID_Almacenes = '{4E95C713-F3BA-426F-AA5F-74E8DC817E28}';
{ Data table names }
nme_AlmacenesUbicaciones = 'AlmacenesUbicaciones';
nme_Almacenes = 'Almacenes';
{ AlmacenesUbicaciones fields }
fld_AlmacenesUbicacionesID = 'ID';
fld_AlmacenesUbicacionesDESCRIPCION = 'DESCRIPCION';
{ AlmacenesUbicaciones field indexes }
idx_AlmacenesUbicacionesID = 0;
idx_AlmacenesUbicacionesDESCRIPCION = 1;
{ Almacenes fields }
fld_AlmacenesID = 'ID';
fld_AlmacenesID_EMPRESA = 'ID_EMPRESA';
@ -49,9 +59,56 @@ const
idx_AlmacenesUSUARIO = 14;
type
{ IAlmacenesUbicaciones }
IAlmacenesUbicaciones = interface(IDAStronglyTypedDataTable)
['{C71DB610-A243-42E5-BE88-25CAFD61F06A}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
function GetIDIsNull: Boolean;
procedure SetIDIsNull(const aValue: Boolean);
function GetDESCRIPCIONValue: String;
procedure SetDESCRIPCIONValue(const aValue: String);
function GetDESCRIPCIONIsNull: Boolean;
procedure SetDESCRIPCIONIsNull(const aValue: Boolean);
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
end;
{ TAlmacenesUbicacionesDataTableRules }
TAlmacenesUbicacionesDataTableRules = class(TIntfObjectDADataTableRules, IAlmacenesUbicaciones)
private
protected
{ Property getters and setters }
function GetIDValue: Integer; virtual;
procedure SetIDValue(const aValue: Integer); virtual;
function GetIDIsNull: Boolean; virtual;
procedure SetIDIsNull(const aValue: Boolean); virtual;
function GetDESCRIPCIONValue: String; virtual;
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
function GetDESCRIPCIONIsNull: Boolean; virtual;
procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
destructor Destroy; override;
end;
{ IAlmacenes }
IAlmacenes = interface(IDAStronglyTypedDataTable)
['{A51A2256-3355-4ABC-83D8-C6C5F3FB8FED}']
['{8058E144-9E1F-4E36-AFDB-828C8A03DBB8}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -256,6 +313,60 @@ implementation
uses Variants, uROBinaryHelpers;
{ TAlmacenesUbicacionesDataTableRules }
constructor TAlmacenesUbicacionesDataTableRules.Create(aDataTable: TDADataTable);
begin
inherited;
end;
destructor TAlmacenesUbicacionesDataTableRules.Destroy;
begin
inherited;
end;
function TAlmacenesUbicacionesDataTableRules.GetIDValue: Integer;
begin
result := DataTable.Fields[idx_AlmacenesUbicacionesID].AsInteger;
end;
procedure TAlmacenesUbicacionesDataTableRules.SetIDValue(const aValue: Integer);
begin
DataTable.Fields[idx_AlmacenesUbicacionesID].AsInteger := aValue;
end;
function TAlmacenesUbicacionesDataTableRules.GetIDIsNull: boolean;
begin
result := DataTable.Fields[idx_AlmacenesUbicacionesID].IsNull;
end;
procedure TAlmacenesUbicacionesDataTableRules.SetIDIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_AlmacenesUbicacionesID].AsVariant := Null;
end;
function TAlmacenesUbicacionesDataTableRules.GetDESCRIPCIONValue: String;
begin
result := DataTable.Fields[idx_AlmacenesUbicacionesDESCRIPCION].AsString;
end;
procedure TAlmacenesUbicacionesDataTableRules.SetDESCRIPCIONValue(const aValue: String);
begin
DataTable.Fields[idx_AlmacenesUbicacionesDESCRIPCION].AsString := aValue;
end;
function TAlmacenesUbicacionesDataTableRules.GetDESCRIPCIONIsNull: boolean;
begin
result := DataTable.Fields[idx_AlmacenesUbicacionesDESCRIPCION].IsNull;
end;
procedure TAlmacenesUbicacionesDataTableRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_AlmacenesUbicacionesDESCRIPCION].AsVariant := Null;
end;
{ TAlmacenesDataTableRules }
constructor TAlmacenesDataTableRules.Create(aDataTable: TDADataTable);
var
@ -591,6 +702,7 @@ end;
initialization
RegisterDataTableRules(RID_AlmacenesUbicaciones, TAlmacenesUbicacionesDataTableRules);
RegisterDataTableRules(RID_Almacenes, TAlmacenesDataTableRules);
end.

126
Source/Modulos/Almacenes/Model/schAlmacenesServer_Intf.pas
View File

@ -9,12 +9,59 @@ const
{ Delta rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_AlmacenesDelta = '{F091F4FA-70AD-40E6-9C14-082208660CFF}';
RID_AlmacenesUbicacionesDelta = '{1488C0A6-60CF-4178-A820-4AC12779A379}';
RID_AlmacenesDelta = '{4567BEC0-00BC-495A-918F-539564177A5A}';
type
{ IAlmacenesUbicacionesDelta }
IAlmacenesUbicacionesDelta = interface(IAlmacenesUbicaciones)
['{1488C0A6-60CF-4178-A820-4AC12779A379}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String;
{ Properties }
property OldID : Integer read GetOldIDValue;
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
end;
{ TAlmacenesUbicacionesBusinessProcessorRules }
TAlmacenesUbicacionesBusinessProcessorRules = class(TDABusinessProcessorRules, IAlmacenesUbicaciones, IAlmacenesUbicacionesDelta)
private
protected
{ Property getters and setters }
function GetIDValue: Integer; virtual;
function GetIDIsNull: Boolean; virtual;
function GetOldIDValue: Integer; virtual;
function GetOldIDIsNull: Boolean; virtual;
procedure SetIDValue(const aValue: Integer); virtual;
procedure SetIDIsNull(const aValue: Boolean); virtual;
function GetDESCRIPCIONValue: String; virtual;
function GetDESCRIPCIONIsNull: Boolean; virtual;
function GetOldDESCRIPCIONValue: String; virtual;
function GetOldDESCRIPCIONIsNull: Boolean; virtual;
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull;
property OldID : Integer read GetOldIDValue;
property OldIDIsNull : Boolean read GetOldIDIsNull;
property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
property DESCRIPCIONIsNull : Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
property OldDESCRIPCIONIsNull : Boolean read GetOldDESCRIPCIONIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
destructor Destroy; override;
end;
{ IAlmacenesDelta }
IAlmacenesDelta = interface(IAlmacenes)
['{F091F4FA-70AD-40E6-9C14-082208660CFF}']
['{4567BEC0-00BC-495A-918F-539564177A5A}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -220,6 +267,80 @@ implementation
uses
Variants, uROBinaryHelpers, uDAInterfaces;
{ TAlmacenesUbicacionesBusinessProcessorRules }
constructor TAlmacenesUbicacionesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
begin
inherited;
end;
destructor TAlmacenesUbicacionesBusinessProcessorRules.Destroy;
begin
inherited;
end;
function TAlmacenesUbicacionesBusinessProcessorRules.GetIDValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlmacenesUbicacionesID];
end;
function TAlmacenesUbicacionesBusinessProcessorRules.GetIDIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlmacenesUbicacionesID]);
end;
function TAlmacenesUbicacionesBusinessProcessorRules.GetOldIDValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlmacenesUbicacionesID];
end;
function TAlmacenesUbicacionesBusinessProcessorRules.GetOldIDIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlmacenesUbicacionesID]);
end;
procedure TAlmacenesUbicacionesBusinessProcessorRules.SetIDValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlmacenesUbicacionesID] := aValue;
end;
procedure TAlmacenesUbicacionesBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_AlmacenesUbicacionesID] := Null;
end;
function TAlmacenesUbicacionesBusinessProcessorRules.GetDESCRIPCIONValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlmacenesUbicacionesDESCRIPCION];
end;
function TAlmacenesUbicacionesBusinessProcessorRules.GetDESCRIPCIONIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlmacenesUbicacionesDESCRIPCION]);
end;
function TAlmacenesUbicacionesBusinessProcessorRules.GetOldDESCRIPCIONValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlmacenesUbicacionesDESCRIPCION];
end;
function TAlmacenesUbicacionesBusinessProcessorRules.GetOldDESCRIPCIONIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlmacenesUbicacionesDESCRIPCION]);
end;
procedure TAlmacenesUbicacionesBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlmacenesUbicacionesDESCRIPCION] := aValue;
end;
procedure TAlmacenesUbicacionesBusinessProcessorRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_AlmacenesUbicacionesDESCRIPCION] := Null;
end;
{ TAlmacenesBusinessProcessorRules }
constructor TAlmacenesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
var
@ -706,6 +827,7 @@ end;
initialization
RegisterBusinessProcessorRules(RID_AlmacenesUbicacionesDelta, TAlmacenesUbicacionesBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_AlmacenesDelta, TAlmacenesBusinessProcessorRules);
end.

36
Source/Modulos/Almacenes/Model/uBizUbicacionesAlmacen.pas Normal file
View File

@ -0,0 +1,36 @@
unit uBizUbicacionesAlmacen;
interface
uses
uDAInterfaces, uDADataTable, schAlmacenesClient_Intf;
const
BIZ_CLIENT_UBICACIONESALMACEN = 'Almacen.UbicacionesAlmacen';
type
IBizUbicacionAlmacen = interface(IAlmacenesUbicaciones)
['{DFE837B7-4A5E-472C-B896-2140CDEA9D1E}']
end;
TBizUbicacionAlmacen = class(TAlmacenesUbicacionesDataTableRules, IBizUbicacionAlmacen)
procedure AfterOpen(Sender: TDADataTable); override;
end;
implementation
{ TBizUbicacionAlmacen }
procedure TBizUbicacionAlmacen.AfterOpen(Sender: TDADataTable);
begin
inherited;
DataTable.Sort([fld_AlmacenesUbicacionesDESCRIPCION], [sdAscending]);
end;
initialization
RegisterDataTableRules(BIZ_CLIENT_UBICACIONESALMACEN, TBizUbicacionAlmacen);
finalization
end.

57
Source/Modulos/Almacenes/Plugin/uPluginAlmacenes.dfm
View File

@ -35,6 +35,33 @@ object PluginAlmacenes: TPluginAlmacenes
6082}
Name = 'PngImage1'
Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D
F80000000970485973000017120000171201679FD252000002684944415478DA
63FCFFFF3F032D01E3D0B700CE6AB840559BFED7EB336258D061A982A1F0CF5F
06861FBFFE337CFF09A1BFFDF80FA41918BE01F9DFBE43F8DF7E30307CFD8170
DF2DE147C459F0F71FD0D09F08C3BF432D02E1AFDF2106832C00198EECFD5B42
382CA069104D5EB4FD7F4EAC0776C5C084F0F71F1003BDF4F71F10FFFDCFF0EF
1F820DA6FF81C420E28149350CE7764C23CE02520DBF71FF354365F344DC1614
1616A258D0DDD30B36BCA2BC1445BCAAB6196C78676B3D8AB84748066E0BCEDF
F90266BF79FB8561C3E478B8CBB35A37C0C5E7B78662753948EC0F50EDFDA7EF
F05B30A3269041CDAD8921C0E01358BCB5BD9321B77D138678496503D8F0BECE
46E27C9054B7FA3FC8851FBF7C6378F8F025839EB622C3F29E28B0E1E8E2D3EA
02315C0E8BA3A7AF3EE1B600E4CAED271F312CD97C8EE1F4A94B60D77EE2B366
C0265E505A0B367C725F0B793E0001906B45847918D0C50F2CCDC770398CFDE6
C3374C0B4086CF6D0C6178F6F213C39D577F19A62CD9077669418417C3A5678F
19D0E5B85F3D61A8AC8F021B386B4A077E1FAC3C7AF7FFCE9DE718B2A31CC10A
F69CB8C770E6DA23B005301F60937350106228AE0A43F802EAA3CFC0420AC502
58D080C0E3179014F2FEED5B30CDC2FC91C1CEDA860197FCFAE9690C0B67F6E0
F7012C72F79D7BCE70E5F62B86CB77DF301C3C7094E1F8EA62783A6F98BE8701
9B9A3553521071F10FE2939FBFFF1267C18C9628B8AB56EDBACC40480D3220CA
0241F6D7700D86E64E0C84D4A0039C169CBC7C1F1C890F0E3461E4117C6AD001
AC2A065BF0E3E74F86A72F3E32FCFAF193E1F9CB0F6009740B08A9C16901AD2B
7D00537AC0EFF84D17A70000000049454E44AE426082}
Name = 'PngImage1'
Background = clWindow
end>
Left = 232
Top = 16
@ -51,6 +78,12 @@ object PluginAlmacenes: TPluginAlmacenes
ImageIndex = 0
OnExecute = actAlmacenesExecute
end
object actUbicaciones: TAction
Category = 'Log'#237'stica'
Caption = 'Ubicaciones'
ImageIndex = 1
OnExecute = actUbicacionesExecute
end
end
object MainMenu: TMainMenu
Images = LargeImages
@ -62,6 +95,9 @@ object PluginAlmacenes: TPluginAlmacenes
Tag = 110
Action = actAlmacenes
end
object Ubicaciones1: TMenuItem
Action = actUbicaciones
end
end
end
object SmallImages: TPngImageList
@ -90,6 +126,27 @@ object PluginAlmacenes: TPluginAlmacenes
6DF9256E8659FD02D3B7960923D6946A0000000049454E44AE426082}
Name = 'PngImage1'
Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
610000000970485973000017120000171201679FD2520000019A4944415478DA
63FCFFFF3F032580912A063032323230345C20CB2414033A2C55C0822047FDFA
FD9FE1D3B7FF0C5FBFFF67F8F89581E13390FDFE1350ECEB7F869FBF219A6F09
3FA2A20B262FDAFE3F27D603451224F7FBCF3F863F7FFF32FC41A1213820B11A
D580F377BEC035CFAE0F66486D5C0BE777157A32B434D6C0F94EFE290CF51D53
310D98D310CCC0A999C3F0F1D24486ACD60D70FE8323ED60DBFF026D06B9EAFA
FD97A80624D5AD0687012B13038390002FC3B53B2F188485B81914A58518EE3E
7CC5B07CED61864C4F36DC2E001900B2AD6FE979862B376E331C3D739F415294
8FE1C0A24CB05875CB5C864B3B1A80B6FF65F8FDFB2FC3E3971F701BB071E771
86D3971E3198EAC931EC9A93C63075F565B001385D905CBF06EC7C411E768617
6F3E020D646158BDE1308393BD2183999E2CC3B317EF189EBD7CCBB0E7D07586
83ABCAC02E78FFF93BAA01615E160C6E66D270E7AE9E91C5B061FF750690B8BD
8138DC15207118C06B8096C27F064373270C0340E21809099B013F6F4E630485
0BBA012071AC062C5DB91FC5649801D8C491F900B5EF36E7A5F58C3000000000
49454E44AE426082}
Name = 'PngImage1'
Background = clWindow
end>
PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled]
Left = 308

15
Source/Modulos/Almacenes/Plugin/uPluginAlmacenes.pas
View File

@ -20,7 +20,10 @@ type
SmallImages: TPngImageList;
Ventas1: TMenuItem;
Almacenes1: TMenuItem;
actUbicaciones: TAction;
Ubicaciones1: TMenuItem;
procedure actAlmacenesExecute(Sender: TObject);
procedure actUbicacionesExecute(Sender: TObject);
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
@ -31,7 +34,7 @@ implementation
{$R *.dfm}
uses
Forms, Dialogs, SysUtils,
Forms, Dialogs, SysUtils, uBizUbicacionesAlmacen, uUbicacionesAlmacenController,
uAlmacenesController, uBizAlmacenes, uAlmacenesViewRegister;
function GetModule : TModuleController;
@ -53,6 +56,16 @@ begin
AAlmacenesController.VerTodos(AAlmacenes);
end;
procedure TPluginAlmacenes.actUbicacionesExecute(Sender: TObject);
var
AUbicacionesAlmacenController : IUbicacionesAlmacenController;
AUbicacionesAlmacen : IBizUbicacionAlmacen;
begin
AUbicacionesAlmacenController := TUbicacionesAlmacenController.Create;
AUbicacionesAlmacen := (AUbicacionesAlmacenController.BuscarTodos as IBizUbicacionAlmacen);
AUbicacionesAlmacenController.VerTodos(AUbicacionesAlmacen);
end;
constructor TPluginAlmacenes.Create(AOwner: TComponent);
begin
inherited;

48
Source/Modulos/Almacenes/Servidor/srvAlmacenes_Impl.dfm
View File

@ -101,6 +101,18 @@ object srvAlmacenes: TsrvAlmacenes
DataType = datString
Size = 255
DisplayLabel = 'Nombre'
end
item
Name = 'AlmacenesUbicaciones_ID'
DataType = datAutoInc
GeneratorName = 'GEN_ALMACENES_UBICACIONES_ID'
Required = True
DisplayLabel = 'ID'
end
item
Name = 'AlmacenesUbicaciones_DESCRIPCION'
DataType = datString
Size = 255
end>
Left = 150
Top = 22
@ -110,6 +122,42 @@ object srvAlmacenes: TsrvAlmacenes
DataDictionary = DataDictionary
Diagrams = Diagrams
Datasets = <
item
Params = <>
Statements = <
item
Connection = 'IBX'
ConnectionType = 'Interbase'
Default = True
TargetTable = 'ALMACENES_UBICACIONES'
Name = 'IBX'
StatementType = stAutoSQL
ColumnMappings = <
item
DatasetField = 'ID'
TableField = 'ID'
end
item
DatasetField = 'DESCRIPCION'
TableField = 'DESCRIPCION'
end>
end>
Name = 'AlmacenesUbicaciones'
Fields = <
item
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_ALMACENES_UBICACIONES_ID'
DictionaryEntry = 'AlmacenesUbicaciones_ID'
InPrimaryKey = True
end
item
Name = 'DESCRIPCION'
DataType = datString
Size = 255
DictionaryEntry = 'AlmacenesUbicaciones_DESCRIPCION'
end>
end
item
Params = <>
Statements = <

BIN
Source/Modulos/Almacenes/Views/Almacenes_view.dpk
View File

Binary file not shown.

26
Source/Modulos/Almacenes/Views/Almacenes_view.dproj
View File

@ -1,4 +1,5 @@
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<?xml version="1.0" encoding="utf-8"?>
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<ProjectGuid>{09ecb9ec-6de2-404d-984b-cc7d73caea9a}</ProjectGuid>
<MainSource>Almacenes_view.dpk</MainSource>
@ -46,9 +47,17 @@
<DelphiCompile Include="Almacenes_view.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\Almacenes_controller.dcp" />
<DCCReference Include="..\Almacenes_model.dcp" />
<DCCReference Include="..\ApplicationBase.dcp" />
<DCCReference Include="adortl.dcp" />
<DCCReference Include="Almacenes_controller.dcp" />
<DCCReference Include="Almacenes_model.dcp" />
<DCCReference Include="ApplicationBase.dcp" />
<DCCReference Include="DataAbstract_Core_D11.dcp" />
<DCCReference Include="dbrtl.dcp" />
<DCCReference Include="designide.dcp" />
<DCCReference Include="dsnap.dcp" />
<DCCReference Include="GUISDK_D11R.dcp" />
<DCCReference Include="RemObjects_Core_D11.dcp" />
<DCCReference Include="rtl.dcp" />
<DCCReference Include="uAlmacenesViewRegister.pas" />
<DCCReference Include="uEditorAlmacen.pas">
<Form>fEditorAlmacen</Form>
@ -62,6 +71,10 @@
<Form>fEditorListaAlmacenes</Form>
<DesignClass>TfListaAlmacenes</DesignClass>
</DCCReference>
<DCCReference Include="uEditorUbicacionesAlmacen.pas">
<Form>fEditorUbicacionesAlmacen</Form>
<DesignClass>TfListaAlmacenes</DesignClass>
</DCCReference>
<DCCReference Include="uViewAlmacen.pas">
<Form>frViewAlmacen</Form>
<DesignClass>TFrame</DesignClass>
@ -70,6 +83,11 @@
<Form>frViewAlmacenes</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="vcl.dcp" />
<DCCReference Include="vclactnband.dcp" />
<DCCReference Include="vcldb.dcp" />
<DCCReference Include="vclx.dcp" />
<DCCReference Include="xmlrtl.dcp" />
</ItemGroup>
</Project>
<!-- EurekaLog First Line

5
Source/Modulos/Almacenes/Views/uAlmacenesViewRegister.pas
View File

@ -8,13 +8,15 @@ procedure UnregisterViews;
implementation
uses
uEditorRegistryUtils, uEditorAlmacenes, uEditorAlmacen, uEditorListaAlmacenes;
uEditorRegistryUtils, uEditorAlmacenes, uEditorAlmacen, uEditorListaAlmacenes,
uEditorUbicacionesAlmacen;
procedure RegisterViews;
begin
EditorRegistry.RegisterClass(TfEditorAlmacen, 'EditorAlmacen');
EditorRegistry.RegisterClass(TfEditorAlmacenes, 'EditorAlmacenes');
EditorRegistry.RegisterClass(TfEditorListaAlmacenes, 'EditorListaAlmacenes');
EditorRegistry.RegisterClass(TfEditorUbicacionesAlmacen, 'EditorUbicacionesAlmacen');
end;
procedure UnregisterViews;
@ -22,6 +24,7 @@ begin
EditorRegistry.UnRegisterClass(TfEditorAlmacen);
EditorRegistry.UnRegisterClass(TfEditorAlmacenes);
EditorRegistry.UnRegisterClass(TfEditorListaAlmacenes);
EditorRegistry.UnRegisterClass(TfEditorUbicacionesAlmacen);
end;
end.

136
Source/Modulos/Almacenes/Views/uEditorUbicacionesAlmacen.dfm Normal file
View File

@ -0,0 +1,136 @@
object fEditorUbicacionesAlmacen: TfEditorUbicacionesAlmacen
Left = 453
Top = 234
ActiveControl = ListaUbicacionesAlmacen
BorderIcons = [biSystemMenu]
BorderStyle = bsSingle
Caption = 'Administraci'#243'n de ubicaciones de almacenes'
ClientHeight = 499
ClientWidth = 404
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnClose = CustomEditorClose
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object bAceptar: TButton
Left = 226
Top = 464
Width = 75
Height = 25
Action = actAceptar
Default = True
TabOrder = 1
end
object bCancelar: TButton
Left = 314
Top = 464
Width = 75
Height = 25
Action = actCancelar
Cancel = True
TabOrder = 2
end
object PageControl1: TPageControl
Left = 8
Top = 8
Width = 390
Height = 442
ActivePage = TabSheet1
TabOrder = 0
object TabSheet1: TTabSheet
Caption = 'Ubicaciones de almacenes'
object Label1: TLabel
Left = 10
Top = 12
Width = 166
Height = 13
Caption = 'Lista de ubicaciones de almacenes'
end
object ListaUbicacionesAlmacen: TDBLookupListBox
Left = 8
Top = 31
Width = 281
Height = 277
KeyField = 'RecID'
ListField = 'DESCRIPCION'
ListSource = DADataSource
TabOrder = 0
end
object bEliminar: TButton
Left = 304
Top = 31
Width = 75
Height = 25
Action = actEliminar
TabOrder = 1
end
object GroupBox1: TGroupBox
Left = 6
Top = 318
Width = 369
Height = 84
Caption = 'A'#241'adir una nueva ubicaci'#243'n'
TabOrder = 2
object eCategoria: TLabel
Left = 18
Top = 20
Width = 115
Height = 13
Caption = 'Nombre de la ubicaci'#243'n:'
end
object bAnadir: TButton
Left = 282
Top = 38
Width = 75
Height = 25
Action = actAnadir
TabOrder = 1
end
object editUbicacionAlmacen: TEdit
Left = 18
Top = 40
Width = 255
Height = 21
TabOrder = 0
end
end
end
end
object ActionList1: TActionList
Left = 144
Top = 16
object actAnadir: TAction
Caption = '&A'#241'adir'
OnExecute = actAnadirExecute
OnUpdate = actAnadirUpdate
end
object actEliminar: TAction
Caption = '&Eliminar'
OnExecute = actEliminarExecute
OnUpdate = actEliminarUpdate
end
object actAceptar: TAction
Caption = 'A&ceptar'
OnExecute = actAceptarExecute
end
object actCancelar: TAction
Caption = '&Cancelar'
OnExecute = actCancelarExecute
end
object actCerrar: TAction
Caption = 'actCerrar'
OnExecute = actCerrarExecute
end
end
object DADataSource: TDADataSource
Left = 168
Top = 16
end
end

180
Source/Modulos/Almacenes/Views/uEditorUbicacionesAlmacen.pas Normal file
View File

@ -0,0 +1,180 @@
{
===============================================================================
Copyright (©) 2006. Rodax Software.
===============================================================================
Los contenidos de este fichero son propiedad de Rodax Software titular del
copyright. Este fichero sólo podrá ser copiado, distribuido y utilizado,
en su totalidad o en parte, con el permiso escrito de Rodax Software, o de
acuerdo con los términos y condiciones establecidas en el acuerdo/contrato
bajo el que se suministra.
-----------------------------------------------------------------------------
Web: www.rodax-software.com
===============================================================================
Fecha primera versión: 22-05-2006
Versión actual: 1.0.0
Fecha versión actual: 22-05-2006
===============================================================================
Modificaciones:
Fecha Comentarios
---------------------------------------------------------------------------
===============================================================================
}
unit uEditorUbicacionesAlmacen;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, StdCtrls, DBCtrls, uDADataTable, ActnList,
uIEditorUbicacionesAlmacen, uEditorBasico, uGUIBase, ExtCtrls,
ComCtrls, uBizUbicacionesAlmacen, uUbicacionesAlmacenController, uDAInterfaces,
uEditorBase;
type
TfEditorUbicacionesAlmacen = class(TfEditorBasico, IEditorUbicacionesAlmacen)
ActionList1: TActionList;
DADataSource: TDADataSource;
ListaUbicacionesAlmacen: TDBLookupListBox;
editUbicacionAlmacen: TEdit;
bAnadir: TButton;
actAnadir: TAction;
actEliminar: TAction;
bEliminar: TButton;
actAceptar: TAction;
actCancelar: TAction;
bAceptar: TButton;
bCancelar: TButton;
actCerrar: TAction;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
GroupBox1: TGroupBox;
Label1: TLabel;
procedure FormShow(Sender: TObject);
procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction);
procedure actAnadirExecute(Sender: TObject);
procedure actEliminarExecute(Sender: TObject);
procedure actAceptarExecute(Sender: TObject);
procedure actCancelarExecute(Sender: TObject);
procedure actCerrarExecute(Sender: TObject);
procedure actAnadirUpdate(Sender: TObject);
procedure actEliminarUpdate(Sender: TObject);
protected
FUbicacionesAlmacen: IBizUbicacionAlmacen;
FController: IUbicacionesAlmacenController;
function GetUbicacionesAlmacen: IBizUbicacionAlmacen;
procedure SetUbicacionesAlmacen(const Value: IBizUbicacionAlmacen);
function GetController : IUbicacionesAlmacenController;
procedure SetController (const Value : IUbicacionesAlmacenController);
public
property UbicacionesAlmacen: IBizUbicacionAlmacen read GetUbicacionesAlmacen write SetUbicacionesAlmacen;
property Controller : IUbicacionesAlmacenController read GetController write SetController;
end;
implementation
{$R *.dfm}
{ TfEditorUbicacionesAlmacen }
uses
uDialogUtils;
function TfEditorUbicacionesAlmacen.GetController: IUbicacionesAlmacenController;
begin
Result := FController;
end;
function TfEditorUbicacionesAlmacen.GetUbicacionesAlmacen: IBizUbicacionAlmacen;
begin
Result := FUbicacionesAlmacen;
end;
procedure TfEditorUbicacionesAlmacen.SetController(const Value: IUbicacionesAlmacenController);
begin
FController := Value;
end;
procedure TfEditorUbicacionesAlmacen.SetUbicacionesAlmacen(const Value: IBizUbicacionAlmacen);
begin
FUbicacionesAlmacen := Value;
DADataSource.DataTable := (FUbicacionesAlmacen as IBizUbicacionAlmacen).DataTable;
DADataSource.DataTable.Open;
end;
procedure TfEditorUbicacionesAlmacen.actAnadirExecute(Sender: TObject);
begin
if not FController.Localizar(UbicacionesAlmacen, editUbicacionAlmacen.Text) then
begin
UbicacionesAlmacen.Append;
UbicacionesAlmacen.DESCRIPCION := editUbicacionAlmacen.Text;
UbicacionesAlmacen.Post;
editUbicacionAlmacen.Clear;
ListaUbicacionesAlmacen.SetFocus;
end
else
ShowErrorMessage('Ya existe la ubicación ' + editUbicacionAlmacen.Text,
'Ya existe la ubicación ''' + editUbicacionAlmacen.Text + ''' en la lista de ubicaciones.');
end;
procedure TfEditorUbicacionesAlmacen.actEliminarExecute(Sender: TObject);
begin
UbicacionesAlmacen.Delete;
ListaUbicacionesAlmacen.SetFocus;
end;
procedure TfEditorUbicacionesAlmacen.actEliminarUpdate(Sender: TObject);
begin
(Sender as TAction).Enabled := (FUbicacionesAlmacen.DataTable.RecordCount > 0) and
(Length(ListaUbicacionesAlmacen.SelectedItem) > 0);
end;
procedure TfEditorUbicacionesAlmacen.CustomEditorClose(Sender: TObject; var Action: TCloseAction);
begin
FUbicacionesAlmacen := Nil;
FController := Nil;
end;
procedure TfEditorUbicacionesAlmacen.actAceptarExecute(Sender: TObject);
begin
try
UbicacionesAlmacen.DataTable.ApplyUpdates;
except
on E : Exception do begin
UbicacionesAlmacen.DataTable.CancelUpdates;
ShowErrorMessage('Error al guardar cambios', 'Se ha producido un error grave', E);
exit;
end;
end;
actCerrar.Execute;
end;
procedure TfEditorUbicacionesAlmacen.actCancelarExecute(Sender: TObject);
begin
UbicacionesAlmacen.DataTable.CancelUpdates;
actCerrar.Execute;
end;
procedure TfEditorUbicacionesAlmacen.actCerrarExecute(Sender: TObject);
begin
Close;
end;
procedure TfEditorUbicacionesAlmacen.actAnadirUpdate(Sender: TObject);
begin
(Sender as TAction).Enabled := (Length(editUbicacionAlmacen.Text) > 0)
end;
procedure TfEditorUbicacionesAlmacen.FormShow(Sender: TObject);
begin
if not FUbicacionesAlmacen.DataTable.Active then
FUbicacionesAlmacen.DataTable.Active := true;
editUbicacionAlmacen.SetFocus;
end;
end.

11
Source/Modulos/Articulos/Controller/uArticulosController.pas
View File

@ -14,6 +14,7 @@ type
function Buscar(const ID: Integer; AClienteID: Integer = -1): IBizArticulo;
function BuscarInventariables: IBizArticulo;
function BuscarTodos: IBizArticulo; overload;
function BuscarTodosPorProveedor: IBizArticulo; overload;
function BuscarTodos(ACliente: IBizCliente): IBizArticulo; overload;
function BuscarTodos(AProveedor: IBizProveedor): IBizArticulo; overload;
function BuscarReferencia(const Ref: String; AClienteID: Integer): IBizArticulo;
@ -77,6 +78,7 @@ type
procedure Anadir(AArticulo : IBizArticulo); virtual;
function Buscar(const ID: Integer; AClienteID: Integer = -1): IBizArticulo; virtual;
function BuscarTodos: IBizArticulo; overload;
function BuscarTodosPorProveedor: IBizArticulo; overload;
function BuscarInventariables: IBizArticulo;
function BuscarTodos(ACliente: IBizCliente): IBizArticulo; overload;
function BuscarTodos(ACliente: Integer): IBizArticulo; overload;
@ -286,9 +288,16 @@ begin
end;
end;
function TArticulosController.BuscarTodosPorProveedor: IBizArticulo;
begin
Result := FDataModule.GetItems(txProveedor);
//Los articulos serán comunes para todas las empresas.
// FiltrarEmpresa(Result);
end;
function TArticulosController.BuscarTodos: IBizArticulo;
begin
Result := FDataModule.GetItems;
Result := FDataModule.GetItems(txArticulo);
// Ticket 1211 -> No filtrar los artículos por empresa
//FiltrarEmpresa(AArticulo);
end;

108
Source/Modulos/Articulos/Data/uDataModuleArticulos.dfm
View File

@ -1,6 +1,6 @@
inherited DataModuleArticulos: TDataModuleArticulos
OnCreate = DAClientDataModuleCreate
Height = 219
Height = 506
Width = 518
object RORemoteService: TRORemoteService
Message = dmConexion.ROMessage
@ -270,4 +270,110 @@ inherited DataModuleArticulos: TDataModuleArticulos
Left = 400
Top = 32
end
object tbl_ArticulosParaCompra: TDAMemDataTable
RemoteUpdatesOptions = []
Fields = <
item
Name = 'ID'
DataType = datInteger
InPrimaryKey = True
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
end
item
Name = 'DESCRIPCION'
DataType = datString
Size = 255
end
item
Name = 'FAMILIA'
DataType = datString
Size = 255
end
item
Name = 'IMAGEN'
DataType = datBlob
LogChanges = False
end
item
Name = 'COMISIONABLE'
DataType = datSmallInt
end
item
Name = 'FECHA_ALTA'
DataType = datDateTime
end
item
Name = 'FECHA_MODIFICACION'
DataType = datDateTime
end
item
Name = 'USUARIO'
DataType = datString
Size = 30
end
item
Name = 'REFERENCIA_PROV'
DataType = datString
Size = 255
end
item
Name = 'PRECIO_COSTE'
DataType = datCurrency
end
item
Name = 'PRECIO_PORTE'
DataType = datCurrency
end
item
Name = 'DESCUENTO'
DataType = datFloat
end
item
Name = 'PRECIO_NETO'
DataType = datCurrency
end
item
Name = 'PRECIO_PVP'
DataType = datCurrency
end
item
Name = 'INVENTARIABLE'
DataType = datSmallInt
end
item
Name = 'ID_PROVEEDOR'
DataType = datInteger
end
item
Name = 'NOMBRE_PROVEEDOR'
DataType = datString
Size = 255
end
item
Name = 'ELIMINADO'
DataType = datSmallInt
DisplayLabel = 'Eliminado'
end>
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_Articulos
LogicalName = 'ArticulosParaCompra'
IndexDefs = <>
Left = 400
Top = 280
end
object ds_ArticulosParaCompra: TDADataSource
DataSet = tbl_ArticulosParaCompra.Dataset
DataTable = tbl_ArticulosParaCompra
Left = 400
Top = 216
end
end

38
Source/Modulos/Articulos/Data/uDataModuleArticulos.pas
View File

@ -19,13 +19,17 @@ type
ds_Articulos: TDADataSource;
tbl_ArticulosParaCliente: TDAMemDataTable;
ds_ArticulosParaCliente: TDADataSource;
tbl_ArticulosParaCompra: TDAMemDataTable;
ds_ArticulosParaCompra: TDADataSource;
procedure DAClientDataModuleCreate(Sender: TObject);
private
// function GetItems: IBizArticulo; overload;
protected
procedure AsignarClaseNegocio(AArticulo: TDADataTable); virtual;
public
function GetItems : IBizArticulo; overload;
function GetItems (const Tipo: TEnumArticulos): IBizArticulo; overload;
function GetItems (IDCliente: Integer) : IBizArticulo; overload;
function GetItem(const ID : Integer; AClienteID: Integer = -1) : IBizArticulo;
function NewItem : IBizArticulo;
@ -80,7 +84,7 @@ begin
ShowHourglassCursor;
try
if (AClienteID = -1) then
Result := Self.GetItems
Result := Self.GetItems(txArticulo)
else
Result := Self.GetItems(AClienteID);
@ -100,11 +104,36 @@ begin
end;
end;
function TDataModuleArticulos.GetItems(const Tipo: TEnumArticulos): IBizArticulo;
var
AArticulo : TDAMemDataTable;
begin
ShowHourglassCursor;
try
case Tipo of
txArticulo: AArticulo := CloneDataTable(tbl_Articulos);
txProveedor: AArticulo := CloneDataTable(tbl_ArticulosParaCompra); //En el caso de tener varios proveedores para un mismo artículo
// txProveedor: AArticulo := CloneDataTable(tbl_Articulos); //En el caso de tener solo un proveedor por articulo
end;
AsignarClaseNegocio(AArticulo);
// case Tipo of
// txArticulo: TBizArticulo(AArticulo.BusinessEventsObj).Proveedores := _GetProveedores;
// end;
Result := (AArticulo as IBizArticulo);
finally
HideHourglassCursor;
end;
end;
function TDataModuleArticulos.GetItems(IDCliente: Integer): IBizArticulo;
var
AArticulo : TDAMemDataTable;
begin
ShowHourglassCursor;
try
AArticulo := CloneDataTable(tbl_ArticulosParaCliente);
@ -120,6 +149,7 @@ begin
end;
{
function TDataModuleArticulos.GetItems: IBizArticulo;
var
AArticulo : TDAMemDataTable;
@ -136,6 +166,6 @@ begin
HideHourglassCursor;
end;
end;
}
end.

4
Source/Modulos/Articulos/Model/Data/uIDataModuleArticulos.pas
View File

@ -6,9 +6,11 @@ uses
uBizArticulos;
type
TEnumArticulos = (txArticulo, txProveedor);
IDataModuleArticulos = interface
['{9047C468-78DE-404E-9047-1125B382FE3B}']
function GetItems: IBizArticulo; overload;
function GetItems (const Tipo: TEnumArticulos): IBizArticulo; overload;
function GetItems (IDCliente: Integer) : IBizArticulo; overload;
function GetItem(const ID : Integer; AClienteID: Integer = -1) : IBizArticulo;
function NewItem : IBizArticulo;

765
Source/Modulos/Articulos/Model/schArticulosClient_Intf.pas
View File

@ -9,14 +9,16 @@ 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_ExisteImagen = '{17B1E5DC-0839-4F73-A6CE-1E961327B343}';
RID_Articulos = '{2149AC69-F867-42DA-8AED-68F469111FD5}';
RID_ArticulosParaCliente = '{E4F0E298-DAFE-4330-B4DD-3C04505B273A}';
RID_ExisteImagen = '{6C2F7E0E-E90A-4B6C-8533-E31599B007B4}';
RID_Articulos = '{AA24A4FF-2391-46FE-8233-F324AF19B184}';
RID_ArticulosParaCliente = '{176B4C13-BE2D-4DF7-9A24-AF7793F1DE0F}';
RID_ArticulosParaCompra = '{08613735-CEA3-4201-9E60-E09CC051DF7E}';
{ Data table names }
nme_ExisteImagen = 'ExisteImagen';
nme_Articulos = 'Articulos';
nme_ArticulosParaCliente = 'ArticulosParaCliente';
nme_ArticulosParaCompra = 'ArticulosParaCompra';
{ ExisteImagen fields }
fld_ExisteImagenID = 'ID';
@ -112,10 +114,54 @@ const
idx_ArticulosParaClienteNOMBRE_PROVEEDOR = 18;
idx_ArticulosParaClienteELIMINADO = 19;
{ ArticulosParaCompra fields }
fld_ArticulosParaCompraID = 'ID';
fld_ArticulosParaCompraID_EMPRESA = 'ID_EMPRESA';
fld_ArticulosParaCompraREFERENCIA = 'REFERENCIA';
fld_ArticulosParaCompraDESCRIPCION = 'DESCRIPCION';
fld_ArticulosParaCompraFAMILIA = 'FAMILIA';
fld_ArticulosParaCompraIMAGEN = 'IMAGEN';
fld_ArticulosParaCompraCOMISIONABLE = 'COMISIONABLE';
fld_ArticulosParaCompraFECHA_ALTA = 'FECHA_ALTA';
fld_ArticulosParaCompraFECHA_MODIFICACION = 'FECHA_MODIFICACION';
fld_ArticulosParaCompraUSUARIO = 'USUARIO';
fld_ArticulosParaCompraREFERENCIA_PROV = 'REFERENCIA_PROV';
fld_ArticulosParaCompraPRECIO_COSTE = 'PRECIO_COSTE';
fld_ArticulosParaCompraPRECIO_PORTE = 'PRECIO_PORTE';
fld_ArticulosParaCompraDESCUENTO = 'DESCUENTO';
fld_ArticulosParaCompraPRECIO_NETO = 'PRECIO_NETO';
fld_ArticulosParaCompraPRECIO_PVP = 'PRECIO_PVP';
fld_ArticulosParaCompraINVENTARIABLE = 'INVENTARIABLE';
fld_ArticulosParaCompraID_PROVEEDOR = 'ID_PROVEEDOR';
fld_ArticulosParaCompraNOMBRE_PROVEEDOR = 'NOMBRE_PROVEEDOR';
fld_ArticulosParaCompraELIMINADO = 'ELIMINADO';
{ ArticulosParaCompra field indexes }
idx_ArticulosParaCompraID = 0;
idx_ArticulosParaCompraID_EMPRESA = 1;
idx_ArticulosParaCompraREFERENCIA = 2;
idx_ArticulosParaCompraDESCRIPCION = 3;
idx_ArticulosParaCompraFAMILIA = 4;
idx_ArticulosParaCompraIMAGEN = 5;
idx_ArticulosParaCompraCOMISIONABLE = 6;
idx_ArticulosParaCompraFECHA_ALTA = 7;
idx_ArticulosParaCompraFECHA_MODIFICACION = 8;
idx_ArticulosParaCompraUSUARIO = 9;
idx_ArticulosParaCompraREFERENCIA_PROV = 10;
idx_ArticulosParaCompraPRECIO_COSTE = 11;
idx_ArticulosParaCompraPRECIO_PORTE = 12;
idx_ArticulosParaCompraDESCUENTO = 13;
idx_ArticulosParaCompraPRECIO_NETO = 14;
idx_ArticulosParaCompraPRECIO_PVP = 15;
idx_ArticulosParaCompraINVENTARIABLE = 16;
idx_ArticulosParaCompraID_PROVEEDOR = 17;
idx_ArticulosParaCompraNOMBRE_PROVEEDOR = 18;
idx_ArticulosParaCompraELIMINADO = 19;
type
{ IExisteImagen }
IExisteImagen = interface(IDAStronglyTypedDataTable)
['{060DC060-1362-46EB-83A8-00224E4BA4DC}']
['{874B7ED1-AAA1-44E0-B59D-EA38F57AB696}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -150,7 +196,7 @@ type
{ IArticulos }
IArticulos = interface(IDAStronglyTypedDataTable)
['{FAB0E582-EA62-4762-84D7-79E31C26F996}']
['{0225A8BE-488D-4E3E-9F29-F20D572DB3AC}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -413,7 +459,7 @@ type
{ IArticulosParaCliente }
IArticulosParaCliente = interface(IDAStronglyTypedDataTable)
['{A54CB1AD-9DB8-4427-BDC3-A3B9B14280E8}']
['{E71B995E-B1A3-46EB-B6C2-500411054A5C}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -674,6 +720,269 @@ type
end;
{ IArticulosParaCompra }
IArticulosParaCompra = interface(IDAStronglyTypedDataTable)
['{8029B31F-8C96-457B-B9A5-944E16A3BE2C}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
function GetIDIsNull: Boolean;
procedure SetIDIsNull(const aValue: Boolean);
function GetID_EMPRESAValue: Integer;
procedure SetID_EMPRESAValue(const aValue: Integer);
function GetID_EMPRESAIsNull: Boolean;
procedure SetID_EMPRESAIsNull(const aValue: Boolean);
function GetREFERENCIAValue: String;
procedure SetREFERENCIAValue(const aValue: String);
function GetREFERENCIAIsNull: Boolean;
procedure SetREFERENCIAIsNull(const aValue: Boolean);
function GetDESCRIPCIONValue: String;
procedure SetDESCRIPCIONValue(const aValue: String);
function GetDESCRIPCIONIsNull: Boolean;
procedure SetDESCRIPCIONIsNull(const aValue: Boolean);
function GetFAMILIAValue: String;
procedure SetFAMILIAValue(const aValue: String);
function GetFAMILIAIsNull: Boolean;
procedure SetFAMILIAIsNull(const aValue: Boolean);
function GetIMAGENValue: IROStream;
function GetIMAGENIsNull: Boolean;
procedure SetIMAGENIsNull(const aValue: Boolean);
function GetCOMISIONABLEValue: SmallInt;
procedure SetCOMISIONABLEValue(const aValue: SmallInt);
function GetCOMISIONABLEIsNull: Boolean;
procedure SetCOMISIONABLEIsNull(const aValue: Boolean);
function GetFECHA_ALTAValue: DateTime;
procedure SetFECHA_ALTAValue(const aValue: DateTime);
function GetFECHA_ALTAIsNull: Boolean;
procedure SetFECHA_ALTAIsNull(const aValue: Boolean);
function GetFECHA_MODIFICACIONValue: DateTime;
procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime);
function GetFECHA_MODIFICACIONIsNull: Boolean;
procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
function GetUSUARIOValue: String;
procedure SetUSUARIOValue(const aValue: String);
function GetUSUARIOIsNull: Boolean;
procedure SetUSUARIOIsNull(const aValue: Boolean);
function GetREFERENCIA_PROVValue: String;
procedure SetREFERENCIA_PROVValue(const aValue: String);
function GetREFERENCIA_PROVIsNull: Boolean;
procedure SetREFERENCIA_PROVIsNull(const aValue: Boolean);
function GetPRECIO_COSTEValue: Currency;
procedure SetPRECIO_COSTEValue(const aValue: Currency);
function GetPRECIO_COSTEIsNull: Boolean;
procedure SetPRECIO_COSTEIsNull(const aValue: Boolean);
function GetPRECIO_PORTEValue: Currency;
procedure SetPRECIO_PORTEValue(const aValue: Currency);
function GetPRECIO_PORTEIsNull: Boolean;
procedure SetPRECIO_PORTEIsNull(const aValue: Boolean);
function GetDESCUENTOValue: Float;
procedure SetDESCUENTOValue(const aValue: Float);
function GetDESCUENTOIsNull: Boolean;
procedure SetDESCUENTOIsNull(const aValue: Boolean);
function GetPRECIO_NETOValue: Currency;
procedure SetPRECIO_NETOValue(const aValue: Currency);
function GetPRECIO_NETOIsNull: Boolean;
procedure SetPRECIO_NETOIsNull(const aValue: Boolean);
function GetPRECIO_PVPValue: Currency;
procedure SetPRECIO_PVPValue(const aValue: Currency);
function GetPRECIO_PVPIsNull: Boolean;
procedure SetPRECIO_PVPIsNull(const aValue: Boolean);
function GetINVENTARIABLEValue: SmallInt;
procedure SetINVENTARIABLEValue(const aValue: SmallInt);
function GetINVENTARIABLEIsNull: Boolean;
procedure SetINVENTARIABLEIsNull(const aValue: Boolean);
function GetID_PROVEEDORValue: Integer;
procedure SetID_PROVEEDORValue(const aValue: Integer);
function GetID_PROVEEDORIsNull: Boolean;
procedure SetID_PROVEEDORIsNull(const aValue: Boolean);
function GetNOMBRE_PROVEEDORValue: String;
procedure SetNOMBRE_PROVEEDORValue(const aValue: String);
function GetNOMBRE_PROVEEDORIsNull: Boolean;
procedure SetNOMBRE_PROVEEDORIsNull(const aValue: Boolean);
function GetELIMINADOValue: SmallInt;
procedure SetELIMINADOValue(const aValue: SmallInt);
function GetELIMINADOIsNull: Boolean;
procedure SetELIMINADOIsNull(const aValue: Boolean);
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
property FAMILIA: String read GetFAMILIAValue write SetFAMILIAValue;
property FAMILIAIsNull: Boolean read GetFAMILIAIsNull write SetFAMILIAIsNull;
property IMAGEN: IROStream read GetIMAGENValue;
property IMAGENIsNull: Boolean read GetIMAGENIsNull write SetIMAGENIsNull;
property COMISIONABLE: SmallInt read GetCOMISIONABLEValue write SetCOMISIONABLEValue;
property COMISIONABLEIsNull: Boolean read GetCOMISIONABLEIsNull write SetCOMISIONABLEIsNull;
property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull;
property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
property REFERENCIA_PROV: String read GetREFERENCIA_PROVValue write SetREFERENCIA_PROVValue;
property REFERENCIA_PROVIsNull: Boolean read GetREFERENCIA_PROVIsNull write SetREFERENCIA_PROVIsNull;
property PRECIO_COSTE: Currency read GetPRECIO_COSTEValue write SetPRECIO_COSTEValue;
property PRECIO_COSTEIsNull: Boolean read GetPRECIO_COSTEIsNull write SetPRECIO_COSTEIsNull;
property PRECIO_PORTE: Currency read GetPRECIO_PORTEValue write SetPRECIO_PORTEValue;
property PRECIO_PORTEIsNull: Boolean read GetPRECIO_PORTEIsNull write SetPRECIO_PORTEIsNull;
property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
property PRECIO_NETO: Currency read GetPRECIO_NETOValue write SetPRECIO_NETOValue;
property PRECIO_NETOIsNull: Boolean read GetPRECIO_NETOIsNull write SetPRECIO_NETOIsNull;
property PRECIO_PVP: Currency read GetPRECIO_PVPValue write SetPRECIO_PVPValue;
property PRECIO_PVPIsNull: Boolean read GetPRECIO_PVPIsNull write SetPRECIO_PVPIsNull;
property INVENTARIABLE: SmallInt read GetINVENTARIABLEValue write SetINVENTARIABLEValue;
property INVENTARIABLEIsNull: Boolean read GetINVENTARIABLEIsNull write SetINVENTARIABLEIsNull;
property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue;
property ID_PROVEEDORIsNull: Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull;
property NOMBRE_PROVEEDOR: String read GetNOMBRE_PROVEEDORValue write SetNOMBRE_PROVEEDORValue;
property NOMBRE_PROVEEDORIsNull: Boolean read GetNOMBRE_PROVEEDORIsNull write SetNOMBRE_PROVEEDORIsNull;
property ELIMINADO: SmallInt read GetELIMINADOValue write SetELIMINADOValue;
property ELIMINADOIsNull: Boolean read GetELIMINADOIsNull write SetELIMINADOIsNull;
end;
{ TArticulosParaCompraDataTableRules }
TArticulosParaCompraDataTableRules = class(TIntfObjectDADataTableRules, IArticulosParaCompra)
private
f_IMAGEN: IROStream;
procedure IMAGEN_OnChange(Sender: TObject);
protected
{ Property getters and setters }
function GetIDValue: Integer; virtual;
procedure SetIDValue(const aValue: Integer); virtual;
function GetIDIsNull: Boolean; virtual;
procedure SetIDIsNull(const aValue: Boolean); virtual;
function GetID_EMPRESAValue: Integer; virtual;
procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
function GetID_EMPRESAIsNull: Boolean; virtual;
procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual;
function GetREFERENCIAValue: String; virtual;
procedure SetREFERENCIAValue(const aValue: String); virtual;
function GetREFERENCIAIsNull: Boolean; virtual;
procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual;
function GetDESCRIPCIONValue: String; virtual;
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
function GetDESCRIPCIONIsNull: Boolean; virtual;
procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
function GetFAMILIAValue: String; virtual;
procedure SetFAMILIAValue(const aValue: String); virtual;
function GetFAMILIAIsNull: Boolean; virtual;
procedure SetFAMILIAIsNull(const aValue: Boolean); virtual;
function GetIMAGENValue: IROStream; virtual;
function GetIMAGENIsNull: Boolean; virtual;
procedure SetIMAGENIsNull(const aValue: Boolean); virtual;
function GetCOMISIONABLEValue: SmallInt; virtual;
procedure SetCOMISIONABLEValue(const aValue: SmallInt); virtual;
function GetCOMISIONABLEIsNull: Boolean; virtual;
procedure SetCOMISIONABLEIsNull(const aValue: Boolean); virtual;
function GetFECHA_ALTAValue: DateTime; virtual;
procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual;
function GetFECHA_ALTAIsNull: Boolean; virtual;
procedure SetFECHA_ALTAIsNull(const aValue: Boolean); virtual;
function GetFECHA_MODIFICACIONValue: DateTime; virtual;
procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual;
function GetFECHA_MODIFICACIONIsNull: Boolean; virtual;
procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual;
function GetUSUARIOValue: String; virtual;
procedure SetUSUARIOValue(const aValue: String); virtual;
function GetUSUARIOIsNull: Boolean; virtual;
procedure SetUSUARIOIsNull(const aValue: Boolean); virtual;
function GetREFERENCIA_PROVValue: String; virtual;
procedure SetREFERENCIA_PROVValue(const aValue: String); virtual;
function GetREFERENCIA_PROVIsNull: Boolean; virtual;
procedure SetREFERENCIA_PROVIsNull(const aValue: Boolean); virtual;
function GetPRECIO_COSTEValue: Currency; virtual;
procedure SetPRECIO_COSTEValue(const aValue: Currency); virtual;
function GetPRECIO_COSTEIsNull: Boolean; virtual;
procedure SetPRECIO_COSTEIsNull(const aValue: Boolean); virtual;
function GetPRECIO_PORTEValue: Currency; virtual;
procedure SetPRECIO_PORTEValue(const aValue: Currency); virtual;
function GetPRECIO_PORTEIsNull: Boolean; virtual;
procedure SetPRECIO_PORTEIsNull(const aValue: Boolean); virtual;
function GetDESCUENTOValue: Float; virtual;
procedure SetDESCUENTOValue(const aValue: Float); virtual;
function GetDESCUENTOIsNull: Boolean; virtual;
procedure SetDESCUENTOIsNull(const aValue: Boolean); virtual;
function GetPRECIO_NETOValue: Currency; virtual;
procedure SetPRECIO_NETOValue(const aValue: Currency); virtual;
function GetPRECIO_NETOIsNull: Boolean; virtual;
procedure SetPRECIO_NETOIsNull(const aValue: Boolean); virtual;
function GetPRECIO_PVPValue: Currency; virtual;
procedure SetPRECIO_PVPValue(const aValue: Currency); virtual;
function GetPRECIO_PVPIsNull: Boolean; virtual;
procedure SetPRECIO_PVPIsNull(const aValue: Boolean); virtual;
function GetINVENTARIABLEValue: SmallInt; virtual;
procedure SetINVENTARIABLEValue(const aValue: SmallInt); virtual;
function GetINVENTARIABLEIsNull: Boolean; virtual;
procedure SetINVENTARIABLEIsNull(const aValue: Boolean); virtual;
function GetID_PROVEEDORValue: Integer; virtual;
procedure SetID_PROVEEDORValue(const aValue: Integer); virtual;
function GetID_PROVEEDORIsNull: Boolean; virtual;
procedure SetID_PROVEEDORIsNull(const aValue: Boolean); virtual;
function GetNOMBRE_PROVEEDORValue: String; virtual;
procedure SetNOMBRE_PROVEEDORValue(const aValue: String); virtual;
function GetNOMBRE_PROVEEDORIsNull: Boolean; virtual;
procedure SetNOMBRE_PROVEEDORIsNull(const aValue: Boolean); virtual;
function GetELIMINADOValue: SmallInt; virtual;
procedure SetELIMINADOValue(const aValue: SmallInt); virtual;
function GetELIMINADOIsNull: Boolean; virtual;
procedure SetELIMINADOIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
property FAMILIA: String read GetFAMILIAValue write SetFAMILIAValue;
property FAMILIAIsNull: Boolean read GetFAMILIAIsNull write SetFAMILIAIsNull;
property IMAGEN: IROStream read GetIMAGENValue;
property IMAGENIsNull: Boolean read GetIMAGENIsNull write SetIMAGENIsNull;
property COMISIONABLE: SmallInt read GetCOMISIONABLEValue write SetCOMISIONABLEValue;
property COMISIONABLEIsNull: Boolean read GetCOMISIONABLEIsNull write SetCOMISIONABLEIsNull;
property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull;
property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
property REFERENCIA_PROV: String read GetREFERENCIA_PROVValue write SetREFERENCIA_PROVValue;
property REFERENCIA_PROVIsNull: Boolean read GetREFERENCIA_PROVIsNull write SetREFERENCIA_PROVIsNull;
property PRECIO_COSTE: Currency read GetPRECIO_COSTEValue write SetPRECIO_COSTEValue;
property PRECIO_COSTEIsNull: Boolean read GetPRECIO_COSTEIsNull write SetPRECIO_COSTEIsNull;
property PRECIO_PORTE: Currency read GetPRECIO_PORTEValue write SetPRECIO_PORTEValue;
property PRECIO_PORTEIsNull: Boolean read GetPRECIO_PORTEIsNull write SetPRECIO_PORTEIsNull;
property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
property PRECIO_NETO: Currency read GetPRECIO_NETOValue write SetPRECIO_NETOValue;
property PRECIO_NETOIsNull: Boolean read GetPRECIO_NETOIsNull write SetPRECIO_NETOIsNull;
property PRECIO_PVP: Currency read GetPRECIO_PVPValue write SetPRECIO_PVPValue;
property PRECIO_PVPIsNull: Boolean read GetPRECIO_PVPIsNull write SetPRECIO_PVPIsNull;
property INVENTARIABLE: SmallInt read GetINVENTARIABLEValue write SetINVENTARIABLEValue;
property INVENTARIABLEIsNull: Boolean read GetINVENTARIABLEIsNull write SetINVENTARIABLEIsNull;
property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue;
property ID_PROVEEDORIsNull: Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull;
property NOMBRE_PROVEEDOR: String read GetNOMBRE_PROVEEDORValue write SetNOMBRE_PROVEEDORValue;
property NOMBRE_PROVEEDORIsNull: Boolean read GetNOMBRE_PROVEEDORIsNull write SetNOMBRE_PROVEEDORIsNull;
property ELIMINADO: SmallInt read GetELIMINADOValue write SetELIMINADOValue;
property ELIMINADOIsNull: Boolean read GetELIMINADOIsNull write SetELIMINADOIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
destructor Destroy; override;
end;
implementation
uses Variants, uROBinaryHelpers;
@ -1597,9 +1906,453 @@ begin
end;
{ TArticulosParaCompraDataTableRules }
constructor TArticulosParaCompraDataTableRules.Create(aDataTable: TDADataTable);
var
ROStream: TROStream;
begin
inherited;
ROStream := TROStream.Create;
ROStream.OnChange := IMAGEN_OnChange;
f_IMAGEN := ROStream;
end;
destructor TArticulosParaCompraDataTableRules.Destroy;
begin
inherited;
end;
procedure TArticulosParaCompraDataTableRules.IMAGEN_OnChange(Sender: TObject);
begin
if DataTable.Editing then DataTable.Fields[idx_ArticulosParaCompraIMAGEN].LoadFromStream(TROStream(Sender));
end;
function TArticulosParaCompraDataTableRules.GetIDValue: Integer;
begin
result := DataTable.Fields[idx_ArticulosParaCompraID].AsInteger;
end;
procedure TArticulosParaCompraDataTableRules.SetIDValue(const aValue: Integer);
begin
DataTable.Fields[idx_ArticulosParaCompraID].AsInteger := aValue;
end;
function TArticulosParaCompraDataTableRules.GetIDIsNull: boolean;
begin
result := DataTable.Fields[idx_ArticulosParaCompraID].IsNull;
end;
procedure TArticulosParaCompraDataTableRules.SetIDIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ArticulosParaCompraID].AsVariant := Null;
end;
function TArticulosParaCompraDataTableRules.GetID_EMPRESAValue: Integer;
begin
result := DataTable.Fields[idx_ArticulosParaCompraID_EMPRESA].AsInteger;
end;
procedure TArticulosParaCompraDataTableRules.SetID_EMPRESAValue(const aValue: Integer);
begin
DataTable.Fields[idx_ArticulosParaCompraID_EMPRESA].AsInteger := aValue;
end;
function TArticulosParaCompraDataTableRules.GetID_EMPRESAIsNull: boolean;
begin
result := DataTable.Fields[idx_ArticulosParaCompraID_EMPRESA].IsNull;
end;
procedure TArticulosParaCompraDataTableRules.SetID_EMPRESAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ArticulosParaCompraID_EMPRESA].AsVariant := Null;
end;
function TArticulosParaCompraDataTableRules.GetREFERENCIAValue: String;
begin
result := DataTable.Fields[idx_ArticulosParaCompraREFERENCIA].AsString;
end;
procedure TArticulosParaCompraDataTableRules.SetREFERENCIAValue(const aValue: String);
begin
DataTable.Fields[idx_ArticulosParaCompraREFERENCIA].AsString := aValue;
end;
function TArticulosParaCompraDataTableRules.GetREFERENCIAIsNull: boolean;
begin
result := DataTable.Fields[idx_ArticulosParaCompraREFERENCIA].IsNull;
end;
procedure TArticulosParaCompraDataTableRules.SetREFERENCIAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ArticulosParaCompraREFERENCIA].AsVariant := Null;
end;
function TArticulosParaCompraDataTableRules.GetDESCRIPCIONValue: String;
begin
result := DataTable.Fields[idx_ArticulosParaCompraDESCRIPCION].AsString;
end;
procedure TArticulosParaCompraDataTableRules.SetDESCRIPCIONValue(const aValue: String);
begin
DataTable.Fields[idx_ArticulosParaCompraDESCRIPCION].AsString := aValue;
end;
function TArticulosParaCompraDataTableRules.GetDESCRIPCIONIsNull: boolean;
begin
result := DataTable.Fields[idx_ArticulosParaCompraDESCRIPCION].IsNull;
end;
procedure TArticulosParaCompraDataTableRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ArticulosParaCompraDESCRIPCION].AsVariant := Null;
end;
function TArticulosParaCompraDataTableRules.GetFAMILIAValue: String;
begin
result := DataTable.Fields[idx_ArticulosParaCompraFAMILIA].AsString;
end;
procedure TArticulosParaCompraDataTableRules.SetFAMILIAValue(const aValue: String);
begin
DataTable.Fields[idx_ArticulosParaCompraFAMILIA].AsString := aValue;
end;
function TArticulosParaCompraDataTableRules.GetFAMILIAIsNull: boolean;
begin
result := DataTable.Fields[idx_ArticulosParaCompraFAMILIA].IsNull;
end;
procedure TArticulosParaCompraDataTableRules.SetFAMILIAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ArticulosParaCompraFAMILIA].AsVariant := Null;
end;
function TArticulosParaCompraDataTableRules.GetIMAGENValue: IROStream;
begin
result := f_IMAGEN;
result.Position := 0;
if not Result.InUpdateMode then begin
DataTable.Fields[idx_ArticulosParaCompraIMAGEN].SaveToStream(result);
result.Position := 0;
end;
end;
function TArticulosParaCompraDataTableRules.GetIMAGENIsNull: boolean;
begin
result := DataTable.Fields[idx_ArticulosParaCompraIMAGEN].IsNull;
end;
procedure TArticulosParaCompraDataTableRules.SetIMAGENIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ArticulosParaCompraIMAGEN].AsVariant := Null;
end;
function TArticulosParaCompraDataTableRules.GetCOMISIONABLEValue: SmallInt;
begin
result := DataTable.Fields[idx_ArticulosParaCompraCOMISIONABLE].AsSmallInt;
end;
procedure TArticulosParaCompraDataTableRules.SetCOMISIONABLEValue(const aValue: SmallInt);
begin
DataTable.Fields[idx_ArticulosParaCompraCOMISIONABLE].AsSmallInt := aValue;
end;
function TArticulosParaCompraDataTableRules.GetCOMISIONABLEIsNull: boolean;
begin
result := DataTable.Fields[idx_ArticulosParaCompraCOMISIONABLE].IsNull;
end;
procedure TArticulosParaCompraDataTableRules.SetCOMISIONABLEIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ArticulosParaCompraCOMISIONABLE].AsVariant := Null;
end;
function TArticulosParaCompraDataTableRules.GetFECHA_ALTAValue: DateTime;
begin
result := DataTable.Fields[idx_ArticulosParaCompraFECHA_ALTA].AsDateTime;
end;
procedure TArticulosParaCompraDataTableRules.SetFECHA_ALTAValue(const aValue: DateTime);
begin
DataTable.Fields[idx_ArticulosParaCompraFECHA_ALTA].AsDateTime := aValue;
end;
function TArticulosParaCompraDataTableRules.GetFECHA_ALTAIsNull: boolean;
begin
result := DataTable.Fields[idx_ArticulosParaCompraFECHA_ALTA].IsNull;
end;
procedure TArticulosParaCompraDataTableRules.SetFECHA_ALTAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ArticulosParaCompraFECHA_ALTA].AsVariant := Null;
end;
function TArticulosParaCompraDataTableRules.GetFECHA_MODIFICACIONValue: DateTime;
begin
result := DataTable.Fields[idx_ArticulosParaCompraFECHA_MODIFICACION].AsDateTime;
end;
procedure TArticulosParaCompraDataTableRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime);
begin
DataTable.Fields[idx_ArticulosParaCompraFECHA_MODIFICACION].AsDateTime := aValue;
end;
function TArticulosParaCompraDataTableRules.GetFECHA_MODIFICACIONIsNull: boolean;
begin
result := DataTable.Fields[idx_ArticulosParaCompraFECHA_MODIFICACION].IsNull;
end;
procedure TArticulosParaCompraDataTableRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ArticulosParaCompraFECHA_MODIFICACION].AsVariant := Null;
end;
function TArticulosParaCompraDataTableRules.GetUSUARIOValue: String;
begin
result := DataTable.Fields[idx_ArticulosParaCompraUSUARIO].AsString;
end;
procedure TArticulosParaCompraDataTableRules.SetUSUARIOValue(const aValue: String);
begin
DataTable.Fields[idx_ArticulosParaCompraUSUARIO].AsString := aValue;
end;
function TArticulosParaCompraDataTableRules.GetUSUARIOIsNull: boolean;
begin
result := DataTable.Fields[idx_ArticulosParaCompraUSUARIO].IsNull;
end;
procedure TArticulosParaCompraDataTableRules.SetUSUARIOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ArticulosParaCompraUSUARIO].AsVariant := Null;
end;
function TArticulosParaCompraDataTableRules.GetREFERENCIA_PROVValue: String;
begin
result := DataTable.Fields[idx_ArticulosParaCompraREFERENCIA_PROV].AsString;
end;
procedure TArticulosParaCompraDataTableRules.SetREFERENCIA_PROVValue(const aValue: String);
begin
DataTable.Fields[idx_ArticulosParaCompraREFERENCIA_PROV].AsString := aValue;
end;
function TArticulosParaCompraDataTableRules.GetREFERENCIA_PROVIsNull: boolean;
begin
result := DataTable.Fields[idx_ArticulosParaCompraREFERENCIA_PROV].IsNull;
end;
procedure TArticulosParaCompraDataTableRules.SetREFERENCIA_PROVIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ArticulosParaCompraREFERENCIA_PROV].AsVariant := Null;
end;
function TArticulosParaCompraDataTableRules.GetPRECIO_COSTEValue: Currency;
begin
result := DataTable.Fields[idx_ArticulosParaCompraPRECIO_COSTE].AsCurrency;
end;
procedure TArticulosParaCompraDataTableRules.SetPRECIO_COSTEValue(const aValue: Currency);
begin
DataTable.Fields[idx_ArticulosParaCompraPRECIO_COSTE].AsCurrency := aValue;
end;
function TArticulosParaCompraDataTableRules.GetPRECIO_COSTEIsNull: boolean;
begin
result := DataTable.Fields[idx_ArticulosParaCompraPRECIO_COSTE].IsNull;
end;
procedure TArticulosParaCompraDataTableRules.SetPRECIO_COSTEIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ArticulosParaCompraPRECIO_COSTE].AsVariant := Null;
end;
function TArticulosParaCompraDataTableRules.GetPRECIO_PORTEValue: Currency;
begin
result := DataTable.Fields[idx_ArticulosParaCompraPRECIO_PORTE].AsCurrency;
end;
procedure TArticulosParaCompraDataTableRules.SetPRECIO_PORTEValue(const aValue: Currency);
begin
DataTable.Fields[idx_ArticulosParaCompraPRECIO_PORTE].AsCurrency := aValue;
end;
function TArticulosParaCompraDataTableRules.GetPRECIO_PORTEIsNull: boolean;
begin
result := DataTable.Fields[idx_ArticulosParaCompraPRECIO_PORTE].IsNull;
end;
procedure TArticulosParaCompraDataTableRules.SetPRECIO_PORTEIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ArticulosParaCompraPRECIO_PORTE].AsVariant := Null;
end;
function TArticulosParaCompraDataTableRules.GetDESCUENTOValue: Float;
begin
result := DataTable.Fields[idx_ArticulosParaCompraDESCUENTO].AsFloat;
end;
procedure TArticulosParaCompraDataTableRules.SetDESCUENTOValue(const aValue: Float);
begin
DataTable.Fields[idx_ArticulosParaCompraDESCUENTO].AsFloat := aValue;
end;
function TArticulosParaCompraDataTableRules.GetDESCUENTOIsNull: boolean;
begin
result := DataTable.Fields[idx_ArticulosParaCompraDESCUENTO].IsNull;
end;
procedure TArticulosParaCompraDataTableRules.SetDESCUENTOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ArticulosParaCompraDESCUENTO].AsVariant := Null;
end;
function TArticulosParaCompraDataTableRules.GetPRECIO_NETOValue: Currency;
begin
result := DataTable.Fields[idx_ArticulosParaCompraPRECIO_NETO].AsCurrency;
end;
procedure TArticulosParaCompraDataTableRules.SetPRECIO_NETOValue(const aValue: Currency);
begin
DataTable.Fields[idx_ArticulosParaCompraPRECIO_NETO].AsCurrency := aValue;
end;
function TArticulosParaCompraDataTableRules.GetPRECIO_NETOIsNull: boolean;
begin
result := DataTable.Fields[idx_ArticulosParaCompraPRECIO_NETO].IsNull;
end;
procedure TArticulosParaCompraDataTableRules.SetPRECIO_NETOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ArticulosParaCompraPRECIO_NETO].AsVariant := Null;
end;
function TArticulosParaCompraDataTableRules.GetPRECIO_PVPValue: Currency;
begin
result := DataTable.Fields[idx_ArticulosParaCompraPRECIO_PVP].AsCurrency;
end;
procedure TArticulosParaCompraDataTableRules.SetPRECIO_PVPValue(const aValue: Currency);
begin
DataTable.Fields[idx_ArticulosParaCompraPRECIO_PVP].AsCurrency := aValue;
end;
function TArticulosParaCompraDataTableRules.GetPRECIO_PVPIsNull: boolean;
begin
result := DataTable.Fields[idx_ArticulosParaCompraPRECIO_PVP].IsNull;
end;
procedure TArticulosParaCompraDataTableRules.SetPRECIO_PVPIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ArticulosParaCompraPRECIO_PVP].AsVariant := Null;
end;
function TArticulosParaCompraDataTableRules.GetINVENTARIABLEValue: SmallInt;
begin
result := DataTable.Fields[idx_ArticulosParaCompraINVENTARIABLE].AsSmallInt;
end;
procedure TArticulosParaCompraDataTableRules.SetINVENTARIABLEValue(const aValue: SmallInt);
begin
DataTable.Fields[idx_ArticulosParaCompraINVENTARIABLE].AsSmallInt := aValue;
end;
function TArticulosParaCompraDataTableRules.GetINVENTARIABLEIsNull: boolean;
begin
result := DataTable.Fields[idx_ArticulosParaCompraINVENTARIABLE].IsNull;
end;
procedure TArticulosParaCompraDataTableRules.SetINVENTARIABLEIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ArticulosParaCompraINVENTARIABLE].AsVariant := Null;
end;
function TArticulosParaCompraDataTableRules.GetID_PROVEEDORValue: Integer;
begin
result := DataTable.Fields[idx_ArticulosParaCompraID_PROVEEDOR].AsInteger;
end;
procedure TArticulosParaCompraDataTableRules.SetID_PROVEEDORValue(const aValue: Integer);
begin
DataTable.Fields[idx_ArticulosParaCompraID_PROVEEDOR].AsInteger := aValue;
end;
function TArticulosParaCompraDataTableRules.GetID_PROVEEDORIsNull: boolean;
begin
result := DataTable.Fields[idx_ArticulosParaCompraID_PROVEEDOR].IsNull;
end;
procedure TArticulosParaCompraDataTableRules.SetID_PROVEEDORIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ArticulosParaCompraID_PROVEEDOR].AsVariant := Null;
end;
function TArticulosParaCompraDataTableRules.GetNOMBRE_PROVEEDORValue: String;
begin
result := DataTable.Fields[idx_ArticulosParaCompraNOMBRE_PROVEEDOR].AsString;
end;
procedure TArticulosParaCompraDataTableRules.SetNOMBRE_PROVEEDORValue(const aValue: String);
begin
DataTable.Fields[idx_ArticulosParaCompraNOMBRE_PROVEEDOR].AsString := aValue;
end;
function TArticulosParaCompraDataTableRules.GetNOMBRE_PROVEEDORIsNull: boolean;
begin
result := DataTable.Fields[idx_ArticulosParaCompraNOMBRE_PROVEEDOR].IsNull;
end;
procedure TArticulosParaCompraDataTableRules.SetNOMBRE_PROVEEDORIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ArticulosParaCompraNOMBRE_PROVEEDOR].AsVariant := Null;
end;
function TArticulosParaCompraDataTableRules.GetELIMINADOValue: SmallInt;
begin
result := DataTable.Fields[idx_ArticulosParaCompraELIMINADO].AsSmallInt;
end;
procedure TArticulosParaCompraDataTableRules.SetELIMINADOValue(const aValue: SmallInt);
begin
DataTable.Fields[idx_ArticulosParaCompraELIMINADO].AsSmallInt := aValue;
end;
function TArticulosParaCompraDataTableRules.GetELIMINADOIsNull: boolean;
begin
result := DataTable.Fields[idx_ArticulosParaCompraELIMINADO].IsNull;
end;
procedure TArticulosParaCompraDataTableRules.SetELIMINADOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ArticulosParaCompraELIMINADO].AsVariant := Null;
end;
initialization
RegisterDataTableRules(RID_ExisteImagen, TExisteImagenDataTableRules);
RegisterDataTableRules(RID_Articulos, TArticulosDataTableRules);
RegisterDataTableRules(RID_ArticulosParaCliente, TArticulosParaClienteDataTableRules);
RegisterDataTableRules(RID_ArticulosParaCompra, TArticulosParaCompraDataTableRules);
end.

921
Source/Modulos/Articulos/Model/schArticulosServer_Intf.pas
View File

@ -9,14 +9,15 @@ const
{ Delta rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_ExisteImagenDelta = '{6AAD9495-D1DC-4BD5-8DE8-AFF266BC6501}';
RID_ArticulosDelta = '{D24AF9A2-3AED-4094-B870-1F3DBA7677F8}';
RID_ArticulosParaClienteDelta = '{2EAA9D80-3FE0-45F6-A1E2-A725762EE394}';
RID_ExisteImagenDelta = '{B5A896BC-5ED5-4B7B-9396-00A8DB188F84}';
RID_ArticulosDelta = '{1BECC0A2-1504-4295-854F-19BE88F4B763}';
RID_ArticulosParaClienteDelta = '{97D0F613-D68C-4EAE-A832-E936284A664D}';
RID_ArticulosParaCompraDelta = '{0500756A-6CF4-4EE5-8A82-C3409D6C69AC}';
type
{ IExisteImagenDelta }
IExisteImagenDelta = interface(IExisteImagen)
['{6AAD9495-D1DC-4BD5-8DE8-AFF266BC6501}']
['{B5A896BC-5ED5-4B7B-9396-00A8DB188F84}']
{ Property getters and setters }
function GetOldIDValue : Integer;
@ -50,7 +51,7 @@ type
{ IArticulosDelta }
IArticulosDelta = interface(IArticulos)
['{D24AF9A2-3AED-4094-B870-1F3DBA7677F8}']
['{1BECC0A2-1504-4295-854F-19BE88F4B763}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -313,7 +314,7 @@ type
{ IArticulosParaClienteDelta }
IArticulosParaClienteDelta = interface(IArticulosParaCliente)
['{2EAA9D80-3FE0-45F6-A1E2-A725762EE394}']
['{97D0F613-D68C-4EAE-A832-E936284A664D}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -574,6 +575,269 @@ type
end;
{ IArticulosParaCompraDelta }
IArticulosParaCompraDelta = interface(IArticulosParaCompra)
['{0500756A-6CF4-4EE5-8A82-C3409D6C69AC}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
function GetOldREFERENCIAValue : String;
function GetOldDESCRIPCIONValue : String;
function GetOldFAMILIAValue : String;
function GetOldIMAGENValue : IROStream;
function GetOldCOMISIONABLEValue : SmallInt;
function GetOldFECHA_ALTAValue : DateTime;
function GetOldFECHA_MODIFICACIONValue : DateTime;
function GetOldUSUARIOValue : String;
function GetOldREFERENCIA_PROVValue : String;
function GetOldPRECIO_COSTEValue : Currency;
function GetOldPRECIO_PORTEValue : Currency;
function GetOldDESCUENTOValue : Float;
function GetOldPRECIO_NETOValue : Currency;
function GetOldPRECIO_PVPValue : Currency;
function GetOldINVENTARIABLEValue : SmallInt;
function GetOldID_PROVEEDORValue : Integer;
function GetOldNOMBRE_PROVEEDORValue : String;
function GetOldELIMINADOValue : SmallInt;
{ Properties }
property OldID : Integer read GetOldIDValue;
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
property OldREFERENCIA : String read GetOldREFERENCIAValue;
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
property OldFAMILIA : String read GetOldFAMILIAValue;
property OldIMAGEN : IROStream read GetOldIMAGENValue;
property OldCOMISIONABLE : SmallInt read GetOldCOMISIONABLEValue;
property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
property OldUSUARIO : String read GetOldUSUARIOValue;
property OldREFERENCIA_PROV : String read GetOldREFERENCIA_PROVValue;
property OldPRECIO_COSTE : Currency read GetOldPRECIO_COSTEValue;
property OldPRECIO_PORTE : Currency read GetOldPRECIO_PORTEValue;
property OldDESCUENTO : Float read GetOldDESCUENTOValue;
property OldPRECIO_NETO : Currency read GetOldPRECIO_NETOValue;
property OldPRECIO_PVP : Currency read GetOldPRECIO_PVPValue;
property OldINVENTARIABLE : SmallInt read GetOldINVENTARIABLEValue;
property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue;
property OldNOMBRE_PROVEEDOR : String read GetOldNOMBRE_PROVEEDORValue;
property OldELIMINADO : SmallInt read GetOldELIMINADOValue;
end;
{ TArticulosParaCompraBusinessProcessorRules }
TArticulosParaCompraBusinessProcessorRules = class(TDABusinessProcessorRules, IArticulosParaCompra, IArticulosParaCompraDelta)
private
f_IMAGEN: IROStream;
procedure IMAGEN_OnChange(Sender: Tobject);
protected
{ Property getters and setters }
function GetIDValue: Integer; virtual;
function GetIDIsNull: Boolean; virtual;
function GetOldIDValue: Integer; virtual;
function GetOldIDIsNull: Boolean; virtual;
procedure SetIDValue(const aValue: Integer); virtual;
procedure SetIDIsNull(const aValue: Boolean); virtual;
function GetID_EMPRESAValue: Integer; virtual;
function GetID_EMPRESAIsNull: Boolean; virtual;
function GetOldID_EMPRESAValue: Integer; virtual;
function GetOldID_EMPRESAIsNull: Boolean; virtual;
procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual;
function GetREFERENCIAValue: String; virtual;
function GetREFERENCIAIsNull: Boolean; virtual;
function GetOldREFERENCIAValue: String; virtual;
function GetOldREFERENCIAIsNull: Boolean; virtual;
procedure SetREFERENCIAValue(const aValue: String); virtual;
procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual;
function GetDESCRIPCIONValue: String; virtual;
function GetDESCRIPCIONIsNull: Boolean; virtual;
function GetOldDESCRIPCIONValue: String; virtual;
function GetOldDESCRIPCIONIsNull: Boolean; virtual;
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
function GetFAMILIAValue: String; virtual;
function GetFAMILIAIsNull: Boolean; virtual;
function GetOldFAMILIAValue: String; virtual;
function GetOldFAMILIAIsNull: Boolean; virtual;
procedure SetFAMILIAValue(const aValue: String); virtual;
procedure SetFAMILIAIsNull(const aValue: Boolean); virtual;
function GetIMAGENValue: IROStream; virtual;
function GetIMAGENIsNull: Boolean; virtual;
function GetOldIMAGENValue: IROStream; virtual;
function GetOldIMAGENIsNull: Boolean; virtual;
procedure SetIMAGENIsNull(const aValue: Boolean); virtual;
function GetCOMISIONABLEValue: SmallInt; virtual;
function GetCOMISIONABLEIsNull: Boolean; virtual;
function GetOldCOMISIONABLEValue: SmallInt; virtual;
function GetOldCOMISIONABLEIsNull: Boolean; virtual;
procedure SetCOMISIONABLEValue(const aValue: SmallInt); virtual;
procedure SetCOMISIONABLEIsNull(const aValue: Boolean); virtual;
function GetFECHA_ALTAValue: DateTime; virtual;
function GetFECHA_ALTAIsNull: Boolean; virtual;
function GetOldFECHA_ALTAValue: DateTime; virtual;
function GetOldFECHA_ALTAIsNull: Boolean; virtual;
procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual;
procedure SetFECHA_ALTAIsNull(const aValue: Boolean); virtual;
function GetFECHA_MODIFICACIONValue: DateTime; virtual;
function GetFECHA_MODIFICACIONIsNull: Boolean; virtual;
function GetOldFECHA_MODIFICACIONValue: DateTime; virtual;
function GetOldFECHA_MODIFICACIONIsNull: Boolean; virtual;
procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual;
procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual;
function GetUSUARIOValue: String; virtual;
function GetUSUARIOIsNull: Boolean; virtual;
function GetOldUSUARIOValue: String; virtual;
function GetOldUSUARIOIsNull: Boolean; virtual;
procedure SetUSUARIOValue(const aValue: String); virtual;
procedure SetUSUARIOIsNull(const aValue: Boolean); virtual;
function GetREFERENCIA_PROVValue: String; virtual;
function GetREFERENCIA_PROVIsNull: Boolean; virtual;
function GetOldREFERENCIA_PROVValue: String; virtual;
function GetOldREFERENCIA_PROVIsNull: Boolean; virtual;
procedure SetREFERENCIA_PROVValue(const aValue: String); virtual;
procedure SetREFERENCIA_PROVIsNull(const aValue: Boolean); virtual;
function GetPRECIO_COSTEValue: Currency; virtual;
function GetPRECIO_COSTEIsNull: Boolean; virtual;
function GetOldPRECIO_COSTEValue: Currency; virtual;
function GetOldPRECIO_COSTEIsNull: Boolean; virtual;
procedure SetPRECIO_COSTEValue(const aValue: Currency); virtual;
procedure SetPRECIO_COSTEIsNull(const aValue: Boolean); virtual;
function GetPRECIO_PORTEValue: Currency; virtual;
function GetPRECIO_PORTEIsNull: Boolean; virtual;
function GetOldPRECIO_PORTEValue: Currency; virtual;
function GetOldPRECIO_PORTEIsNull: Boolean; virtual;
procedure SetPRECIO_PORTEValue(const aValue: Currency); virtual;
procedure SetPRECIO_PORTEIsNull(const aValue: Boolean); virtual;
function GetDESCUENTOValue: Float; virtual;
function GetDESCUENTOIsNull: Boolean; virtual;
function GetOldDESCUENTOValue: Float; virtual;
function GetOldDESCUENTOIsNull: Boolean; virtual;
procedure SetDESCUENTOValue(const aValue: Float); virtual;
procedure SetDESCUENTOIsNull(const aValue: Boolean); virtual;
function GetPRECIO_NETOValue: Currency; virtual;
function GetPRECIO_NETOIsNull: Boolean; virtual;
function GetOldPRECIO_NETOValue: Currency; virtual;
function GetOldPRECIO_NETOIsNull: Boolean; virtual;
procedure SetPRECIO_NETOValue(const aValue: Currency); virtual;
procedure SetPRECIO_NETOIsNull(const aValue: Boolean); virtual;
function GetPRECIO_PVPValue: Currency; virtual;
function GetPRECIO_PVPIsNull: Boolean; virtual;
function GetOldPRECIO_PVPValue: Currency; virtual;
function GetOldPRECIO_PVPIsNull: Boolean; virtual;
procedure SetPRECIO_PVPValue(const aValue: Currency); virtual;
procedure SetPRECIO_PVPIsNull(const aValue: Boolean); virtual;
function GetINVENTARIABLEValue: SmallInt; virtual;
function GetINVENTARIABLEIsNull: Boolean; virtual;
function GetOldINVENTARIABLEValue: SmallInt; virtual;
function GetOldINVENTARIABLEIsNull: Boolean; virtual;
procedure SetINVENTARIABLEValue(const aValue: SmallInt); virtual;
procedure SetINVENTARIABLEIsNull(const aValue: Boolean); virtual;
function GetID_PROVEEDORValue: Integer; virtual;
function GetID_PROVEEDORIsNull: Boolean; virtual;
function GetOldID_PROVEEDORValue: Integer; virtual;
function GetOldID_PROVEEDORIsNull: Boolean; virtual;
procedure SetID_PROVEEDORValue(const aValue: Integer); virtual;
procedure SetID_PROVEEDORIsNull(const aValue: Boolean); virtual;
function GetNOMBRE_PROVEEDORValue: String; virtual;
function GetNOMBRE_PROVEEDORIsNull: Boolean; virtual;
function GetOldNOMBRE_PROVEEDORValue: String; virtual;
function GetOldNOMBRE_PROVEEDORIsNull: Boolean; virtual;
procedure SetNOMBRE_PROVEEDORValue(const aValue: String); virtual;
procedure SetNOMBRE_PROVEEDORIsNull(const aValue: Boolean); virtual;
function GetELIMINADOValue: SmallInt; virtual;
function GetELIMINADOIsNull: Boolean; virtual;
function GetOldELIMINADOValue: SmallInt; virtual;
function GetOldELIMINADOIsNull: Boolean; virtual;
procedure SetELIMINADOValue(const aValue: SmallInt); virtual;
procedure SetELIMINADOIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull;
property OldID : Integer read GetOldIDValue;
property OldIDIsNull : Boolean read GetOldIDIsNull;
property ID_EMPRESA : Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
property ID_EMPRESAIsNull : Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
property OldID_EMPRESAIsNull : Boolean read GetOldID_EMPRESAIsNull;
property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue;
property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
property OldREFERENCIA : String read GetOldREFERENCIAValue;
property OldREFERENCIAIsNull : Boolean read GetOldREFERENCIAIsNull;
property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
property DESCRIPCIONIsNull : Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
property OldDESCRIPCIONIsNull : Boolean read GetOldDESCRIPCIONIsNull;
property FAMILIA : String read GetFAMILIAValue write SetFAMILIAValue;
property FAMILIAIsNull : Boolean read GetFAMILIAIsNull write SetFAMILIAIsNull;
property OldFAMILIA : String read GetOldFAMILIAValue;
property OldFAMILIAIsNull : Boolean read GetOldFAMILIAIsNull;
property IMAGEN : IROStream read GetIMAGENValue;
property IMAGENIsNull : Boolean read GetIMAGENIsNull write SetIMAGENIsNull;
property OldIMAGEN : IROStream read GetOldIMAGENValue;
property OldIMAGENIsNull : Boolean read GetOldIMAGENIsNull;
property COMISIONABLE : SmallInt read GetCOMISIONABLEValue write SetCOMISIONABLEValue;
property COMISIONABLEIsNull : Boolean read GetCOMISIONABLEIsNull write SetCOMISIONABLEIsNull;
property OldCOMISIONABLE : SmallInt read GetOldCOMISIONABLEValue;
property OldCOMISIONABLEIsNull : Boolean read GetOldCOMISIONABLEIsNull;
property FECHA_ALTA : DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
property FECHA_ALTAIsNull : Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
property OldFECHA_ALTAIsNull : Boolean read GetOldFECHA_ALTAIsNull;
property FECHA_MODIFICACION : DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
property FECHA_MODIFICACIONIsNull : Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull;
property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
property OldFECHA_MODIFICACIONIsNull : Boolean read GetOldFECHA_MODIFICACIONIsNull;
property USUARIO : String read GetUSUARIOValue write SetUSUARIOValue;
property USUARIOIsNull : Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
property OldUSUARIO : String read GetOldUSUARIOValue;
property OldUSUARIOIsNull : Boolean read GetOldUSUARIOIsNull;
property REFERENCIA_PROV : String read GetREFERENCIA_PROVValue write SetREFERENCIA_PROVValue;
property REFERENCIA_PROVIsNull : Boolean read GetREFERENCIA_PROVIsNull write SetREFERENCIA_PROVIsNull;
property OldREFERENCIA_PROV : String read GetOldREFERENCIA_PROVValue;
property OldREFERENCIA_PROVIsNull : Boolean read GetOldREFERENCIA_PROVIsNull;
property PRECIO_COSTE : Currency read GetPRECIO_COSTEValue write SetPRECIO_COSTEValue;
property PRECIO_COSTEIsNull : Boolean read GetPRECIO_COSTEIsNull write SetPRECIO_COSTEIsNull;
property OldPRECIO_COSTE : Currency read GetOldPRECIO_COSTEValue;
property OldPRECIO_COSTEIsNull : Boolean read GetOldPRECIO_COSTEIsNull;
property PRECIO_PORTE : Currency read GetPRECIO_PORTEValue write SetPRECIO_PORTEValue;
property PRECIO_PORTEIsNull : Boolean read GetPRECIO_PORTEIsNull write SetPRECIO_PORTEIsNull;
property OldPRECIO_PORTE : Currency read GetOldPRECIO_PORTEValue;
property OldPRECIO_PORTEIsNull : Boolean read GetOldPRECIO_PORTEIsNull;
property DESCUENTO : Float read GetDESCUENTOValue write SetDESCUENTOValue;
property DESCUENTOIsNull : Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
property OldDESCUENTO : Float read GetOldDESCUENTOValue;
property OldDESCUENTOIsNull : Boolean read GetOldDESCUENTOIsNull;
property PRECIO_NETO : Currency read GetPRECIO_NETOValue write SetPRECIO_NETOValue;
property PRECIO_NETOIsNull : Boolean read GetPRECIO_NETOIsNull write SetPRECIO_NETOIsNull;
property OldPRECIO_NETO : Currency read GetOldPRECIO_NETOValue;
property OldPRECIO_NETOIsNull : Boolean read GetOldPRECIO_NETOIsNull;
property PRECIO_PVP : Currency read GetPRECIO_PVPValue write SetPRECIO_PVPValue;
property PRECIO_PVPIsNull : Boolean read GetPRECIO_PVPIsNull write SetPRECIO_PVPIsNull;
property OldPRECIO_PVP : Currency read GetOldPRECIO_PVPValue;
property OldPRECIO_PVPIsNull : Boolean read GetOldPRECIO_PVPIsNull;
property INVENTARIABLE : SmallInt read GetINVENTARIABLEValue write SetINVENTARIABLEValue;
property INVENTARIABLEIsNull : Boolean read GetINVENTARIABLEIsNull write SetINVENTARIABLEIsNull;
property OldINVENTARIABLE : SmallInt read GetOldINVENTARIABLEValue;
property OldINVENTARIABLEIsNull : Boolean read GetOldINVENTARIABLEIsNull;
property ID_PROVEEDOR : Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue;
property ID_PROVEEDORIsNull : Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull;
property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue;
property OldID_PROVEEDORIsNull : Boolean read GetOldID_PROVEEDORIsNull;
property NOMBRE_PROVEEDOR : String read GetNOMBRE_PROVEEDORValue write SetNOMBRE_PROVEEDORValue;
property NOMBRE_PROVEEDORIsNull : Boolean read GetNOMBRE_PROVEEDORIsNull write SetNOMBRE_PROVEEDORIsNull;
property OldNOMBRE_PROVEEDOR : String read GetOldNOMBRE_PROVEEDORValue;
property OldNOMBRE_PROVEEDORIsNull : Boolean read GetOldNOMBRE_PROVEEDORIsNull;
property ELIMINADO : SmallInt read GetELIMINADOValue write SetELIMINADOValue;
property ELIMINADOIsNull : Boolean read GetELIMINADOIsNull write SetELIMINADOIsNull;
property OldELIMINADO : SmallInt read GetOldELIMINADOValue;
property OldELIMINADOIsNull : Boolean read GetOldELIMINADOIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
destructor Destroy; override;
end;
implementation
uses
@ -1910,9 +2174,654 @@ begin
end;
{ TArticulosParaCompraBusinessProcessorRules }
constructor TArticulosParaCompraBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
var
ROStream: TROStream;
begin
inherited;
ROStream := TROStream.Create;
ROStream.OnChange := IMAGEN_OnChange;
f_IMAGEN := ROStream;
end;
destructor TArticulosParaCompraBusinessProcessorRules.Destroy;
begin
inherited;
end;
procedure TArticulosParaCompraBusinessProcessorRules.IMAGEN_OnChange(Sender: TObject);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraIMAGEN] := BinaryToBlobVariant((TROStream(Sender) as IROStream).Stream);
end;
function TArticulosParaCompraBusinessProcessorRules.GetIDValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraID];
end;
function TArticulosParaCompraBusinessProcessorRules.GetIDIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraID]);
end;
function TArticulosParaCompraBusinessProcessorRules.GetOldIDValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraID];
end;
function TArticulosParaCompraBusinessProcessorRules.GetOldIDIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraID]);
end;
procedure TArticulosParaCompraBusinessProcessorRules.SetIDValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraID] := aValue;
end;
procedure TArticulosParaCompraBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraID] := Null;
end;
function TArticulosParaCompraBusinessProcessorRules.GetID_EMPRESAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraID_EMPRESA];
end;
function TArticulosParaCompraBusinessProcessorRules.GetID_EMPRESAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraID_EMPRESA]);
end;
function TArticulosParaCompraBusinessProcessorRules.GetOldID_EMPRESAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraID_EMPRESA];
end;
function TArticulosParaCompraBusinessProcessorRules.GetOldID_EMPRESAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraID_EMPRESA]);
end;
procedure TArticulosParaCompraBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraID_EMPRESA] := aValue;
end;
procedure TArticulosParaCompraBusinessProcessorRules.SetID_EMPRESAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraID_EMPRESA] := Null;
end;
function TArticulosParaCompraBusinessProcessorRules.GetREFERENCIAValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraREFERENCIA];
end;
function TArticulosParaCompraBusinessProcessorRules.GetREFERENCIAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraREFERENCIA]);
end;
function TArticulosParaCompraBusinessProcessorRules.GetOldREFERENCIAValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraREFERENCIA];
end;
function TArticulosParaCompraBusinessProcessorRules.GetOldREFERENCIAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraREFERENCIA]);
end;
procedure TArticulosParaCompraBusinessProcessorRules.SetREFERENCIAValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraREFERENCIA] := aValue;
end;
procedure TArticulosParaCompraBusinessProcessorRules.SetREFERENCIAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraREFERENCIA] := Null;
end;
function TArticulosParaCompraBusinessProcessorRules.GetDESCRIPCIONValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraDESCRIPCION];
end;
function TArticulosParaCompraBusinessProcessorRules.GetDESCRIPCIONIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraDESCRIPCION]);
end;
function TArticulosParaCompraBusinessProcessorRules.GetOldDESCRIPCIONValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraDESCRIPCION];
end;
function TArticulosParaCompraBusinessProcessorRules.GetOldDESCRIPCIONIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraDESCRIPCION]);
end;
procedure TArticulosParaCompraBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraDESCRIPCION] := aValue;
end;
procedure TArticulosParaCompraBusinessProcessorRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraDESCRIPCION] := Null;
end;
function TArticulosParaCompraBusinessProcessorRules.GetFAMILIAValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraFAMILIA];
end;
function TArticulosParaCompraBusinessProcessorRules.GetFAMILIAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraFAMILIA]);
end;
function TArticulosParaCompraBusinessProcessorRules.GetOldFAMILIAValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraFAMILIA];
end;
function TArticulosParaCompraBusinessProcessorRules.GetOldFAMILIAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraFAMILIA]);
end;
procedure TArticulosParaCompraBusinessProcessorRules.SetFAMILIAValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraFAMILIA] := aValue;
end;
procedure TArticulosParaCompraBusinessProcessorRules.SetFAMILIAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraFAMILIA] := Null;
end;
function TArticulosParaCompraBusinessProcessorRules.GetIMAGENValue: IROStream;
begin
result := f_IMAGEN;
result.Position := 0;
if not Result.InUpdateMode then begin
BlobVariantToBinary(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraIMAGEN], result.Stream);
result.Position := 0;
end;
end;
function TArticulosParaCompraBusinessProcessorRules.GetIMAGENIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraIMAGEN]);
end;
function TArticulosParaCompraBusinessProcessorRules.GetOldIMAGENValue: IROStream;
begin
result := NewROStream();
BlobVariantToBinary(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraIMAGEN], result.Stream);
end;
function TArticulosParaCompraBusinessProcessorRules.GetOldIMAGENIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraIMAGEN]);
end;
procedure TArticulosParaCompraBusinessProcessorRules.SetIMAGENIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraIMAGEN] := Null;
end;
function TArticulosParaCompraBusinessProcessorRules.GetCOMISIONABLEValue: SmallInt;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraCOMISIONABLE];
end;
function TArticulosParaCompraBusinessProcessorRules.GetCOMISIONABLEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraCOMISIONABLE]);
end;
function TArticulosParaCompraBusinessProcessorRules.GetOldCOMISIONABLEValue: SmallInt;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraCOMISIONABLE];
end;
function TArticulosParaCompraBusinessProcessorRules.GetOldCOMISIONABLEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraCOMISIONABLE]);
end;
procedure TArticulosParaCompraBusinessProcessorRules.SetCOMISIONABLEValue(const aValue: SmallInt);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraCOMISIONABLE] := aValue;
end;
procedure TArticulosParaCompraBusinessProcessorRules.SetCOMISIONABLEIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraCOMISIONABLE] := Null;
end;
function TArticulosParaCompraBusinessProcessorRules.GetFECHA_ALTAValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraFECHA_ALTA];
end;
function TArticulosParaCompraBusinessProcessorRules.GetFECHA_ALTAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraFECHA_ALTA]);
end;
function TArticulosParaCompraBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraFECHA_ALTA];
end;
function TArticulosParaCompraBusinessProcessorRules.GetOldFECHA_ALTAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraFECHA_ALTA]);
end;
procedure TArticulosParaCompraBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraFECHA_ALTA] := aValue;
end;
procedure TArticulosParaCompraBusinessProcessorRules.SetFECHA_ALTAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraFECHA_ALTA] := Null;
end;
function TArticulosParaCompraBusinessProcessorRules.GetFECHA_MODIFICACIONValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraFECHA_MODIFICACION];
end;
function TArticulosParaCompraBusinessProcessorRules.GetFECHA_MODIFICACIONIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraFECHA_MODIFICACION]);
end;
function TArticulosParaCompraBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraFECHA_MODIFICACION];
end;
function TArticulosParaCompraBusinessProcessorRules.GetOldFECHA_MODIFICACIONIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraFECHA_MODIFICACION]);
end;
procedure TArticulosParaCompraBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraFECHA_MODIFICACION] := aValue;
end;
procedure TArticulosParaCompraBusinessProcessorRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraFECHA_MODIFICACION] := Null;
end;
function TArticulosParaCompraBusinessProcessorRules.GetUSUARIOValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraUSUARIO];
end;
function TArticulosParaCompraBusinessProcessorRules.GetUSUARIOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraUSUARIO]);
end;
function TArticulosParaCompraBusinessProcessorRules.GetOldUSUARIOValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraUSUARIO];
end;
function TArticulosParaCompraBusinessProcessorRules.GetOldUSUARIOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraUSUARIO]);
end;
procedure TArticulosParaCompraBusinessProcessorRules.SetUSUARIOValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraUSUARIO] := aValue;
end;
procedure TArticulosParaCompraBusinessProcessorRules.SetUSUARIOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraUSUARIO] := Null;
end;
function TArticulosParaCompraBusinessProcessorRules.GetREFERENCIA_PROVValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraREFERENCIA_PROV];
end;
function TArticulosParaCompraBusinessProcessorRules.GetREFERENCIA_PROVIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraREFERENCIA_PROV]);
end;
function TArticulosParaCompraBusinessProcessorRules.GetOldREFERENCIA_PROVValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraREFERENCIA_PROV];
end;
function TArticulosParaCompraBusinessProcessorRules.GetOldREFERENCIA_PROVIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraREFERENCIA_PROV]);
end;
procedure TArticulosParaCompraBusinessProcessorRules.SetREFERENCIA_PROVValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraREFERENCIA_PROV] := aValue;
end;
procedure TArticulosParaCompraBusinessProcessorRules.SetREFERENCIA_PROVIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraREFERENCIA_PROV] := Null;
end;
function TArticulosParaCompraBusinessProcessorRules.GetPRECIO_COSTEValue: Currency;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraPRECIO_COSTE];
end;
function TArticulosParaCompraBusinessProcessorRules.GetPRECIO_COSTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraPRECIO_COSTE]);
end;
function TArticulosParaCompraBusinessProcessorRules.GetOldPRECIO_COSTEValue: Currency;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraPRECIO_COSTE];
end;
function TArticulosParaCompraBusinessProcessorRules.GetOldPRECIO_COSTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraPRECIO_COSTE]);
end;
procedure TArticulosParaCompraBusinessProcessorRules.SetPRECIO_COSTEValue(const aValue: Currency);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraPRECIO_COSTE] := aValue;
end;
procedure TArticulosParaCompraBusinessProcessorRules.SetPRECIO_COSTEIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraPRECIO_COSTE] := Null;
end;
function TArticulosParaCompraBusinessProcessorRules.GetPRECIO_PORTEValue: Currency;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraPRECIO_PORTE];
end;
function TArticulosParaCompraBusinessProcessorRules.GetPRECIO_PORTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraPRECIO_PORTE]);
end;
function TArticulosParaCompraBusinessProcessorRules.GetOldPRECIO_PORTEValue: Currency;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraPRECIO_PORTE];
end;
function TArticulosParaCompraBusinessProcessorRules.GetOldPRECIO_PORTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraPRECIO_PORTE]);
end;
procedure TArticulosParaCompraBusinessProcessorRules.SetPRECIO_PORTEValue(const aValue: Currency);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraPRECIO_PORTE] := aValue;
end;
procedure TArticulosParaCompraBusinessProcessorRules.SetPRECIO_PORTEIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraPRECIO_PORTE] := Null;
end;
function TArticulosParaCompraBusinessProcessorRules.GetDESCUENTOValue: Float;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraDESCUENTO];
end;
function TArticulosParaCompraBusinessProcessorRules.GetDESCUENTOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraDESCUENTO]);
end;
function TArticulosParaCompraBusinessProcessorRules.GetOldDESCUENTOValue: Float;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraDESCUENTO];
end;
function TArticulosParaCompraBusinessProcessorRules.GetOldDESCUENTOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraDESCUENTO]);
end;
procedure TArticulosParaCompraBusinessProcessorRules.SetDESCUENTOValue(const aValue: Float);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraDESCUENTO] := aValue;
end;
procedure TArticulosParaCompraBusinessProcessorRules.SetDESCUENTOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraDESCUENTO] := Null;
end;
function TArticulosParaCompraBusinessProcessorRules.GetPRECIO_NETOValue: Currency;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraPRECIO_NETO];
end;
function TArticulosParaCompraBusinessProcessorRules.GetPRECIO_NETOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraPRECIO_NETO]);
end;
function TArticulosParaCompraBusinessProcessorRules.GetOldPRECIO_NETOValue: Currency;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraPRECIO_NETO];
end;
function TArticulosParaCompraBusinessProcessorRules.GetOldPRECIO_NETOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraPRECIO_NETO]);
end;
procedure TArticulosParaCompraBusinessProcessorRules.SetPRECIO_NETOValue(const aValue: Currency);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraPRECIO_NETO] := aValue;
end;
procedure TArticulosParaCompraBusinessProcessorRules.SetPRECIO_NETOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraPRECIO_NETO] := Null;
end;
function TArticulosParaCompraBusinessProcessorRules.GetPRECIO_PVPValue: Currency;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraPRECIO_PVP];
end;
function TArticulosParaCompraBusinessProcessorRules.GetPRECIO_PVPIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraPRECIO_PVP]);
end;
function TArticulosParaCompraBusinessProcessorRules.GetOldPRECIO_PVPValue: Currency;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraPRECIO_PVP];
end;
function TArticulosParaCompraBusinessProcessorRules.GetOldPRECIO_PVPIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraPRECIO_PVP]);
end;
procedure TArticulosParaCompraBusinessProcessorRules.SetPRECIO_PVPValue(const aValue: Currency);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraPRECIO_PVP] := aValue;
end;
procedure TArticulosParaCompraBusinessProcessorRules.SetPRECIO_PVPIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraPRECIO_PVP] := Null;
end;
function TArticulosParaCompraBusinessProcessorRules.GetINVENTARIABLEValue: SmallInt;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraINVENTARIABLE];
end;
function TArticulosParaCompraBusinessProcessorRules.GetINVENTARIABLEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraINVENTARIABLE]);
end;
function TArticulosParaCompraBusinessProcessorRules.GetOldINVENTARIABLEValue: SmallInt;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraINVENTARIABLE];
end;
function TArticulosParaCompraBusinessProcessorRules.GetOldINVENTARIABLEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraINVENTARIABLE]);
end;
procedure TArticulosParaCompraBusinessProcessorRules.SetINVENTARIABLEValue(const aValue: SmallInt);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraINVENTARIABLE] := aValue;
end;
procedure TArticulosParaCompraBusinessProcessorRules.SetINVENTARIABLEIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraINVENTARIABLE] := Null;
end;
function TArticulosParaCompraBusinessProcessorRules.GetID_PROVEEDORValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraID_PROVEEDOR];
end;
function TArticulosParaCompraBusinessProcessorRules.GetID_PROVEEDORIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraID_PROVEEDOR]);
end;
function TArticulosParaCompraBusinessProcessorRules.GetOldID_PROVEEDORValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraID_PROVEEDOR];
end;
function TArticulosParaCompraBusinessProcessorRules.GetOldID_PROVEEDORIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraID_PROVEEDOR]);
end;
procedure TArticulosParaCompraBusinessProcessorRules.SetID_PROVEEDORValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraID_PROVEEDOR] := aValue;
end;
procedure TArticulosParaCompraBusinessProcessorRules.SetID_PROVEEDORIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraID_PROVEEDOR] := Null;
end;
function TArticulosParaCompraBusinessProcessorRules.GetNOMBRE_PROVEEDORValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraNOMBRE_PROVEEDOR];
end;
function TArticulosParaCompraBusinessProcessorRules.GetNOMBRE_PROVEEDORIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraNOMBRE_PROVEEDOR]);
end;
function TArticulosParaCompraBusinessProcessorRules.GetOldNOMBRE_PROVEEDORValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraNOMBRE_PROVEEDOR];
end;
function TArticulosParaCompraBusinessProcessorRules.GetOldNOMBRE_PROVEEDORIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraNOMBRE_PROVEEDOR]);
end;
procedure TArticulosParaCompraBusinessProcessorRules.SetNOMBRE_PROVEEDORValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraNOMBRE_PROVEEDOR] := aValue;
end;
procedure TArticulosParaCompraBusinessProcessorRules.SetNOMBRE_PROVEEDORIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraNOMBRE_PROVEEDOR] := Null;
end;
function TArticulosParaCompraBusinessProcessorRules.GetELIMINADOValue: SmallInt;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraELIMINADO];
end;
function TArticulosParaCompraBusinessProcessorRules.GetELIMINADOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraELIMINADO]);
end;
function TArticulosParaCompraBusinessProcessorRules.GetOldELIMINADOValue: SmallInt;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraELIMINADO];
end;
function TArticulosParaCompraBusinessProcessorRules.GetOldELIMINADOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraELIMINADO]);
end;
procedure TArticulosParaCompraBusinessProcessorRules.SetELIMINADOValue(const aValue: SmallInt);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraELIMINADO] := aValue;
end;
procedure TArticulosParaCompraBusinessProcessorRules.SetELIMINADOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraELIMINADO] := Null;
end;
initialization
RegisterBusinessProcessorRules(RID_ExisteImagenDelta, TExisteImagenBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_ArticulosDelta, TArticulosBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_ArticulosParaClienteDelta, TArticulosParaClienteBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_ArticulosParaCompraDelta, TArticulosParaCompraBusinessProcessorRules);
end.

1
Source/Modulos/Articulos/Model/uBizArticulos.pas
View File

@ -89,6 +89,7 @@ begin
PRECIO_PORTE := 0;
PRECIO_COSTE := 0;
DESCUENTO := 0;
PRECIO_PVP := 0;
PRECIO_NETO := 0;
COMISIONABLE := 1;
ELIMINADO := 0;

194
Source/Modulos/Articulos/Servidor/srvArticulos_Impl.dfm
View File

@ -548,6 +548,200 @@ object srvArticulos: TsrvArticulos
DataType = datSmallInt
DisplayLabel = 'Eliminado'
end>
end
item
Params = <>
Statements = <
item
Connection = 'IBX'
TargetTable = 'V_ARTICULOS'
SQL =
'SELECT V_ARTICULOS.ID, V_ARTICULOS.ID_EMPRESA, V_ARTICULOS.REFER' +
'ENCIA, V_ARTICULOS.DESCRIPCION,'#10' V_ARTICULOS.FAMILIA, V_AR' +
'TICULOS.IMAGEN, V_ARTICULOS.COMISIONABLE, V_ARTICULOS.FECHA_ALTA' +
','#10' V_ARTICULOS.FECHA_MODIFICACION, V_ARTICULOS.USUARIO,'#10' ' +
' V_ARTICULOS.REFERENCIA_PROV,'#10' V_ARTICULOS.PRECIO_COST' +
'E,'#10' V_ARTICULOS.PRECIO_PORTE,'#10' PROVEEDORES_DATOS.DES' +
'CUENTO,'#10' V_ARTICULOS.PRECIO_NETO,'#10' V_ARTICULOS.PRECI' +
'O_PVP,'#10' V_ARTICULOS.INVENTARIABLE,'#10' V_ARTICULOS.ID_P' +
'ROVEEDOR,'#10' V_ARTICULOS.NOMBRE_PROVEEDOR as NOMBRE_PROVEEDO' +
'R,'#10' V_ARTICULOS.ELIMINADO'#10'FROM V_ARTICULOS'#10'LEFT JOIN PROVE' +
'EDORES_DATOS'#10'ON (PROVEEDORES_DATOS.ID_PROVEEDOR = V_ARTICULOS.ID' +
'_PROVEEDOR)'#10'where {where}'#10
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'ID'
TableField = 'ID'
end
item
DatasetField = 'ID_EMPRESA'
TableField = 'ID_EMPRESA'
end
item
DatasetField = 'REFERENCIA'
TableField = 'REFERENCIA'
end
item
DatasetField = 'DESCRIPCION'
TableField = 'DESCRIPCION'
end
item
DatasetField = 'FAMILIA'
TableField = 'FAMILIA'
end
item
DatasetField = 'IMAGEN'
TableField = 'IMAGEN'
end
item
DatasetField = 'COMISIONABLE'
TableField = 'COMISIONABLE'
end
item
DatasetField = 'FECHA_ALTA'
TableField = 'FECHA_ALTA'
end
item
DatasetField = 'FECHA_MODIFICACION'
TableField = 'FECHA_MODIFICACION'
end
item
DatasetField = 'USUARIO'
TableField = 'USUARIO'
end
item
DatasetField = 'REFERENCIA_PROV'
TableField = 'REFERENCIA_PROV'
end
item
DatasetField = 'PRECIO_COSTE'
TableField = 'PRECIO_COSTE'
end
item
DatasetField = 'PRECIO_PORTE'
TableField = 'PRECIO_PORTE'
end
item
DatasetField = 'DESCUENTO'
TableField = 'DESCUENTO'
end
item
DatasetField = 'PRECIO_NETO'
TableField = 'PRECIO_NETO'
end
item
DatasetField = 'INVENTARIABLE'
TableField = 'INVENTARIABLE'
end
item
DatasetField = 'ID_PROVEEDOR'
TableField = 'ID_PROVEEDOR'
end
item
DatasetField = 'NOMBRE_PROVEEDOR'
TableField = 'NOMBRE_PROVEEDOR'
end
item
DatasetField = 'ELIMINADO'
TableField = 'ELIMINADO'
end
item
DatasetField = 'PRECIO_PVP'
TableField = 'PRECIO_PVP'
end>
end>
Name = 'ArticulosParaCompra'
Fields = <
item
Name = 'ID'
DataType = datInteger
InPrimaryKey = True
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
end
item
Name = 'DESCRIPCION'
DataType = datString
Size = 255
end
item
Name = 'FAMILIA'
DataType = datString
Size = 255
end
item
Name = 'IMAGEN'
DataType = datBlob
LogChanges = False
end
item
Name = 'COMISIONABLE'
DataType = datSmallInt
end
item
Name = 'FECHA_ALTA'
DataType = datDateTime
end
item
Name = 'FECHA_MODIFICACION'
DataType = datDateTime
end
item
Name = 'USUARIO'
DataType = datString
Size = 30
end
item
Name = 'REFERENCIA_PROV'
DataType = datString
Size = 255
end
item
Name = 'PRECIO_COSTE'
DataType = datCurrency
end
item
Name = 'PRECIO_PORTE'
DataType = datCurrency
end
item
Name = 'DESCUENTO'
DataType = datFloat
end
item
Name = 'PRECIO_NETO'
DataType = datCurrency
end
item
Name = 'PRECIO_PVP'
DataType = datCurrency
end
item
Name = 'INVENTARIABLE'
DataType = datSmallInt
end
item
Name = 'ID_PROVEEDOR'
DataType = datInteger
end
item
Name = 'NOMBRE_PROVEEDOR'
DataType = datString
Size = 255
end
item
Name = 'ELIMINADO'
DataType = datSmallInt
DisplayLabel = 'Eliminado'
end>
end>
JoinDataTables = <>
UnionDataTables = <>

10
Source/Modulos/Articulos/Views/Articulos_view.dproj
View File

@ -55,11 +55,11 @@
<DelphiCompile Include="Articulos_view.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\..\..\Servidor\Articulos_controller.dcp" />
<DCCReference Include="..\..\..\Servidor\Articulos_model.dcp" />
<DCCReference Include="..\..\..\Servidor\Contactos_view.dcp" />
<DCCReference Include="..\..\..\Servidor\Familias_controller.dcp" />
<DCCReference Include="..\..\..\Servidor\GUIBase.dcp" />
<DCCReference Include="..\..\Inventario\Articulos_controller.dcp" />
<DCCReference Include="..\..\Inventario\Articulos_model.dcp" />
<DCCReference Include="..\..\Inventario\Contactos_view.dcp" />
<DCCReference Include="..\..\Inventario\Familias_controller.dcp" />
<DCCReference Include="..\..\Inventario\GUIBase.dcp" />
<DCCReference Include="uArticulosViewRegister.pas" />
<DCCReference Include="uEditorArticulo.pas">
<Form>fEditorArticulo</Form>

4
Source/Modulos/Articulos/Views/uEditorArticulo.dfm
View File

@ -120,6 +120,10 @@ inherited fEditorArticulo: TfEditorArticulo
inherited PnlComentario: TPanel
Width = 624
ExplicitWidth = 624
inherited lbComentario: TLabel
Width = 614
Height = 25
end
end
inherited EditorActionList: TActionList
Top = 128

2
Source/Modulos/Articulos/Views/uEditorArticulo.pas
View File

@ -210,7 +210,7 @@ end;
procedure TfEditorArticulo.EliminarInterno;
begin
if (Application.MessageBox('¿Desea borrar este articulo?', 'Atención', MB_YESNO) = IDYES) then
if (Application.MessageBox('¿Desea borrar este artículo?, si hay unidades de este articulo en el almacén serán borradas.', 'Atención', MB_YESNO) = IDYES) then
begin
inherited;
if not FController.Eliminar(FArticulo) then

2
Source/Modulos/Articulos/Views/uEditorArticulos.pas
View File

@ -153,7 +153,7 @@ end;
procedure TfEditorArticulos.EliminarInterno;
begin
if (Application.MessageBox('¿Desea borrar este artículo?', 'Atención', MB_YESNO) = IDYES) then
if (Application.MessageBox('¿Desea borrar este artículo?, si hay unidades de este articulo en el almacén serán borradas.', 'Atención', MB_YESNO) = IDYES) then
begin
inherited;
//Para que en el caso de no poderse realizar la operación se refresquen

43
Source/Modulos/Articulos/Views/uEditorElegirArticulos.dfm
View File

@ -20,24 +20,21 @@ inherited fEditorElegirArticulos: TfEditorElegirArticulos
inherited TBXDock: TTBXDock
Top = 91
Width = 656
Height = 60
Height = 49
ExplicitTop = 91
ExplicitWidth = 656
ExplicitHeight = 60
ExplicitHeight = 49
inherited tbxMain: TTBXToolbar
Align = alLeft
DockPos = -6
ExplicitWidth = 336
ExplicitHeight = 31
inherited TBXItem2: TTBXItem
Visible = False
end
inherited TBXItem5: TTBXItem
Visible = False
end
ExplicitWidth = 266
inherited TBXItem4: TTBXItem
Visible = False
end
inherited TBXItem382: TTBXItem
Enabled = False
Visible = False
end
inherited TBXItem6: TTBXItem
Visible = False
end
@ -46,13 +43,13 @@ inherited fEditorElegirArticulos: TfEditorElegirArticulos
end
end
inherited tbxFiltro: TTBXToolbar
Left = 336
Top = 29
Left = 266
Top = 23
Align = alLeft
DockPos = 101
DockRow = 1
ExplicitLeft = 336
ExplicitTop = 29
ExplicitLeft = 266
ExplicitTop = 23
inherited TBXItem34: TTBXItem
Action = actQuitarFiltro2
end
@ -61,12 +58,12 @@ inherited fEditorElegirArticulos: TfEditorElegirArticulos
ExplicitWidth = 656
end
inherited TBXTMain2: TTBXToolbar
Left = 620
Top = 29
Left = 536
Top = 23
DockPos = 536
DockRow = 1
ExplicitLeft = 620
ExplicitTop = 29
ExplicitLeft = 536
ExplicitTop = 23
end
end
inherited StatusBar: TJvStatusBar
@ -128,12 +125,11 @@ inherited fEditorElegirArticulos: TfEditorElegirArticulos
Padding.Bottom = 8
ParentBackground = False
TabOrder = 4
ExplicitTop = -37
object lblTitle: TLabel
AlignWithMargins = True
Left = 25
Top = 8
Width = 131
Width = 606
Height = 13
Margins.Left = 0
Margins.Top = 0
@ -147,17 +143,20 @@ inherited fEditorElegirArticulos: TfEditorElegirArticulos
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
ExplicitWidth = 131
end
object lblComments: TLabel
AlignWithMargins = True
Left = 50
Top = 29
Width = 3
Height = 13
Width = 581
Height = 27
Margins.Left = 25
Margins.Top = 0
Margins.Right = 0
Align = alClient
ExplicitWidth = 3
ExplicitHeight = 13
end
end
inherited EditorActionList: TActionList [5]

2
Source/Modulos/Articulos/Views/uEditorElegirArticulos.pas
View File

@ -67,7 +67,7 @@ end;
procedure TfEditorElegirArticulos.FormShow(Sender: TObject);
begin
inherited;
EditorActionList.State := asSuspended;
// EditorActionList.State := asSuspended;
end;
procedure TfEditorElegirArticulos.frViewBarraSeleccion1actCancelarExecute(

5
Source/Modulos/Articulos/Views/uViewArticulo.dfm
View File

@ -461,7 +461,6 @@ inherited frViewArticulo: TfrViewArticulo
Caption = 'Datos del proveedor para el art'#237'culo'
object dxLayoutControlArticuloItem15: TdxLayoutItem
Caption = 'Ref. del prov:'
Visible = False
Control = eReferenciaProv
ControlOptions.ShowBorder = False
end
@ -471,8 +470,7 @@ inherited frViewArticulo: TfrViewArticulo
ControlOptions.ShowBorder = False
end
object dxLayoutControlArticuloItem17: TdxLayoutItem
Caption = 'Dto (%):'
Visible = False
Caption = 'Margen (%):'
Control = eDescuento
ControlOptions.ShowBorder = False
end
@ -498,7 +496,6 @@ inherited frViewArticulo: TfrViewArticulo
AutoAligns = [aaVertical]
AlignHorz = ahRight
Caption = 'Proveedor para el art'#237'culo'
Visible = False
object dxLayoutControlArticuloItem14: TdxLayoutItem
Control = frViewDatosYSeleccionProveedor1
ControlOptions.AutoColor = True

108
Source/Modulos/Articulos/Views/uViewArticulo.pas
View File

@ -81,9 +81,15 @@ type
procedure cbFamiliaPropertiesValidate(Sender: TObject;
var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
procedure CustomViewShow(Sender: TObject);
procedure PrecioNetoChanged(Sender: TObject);
procedure PrecioCosteChanged(Sender: TObject);
procedure DescuentoChanged(Sender: TObject);
procedure PrecioPVPChanged(Sender: TObject);
private
procedure CargarImagen;
procedure DesactivarEventos;
procedure ActivarEventos;
protected
FFamiliasController: IFamiliasController;
@ -144,6 +150,13 @@ begin
FImagenModificada := True;
end;
procedure TfrViewArticulo.ActivarEventos;
begin
ePrecioCoste.Properties.OnEditValueChanged := PrecioCosteChanged;
eDescuento.Properties.OnEditValueChanged := DescuentoChanged;
ePrecioPVP.Properties.OnEditValueChanged := PrecioPVPChanged;
end;
procedure TfrViewArticulo.CargarImagen;
var
aAux : String;
@ -227,8 +240,41 @@ end;
procedure TfrViewArticulo.CustomViewShow(Sender: TObject);
begin
inherited;
ePrecioCoste.Properties.OnEditValueChanged := PrecioNetoChanged;
eDescuento.Properties.OnEditValueChanged := PrecioNetoChanged;
ActivarEventos;
end;
procedure TfrViewArticulo.DesactivarEventos;
begin
// eProveedor.Properties.OnEditValueChanged := OnProveedorChange;
ePrecioCoste.Properties.OnEditValueChanged := PrecioCosteChanged;
eDescuento.Properties.OnEditValueChanged := DescuentoChanged;
ePrecioPVP.Properties.OnEditValueChanged := PrecioPVPChanged;
end;
procedure TfrViewArticulo.DescuentoChanged(Sender: TObject);
var
APrecioCoste: Double;
AAumento: Double;
begin
APrecioCoste := 0;
AAumento := 0;
if eDescuento.EditModified then
begin
if not varIsNull(ePrecioCoste.DataBinding.Field.AsFloat) then
APrecioCoste := ePrecioCoste.DataBinding.Field.AsFloat;
if not varIsNull(eDescuento.DataBinding.Field.AsFloat) then
AAumento := ((100 - eDescuento.DataBinding.Field.AsFloat)/100);
DesactivarEventos;
try
ePrecioPVP.DataBinding.DataSource.Edit;
ePrecioPVP.DataBinding.Field.AsFloat := APrecioCoste/AAumento;
finally
ActivarEventos;
end;
end;
end;
function TfrViewArticulo.GetArticulo: IBizArticulo;
@ -259,10 +305,64 @@ begin
end;
end;
procedure TfrViewArticulo.PrecioNetoChanged(Sender: TObject);
procedure TfrViewArticulo.PrecioCosteChanged(Sender: TObject);
var
APrecioCoste: Double;
AAumento: Double;
begin
APrecioCoste := 0;
AAumento := 0;
if ePrecioCoste.EditModified then
begin
if not varIsNull(ePrecioCoste.DataBinding.Field.AsFloat) then
APrecioCoste := ePrecioCoste.DataBinding.Field.AsFloat;
if not varIsNull(eDescuento.DataBinding.Field.AsFloat) then
AAumento := ((100 - eDescuento.DataBinding.Field.AsFloat)/100);
DesactivarEventos;
try
ePrecioPVP.DataBinding.DataSource.Edit;
ePrecioPVP.DataBinding.Field.AsFloat := APrecioCoste/AAumento;
finally
ActivarEventos;
end;
end;
end;
procedure TfrViewArticulo.PrecioPVPChanged(Sender: TObject);
var
APrecioCoste: Double;
APrecioPVP: Double;
AAumento : Double;
begin
APrecioCoste := 0;
APrecioPVP := 0;
AAumento := 0;
if ePrecioPVP.EditModified then
begin
if not varIsNull(ePrecioPVP.EditValue) then
APrecioPVP := ePrecioPVP.EditValue;
if not varIsNull(eDescuento.DataBinding.Field.AsFloat) then
AAumento := (100 - eDescuento.DataBinding.Field.AsFloat);
DesactivarEventos;
try
ePrecioCoste.DataBinding.DataSource.Edit;
ePrecioCoste.DataBinding.Field.AsFloat := ((APrecioPVP*AAumento) / 100);
finally
ActivarEventos;
end;
end;
{/*
if Assigned(FController) then
FController.CalcularPrecioNeto(FArticulo);
}
end;
procedure TfrViewArticulo.SetArticulo(const Value: IBizArticulo);

30
Source/Modulos/Articulos/Views/uViewArticulos.dfm
View File

@ -1,6 +1,5 @@
inherited frViewArticulos: TfrViewArticulos
inherited cxGrid: TcxGrid
ParentFont = True
inherited cxGridView: TcxGridDBTableView
OnMouseMove = cxGridViewMouseMove
DataController.KeyFieldNames = 'ID'
@ -94,17 +93,13 @@ inherited frViewArticulos: TfrViewArticulos
object cxGridViewNOMBRE_PROVEEDOR: TcxGridDBColumn
Caption = 'Proveedor'
DataBinding.FieldName = 'NOMBRE_PROVEEDOR'
Visible = False
BestFitMaxWidth = 120
VisibleForCustomization = False
Width = 120
end
object cxGridViewREFERENCIA_PROV: TcxGridDBColumn
Caption = 'Ref. proveedor'
DataBinding.FieldName = 'REFERENCIA_PROV'
Visible = False
BestFitMaxWidth = 60
VisibleForCustomization = False
Width = 60
end
object cxGridViewPRECIO_COSTE: TcxGridDBColumn
@ -157,9 +152,32 @@ inherited frViewArticulos: TfrViewArticulos
end
end
end
inherited frViewFiltroBase1: TfrViewFiltroBase
inherited TBXDockablePanel1: TTBXDockablePanel
inherited dxLayoutControl1: TdxLayoutControl
inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
end
inherited edtFechaIniFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
end
inherited edtFechaFinFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
end
end
end
end
inherited pnlAgrupaciones: TTBXDockablePanel
Visible = True
ExplicitWidth = 554
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
inherited TBXToolbar1: TTBXToolbar
object TBXSeparatorItem1: TTBXSeparatorItem

15
Source/Modulos/Articulos/Views/uViewDetallesArticulos.dfm
View File

@ -88,9 +88,6 @@ inherited frViewDetallesArticulos: TfrViewDetallesArticulos
VisibleForCustomization = False
Width = 66
end
inherited cxGridViewDESCRIPCION: TcxGridDBColumn
Width = 480
end
inherited cxGridViewCANTIDAD: TcxGridDBColumn
Properties.Alignment.Vert = taBottomJustify
Width = 48
@ -99,19 +96,19 @@ inherited frViewDetallesArticulos: TfrViewDetallesArticulos
Properties.Alignment.Vert = taBottomJustify
Width = 68
end
inherited cxGridViewIMPORTENETO: TcxGridDBColumn
Properties.Alignment.Vert = taBottomJustify
Visible = True
Width = 56
end
inherited cxGridViewDESCUENTO: TcxGridDBColumn
Properties.Alignment.Horz = taRightJustify
Properties.Alignment.Vert = taBottomJustify
HeaderAlignmentHorz = taRightJustify
Width = 29
end
inherited cxGridViewIMPORTENETO: TcxGridDBColumn
Properties.Alignment.Vert = taBottomJustify
Width = 56
end
inherited cxGridViewIMPORTEPORTE: TcxGridDBColumn
Caption = 'Porte unidad'
Visible = False
VisibleForCustomization = False
Width = 78
end
inherited cxGridViewIMPORTETOTAL: TcxGridDBColumn

2
Source/Modulos/Articulos/Views/uViewDetallesArticulos.pas
View File

@ -11,7 +11,7 @@ uses
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses,
cxControls, cxGridCustomView, cxGrid, ComCtrls, StdCtrls, JvExStdCtrls,
JvCombobox, JvColorCombo, ToolWin, uControllerDetallesArticulos,
cxTextEdit, uDAInterfaces;
cxTextEdit, uDAInterfaces, cxMemo;
type
IViewDetallesArticulos = interface(IViewDetallesDTO)

68
Source/Modulos/Contactos/Views/Contactos_view.dproj
View File

@ -47,40 +47,40 @@
<DelphiCompile Include="Contactos_view.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBase.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\bdertl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Contactos_controller.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Contactos_model.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxDataD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\DataAbstract_Core_D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\designide.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\FormasPago_controller.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\FormasPago_model.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\GUISDK_D11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Jcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JclVcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCoreD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvGlobusD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvSystemD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Core_D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\TiposIVA_controller.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\TiposIVA_model.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\xmlrtl.dcp" />
<DCCReference Include="..\..\Albaranes de proveedor\adortl.dcp" />
<DCCReference Include="..\..\Albaranes de proveedor\ApplicationBase.dcp" />
<DCCReference Include="..\..\Albaranes de proveedor\Base.dcp" />
<DCCReference Include="..\..\Albaranes de proveedor\bdertl.dcp" />
<DCCReference Include="..\..\Albaranes de proveedor\Contactos_controller.dcp" />
<DCCReference Include="..\..\Albaranes de proveedor\Contactos_model.dcp" />
<DCCReference Include="..\..\Albaranes de proveedor\cxDataD11.dcp" />
<DCCReference Include="..\..\Albaranes de proveedor\cxEditorsD11.dcp" />
<DCCReference Include="..\..\Albaranes de proveedor\cxLibraryD11.dcp" />
<DCCReference Include="..\..\Albaranes de proveedor\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\..\Albaranes de proveedor\dbrtl.dcp" />
<DCCReference Include="..\..\Albaranes de proveedor\designide.dcp" />
<DCCReference Include="..\..\Albaranes de proveedor\dsnap.dcp" />
<DCCReference Include="..\..\Albaranes de proveedor\dxGDIPlusD11.dcp" />
<DCCReference Include="..\..\Albaranes de proveedor\dxThemeD11.dcp" />
<DCCReference Include="..\..\Albaranes de proveedor\FormasPago_controller.dcp" />
<DCCReference Include="..\..\Albaranes de proveedor\FormasPago_model.dcp" />
<DCCReference Include="..\..\Albaranes de proveedor\GUIBase.dcp" />
<DCCReference Include="..\..\Albaranes de proveedor\GUISDK_D11R.dcp" />
<DCCReference Include="..\..\Albaranes de proveedor\Jcl.dcp" />
<DCCReference Include="..\..\Albaranes de proveedor\JclVcl.dcp" />
<DCCReference Include="..\..\Albaranes de proveedor\JvCoreD11R.dcp" />
<DCCReference Include="..\..\Albaranes de proveedor\JvGlobusD11R.dcp" />
<DCCReference Include="..\..\Albaranes de proveedor\JvSystemD11R.dcp" />
<DCCReference Include="..\..\Albaranes de proveedor\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\..\Albaranes de proveedor\rtl.dcp" />
<DCCReference Include="..\..\Albaranes de proveedor\TiposIVA_controller.dcp" />
<DCCReference Include="..\..\Albaranes de proveedor\TiposIVA_model.dcp" />
<DCCReference Include="..\..\Albaranes de proveedor\vcl.dcp" />
<DCCReference Include="..\..\Albaranes de proveedor\vclactnband.dcp" />
<DCCReference Include="..\..\Albaranes de proveedor\vcldb.dcp" />
<DCCReference Include="..\..\Albaranes de proveedor\vcljpg.dcp" />
<DCCReference Include="..\..\Albaranes de proveedor\vclx.dcp" />
<DCCReference Include="..\..\Albaranes de proveedor\xmlrtl.dcp" />
<DCCReference Include="uContactosViewRegister.pas" />
<DCCReference Include="uEditorCliente.pas">
<Form>fEditorCliente</Form>

16
Source/Modulos/Contratos de cliente/ContratosCliente_Group.groupproj
View File

@ -19,6 +19,7 @@
<Projects Include="..\Facturas de proveedor\Controller\FacturasProveedor_controller.dproj" />
<Projects Include="..\Facturas de proveedor\Plugin\FacturasProveedor_plugin.dproj" />
<Projects Include="..\Pedidos a proveedor\Controller\PedidosProveedor_controller.dproj" />
<Projects Include="..\Pedidos a proveedor\Model\PedidosProveedor_model.dproj" />
<Projects Include="..\Pedidos a proveedor\Plugin\PedidosProveedor_plugin.dproj" />
<Projects Include="..\Pedidos a proveedor\Views\PedidosProveedor_view.dproj" />
<Projects Include="..\Presupuestos de cliente\Views\PresupuestosCliente_view.dproj" />
@ -281,14 +282,23 @@
<Target Name="FacturasProveedor_plugin:Make">
<MSBuild Projects="..\Facturas de proveedor\Plugin\FacturasProveedor_plugin.dproj" Targets="Make" />
</Target>
<Target Name="PedidosProveedor_model">
<MSBuild Projects="..\Pedidos a proveedor\Model\PedidosProveedor_model.dproj" Targets="" />
</Target>
<Target Name="PedidosProveedor_model:Clean">
<MSBuild Projects="..\Pedidos a proveedor\Model\PedidosProveedor_model.dproj" Targets="Clean" />
</Target>
<Target Name="PedidosProveedor_model:Make">
<MSBuild Projects="..\Pedidos a proveedor\Model\PedidosProveedor_model.dproj" Targets="Make" />
</Target>
<Target Name="Build">
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_model;Contactos_data;Contactos_controller;Contactos_view;Articulos_data;Articulos_controller;Articulos_view;ContratosCliente_model;ContratosCliente_data;ContratosCliente_controller;ConCli_AlbCli_relation;ConCli_FacCli_relation;PreCli_ConCli_relation;ConCli_PedProv_relation;ContratosCliente_view;ContratosCliente_plugin;FactuGES;FactuGES_Server;PresupuestosCliente_view;PedidosProveedor_controller;PedidosProveedor_view;PedidosProveedor_plugin;FacturasProveedor_controller;FacturasProveedor_plugin" />
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_model;Contactos_data;Contactos_controller;Contactos_view;Articulos_data;Articulos_controller;Articulos_view;ContratosCliente_model;ContratosCliente_data;ContratosCliente_controller;ConCli_AlbCli_relation;ConCli_FacCli_relation;PreCli_ConCli_relation;ConCli_PedProv_relation;ContratosCliente_view;ContratosCliente_plugin;FactuGES;FactuGES_Server;PresupuestosCliente_view;PedidosProveedor_controller;PedidosProveedor_view;PedidosProveedor_plugin;FacturasProveedor_controller;FacturasProveedor_plugin;PedidosProveedor_model" />
</Target>
<Target Name="Clean">
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_model:Clean;Contactos_data:Clean;Contactos_controller:Clean;Contactos_view:Clean;Articulos_data:Clean;Articulos_controller:Clean;Articulos_view:Clean;ContratosCliente_model:Clean;ContratosCliente_data:Clean;ContratosCliente_controller:Clean;ConCli_AlbCli_relation:Clean;ConCli_FacCli_relation:Clean;PreCli_ConCli_relation:Clean;ConCli_PedProv_relation:Clean;ContratosCliente_view:Clean;ContratosCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;PresupuestosCliente_view:Clean;PedidosProveedor_controller:Clean;PedidosProveedor_view:Clean;PedidosProveedor_plugin:Clean;FacturasProveedor_controller:Clean;FacturasProveedor_plugin:Clean" />
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_model:Clean;Contactos_data:Clean;Contactos_controller:Clean;Contactos_view:Clean;Articulos_data:Clean;Articulos_controller:Clean;Articulos_view:Clean;ContratosCliente_model:Clean;ContratosCliente_data:Clean;ContratosCliente_controller:Clean;ConCli_AlbCli_relation:Clean;ConCli_FacCli_relation:Clean;PreCli_ConCli_relation:Clean;ConCli_PedProv_relation:Clean;ContratosCliente_view:Clean;ContratosCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;PresupuestosCliente_view:Clean;PedidosProveedor_controller:Clean;PedidosProveedor_view:Clean;PedidosProveedor_plugin:Clean;FacturasProveedor_controller:Clean;FacturasProveedor_plugin:Clean;PedidosProveedor_model:Clean" />
</Target>
<Target Name="Make">
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_model:Make;Contactos_data:Make;Contactos_controller:Make;Contactos_view:Make;Articulos_data:Make;Articulos_controller:Make;Articulos_view:Make;ContratosCliente_model:Make;ContratosCliente_data:Make;ContratosCliente_controller:Make;ConCli_AlbCli_relation:Make;ConCli_FacCli_relation:Make;PreCli_ConCli_relation:Make;ConCli_PedProv_relation:Make;ContratosCliente_view:Make;ContratosCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make;PresupuestosCliente_view:Make;PedidosProveedor_controller:Make;PedidosProveedor_view:Make;PedidosProveedor_plugin:Make;FacturasProveedor_controller:Make;FacturasProveedor_plugin:Make" />
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_model:Make;Contactos_data:Make;Contactos_controller:Make;Contactos_view:Make;Articulos_data:Make;Articulos_controller:Make;Articulos_view:Make;ContratosCliente_model:Make;ContratosCliente_data:Make;ContratosCliente_controller:Make;ConCli_AlbCli_relation:Make;ConCli_FacCli_relation:Make;PreCli_ConCli_relation:Make;ConCli_PedProv_relation:Make;ContratosCliente_view:Make;ContratosCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make;PresupuestosCliente_view:Make;PedidosProveedor_controller:Make;PedidosProveedor_view:Make;PedidosProveedor_plugin:Make;FacturasProveedor_controller:Make;FacturasProveedor_plugin:Make;PedidosProveedor_model:Make" />
</Target>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project>

BIN
Source/Modulos/Contratos de cliente/Controller/ContratosCliente_controller.dpk
View File

Binary file not shown.

19
Source/Modulos/Contratos de cliente/Controller/ContratosCliente_controller.dproj
View File

@ -49,20 +49,21 @@
<DelphiCompile Include="ContratosCliente_controller.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\..\Facturas de proveedor\Plugin\ApplicationBase.dcp" />
<DCCReference Include="..\..\Facturas de proveedor\Plugin\Articulos_controller.dcp" />
<DCCReference Include="..\..\Facturas de proveedor\Plugin\Contactos_controller.dcp" />
<DCCReference Include="..\..\Facturas de proveedor\Plugin\ContratosCliente_data.dcp" />
<DCCReference Include="..\..\Facturas de proveedor\Plugin\ContratosCliente_model.dcp" />
<DCCReference Include="..\..\Facturas de proveedor\Plugin\GestorDocumentos_controller.dcp" />
<DCCReference Include="..\..\Facturas de proveedor\Plugin\GUIBase.dcp" />
<DCCReference Include="..\..\Facturas de proveedor\Plugin\PresupuestosCliente_controller.dcp" />
<DCCReference Include="..\..\Facturas de proveedor\Plugin\PresupuestosCliente_model.dcp" />
<DCCReference Include="uArticulosContratoClienteController.pas" />
<DCCReference Include="uContratosClienteController.pas" />
<DCCReference Include="uContratosClienteReportController.pas" />
<DCCReference Include="uDetallesContratoClienteController.pas" />
<DCCReference Include="View\ApplicationBase.dcp" />
<DCCReference Include="View\Articulos_controller.dcp" />
<DCCReference Include="View\Contactos_controller.dcp" />
<DCCReference Include="View\ContratosCliente_data.dcp" />
<DCCReference Include="View\ContratosCliente_model.dcp" />
<DCCReference Include="View\GestorDocumentos_controller.dcp" />
<DCCReference Include="View\GUIBase.dcp" />
<DCCReference Include="View\PresupuestosCliente_controller.dcp" />
<DCCReference Include="View\PresupuestosCliente_model.dcp" />
<DCCReference Include="View\uIEditorContratoCliente.pas" />
<DCCReference Include="View\uIEditorContratoClienteBeneficio.pas" />
<DCCReference Include="View\uIEditorContratosCliente.pas" />
<DCCReference Include="View\uIEditorContratosClienteBeneficios.pas" />
<DCCReference Include="View\uIEditorContratosClientePreview.pas" />

23
Source/Modulos/Contratos de cliente/Controller/View/uIEditorContratoClienteBeneficio.pas Normal file
View File

@ -0,0 +1,23 @@
unit uIEditorContratoClienteBeneficio;
interface
uses
uEditorDBItem, uBizContratosCliente, uContratosClienteController;
type
IEditorContratoClienteBeneficio = interface(IEditorDBItem)
['{4FE2D27C-2EDF-492C-8125-9D7002D96727}']
function GetController : IContratosClienteController;
procedure SetController (const Value : IContratosClienteController);
property Controller : IContratosClienteController read GetController
write SetController;
function GetContrato: IBizContratoCliente;
procedure SetContrato(const Value: IBizContratoCliente);
property Contrato: IBizContratoCliente read GetContrato write SetContrato;
end;
implementation
end.

6
Source/Modulos/Contratos de cliente/Controller/View/uIEditorContratosClienteBeneficios.pas
View File

@ -12,9 +12,9 @@ type
procedure SetContratos(const Value: IBizContratosClienteBeneficios);
property Contratos: IBizContratosClienteBeneficios read GetContratos write SetContratos;
// function GetController : IContratosClienteController;
// procedure SetController (const Value : IContratosClienteController);
// property Controller : IContratosClienteController read GetController write SetController;
function GetController : IContratosClienteController;
procedure SetController (const Value : IContratosClienteController);
property Controller : IContratosClienteController read GetController write SetController;
end;

33
Source/Modulos/Contratos de cliente/Controller/uContratosClienteController.pas
View File

@ -65,6 +65,7 @@ type
procedure VerListadoBeneficios;
procedure VerPedidosProveedor(AContrato : IBizContratoCliente);
procedure VerFacturasProveedor(AContrato : IBizContratoCliente);
procedure VerBeneficio(const ID: Integer);
procedure CopiarDireccion (const ADireccion: IBizDireccionesContacto; AContrato: IBizContratoCliente);
end;
@ -142,6 +143,7 @@ type
procedure VerListadoBeneficios;
procedure VerPedidosProveedor(AContrato : IBizContratoCliente);
procedure VerFacturasProveedor(AContrato : IBizContratoCliente);
procedure VerBeneficio(const ID: Integer);
procedure CopiarDireccion (const ADireccion: IBizDireccionesContacto; AContrato: IBizContratoCliente);
end;
@ -156,7 +158,7 @@ uses
uIEditorElegirContratosCliente, uIEditorDireccionEntregaContratoCliente,
schContactosClient_Intf, uContratosClienteReportController, FactuGES_Intf,
uSistemaFunc, uEMailUtils, uDialogElegirEMail, Dialogs, uStringsUtils,
uIEditorContratosClienteBeneficios, uPresupuestosClienteController,
uIEditorContratosClienteBeneficios, uIEditorContratoClienteBeneficio, uPresupuestosClienteController,
uConfiguracionController, uBizDetallesPresupuestoCliente, uModuleController, uPlugins_Intf;
{ TContratosClienteController }
@ -526,6 +528,32 @@ begin
end;
end;
procedure TContratosClienteController.VerBeneficio(const ID: Integer);
var
AContratoCliente: IBizContratoCliente;
AListaFacturasProveedor: IBizContratoClienteFacturasProv;
AEditor : IEditorContratoClienteBeneficio;
begin
AEditor := NIL;
AListaFacturasProveedor := FDataModule.GetContratoCLienteFacturasProv;
AContratoCliente := Self.Buscar(ID);
CreateEditor('EditorContratoClienteBeneficio', IEditorContratoClienteBeneficio, AEditor);
if Assigned(AEditor) then
try
AEditor.Controller := Self; //OJO ORDEN MUY IMPORTANTE
AEditor.Contrato := AContratoCliente;
AEditor.ShowModal;
finally
AEditor.Release;
AEditor := NIL;
end;
end;
procedure TContratosClienteController.VerFacturasProveedor(AContrato: IBizContratoCliente);
var
AModule : TModuleController;
@ -559,8 +587,7 @@ begin
if Assigned(AEditor) then
try
// AEditor.Controller := Self; //OJO ORDEN MUY IMPORTANTE
AEditor.Controller := Self; //OJO ORDEN MUY IMPORTANTE
AEditor.Contratos := AContratosClienteBeneficios;
AEditor.ShowModal;

24
Source/Modulos/Contratos de cliente/Data/ContratosCliente_data.dproj
View File

@ -49,18 +49,18 @@
<DelphiCompile Include="ContratosCliente_data.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\ContratosCliente_model.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\DataAbstract_Core_D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Core_D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
<DCCReference Include="..\..\..\Servidor\adortl.dcp" />
<DCCReference Include="..\..\..\Servidor\ContratosCliente_model.dcp" />
<DCCReference Include="..\..\..\Servidor\cxLibraryD11.dcp" />
<DCCReference Include="..\..\..\Servidor\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\..\..\Servidor\dbrtl.dcp" />
<DCCReference Include="..\..\..\Servidor\dsnap.dcp" />
<DCCReference Include="..\..\..\Servidor\dxGDIPlusD11.dcp" />
<DCCReference Include="..\..\..\Servidor\dxThemeD11.dcp" />
<DCCReference Include="..\..\..\Servidor\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\..\..\Servidor\rtl.dcp" />
<DCCReference Include="..\..\..\Servidor\vcl.dcp" />
<DCCReference Include="..\..\..\Servidor\vcldb.dcp" />
<DCCReference Include="uDataModuleContratosCliente.pas" />
</ItemGroup>
</Project>

17
Source/Modulos/Contratos de cliente/Data/uDataModuleContratosCliente.dfm
View File

@ -106,7 +106,7 @@ inherited DataModuleContratosCliente: TDataModuleContratosCliente
Name = 'PROVINCIA'
DataType = datString
Size = 255
DisplayLabel = 'Provincia'
DisplayLabel = 'ContratosCliente_PROVINCIA'
DictionaryEntry = 'ContratosCliente_PROVINCIA'
end
item
@ -337,12 +337,15 @@ inherited DataModuleContratosCliente: TDataModuleContratosCliente
Name = 'REFERENCIA_CLIENTE'
DataType = datString
Size = 255
DisplayLabel = 'ContratosCliente_REFERENCIA_CLIENTE'
DictionaryEntry = 'ContratosCliente_REFERENCIA_CLIENTE'
end
item
Name = 'LISTA_NOMBRES'
DataType = datString
Size = 255
DisplayLabel = 'Otros nombres'
DictionaryEntry = 'ContratosCliente_LISTA_NOMBRES'
end>
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]
@ -403,11 +406,11 @@ inherited DataModuleContratosCliente: TDataModuleContratosCliente
DataType = datCurrency
end
item
Name = 'VISIBLE2'
Name = 'VISIBLE'
DataType = datSmallInt
end
item
Name = 'VISIBLE'
Name = 'VISIBLE2'
DataType = datSmallInt
end
item
@ -419,6 +422,14 @@ inherited DataModuleContratosCliente: TDataModuleContratosCliente
DataType = datString
Size = 2
end
item
Name = 'INCREMENTO'
DataType = datFloat
end
item
Name = 'DECREMENTO'
DataType = datFloat
end
item
Name = 'DESCUENTO'
DataType = datFloat

6
Source/Modulos/Contratos de cliente/Data/uDataModuleContratosCliente.pas
View File

@ -50,6 +50,7 @@ type
function GetAnosItems : TStringList;
function GetContratosClienteBeneficios : IBizContratosClienteBeneficios;
function GetContratoCLienteFacturasProv : IBizContratoClienteFacturasProv;
end;
implementation
@ -158,6 +159,11 @@ begin
end;
end;
function TDataModuleContratosCliente.GetContratoCLienteFacturasProv: IBizContratoClienteFacturasProv;
begin
//
end;
function TDataModuleContratosCliente.GetContratosClienteBeneficios: IBizContratosClienteBeneficios;
var
AContratosBeneficios: TDAMemDataTable;

3
Source/Modulos/Contratos de cliente/Model/Data/uIDataModuleContratosCliente.pas
View File

@ -14,7 +14,8 @@ type
function GetItems(const AListaID: TIntegerList) : IBizContratoCliente; overload;
function GetItem(const ID : Integer) : IBizContratoCliente;
function NewItem : IBizContratoCliente;
function GetContratosClienteBeneficios : IBizContratosClienteBeneficios;
function GetContratosClienteBeneficios : IBizContratosClienteBeneficios;
function GetContratoCLienteFacturasProv : IBizContratoClienteFacturasProv;
end;
implementation

395
Source/Modulos/Contratos de cliente/Model/schContratosClienteClient_Intf.pas
View File

@ -9,13 +9,14 @@ 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_Valores = '{58A2DEFE-73CE-4294-A509-3456173EC1E8}';
RID_Propiedades = '{FD279174-BDCF-4C6E-86A5-9EF688F8A386}';
RID_ListaAnosContratos = '{995B8113-D69E-45F6-B0C6-279DE92E8AE1}';
RID_ContratosClienteBeneficios = '{AADFE498-8072-4F5F-84FD-7BDAE2D03E88}';
RID_ContratosCliente = '{6BBAF32D-E3F6-4C2F-BB50-EEB0BABCE782}';
RID_TiposCapitulos = '{4355D117-B641-4CF9-99AC-17558CB0C354}';
RID_ContratosCliente_Detalles = '{02F28C43-5EC9-4A4F-A2BC-CD4BF581ED0B}';
RID_Valores = '{1F8FAC37-39BC-425B-869E-D00044F46C40}';
RID_Propiedades = '{C52F161B-7E4D-439F-A7B0-4355A49B19D8}';
RID_ListaAnosContratos = '{E0ABAABD-055B-4CC8-BEFE-3C1467805F3C}';
RID_ContratosClienteBeneficios = '{DBCDA21A-E1E9-42E0-882B-0577032A67F7}';
RID_ContratosCliente = '{6D1A8DFF-AAD7-4FFF-AB0F-2F7E3AD610C5}';
RID_TiposCapitulos = '{4C6A9D25-3499-4F39-9C50-0D4EF43F8F15}';
RID_ContratosCliente_Detalles = '{352D2AB3-AC8A-4038-A06F-A8CDD4C7E3BA}';
RID_ContratoClienteFacturasProv = '{714191D2-C0CC-4485-B390-537A6EDEFB88}';
{ Data table names }
nme_Valores = 'Valores';
@ -25,6 +26,7 @@ const
nme_ContratosCliente = 'ContratosCliente';
nme_TiposCapitulos = 'TiposCapitulos';
nme_ContratosCliente_Detalles = 'ContratosCliente_Detalles';
nme_ContratoClienteFacturasProv = 'ContratoClienteFacturasProv';
{ Valores fields }
fld_ValoresID = 'ID';
@ -214,10 +216,12 @@ const
fld_ContratosCliente_DetallesCANTIDAD = 'CANTIDAD';
fld_ContratosCliente_DetallesIMPORTE_UNIDAD = 'IMPORTE_UNIDAD';
fld_ContratosCliente_DetallesIMPORTE_TOTAL = 'IMPORTE_TOTAL';
fld_ContratosCliente_DetallesVISIBLE2 = 'VISIBLE2';
fld_ContratosCliente_DetallesVISIBLE = 'VISIBLE';
fld_ContratosCliente_DetallesVISIBLE2 = 'VISIBLE2';
fld_ContratosCliente_DetallesID_ARTICULO = 'ID_ARTICULO';
fld_ContratosCliente_DetallesTIPO_ARTICULO = 'TIPO_ARTICULO';
fld_ContratosCliente_DetallesINCREMENTO = 'INCREMENTO';
fld_ContratosCliente_DetallesDECREMENTO = 'DECREMENTO';
fld_ContratosCliente_DetallesDESCUENTO = 'DESCUENTO';
fld_ContratosCliente_DetallesIMPORTE_PORTE = 'IMPORTE_PORTE';
fld_ContratosCliente_DetallesREFERENCIA = 'REFERENCIA';
@ -233,19 +237,35 @@ const
idx_ContratosCliente_DetallesCANTIDAD = 6;
idx_ContratosCliente_DetallesIMPORTE_UNIDAD = 7;
idx_ContratosCliente_DetallesIMPORTE_TOTAL = 8;
idx_ContratosCliente_DetallesVISIBLE2 = 9;
idx_ContratosCliente_DetallesVISIBLE = 10;
idx_ContratosCliente_DetallesVISIBLE = 9;
idx_ContratosCliente_DetallesVISIBLE2 = 10;
idx_ContratosCliente_DetallesID_ARTICULO = 11;
idx_ContratosCliente_DetallesTIPO_ARTICULO = 12;
idx_ContratosCliente_DetallesDESCUENTO = 13;
idx_ContratosCliente_DetallesIMPORTE_PORTE = 14;
idx_ContratosCliente_DetallesREFERENCIA = 15;
idx_ContratosCliente_DetallesREFERENCIA_PROVEEDOR = 16;
idx_ContratosCliente_DetallesINCREMENTO = 13;
idx_ContratosCliente_DetallesDECREMENTO = 14;
idx_ContratosCliente_DetallesDESCUENTO = 15;
idx_ContratosCliente_DetallesIMPORTE_PORTE = 16;
idx_ContratosCliente_DetallesREFERENCIA = 17;
idx_ContratosCliente_DetallesREFERENCIA_PROVEEDOR = 18;
{ ContratoClienteFacturasProv fields }
fld_ContratoClienteFacturasProvID_CONTRATO = 'ID_CONTRATO';
fld_ContratoClienteFacturasProvREFERENCIA = 'REFERENCIA';
fld_ContratoClienteFacturasProvFECHA_FACTURA = 'FECHA_FACTURA';
fld_ContratoClienteFacturasProvPROVEEDOR = 'PROVEEDOR';
fld_ContratoClienteFacturasProvIMPORTE = 'IMPORTE';
{ ContratoClienteFacturasProv field indexes }
idx_ContratoClienteFacturasProvID_CONTRATO = 0;
idx_ContratoClienteFacturasProvREFERENCIA = 1;
idx_ContratoClienteFacturasProvFECHA_FACTURA = 2;
idx_ContratoClienteFacturasProvPROVEEDOR = 3;
idx_ContratoClienteFacturasProvIMPORTE = 4;
type
{ IValores }
IValores = interface(IDAStronglyTypedDataTable)
['{8DC482B0-0D63-436F-AB19-74A480249588}']
['{40E44C4F-672F-42BE-8359-3F24F80102CB}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -304,7 +324,7 @@ type
{ IPropiedades }
IPropiedades = interface(IDAStronglyTypedDataTable)
['{83E4E5BD-A49A-4677-A830-7C9B83F3DDE4}']
['{8B985EC4-9869-4260-82D3-CCD79C46D0EB}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -363,7 +383,7 @@ type
{ IListaAnosContratos }
IListaAnosContratos = interface(IDAStronglyTypedDataTable)
['{35D2C046-61DA-487F-A0F4-5E3AB7CCA58D}']
['{889E2DA7-883A-4202-97B2-B2E70651B754}']
{ Property getters and setters }
function GetANOValue: String;
procedure SetANOValue(const aValue: String);
@ -398,7 +418,7 @@ type
{ IContratosClienteBeneficios }
IContratosClienteBeneficios = interface(IDAStronglyTypedDataTable)
['{FEA1561B-0DF3-4193-8881-62C4433488E8}']
['{1C4B8747-A011-4701-B7CE-9EA7F71444D3}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -601,7 +621,7 @@ type
{ IContratosCliente }
IContratosCliente = interface(IDAStronglyTypedDataTable)
['{F2DEA876-B1A6-475D-8D1D-8D416E7D40CA}']
['{31D42A4B-1B73-4329-8F5D-A365ADEDAFB5}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -1215,7 +1235,7 @@ type
}
{ ITiposCapitulos }
ITiposCapitulos = interface(IDAStronglyTypedDataTable)
['{5F81E7D5-452E-4E0A-88C8-1F996B6AF531}']
['{A95EA2CC-1059-4224-8A8D-7E980E0BBBAC}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -1310,7 +1330,7 @@ type
{ IContratosCliente_Detalles }
IContratosCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{251944F0-59A0-4544-BC1D-DC85411F2FD7}']
['{8EA912A5-E21E-4C36-A065-CE3B28B0E7CD}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -1348,14 +1368,14 @@ type
procedure SetIMPORTE_TOTALValue(const aValue: Currency);
function GetIMPORTE_TOTALIsNull: Boolean;
procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean);
function GetVISIBLE2Value: SmallInt;
procedure SetVISIBLE2Value(const aValue: SmallInt);
function GetVISIBLE2IsNull: Boolean;
procedure SetVISIBLE2IsNull(const aValue: Boolean);
function GetVISIBLEValue: SmallInt;
procedure SetVISIBLEValue(const aValue: SmallInt);
function GetVISIBLEIsNull: Boolean;
procedure SetVISIBLEIsNull(const aValue: Boolean);
function GetVISIBLE2Value: SmallInt;
procedure SetVISIBLE2Value(const aValue: SmallInt);
function GetVISIBLE2IsNull: Boolean;
procedure SetVISIBLE2IsNull(const aValue: Boolean);
function GetID_ARTICULOValue: Integer;
procedure SetID_ARTICULOValue(const aValue: Integer);
function GetID_ARTICULOIsNull: Boolean;
@ -1364,6 +1384,14 @@ type
procedure SetTIPO_ARTICULOValue(const aValue: String);
function GetTIPO_ARTICULOIsNull: Boolean;
procedure SetTIPO_ARTICULOIsNull(const aValue: Boolean);
function GetINCREMENTOValue: Float;
procedure SetINCREMENTOValue(const aValue: Float);
function GetINCREMENTOIsNull: Boolean;
procedure SetINCREMENTOIsNull(const aValue: Boolean);
function GetDECREMENTOValue: Float;
procedure SetDECREMENTOValue(const aValue: Float);
function GetDECREMENTOIsNull: Boolean;
procedure SetDECREMENTOIsNull(const aValue: Boolean);
function GetDESCUENTOValue: Float;
procedure SetDESCUENTOValue(const aValue: Float);
function GetDESCUENTOIsNull: Boolean;
@ -1401,14 +1429,18 @@ type
property IMPORTE_UNIDADIsNull: Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull;
property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
property VISIBLE2: SmallInt read GetVISIBLE2Value write SetVISIBLE2Value;
property VISIBLE2IsNull: Boolean read GetVISIBLE2IsNull write SetVISIBLE2IsNull;
property VISIBLE: SmallInt read GetVISIBLEValue write SetVISIBLEValue;
property VISIBLEIsNull: Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull;
property VISIBLE2: SmallInt read GetVISIBLE2Value write SetVISIBLE2Value;
property VISIBLE2IsNull: Boolean read GetVISIBLE2IsNull write SetVISIBLE2IsNull;
property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
property TIPO_ARTICULO: String read GetTIPO_ARTICULOValue write SetTIPO_ARTICULOValue;
property TIPO_ARTICULOIsNull: Boolean read GetTIPO_ARTICULOIsNull write SetTIPO_ARTICULOIsNull;
property INCREMENTO: Float read GetINCREMENTOValue write SetINCREMENTOValue;
property INCREMENTOIsNull: Boolean read GetINCREMENTOIsNull write SetINCREMENTOIsNull;
property DECREMENTO: Float read GetDECREMENTOValue write SetDECREMENTOValue;
property DECREMENTOIsNull: Boolean read GetDECREMENTOIsNull write SetDECREMENTOIsNull;
property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
property IMPORTE_PORTE: Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue;
@ -1460,14 +1492,14 @@ type
procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual;
function GetIMPORTE_TOTALIsNull: Boolean; virtual;
procedure SetIMPORTE_TOTALIsNull(const aValue: Boolean); virtual;
function GetVISIBLE2Value: SmallInt; virtual;
procedure SetVISIBLE2Value(const aValue: SmallInt); virtual;
function GetVISIBLE2IsNull: Boolean; virtual;
procedure SetVISIBLE2IsNull(const aValue: Boolean); virtual;
function GetVISIBLEValue: SmallInt; virtual;
procedure SetVISIBLEValue(const aValue: SmallInt); virtual;
function GetVISIBLEIsNull: Boolean; virtual;
procedure SetVISIBLEIsNull(const aValue: Boolean); virtual;
function GetVISIBLE2Value: SmallInt; virtual;
procedure SetVISIBLE2Value(const aValue: SmallInt); virtual;
function GetVISIBLE2IsNull: Boolean; virtual;
procedure SetVISIBLE2IsNull(const aValue: Boolean); virtual;
function GetID_ARTICULOValue: Integer; virtual;
procedure SetID_ARTICULOValue(const aValue: Integer); virtual;
function GetID_ARTICULOIsNull: Boolean; virtual;
@ -1476,6 +1508,14 @@ type
procedure SetTIPO_ARTICULOValue(const aValue: String); virtual;
function GetTIPO_ARTICULOIsNull: Boolean; virtual;
procedure SetTIPO_ARTICULOIsNull(const aValue: Boolean); virtual;
function GetINCREMENTOValue: Float; virtual;
procedure SetINCREMENTOValue(const aValue: Float); virtual;
function GetINCREMENTOIsNull: Boolean; virtual;
procedure SetINCREMENTOIsNull(const aValue: Boolean); virtual;
function GetDECREMENTOValue: Float; virtual;
procedure SetDECREMENTOValue(const aValue: Float); virtual;
function GetDECREMENTOIsNull: Boolean; virtual;
procedure SetDECREMENTOIsNull(const aValue: Boolean); virtual;
function GetDESCUENTOValue: Float; virtual;
procedure SetDESCUENTOValue(const aValue: Float); virtual;
function GetDESCUENTOIsNull: Boolean; virtual;
@ -1512,14 +1552,18 @@ type
property IMPORTE_UNIDADIsNull: Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull;
property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
property VISIBLE2: SmallInt read GetVISIBLE2Value write SetVISIBLE2Value;
property VISIBLE2IsNull: Boolean read GetVISIBLE2IsNull write SetVISIBLE2IsNull;
property VISIBLE: SmallInt read GetVISIBLEValue write SetVISIBLEValue;
property VISIBLEIsNull: Boolean read GetVISIBLEIsNull write SetVISIBLEIsNull;
property VISIBLE2: SmallInt read GetVISIBLE2Value write SetVISIBLE2Value;
property VISIBLE2IsNull: Boolean read GetVISIBLE2IsNull write SetVISIBLE2IsNull;
property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
property TIPO_ARTICULO: String read GetTIPO_ARTICULOValue write SetTIPO_ARTICULOValue;
property TIPO_ARTICULOIsNull: Boolean read GetTIPO_ARTICULOIsNull write SetTIPO_ARTICULOIsNull;
property INCREMENTO: Float read GetINCREMENTOValue write SetINCREMENTOValue;
property INCREMENTOIsNull: Boolean read GetINCREMENTOIsNull write SetINCREMENTOIsNull;
property DECREMENTO: Float read GetDECREMENTOValue write SetDECREMENTOValue;
property DECREMENTOIsNull: Boolean read GetDECREMENTOIsNull write SetDECREMENTOIsNull;
property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
property IMPORTE_PORTE: Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue;
@ -1535,6 +1579,89 @@ type
end;
{ IContratoClienteFacturasProv }
IContratoClienteFacturasProv = interface(IDAStronglyTypedDataTable)
['{54EFE7FE-AF36-4B4D-8226-05C7D7CEA696}']
{ Property getters and setters }
function GetID_CONTRATOValue: Integer;
procedure SetID_CONTRATOValue(const aValue: Integer);
function GetID_CONTRATOIsNull: Boolean;
procedure SetID_CONTRATOIsNull(const aValue: Boolean);
function GetREFERENCIAValue: String;
procedure SetREFERENCIAValue(const aValue: String);
function GetREFERENCIAIsNull: Boolean;
procedure SetREFERENCIAIsNull(const aValue: Boolean);
function GetFECHA_FACTURAValue: DateTime;
procedure SetFECHA_FACTURAValue(const aValue: DateTime);
function GetFECHA_FACTURAIsNull: Boolean;
procedure SetFECHA_FACTURAIsNull(const aValue: Boolean);
function GetPROVEEDORValue: String;
procedure SetPROVEEDORValue(const aValue: String);
function GetPROVEEDORIsNull: Boolean;
procedure SetPROVEEDORIsNull(const aValue: Boolean);
function GetIMPORTEValue: Currency;
procedure SetIMPORTEValue(const aValue: Currency);
function GetIMPORTEIsNull: Boolean;
procedure SetIMPORTEIsNull(const aValue: Boolean);
{ Properties }
property ID_CONTRATO: Integer read GetID_CONTRATOValue write SetID_CONTRATOValue;
property ID_CONTRATOIsNull: Boolean read GetID_CONTRATOIsNull write SetID_CONTRATOIsNull;
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
property FECHA_FACTURA: DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue;
property FECHA_FACTURAIsNull: Boolean read GetFECHA_FACTURAIsNull write SetFECHA_FACTURAIsNull;
property PROVEEDOR: String read GetPROVEEDORValue write SetPROVEEDORValue;
property PROVEEDORIsNull: Boolean read GetPROVEEDORIsNull write SetPROVEEDORIsNull;
property IMPORTE: Currency read GetIMPORTEValue write SetIMPORTEValue;
property IMPORTEIsNull: Boolean read GetIMPORTEIsNull write SetIMPORTEIsNull;
end;
{ TContratoClienteFacturasProvDataTableRules }
TContratoClienteFacturasProvDataTableRules = class(TIntfObjectDADataTableRules, IContratoClienteFacturasProv)
private
protected
{ Property getters and setters }
function GetID_CONTRATOValue: Integer; virtual;
procedure SetID_CONTRATOValue(const aValue: Integer); virtual;
function GetID_CONTRATOIsNull: Boolean; virtual;
procedure SetID_CONTRATOIsNull(const aValue: Boolean); virtual;
function GetREFERENCIAValue: String; virtual;
procedure SetREFERENCIAValue(const aValue: String); virtual;
function GetREFERENCIAIsNull: Boolean; virtual;
procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual;
function GetFECHA_FACTURAValue: DateTime; virtual;
procedure SetFECHA_FACTURAValue(const aValue: DateTime); virtual;
function GetFECHA_FACTURAIsNull: Boolean; virtual;
procedure SetFECHA_FACTURAIsNull(const aValue: Boolean); virtual;
function GetPROVEEDORValue: String; virtual;
procedure SetPROVEEDORValue(const aValue: String); virtual;
function GetPROVEEDORIsNull: Boolean; virtual;
procedure SetPROVEEDORIsNull(const aValue: Boolean); virtual;
function GetIMPORTEValue: Currency; virtual;
procedure SetIMPORTEValue(const aValue: Currency); virtual;
function GetIMPORTEIsNull: Boolean; virtual;
procedure SetIMPORTEIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID_CONTRATO: Integer read GetID_CONTRATOValue write SetID_CONTRATOValue;
property ID_CONTRATOIsNull: Boolean read GetID_CONTRATOIsNull write SetID_CONTRATOIsNull;
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
property FECHA_FACTURA: DateTime read GetFECHA_FACTURAValue write SetFECHA_FACTURAValue;
property FECHA_FACTURAIsNull: Boolean read GetFECHA_FACTURAIsNull write SetFECHA_FACTURAIsNull;
property PROVEEDOR: String read GetPROVEEDORValue write SetPROVEEDORValue;
property PROVEEDORIsNull: Boolean read GetPROVEEDORIsNull write SetPROVEEDORIsNull;
property IMPORTE: Currency read GetIMPORTEValue write SetIMPORTEValue;
property IMPORTEIsNull: Boolean read GetIMPORTEIsNull write SetIMPORTEIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
destructor Destroy; override;
end;
implementation
uses Variants, uROBinaryHelpers;
@ -3460,27 +3587,6 @@ begin
DataTable.Fields[idx_ContratosCliente_DetallesIMPORTE_TOTAL].AsVariant := Null;
end;
function TContratosCliente_DetallesDataTableRules.GetVISIBLE2Value: SmallInt;
begin
result := DataTable.Fields[idx_ContratosCliente_DetallesVISIBLE2].AsSmallInt;
end;
procedure TContratosCliente_DetallesDataTableRules.SetVISIBLE2Value(const aValue: SmallInt);
begin
DataTable.Fields[idx_ContratosCliente_DetallesVISIBLE2].AsSmallInt := aValue;
end;
function TContratosCliente_DetallesDataTableRules.GetVISIBLE2IsNull: boolean;
begin
result := DataTable.Fields[idx_ContratosCliente_DetallesVISIBLE2].IsNull;
end;
procedure TContratosCliente_DetallesDataTableRules.SetVISIBLE2IsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ContratosCliente_DetallesVISIBLE2].AsVariant := Null;
end;
function TContratosCliente_DetallesDataTableRules.GetVISIBLEValue: SmallInt;
begin
result := DataTable.Fields[idx_ContratosCliente_DetallesVISIBLE].AsSmallInt;
@ -3502,6 +3608,27 @@ begin
DataTable.Fields[idx_ContratosCliente_DetallesVISIBLE].AsVariant := Null;
end;
function TContratosCliente_DetallesDataTableRules.GetVISIBLE2Value: SmallInt;
begin
result := DataTable.Fields[idx_ContratosCliente_DetallesVISIBLE2].AsSmallInt;
end;
procedure TContratosCliente_DetallesDataTableRules.SetVISIBLE2Value(const aValue: SmallInt);
begin
DataTable.Fields[idx_ContratosCliente_DetallesVISIBLE2].AsSmallInt := aValue;
end;
function TContratosCliente_DetallesDataTableRules.GetVISIBLE2IsNull: boolean;
begin
result := DataTable.Fields[idx_ContratosCliente_DetallesVISIBLE2].IsNull;
end;
procedure TContratosCliente_DetallesDataTableRules.SetVISIBLE2IsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ContratosCliente_DetallesVISIBLE2].AsVariant := Null;
end;
function TContratosCliente_DetallesDataTableRules.GetID_ARTICULOValue: Integer;
begin
result := DataTable.Fields[idx_ContratosCliente_DetallesID_ARTICULO].AsInteger;
@ -3544,6 +3671,48 @@ begin
DataTable.Fields[idx_ContratosCliente_DetallesTIPO_ARTICULO].AsVariant := Null;
end;
function TContratosCliente_DetallesDataTableRules.GetINCREMENTOValue: Float;
begin
result := DataTable.Fields[idx_ContratosCliente_DetallesINCREMENTO].AsFloat;
end;
procedure TContratosCliente_DetallesDataTableRules.SetINCREMENTOValue(const aValue: Float);
begin
DataTable.Fields[idx_ContratosCliente_DetallesINCREMENTO].AsFloat := aValue;
end;
function TContratosCliente_DetallesDataTableRules.GetINCREMENTOIsNull: boolean;
begin
result := DataTable.Fields[idx_ContratosCliente_DetallesINCREMENTO].IsNull;
end;
procedure TContratosCliente_DetallesDataTableRules.SetINCREMENTOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ContratosCliente_DetallesINCREMENTO].AsVariant := Null;
end;
function TContratosCliente_DetallesDataTableRules.GetDECREMENTOValue: Float;
begin
result := DataTable.Fields[idx_ContratosCliente_DetallesDECREMENTO].AsFloat;
end;
procedure TContratosCliente_DetallesDataTableRules.SetDECREMENTOValue(const aValue: Float);
begin
DataTable.Fields[idx_ContratosCliente_DetallesDECREMENTO].AsFloat := aValue;
end;
function TContratosCliente_DetallesDataTableRules.GetDECREMENTOIsNull: boolean;
begin
result := DataTable.Fields[idx_ContratosCliente_DetallesDECREMENTO].IsNull;
end;
procedure TContratosCliente_DetallesDataTableRules.SetDECREMENTOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ContratosCliente_DetallesDECREMENTO].AsVariant := Null;
end;
function TContratosCliente_DetallesDataTableRules.GetDESCUENTOValue: Float;
begin
result := DataTable.Fields[idx_ContratosCliente_DetallesDESCUENTO].AsFloat;
@ -3629,6 +3798,123 @@ begin
end;
{ TContratoClienteFacturasProvDataTableRules }
constructor TContratoClienteFacturasProvDataTableRules.Create(aDataTable: TDADataTable);
begin
inherited;
end;
destructor TContratoClienteFacturasProvDataTableRules.Destroy;
begin
inherited;
end;
function TContratoClienteFacturasProvDataTableRules.GetID_CONTRATOValue: Integer;
begin
result := DataTable.Fields[idx_ContratoClienteFacturasProvID_CONTRATO].AsInteger;
end;
procedure TContratoClienteFacturasProvDataTableRules.SetID_CONTRATOValue(const aValue: Integer);
begin
DataTable.Fields[idx_ContratoClienteFacturasProvID_CONTRATO].AsInteger := aValue;
end;
function TContratoClienteFacturasProvDataTableRules.GetID_CONTRATOIsNull: boolean;
begin
result := DataTable.Fields[idx_ContratoClienteFacturasProvID_CONTRATO].IsNull;
end;
procedure TContratoClienteFacturasProvDataTableRules.SetID_CONTRATOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ContratoClienteFacturasProvID_CONTRATO].AsVariant := Null;
end;
function TContratoClienteFacturasProvDataTableRules.GetREFERENCIAValue: String;
begin
result := DataTable.Fields[idx_ContratoClienteFacturasProvREFERENCIA].AsString;
end;
procedure TContratoClienteFacturasProvDataTableRules.SetREFERENCIAValue(const aValue: String);
begin
DataTable.Fields[idx_ContratoClienteFacturasProvREFERENCIA].AsString := aValue;
end;
function TContratoClienteFacturasProvDataTableRules.GetREFERENCIAIsNull: boolean;
begin
result := DataTable.Fields[idx_ContratoClienteFacturasProvREFERENCIA].IsNull;
end;
procedure TContratoClienteFacturasProvDataTableRules.SetREFERENCIAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ContratoClienteFacturasProvREFERENCIA].AsVariant := Null;
end;
function TContratoClienteFacturasProvDataTableRules.GetFECHA_FACTURAValue: DateTime;
begin
result := DataTable.Fields[idx_ContratoClienteFacturasProvFECHA_FACTURA].AsDateTime;
end;
procedure TContratoClienteFacturasProvDataTableRules.SetFECHA_FACTURAValue(const aValue: DateTime);
begin
DataTable.Fields[idx_ContratoClienteFacturasProvFECHA_FACTURA].AsDateTime := aValue;
end;
function TContratoClienteFacturasProvDataTableRules.GetFECHA_FACTURAIsNull: boolean;
begin
result := DataTable.Fields[idx_ContratoClienteFacturasProvFECHA_FACTURA].IsNull;
end;
procedure TContratoClienteFacturasProvDataTableRules.SetFECHA_FACTURAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ContratoClienteFacturasProvFECHA_FACTURA].AsVariant := Null;
end;
function TContratoClienteFacturasProvDataTableRules.GetPROVEEDORValue: String;
begin
result := DataTable.Fields[idx_ContratoClienteFacturasProvPROVEEDOR].AsString;
end;
procedure TContratoClienteFacturasProvDataTableRules.SetPROVEEDORValue(const aValue: String);
begin
DataTable.Fields[idx_ContratoClienteFacturasProvPROVEEDOR].AsString := aValue;
end;
function TContratoClienteFacturasProvDataTableRules.GetPROVEEDORIsNull: boolean;
begin
result := DataTable.Fields[idx_ContratoClienteFacturasProvPROVEEDOR].IsNull;
end;
procedure TContratoClienteFacturasProvDataTableRules.SetPROVEEDORIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ContratoClienteFacturasProvPROVEEDOR].AsVariant := Null;
end;
function TContratoClienteFacturasProvDataTableRules.GetIMPORTEValue: Currency;
begin
result := DataTable.Fields[idx_ContratoClienteFacturasProvIMPORTE].AsCurrency;
end;
procedure TContratoClienteFacturasProvDataTableRules.SetIMPORTEValue(const aValue: Currency);
begin
DataTable.Fields[idx_ContratoClienteFacturasProvIMPORTE].AsCurrency := aValue;
end;
function TContratoClienteFacturasProvDataTableRules.GetIMPORTEIsNull: boolean;
begin
result := DataTable.Fields[idx_ContratoClienteFacturasProvIMPORTE].IsNull;
end;
procedure TContratoClienteFacturasProvDataTableRules.SetIMPORTEIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ContratoClienteFacturasProvIMPORTE].AsVariant := Null;
end;
initialization
RegisterDataTableRules(RID_Valores, TValoresDataTableRules);
RegisterDataTableRules(RID_Propiedades, TPropiedadesDataTableRules);
@ -3637,5 +3923,6 @@ initialization
RegisterDataTableRules(RID_ContratosCliente, TContratosClienteDataTableRules);
RegisterDataTableRules(RID_TiposCapitulos, TTiposCapitulosDataTableRules);
RegisterDataTableRules(RID_ContratosCliente_Detalles, TContratosCliente_DetallesDataTableRules);
RegisterDataTableRules(RID_ContratoClienteFacturasProv, TContratoClienteFacturasProvDataTableRules);
end.

Some files were not shown because too many files have changed in this diff Show More