Version 3.4.0 (multiempresa Cristina)

git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@685 f4e31baf-9722-1c47-927c-6f952f962d4b

Database/udfs/funciones.pas

@@ -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_MESSAGE);
-  ARichEdit := TRichEdit.CreateParented(HWND(-3));  
   try
-    ARichEdit.SelectAll;
+    AStream := TStringStream.Create(Cadena);
-    ARichEdit.SelText := StrPas(Cadena);
+    try
-    Result := PChar(ARichEdit.Text);
+      ARichEdit.SelectAll;
+      ARichEdit.SelText := StrPas(Cadena);
+      Result := PChar(ARichEdit.Text);
+    finally
+       FreeAndNIL(AStream);
+    end;
   finally
-    FreeAndNIL(AStream);
+    FreeAndNIL(ARichEdit);
   end;
 end;
 
 
 
 end.
+
+

Database/udfs/udf_RtfToText.dproj

@@ -24,57 +24,504 @@
     <Borland.Personality>Delphi.Personality</Borland.Personality>
     <Borland.ProjectType />
     <BorlandProject>
-<BorlandProject xmlns=""> <Delphi.Personality>   <Parameters>
+<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>
-      <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>
       
       
       
       
       <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>
+    </Excluded_Packages><Source><Source Name="MainSource">udf_RtfToText.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
-    <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 -->

Source/ApplicationBase/Empresas/Controller/uEmpresasController.pas

@@ -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

Source/ApplicationBase/Empresas/Data/uDataModuleEmpresas.dfm

@@ -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

Source/ApplicationBase/Empresas/Model/schEmpresasClient_Intf.pas

@@ -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_EmpresasTiendas = '{75ED554E-84FB-44E5-ACC7-53A876D86E64}';
-  RID_Empresas = '{AB7C71EF-D2F3-43E3-928E-83E62A65AD60}';
+  RID_Empresas = '{10ABDF2A-085A-421B-ADDE-8819A0E88D80}';
-  RID_EmpresasDatosBanco = '{6B72546D-7B98-462F-849E-EC7C95FE01B8}';
+  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_EmpresasID_FORMA_PAGO_PROVEEDORES = 24;
-  idx_EmpresasNUM_ORDEN = 25;
+  idx_EmpresasVALIDEZ_PRESUPUESTOS = 25;
-  idx_EmpresasID_PERFIL = 26;
+  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;

Source/ApplicationBase/Empresas/Model/schEmpresasServer_Intf.pas

@@ -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_EmpresasTiendasDelta = '{4B58C4F4-2B40-45F7-97CF-A69DE7400EC5}';
-  RID_EmpresasDelta = '{C652CB8F-D35A-4C25-80C6-C18C214FF9F8}';
+  RID_EmpresasDelta = '{1C685D7D-AC4D-43AC-A3B9-95C2B9FA13FB}';
-  RID_EmpresasDatosBancoDelta = '{D8E33A1D-2CF4-408D-A7EE-68711A3EE24F}';
+  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];

Source/ApplicationBase/Empresas/Servidor/srvEmpresas_Impl.dfm

@@ -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' +
+              '_PRESUPUESTOS, ID_FORMA_PAGO_PROVEEDORES)'#10'  VALUES'#10'    (:ID,:NIF' +
-              'L, :CALLE, :POBLACION,'#10'     :PROVINCIA, :CODIGO_POSTAL, :TELEFON' +
+              '_CIF, :NOMBRE, :RAZON_SOCIAL, :CALLE, :POBLACION,'#10'     :PROVINCI' +
-              'O_1, :TELEFONO_2, '#10'     :MOVIL_1, :MOVIL_2, :FAX, :EMAIL_1, :EMA' +
+              'A, :CODIGO_POSTAL, :TELEFONO_1, :TELEFONO_2, '#10'     :MOVIL_1, :MO' +
-              'IL_2, :PAGINA_WEB, '#10'     :NOTAS, :FECHA_ALTA, :FECHA_MODIFICACIO' +
+              'VIL_2, :FAX, :EMAIL_1, :EMAIL_2, :PAGINA_WEB, '#10'     :NOTAS, :FEC' +
-              'N, :USUARIO, '#10'     :LOGOTIPO, :REGISTRO_MERCANTIL, :ID_TIPO_IVA,' +
+              'HA_ALTA, :FECHA_MODIFICACION, :USUARIO, '#10'     :LOGOTIPO, :REGIST' +
-              ' :ID_FORMA_PAGO, '#10'     :VALIDEZ_PRESUPUESTOS)'#10
+              '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 = :' +
+              'VALIDEZ_PRESUPUESTOS = :VALIDEZ_PRESUPUESTOS,'#10'    ID_FORMA_PAGO_' +
-              'OLD_ID)'#10
+              'PROVEEDORES = :ID_FORMA_PAGO_PROVEEDORES'#10'  WHERE'#10'    (ID = :OLD_' +
+              'ID)'#10
             StatementType = stSQL
             ColumnMappings = <>
           end>

