Estudio_CGH/ProGestion
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

- Poner nº de fax en la lista de contactos

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.EstudioCarnicero_ProGestion/trunk@11 1b8572a8-2d6b-b84e-8c90-20ed86fa4eca
This commit is contained in:
David Arranz 2010-12-09 17:22:55 +00:00
parent 409846507d
commit 15c8705b84
45 changed files with 125 additions and 136 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
Base/BaseD7.dcp
View File

Binary file not shown.

4
Base/uDataModuleBase.dfm
View File

@ -1,8 +1,8 @@
object dmBase: TdmBase
OldCreateOrder = True
OnCreate = DAClientDataModuleCreate
Left = 240
Top = 499
Left = 191
Top = 130
Height = 376
Width = 502
object SmallImages: TPngImageList

18
Base/uEditorBase.dfm
View File

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

2
Base/uEditorDBBase.dfm
View File

@ -1,6 +1,4 @@
inherited fEditorDBBase: TfEditorDBBase
Left = 482
Top = 361
Caption = 'fEditorDBBase'
PixelsPerInch = 96
TextHeight = 13

6
Base/uEditorDBItem.dfm
View File

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

4
Base/uEditorDBItem.pas
View File

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

27
Base/uEditorGrid.dfm
View File

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

8
Base/uEditorGrid.pas
View File

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

16
Base/uViewDireccion.dfm
View File

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

2
Base/uViewGrid.dfm
View File

@ -81,7 +81,7 @@ inherited frViewGrid: TfrViewGrid
PrinterPage.PageSize.Y = 297000
PrinterPage._dxMeasurementUnits_ = 0
PrinterPage._dxLastMU_ = 2
ReportDocument.CreationDate = 39000.667590601850000000
ReportDocument.CreationDate = 40521.697641412040000000
OptionsCharts.Transparent = True
OptionsFormatting.SuppressBackgroundBitmaps = True
OptionsOnEveryPage.Caption = False

4
Base/uViewGrid.pas
View File

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

5
Base/uViewInternet.dfm
View File

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

2
Base/uViewObservaciones.dfm
View File

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

16
Base/uViewTelefonos.dfm
View File

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

9
Modulos/Calendarios/Cliente/Calendarios.cfg
View File

@ -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;E:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\GUISDK\lib\d7;..\..\Contactos\Cliente;..\..\Documentos asociados;..\Reglas"
-O"c:\archivos de programa\borland\delphi7\Lib\Debug;E:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\GUISDK\lib\d7;..\..\Contactos\Cliente;..\..\Documentos asociados;..\Reglas"
-I"c:\archivos de programa\borland\delphi7\Lib\Debug;E:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\GUISDK\lib\d7;..\..\Contactos\Cliente;..\..\Documentos asociados;..\Reglas"
-R"c:\archivos de programa\borland\delphi7\Lib\Debug;E:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\GUISDK\lib\d7;..\..\Contactos\Cliente;..\..\Documentos asociados;..\Reglas"
-Z
-w-UNSAFE_TYPE
-w-UNSAFE_CODE

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

@ -5,8 +5,8 @@ object srvCitas: TsrvCitas
ConnectionName = 'IBX'
ServiceSchema = schCitas
ServiceAdapter = DABINAdapter
Left = 503
Top = 207
Left = 394
Top = 211
Height = 184
Width = 245
object schCitas: TDASchema

BIN
Modulos/Contactos/Cliente/Contactos.dcp
View File

Binary file not shown.

64
Modulos/Contactos/Cliente/uEditorContacto.dfm
View File

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

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

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

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

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

3
Modulos/Contactos/Cliente/uViewContacto.dfm
View File

@ -194,9 +194,6 @@ inherited frViewContacto: TfrViewContacto
DesignSize = (
846
145)
inherited ToolBar2: TToolBar
Width = 271
end
inherited DBLookupListBox1: TDBLookupListBox
Height = 13
end

4
Modulos/Contactos/Cliente/uViewContactos.dfm
View File

@ -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
Modulos/Contactos/Cliente/uViewDatosFacturacion.dfm
View File

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

