Compare commits
10 Commits
| Author | SHA1 | Date | |
|---|---|---|---|
| 356b718ee6 | |||
| 3ec67c371c | |||
| f6a83992cc | |||
| c82fc72fbd | |||
| cef5adf778 | |||
| f9570d384e | |||
| c64b123ceb | |||
| 33a99cb3e7 | |||
| 085a0e044d | |||
| 15c8705b84 |
BIN
BD/BASEDATOS.FDB
BIN
BD/BASEDATOS.FDB
Binary file not shown.
BIN
Base/BaseD7.dcp
BIN
Base/BaseD7.dcp
Binary file not shown.
@ -135,29 +135,32 @@ ProductName=
|
||||
ProductVersion=1.0.0.0
|
||||
Comments=
|
||||
[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=16
|
||||
Item0=$(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
|
||||
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
|
||||
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
|
||||
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
|
||||
Item4=..\Modulos\Presupuestos\Reglas;..\Modulos\Contactos\Reglas;..\Base;..\Configuracion;..\Usuarios;..\Modulos\Albaranes de cliente\Reglas
|
||||
Item5=$(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
|
||||
Item6=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\..\Montajes\Cliente;..\..\Documentos asociados;..\..\Contactos\Cliente;..\..\Almacenes\Cliente
|
||||
Item7=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\..\Usuarios;..\..\Documentos asociados
|
||||
Item8=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\..\Montajes\Cliente;..\..\Documentos asociados;..\..\Contactos\Cliente
|
||||
Item9=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\..\Montajes\Cliente;..\..\Documentos asociados
|
||||
Item10=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\..\Montajes\Cliente
|
||||
Item11=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\..\Usuarios;..\..\Documentos asociados;..\..\Montajes\Cliente;..\..\Almacenes\Cliente
|
||||
Item12=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\..\Usuarios;..\..\Documentos asociados;..\..\Montajes\Cliente
|
||||
Item13=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\Servidor
|
||||
Item14=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\base;..\Modulos\Calendarios\Cliente;..\Modulos\Calendarios\Reglas
|
||||
Item15=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\Base;..\..\Servidor;..\..\Contactos\Cliente;..\..\..\Usuarios
|
||||
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;..\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=.\
|
||||
|
||||
@ -1,9 +1,8 @@
|
||||
object dmBase: TdmBase
|
||||
OldCreateOrder = True
|
||||
OnCreate = DAClientDataModuleCreate
|
||||
Left = 240
|
||||
Top = 499
|
||||
Height = 376
|
||||
Left = 192
|
||||
Height = 362
|
||||
Width = 502
|
||||
object SmallImages: TPngImageList
|
||||
PngImages = <
|
||||
|
||||
@ -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 := (RORemoteService as IsrvConfiguracion).darRutaNormativasNueva;
|
||||
end;
|
||||
|
||||
function TdmBase.darRutaDocumentosProyectosNueva: String;
|
||||
begin
|
||||
Result := (RORemoteService as IsrvConfiguracion).darRutaProyectosNueva;
|
||||
end;
|
||||
|
||||
initialization
|
||||
dmBase := TdmBase.Create(NIL);
|
||||
|
||||
|
||||
@ -1,8 +1,8 @@
|
||||
object fEditorBase: TfEditorBase
|
||||
Left = 510
|
||||
Top = 423
|
||||
Width = 674
|
||||
Height = 516
|
||||
Left = 4
|
||||
Top = 3
|
||||
Width = 638
|
||||
Height = 444
|
||||
Caption = 'EditorBase'
|
||||
Color = clBtnFace
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
@ -22,7 +22,7 @@ object fEditorBase: TfEditorBase
|
||||
object JvNavPanelHeader: TJvNavPanelHeader
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 666
|
||||
Width = 630
|
||||
Align = alTop
|
||||
Caption = 'Editor'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
@ -37,7 +37,7 @@ object fEditorBase: TfEditorBase
|
||||
StyleManager = dmBase.StyleManager
|
||||
ParentStyleManager = False
|
||||
object Image1: TImage
|
||||
Left = 639
|
||||
Left = 603
|
||||
Top = 0
|
||||
Width = 27
|
||||
Height = 27
|
||||
@ -68,7 +68,7 @@ object fEditorBase: TfEditorBase
|
||||
object TBXDock: TTBXDock
|
||||
Left = 0
|
||||
Top = 27
|
||||
Width = 666
|
||||
Width = 630
|
||||
Height = 49
|
||||
AllowDrag = False
|
||||
object tbxMain: TTBXToolbar
|
||||
@ -243,8 +243,8 @@ object fEditorBase: TfEditorBase
|
||||
end
|
||||
object StatusBar: TStatusBar
|
||||
Left = 0
|
||||
Top = 463
|
||||
Width = 666
|
||||
Top = 391
|
||||
Width = 630
|
||||
Height = 19
|
||||
Panels = <
|
||||
item
|
||||
|
||||
@ -1,6 +1,4 @@
|
||||
inherited fEditorDBBase: TfEditorDBBase
|
||||
Left = 482
|
||||
Top = 361
|
||||
Caption = 'fEditorDBBase'
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
|
||||
@ -1,6 +1,4 @@
|
||||
inherited fEditorDBItem: TfEditorDBItem
|
||||
Left = 557
|
||||
Top = 313
|
||||
BorderIcons = [biSystemMenu, biMaximize]
|
||||
Caption = 'fEditorDBItem'
|
||||
PixelsPerInch = 96
|
||||
@ -23,8 +21,8 @@ inherited fEditorDBItem: TfEditorDBItem
|
||||
object pgPaginas: TPageControl [2]
|
||||
Left = 0
|
||||
Top = 76
|
||||
Width = 666
|
||||
Height = 387
|
||||
Width = 630
|
||||
Height = 315
|
||||
ActivePage = pagGeneral
|
||||
Align = alClient
|
||||
TabOrder = 2
|
||||
|
||||
@ -56,7 +56,7 @@ begin
|
||||
'¿Desea guardarlos ahora?', 'Atención', MB_YESNO) = IDYES) then
|
||||
actGuardar.Execute
|
||||
else begin
|
||||
Application.MessageBox('Recuerde guardar los cambios si quiere previsualizar o imprimir.', 'FactuGES', MB_OK);
|
||||
Application.MessageBox('Recuerde guardar los cambios si quiere previsualizar o imprimir.', 'ProGestion', MB_OK);
|
||||
Exit;
|
||||
end;
|
||||
end;
|
||||
@ -78,7 +78,7 @@ begin
|
||||
'¿Desea guardarlos ahora?', 'Atención', MB_YESNO) = IDYES) then
|
||||
actGuardar.Execute
|
||||
else begin
|
||||
Application.MessageBox('Recuerde guardar los cambios si quiere previsualizar o imprimir.', 'FactuGES', MB_OK);
|
||||
Application.MessageBox('Recuerde guardar los cambios si quiere previsualizar o imprimir.', 'ProGestion', MB_OK);
|
||||
Exit;
|
||||
end;
|
||||
end;
|
||||
|
||||
@ -1,19 +1,8 @@
|
||||
inherited fEditorGrid: TfEditorGrid
|
||||
Left = 468
|
||||
Top = 365
|
||||
Width = 719
|
||||
Height = 489
|
||||
Caption = 'fEditorGrid'
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||
Width = 711
|
||||
inherited Image1: TImage
|
||||
Left = 684
|
||||
end
|
||||
end
|
||||
inherited TBXDock: TTBXDock
|
||||
Width = 711
|
||||
inherited tbxMain: TTBXToolbar
|
||||
DefaultDock = TBXDock
|
||||
inherited TBXItem29: TTBXItem
|
||||
@ -49,7 +38,7 @@ inherited fEditorGrid: TfEditorGrid
|
||||
end
|
||||
end
|
||||
object tbxFiltro: TTBXToolbar
|
||||
Left = 442
|
||||
Left = 420
|
||||
Top = 23
|
||||
Align = alRight
|
||||
CloseButton = False
|
||||
@ -82,14 +71,10 @@ inherited fEditorGrid: TfEditorGrid
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited StatusBar: TStatusBar
|
||||
Top = 436
|
||||
Width = 711
|
||||
end
|
||||
inline frViewBarraSeleccion: TfrViewBarraSeleccion [3]
|
||||
Left = 0
|
||||
Top = 398
|
||||
Width = 711
|
||||
Top = 353
|
||||
Width = 630
|
||||
Height = 38
|
||||
Align = alBottom
|
||||
AutoScroll = False
|
||||
@ -103,12 +88,12 @@ inherited fEditorGrid: TfEditorGrid
|
||||
Visible = False
|
||||
ReadOnly = False
|
||||
inherited pnlSeleccion: TPanel
|
||||
Width = 711
|
||||
Width = 630
|
||||
inherited bSeleccionar: TButton
|
||||
Left = 536
|
||||
Left = 455
|
||||
end
|
||||
inherited bCancelar: TButton
|
||||
Left = 615
|
||||
Left = 534
|
||||
end
|
||||
end
|
||||
end
|
||||
|
||||
@ -175,15 +175,15 @@ end;
|
||||
procedure TfEditorGrid.JvFormStorageSavePlacement(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
if Assigned(ViewGrid) then
|
||||
ViewGrid.StoreToRegistry;
|
||||
{if Assigned(ViewGrid) then
|
||||
ViewGrid.StoreToRegistry;}
|
||||
end;
|
||||
|
||||
procedure TfEditorGrid.JvFormStorageRestorePlacement(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
if Assigned(ViewGrid) then
|
||||
ViewGrid.RestoreFromRegistry;
|
||||
{if Assigned(ViewGrid) then
|
||||
ViewGrid.RestoreFromRegistry;}
|
||||
end;
|
||||
|
||||
procedure TfEditorGrid.actRefrescarExecute(Sender: TObject);
|
||||
|
||||
@ -11,10 +11,12 @@ inherited frViewDireccion: TfrViewDireccion
|
||||
TabOrder = 0
|
||||
AutoContentSizes = [acsWidth]
|
||||
object eProvincia: TcxDBTextEdit
|
||||
Left = 272
|
||||
Left = 274
|
||||
Top = 82
|
||||
DataBinding.DataField = 'PROVINCIA'
|
||||
DataBinding.DataSource = DADataSource
|
||||
Style.BorderColor = clWindowFrame
|
||||
Style.BorderStyle = ebs3D
|
||||
Style.LookAndFeel.Kind = lfStandard
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||
@ -27,10 +29,12 @@ inherited frViewDireccion: TfrViewDireccion
|
||||
Width = 70
|
||||
end
|
||||
object eCalle: TcxDBTextEdit
|
||||
Left = 94
|
||||
Left = 96
|
||||
Top = 28
|
||||
DataBinding.DataField = 'CALLE'
|
||||
DataBinding.DataSource = DADataSource
|
||||
Style.BorderColor = clWindowFrame
|
||||
Style.BorderStyle = ebs3D
|
||||
Style.LookAndFeel.Kind = lfStandard
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||
@ -43,10 +47,12 @@ inherited frViewDireccion: TfrViewDireccion
|
||||
Width = 272
|
||||
end
|
||||
object ePoblacion: TcxDBTextEdit
|
||||
Left = 94
|
||||
Left = 96
|
||||
Top = 55
|
||||
DataBinding.DataField = 'POBLACION'
|
||||
DataBinding.DataSource = DADataSource
|
||||
Style.BorderColor = clWindowFrame
|
||||
Style.BorderStyle = ebs3D
|
||||
Style.LookAndFeel.Kind = lfStandard
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||
@ -59,10 +65,12 @@ inherited frViewDireccion: TfrViewDireccion
|
||||
Width = 272
|
||||
end
|
||||
object eCodigoPostal: TcxDBTextEdit
|
||||
Left = 94
|
||||
Left = 96
|
||||
Top = 82
|
||||
DataBinding.DataField = 'CODIGOPOSTAL'
|
||||
DataBinding.DataSource = DADataSource
|
||||
Style.BorderColor = clWindowFrame
|
||||
Style.BorderStyle = ebs3D
|
||||
Style.LookAndFeel.Kind = lfStandard
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||
|
||||
@ -41,7 +41,6 @@ inherited frViewGrid: TfrViewGrid
|
||||
OptionsView.GridLineColor = cl3DLight
|
||||
OptionsView.GroupByBox = False
|
||||
OptionsView.HeaderEndEllipsis = True
|
||||
OptionsView.NewItemRowInfoText = 'Click here to add a new row'
|
||||
Styles.ContentEven = cxStyleEven
|
||||
Styles.ContentOdd = cxStyleOdd
|
||||
Styles.Inactive = cxStyleSelection
|
||||
@ -81,7 +80,7 @@ inherited frViewGrid: TfrViewGrid
|
||||
PrinterPage.PageSize.Y = 297000
|
||||
PrinterPage._dxMeasurementUnits_ = 0
|
||||
PrinterPage._dxLastMU_ = 2
|
||||
ReportDocument.CreationDate = 39000.667590601850000000
|
||||
ReportDocument.CreationDate = 44070.625980925930000000
|
||||
OptionsCharts.Transparent = True
|
||||
OptionsFormatting.SuppressBackgroundBitmaps = True
|
||||
OptionsOnEveryPage.Caption = False
|
||||
@ -107,7 +106,7 @@ inherited frViewGrid: TfrViewGrid
|
||||
end
|
||||
object cxStyleOdd: TcxStyle
|
||||
AssignedValues = [svColor]
|
||||
Color = clInactiveCaptionText
|
||||
Color = clInfoBk
|
||||
end
|
||||
object cxStyleSelection: TcxStyle
|
||||
AssignedValues = [svColor, svTextColor]
|
||||
|
||||
@ -379,12 +379,12 @@ end;
|
||||
|
||||
procedure TfrViewGrid.RestoreFromRegistry;
|
||||
begin
|
||||
cxGridView.RestoreFromRegistry('Software\\FactuGES\\GridSettings\\' + Self.Name, False, False, []);
|
||||
// cxGridView.RestoreFromRegistry('Software\\FactuGES\\GridSettings\\' + Self.Name, False, False, []);
|
||||
end;
|
||||
|
||||
procedure TfrViewGrid.StoreToRegistry;
|
||||
begin
|
||||
cxGridView.StoreToRegistry('Software\\FactuGES\\GridSettings\\' + Self.Name, True, []);
|
||||
// cxGridView.StoreToRegistry('Software\\FactuGES\\GridSettings\\' + Self.Name, True, []);
|
||||
end;
|
||||
|
||||
procedure TfrViewGrid.FilterChanged(Sender: TObject);
|
||||
|
||||
@ -271,7 +271,7 @@ inherited frViewInternet: TfrViewInternet
|
||||
Left = 432
|
||||
Top = 8
|
||||
Bitmap = {
|
||||
494C010102000400040010001000FFFFFFFFFF00FFFFFFFFFFFFFFFF424D3600
|
||||
494C010102000400040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
|
||||
0000000000003600000028000000400000001000000001002000000000000010
|
||||
00000000000000000000000000000000000000000000B7A29300694731006947
|
||||
3100694731006947310069473100694731006947310069473100694731000000
|
||||
@ -407,6 +407,7 @@ inherited frViewInternet: TfrViewInternet
|
||||
801F800100000000801F000100000000801F000000000000A01F000000000000
|
||||
B000000000000000B800000000000000BC00000000000000BE00000000000000
|
||||
BE000000000000008000000000000000EF00800100000000E980800100000000
|
||||
EFC0C00300000000E000F00F00000000}
|
||||
EFC0C00300000000E000F00F0000000000000000000000000000000000000000
|
||||
000000000000}
|
||||
end
|
||||
end
|
||||
|
||||
@ -16,6 +16,8 @@ inherited frViewObservaciones: TfrViewObservaciones
|
||||
DataBinding.DataField = 'OBSERVACIONES'
|
||||
DataBinding.DataSource = DADataSource
|
||||
Properties.ScrollBars = ssVertical
|
||||
Style.BorderColor = clWindowFrame
|
||||
Style.BorderStyle = ebs3D
|
||||
Style.LookAndFeel.Kind = lfStandard
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||
|
||||
@ -11,10 +11,12 @@ inherited frViewTelefonos: TfrViewTelefonos
|
||||
TabOrder = 0
|
||||
AutoContentSizes = [acsWidth]
|
||||
object eTlfParticular: TcxDBTextEdit
|
||||
Left = 87
|
||||
Left = 90
|
||||
Top = 28
|
||||
DataBinding.DataField = 'TELEFONO2'
|
||||
DataBinding.DataSource = DADataSource
|
||||
Style.BorderColor = clWindowFrame
|
||||
Style.BorderStyle = ebs3D
|
||||
Style.LookAndFeel.Kind = lfStandard
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||
@ -27,10 +29,12 @@ inherited frViewTelefonos: TfrViewTelefonos
|
||||
Width = 326
|
||||
end
|
||||
object eTlfTrabajo: TcxDBTextEdit
|
||||
Left = 87
|
||||
Left = 90
|
||||
Top = 55
|
||||
DataBinding.DataField = 'TELEFONO1'
|
||||
DataBinding.DataSource = DADataSource
|
||||
Style.BorderColor = clWindowFrame
|
||||
Style.BorderStyle = ebs3D
|
||||
Style.LookAndFeel.Kind = lfStandard
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||
@ -43,10 +47,12 @@ inherited frViewTelefonos: TfrViewTelefonos
|
||||
Width = 326
|
||||
end
|
||||
object eTlfMovil: TcxDBTextEdit
|
||||
Left = 87
|
||||
Left = 90
|
||||
Top = 82
|
||||
DataBinding.DataField = 'MOVIL'
|
||||
DataBinding.DataSource = DADataSource
|
||||
Style.BorderColor = clWindowFrame
|
||||
Style.BorderStyle = ebs3D
|
||||
Style.LookAndFeel.Kind = lfStandard
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||
@ -59,10 +65,12 @@ inherited frViewTelefonos: TfrViewTelefonos
|
||||
Width = 326
|
||||
end
|
||||
object eFax: TcxDBTextEdit
|
||||
Left = 87
|
||||
Left = 90
|
||||
Top = 109
|
||||
DataBinding.DataField = 'FAX'
|
||||
DataBinding.DataSource = DADataSource
|
||||
Style.BorderColor = clWindowFrame
|
||||
Style.BorderStyle = ebs3D
|
||||
Style.LookAndFeel.Kind = lfStandard
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||
|
||||
@ -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
|
||||
LegalCopyright=
|
||||
LegalTrademarks=
|
||||
OriginalFilename=
|
||||
ProductName=ProGestion
|
||||
ProductVersion=1.2.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=.\
|
||||
|
||||
Binary file not shown.
@ -145,7 +145,7 @@ begin
|
||||
HostManager.LoadModule('FacturasCliente.bpl');
|
||||
HostManager.LoadModule('Recibos.bpl');
|
||||
HostManager.LoadModule('ObrasFinal.bpl');
|
||||
HostManager.LoadModule('Calendarios.bpl');
|
||||
// HostManager.LoadModule('Calendarios.bpl');
|
||||
end;
|
||||
|
||||
InitializeUI;
|
||||
|
||||
Binary file not shown.
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 |
Binary file not shown.
@ -24,7 +24,6 @@
|
||||
-$X+
|
||||
-$YD
|
||||
-$Z1
|
||||
-GD
|
||||
-cg
|
||||
-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
|
||||
-H+
|
||||
@ -35,10 +34,10 @@
|
||||
-N".\"
|
||||
-LE"..\..\..\Output\Cliente"
|
||||
-LN".\"
|
||||
-U"c:\archivos de programa\borland\delphi7\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\Reglas;..\Cliente"
|
||||
-O"c:\archivos de programa\borland\delphi7\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\Reglas;..\Cliente"
|
||||
-I"c:\archivos de programa\borland\delphi7\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\Reglas;..\Cliente"
|
||||
-R"c:\archivos de programa\borland\delphi7\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\Reglas;..\Cliente"
|
||||
-U"c:\archivos de programa\borland\delphi7\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"
|
||||
-O"c:\archivos de programa\borland\delphi7\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"
|
||||
-I"c:\archivos de programa\borland\delphi7\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"
|
||||
-R"c:\archivos de programa\borland\delphi7\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"
|
||||
-Z
|
||||
-w-UNSAFE_TYPE
|
||||
-w-UNSAFE_CODE
|
||||
|
||||
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=.\
|
||||
@ -5,8 +5,8 @@ object srvCitas: TsrvCitas
|
||||
ConnectionName = 'IBX'
|
||||
ServiceSchema = schCitas
|
||||
ServiceAdapter = DABINAdapter
|
||||
Left = 503
|
||||
Top = 207
|
||||
Left = 397
|
||||
Top = 159
|
||||
Height = 184
|
||||
Width = 245
|
||||
object schCitas: TDASchema
|
||||
|
||||
Binary file not shown.
@ -1,25 +1,25 @@
|
||||
inherited fEditorContacto: TfEditorContacto
|
||||
Left = 31
|
||||
Top = 43
|
||||
Width = 969
|
||||
Height = 700
|
||||
Left = 0
|
||||
Top = 2
|
||||
Width = 652
|
||||
Height = 492
|
||||
HorzScrollBar.Visible = False
|
||||
VertScrollBar.Visible = False
|
||||
Caption = 'Contacto'
|
||||
Constraints.MinHeight = 700
|
||||
Constraints.MinWidth = 800
|
||||
Constraints.MinHeight = 492
|
||||
Constraints.MinWidth = 652
|
||||
Scaled = False
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||
Width = 961
|
||||
Width = 644
|
||||
Caption = 'Contacto'
|
||||
inherited Image1: TImage
|
||||
Left = 934
|
||||
Left = 617
|
||||
end
|
||||
end
|
||||
inherited TBXDock: TTBXDock
|
||||
Width = 961
|
||||
Width = 644
|
||||
inherited tbxMain: TTBXToolbar
|
||||
inherited TBXItem2: TTBXItem
|
||||
Visible = False
|
||||
@ -37,14 +37,14 @@ inherited fEditorContacto: TfEditorContacto
|
||||
end
|
||||
end
|
||||
inherited pgPaginas: TPageControl
|
||||
Width = 961
|
||||
Height = 571
|
||||
Width = 644
|
||||
Height = 363
|
||||
inherited pagGeneral: TTabSheet
|
||||
inline frViewContacto1: TfrViewContacto
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 953
|
||||
Height = 543
|
||||
Width = 636
|
||||
Height = 335
|
||||
Align = alClient
|
||||
AutoSize = True
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
@ -56,8 +56,8 @@ inherited fEditorContacto: TfEditorContacto
|
||||
TabOrder = 0
|
||||
ReadOnly = False
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 953
|
||||
Height = 543
|
||||
Width = 636
|
||||
Height = 335
|
||||
inherited frViewDatosGenerales1: TfrViewDatosGenerales
|
||||
Width = 454
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
@ -74,7 +74,7 @@ inherited fEditorContacto: TfEditorContacto
|
||||
end
|
||||
end
|
||||
inherited frViewTelefonos1: TfrViewTelefonos
|
||||
Left = 479
|
||||
Left = 312
|
||||
Width = 451
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 451
|
||||
@ -108,19 +108,10 @@ inherited fEditorContacto: TfEditorContacto
|
||||
end
|
||||
end
|
||||
inherited frViewInternet1: TfrViewInternet
|
||||
Left = 479
|
||||
Left = 312
|
||||
Width = 483
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 483
|
||||
inherited SpeedButton1: TSpeedButton
|
||||
Left = 419
|
||||
end
|
||||
inherited SpeedButton2: TSpeedButton
|
||||
Left = 419
|
||||
end
|
||||
inherited SpeedButton3: TSpeedButton
|
||||
Left = 419
|
||||
end
|
||||
inherited eMailTrabajo: TcxDBHyperLinkEdit
|
||||
Properties.Prefix = 'mailto:'
|
||||
Width = 185
|
||||
@ -151,7 +142,7 @@ inherited fEditorContacto: TfEditorContacto
|
||||
end
|
||||
end
|
||||
inherited frViewContactosAsociados1: TfrViewContactosAsociados
|
||||
Left = 479
|
||||
Left = 312
|
||||
Width = 846
|
||||
Height = 145
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
@ -175,7 +166,7 @@ inherited fEditorContacto: TfEditorContacto
|
||||
inline frViewDatosBancarios1: TfrViewDatosBancarios
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 953
|
||||
Width = 636
|
||||
Height = 195
|
||||
Align = alTop
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
@ -187,18 +178,17 @@ inherited fEditorContacto: TfEditorContacto
|
||||
TabOrder = 0
|
||||
ReadOnly = False
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 953
|
||||
Width = 636
|
||||
inherited memObservaciones: TcxDBMemo
|
||||
Height = 107
|
||||
Width = 197
|
||||
Width = 909
|
||||
end
|
||||
end
|
||||
end
|
||||
inline frViewDatosFacturacion1: TfrViewDatosFacturacion
|
||||
Left = 0
|
||||
Top = 195
|
||||
Width = 953
|
||||
Height = 348
|
||||
Width = 636
|
||||
Height = 140
|
||||
Align = alClient
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
@ -209,8 +199,8 @@ inherited fEditorContacto: TfEditorContacto
|
||||
TabOrder = 1
|
||||
ReadOnly = False
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 953
|
||||
Height = 348
|
||||
Width = 636
|
||||
Height = 140
|
||||
inherited memObservaciones: TcxDBMemo
|
||||
Height = 127
|
||||
Width = 576
|
||||
@ -220,8 +210,8 @@ inherited fEditorContacto: TfEditorContacto
|
||||
end
|
||||
end
|
||||
inherited StatusBar: TStatusBar
|
||||
Top = 647
|
||||
Width = 961
|
||||
Top = 439
|
||||
Width = 644
|
||||
end
|
||||
inherited EditorActionList: TActionList
|
||||
Top = 144
|
||||
|
||||
@ -1,6 +1,4 @@
|
||||
inherited fEditorContactos: TfEditorContactos
|
||||
Left = 405
|
||||
Top = 188
|
||||
Caption = 'Libreta de contactos'
|
||||
OnClose = CustomEditorClose
|
||||
PixelsPerInch = 96
|
||||
@ -26,8 +24,8 @@ inherited fEditorContactos: TfEditorContactos
|
||||
inline frViewContactos1: TfrViewContactos [4]
|
||||
Left = 0
|
||||
Top = 76
|
||||
Width = 711
|
||||
Height = 322
|
||||
Width = 630
|
||||
Height = 277
|
||||
Align = alClient
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
@ -38,8 +36,8 @@ inherited fEditorContactos: TfEditorContactos
|
||||
TabOrder = 4
|
||||
ReadOnly = False
|
||||
inherited cxGrid: TcxGrid
|
||||
Width = 711
|
||||
Height = 322
|
||||
Width = 630
|
||||
Height = 277
|
||||
inherited cxGridView: TcxGridDBTableView
|
||||
DataController.Summary.FooterSummaryItems = <
|
||||
item
|
||||
|
||||
@ -1,17 +1,17 @@
|
||||
inherited frViewCategoriasContacto: TfrViewCategoriasContacto
|
||||
Width = 759
|
||||
Width = 632
|
||||
Height = 293
|
||||
object dxLayoutControl1: TdxLayoutControl
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 759
|
||||
Width = 632
|
||||
Height = 293
|
||||
Align = alClient
|
||||
ParentBackground = True
|
||||
TabOrder = 0
|
||||
AutoContentSizes = [acsWidth, acsHeight]
|
||||
DesignSize = (
|
||||
759
|
||||
632
|
||||
293)
|
||||
object ToolBar2: TToolBar
|
||||
Left = 22
|
||||
@ -52,6 +52,8 @@ inherited frViewCategoriasContacto: TfrViewCategoriasContacto
|
||||
ParentFont = False
|
||||
Properties.ReadOnly = True
|
||||
Properties.ScrollBars = ssVertical
|
||||
Style.BorderColor = clWindowFrame
|
||||
Style.BorderStyle = ebs3D
|
||||
Style.Font.Charset = DEFAULT_CHARSET
|
||||
Style.Font.Color = clWindowText
|
||||
Style.Font.Height = -11
|
||||
|
||||
@ -194,9 +194,6 @@ inherited frViewContacto: TfrViewContacto
|
||||
DesignSize = (
|
||||
846
|
||||
145)
|
||||
inherited ToolBar2: TToolBar
|
||||
Width = 271
|
||||
end
|
||||
inherited DBLookupListBox1: TDBLookupListBox
|
||||
Height = 13
|
||||
end
|
||||
|
||||
@ -71,7 +71,7 @@ inherited frViewContactos: TfrViewContactos
|
||||
end
|
||||
object cxGridViewFAX: TcxGridDBColumn
|
||||
DataBinding.FieldName = 'FAX'
|
||||
Visible = False
|
||||
Width = 90
|
||||
end
|
||||
object cxGridViewCORREO1: TcxGridDBColumn
|
||||
DataBinding.FieldName = 'CORREO1'
|
||||
@ -315,7 +315,7 @@ inherited frViewContactos: TfrViewContactos
|
||||
Size = 30
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'N'#250'mero de fax'
|
||||
DisplayLabel = 'Fax'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'FAX'
|
||||
InPrimaryKey = False
|
||||
|
||||
@ -2,8 +2,6 @@ inherited frViewDatosFacturacion: TfrViewDatosFacturacion
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
inherited memObservaciones: TcxDBMemo
|
||||
DataBinding.DataField = 'DATOSFACTURACION'
|
||||
Height = 107
|
||||
Width = 197
|
||||
end
|
||||
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
|
||||
inherited dxLayoutControl1Group1: TdxLayoutGroup
|
||||
|
||||
@ -11,10 +11,12 @@ inherited frViewDatosGenerales: TfrViewDatosGenerales
|
||||
TabOrder = 0
|
||||
AutoContentSizes = [acsWidth, acsHeight]
|
||||
object edtNombre: TcxDBTextEdit
|
||||
Left = 68
|
||||
Left = 69
|
||||
Top = 28
|
||||
DataBinding.DataField = 'NOMBRE'
|
||||
DataBinding.DataSource = DADataSource
|
||||
Style.BorderColor = clWindowFrame
|
||||
Style.BorderStyle = ebs3D
|
||||
Style.LookAndFeel.Kind = lfStandard
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||
@ -27,10 +29,12 @@ inherited frViewDatosGenerales: TfrViewDatosGenerales
|
||||
Width = 474
|
||||
end
|
||||
object edtNIFCIF: TcxDBTextEdit
|
||||
Left = 68
|
||||
Left = 69
|
||||
Top = 55
|
||||
DataBinding.DataField = 'NIFCIF'
|
||||
DataBinding.DataSource = DADataSource
|
||||
Style.BorderColor = clWindowFrame
|
||||
Style.BorderStyle = ebs3D
|
||||
Style.LookAndFeel.Kind = lfStandard
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||
@ -43,10 +47,12 @@ inherited frViewDatosGenerales: TfrViewDatosGenerales
|
||||
Width = 474
|
||||
end
|
||||
object edtTrabajo: TcxDBTextEdit
|
||||
Left = 68
|
||||
Left = 69
|
||||
Top = 82
|
||||
DataBinding.DataField = 'TRABAJO'
|
||||
DataBinding.DataSource = DADataSource
|
||||
Style.BorderColor = clWindowFrame
|
||||
Style.BorderStyle = ebs3D
|
||||
Style.LookAndFeel.Kind = lfStandard
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||
|
||||
@ -6,9 +6,8 @@ object srvContactos: TsrvContactos
|
||||
ConnectionName = 'IBX'
|
||||
ServiceSchema = schContactos
|
||||
ServiceAdapter = DABINAdapter
|
||||
Left = 578
|
||||
Top = 289
|
||||
Height = 368
|
||||
Left = 361
|
||||
Height = 362
|
||||
Width = 464
|
||||
object schContactos: TDASchema
|
||||
ConnectionManager = dmServer.ConnectionManager
|
||||
|
||||
Binary file not shown.
@ -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
|
||||
|
||||
Binary file not shown.
@ -18,8 +18,8 @@ const
|
||||
CTE_ABONO = 'A';
|
||||
CTE_PROFORMA = 'P';
|
||||
|
||||
CTE_IVA1 = 16;
|
||||
CTE_IVA2 = 1.16;
|
||||
CTE_IVA1 = 21;
|
||||
CTE_IVA2 = 1.21;
|
||||
|
||||
type
|
||||
IBizDetallesFacturasCliente = interface(IDetallesFacturasCliente)
|
||||
|
||||
@ -5,9 +5,8 @@ object srvFacturasCliente: TsrvFacturasCliente
|
||||
ConnectionName = 'IBX'
|
||||
ServiceSchema = schFacturasCliente
|
||||
ServiceAdapter = DABINAdapter
|
||||
Left = 725
|
||||
Top = 332
|
||||
Height = 490
|
||||
Left = 568
|
||||
Height = 362
|
||||
Width = 347
|
||||
object schFacturasCliente: TDASchema
|
||||
ConnectionManager = dmServer.ConnectionManager
|
||||
@ -1216,7 +1215,7 @@ object srvFacturasCliente: TsrvFacturasCliente
|
||||
ReportOptions.CreateDate = 37871.995398692100000000
|
||||
ReportOptions.Description.Strings = (
|
||||
'Demonstrates how to create simple list report.')
|
||||
ReportOptions.LastChange = 39014.653229525470000000
|
||||
ReportOptions.LastChange = 42039.464331631900000000
|
||||
ReportOptions.VersionBuild = '1'
|
||||
ReportOptions.VersionMajor = '12'
|
||||
ReportOptions.VersionMinor = '13'
|
||||
|
||||
Binary file not shown.
Binary file not shown.
@ -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,7 +548,8 @@ 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;
|
||||
|
||||
@ -5,8 +5,8 @@ object srvObras: TsrvObras
|
||||
ConnectionName = 'IBX'
|
||||
ServiceSchema = schObras
|
||||
ServiceAdapter = DABINAdapter
|
||||
Left = 657
|
||||
Top = 335
|
||||
Left = 516
|
||||
Top = 145
|
||||
Height = 300
|
||||
Width = 300
|
||||
object schObras: TDASchema
|
||||
@ -27,8 +27,9 @@ 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' +
|
||||
'OIN CONTACTOS ON (OBRAS.CODIGOCONTACTO = CONTACTOS.CODIGO)'
|
||||
'ONTACTO, CONTACTOS.NOMBRE as NOMBRECLIENTE, OBRAS.ALMACEN'#10' FROM' +
|
||||
' OBRAS'#10' LEFT JOIN CONTACTOS ON (OBRAS.CODIGOCONTACTO = CONTACTO' +
|
||||
'S.CODIGO)'
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <
|
||||
item
|
||||
@ -110,6 +111,10 @@ object srvObras: TsrvObras
|
||||
item
|
||||
DatasetField = 'TOTALPRESUPUESTOSFIN'
|
||||
TableField = 'TOTALPRESUPUESTOSFIN'
|
||||
end
|
||||
item
|
||||
DatasetField = 'ALMACEN'
|
||||
TableField = 'ALMACEN'
|
||||
end>
|
||||
end>
|
||||
Name = 'Obras'
|
||||
@ -338,6 +343,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.
@ -5,8 +5,8 @@ object srvRecibosCliente: TsrvRecibosCliente
|
||||
ConnectionName = 'IBX'
|
||||
ServiceSchema = schRecibosCliente
|
||||
ServiceAdapter = DABINAdapter
|
||||
Left = 563
|
||||
Top = 286
|
||||
Left = 445
|
||||
Top = 79
|
||||
Height = 328
|
||||
Width = 207
|
||||
object DABINAdapter: TDABINAdapter
|
||||
|
||||
Binary file not shown.
BIN
Output/Cliente/Calendarios.bpl
Normal file
BIN
Output/Cliente/Calendarios.bpl
Normal file
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
@ -1,5 +1,5 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<TfrxReport Version="3.23.7" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="2047" PreviewOptions.OutlineWidth="180" PreviewOptions.Zoom="1" PrintOptions.Printer="Default" ReportOptions.CreateDate="37871,9953986921" ReportOptions.Description.Text="Demonstrates how to create simple list report." ReportOptions.LastChange="39014,6532295255" ReportOptions.VersionBuild="1" ReportOptions.VersionMajor="12" ReportOptions.VersionMinor="13" ReportOptions.VersionRelease="1" ScriptLanguage="PascalScript" ScriptText.Text="procedure DatosClienteOnBeforePrint(Sender: TfrxComponent); begin DatosCliente.Lines.Clear; DatosCliente.Lines.Add(<frxDBCabecera."CALLE">); if (<frxDBCabecera."CODIGOPOSTAL"> <> '') or (<frxDBCabecera."POBLACION"> <> '') then DatosCliente.Lines.Add(<frxDBCabecera."CODIGOPOSTAL"> + <frxDBCabecera."POBLACION">); end; procedure BandaDetallesOnBeforePrint(Sender: TfrxComponent); begin case <frxDBDetalles."TIPO"> of 'C': begin MemoCampo12.Style := 'Concepto normal'; MemoCampo4.Style := 'Concepto normal'; end; 'S': begin MemoCampo12.Style := 'Concepto subtotal'; MemoCampo4.Style := 'Concepto subtotal'; end; 'T': begin MemoCampo12.Style := 'Concepto titulo'; MemoCampo4.Style := 'Concepto titulo'; end; end; end; procedure ReportSummary1OnBeforePrint(Sender: TfrxComponent); begin Engine.CurY := Engine.CurY + Engine.FreeSpace - ReportSummary1.Height - 1; end; procedure mTextoOnBeforePrint(Sender: TfrxComponent); begin mTexto.Lines.Clear; if (<frxDBCabecera."CLASEFACTURA"> = 'N') then mTexto.Lines.Add('FACTURA'); if (<frxDBCabecera."CLASEFACTURA"> = 'A') then mTexto.Lines.Add('ABONO'); if (<frxDBCabecera."CLASEFACTURA"> = 'P') then mTexto.Lines.Add('PROFORMA'); end; begin end." StoreInDFM="False" PropData="044C656674022803546F7003800008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3400000020446174615365743D226672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C6573220000095661726961626C65730100055374796C6501010C85000000204E616D653D22436F6E636570746F206E6F726D616C2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31332220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D22302200010C86000000204E616D653D22436F6E636570746F20737562746F74616C2220436F6C6F723D2231353739303332302220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31332220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D22312200010C97000000204E616D653D22436162656365726120646520636F6C756D6E612220436F6C6F723D2231353739303332302220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D223122204672616D652E5479703D2231352200010C85000000204E616D653D22436F6E636570746F20746974756C6F2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31332220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D2231220000">
|
||||
<TfrxReport Version="3.23.7" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="2047" PreviewOptions.OutlineWidth="180" PreviewOptions.Zoom="1" PrintOptions.Printer="Default" ReportOptions.CreateDate="37871,9953986921" ReportOptions.Description.Text="Demonstrates how to create simple list report." ReportOptions.LastChange="42039,4643316319" ReportOptions.VersionBuild="1" ReportOptions.VersionMajor="12" ReportOptions.VersionMinor="13" ReportOptions.VersionRelease="1" ScriptLanguage="PascalScript" ScriptText.Text="procedure DatosClienteOnBeforePrint(Sender: TfrxComponent); begin DatosCliente.Lines.Clear; DatosCliente.Lines.Add(<frxDBCabecera."CALLE">); if (<frxDBCabecera."CODIGOPOSTAL"> <> '') or (<frxDBCabecera."POBLACION"> <> '') then DatosCliente.Lines.Add(<frxDBCabecera."CODIGOPOSTAL"> + <frxDBCabecera."POBLACION">); end; procedure BandaDetallesOnBeforePrint(Sender: TfrxComponent); begin case <frxDBDetalles."TIPO"> of 'C': begin MemoCampo12.Style := 'Concepto normal'; MemoCampo4.Style := 'Concepto normal'; end; 'S': begin MemoCampo12.Style := 'Concepto subtotal'; MemoCampo4.Style := 'Concepto subtotal'; end; 'T': begin MemoCampo12.Style := 'Concepto titulo'; MemoCampo4.Style := 'Concepto titulo'; end; end; end; procedure ReportSummary1OnBeforePrint(Sender: TfrxComponent); begin Engine.CurY := Engine.CurY + Engine.FreeSpace - ReportSummary1.Height - 1; end; procedure mTextoOnBeforePrint(Sender: TfrxComponent); begin mTexto.Lines.Clear; if (<frxDBCabecera."CLASEFACTURA"> = 'N') then mTexto.Lines.Add('FACTURA'); if (<frxDBCabecera."CLASEFACTURA"> = 'A') then mTexto.Lines.Add('ABONO'); if (<frxDBCabecera."CLASEFACTURA"> = 'P') then mTexto.Lines.Add('PROFORMA'); end; begin end." StoreInDFM="False" PropData="044C656674022803546F7003800008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3400000020446174615365743D226672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C6573220000095661726961626C65730100055374796C6501010C85000000204E616D653D22436F6E636570746F206E6F726D616C2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31332220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D22302200010C86000000204E616D653D22436F6E636570746F20737562746F74616C2220436F6C6F723D2231353739303332302220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31332220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D22312200010C97000000204E616D653D22436162656365726120646520636F6C756D6E612220436F6C6F723D2231353739303332302220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D223122204672616D652E5479703D2231352200010C85000000204E616D653D22436F6E636570746F20746974756C6F2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31332220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D2231220000">
|
||||
<TfrxReportPage Name="Page1" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="1" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="10" RightMargin="10" TopMargin="10" BottomMargin="10" Columns="1" ColumnWidth="210" ColumnPositions.Text="0" PrintOnPreviousPage="True" HGuides.Text="" VGuides.Text="">
|
||||
<TfrxPageHeader Name="Band2" Height="258,70866142" Left="0" Top="18,89765" Width="718,1107">
|
||||
<TfrxMemoView Name="Memo23" Left="3,77953" Top="228,5671" Width="621,35467" Height="26,45669291" Color="15790320" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haCenter" ParentFont="False" Style="Cabecera de columna" VAlign="vaCenter" Text="Concepto"/>
|
||||
@ -8,7 +8,7 @@
|
||||
<TfrxShapeView Name="Shape1" Left="3,77953" Top="128,50402" Width="714,33117" Height="71,81107" Color="16250871"/>
|
||||
<TfrxShapeView Name="Shape2" Left="325,03937007874" Top="18,89765" Width="393,07112" Height="98,26778" Color="16250871"/>
|
||||
<TfrxMemoView Name="mTexto" Left="393,07112" Top="136,06308" Width="313,70099" Height="52,91342" OnBeforePrint="mTextoOnBeforePrint" Font.Charset="1" Font.Color="12632256" Font.Height="-37" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="FACTURA"/>
|
||||
<TfrxMemoView Name="Memo16" Left="15,11812" Top="135,84261" Width="65,13389" Height="18,89765" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Referencia:"/>
|
||||
<TfrxMemoView Name="Memo16" Left="15,11812" Top="135,84261" Width="65,13389" Height="18,89765" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Nº Factura:"/>
|
||||
<TfrxMemoView Name="Memo17" Left="15,11812" Top="154,74026" Width="45,35436" Height="18,89765" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Fecha:"/>
|
||||
<TfrxMemoView Name="Memo18" Left="15,11812" Top="173,63791" Width="60,47248" Height="18,89765" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Página nº:"/>
|
||||
<TfrxMemoView Name="Memo19" Left="340,81911" Top="18,89765" Width="366,17347" Height="37,7953" Font.Charset="1" Font.Color="0" Font.Height="-15" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" Text="[frxDBCabecera."NOMBRE"] [frxDBCabecera."NIFCIF"]"/>
|
||||
@ -46,7 +46,7 @@
|
||||
<TfrxMemoView Name="Memo13" Left="234,55133" Top="12" Width="116" Height="16" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Base imponible"/>
|
||||
<TfrxMemoView Name="Memo22" Left="352" Top="12" Width="116" Height="16" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="IVA"/>
|
||||
<TfrxMemoView Name="Memo25" Left="468" Top="12" Width="116" Height="16" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Total IVA"/>
|
||||
<TfrxMemoView Name="Memo32" Left="352" Top="28" Width="116,75603" Height="22,89765" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="0" HAlign="haCenter" HideZeros="True" ParentFont="False" VAlign="vaCenter" Text="[frxDBCabecera."IVA"]"/>
|
||||
<TfrxMemoView Name="Memo32" Left="352" Top="28" Width="116,75603" Height="22,89765" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 %" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="0" HAlign="haCenter" HideZeros="True" ParentFont="False" VAlign="vaCenter" Text=" [frxDBCabecera."IVA"]"/>
|
||||
<TfrxMemoView Name="Memo33" Left="468" Top="28" Width="116,75603" Height="22,89765" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="0" HAlign="haCenter" HideZeros="True" ParentFont="False" VAlign="vaCenter" Text="[frxDBCabecera."IMPORTEIVA"]"/>
|
||||
<TfrxLineView Name="Line7" Align="baWidth" Left="0" Top="4" Width="718,1107" Height="0" Frame.Color="16777215" Frame.Typ="4" Frame.Width="8"/>
|
||||
<TfrxLineView Name="Line8" Left="5" Top="0" Width="714,1107" Height="0" Frame.Typ="4"/>
|
||||
|
||||
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=.\
|
||||
|
||||
Binary file not shown.
Binary file not shown.
@ -5,8 +5,8 @@ object srvConfiguracion: TsrvConfiguracion
|
||||
ConnectionName = 'IBX'
|
||||
ServiceSchema = schConfiguracion
|
||||
ServiceAdapter = DABINAdapter
|
||||
Left = 731
|
||||
Top = 212
|
||||
Left = 573
|
||||
Top = 145
|
||||
Height = 300
|
||||
Width = 300
|
||||
object schConfiguracion: TDASchema
|
||||
@ -45,6 +45,39 @@ 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_N' +
|
||||
'UEVO'#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 +109,39 @@ 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);
|
||||
|
||||
|
||||
@ -1,7 +1,7 @@
|
||||
object srvLogin: TsrvLogin
|
||||
OldCreateOrder = True
|
||||
Left = 568
|
||||
Top = 275
|
||||
Left = 447
|
||||
Top = 145
|
||||
Height = 300
|
||||
Width = 300
|
||||
object DABINAdapter: TDABINAdapter
|
||||
|
||||
@ -1,9 +1,8 @@
|
||||
object dmServer: TdmServer
|
||||
OldCreateOrder = False
|
||||
OnCreate = DataModuleCreate
|
||||
Left = 777
|
||||
Top = 344
|
||||
Height = 365
|
||||
Left = 608
|
||||
Height = 362
|
||||
Width = 302
|
||||
object HTTPServer: TROIndyHTTPServer
|
||||
Encryption.UseCompression = True
|
||||
@ -159,7 +158,7 @@ object dmServer: TdmServer
|
||||
Size = 30
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'N'#250'mero de fax'
|
||||
DisplayLabel = 'Fax'
|
||||
Alignment = taLeftJustify
|
||||
end
|
||||
item
|
||||
|
||||
Loading…
Reference in New Issue
Block a user