AcotaCocinas/AlonsoYSal_FactuGES
Archived
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.AlonsoYSal_FactuGES/trunk@32 9a1d36f3-7752-2d40-8ccb-50eb49674c68
This commit is contained in:
roberto 2017-06-05 15:28:59 +00:00
parent 025457dbf5
commit 2198092d6e
46 changed files with 734 additions and 2484 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
BD/BASEDATOS.FDB
View File

Binary file not shown.

483
Base/BaseD7.dof
View File

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

4
Base/uBizInformesBase.pas
View File

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

4
Base/uDataModuleBase.dfm
View File

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

4
Base/uEditorBase.dfm
View File

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

2
Base/uEditorDBBase.dfm
View File

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

30
Base/uEditorGrid.dfm
View File

@ -1,6 +1,6 @@
inherited fEditorGrid: TfEditorGrid
Left = 581
Top = 224
Left = 582
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

63
Base/uEditorGrid.pas
View File

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

4
Base/uEditorPreview.dfm
View File

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

6
Base/uViewTotales.dfm
View File

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

2
Modulos/Albaranes de cliente/Reglas/uBizAlbaranesCliente.pas
View File

@ -106,7 +106,7 @@ type
property Detalles: IBizDetallesAlbaranCliente read GetDetalles write
SetDetalles;
procedure Show;
function ShowForSelect : TModalResult;
function ShowForSelect : TModalResult;
procedure Preview;
procedure Print;
procedure CopyFrom(APresupuesto : IBizPresupuestos);

4
Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.dfm
View File

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

13
Modulos/Almacenes/Cliente/uEditorAlmacenes.dfm
View File

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

4
Modulos/Almacenes/Servidor/srvAlmacenes_Impl.dfm
View File

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

13
Modulos/Articulos/Cliente/uEditorArticulosAlmacen.dfm
View File

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

12
Modulos/Articulos/Cliente/uEditorEntradaArticulos.dfm
View File

@ -13,8 +13,8 @@ inherited fEditorEntradaArticulos: TfEditorEntradaArticulos
inline frViewListaArticulos: TfrViewListaArticulos
Left = 0
Top = 117
Width = 658
Height = 242
Width = 654
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
Height = 217
Width = 654
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

3
Modulos/Articulos/Cliente/uEditorEntradaArticulos.pas
View File

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

4
Modulos/Articulos/Servidor/srvArticulos_Impl.dfm
View File

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

4
Modulos/Asientos/Servidor/srvAsientos_Impl.dfm
View File

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

4
Modulos/Calendarios/Servidor/srvCitas_Impl.dfm
View File

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

10
Modulos/Contactos/Cliente/uEditorClientes.dfm
View File

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

13
Modulos/Contactos/Cliente/uEditorInstaladores.dfm
View File

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

8
Modulos/Contactos/Cliente/uEditorProveedores.dfm
View File

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

11
Modulos/Contactos/Cliente/uEditorVendedores.dfm
View File

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

17
Modulos/Contactos/Cliente/uViewProveedores.dfm
View File

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

3
Modulos/Contactos/Cliente/uViewProveedores.pas
View File

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

4
Modulos/Contactos/Servidor/srvContactos_Impl.dfm
View File

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

4
Modulos/Cuentas/Servidor/srvCuentas_Impl.dfm
View File

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

3
Modulos/Facturas de cliente/Reglas/uBizFacturasCliente.pas
View File

@ -114,7 +114,8 @@ type
property Detalles: IBizDetallesFacturasCliente read GetDetalles write
SetDetalles;
procedure Show;
procedure Preview;
procedure Preview;
procedure Print;
procedure CopyFrom(AFacturaCliente : IBizFacturasCliente); overload;
procedure CopyFrom(AAlbaranCliente : IBizAlbaranesCliente); overload;

4
Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm
View File

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

8
Modulos/Facturas de proveedor/Cliente/uEditorFacturasProveedor.dfm
View File

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

4
Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.dfm
View File

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

4
Modulos/Intervalos/Servidor/srvIntervalos_Impl.dfm
View File

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

2
Modulos/Montajes/Reglas/uBizMontajes.pas
View File

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

4
Modulos/Montajes/Servidor/srvMontajes_Impl.dfm
View File

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

2
Modulos/Pagos/Reglas/uBizPagos.pas
View File

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

4
Modulos/Pagos/Servidor/srvPagos_Impl.dfm
View File

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

3
Modulos/Pedidos a proveedor/Reglas/uBizPedidosProveedor.pas
View File

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

4
Modulos/Pedidos a proveedor/Servidor/srvPedidosProveedor_Impl.dfm
View File

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

4
Modulos/Presupuestos/Cliente/uDataModulePresupuestos.dfm
View File

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

65
Modulos/Presupuestos/Cliente/uEditorPresupuestos.dfm
View File

@ -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]
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]
inherited TBXSeparatorItem10: TTBXSeparatorItem [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]
Category = 'Archivo'
Caption = '&Previsualizar documento'
ImageIndex = 6
OnExecute = actPrevisualizarDocumentoExecute
OnUpdate = actPrevisualizarDocumentoUpdate
end
object actAceptado: TAction
object actAceptado: TAction [25]
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 = <

52
Modulos/Presupuestos/Cliente/uEditorPresupuestos.pas
View File

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

4
Modulos/Presupuestos/Servidor/srvPresupuestos_Impl.dfm
View File

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

2310
Servidor/FactuGES_Server.drc
View File

File diff suppressed because it is too large Load Diff

4
Servidor/srvComisiones_Impl.dfm
View File

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

4
Servidor/srvConfiguracion_Impl.dfm
View File

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