Se repasa poder imprimir documento sin entrar en él, desde la propia lista de xxxx

git-svn-id: https://192.168.0.254/svn/Proyectos.AlonsoYSal_FactuGES/trunk@32 9a1d36f3-7752-2d40-8ccb-50eb49674c68

Base/BaseD7.dof

@@ -199,3 +199,486 @@ Item2=..\..\Output\Cliente
 [HistoryLists\hlDCPOutput]
 Count=1
 Item0=.\
+[Exception Log]
+EurekaLog Version=6006
+Activate=0
+Activate Handle=1
+Save Log File=1
+Foreground Tab=0
+Freeze Activate=0
+Freeze Timeout=0
+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
+
+

Base/uBizInformesBase.pas

@@ -5,8 +5,8 @@ interface
 type
   IBizInformesAware = interface
   ['{98AD6541-199F-4155-B394-ED0316298759}']
-    procedure Preview;
+    procedure Preview; overload;
-    procedure Print;
+    procedure Print; overload;
   end;
 
 implementation

Base/uDataModuleBase.dfm

@@ -1,8 +1,8 @@
 object dmBase: TdmBase
   OldCreateOrder = True
   OnCreate = DAClientDataModuleCreate
-  Left = 996
+  Left = 997
-  Top = 255
+  Top = 256
   Height = 368
   Width = 494
   object SmallImages: TPngImageList

Base/uEditorBase.dfm

@@ -1,6 +1,6 @@
 object fEditorBase: TfEditorBase
-  Left = 664
+  Left = 665
-  Top = 312
+  Top = 313
   Width = 670
   Height = 512
   Caption = 'EditorBase'

Base/uEditorDBBase.dfm

@@ -1,5 +1,5 @@
 inherited fEditorDBBase: TfEditorDBBase
-  Left = 583
+  Left = 584
   Caption = 'fEditorDBBase'
   PixelsPerInch = 96
   TextHeight = 13

Base/uEditorGrid.dfm

@@ -1,6 +1,6 @@
 inherited fEditorGrid: TfEditorGrid
-  Left = 581
+  Left = 582
-  Top = 224
+  Top = 225
   Width = 714
   Height = 485
   Caption = 'fEditorGrid'
@@ -29,13 +29,21 @@ inherited fEditorGrid: TfEditorGrid
         Action = actDuplicar
         DisplayMode = nbdmImageAndText
       end
+      object TBXItem41: TTBXItem [9]
+        Action = actPrevisualizarDocumento
+        DisplayMode = nbdmImageAndText
+      end
+      object TBXItem42: TTBXItem [13]
+        Action = actImprimirDocumento
+        DisplayMode = nbdmImageAndText
+      end
       inherited TBXItem26: TTBXItem
         Visible = False
       end
       inherited TBXItem25: TTBXItem
         Visible = False
       end
-      object TBXItem35: TTBXItem [16]
+      object TBXItem35: TTBXItem [18]
         Action = actAnchoAuto
       end
       inherited TBXItem28: TTBXItem
@@ -116,11 +124,27 @@ inherited fEditorGrid: TfEditorGrid
       OnExecute = actConfPaginaExecute
     end
     inherited actPrevisualizar: TAction
+      Caption = 'Previsualizar &lista actual'
       OnExecute = actPrevisualizarExecute
     end
+    object actPrevisualizarDocumento: TAction [7]
+      Category = 'Archivo'
+      Caption = '&Previsualizar Documento'
+      ImageIndex = 6
+      OnExecute = actPrevisualizarDocumentoExecute
+      OnUpdate = actPrevisualizarDocumentoUpdate
+    end
     inherited actImprimir: TAction
+      Caption = 'Imprimir &lista actual'
       OnExecute = actImprimirExecute
     end
+    object actImprimirDocumento: TAction [11]
+      Category = 'Archivo'
+      Caption = '&Imprimir documento'
+      ImageIndex = 7
+      OnExecute = actImprimirDocumentoExecute
+      OnUpdate = actImprimirDocumentoUpdate
+    end
     inherited actCerrar: TAction
       Enabled = False
     end

Base/uEditorGrid.pas

@@ -44,11 +44,13 @@ type
     lblAno: TTBXLabelItem;
     cbxListaAnos: TTBXComboBoxItem;
     sepAno: TTBXSeparatorItem;
+    actPrevisualizarDocumento: TAction;
+    TBXItem41: TTBXItem;
+    actImprimirDocumento: TAction;
+    TBXItem42: TTBXItem;
     procedure tbxEditFiltroChange(Sender: TObject; const Text: String);
     procedure FormShow(Sender: TObject);