Source/ApplicationBase/Empresas/Views/uViewEmpresa.dfm

@@ -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

Source/ApplicationBase/Empresas/Views/uViewEmpresa.pas

@@ -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

Source/Base/Base.dproj

@@ -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>

Source/Base/Controladores/uControllerDetallesBase.pas

@@ -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;
 

Source/Base/Utiles/uCalculosUtils.pas

@@ -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
+    Incremento := 0;
-      ImporteTotal := FieldByName(CAMPO_CANTIDAD).asFloat * FieldByName(CAMPO_IMPORTE_UNIDAD).AsFloat
+    Decremento := 0;
-    else
+    Descuento := 0;
-      ImporteTotal := FieldByName(CAMPO_CANTIDAD).asFloat * (FieldByName(CAMPO_IMPORTE_UNIDAD).AsFloat - (FieldByName(CAMPO_IMPORTE_UNIDAD).AsFloat * (FieldByName(CAMPO_DESCUENTO).AsFloat/100)));
+    ImportePorte := 0;
+    ImporteNeto := FieldByName(CAMPO_IMPORTE_UNIDAD).AsFloat;
 
-    if (VarIsNull(FieldByName(CAMPO_IMPORTE_PORTE).AsVariant)) then
+    //Validamos la existencia del campo incremento, por si no está activo en otros módulos que no sean (presupuestos y contratos)
-      ImporteTotal := ImporteTotal
+    AField := FindField(CAMPO_INCREMENTO);
-    else
+    if Assigned(AField) then
-      ImporteTotal := ImporteTotal + (FieldByName(CAMPO_CANTIDAD).asFloat * FieldByName(CAMPO_IMPORTE_PORTE).AsFloat);
+    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;

Source/Cliente/FactuGES.dpr

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

Source/Cliente/FactuGES.dproj

@@ -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

Source/Cliente/FactuGES.rc

@@ -1,7 +1,7 @@
 MAINICON ICON "C:\Codigo Acana\Resources\Iconos\Factuges.ico"
 1 VERSIONINFO
-FILEVERSION 3,0,0,0
+FILEVERSION 3,4,0,0
-PRODUCTVERSION 3,0,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"

Source/GUIBase/GUIBase.dproj

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

Source/GUIBase/uViewDetallesBase.dfm

@@ -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

Source/GUIBase/uViewDetallesBase.pas

@@ -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)

Source/GUIBase/uViewDetallesDTO.dfm

@@ -24,15 +24,31 @@ inherited frViewDetallesDTO: TfrViewDetallesDTO
   end
   inherited cxGrid: TcxGrid
     inherited cxGridView: TcxGridDBTableView
-      object cxGridViewDESCUENTO: TcxGridDBColumn [6]
+      object cxGridViewINCREMENTO: TcxGridDBColumn [6]
-        Caption = 'Dto'
+        Caption = 'Incremento'
-        DataBinding.FieldName = 'DESCUENTO'
         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

Source/GUIBase/uViewDetallesDTO.pas

@@ -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
+  begin
-        ImporteNeto := ARecord.Values[cxGridViewIMPORTEUNIDAD.Index] - ((ARecord.Values[cxGridViewIMPORTEUNIDAD.Index] * ARecord.Values[cxGridViewDESCUENTO.Index])/100)
+     ImporteNeto := ARecord.Values[cxGridViewIMPORTEUNIDAD.Index];
-     else
+
-        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;
+     ImporteNeto := ARecord.Values[cxGridViewIMPORTEUNIDAD.Index];
-    Controller.ActualizarTotales(Detalles);
+
+     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.

