Se adaptan las obras y los proyectos de las obras para que tengan dos destinos de almamacenaje de archivos, los proyectos antiguos seguirán con los documentos en DANI y los nuevos irán al disco duro externo nuevo
version 2.0.4 git-svn-id: https://192.168.0.254/svn/Proyectos.EstudioCarnicero_ProGestion/trunk@13 1b8572a8-2d6b-b84e-8c90-20ed86fa4eca
This commit is contained in:
parent
085a0e044d
commit
33a99cb3e7
BIN
BD/BASEDATOS.FDB
BIN
BD/BASEDATOS.FDB
Binary file not shown.
@ -51,8 +51,10 @@ type
|
||||
FOnThemeChange;
|
||||
|
||||
function darRutaDocumentosProyectos: String;
|
||||
function darRutaDocumentosProyectosNueva: String;
|
||||
function darEstructuraDirProyectos: TDAStringArray;
|
||||
function darRutaDocumentosNormativas: String;
|
||||
function darRutaDocumentosNormativasNueva: String;
|
||||
function darEstructuraDirNormativas: TDAStringArray;
|
||||
function darVersion: String;
|
||||
end;
|
||||
@ -234,6 +236,16 @@ begin
|
||||
FreeAndNil(InfoProject);
|
||||
end;
|
||||
|
||||
function TdmBase.darRutaDocumentosNormativasNueva: String;
|
||||
begin
|
||||
Result := 'c:\documentos2\normativas';
|
||||
end;
|
||||
|
||||
function TdmBase.darRutaDocumentosProyectosNueva: String;
|
||||
begin
|
||||
Result := 'c:\documentos2\proyectos';
|
||||
end;
|
||||
|
||||
initialization
|
||||
dmBase := TdmBase.Create(NIL);
|
||||
|
||||
|
||||
BIN
Iconos/Obras/16x16/Favorites.png
Normal file
BIN
Iconos/Obras/16x16/Favorites.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 818 B |
219
Modulos/Calendarios/Cliente/Calendarios.dof
Normal file
219
Modulos/Calendarios/Cliente/Calendarios.dof
Normal file
@ -0,0 +1,219 @@
|
||||
[FileVersion]
|
||||
Version=7.0
|
||||
[Compiler]
|
||||
A=8
|
||||
B=0
|
||||
C=1
|
||||
D=1
|
||||
E=0
|
||||
F=0
|
||||
G=1
|
||||
H=1
|
||||
I=1
|
||||
J=0
|
||||
K=0
|
||||
L=1
|
||||
M=0
|
||||
N=1
|
||||
O=0
|
||||
P=1
|
||||
Q=0
|
||||
R=0
|
||||
S=0
|
||||
T=0
|
||||
U=0
|
||||
V=1
|
||||
W=0
|
||||
X=1
|
||||
Y=1
|
||||
Z=1
|
||||
ShowHints=1
|
||||
ShowWarnings=1
|
||||
UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
|
||||
NamespacePrefix=
|
||||
SymbolDeprecated=1
|
||||
SymbolLibrary=1
|
||||
SymbolPlatform=1
|
||||
UnitLibrary=1
|
||||
UnitPlatform=1
|
||||
UnitDeprecated=1
|
||||
HResultCompat=1
|
||||
HidingMember=1
|
||||
HiddenVirtual=1
|
||||
Garbage=1
|
||||
BoundsError=1
|
||||
ZeroNilCompat=1
|
||||
StringConstTruncated=1
|
||||
ForLoopVarVarPar=1
|
||||
TypedConstVarPar=1
|
||||
AsgToTypedConst=1
|
||||
CaseLabelRange=1
|
||||
ForVariable=1
|
||||
ConstructingAbstract=1
|
||||
ComparisonFalse=1
|
||||
ComparisonTrue=1
|
||||
ComparingSignedUnsigned=1
|
||||
CombiningSignedUnsigned=1
|
||||
UnsupportedConstruct=1
|
||||
FileOpen=1
|
||||
FileOpenUnitSrc=1
|
||||
BadGlobalSymbol=1
|
||||
DuplicateConstructorDestructor=1
|
||||
InvalidDirective=1
|
||||
PackageNoLink=1
|
||||
PackageThreadVar=1
|
||||
ImplicitImport=1
|
||||
HPPEMITIgnored=1
|
||||
NoRetVal=1
|
||||
UseBeforeDef=1
|
||||
ForLoopVarUndef=1
|
||||
UnitNameMismatch=1
|
||||
NoCFGFileFound=1
|
||||
MessageDirective=1
|
||||
ImplicitVariants=1
|
||||
UnicodeToLocale=1
|
||||
LocaleToUnicode=1
|
||||
ImagebaseMultiple=1
|
||||
SuspiciousTypecast=1
|
||||
PrivatePropAccessor=1
|
||||
UnsafeType=0
|
||||
UnsafeCode=0
|
||||
UnsafeCast=0
|
||||
[Linker]
|
||||
MapFile=0
|
||||
OutputObjs=0
|
||||
ConsoleApp=1
|
||||
DebugInfo=0
|
||||
RemoteSymbols=0
|
||||
MinStackSize=16384
|
||||
MaxStackSize=1048576
|
||||
ImageBase=4194304
|
||||
ExeDescription=
|
||||
[Directories]
|
||||
OutputDir=
|
||||
UnitOutputDir=.\
|
||||
PackageDLLOutputDir=..\..\..\Output\Cliente
|
||||
PackageDCPOutputDir=.\
|
||||
SearchPath=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\Reglas;..\..\Obras\Cliente;..\..\Facturas de cliente\Cliente;..\..\Contactos\Cliente;..\..\Documentos asociados;..\..\Recibos\Cliente
|
||||
Packages=vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;dclOfficeXP;cxLibraryVCLD7;cxEditorsVCLD7;cxGridVCLD7;dxThemeD7;cxDataD7;cxGridUtilsVCLD7;cxPageControlVCLD7;cxIntlD7;cxExtEditorsVCLD7;cxSchedulerVCLD7;cxTreeListVCLD7;cxVerticalGridVCLD7;dxBarD7;dxComnD7;dxBarDBNavD7;dxBarExtDBItemsD7;dxBarExtItemsD7;dxDockingD7;dxLayoutControlD7;dxNavBarD7;dxPSCoreD7;dxsbD7;dxLayoutControlcxEditAdaptersD7;dxPScxCommonD7;dxPSLnksD7;dxPScxExtCommonD7;dxPScxGridLnkD7;dxPScxPCProdD7;dxPScxScheduler2LnkD7;dxPScxTLLnkD7;dxPSDBTeeChartD7;dxPSTeeChartD7;dxPSdxLCLnkD7;dxPsPrVwAdvD7;FRIBX7;PNG_D7;mxProtector_d7;TMSD7;cxExportVCLD7;cxIntl5D7;cxIntlPrintSys3D7;cxIntlSchedulerD7;frx7;frxADO7;frxBDE7;frxDB7;frxDBX7;frxe7;frxIBX7;frxTee7;fs7;fsADO7;fsBDE7;fsDB7;fsIBX7;fsTee7
|
||||
Conditionals=
|
||||
DebugSourceDirs=.\
|
||||
UsePackages=0
|
||||
[Parameters]
|
||||
RunParams=
|
||||
HostApplication=
|
||||
Launcher=
|
||||
UseLauncher=0
|
||||
DebugCWD=
|
||||
[Language]
|
||||
ActiveLang=
|
||||
ProjectLang=
|
||||
RootDir=C:\Archivos de programa\Borland\Delphi7\Bin\
|
||||
[Version Info]
|
||||
IncludeVerInfo=1
|
||||
AutoIncBuild=0
|
||||
MajorVer=1
|
||||
MinorVer=0
|
||||
Release=0
|
||||
Build=0
|
||||
Debug=0
|
||||
PreRelease=0
|
||||
Special=0
|
||||
Private=0
|
||||
DLL=0
|
||||
Locale=3082
|
||||
CodePage=1252
|
||||
[Version Info Keys]
|
||||
CompanyName=
|
||||
FileDescription=
|
||||
FileVersion=1.0.0.0
|
||||
InternalName=
|
||||
LegalCopyright=
|
||||
LegalTrademarks=
|
||||
OriginalFilename=
|
||||
ProductName=
|
||||
ProductVersion=1.0.0.0
|
||||
Comments=
|
||||
[Excluded Packages]
|
||||
C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\cxLibraryVCLD7.bpl=Express Cross Platform Library (VCL Edition) by Developer Express Inc.
|
||||
C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\dxThemeD7.bpl=Express XP Theme Manager by Developer Express Inc.
|
||||
C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\cxEditorsVCLD7.bpl=ExpressEditors Library 5 (VCL Edition) by Developer Express Inc.
|
||||
C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\cxDataD7.bpl=ExpressDataController by Developer Express Inc.
|
||||
C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\cxExtEditorsVCLD7.bpl=ExpressExtendedEditors Library 5 (VCL Edition) by Developer Express Inc.
|
||||
C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\cxGridVCLD7.bpl=ExpressQuantumGrid 5 (VCL Edition) by Developer Express Inc.
|
||||
C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\cxPageControlVCLD7.bpl=Express Cross Platform PageControl (VCL Edition) by Developer Express Inc.
|
||||
C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\cxExportVCLD7.bpl=Express Cross Platform Export Library (VCL Edition) by Developer Express Inc.
|
||||
C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\cxSchedulerVCLD7.bpl=ExpressScheduler 2 (VCL Edition) by Developer Express Inc.
|
||||
C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\cxTreeListVCLD7.bpl=ExpressQuantumTreeList 4 (VCL Edition) by Developer Express Inc.
|
||||
C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\cxVerticalGridVCLD7.bpl=ExpressVerticalGrid (VCL Edition) by Developer Express Inc.
|
||||
C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\dxBarD7.bpl=ExpressBars by Developer Express Inc.
|
||||
C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\dxComnD7.bpl=ExpressCommonLibrary by Developer Express Inc.
|
||||
C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\dxBarDBNavD7.bpl=ExpressBars DBNavigator by Developer Express Inc.
|
||||
C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\dxBarExtDBItemsD7.bpl=ExpressBars extended DB items by Developer Express Inc.
|
||||
C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\dxBarExtItemsD7.bpl=ExpressBars extended items by Developer Express Inc.
|
||||
C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\dxDockingD7.bpl=ExpressDocking Library by Developer Express Inc.
|
||||
C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\dxLayoutControlD7.bpl=ExpressLayout Control by Developer Express Inc.
|
||||
C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\dxNavBarD7.bpl=ExpressNavBar by Developer Express Inc.
|
||||
C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\dxGDIPlusD7.bpl=ExpressGDI+ Library by Developer Express Inc.
|
||||
C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\dxPSCoreD7.bpl=ExpressPrinting System by Developer Express Inc.
|
||||
C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\dxsbD7.bpl=ExpressSideBar by Developer Express Inc.
|
||||
C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\VirtualTreesD7.bpl=Virtual Treeview runtime package
|
||||
C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\EPCOTAUtils70.bpl=EPC Open Tools API utilities
|
||||
C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\Jcl70.bpl=JEDI Code Library RTL package
|
||||
C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\JclVcl70.bpl=JEDI Code Library VCL package
|
||||
C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\PluginSDK_D7R.bpl=(untitled)
|
||||
C:\Componentes\FastReport 3\LibD7\frxADO7.bpl=(untitled)
|
||||
C:\Componentes\FastReport 3\LibD7\fsADO7.bpl=(untitled)
|
||||
C:\Componentes\FastReport 3\LibD7\fsDB7.bpl=(untitled)
|
||||
C:\Componentes\FastReport 3\LibD7\fs7.bpl=(untitled)
|
||||
C:\Componentes\FastReport 3\LibD7\frxDB7.bpl=(untitled)
|
||||
C:\Componentes\FastReport 3\LibD7\frx7.bpl=(untitled)
|
||||
C:\Componentes\FastReport 3\LibD7\frxBDE7.bpl=(untitled)
|
||||
C:\Componentes\FastReport 3\LibD7\fsBDE7.bpl=(untitled)
|
||||
C:\Componentes\FastReport 3\LibD7\frxDBX7.bpl=(untitled)
|
||||
C:\Componentes\FastReport 3\LibD7\frxe7.bpl=(untitled)
|
||||
C:\Componentes\FastReport 3\LibD7\frxIBX7.bpl=(untitled)
|
||||
C:\Componentes\FastReport 3\LibD7\fsIBX7.bpl=(untitled)
|
||||
C:\Componentes\FastReport 3\LibD7\frxTee7.bpl=(untitled)
|
||||
[HistoryLists\hlDebugSourcePath]
|
||||
Count=2
|
||||
Item0=.\
|
||||
Item1=D:\Proyectos\Componentes\GUISDK\Sources\;D:\Proyectos\Componentes\PluginSDK\Source\;D:\Proyectos\FactuGES (Estudio)\Codigo\Modulos\Contactos\Cliente;D:\Proyectos\FactuGES (Estudio)\Codigo\Modulos\Contactos\Reglas
|
||||
[HistoryLists\hlUnitAliases]
|
||||
Count=1
|
||||
Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
|
||||
[HistoryLists\hlSearchPath]
|
||||
Count=18
|
||||
Item0=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\Reglas;..\..\Obras\Cliente;..\..\Facturas de cliente\Cliente;..\..\Contactos\Cliente;..\..\Documentos asociados;..\..\Recibos\Cliente
|
||||
Item1=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\base;..\Modulos\Contactos\Cliente;..\Modulos\Contactos\Reglas;..\Modulos\Obras\Reglas;..\Modulos\Obras\Cliente;..\Modulos\Documentos asociados;..\Modulos\Facturas de cliente\Cliente;..\Modulos\Facturas de cliente\Reglas;..\Modulos\Recibos\Cliente;..\Modulos\Recibos\Reglas;..\Modulos\Obras Final\Cliente;..\Modulos\Obras Final\Reglas
|
||||
Item2=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\Presupuestos\Cliente;..\..\..\Usuarios;..\..\Albaranes de cliente\Cliente;..\..\Documentos asociados;..\..\Pagos\Cliente;..\..\Intervalos\Cliente;..\..\Asientos\Cliente;..\..\Cuentas\Cliente
|
||||
Item3=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\Presupuestos\Cliente;..\..\..\Usuarios;..\..\Albaranes de cliente\Cliente;..\..\Documentos asociados;..\..\Pagos\Cliente;..\..\Intervalos\Cliente;..\..\Asientos\Cliente
|
||||
Item4=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\Presupuestos\Cliente;..\..\..\Usuarios;..\..\Albaranes de cliente\Cliente;..\..\Documentos asociados;..\..\Pagos\Cliente;..\..\Intervalos\Cliente
|
||||
Item5=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\Presupuestos\Cliente;..\..\..\Usuarios;..\..\Albaranes de cliente\Cliente;..\..\Documentos asociados;..\..\Pagos\Cliente
|
||||
Item6=..\Modulos\Presupuestos\Reglas;..\Modulos\Contactos\Reglas;..\Base;..\Configuracion;..\Usuarios;..\Modulos\Albaranes de cliente\Reglas
|
||||
Item7=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\Base;..\Configuracion;..\Usuarios;..\Modulos\Intervalos;..\Modulos\Documentos asociados;..\Modulos\Contactos\Cliente;..\Modulos\Contactos\Reglas;..\Modulos\Presupuestos\Cliente;..\Modulos\Presupuestos\Reglas;..\Modulos\Albaranes de cliente\Cliente;..\Modulos\Albaranes de cliente\Reglas;..\Modulos\Facturas de cliente\Cliente;..\Modulos\Facturas de cliente\Reglas;..\Modulos\Pedidos a proveedor\Cliente;..\Modulos\Pedidos a proveedor\Reglas;..\Modulos\Facturas de proveedor\Cliente;..\Modulos\Facturas de proveedor\Reglas;..\Modulos\Montajes\Reglas;..\Modulos\Montajes\Cliente;..\Modulos\Articulos\Cliente;..\Modulos\Articulos\Reglas;..\Modulos\Almacenes\Reglas;..\Modulos\Almacenes\Cliente;..\Modulos\Pagos\Reglas;..\Modulos\Pagos\Cliente;..\Modulos\Cuentas\Reglas;..\Modulos\Cuentas\Cliente;..\Modulos\Asientos\Reglas;..\Modulos\Asientos\Cliente;..\Modulos\Calendarios\Cliente;..\Modulos\Calendarios\Reglas
|
||||
Item8=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\..\Montajes\Cliente;..\..\Documentos asociados;..\..\Contactos\Cliente;..\..\Almacenes\Cliente
|
||||
Item9=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\..\Usuarios;..\..\Documentos asociados
|
||||
Item10=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\..\Montajes\Cliente;..\..\Documentos asociados;..\..\Contactos\Cliente
|
||||
Item11=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\..\Montajes\Cliente;..\..\Documentos asociados
|
||||
Item12=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\..\Montajes\Cliente
|
||||
Item13=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\..\Usuarios;..\..\Documentos asociados;..\..\Montajes\Cliente;..\..\Almacenes\Cliente
|
||||
Item14=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\..\Usuarios;..\..\Documentos asociados;..\..\Montajes\Cliente
|
||||
Item15=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\Servidor
|
||||
Item16=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\base;..\Modulos\Calendarios\Cliente;..\Modulos\Calendarios\Reglas
|
||||
Item17=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\Base;..\..\Servidor;..\..\Contactos\Cliente;..\..\..\Usuarios
|
||||
[HistoryLists\hlUnitOutputDirectory]
|
||||
Count=1
|
||||
Item0=.\
|
||||
[HistoryLists\hlOutputDirectorry]
|
||||
Count=2
|
||||
Item0=..\Output\Servidor
|
||||
Item1=..\Output\Cliente
|
||||
[HistoryLists\hlBPLOutput]
|
||||
Count=3
|
||||
Item0=..\..\..\Output\Cliente
|
||||
Item1=..\Output\Cliente
|
||||
Item2=..\..\Output\Cliente
|
||||
[HistoryLists\hlDCPOutput]
|
||||
Count=1
|
||||
Item0=.\
|
||||
@ -4,6 +4,10 @@ interface
|
||||
|
||||
uses Classes, DataAbstract_Intf;
|
||||
|
||||
const
|
||||
CTE_ALMACEN_ANTIGUO = '0';
|
||||
CTE_ALAMCEN_NUEVO = '1';
|
||||
|
||||
type
|
||||
TGestorDocumentos = class(TObject)
|
||||
private
|
||||
@ -58,6 +62,9 @@ type
|
||||
function GetGestorDocumentos: TGestorDocumentos;
|
||||
procedure SetGestorDocumentos(Value: TGestorDocumentos);
|
||||
property GestorDocumentos: TGestorDocumentos read GetGestorDocumentos write SetGestorDocumentos;
|
||||
function GetGestorDocumentosNuevo: TGestorDocumentos;
|
||||
procedure SetGestorDocumentosNuevo(Value: TGestorDocumentos);
|
||||
property GestorDocumentosNuevo: TGestorDocumentos read GetGestorDocumentosNuevo write SetGestorDocumentosNuevo;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
@ -284,6 +284,18 @@ object dmObras: TdmObras
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'ALMACEN'
|
||||
DataType = datString
|
||||
Size = 1
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end>
|
||||
Params = <>
|
||||
MasterMappingMode = mmDataRequest
|
||||
|
||||
@ -50,7 +50,7 @@ inherited fEditorObra: TfEditorObra
|
||||
inherited pgPaginas: TPageControl
|
||||
Width = 944
|
||||
Height = 444
|
||||
ActivePage = pagContactos
|
||||
ActivePage = pagNormativas
|
||||
OnChanging = pgPaginasChanging
|
||||
inherited pagGeneral: TTabSheet
|
||||
inline frViewObra: TfrViewObra
|
||||
@ -266,7 +266,6 @@ inherited fEditorObra: TfEditorObra
|
||||
inherited explo: TcxShellListView
|
||||
Width = 531
|
||||
Height = 398
|
||||
Style.IsFontAssigned = True
|
||||
end
|
||||
inherited ToolBar1: TToolBar
|
||||
Width = 531
|
||||
|
||||
@ -178,7 +178,10 @@ begin
|
||||
//DOCUMENTOS ASOCIADOS
|
||||
if Assigned(FViewNormativas) then
|
||||
begin
|
||||
FViewNormativas.GestorDocumentos := (Obra as IBizDocumentosAsociados).GestorDocumentos;
|
||||
if (Obra.ALMACEN = CTE_ALMACEN_ANTIGUO) then
|
||||
FViewNormativas.GestorDocumentos := (Obra as IBizDocumentosAsociados).GestorDocumentos
|
||||
else
|
||||
FViewNormativas.GestorDocumentos := (Obra as IBizDocumentosAsociados).GestorDocumentosNuevo;
|
||||
FViewNormativas.GestorDocumentos.ModoInsert := (Obra.DataTable.State = dsInsert);
|
||||
end;
|
||||
end
|
||||
@ -343,7 +346,12 @@ begin
|
||||
FViewNormativas := Value;
|
||||
|
||||
if Assigned(FViewNormativas) and Assigned(Obra) then
|
||||
FViewNormativas.GestorDocumentos := (Obra as IBizDocumentosASociados).GestorDocumentos;
|
||||
begin
|
||||
if (Obra.ALMACEN = CTE_ALMACEN_ANTIGUO) then
|
||||
FViewNormativas.GestorDocumentos := (Obra as IBizDocumentosASociados).GestorDocumentos
|
||||
else
|
||||
FViewNormativas.GestorDocumentos := (Obra as IBizDocumentosASociados).GestorDocumentosNuevo;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfEditorObra.frViewDatosObraedtNombrePropertiesValidate(
|
||||
|
||||
@ -86,7 +86,7 @@ inherited fEditorProyectoObra: TfEditorProyectoObra
|
||||
Left = 0
|
||||
Top = 129
|
||||
Width = 704
|
||||
Height = 230
|
||||
Height = 158
|
||||
Align = alClient
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
@ -98,10 +98,10 @@ inherited fEditorProyectoObra: TfEditorProyectoObra
|
||||
ReadOnly = False
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 704
|
||||
Height = 230
|
||||
Height = 158
|
||||
DesignSize = (
|
||||
704
|
||||
230)
|
||||
158)
|
||||
inherited Panel10: TPanel
|
||||
Width = 704
|
||||
Height = 230
|
||||
@ -114,7 +114,6 @@ inherited fEditorProyectoObra: TfEditorProyectoObra
|
||||
inherited explo: TcxShellListView
|
||||
Width = 516
|
||||
Height = 211
|
||||
Style.IsFontAssigned = True
|
||||
end
|
||||
inherited ToolBar1: TToolBar
|
||||
Width = 516
|
||||
|
||||
@ -129,7 +129,10 @@ begin
|
||||
//DOCUMENTOS ASOCIADOS
|
||||
if Assigned(FViewDocumentosPresupuesto) then
|
||||
begin
|
||||
FViewDocumentosPresupuesto.GestorDocumentos := (ProyectoObra as IBizDocumentosAsociados).GestorDocumentos;
|
||||
if (ProyectoObra.Obra.ALMACEN = CTE_ALMACEN_ANTIGUO) then
|
||||
FViewDocumentosPresupuesto.GestorDocumentos := (ProyectoObra as IBizDocumentosAsociados).GestorDocumentos
|
||||
else
|
||||
FViewDocumentosPresupuesto.GestorDocumentos := (ProyectoObra as IBizDocumentosAsociados).GestorDocumentosNuevo;
|
||||
FViewDocumentosPresupuesto.GestorDocumentos.ModoInsert := (ProyectoObra.DataTable.State = dsInsert);
|
||||
end;
|
||||
end
|
||||
@ -145,7 +148,12 @@ begin
|
||||
FViewDocumentosPresupuesto := Value;
|
||||
|
||||
if Assigned(FViewDocumentosPresupuesto) and Assigned(ProyectoObra) then
|
||||
FViewDocumentosPresupuesto.GestorDocumentos := (ProyectoObra as IBizDocumentosASociados).GestorDocumentos;
|
||||
begin
|
||||
if (ProyectoObra.Obra.ALMACEN = CTE_ALMACEN_ANTIGUO) then
|
||||
FViewDocumentosPresupuesto.GestorDocumentos := (ProyectoObra as IBizDocumentosASociados).GestorDocumentos
|
||||
else
|
||||
FViewDocumentosPresupuesto.GestorDocumentos := (ProyectoObra as IBizDocumentosASociados).GestorDocumentosNuevo
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfEditorProyectoObra.frViewProyectoObraedtDescripcionPropertiesValidate(
|
||||
|
||||
@ -23,6 +23,18 @@ inherited frViewObras: TfrViewObras
|
||||
Visible = False
|
||||
Width = 32
|
||||
end
|
||||
object cxGridViewALMACEN: TcxGridDBColumn
|
||||
DataBinding.FieldName = 'ALMACEN'
|
||||
PropertiesClassName = 'TcxImageComboBoxProperties'
|
||||
Properties.Items = <
|
||||
item
|
||||
ImageIndex = 0
|
||||
Value = '0'
|
||||
end>
|
||||
OnCustomDrawCell = cxGridViewALMACENCustomDrawCell
|
||||
Width = 20
|
||||
IsCaptionAssigned = True
|
||||
end
|
||||
object cxGridViewESTADO: TcxGridDBColumn
|
||||
DataBinding.FieldName = 'FECHAFINOBR'
|
||||
OnCustomDrawCell = cxGridViewESTADOCustomDrawCell
|
||||
@ -130,6 +142,36 @@ inherited frViewObras: TfrViewObras
|
||||
44AE426082}
|
||||
Name = 'PngImage2'
|
||||
Background = clWindow
|
||||
end
|
||||
item
|
||||
PngImage.Data = {
|
||||
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
|
||||
61000000097048597300000AEB00000AEB01828B0D5A000002C64944415478DA
|
||||
A5927D2CD4711CC7DFBFDF39DCF0A373E8C2C539E629CB501A895637569BFCD1
|
||||
CA865A512DCC6CB5F5F09755D316ABFC412D61981EAEB4FEE841C8D684123D8A
|
||||
3CE5E1B8BB724EE708E777BFBE146B46B3F5D9BEFB7EF7FD7C3FAFF7E7E14BE1
|
||||
1FA638EB729965671DDB2FAA13B300D3726FA895826F1C862C645752233DD564
|
||||
D950D3293F5684C65503AE46C3C279B37F76CCFEC80C5A9B4F553D36952BBB70
|
||||
3C4D01C3AA002599C24D41F21485BFB8CC154635DA7B6C752D4DFAF8C42BECB3
|
||||
1501B97B216018387314BC2501D169A111EBE4CC6C0945F1AC60E06F4453CD50
|
||||
536F5B6F0E8968D34F62F0643926E60115A7C4F75D7D83FC058C99C486B1B660
|
||||
1886B2B7F901BEA192B88D80B527E01085598114234A25C6541F398346353339
|
||||
661AD2F4AADF53B74F8B0A82622509521F9D35ADD70363644D1B7FA7C517026B
|
||||
8209602B6041CE5001330A70235A0C7EE04FBDAE1FBF45CDA52E76477AC80E9C
|
||||
737785396F92BCE3E6A27980AD1F200C05EC02009A404DB5308D5641F9C6C8BE
|
||||
AA438E6E0CD9F33D283E004B81235203837046268590A6FFA88BC2092084A8DB
|
||||
938B0170D3A5E87B396C68AD419E5A8FECB47C18169B38373AB760E46E8B42AA
|
||||
AD1D9FD4EE053846013664E7B144FD39A6548F505B6ABA37FA190793169AF8F7
|
||||
481E64799C08DFEE744964F7952893DA456124138678BA81A90A18BAD5A8B98B
|
||||
BCB8F3C858F61F3CBCE07B73E71EBF43028B1E70F65B60B222EA941134550D4A
|
||||
570B7698C3D34AD393E62C6EF7C2D75E045C3F02FE7A9FC03A799C6F18673601
|
||||
EDC45A0C74F40F70ECCF59676F481DADFBC1FBAE45FD0BEED3BBD6F1C8F43268
|
||||
970224011171D532CF71697787F28BB267E48E6E78A498A3C1DA8A84FB5CBC5C
|
||||
1264DEE20D9AAE014D735D7B6C7211DE2E057838384B0BC1EA1A46BFE94A93AF
|
||||
A17361A0735670146EF64EE2784B733A46D33794995288967900C771F81FFB05
|
||||
0E850CDB2DC0A2320000000049454E44AE426082}
|
||||
Name = 'PngImage3'
|
||||
Background = clWindow
|
||||
end>
|
||||
Left = 56
|
||||
Top = 48
|
||||
|
||||
@ -34,7 +34,7 @@ uses
|
||||
cxGridBandedTableView, cxGridDBBandedTableView, dxPSGlbl, dxPSUtl,
|
||||
dxPSEngn, dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider,
|
||||
dxPSFillPatterns, dxPSEdgePatterns, dxPSCore, dxPScxCommon, dxPScxGridLnk,
|
||||
ImgList, PngImageList;
|
||||
ImgList, PngImageList, cxImageComboBox;
|
||||
|
||||
type
|
||||
IViewObras = interface(IViewGrid)
|
||||
@ -56,12 +56,16 @@ type
|
||||
cxStylePendiente: TcxStyle;
|
||||
cxGridViewESTADO: TcxGridDBColumn;
|
||||
cxGridViewNOMBRECLIENTE: TcxGridDBColumn;
|
||||
cxGridViewALMACEN: TcxGridDBColumn;
|
||||
procedure cxGridViewESTADOCustomDrawCell(
|
||||
Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
|
||||
AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
|
||||
procedure cxGridViewStylesGetContentStyle(
|
||||
Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord;
|
||||
AItem: TcxCustomGridTableItem; out AStyle: TcxStyle);
|
||||
procedure cxGridViewALMACENCustomDrawCell(
|
||||
Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
|
||||
AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
|
||||
protected
|
||||
FObras: IBizObra;
|
||||
function GetObras: IBizObra; virtual;
|
||||
@ -150,4 +154,20 @@ begin
|
||||
cxGridViewESTADO.Visible := True;
|
||||
end;
|
||||
|
||||
procedure TfrViewObras.cxGridViewALMACENCustomDrawCell(
|
||||
Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
|
||||
AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
|
||||
var
|
||||
R : TRect;
|
||||
begin
|
||||
inherited;
|
||||
if (AViewInfo.Value <> '0') then
|
||||
begin
|
||||
R := AViewInfo.ContentBounds;
|
||||
ACanvas.FillRect(R);
|
||||
ACanvas.DrawImage(PngImageList, R.Left, R.Top, 3);
|
||||
ADone := True;
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
@ -47,6 +47,7 @@ const
|
||||
fld_ObrasTOTALPRESUPUESTOSFIN = 'TOTALPRESUPUESTOSFIN';
|
||||
fld_ObrasCODIGOCONTACTO = 'CODIGOCONTACTO';
|
||||
fld_ObrasNOMBRECLIENTE = 'NOMBRECLIENTE';
|
||||
fld_ObrasALMACEN = 'ALMACEN';
|
||||
|
||||
{ Obras field indexes }
|
||||
idx_ObrasCODIGOEMPRESA = 0;
|
||||
@ -69,6 +70,7 @@ const
|
||||
idx_ObrasTOTALPRESUPUESTOSFIN = 17;
|
||||
idx_ObrasCODIGOCONTACTO = 18;
|
||||
idx_ObrasNOMBRECLIENTE = 19;
|
||||
idx_ObrasALMACEN = 20;
|
||||
|
||||
{ ContactosObra fields }
|
||||
fld_ContactosObraCODIGOOBRA = 'CODIGOOBRA';
|
||||
@ -237,6 +239,8 @@ type
|
||||
procedure SetCODIGOCONTACTOValue(const aValue: Integer);
|
||||
function GetNOMBRECLIENTEValue: String;
|
||||
procedure SetNOMBRECLIENTEValue(const aValue: String);
|
||||
function GetALMACENValue: String;
|
||||
procedure SetALMACENValue(const aValue: String);
|
||||
|
||||
|
||||
{ Properties }
|
||||
@ -260,6 +264,7 @@ type
|
||||
property TOTALPRESUPUESTOSFIN: Currency read GetTOTALPRESUPUESTOSFINValue write SetTOTALPRESUPUESTOSFINValue;
|
||||
property CODIGOCONTACTO: Integer read GetCODIGOCONTACTOValue write SetCODIGOCONTACTOValue;
|
||||
property NOMBRECLIENTE: String read GetNOMBRECLIENTEValue write SetNOMBRECLIENTEValue;
|
||||
property ALMACEN: String read GetALMACENValue write SetALMACENValue;
|
||||
end;
|
||||
|
||||
{ TObrasDataTableRules }
|
||||
@ -307,7 +312,8 @@ type
|
||||
procedure SetCODIGOCONTACTOValue(const aValue: Integer); virtual;
|
||||
function GetNOMBRECLIENTEValue: String; virtual;
|
||||
procedure SetNOMBRECLIENTEValue(const aValue: String); virtual;
|
||||
|
||||
function GetALMACENValue: String; virtual;
|
||||
procedure SetALMACENValue(const aValue: String); virtual;
|
||||
{ Properties }
|
||||
property CODIGOEMPRESA: Integer read GetCODIGOEMPRESAValue write SetCODIGOEMPRESAValue;
|
||||
property CODIGO: Integer read GetCODIGOValue write SetCODIGOValue;
|
||||
@ -329,6 +335,7 @@ type
|
||||
property TOTALPRESUPUESTOSFIN: Currency read GetTOTALPRESUPUESTOSFINValue write SetTOTALPRESUPUESTOSFINValue;
|
||||
property CODIGOCONTACTO: Integer read GetCODIGOCONTACTOValue write SetCODIGOCONTACTOValue;
|
||||
property NOMBRECLIENTE: String read GetNOMBRECLIENTEValue write SetNOMBRECLIENTEValue;
|
||||
property ALMACEN: String read GetALMACENValue write SetALMACENValue;
|
||||
|
||||
public
|
||||
constructor Create(aDataTable: TDADataTable); override;
|
||||
@ -943,6 +950,16 @@ begin
|
||||
DataTable.Fields[idx_ObrasAPLICAHONORARIOS].AsString := aValue;
|
||||
end;
|
||||
|
||||
function TObrasDataTableRules.GetALMACENValue: String;
|
||||
begin
|
||||
result := DataTable.Fields[idx_ObrasALMACEN].AsString;
|
||||
end;
|
||||
|
||||
procedure TObrasDataTableRules.SetALMACENValue(const aValue: String);
|
||||
begin
|
||||
DataTable.Fields[idx_ObrasALMACEN].AsString := aValue;
|
||||
end;
|
||||
|
||||
function TObrasDataTableRules.GetTOTALPRESUPUESTOSINIValue: Currency;
|
||||
begin
|
||||
result := DataTable.Fields[idx_ObrasTOTALPRESUPUESTOSINI].AsCurrency;
|
||||
|
||||
@ -42,6 +42,7 @@ type
|
||||
function GetOldTOTALPRESUPUESTOSFINValue : Currency;
|
||||
function GetOldCODIGOCONTACTOValue : Integer;
|
||||
function GetOldNOMBRECLIENTEValue : String;
|
||||
function GetOldALMACENValue : String;
|
||||
|
||||
{ Properties }
|
||||
property OldCODIGOEMPRESA : Integer read GetOldCODIGOEMPRESAValue;
|
||||
@ -64,6 +65,7 @@ type
|
||||
property OldTOTALPRESUPUESTOSFIN : Currency read GetOldTOTALPRESUPUESTOSFINValue;
|
||||
property OldCODIGOCONTACTO : Integer read GetOldCODIGOCONTACTOValue;
|
||||
property OldNOMBRECLIENTE : String read GetOldNOMBRECLIENTEValue;
|
||||
property OldALMACEN : String read GetOldALMACENValue;
|
||||
end;
|
||||
|
||||
{ TObrasBusinessProcessorRules }
|
||||
@ -131,6 +133,9 @@ type
|
||||
function GetNOMBRECLIENTEValue: String; virtual;
|
||||
function GetOldNOMBRECLIENTEValue: String; virtual;
|
||||
procedure SetNOMBRECLIENTEValue(const aValue: String); virtual;
|
||||
function GetALMACENValue: String; virtual;
|
||||
function GetOldALMACENValue: String; virtual;
|
||||
procedure SetALMACENValue(const aValue: String); virtual;
|
||||
|
||||
{ Properties }
|
||||
property CODIGOEMPRESA : Integer read GetCODIGOEMPRESAValue write SetCODIGOEMPRESAValue;
|
||||
@ -173,6 +178,8 @@ type
|
||||
property OldCODIGOCONTACTO : Integer read GetOldCODIGOCONTACTOValue;
|
||||
property NOMBRECLIENTE : String read GetNOMBRECLIENTEValue write SetNOMBRECLIENTEValue;
|
||||
property OldNOMBRECLIENTE : String read GetOldNOMBRECLIENTEValue;
|
||||
property ALMACEN : String read GetALMACENValue write SetALMACENValue;
|
||||
property OldALMACEN : String read GetOldALMACENValue;
|
||||
|
||||
public
|
||||
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
||||
@ -911,6 +918,21 @@ begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_ObrasAPLICAHONORARIOS] := aValue;
|
||||
end;
|
||||
|
||||
function TObrasBusinessProcessorRules.GetALMACENValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ObrasALMACEN];
|
||||
end;
|
||||
|
||||
function TObrasBusinessProcessorRules.GetOldALMACENValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ObrasALMACEN];
|
||||
end;
|
||||
|
||||
procedure TObrasBusinessProcessorRules.SetALMACENValue(const aValue: String);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_ObrasALMACEN] := aValue;
|
||||
end;
|
||||
|
||||
function TObrasBusinessProcessorRules.GetTOTALPRESUPUESTOSINIValue: Currency;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ObrasTOTALPRESUPUESTOSINI];
|
||||
|
||||
@ -185,8 +185,11 @@ type
|
||||
|
||||
//DOCUMENTOS ASOCIADOS
|
||||
FGestorDocumentos: TGestorDocumentos;
|
||||
FGestorDocumentosNuevo: TGestorDocumentos;
|
||||
function GetGestorDocumentos: TGestorDocumentos;
|
||||
procedure SetGestorDocumentos(Value: TGestorDocumentos);
|
||||
function GetGestorDocumentosNuevo: TGestorDocumentos;
|
||||
procedure SetGestorDocumentosNuevo(Value: TGestorDocumentos);
|
||||
|
||||
protected
|
||||
procedure OnNewRecord(Sender: TDADataTable); override;
|
||||
@ -222,6 +225,7 @@ type
|
||||
|
||||
//DOCUMENTOS ASOCIADOS
|
||||
property GestorDocumentos: TGestorDocumentos read GetGestorDocumentos write SetGestorDocumentos;
|
||||
property GestorDocumentosNuevo: TGestorDocumentos read GetGestorDocumentosNuevo write SetGestorDocumentosNuevo;
|
||||
|
||||
constructor Create(aDataTable: TDADataTable); override;
|
||||
destructor Destroy; override;
|
||||
@ -298,8 +302,11 @@ type
|
||||
|
||||
//DOCUMENTOS ASOCIADOS
|
||||
FGestorDocumentos: TGestorDocumentos;
|
||||
FGestorDocumentosNuevo: TGestorDocumentos;
|
||||
function GetGestorDocumentos: TGestorDocumentos;
|
||||
procedure SetGestorDocumentos(Value: TGestorDocumentos);
|
||||
function GetGestorDocumentosNuevo: TGestorDocumentos;
|
||||
procedure SetGestorDocumentosNuevo(Value: TGestorDocumentos);
|
||||
|
||||
protected
|
||||
procedure OnNewRecord(Sender: TDADataTable); override;
|
||||
@ -322,6 +329,7 @@ type
|
||||
|
||||
//DOCUMENTOS ASOCIADOS
|
||||
property GestorDocumentos: TGestorDocumentos read GetGestorDocumentos write SetGestorDocumentos;
|
||||
property GestorDocumentosNuevo: TGestorDocumentos read GetGestorDocumentosNuevo write SetGestorDocumentosNuevo;
|
||||
|
||||
constructor Create(aDataTable: TDADataTable); override;
|
||||
destructor Destroy; override;
|
||||
@ -480,6 +488,7 @@ begin
|
||||
|
||||
//DOCUMENTOS ASOCIADOS
|
||||
GestorDocumentos.Directorio := NOMBRE;
|
||||
GestorDocumentosNuevo.Directorio := NOMBRE;
|
||||
end;
|
||||
|
||||
procedure TBizObraDataTableRules.BeforeApplyUpdates(DataTable: TDADataTable; const Delta: IDADelta);
|
||||
@ -493,6 +502,7 @@ begin
|
||||
|
||||
//DOCUMENTOS ASOCIADOS
|
||||
GestorDocumentos.procesarCancelTable;
|
||||
GestorDocumentosNuevo.procesarCancelTable;
|
||||
end;
|
||||
|
||||
procedure TBizObraDataTableRules.BeforeDelete(Sender: TDADataTable);
|
||||
@ -501,6 +511,7 @@ begin
|
||||
|
||||
//DOCUMENTOS ASOCIADOS
|
||||
GestorDocumentos.procesarDeleteTable;
|
||||
GestorDocumentosNuevo.procesarDeleteTable;
|
||||
end;
|
||||
|
||||
constructor TBizObraDataTableRules.Create(aDataTable: TDADataTable);
|
||||
@ -516,6 +527,9 @@ begin
|
||||
//DOCUMENTOS ASOCIADOS
|
||||
FGestorDocumentos := TGestorDocumentos.Create(dmBase.darEstructuraDirNormativas);
|
||||
FGestorDocumentos.RootDocumentos := dmBase.darRutaDocumentosNormativas;
|
||||
FGestorDocumentosNuevo := TGestorDocumentos.Create(dmBase.darEstructuraDirNormativas);
|
||||
FGestorDocumentosNuevo.RootDocumentos := dmBase.darRutaDocumentosNormativasNueva;
|
||||
|
||||
aDataTable.BeforeCancel := BeforeCancel;
|
||||
aDataTable.AfterCancel := AfterCancel;
|
||||
end;
|
||||
@ -534,6 +548,7 @@ begin
|
||||
|
||||
//DOCUMENTOS ASOCIADOS
|
||||
FreeAndNil(FGestorDocumentos);
|
||||
FreeAndNil(FGestorDocumentosNuevo);
|
||||
|
||||
inherited;
|
||||
end;
|
||||
@ -564,6 +579,12 @@ begin
|
||||
Result := FGestorDocumentos;
|
||||
end;
|
||||
|
||||
function TBizObraDataTableRules.GetGestorDocumentosNuevo: TGestorDocumentos;
|
||||
begin
|
||||
FGestorDocumentosNuevo.Directorio := NOMBRE;
|
||||
Result := FGestorDocumentosNuevo;
|
||||
end;
|
||||
|
||||
function TBizObraDataTableRules.GetPresupuestos: IBizPresupuestosObra;
|
||||
begin
|
||||
Result := FPresupuestos;
|
||||
@ -639,6 +660,11 @@ begin
|
||||
FGestorDocumentos := Value;
|
||||
end;
|
||||
|
||||
procedure TBizObraDataTableRules.SetGestorDocumentosNuevo(Value: TGestorDocumentos);
|
||||
begin
|
||||
FGestorDocumentosNuevo := Value;
|
||||
end;
|
||||
|
||||
procedure TBizObraDataTableRules.SetPresupuestos(const Value: IBizPresupuestosObra);
|
||||
begin
|
||||
FPresupuestos := Value;
|
||||
@ -989,6 +1015,7 @@ begin
|
||||
|
||||
//DOCUMENTOS ASOCIADOS
|
||||
GestorDocumentos.Directorio := DESCRIPCION;
|
||||
GestorDocumentosNuevo.Directorio := DESCRIPCION;
|
||||
end;
|
||||
|
||||
procedure TBizProyectosDataTableRules.BeforeApplyUpdates(DataTable: TDADataTable; const Delta: IDADelta);
|
||||
@ -1002,6 +1029,7 @@ begin
|
||||
|
||||
//DOCUMENTOS ASOCIADOS
|
||||
GestorDocumentos.procesarCancelTable;
|
||||
GestorDocumentosNuevo.procesarCancelTable;
|
||||
end;
|
||||
|
||||
procedure TBizProyectosDataTableRules.BeforeDelete(Sender: TDADataTable);
|
||||
@ -1010,6 +1038,7 @@ begin
|
||||
|
||||
//DOCUMENTOS ASOCIADOS
|
||||
GestorDocumentos.procesarDeleteTable;
|
||||
GestorDocumentosNuevo.procesarDeleteTable;
|
||||
end;
|
||||
|
||||
constructor TBizProyectosDataTableRules.Create(aDataTable: TDADataTable);
|
||||
@ -1021,6 +1050,9 @@ begin
|
||||
//DOCUMENTOS ASOCIADOS
|
||||
FGestorDocumentos := TGestorDocumentos.Create(dmBase.darEstructuraDirProyectos);
|
||||
FGestorDocumentos.RootDocumentos := dmBase.darRutaDocumentosProyectos;
|
||||
FGestorDocumentosNuevo := TGestorDocumentos.Create(dmBase.darEstructuraDirProyectos);
|
||||
FGestorDocumentosNuevo.RootDocumentos := dmBase.darRutaDocumentosProyectosNueva;
|
||||
|
||||
aDataTable.BeforeCancel := BeforeCancel;
|
||||
aDataTable.AfterCancel := AfterCancel;
|
||||
end;
|
||||
@ -1032,6 +1064,7 @@ begin
|
||||
|
||||
//DOCUMENTOS ASOCIADOS
|
||||
FreeAndNil(FGestorDocumentos);
|
||||
FreeAndNil(FGestorDocumentosNuevo);
|
||||
inherited;
|
||||
end;
|
||||
|
||||
@ -1041,6 +1074,12 @@ begin
|
||||
Result := FGestorDocumentos;
|
||||
end;
|
||||
|
||||
function TBizProyectosDataTableRules.GetGestorDocumentosNuevo: TGestorDocumentos;
|
||||
begin
|
||||
FGestorDocumentosNuevo.Directorio := DESCRIPCION;
|
||||
Result := FGestorDocumentosNuevo;
|
||||
end;
|
||||
|
||||
function TBizProyectosDataTableRules.GetObra: IBizObra;
|
||||
begin
|
||||
Result := FObra;
|
||||
@ -1071,6 +1110,11 @@ begin
|
||||
FGestorDocumentos := Value;
|
||||
end;
|
||||
|
||||
procedure TBizProyectosDataTableRules.SetGestorDocumentosNuevo(Value: TGestorDocumentos);
|
||||
begin
|
||||
FGestorDocumentosNuevo := Value;
|
||||
end;
|
||||
|
||||
procedure TBizProyectosDataTableRules.SetObra(const Value: IBizObra);
|
||||
begin
|
||||
FObra := Value;
|
||||
|
||||
@ -27,7 +27,7 @@ object srvObras: TsrvObras
|
||||
'S.PROVINCIA, OBRAS.TIPO,'#10' OBRAS.DIMENSIONES, OBRAS.HONORARIOS' +
|
||||
', OBRAS.IMPORTEHONORARIOS,'#10' OBRAS.APLICAHONORARIOS, OBRAS.TOT' +
|
||||
'ALPRESUPUESTOSINI, OBRAS.TOTALPRESUPUESTOSFIN,'#10' OBRAS.CODIGOC' +
|
||||
'ONTACTO, CONTACTOS.NOMBRE as NOMBRECLIENTE'#10' FROM OBRAS'#10' LEFT J' +
|
||||
'ONTACTO, CONTACTOS.NOMBRE as NOMBRECLIENTE, OBRAS.ALMACEN'#10' FROM OBRAS'#10' LEFT J' +
|
||||
'OIN CONTACTOS ON (OBRAS.CODIGOCONTACTO = CONTACTOS.CODIGO)'
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <
|
||||
@ -110,6 +110,10 @@ object srvObras: TsrvObras
|
||||
item
|
||||
DatasetField = 'TOTALPRESUPUESTOSFIN'
|
||||
TableField = 'TOTALPRESUPUESTOSFIN'
|
||||
end
|
||||
item
|
||||
DatasetField = 'ALMACEN'
|
||||
TableField = 'ALMACEN'
|
||||
end>
|
||||
end>
|
||||
Name = 'Obras'
|
||||
@ -338,6 +342,18 @@ object srvObras: TsrvObras
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'ALMACEN'
|
||||
DataType = datString
|
||||
Size = 1
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end>
|
||||
BusinessRulesClient.ScriptLanguage = rslPascalScript
|
||||
BusinessRulesServer.ScriptLanguage = rslPascalScript
|
||||
|
||||
Binary file not shown.
@ -62,6 +62,18 @@
|
||||
</Parameter>
|
||||
</Parameters>
|
||||
</Operation>
|
||||
<Operation Name="darRutaProyectosNueva" UID="{80838AF7-9BC4-4C0D-A35E-EFE3129CAE18}">
|
||||
<Parameters>
|
||||
<Parameter Name="Result" DataType="String" Flag="Result">
|
||||
</Parameter>
|
||||
</Parameters>
|
||||
</Operation>
|
||||
<Operation Name="darRutaNormativasNueva" UID="{412F6B65-1A05-4819-87FA-AF9CB727F0FF}">
|
||||
<Parameters>
|
||||
<Parameter Name="Result" DataType="String" Flag="Result">
|
||||
</Parameter>
|
||||
</Parameters>
|
||||
</Operation>
|
||||
<Operation Name="darRutaNormativas" UID="{7105D2B8-8A2C-4D4A-AD86-6112D8062418}">
|
||||
<Parameters>
|
||||
<Parameter Name="Result" DataType="String" Flag="Result">
|
||||
|
||||
@ -106,6 +106,8 @@ type
|
||||
IsrvConfiguracion = interface(IDARemoteService)
|
||||
['{F3739ECF-58ED-416F-A4E8-261510BC5E89}']
|
||||
function darRutaProyectos: String;
|
||||
function darRutaProyectosNueva: String;
|
||||
function darRutaNormativasNueva: String;
|
||||
function darRutaNormativas: String;
|
||||
function darEstructuraDirProyectos: TDAStringArray;
|
||||
function darEstructuraDirNormativas: TDAStringArray;
|
||||
@ -122,6 +124,8 @@ type
|
||||
function __GetInterfaceName:string; override;
|
||||
|
||||
function darRutaProyectos: String;
|
||||
function darRutaProyectosNueva: String;
|
||||
function darRutaNormativasNueva: String;
|
||||
function darRutaNormativas: String;
|
||||
function darEstructuraDirProyectos: TDAStringArray;
|
||||
function darEstructuraDirNormativas: TDAStringArray;
|
||||
@ -367,6 +371,50 @@ begin
|
||||
end
|
||||
end;
|
||||
|
||||
function TsrvConfiguracion_Proxy.darRutaProyectosNueva: String;
|
||||
var
|
||||
__request, __response : TMemoryStream;
|
||||
begin
|
||||
__request := TMemoryStream.Create;
|
||||
__response := TMemoryStream.Create;
|
||||
|
||||
try
|
||||
__Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'darRutaProyectosNueva');
|
||||
__Message.Finalize;
|
||||
|
||||
__Message.WriteToStream(__request);
|
||||
__TransportChannel.Dispatch(__request, __response);
|
||||
__Message.ReadFromStream(__response);
|
||||
|
||||
__Message.Read('Result', TypeInfo(String), result, []);
|
||||
finally
|
||||
__request.Free;
|
||||
__response.Free;
|
||||
end
|
||||
end;
|
||||
|
||||
function TsrvConfiguracion_Proxy.darRutaNormativasNueva: String;
|
||||
var
|
||||
__request, __response : TMemoryStream;
|
||||
begin
|
||||
__request := TMemoryStream.Create;
|
||||
__response := TMemoryStream.Create;
|
||||
|
||||
try
|
||||
__Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'darRutaNormativasNueva');
|
||||
__Message.Finalize;
|
||||
|
||||
__Message.WriteToStream(__request);
|
||||
__TransportChannel.Dispatch(__request, __response);
|
||||
__Message.ReadFromStream(__response);
|
||||
|
||||
__Message.Read('Result', TypeInfo(String), result, []);
|
||||
finally
|
||||
__request.Free;
|
||||
__response.Free;
|
||||
end
|
||||
end;
|
||||
|
||||
function TsrvConfiguracion_Proxy.darRutaNormativas: String;
|
||||
var
|
||||
__request, __response : TMemoryStream;
|
||||
|
||||
@ -45,6 +45,8 @@ type
|
||||
protected
|
||||
published
|
||||
procedure Invoke_darRutaProyectos(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
||||
procedure Invoke_darRutaProyectosNueva(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
||||
procedure Invoke_darRutaNormativasNueva(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
||||
procedure Invoke_darRutaNormativas(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
||||
procedure Invoke_darEstructuraDirProyectos(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
||||
procedure Invoke_darEstructuraDirNormativas(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
||||
@ -182,6 +184,38 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TsrvConfiguracion_Invoker.Invoke_darRutaProyectosNueva(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
||||
{ function darRutaProyectosNueva: String; }
|
||||
var
|
||||
lResult: String;
|
||||
begin
|
||||
try
|
||||
lResult := (__Instance as IsrvConfiguracion).darRutaProyectosNueva;
|
||||
|
||||
__Message.Initialize(__Transport, 'FactuGES', 'srvConfiguracion', 'darRutaProyectosNuevaResponse');
|
||||
__Message.Write('Result', TypeInfo(String), lResult, []);
|
||||
__Message.Finalize;
|
||||
|
||||
finally
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TsrvConfiguracion_Invoker.Invoke_darRutaNormativasNueva(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
||||
{ function darRutaNormativasNueva: String; }
|
||||
var
|
||||
lResult: String;
|
||||
begin
|
||||
try
|
||||
lResult := (__Instance as IsrvConfiguracion).darRutaNormativasNueva;
|
||||
|
||||
__Message.Initialize(__Transport, 'FactuGES', 'srvConfiguracion', 'darRutaNormativasNuevaResponse');
|
||||
__Message.Write('Result', TypeInfo(String), lResult, []);
|
||||
__Message.Finalize;
|
||||
|
||||
finally
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TsrvConfiguracion_Invoker.Invoke_darRutaNormativas(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
||||
{ function darRutaNormativas: String; }
|
||||
var
|
||||
|
||||
@ -114,7 +114,7 @@ IncludeVerInfo=1
|
||||
AutoIncBuild=0
|
||||
MajorVer=2
|
||||
MinorVer=0
|
||||
Release=3
|
||||
Release=4
|
||||
Build=0
|
||||
Debug=0
|
||||
PreRelease=0
|
||||
@ -126,13 +126,13 @@ CodePage=1252
|
||||
[Version Info Keys]
|
||||
CompanyName=Rodax Software S.L.
|
||||
FileDescription=
|
||||
FileVersion=2.0.3.0
|
||||
FileVersion=2.0.4.0
|
||||
InternalName=ProGestion_Server
|
||||
LegalCopyright=
|
||||
LegalTrademarks=
|
||||
OriginalFilename=ProGestion_Server.exe
|
||||
ProductName=ProGestion Server
|
||||
ProductVersion=1.0.0.0
|
||||
ProductVersion=2.0.4.0
|
||||
Comments=
|
||||
[Excluded Packages]
|
||||
C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\cxLibraryVCLD7.bpl=Express Cross Platform Library (VCL Edition) by Developer Express Inc.
|
||||
@ -176,30 +176,32 @@ C:\Componentes\FastReport 3\LibD7\frxIBX7.bpl=(untitled)
|
||||
C:\Componentes\FastReport 3\LibD7\fsIBX7.bpl=(untitled)
|
||||
C:\Componentes\FastReport 3\LibD7\frxTee7.bpl=(untitled)
|
||||
[HistoryLists\hlDebugSourcePath]
|
||||
Count=1
|
||||
Count=2
|
||||
Item0=D:\Proyectos\Componentes\GUISDK\Sources\;D:\Proyectos\Componentes\PluginSDK\Source\;D:\Proyectos\FactuGES (Estudio)\Codigo\Modulos\Contactos\Cliente;D:\Proyectos\FactuGES (Estudio)\Codigo\Modulos\Contactos\Reglas
|
||||
Item1=.\
|
||||
[HistoryLists\hlUnitAliases]
|
||||
Count=1
|
||||
Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
|
||||
[HistoryLists\hlSearchPath]
|
||||
Count=17
|
||||
Count=18
|
||||
Item0=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\base;..\Modulos\Contactos\Cliente;..\Modulos\Contactos\Reglas;..\Modulos\Obras\Reglas;..\Modulos\Obras\Cliente;..\Modulos\Documentos asociados;..\Modulos\Facturas de cliente\Cliente;..\Modulos\Facturas de cliente\Reglas;..\Modulos\Recibos\Cliente;..\Modulos\Recibos\Reglas;..\Modulos\Obras Final\Cliente;..\Modulos\Obras Final\Reglas
|
||||
Item1=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\Presupuestos\Cliente;..\..\..\Usuarios;..\..\Albaranes de cliente\Cliente;..\..\Documentos asociados;..\..\Pagos\Cliente;..\..\Intervalos\Cliente;..\..\Asientos\Cliente;..\..\Cuentas\Cliente
|
||||
Item2=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\Presupuestos\Cliente;..\..\..\Usuarios;..\..\Albaranes de cliente\Cliente;..\..\Documentos asociados;..\..\Pagos\Cliente;..\..\Intervalos\Cliente;..\..\Asientos\Cliente
|
||||
Item3=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\Presupuestos\Cliente;..\..\..\Usuarios;..\..\Albaranes de cliente\Cliente;..\..\Documentos asociados;..\..\Pagos\Cliente;..\..\Intervalos\Cliente
|
||||
Item4=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\Presupuestos\Cliente;..\..\..\Usuarios;..\..\Albaranes de cliente\Cliente;..\..\Documentos asociados;..\..\Pagos\Cliente
|
||||
Item5=..\Modulos\Presupuestos\Reglas;..\Modulos\Contactos\Reglas;..\Base;..\Configuracion;..\Usuarios;..\Modulos\Albaranes de cliente\Reglas
|
||||
Item6=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\Base;..\Configuracion;..\Usuarios;..\Modulos\Intervalos;..\Modulos\Documentos asociados;..\Modulos\Contactos\Cliente;..\Modulos\Contactos\Reglas;..\Modulos\Presupuestos\Cliente;..\Modulos\Presupuestos\Reglas;..\Modulos\Albaranes de cliente\Cliente;..\Modulos\Albaranes de cliente\Reglas;..\Modulos\Facturas de cliente\Cliente;..\Modulos\Facturas de cliente\Reglas;..\Modulos\Pedidos a proveedor\Cliente;..\Modulos\Pedidos a proveedor\Reglas;..\Modulos\Facturas de proveedor\Cliente;..\Modulos\Facturas de proveedor\Reglas;..\Modulos\Montajes\Reglas;..\Modulos\Montajes\Cliente;..\Modulos\Articulos\Cliente;..\Modulos\Articulos\Reglas;..\Modulos\Almacenes\Reglas;..\Modulos\Almacenes\Cliente;..\Modulos\Pagos\Reglas;..\Modulos\Pagos\Cliente;..\Modulos\Cuentas\Reglas;..\Modulos\Cuentas\Cliente;..\Modulos\Asientos\Reglas;..\Modulos\Asientos\Cliente;..\Modulos\Calendarios\Cliente;..\Modulos\Calendarios\Reglas
|
||||
Item7=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\..\Montajes\Cliente;..\..\Documentos asociados;..\..\Contactos\Cliente;..\..\Almacenes\Cliente
|
||||
Item8=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\..\Usuarios;..\..\Documentos asociados
|
||||
Item9=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\..\Montajes\Cliente;..\..\Documentos asociados;..\..\Contactos\Cliente
|
||||
Item10=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\..\Montajes\Cliente;..\..\Documentos asociados
|
||||
Item11=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\..\Montajes\Cliente
|
||||
Item12=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\..\Usuarios;..\..\Documentos asociados;..\..\Montajes\Cliente;..\..\Almacenes\Cliente
|
||||
Item13=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\..\Usuarios;..\..\Documentos asociados;..\..\Montajes\Cliente
|
||||
Item14=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\Servidor
|
||||
Item15=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\base;..\Modulos\Calendarios\Cliente;..\Modulos\Calendarios\Reglas
|
||||
Item16=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\Base;..\..\Servidor;..\..\Contactos\Cliente;..\..\..\Usuarios
|
||||
Item1=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\Reglas;..\..\Obras\Cliente;..\..\Facturas de cliente\Cliente;..\..\Contactos\Cliente;..\..\Documentos asociados;..\..\Recibos\Cliente
|
||||
Item2=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\Presupuestos\Cliente;..\..\..\Usuarios;..\..\Albaranes de cliente\Cliente;..\..\Documentos asociados;..\..\Pagos\Cliente;..\..\Intervalos\Cliente;..\..\Asientos\Cliente;..\..\Cuentas\Cliente
|
||||
Item3=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\Presupuestos\Cliente;..\..\..\Usuarios;..\..\Albaranes de cliente\Cliente;..\..\Documentos asociados;..\..\Pagos\Cliente;..\..\Intervalos\Cliente;..\..\Asientos\Cliente
|
||||
Item4=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\Presupuestos\Cliente;..\..\..\Usuarios;..\..\Albaranes de cliente\Cliente;..\..\Documentos asociados;..\..\Pagos\Cliente;..\..\Intervalos\Cliente
|
||||
Item5=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\Presupuestos\Cliente;..\..\..\Usuarios;..\..\Albaranes de cliente\Cliente;..\..\Documentos asociados;..\..\Pagos\Cliente
|
||||
Item6=..\Modulos\Presupuestos\Reglas;..\Modulos\Contactos\Reglas;..\Base;..\Configuracion;..\Usuarios;..\Modulos\Albaranes de cliente\Reglas
|
||||
Item7=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\Base;..\Configuracion;..\Usuarios;..\Modulos\Intervalos;..\Modulos\Documentos asociados;..\Modulos\Contactos\Cliente;..\Modulos\Contactos\Reglas;..\Modulos\Presupuestos\Cliente;..\Modulos\Presupuestos\Reglas;..\Modulos\Albaranes de cliente\Cliente;..\Modulos\Albaranes de cliente\Reglas;..\Modulos\Facturas de cliente\Cliente;..\Modulos\Facturas de cliente\Reglas;..\Modulos\Pedidos a proveedor\Cliente;..\Modulos\Pedidos a proveedor\Reglas;..\Modulos\Facturas de proveedor\Cliente;..\Modulos\Facturas de proveedor\Reglas;..\Modulos\Montajes\Reglas;..\Modulos\Montajes\Cliente;..\Modulos\Articulos\Cliente;..\Modulos\Articulos\Reglas;..\Modulos\Almacenes\Reglas;..\Modulos\Almacenes\Cliente;..\Modulos\Pagos\Reglas;..\Modulos\Pagos\Cliente;..\Modulos\Cuentas\Reglas;..\Modulos\Cuentas\Cliente;..\Modulos\Asientos\Reglas;..\Modulos\Asientos\Cliente;..\Modulos\Calendarios\Cliente;..\Modulos\Calendarios\Reglas
|
||||
Item8=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\..\Montajes\Cliente;..\..\Documentos asociados;..\..\Contactos\Cliente;..\..\Almacenes\Cliente
|
||||
Item9=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\..\Usuarios;..\..\Documentos asociados
|
||||
Item10=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\..\Montajes\Cliente;..\..\Documentos asociados;..\..\Contactos\Cliente
|
||||
Item11=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\..\Montajes\Cliente;..\..\Documentos asociados
|
||||
Item12=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\..\Montajes\Cliente
|
||||
Item13=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\..\Usuarios;..\..\Documentos asociados;..\..\Montajes\Cliente;..\..\Almacenes\Cliente
|
||||
Item14=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\..\Usuarios;..\..\Documentos asociados;..\..\Montajes\Cliente
|
||||
Item15=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\Servidor
|
||||
Item16=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\base;..\Modulos\Calendarios\Cliente;..\Modulos\Calendarios\Reglas
|
||||
Item17=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\Base;..\..\Servidor;..\..\Contactos\Cliente;..\..\..\Usuarios
|
||||
[HistoryLists\hlUnitOutputDirectory]
|
||||
Count=1
|
||||
Item0=.\
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
Binary file not shown.
@ -45,6 +45,37 @@ object srvConfiguracion: TsrvConfiguracion
|
||||
BusinessRulesClient.ScriptLanguage = rslPascalScript
|
||||
BusinessRulesServer.ScriptLanguage = rslPascalScript
|
||||
end
|
||||
item
|
||||
Params = <>
|
||||
Statements = <
|
||||
item
|
||||
Connection = 'IBX'
|
||||
TargetTable = 'INTERVALOS'
|
||||
SQL = 'SELECT VALOR'#10'FROM CONFIGURACION'#10'WHERE CODIGO = '#39'PATH_PROYECTOS_NUEVO'#39
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <
|
||||
item
|
||||
DatasetField = 'VALOR'
|
||||
TableField = 'VALOR'
|
||||
end>
|
||||
end>
|
||||
Name = 'darRutaProyectosNueva'
|
||||
Fields = <
|
||||
item
|
||||
Name = 'VALOR'
|
||||
DataType = datString
|
||||
Size = 100
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end>
|
||||
BusinessRulesClient.ScriptLanguage = rslPascalScript
|
||||
BusinessRulesServer.ScriptLanguage = rslPascalScript
|
||||
end
|
||||
item
|
||||
Params = <>
|
||||
Statements = <
|
||||
@ -76,6 +107,37 @@ object srvConfiguracion: TsrvConfiguracion
|
||||
BusinessRulesClient.ScriptLanguage = rslPascalScript
|
||||
BusinessRulesServer.ScriptLanguage = rslPascalScript
|
||||
end
|
||||
item
|
||||
Params = <>
|
||||
Statements = <
|
||||
item
|
||||
Connection = 'IBX'
|
||||
TargetTable = 'INTERVALOS'
|
||||
SQL = 'SELECT VALOR'#10'FROM CONFIGURACION'#10'WHERE CODIGO = '#39'PATH_NORMATIVAS_NUEVO'#39
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <
|
||||
item
|
||||
DatasetField = 'VALOR'
|
||||
TableField = 'VALOR'
|
||||
end>
|
||||
end>
|
||||
Name = 'darRutaNormativasNueva'
|
||||
Fields = <
|
||||
item
|
||||
Name = 'VALOR'
|
||||
DataType = datString
|
||||
Size = 100
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end>
|
||||
BusinessRulesClient.ScriptLanguage = rslPascalScript
|
||||
BusinessRulesServer.ScriptLanguage = rslPascalScript
|
||||
end
|
||||
item
|
||||
Params = <>
|
||||
Statements = <
|
||||
|
||||
@ -26,6 +26,8 @@ type
|
||||
{ IsrvConfiguracion methods }
|
||||
function darRutaProyectos: String;
|
||||
function darRutaNormativas: String;
|
||||
function darRutaProyectosNueva: String;
|
||||
function darRutaNormativasNueva: String;
|
||||
function darEstructuraDirProyectos: TDAStringArray;
|
||||
function darEstructuraDirNormativas: TDAStringArray;
|
||||
end;
|
||||
@ -114,6 +116,36 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
function TsrvConfiguracion.darRutaNormativasNueva: String;
|
||||
var
|
||||
ADataSet : IDADataset;
|
||||
begin
|
||||
try
|
||||
Result:= '';
|
||||
ADataSet := schConfiguracion.NewDataset(Connection, 'darRutaNormativasNueva');
|
||||
ADataSet.Open;
|
||||
if ADataSet.Dataset.RecordCount > 0 then
|
||||
Result := ADataSet.Dataset.Fields[0].AsString;
|
||||
finally
|
||||
ADataSet.Close;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TsrvConfiguracion.darRutaProyectosNueva: String;
|
||||
var
|
||||
ADataSet : IDADataset;
|
||||
begin
|
||||
try
|
||||
Result:= '';
|
||||
ADataSet := schConfiguracion.NewDataset(Connection, 'darRutaProyectosNueva');
|
||||
ADataSet.Open;
|
||||
if ADataSet.Dataset.RecordCount > 0 then
|
||||
Result := ADataSet.Dataset.Fields[0].AsString;
|
||||
finally
|
||||
ADataSet.Close;
|
||||
end;
|
||||
end;
|
||||
|
||||
initialization
|
||||
TROClassFactory.Create('srvConfiguracion', Create_srvConfiguracion, TsrvConfiguracion_Invoker);
|
||||
|
||||
|
||||
Loading…
Reference in New Issue
Block a user