-    procedure actPrevisualizarExecute(Sender: TObject);
     procedure actConfPaginaExecute(Sender: TObject);
-    procedure actImprimirExecute(Sender: TObject);
     procedure actQuitarFiltroExecute(Sender: TObject);
     procedure actModificarExecute(Sender: TObject);
     procedure actEliminarExecute(Sender: TObject);
@@ -60,6 +62,15 @@ type
     procedure actAnchoAutoExecute(Sender: TObject);
     procedure actFiltrarExecute(Sender: TObject);
     procedure actFiltrarUpdate(Sender: TObject);
+
+    procedure actPrevisualizarExecute(Sender: TObject);
+    procedure actPrevisualizarDocumentoExecute(Sender: TObject);
+    procedure actPrevisualizarDocumentoUpdate(Sender: TObject);
+
+    procedure actImprimirExecute(Sender: TObject);
+    procedure actImprimirDocumentoExecute(Sender: TObject);
+    procedure actImprimirDocumentoUpdate(Sender: TObject);
+
   private
     FListaAnos: TStringList;
     FViewGrid : IViewGrid;
@@ -87,7 +98,7 @@ type
 implementation
 
 uses
-  uDataModuleBase, uCustomEditor, cxGridTableView;
+  uDataModuleBase, uCustomEditor, cxGridTableView, uBizInformesBase;
 
 {$R *.dfm}
 
@@ -311,6 +322,52 @@ begin
   FWhereDataTable := Value;
 end;
 
+procedure TfEditorGrid.actPrevisualizarDocumentoExecute(Sender: TObject);
+var
+  aInf : IBizInformesAware;
+
+begin
+  inherited;
+  ViewGrid.SyncFocusedRecordsFromGrid;
+
+  if Assigned(dsDataTable.DataTable) and
+    Supports(dsDataTable.DataTable, IBizInformesAware, aInf) then
+    aInf.Preview;
+end;
+
+procedure TfEditorGrid.actPrevisualizarDocumentoUpdate(Sender: TObject);
+begin
+  inherited;
+  if Assigned(dsDataTable.DataTable) then
+    (Sender as TAction).Enabled := (not dsDataTable.DataTable.IsEmpty)
+      and not (dsDataTable.DataTable.State = dsInsert)
+  else
+    (Sender as TAction).Enabled := False;
+end;
+
+procedure TfEditorGrid.actImprimirDocumentoExecute(Sender: TObject);
+var
+  aInf : IBizInformesAware;
+
+begin
+  inherited;
+  ViewGrid.SyncFocusedRecordsFromGrid;
+
+  if Assigned(dsDataTable.DataTable) and
+    Supports(dsDataTable.DataTable, IBizInformesAware, aInf) then
+    aInf.Print;
+end;
+
+procedure TfEditorGrid.actImprimirDocumentoUpdate(Sender: TObject);
+begin
+  inherited;
+  if Assigned(dsDataTable.DataTable) then
+    (Sender as TAction).Enabled := (not dsDataTable.DataTable.IsEmpty)
+      and not (dsDataTable.DataTable.State = dsInsert)
+  else
+    (Sender as TAction).Enabled := False;
+end;
+
 initialization
   RegisterClass(TfEditorGrid);
 

Base/uEditorPreview.dfm

@@ -1,6 +1,6 @@
 inherited fEditorPreview: TfEditorPreview
-  Left = 248
+  Left = 249
-  Top = 277
+  Top = 278
   Caption = 'Previsualizar'
   WindowState = wsMaximized
   OnDestroy = FormDestroy

Base/uViewTotales.dfm

@@ -122,6 +122,7 @@ inherited frViewTotales: TfrViewTotales
         Style.Font.Style = []
         Style.LookAndFeel.NativeStyle = True
         Style.TextColor = clWindowText
+        Style.IsFontAssigned = True
         StyleDisabled.LookAndFeel.NativeStyle = True
         StyleDisabled.TextColor = clWindowText
         StyleFocused.LookAndFeel.NativeStyle = True
@@ -149,6 +150,7 @@ inherited frViewTotales: TfrViewTotales
         Style.Font.Style = []
         Style.LookAndFeel.NativeStyle = True
         Style.TextColor = clWindowText
+        Style.IsFontAssigned = True
         StyleDisabled.LookAndFeel.NativeStyle = True
         StyleDisabled.TextColor = clWindowText
         StyleFocused.LookAndFeel.NativeStyle = True
@@ -176,6 +178,7 @@ inherited frViewTotales: TfrViewTotales
         Style.Font.Style = []
         Style.LookAndFeel.NativeStyle = True
         Style.TextColor = clWindowText