Source/Modulos/Albaranes de cliente/Views/uViewAlbaranCliente.dfm

@@ -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

Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.dfm

@@ -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
+        Width = 555
-      end
-      object cxGridViewREF_PEDIDO: TcxGridDBColumn
-        DataBinding.FieldName = 'REF_PEDIDO'
-        Visible = False
-        BestFitMaxWidth = 45
-        VisibleForCustomization = False
-        Width = 39
       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

Source/Modulos/Albaranes de cliente/Views/uViewDetallesAlbaranCliente.dfm

@@ -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

Source/Modulos/Albaranes de proveedor/AlbaranesProveedor_Group.groupproj

@@ -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>

Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorController.pas

@@ -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 (ID_PEDIDO: Integer; ADetallesPedido: IBizDetallesPedidoProveedor; ADetallesDestino: IBizDetallesAlbaranProveedor);
-procedure CopiarArticulosAAlbaran(APedido: IBizPedidoProveedor; AAlbaran: IBizAlbaranProveedor;
+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;

Source/Modulos/Albaranes de proveedor/Data/uDataModuleAlbaranesProveedor.dfm

@@ -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

Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorClient_Intf.pas

@@ -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 = '{8BE31A69-3F96-4428-A51C-774590E24FA1}';
-  RID_AlbaranesProveedor_Detalles = '{D33B5B6F-E114-4A97-B524-94872D62277C}';
+  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);

Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorServer_Intf.pas

@@ -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_AlbaranesProveedorDelta = '{77DA50AC-7040-4020-9694-EC017C25527D}';
-  RID_AlbaranesProveedor_DetallesDelta = '{EC66A666-6CC9-4784-ABF0-3B63D981C24E}';
+  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);

Source/Modulos/Albaranes de proveedor/Model/uBizAlbaranesProveedor.pas

@@ -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

Source/Modulos/Albaranes de proveedor/Plugin/uPluginAlbaranesProveedor.dfm

@@ -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

Source/Modulos/Albaranes de proveedor/Servidor/srvAlbaranesProveedor_Impl.dfm

@@ -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' +
+              's REFERENCIA_PROVEEDOR,'#10'    ALBARANES_PROVEEDOR_DETALLES.ID_PEDI' +
-              'OIN ARTICULOS ON ALBARANES_PROVEEDOR_DETALLES.ID_ARTICULO = ARTI' +
+              'DO'#10#10'FROM ALBARANES_PROVEEDOR_DETALLES'#10'LEFT JOIN ARTICULOS ON ALB' +
-              'CULOS.ID'#10'WHERE {where}'#10'ORDER BY POSICION;'#10
+              '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' +
+              'RTE, ID_PEDIDO)'#10'  VALUES'#10'    (:CANTIDAD, :POSICION, :ID, :TIPO_D' +
-              'NCEPTO,'#10'     :IMPORTE_UNIDAD, :IMPORTE_TOTAL, :VISIBLE, :ID_ALBA' +
+              'ETALLE, :CONCEPTO,'#10'     :IMPORTE_UNIDAD, :IMPORTE_TOTAL, :VISIBL' +
-              'RAN,'#10'     :ID_ARTICULO, :DESCUENTO, :IMPORTE_PORTE)'#10
+              '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

Source/Modulos/Albaranes de proveedor/Views/AlbaranesProveedor_view.dproj

@@ -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="..\..\Lib\AlbaranesProveedor_controller.dcp" />
-    <DCCReference Include="..\AlbaranesProveedor_model.dcp" />
+    <DCCReference Include="..\..\Lib\AlbaranesProveedor_model.dcp" />
-    <DCCReference Include="..\Almacenes_controller.dcp" />
+    <DCCReference Include="..\..\Lib\Almacenes_controller.dcp" />
-    <DCCReference Include="..\Almacenes_model.dcp" />
+    <DCCReference Include="..\..\Lib\Almacenes_model.dcp" />
-    <DCCReference Include="..\Articulos_view.dcp" />
+    <DCCReference Include="..\..\Lib\Articulos_view.dcp" />
-    <DCCReference Include="..\GUIBase.dcp" />
+    <DCCReference Include="..\..\Lib\GUIBase.dcp" />
+    <DCCReference Include="..\..\Lib\PedProv_AlbProv_relation.dcp" />
     <DCCReference Include="uAlbaranesProveedorViewRegister.pas" />
     <DCCReference Include="uEditorAlbaranDevProveedor.pas">
       <Form>fEditorAlbaranDevProveedor</Form>

Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesProveedor.dfm