12
Modulos/Contactos/Cliente/uViewDatosGenerales.dfm
View File

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

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

@ -6,8 +6,8 @@ object srvContactos: TsrvContactos
ConnectionName = 'IBX'
ServiceSchema = schContactos
ServiceAdapter = DABINAdapter
Left = 578
Top = 289
Left = 358
Top = 144
Height = 368
Width = 464
object schContactos: TDASchema

BIN
Modulos/Documentos asociados/DocumentosAsociados.dcp
View File

Binary file not shown.

BIN
Modulos/Facturas de cliente/Cliente/FacturasCliente.dcp
View File

Binary file not shown.

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

@ -5,9 +5,8 @@ object srvFacturasCliente: TsrvFacturasCliente
ConnectionName = 'IBX'
ServiceSchema = schFacturasCliente
ServiceAdapter = DABINAdapter
Left = 725
Top = 332
Height = 490
Left = 567
Height = 446
Width = 347
object schFacturasCliente: TDASchema
ConnectionManager = dmServer.ConnectionManager

BIN
Modulos/Obras final/Cliente/ObrasFinal.dcp
View File

Binary file not shown.

BIN
Modulos/Obras/Cliente/Obras.dcp
View File

Binary file not shown.

4
Modulos/Obras/Servidor/srvObras_Impl.dfm
View File

@ -5,8 +5,8 @@ object srvObras: TsrvObras
ConnectionName = 'IBX'
ServiceSchema = schObras
ServiceAdapter = DABINAdapter
Left = 657
Top = 335
Left = 514
Top = 271
Height = 300
Width = 300
object schObras: TDASchema

BIN
Modulos/Recibos/Cliente/Recibos.dcp
View File

Binary file not shown.

4
Modulos/Recibos/Servidor/srvRecibosCliente_Impl.dfm
View File

@ -5,8 +5,8 @@ object srvRecibosCliente: TsrvRecibosCliente
ConnectionName = 'IBX'
ServiceSchema = schRecibosCliente
ServiceAdapter = DABINAdapter
Left = 563
Top = 286
Left = 441
Top = 217
Height = 328
Width = 207
object DABINAdapter: TDABINAdapter

BIN
Output/Cliente/BaseD7.bpl
View File

Binary file not shown.

BIN
Output/Cliente/Contactos.bpl
View File

Binary file not shown.

BIN
Output/Cliente/DocumentosAsociados.bpl
View File

Binary file not shown.

BIN
Output/Cliente/FacturasCliente.bpl
View File

Binary file not shown.

BIN
Output/Cliente/Obras.bpl
View File

Binary file not shown.

BIN
Output/Cliente/ObrasFinal.bpl
View File

Binary file not shown.

BIN
Output/Cliente/ProGestion.exe
View File

Binary file not shown.

BIN
Output/Cliente/Recibos.bpl
View File

Binary file not shown.

BIN
Output/Servidor/ProGestion_Server.exe
View File

Binary file not shown.

4
Servidor/srvConfiguracion_Impl.dfm
View File

@ -5,8 +5,8 @@ object srvConfiguracion: TsrvConfiguracion
ConnectionName = 'IBX'
ServiceSchema = schConfiguracion
ServiceAdapter = DABINAdapter
Left = 731
Top = 212
Left = 571
Top = 216
Height = 300
Width = 300
object schConfiguracion: TDASchema

4
Servidor/srvLogin_Impl.dfm
View File

@ -1,7 +1,7 @@
object srvLogin: TsrvLogin
OldCreateOrder = True
Left = 568
Top = 275
Left = 445
Top = 271
Height = 300
Width = 300
object DABINAdapter: TDABINAdapter

6
Servidor/uDataModuleServer.dfm
View File

@ -1,8 +1,8 @@
object dmServer: TdmServer
OldCreateOrder = False
OnCreate = DataModuleCreate
Left = 777
Top = 344
Left = 607
Top = 150
Height = 365
Width = 302
object HTTPServer: TROIndyHTTPServer
@ -159,7 +159,7 @@ object dmServer: TdmServer
Size = 30
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'N'#250'mero de fax'
DisplayLabel = 'Fax'
Alignment = taLeftJustify
end
item