+        Style.IsFontAssigned = True
         StyleDisabled.LookAndFeel.NativeStyle = True
         StyleDisabled.TextColor = clWindowText
         StyleFocused.LookAndFeel.NativeStyle = True
@@ -204,6 +207,7 @@ inherited frViewTotales: TfrViewTotales
         Style.LookAndFeel.NativeStyle = True
         Style.TextColor = clActiveCaption
         Style.TextStyle = [fsBold]
+        Style.IsFontAssigned = True
         StyleDisabled.LookAndFeel.NativeStyle = True
         StyleDisabled.TextColor = clWindowText
         StyleFocused.LookAndFeel.NativeStyle = True
@@ -230,6 +234,7 @@ inherited frViewTotales: TfrViewTotales
         Style.Font.Style = []
         Style.LookAndFeel.NativeStyle = True
         Style.TextColor = clWindowText
+        Style.IsFontAssigned = True
         StyleDisabled.LookAndFeel.NativeStyle = True
         StyleFocused.LookAndFeel.NativeStyle = True
         StyleHot.LookAndFeel.NativeStyle = True
@@ -256,6 +261,7 @@ inherited frViewTotales: TfrViewTotales
         Style.Font.Style = []
         Style.LookAndFeel.NativeStyle = True
         Style.TextColor = clWindowText
+        Style.IsFontAssigned = True
         StyleDisabled.LookAndFeel.NativeStyle = True
         StyleFocused.LookAndFeel.NativeStyle = True
         StyleHot.LookAndFeel.NativeStyle = True

Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.dfm

@@ -6,8 +6,8 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
   ConnectionName = 'IBX'
   ServiceSchema = schAlbaranesCliente
   ServiceAdapter = DABINAdapter
-  Left = 680
+  Left = 681
-  Top = 306
+  Top = 308
   Height = 463
   Width = 347
   object schAlbaranesCliente: TDASchema

Modulos/Almacenes/Cliente/uEditorAlmacenes.dfm

@@ -30,7 +30,6 @@ inherited fEditorAlmacenes: TfEditorAlmacenes
   end
   inherited TBXDock: TTBXDock
     inherited tbxFiltro: TTBXToolbar
-      Left = 411
       inherited tbxEditFiltro: TTBXEditItem
         EditOptions = [tboUseEditWhenVertical]
       end
@@ -42,7 +41,7 @@ inherited fEditorAlmacenes: TfEditorAlmacenes
   inline frViewBarraSeleccion: TfrViewBarraSeleccion [3]
     Left = 0
     Top = 395
-    Width = 885
+    Width = 706
     Height = 37
     Align = alBottom
     AutoScroll = False
@@ -57,7 +56,7 @@ inherited fEditorAlmacenes: TfEditorAlmacenes
     ReadOnly = False
     inherited pnlSeleccion: TPanel
       Top = 0
-      Width = 885
+      Width = 706
       inherited bSeleccionar: TButton
         Left = 550
       end
@@ -76,6 +75,14 @@ inherited fEditorAlmacenes: TfEditorAlmacenes
       ImageIndex = 22
       OnExecute = actNuevoExecute
     end
+    inherited actPrevisualizarDocumento: TAction
+      Enabled = False
+      Visible = False
+    end
+    inherited actImprimirDocumento: TAction
+      Enabled = False
+      Visible = False
+    end
     inherited actDuplicar: TAction
       Visible = False
     end

Modulos/Almacenes/Servidor/srvAlmacenes_Impl.dfm

@@ -6,8 +6,8 @@ object srvAlmacenes: TsrvAlmacenes
   ConnectionName = 'IBX'
   ServiceSchema = schAlmacenes
   ServiceAdapter = DABINAdapter
-  Left = 331
+  Left = 332
-  Top = 245
+  Top = 246
   Height = 300
   Width = 300
   object schAlmacenes: TDASchema

Modulos/Articulos/Cliente/uEditorArticulosAlmacen.dfm

@@ -54,7 +54,6 @@ inherited fEditorArticulosAlmacen: TfEditorArticulosAlmacen
       end
     end
     inherited tbxFiltro: TTBXToolbar
-      Left = 655
       inherited TBXItem37: TTBXItem
         Visible = False
       end
@@ -63,7 +62,7 @@ inherited fEditorArticulosAlmacen: TfEditorArticulosAlmacen
   inline frViewBarraSeleccion: TfrViewBarraSeleccion [3]
     Left = 0
     Top = 395
-    Width = 885
+    Width = 706
     Height = 37
     Align = alBottom
     AutoScroll = False
@@ -78,7 +77,7 @@ inherited fEditorArticulosAlmacen: TfEditorArticulosAlmacen
     ReadOnly = False
     inherited pnlSeleccion: TPanel
       Top = 0