@@ -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

Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesProveedor.pas

@@ -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

Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranProveedor.dfm

@@ -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

Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranesProveedor.dfm

@@ -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

Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranesProveedor.pas

@@ -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;

Source/Modulos/Almacenes/Almacenes_Group.groupproj

@@ -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>

Source/Modulos/Almacenes/Controller/Almacenes_controller.dproj

@@ -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>
+<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>
-      <Parameters Name="UseLauncher">False</Parameters>
-      <Parameters Name="LoadAllSymbols">True</Parameters>
-      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
-    </Parameters>
-    <Package_Options>
-      <Package_Options Name="ImplicitBuild">True</Package_Options>
-      <Package_Options Name="DesigntimeOnly">False</Package_Options>
-      <Package_Options Name="RuntimeOnly">False</Package_Options>
-    </Package_Options>
-    <VersionInfo>
-      <VersionInfo Name="IncludeVerInfo">True</VersionInfo>
-      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
-      <VersionInfo Name="MajorVer">1</VersionInfo>
-      <VersionInfo Name="MinorVer">0</VersionInfo>
-      <VersionInfo Name="Release">0</VersionInfo>
-      <VersionInfo Name="Build">0</VersionInfo>
-      <VersionInfo Name="Debug">False</VersionInfo>
-      <VersionInfo Name="PreRelease">False</VersionInfo>
-      <VersionInfo Name="Special">False</VersionInfo>
-      <VersionInfo Name="Private">False</VersionInfo>
-      <VersionInfo Name="DLL">False</VersionInfo>
-      <VersionInfo Name="Locale">3082</VersionInfo>
-      <VersionInfo Name="CodePage">1252</VersionInfo>
-    </VersionInfo>
-    <VersionInfoKeys>
-      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
-      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
-      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
-      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
-      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
-      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
-      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
-      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
-      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
-      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
-    </VersionInfoKeys>
-    <Source>
-      <Source Name="MainSource">Almacenes_controller.dpk</Source>
-    </Source>
-  </Delphi.Personality> </BorlandProject></BorlandProject>
   </ProjectExtensions>
   <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
   <ItemGroup>
     <DelphiCompile Include="Almacenes_controller.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\..\..\Lib\Almacenes_data.dcp" />
-    <DCCReference Include="..\..\..\Lib\Almacenes_model.dcp" />
-    <DCCReference Include="..\..\..\Lib\ApplicationBase.dcp" />
-    <DCCReference Include="..\..\..\Lib\GUIBase.dcp" />
     <DCCReference Include="uAlmacenesController.pas" />
+    <DCCReference Include="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

Source/Modulos/Almacenes/Controller/View/uIEditorUbicacionesAlmacen.pas

@@ -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.

Source/Modulos/Almacenes/Controller/uUbicacionesAlmacenController.pas

@@ -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.

Source/Modulos/Almacenes/Data/Almacenes_data.dproj

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

Source/Modulos/Almacenes/Data/uDataModuleAlmacenes.dfm

@@ -1,7 +1,7 @@
 inherited DataModuleAlmacenes: TDataModuleAlmacenes
   OnCreate = DAClientDataModuleCreate
-  Height = 234
+  Height = 265
-  Width = 300
+  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

Source/Modulos/Almacenes/Data/uDataModuleAlmacenes.pas

@@ -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.

Source/Modulos/Almacenes/Model/Almacenes_model.dproj

@@ -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="adortl.dcp" />
-    <DCCReference Include="..\..\..\GUIBase\Base.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

Source/Modulos/Almacenes/Model/Data/uIDataModuleAlmacenes.pas

@@ -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

Source/Modulos/Almacenes/Model/Data/uIDataModuleUbicacionesAlmacen.pas

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

Source/Modulos/Almacenes/Model/schAlmacenesClient_Intf.pas

@@ -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.

Source/Modulos/Almacenes/Model/schAlmacenesServer_Intf.pas

@@ -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.

Source/Modulos/Almacenes/Model/uBizUbicacionesAlmacen.pas

@@ -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.
+

Source/Modulos/Almacenes/Plugin/uPluginAlmacenes.dfm

@@ -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

Source/Modulos/Almacenes/Plugin/uPluginAlmacenes.pas

@@ -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;

Source/Modulos/Almacenes/Servidor/srvAlmacenes_Impl.dfm

@@ -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 = <

Source/Modulos/Almacenes/Views/Almacenes_view.dproj

@@ -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="adortl.dcp" />
-    <DCCReference Include="..\Almacenes_model.dcp" />
+    <DCCReference Include="Almacenes_controller.dcp" />
-    <DCCReference Include="..\ApplicationBase.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

Source/Modulos/Almacenes/Views/uAlmacenesViewRegister.pas

@@ -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.

Source/Modulos/Almacenes/Views/uEditorUbicacionesAlmacen.dfm

@@ -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

Source/Modulos/Almacenes/Views/uEditorUbicacionesAlmacen.pas

@@ -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.

Source/Modulos/Articulos/Controller/uArticulosController.pas

@@ -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;

Source/Modulos/Articulos/Data/uDataModuleArticulos.dfm

@@ -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

Source/Modulos/Articulos/Data/uDataModuleArticulos.pas

@@ -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.

Source/Modulos/Articulos/Model/Data/uIDataModuleArticulos.pas

@@ -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;

Source/Modulos/Articulos/Model/schArticulosClient_Intf.pas

@@ -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_ExisteImagen = '{6C2F7E0E-E90A-4B6C-8533-E31599B007B4}';
-  RID_Articulos = '{2149AC69-F867-42DA-8AED-68F469111FD5}';
+  RID_Articulos = '{AA24A4FF-2391-46FE-8233-F324AF19B184}';
-  RID_ArticulosParaCliente = '{E4F0E298-DAFE-4330-B4DD-3C04505B273A}';
+  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.

Source/Modulos/Articulos/Model/schArticulosServer_Intf.pas

@@ -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_ExisteImagenDelta = '{B5A896BC-5ED5-4B7B-9396-00A8DB188F84}';
-  RID_ArticulosDelta = '{D24AF9A2-3AED-4094-B870-1F3DBA7677F8}';
+  RID_ArticulosDelta = '{1BECC0A2-1504-4295-854F-19BE88F4B763}';
-  RID_ArticulosParaClienteDelta = '{2EAA9D80-3FE0-45F6-A1E2-A725762EE394}';
+  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.

Source/Modulos/Articulos/Model/uBizArticulos.pas

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

Source/Modulos/Articulos/Servidor/srvArticulos_Impl.dfm

@@ -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 = <>

Source/Modulos/Articulos/Views/Articulos_view.dproj

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

Source/Modulos/Articulos/Views/uEditorArticulo.dfm

@@ -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

Source/Modulos/Articulos/Views/uEditorArticulo.pas

@@ -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

Source/Modulos/Articulos/Views/uEditorArticulos.pas

@@ -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

Source/Modulos/Articulos/Views/uEditorElegirArticulos.dfm

@@ -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
+      ExplicitWidth = 266
-      ExplicitHeight = 31
-      inherited TBXItem2: TTBXItem
-        Visible = False
-      end
-      inherited TBXItem5: TTBXItem
-        Visible = False
-      end
       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
+      Left = 266
-      Top = 29
+      Top = 23
       Align = alLeft
       DockPos = 101
       DockRow = 1
-      ExplicitLeft = 336
+      ExplicitLeft = 266
-      ExplicitTop = 29
+      ExplicitTop = 23
       inherited TBXItem34: TTBXItem
         Action = actQuitarFiltro2
       end
@@ -61,12 +58,12 @@ inherited fEditorElegirArticulos: TfEditorElegirArticulos
       ExplicitWidth = 656
     end
     inherited TBXTMain2: TTBXToolbar
-      Left = 620
+      Left = 536
-      Top = 29
+      Top = 23
       DockPos = 536
       DockRow = 1
-      ExplicitLeft = 620
+      ExplicitLeft = 536
-      ExplicitTop = 29
+      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
+      Width = 581
-      Height = 13
+      Height = 27
       Margins.Left = 25
       Margins.Top = 0
       Margins.Right = 0
       Align = alClient