-      Width = 885
+      Width = 706
       inherited bSeleccionar: TButton
         Left = 536
       end
@@ -108,6 +107,14 @@ inherited fEditorArticulosAlmacen: TfEditorArticulosAlmacen
       Caption = 'Salida'
       ImageIndex = 22
     end
+    inherited actPrevisualizarDocumento: TAction
+      Enabled = False
+      Visible = False
+    end
+    inherited actImprimirDocumento: TAction
+      Enabled = False
+      Visible = False
+    end
     inherited actDuplicar: TAction
       Visible = False
     end

Modulos/Articulos/Cliente/uEditorEntradaArticulos.dfm

@@ -13,8 +13,8 @@ inherited fEditorEntradaArticulos: TfEditorEntradaArticulos
       inline frViewListaArticulos: TfrViewListaArticulos
         Left = 0
         Top = 117
-        Width = 658
+        Width = 654
-        Height = 242
+        Height = 238
         Align = alClient
         Font.Charset = DEFAULT_CHARSET
         Font.Color = clWindowText
@@ -25,8 +25,8 @@ inherited fEditorEntradaArticulos: TfEditorEntradaArticulos
         TabOrder = 0
         ReadOnly = False
         inherited cxGrid: TcxGrid
-          Width = 658
+          Width = 654
-          Height = 217
+          Height = 213
           inherited cxGridView: TcxGridDBTableView
             OptionsCustomize.ColumnSorting = True
             inherited cxGridViewCODIGOALMACEN: TcxGridDBColumn
@@ -41,13 +41,13 @@ inherited fEditorEntradaArticulos: TfEditorEntradaArticulos
           end
         end
         inherited ToolBar1: TToolBar
-          Width = 658
+          Width = 654
         end
       end
       inline frViewDatosPedido: TfrViewDatosPedido
         Left = 0
         Top = 0
-        Width = 658
+        Width = 654
         Height = 117
         Align = alTop
         Font.Charset = DEFAULT_CHARSET

Modulos/Articulos/Cliente/uEditorEntradaArticulos.pas

@@ -9,7 +9,8 @@ uses
   PngImageList, StdActns, ActnList, ComCtrls, TBX, TB2Item, TB2Dock,
   TB2Toolbar, ExtCtrls, JvExControls, JvNavigationPane, uCustomView,
   uViewBase, uViewContenido, uViewListaArticulos, uBizArticulos,
-  uEditorItem, pngimage, uViewDetallesNormales, uViewDatosPedido;
+  uEditorItem, pngimage, uViewDetallesNormales, uViewDatosPedido,
+  JvComponentBase;
 
 type
   TfEditorEntradaArticulos = class(TfEditorDBItem)

Modulos/Articulos/Servidor/srvArticulos_Impl.dfm

@@ -5,8 +5,8 @@ object srvArticulos: TsrvArticulos
   ConnectionName = 'IBX'
   ServiceSchema = schArticulos
   ServiceAdapter = DABINAdapter
-  Left = 739
+  Left = 740
-  Top = 274
+  Top = 275
   Height = 300
   Width = 300
   object schArticulos: TDASchema

Modulos/Asientos/Servidor/srvAsientos_Impl.dfm

@@ -6,8 +6,8 @@ object srvAsientos: TsrvAsientos
   ConnectionName = 'IBX'
   ServiceSchema = schAsientos
   ServiceAdapter = DABINAdapter
-  Left = 842
+  Left = 843
-  Top = 205
+  Top = 206
   Height = 300
   Width = 300
   object schAsientos: TDASchema

Modulos/Calendarios/Servidor/srvCitas_Impl.dfm

@@ -6,8 +6,8 @@ object srvCitas: TsrvCitas
   ConnectionName = 'IBX'
   ServiceSchema = schCitas
   ServiceAdapter = DABINAdapter
-  Left = 825
+  Left = 826
-  Top = 250
+  Top = 252
   Height = 184
   Width = 245
   object schCitas: TDASchema

Modulos/Contactos/Cliente/uEditorClientes.dfm

@@ -45,6 +45,16 @@ inherited fEditorClientes: TfEditorClientes
   end
   inherited TBXDock: TTBXDock
     Width = 685
+    inherited tbxMain: TTBXToolbar
+      inherited TBXItem41: TTBXItem
+        Enabled = False
+        Visible = False
+      end
+      inherited TBXItem42: TTBXItem
+        Enabled = False
+        Visible = False
+      end
+    end
   end
   inherited StatusBar: TStatusBar
     Width = 685

Modulos/Contactos/Cliente/uEditorInstaladores.dfm