+      ExplicitWidth = 3
+      ExplicitHeight = 13
     end
   end
   inherited EditorActionList: TActionList [5]

Source/Modulos/Articulos/Views/uEditorElegirArticulos.pas

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

Source/Modulos/Articulos/Views/uViewArticulo.dfm

@@ -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 (%):'
+            Caption = 'Margen (%):'
-            Visible = False
             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

Source/Modulos/Articulos/Views/uViewArticulo.pas

@@ -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;
+  ActivarEventos;
-  eDescuento.Properties.OnEditValueChanged := PrecioNetoChanged;
+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);

Source/Modulos/Articulos/Views/uViewArticulos.dfm

@@ -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

Source/Modulos/Articulos/Views/uViewDetallesArticulos.dfm

@@ -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

Source/Modulos/Articulos/Views/uViewDetallesArticulos.pas

@@ -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)

Source/Modulos/Contactos/Views/Contactos_view.dproj

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

Source/Modulos/Contratos de cliente/ContratosCliente_Group.groupproj

@@ -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>

Source/Modulos/Contratos de cliente/Controller/ContratosCliente_controller.dproj

@@ -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" />

Source/Modulos/Contratos de cliente/Controller/View/uIEditorContratoClienteBeneficio.pas

@@ -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.

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

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

Source/Modulos/Contratos de cliente/Controller/uContratosClienteController.pas

@@ -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;
 

Source/Modulos/Contratos de cliente/Data/ContratosCliente_data.dproj

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

Source/Modulos/Contratos de cliente/Data/uDataModuleContratosCliente.dfm

@@ -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

Source/Modulos/Contratos de cliente/Data/uDataModuleContratosCliente.pas

@@ -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;

Source/Modulos/Contratos de cliente/Model/Data/uIDataModuleContratosCliente.pas

@@ -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

Source/Modulos/Contratos de cliente/Model/schContratosClienteClient_Intf.pas

@@ -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_Valores = '{1F8FAC37-39BC-425B-869E-D00044F46C40}';
-  RID_Propiedades = '{FD279174-BDCF-4C6E-86A5-9EF688F8A386}';
+  RID_Propiedades = '{C52F161B-7E4D-439F-A7B0-4355A49B19D8}';
-  RID_ListaAnosContratos = '{995B8113-D69E-45F6-B0C6-279DE92E8AE1}';
+  RID_ListaAnosContratos = '{E0ABAABD-055B-4CC8-BEFE-3C1467805F3C}';
-  RID_ContratosClienteBeneficios = '{AADFE498-8072-4F5F-84FD-7BDAE2D03E88}';
+  RID_ContratosClienteBeneficios = '{DBCDA21A-E1E9-42E0-882B-0577032A67F7}';
-  RID_ContratosCliente = '{6BBAF32D-E3F6-4C2F-BB50-EEB0BABCE782}';
+  RID_ContratosCliente = '{6D1A8DFF-AAD7-4FFF-AB0F-2F7E3AD610C5}';
-  RID_TiposCapitulos = '{4355D117-B641-4CF9-99AC-17558CB0C354}';
+  RID_TiposCapitulos = '{4C6A9D25-3499-4F39-9C50-0D4EF43F8F15}';
-  RID_ContratosCliente_Detalles = '{02F28C43-5EC9-4A4F-A2BC-CD4BF581ED0B}';
+  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 = 9;
-  idx_ContratosCliente_DetallesVISIBLE = 10;
+  idx_ContratosCliente_DetallesVISIBLE2 = 10;
   idx_ContratosCliente_DetallesID_ARTICULO = 11;
   idx_ContratosCliente_DetallesTIPO_ARTICULO = 12;
-  idx_ContratosCliente_DetallesDESCUENTO = 13;
+  idx_ContratosCliente_DetallesINCREMENTO = 13;
-  idx_ContratosCliente_DetallesIMPORTE_PORTE = 14;
+  idx_ContratosCliente_DetallesDECREMENTO = 14;
-  idx_ContratosCliente_DetallesREFERENCIA = 15;
+  idx_ContratosCliente_DetallesDESCUENTO = 15;
-  idx_ContratosCliente_DetallesREFERENCIA_PROVEEDOR = 16;
+  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.