@@ -40,11 +40,6 @@ inherited fEditorInstaladores: TfEditorInstaladores
         6FAF6B45FE0D6316680000000049454E44AE426082}
     end
   end
-  inherited TBXDock: TTBXDock
-    inherited tbxFiltro: TTBXToolbar
-      Left = 411
-    end
-  end
   inherited frViewBarraSeleccion: TfrViewBarraSeleccion
     inherited pnlSeleccion: TPanel
       inherited bSeleccionar: TButton
@@ -61,6 +56,14 @@ inherited fEditorInstaladores: TfEditorInstaladores
     inherited actNuevo: TAction
       ImageIndex = 22
     end
+    inherited actPrevisualizarDocumento: TAction
+      Enabled = False
+      Visible = False
+    end
+    inherited actImprimirDocumento: TAction
+      Enabled = False
+      Visible = False
+    end
   end
   inherited SmallImages: TPngImageList
     PngImages = <

Modulos/Contactos/Cliente/uEditorProveedores.dfm

@@ -54,6 +54,14 @@ inherited fEditorProveedores: TfEditorProveedores
     inherited actNuevo: TAction
       ImageIndex = 22
     end
+    inherited actPrevisualizarDocumento: TAction
+      Enabled = False
+      Visible = False
+    end
+    inherited actImprimirDocumento: TAction
+      Enabled = False
+      Visible = False
+    end
   end
   inherited SmallImages: TPngImageList
     PngImages = <

Modulos/Contactos/Cliente/uEditorVendedores.dfm

@@ -64,9 +64,6 @@ inherited fEditorVendedores: TfEditorVendedores
         Caption = '&Herramientas'
       end
     end
-    inherited tbxFiltro: TTBXToolbar
-      Left = 548
-    end
   end
   inherited StatusBar: TStatusBar
     Width = 817
@@ -87,6 +84,14 @@ inherited fEditorVendedores: TfEditorVendedores
     inherited actNuevo: TAction
       ImageIndex = 23
     end
+    inherited actPrevisualizarDocumento: TAction
+      Enabled = False
+      Visible = False
+    end
+    inherited actImprimirDocumento: TAction
+      Enabled = False
+      Visible = False
+    end
     object actComisiones: TAction
       Category = 'Herramientas'
       Caption = 'Calcular comisiones...'

Modulos/Contactos/Cliente/uViewProveedores.dfm

@@ -22,6 +22,23 @@ inherited frViewProveedores: TfrViewProveedores
       end
     end
   end
+  inherited frViewFiltroBase1: TfrViewFiltroBase
+    inherited TBXDock1: TTBXDock
+      inherited TBXDockablePanel1: TTBXDockablePanel
+        inherited dxLayoutControl1: TdxLayoutControl
+          inherited txtFiltroTodo: TcxTextEdit
+            Width = 273
+          end
+          inherited edtFechaIniFiltro: TcxDateEdit
+            Width = 121
+          end
+          inherited edtFechaFinFiltro: TcxDateEdit
+            Width = 121
+          end
+        end
+      end
+    end
+  end
   inherited dxComponentPrinter: TdxComponentPrinter
     inherited dxComponentPrinterLink: TdxGridReportLink
       ReportDocument.CreationDate = 38677.470834513890000000

Modulos/Contactos/Cliente/uViewProveedores.pas

@@ -10,7 +10,8 @@ uses
   cxClasses, cxControls, cxGridCustomView, cxGrid, JvComponent,
   JvFormAutoSize, ImgList, PngImageList, dxPSGlbl, dxPSUtl, dxPSEngn,
   dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider, dxPSFillPatterns,
-  dxPSEdgePatterns, cxIntlPrintSys3, dxPSCore, dxPScxCommon, dxPScxGridLnk;
+  dxPSEdgePatterns, cxIntlPrintSys3, dxPSCore, dxPScxCommon, dxPScxGridLnk,
+  uViewFiltroBase;
 
 type
   IViewProveedores = interface(IViewContactos)

Modulos/Contactos/Servidor/srvContactos_Impl.dfm

@@ -7,8 +7,8 @@ object srvContactos: TsrvContactos
   ConnectionName = 'IBX'
   ServiceSchema = schContactos
   ServiceAdapter = DABINAdapter
-  Left = 1015
+  Left = 1016
-  Top = 380
+  Top = 381
   Height = 354
   Width = 450
   object schContactos: TDASchema

Modulos/Cuentas/Servidor/srvCuentas_Impl.dfm

@@ -6,8 +6,8 @@ object srvCuentas: TsrvCuentas
   ConnectionName = 'IBX'
   ServiceSchema = schCuentas
   ServiceAdapter = DABINAdapter
-  Left = 911
+  Left = 912
-  Top = 218
+  Top = 219
   Height = 300
   Width = 300
   object schCuentas: TDASchema

Modulos/Facturas de cliente/Reglas/uBizFacturasCliente.pas

@@ -115,6 +115,7 @@ type
             SetDetalles;
     procedure Show;
     procedure Preview; 
+
     procedure Print;
     procedure CopyFrom(AFacturaCliente : IBizFacturasCliente); overload;
     procedure CopyFrom(AAlbaranCliente : IBizAlbaranesCliente); overload;

Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm

@@ -6,8 +6,8 @@ object srvFacturasCliente: TsrvFacturasCliente
   ConnectionName = 'IBX'
   ServiceSchema = schFacturasCliente
   ServiceAdapter = DABINAdapter
-  Left = 1166
+  Left = 1167
-  Top = 375
+  Top = 376
   Height = 490
   Width = 347
   object schFacturasCliente: TDASchema

Modulos/Facturas de proveedor/Cliente/uEditorFacturasProveedor.dfm

@@ -52,6 +52,14 @@ inherited fEditorFacturasProveedor: TfEditorFacturasProveedor
       ImageIndex = 22
       OnExecute = actNuevoExecute
     end
+    inherited actPrevisualizarDocumento: TAction
+      Enabled = False
+      Visible = False
+    end
+    inherited actImprimirDocumento: TAction
+      Enabled = False
+      Visible = False
+    end
   end
   inherited SmallImages: TPngImageList
     PngImages = <

Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.dfm

@@ -6,8 +6,8 @@ object srvFacturasProveedor: TsrvFacturasProveedor
   ConnectionName = 'IBX'
   ServiceSchema = schFacturasProveedor
   ServiceAdapter = DABINAdapter
-  Left = 784
+  Left = 785
-  Top = 463
+  Top = 464
   Height = 392
   Width = 369
   object schFacturasProveedor: TDASchema

Modulos/Intervalos/Servidor/srvIntervalos_Impl.dfm

@@ -6,8 +6,8 @@ object srvIntervalos: TsrvIntervalos
   ConnectionName = 'IBX'
   ServiceSchema = schIntervalos
   ServiceAdapter = DABINAdapter
-  Left = 731
+  Left = 732
-  Top = 249
+  Top = 250
   Height = 300
   Width = 300
   object schIntervalos: TDASchema

Modulos/Montajes/Reglas/uBizMontajes.pas

@@ -95,7 +95,7 @@ Type
     destructor Destroy; override;
     procedure Show; virtual;
     procedure ShowAll; virtual;
-    procedure Preview; virtual;
+    procedure Preview;
     procedure Print; virtual;
     function ShowForSelect : TModalResult; virtual;
     property SelectedRows : TSelectedRowList read GetSelectedRows;

Modulos/Montajes/Servidor/srvMontajes_Impl.dfm

@@ -5,8 +5,8 @@ object srvMontajes: TsrvMontajes
   ConnectionName = 'IBX'
   ServiceSchema = schMontajes
   ServiceAdapter = DABINAdapter
-  Left = 1063
+  Left = 1064
-  Top = 253
+  Top = 254
   Height = 356
   Width = 300
   object bpMontajes: TDABusinessProcessor

Modulos/Pagos/Reglas/uBizPagos.pas

@@ -55,7 +55,7 @@ type
     destructor Destroy; override;
     function Show: TModalResult; virtual;
     procedure ShowAll; virtual;
-    procedure Preview; virtual;
+    procedure Preview;
     procedure Print; virtual;
   end;
 

Modulos/Pagos/Servidor/srvPagos_Impl.dfm

@@ -6,8 +6,8 @@ object srvPagos: TsrvPagos
   ConnectionName = 'IBX'
   ServiceSchema = schPagos
   ServiceAdapter = DABINAdapter
-  Left = 567
+  Left = 568
-  Top = 548
+  Top = 549
   Height = 300
   Width = 300
   object schPagos: TDASchema

Modulos/Pedidos a proveedor/Reglas/uBizPedidosProveedor.pas

@@ -114,6 +114,7 @@ type
     procedure Show; virtual;
     function ShowForSelect : TModalResult;
     procedure Preview; 
+
     procedure Print;
     procedure CopyFrom(APedido : IBizPedidosProveedor);
     procedure CambiarSituacion(ASituacion: String);

Modulos/Pedidos a proveedor/Servidor/srvPedidosProveedor_Impl.dfm

@@ -6,8 +6,8 @@ object srvPedidosProveedor: TsrvPedidosProveedor
   ConnectionName = 'IBX'
   ServiceSchema = schPedidosProveedor
   ServiceAdapter = DABINAdapter
-  Left = 731
+  Left = 732
-  Top = 370
+  Top = 372
   Height = 459
   Width = 300
   object schPedidosProveedor: TDASchema

Modulos/Presupuestos/Cliente/uDataModulePresupuestos.dfm

@@ -10,8 +10,8 @@ object dmPresupuestos: TdmPresupuestos
       ParamType = fResult
       DataType = rtString
     end>
-  Left = 550
+  Left = 551
-  Top = 372
+  Top = 373
   Height = 326
   Width = 367
   object RORemoteService: TRORemoteService

Modulos/Presupuestos/Cliente/uEditorPresupuestos.dfm

@@ -1,6 +1,6 @@
 inherited fEditorPresupuestos: TfEditorPresupuestos
   Left = 123
-  Top = 249
+  Top = 250
   Width = 901
   Caption = 'Lista de presupuestos'
   PixelsPerInch = 96
@@ -35,43 +35,33 @@ inherited fEditorPresupuestos: TfEditorPresupuestos
     Width = 893
     inherited tbxMain: TTBXToolbar
       DockPos = -64
-      inherited TBXSeparatorItem2: TTBXSeparatorItem [9]
+      inherited TBXItem42: TTBXItem [11]
       end
-      inherited TBXItem24: TTBXItem [10]
+      inherited TBXItem3: TTBXItem [12]
       end
-      inherited TBXItem26: TTBXItem [11]
+      inherited TBXSeparatorItem2: TTBXSeparatorItem [13]
       end
-      inherited TBXItem25: TTBXItem [12]
+      inherited TBXItem24: TTBXItem [14]
       end
-      inherited TBXItem35: TTBXItem [13]
+      inherited TBXItem26: TTBXItem [15]
       end
-      inherited TBXItem6: TTBXItem [14]
+      inherited TBXItem25: TTBXItem [16]
       end
-      object TBXSeparatorItem16: TTBXSeparatorItem [15]
+      inherited TBXItem35: TTBXItem [17]
       end
-      object TBXItem38: TTBXItem [16]
+      inherited TBXItem6: TTBXItem [18]
+      end
+      object TBXSeparatorItem16: TTBXSeparatorItem [19]
+      end
+      object TBXItem38: TTBXItem [20]
         Action = actAceptado
       end
-      object TBXItem36: TTBXItem [17]
+      object TBXItem36: TTBXItem [21]
         Action = actRechazado
       end
-      inherited TBXItem28: TTBXItem [18]
+      inherited TBXItem28: TTBXItem [22]
       end
-      inherited TBXSeparatorItem11: TTBXSeparatorItem [19]
+      inherited TBXSeparatorItem10: TTBXSeparatorItem [24]
-      end
-      object TBXItem39: TTBXItem [20]
-        Action = actPrevisualizarDocumento
-        DisplayMode = nbdmImageAndText
-      end
-      inherited TBXItem23: TTBXItem [21]
-      end
-      inherited TBXSeparatorItem10: TTBXSeparatorItem [22]
-      end
-      object TBXItem40: TTBXItem [23]
-        Action = actImprimirDocumento
-        DisplayMode = nbdmImageAndText
-      end
-      inherited TBXItem3: TTBXItem [24]
       end
     end
     inherited tbxFiltro: TTBXToolbar
@@ -127,43 +117,26 @@ inherited fEditorPresupuestos: TfEditorPresupuestos
       ImageIndex = 24
       OnExecute = actNuevoExecute
     end
-    inherited actPrevisualizar: TAction
-      Caption = 'Previsualizar &lista actual'
-    end
     inherited actImprimir: TAction
       Caption = 'Imprimir lista actual'
     end
-    object actPrevisualizarDocumento: TAction [23]
+    object actAceptado: TAction [25]
-      Category = 'Archivo'
-      Caption = '&Previsualizar documento'
-      ImageIndex = 6
-      OnExecute = actPrevisualizarDocumentoExecute
-      OnUpdate = actPrevisualizarDocumentoUpdate
-    end
-    object actAceptado: TAction
       Category = 'Situaciones'
       Caption = 'Aceptado'
       ImageIndex = 23
       OnExecute = actAceptadoExecute
     end
-    object actRechazado: TAction
+    object actRechazado: TAction [26]
       Category = 'Situaciones'
       Caption = 'Rechazado'
       ImageIndex = 22
       OnExecute = actRechazadoExecute
     end
-    object actPendiente: TAction
+    object actPendiente: TAction [27]
       Category = 'Situaciones'
       Caption = 'Pendiente'
       OnExecute = actPendienteExecute
     end
-    object actImprimirDocumento: TAction
-      Category = 'Archivo'
-      Caption = '&Imprimir Documento'
-      ImageIndex = 7
-      OnExecute = actImprimirDocumentoExecute
-      OnUpdate = actImprimirDocumentoUpdate
-    end
   end
   inherited SmallImages: TPngImageList [5]
     PngImages = <

Modulos/Presupuestos/Cliente/uEditorPresupuestos.pas

@@ -33,10 +33,6 @@ type
     TBXItem36: TTBXItem;
     TBXSeparatorItem16: TTBXSeparatorItem;
     TBXItem38: TTBXItem;
-    actPrevisualizarDocumento: TAction;
-    TBXItem39: TTBXItem;
-    actImprimirDocumento: TAction;
-    TBXItem40: TTBXItem;
     procedure actEliminarExecute(Sender: TObject);
     procedure actModificarExecute(Sender: TObject);
     procedure actNuevoExecute(Sender: TObject);
@@ -49,10 +45,6 @@ type
     procedure actPendienteExecute(Sender: TObject);
     procedure OnListaAnosChange(Sender: TObject; const Text: string);
     procedure FormShow(Sender: TObject);
-    procedure actPrevisualizarDocumentoExecute(Sender: TObject);
-    procedure actImprimirDocumentoExecute(Sender: TObject);
-    procedure actImprimirDocumentoUpdate(Sender: TObject);
-    procedure actPrevisualizarDocumentoUpdate(Sender: TObject);
 
   private
     FPresupuestos: IBizPresupuestos;
@@ -292,50 +284,6 @@ begin
   inherited;
 end;
 
-procedure TfEditorPresupuestos.actPrevisualizarDocumentoExecute(
-  Sender: TObject);
-var
-  aInf : IBizInformesAware;
-begin
-  inherited;
-
-  if Assigned(dsDataTable.DataTable) and
-    Supports(dsDataTable.DataTable, IBizInformesAware, aInf) then
-    aInf.Preview;
-end;
-
-procedure TfEditorPresupuestos.actImprimirDocumentoExecute(
-  Sender: TObject);
-var
-  aInf : IBizInformesAware;
-begin
-  inherited;
-
-  if Assigned(dsDataTable.DataTable) and
-    Supports(dsDataTable.DataTable, IBizInformesAware, aInf) then
-    aInf.Print;
-end;
-
-procedure TfEditorPresupuestos.actImprimirDocumentoUpdate(Sender: TObject);
-begin
-  inherited;
-  if Assigned(dsDataTable.DataTable) then
-    (Sender as TAction).Enabled := (not dsDataTable.DataTable.IsEmpty)
-      and not (dsDataTable.DataTable.State = dsInsert)
-  else
-    (Sender as TAction).Enabled := False;
-end;
-
-procedure TfEditorPresupuestos.actPrevisualizarDocumentoUpdate(
-  Sender: TObject);
-begin
-  inherited;
-  if Assigned(dsDataTable.DataTable) then
-    (Sender as TAction).Enabled := (not dsDataTable.DataTable.IsEmpty)
-      and not (dsDataTable.DataTable.State = dsInsert)    
-  else
-    (Sender as TAction).Enabled := False;
-end;
 
 initialization
   RegisterEditor(IBizPresupuestos, ShowEditorPresupuestos, etItems);

Modulos/Presupuestos/Servidor/srvPresupuestos_Impl.dfm

@@ -6,8 +6,8 @@ object srvPresupuestos: TsrvPresupuestos
   ConnectionName = 'IBX'
   ServiceSchema = schPresupuestos
   ServiceAdapter = DABINAdapter
-  Left = 1195
+  Left = 1196
-  Top = 439
+  Top = 440
   Height = 359
   Width = 328
   object schPresupuestos: TDASchema

Servidor/srvComisiones_Impl.dfm

@@ -5,8 +5,8 @@ object srvComisiones: TsrvComisiones
   AcquireConnection = True
   ServiceSchema = schComisiones
   ServiceAdapter = DABINAdapter
-  Left = 1112
+  Left = 1113
-  Top = 237
+  Top = 238
   Height = 300
   Width = 300
   object schComisiones: TDASchema

Servidor/srvConfiguracion_Impl.dfm

@@ -6,8 +6,8 @@ object srvConfiguracion: TsrvConfiguracion
   ConnectionName = 'IBX'
   ServiceSchema = schConfiguracion
   ServiceAdapter = DABINAdapter
-  Left = 1159
+  Left = 1160
-  Top = 134
+  Top = 135
   Height = 161
   Width = 300
   object schConfiguracion: TDASchema