Tecistel/Tecsitel_FactuGES2
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Arreglo de impresion y previsualización de fichas de empleado que solo se podía hacer ciertos sitios

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@446 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
roberto 2008-06-09 07:53:09 +00:00
parent fc7e6cd551
commit 0f41ff0a60
9 changed files with 159 additions and 143 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
Source/Modulos/Contactos/Views/Contactos_view.res
View File

Binary file not shown.

117
Source/Modulos/Contactos/Views/uEditorEmpleado.dfm
View File

@ -3,7 +3,7 @@ inherited fEditorEmpleado: TfEditorEmpleado
ClientHeight = 583 ClientHeight = 583
ClientWidth = 929 ClientWidth = 929
ExplicitWidth = 937 ExplicitWidth = 937
ExplicitHeight = 610 ExplicitHeight = 617
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
@ -112,20 +112,20 @@ inherited fEditorEmpleado: TfEditorEmpleado
inherited eCalle: TcxDBTextEdit inherited eCalle: TcxDBTextEdit
Top = 216 Top = 216
ExplicitTop = 216 ExplicitTop = 216
ExplicitWidth = 174 ExplicitWidth = 341
Width = 174 Width = 341
end end
inherited eProvincia: TcxDBTextEdit inherited eProvincia: TcxDBTextEdit
Top = 270 Top = 270
ExplicitTop = 270 ExplicitTop = 270
ExplicitWidth = 174 ExplicitWidth = 341
Width = 174 Width = 341
end end
inherited ePoblacion: TcxDBTextEdit inherited ePoblacion: TcxDBTextEdit
Top = 243 Top = 243
ExplicitTop = 243 ExplicitTop = 243
ExplicitWidth = 108 ExplicitWidth = 240
Width = 108 Width = 240
end end
inherited eCodigoPostal: TcxDBTextEdit inherited eCodigoPostal: TcxDBTextEdit
Left = 397 Left = 397
@ -136,82 +136,82 @@ inherited fEditorEmpleado: TfEditorEmpleado
inherited eObservaciones: TcxDBMemo inherited eObservaciones: TcxDBMemo
Top = 348 Top = 348
ExplicitTop = 348 ExplicitTop = 348
ExplicitWidth = 185 ExplicitWidth = 871
ExplicitHeight = 148 ExplicitHeight = 90
Height = 148 Height = 90
Width = 185 Width = 871
end end
inherited eFechaNacimiento: TcxDBDateEdit inherited eFechaNacimiento: TcxDBDateEdit
Top = 84 Top = 84
ExplicitTop = 84 ExplicitTop = 84
ExplicitWidth = 80 ExplicitWidth = 341
Width = 80 Width = 341
end end
inherited eFechaAltaEmpresa: TcxDBDateEdit inherited eFechaAltaEmpresa: TcxDBDateEdit
Top = 111 Top = 111
ExplicitTop = 111 ExplicitTop = 111
ExplicitWidth = 80 ExplicitWidth = 341
Width = 80 Width = 341
end end
inherited cbCategoria: TcxDBComboBox inherited cbCategoria: TcxDBComboBox
Top = 138 Top = 138
ExplicitTop = 138 ExplicitTop = 138
ExplicitWidth = 225 ExplicitWidth = 341
Width = 225 Width = 341
end end
inherited eTlfParticular: TcxDBTextEdit inherited eTlfParticular: TcxDBTextEdit
Left = 585 Left = 585
Top = 57 Top = 57
ExplicitLeft = 585 ExplicitLeft = 585
ExplicitTop = 57 ExplicitTop = 57
ExplicitWidth = 172 ExplicitWidth = 308
Width = 172 Width = 308
end end
inherited eTlfTrabajo: TcxDBTextEdit inherited eTlfTrabajo: TcxDBTextEdit
Left = 585 Left = 585
Top = 30 Top = 30
ExplicitLeft = 585 ExplicitLeft = 585
ExplicitTop = 30 ExplicitTop = 30
ExplicitWidth = 172 ExplicitWidth = 308
Width = 172 Width = 308
end end
inherited cbContrato: TcxDBComboBox inherited cbContrato: TcxDBComboBox
Left = 585 Left = 585
Top = 270 Top = 270
ExplicitLeft = 585 ExplicitLeft = 585
ExplicitTop = 270 ExplicitTop = 270
ExplicitWidth = 292 ExplicitWidth = 308
Width = 292 Width = 308
end end
inherited eTlfMovil: TcxDBTextEdit inherited eTlfMovil: TcxDBTextEdit
Left = 585 Left = 585
Top = 84 Top = 84
ExplicitLeft = 585 ExplicitLeft = 585
ExplicitTop = 84 ExplicitTop = 84
ExplicitWidth = 172 ExplicitWidth = 308
Width = 172 Width = 308
end end
inherited eFax: TcxDBTextEdit inherited eFax: TcxDBTextEdit
Left = 585 Left = 585
Top = 111 Top = 111
ExplicitLeft = 585 ExplicitLeft = 585
ExplicitTop = 111 ExplicitTop = 111
ExplicitWidth = 172 ExplicitWidth = 308
Width = 172 Width = 308
end end
inherited eNombre: TcxDBTextEdit inherited eNombre: TcxDBTextEdit
Top = 57 Top = 57
ExplicitTop = 57 ExplicitTop = 57
ExplicitWidth = 263 ExplicitWidth = 341
Width = 263 Width = 341
end end
inherited eNIFCIF: TcxDBTextEdit inherited eNIFCIF: TcxDBTextEdit
Left = 259 Left = 259
Top = 30 Top = 30
ExplicitLeft = 259 ExplicitLeft = 259
ExplicitTop = 30 ExplicitTop = 30
ExplicitWidth = 194 ExplicitWidth = 203
Width = 194 Width = 203
end end
inherited eMailTrabajo: TcxDBHyperLinkEdit inherited eMailTrabajo: TcxDBHyperLinkEdit
Left = 585 Left = 585
@ -219,8 +219,8 @@ inherited fEditorEmpleado: TfEditorEmpleado
Properties.Prefix = 'mailto:' Properties.Prefix = 'mailto:'
ExplicitLeft = 585 ExplicitLeft = 585
ExplicitTop = 162 ExplicitTop = 162
ExplicitWidth = 129 ExplicitWidth = 279
Width = 129 Width = 279
end end
inherited eMailParticular: TcxDBHyperLinkEdit inherited eMailParticular: TcxDBHyperLinkEdit
Left = 585 Left = 585
@ -228,36 +228,36 @@ inherited fEditorEmpleado: TfEditorEmpleado
Properties.Prefix = 'mailto:' Properties.Prefix = 'mailto:'
ExplicitLeft = 585 ExplicitLeft = 585
ExplicitTop = 190 ExplicitTop = 190
ExplicitWidth = 165 ExplicitWidth = 279
Width = 165 Width = 279
end end
inherited eDuracionContrato: TcxDBTextEdit inherited eDuracionContrato: TcxDBTextEdit
Left = 585 Left = 585
Top = 297 Top = 297
ExplicitLeft = 585 ExplicitLeft = 585
ExplicitTop = 297 ExplicitTop = 297
ExplicitWidth = 114 ExplicitWidth = 308
Width = 114 Width = 308
end end
inherited ePaginaWeb: TcxDBHyperLinkEdit inherited ePaginaWeb: TcxDBHyperLinkEdit
Left = 585 Left = 585
Top = 217 Top = 217
ExplicitLeft = 585 ExplicitLeft = 585
ExplicitTop = 217 ExplicitTop = 217
ExplicitWidth = 165 ExplicitWidth = 279
Width = 165 Width = 279
end end
inherited eReferencia: TcxDBTextEdit inherited eReferencia: TcxDBTextEdit
Top = 30 Top = 30
ExplicitTop = 30 ExplicitTop = 30
ExplicitWidth = 97 ExplicitWidth = 105
Width = 97 Width = 105
end end
inherited ePersonaContacto: TcxDBTextEdit inherited ePersonaContacto: TcxDBTextEdit
Top = 297 Top = 297
ExplicitTop = 297 ExplicitTop = 297
ExplicitWidth = 256 ExplicitWidth = 341
Width = 256 Width = 341
end end
end end
inherited dsContacto: TDADataSource inherited dsContacto: TDADataSource
@ -283,18 +283,6 @@ inherited fEditorEmpleado: TfEditorEmpleado
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 915 Width = 915
ExplicitWidth = 915 ExplicitWidth = 915
inherited ToolButton1: TToolButton
ExplicitWidth = 113
end
inherited ToolButton4: TToolButton
ExplicitWidth = 113
end
inherited ToolButton2: TToolButton
ExplicitWidth = 113
end
inherited ToolButton7: TToolButton
ExplicitWidth = 113
end
end end
end end
end end
@ -305,7 +293,6 @@ inherited fEditorEmpleado: TfEditorEmpleado
inherited frViewPersonalContacto1: TfrViewPersonalContacto inherited frViewPersonalContacto1: TfrViewPersonalContacto
Width = 915 Width = 915
Height = 454 Height = 454
ExplicitTop = 0
ExplicitWidth = 915 ExplicitWidth = 915
ExplicitHeight = 454 ExplicitHeight = 454
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
@ -331,6 +318,7 @@ inherited fEditorEmpleado: TfEditorEmpleado
Align = alClient Align = alClient
ParentBackground = True ParentBackground = True
TabOrder = 0 TabOrder = 0
TabStop = False
AutoContentSizes = [acsWidth, acsHeight] AutoContentSizes = [acsWidth, acsHeight]
LookAndFeel = dxLayoutOfficeLookAndFeel LookAndFeel = dxLayoutOfficeLookAndFeel
object eFormacionBasica: TcxDBMemo object eFormacionBasica: TcxDBMemo
@ -351,8 +339,8 @@ inherited fEditorEmpleado: TfEditorEmpleado
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 0 TabOrder = 0
Height = 89 Height = 116
Width = 580 Width = 871
end end
object eFormacionComplementaria: TcxDBMemo object eFormacionComplementaria: TcxDBMemo
Left = 22 Left = 22
@ -372,8 +360,8 @@ inherited fEditorEmpleado: TfEditorEmpleado
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 1 TabOrder = 1
Height = 89 Height = 116
Width = 580 Width = 871
end end
object eFormacionRecibida: TcxDBMemo object eFormacionRecibida: TcxDBMemo
Left = 22 Left = 22
@ -393,8 +381,8 @@ inherited fEditorEmpleado: TfEditorEmpleado
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 2 TabOrder = 2
Height = 89 Height = 116
Width = 580 Width = 871
end end
object dxLayoutControl1Group_Root: TdxLayoutGroup object dxLayoutControl1Group_Root: TdxLayoutGroup
Caption = 'Formaci'#243'n b'#225'sica' Caption = 'Formaci'#243'n b'#225'sica'
@ -448,6 +436,7 @@ inherited fEditorEmpleado: TfEditorEmpleado
Align = alClient Align = alClient
ParentBackground = True ParentBackground = True
TabOrder = 0 TabOrder = 0
TabStop = False
AutoContentSizes = [acsWidth, acsHeight] AutoContentSizes = [acsWidth, acsHeight]
LookAndFeel = dxLayoutOfficeLookAndFeel LookAndFeel = dxLayoutOfficeLookAndFeel
object eExperiencia: TcxDBMemo object eExperiencia: TcxDBMemo
@ -469,8 +458,8 @@ inherited fEditorEmpleado: TfEditorEmpleado
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 0 TabOrder = 0
Height = 89 Height = 408
Width = 580 Width = 871
end end
object dxLayoutGroup1: TdxLayoutGroup object dxLayoutGroup1: TdxLayoutGroup
Caption = 'Formaci'#243'n b'#225'sica' Caption = 'Formaci'#243'n b'#225'sica'

43
Source/Modulos/Contactos/Views/uEditorEmpleado.pas
View File

@ -12,7 +12,13 @@ uses
uIEditorEmpleado, pngimage, TBXStatusBars, JvExComCtrls, JvStatusBar, uIEditorEmpleado, pngimage, TBXStatusBars, JvExComCtrls, JvStatusBar,
uViewDetallesGenerico, uViewContactoDatosBancarios, dxLayoutLookAndFeels, uViewDetallesGenerico, uViewContactoDatosBancarios, dxLayoutLookAndFeels,
dxLayoutControl, cxContainer, cxEdit, cxTextEdit, cxMemo, cxDBEdit, cxControls, dxLayoutControl, cxContainer, cxEdit, cxTextEdit, cxMemo, cxDBEdit, cxControls,
uDAInterfaces, uViewContactoListaDatosBancarios, uViewPersonalContacto; uDAInterfaces, uViewContactoListaDatosBancarios, uViewPersonalContacto,
dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinCaramel, dxSkinCoffee,
dxSkinGlassOceans, dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky,
dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMoneyTwins, dxSkinOffice2007Black,
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
dxSkinOffice2007Silver, dxSkinSilver, dxSkinStardust, dxSkinsDefaultPainters,
dxSkinValentine, dxSkinXmas2008Blue, dxSkinsdxLCPainter;
type type
TfEditorEmpleado = class(TfEditorContacto, IEditorEmpleado) TfEditorEmpleado = class(TfEditorContacto, IEditorEmpleado)
@ -39,6 +45,8 @@ type
procedure actGruposEmpleadoExecute(Sender: TObject); procedure actGruposEmpleadoExecute(Sender: TObject);
protected protected
procedure EliminarInterno; override; procedure EliminarInterno; override;
procedure ImprimirInterno; override;
procedure PrevisualizarInterno; override;
procedure SetContacto(const Value: IBizContacto); override; procedure SetContacto(const Value: IBizContacto); override;
public public
constructor Create(AOwner: TComponent); override; constructor Create(AOwner: TComponent); override;
@ -48,7 +56,8 @@ type
implementation implementation
uses uses
uEditorDBItem, uDialogUtils, uGruposEmpleadoController, uBizGruposEmpleado; uEditorDBItem, uDialogUtils, uGruposEmpleadoController, uBizGruposEmpleado,
uEmpleadosController;
{$R *.dfm} {$R *.dfm}
@ -81,6 +90,21 @@ begin
inherited; inherited;
end; end;
procedure TfEditorEmpleado.ImprimirInterno;
var
Respuesta : Integer;
AFichas: IBizEmpleado;
AllItems: Boolean;
begin
AFichas := Nil;
AllItems := False;
AFichas := (Contacto as IBizEmpleado);
if Assigned(AFichas) then
(FController as IEmpleadosController).Print(AFichas);
end;
procedure TfEditorEmpleado.PonerTitulos(const ATitulo: string); procedure TfEditorEmpleado.PonerTitulos(const ATitulo: string);
var var
FTitulo : String; FTitulo : String;
@ -96,6 +120,21 @@ begin
inherited PonerTitulos(FTitulo); inherited PonerTitulos(FTitulo);
end; end;
procedure TfEditorEmpleado.PrevisualizarInterno;
var
Respuesta : Integer;
AFichas: IBizEmpleado;
AllItems: Boolean;
begin
AFichas := Nil;
AllItems := False;
AFichas := (Contacto as IBizEmpleado);
if Assigned(AFichas) then
(FController as IEmpleadosController).Preview(AFichas);
end;
procedure TfEditorEmpleado.SetContacto(const Value: IBizContacto); procedure TfEditorEmpleado.SetContacto(const Value: IBizContacto);
begin begin
inherited; inherited;

20
Source/Modulos/Contactos/Views/uEditorEmpleados.dfm
View File

@ -103,27 +103,15 @@ inherited fEditorEmpleados: TfEditorEmpleados
Width = 786 Width = 786
ExplicitWidth = 786 ExplicitWidth = 786
inherited txtFiltroTodo: TcxTextEdit inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 689 ExplicitWidth = 689
Width = 689 Width = 689
end end
inherited edtFechaIniFiltro: TcxDateEdit inherited edtFechaIniFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 290 ExplicitWidth = 290
Width = 290 Width = 290
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 394 Left = 394
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 394 ExplicitLeft = 394
ExplicitWidth = 382 ExplicitWidth = 382
Width = 382 Width = 382
@ -162,6 +150,14 @@ inherited fEditorEmpleados: TfEditorEmpleados
BuiltInReportLink = True BuiltInReportLink = True
end end
end end
inherited cxViewGridPopupMenu: TcxGridPopupMenu
PopupMenus = <
item
GridView = frViewEmpleados1.cxGridView
HitTypes = [gvhtCell]
Index = 0
end>
end
end end
inherited EditorActionList: TActionList [4] inherited EditorActionList: TActionList [4]
Left = 72 Left = 72

12
Source/Modulos/Contactos/Views/uEditorEmpleados.pas
View File

@ -93,12 +93,11 @@ begin
end; end;
procedure TfEditorEmpleados.ImprimirInterno; procedure TfEditorEmpleados.ImprimirInterno;
{var var
Respuesta : Integer; Respuesta : Integer;
AFichas: IBizEmpleado; AFichas: IBizEmpleado;
AllItems: Boolean;} AllItems: Boolean;
begin begin
{
AFichas := Nil; AFichas := Nil;
AllItems := False; AllItems := False;
@ -121,18 +120,17 @@ begin
if AllItems then if AllItems then
begin begin
SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Contactos as ISeleccionable).SelectedRecords); SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Contactos as ISeleccionable).SelectedRecords);
AFichas := (Controller as IFacturasClienteController).ExtraerSeleccionados(Facturas) as IBizEmpleado; AFichas := (Controller as IEmpleadosController).ExtraerSeleccionados(Contactos) as IBizEmpleado;
end end
else else
AFichas := Facturas; AFichas := (Contactos as IBizEmpleado);
if Assigned(AFichas) then if Assigned(AFichas) then
FController.Preview(AFichas, AllItems); (FController as IEmpleadosController).Print(AFichas, AllItems);
end; end;
end; end;
end; end;
end; end;
}
end; end;
procedure TfEditorEmpleados.PonerTitulos(const ATitulo: string); procedure TfEditorEmpleados.PonerTitulos(const ATitulo: string);

100
Source/Modulos/Contactos/Views/uViewEmpleado.dfm
View File

@ -7,16 +7,16 @@ inherited frViewEmpleado: TfrViewEmpleado
Height = 391 Height = 391
ExplicitHeight = 391 ExplicitHeight = 391
inherited PngSpeedButton1: TPngSpeedButton inherited PngSpeedButton1: TPngSpeedButton
Left = 613 Left = 612
ExplicitLeft = 613 ExplicitLeft = 612
end end
inherited PngSpeedButton2: TPngSpeedButton inherited PngSpeedButton2: TPngSpeedButton
Left = 613 Left = 612
ExplicitLeft = 613 ExplicitLeft = 612
end end
inherited PngSpeedButton3: TPngSpeedButton inherited PngSpeedButton3: TPngSpeedButton
Left = 613 Left = 612
ExplicitLeft = 613 ExplicitLeft = 612
end end
inherited eCalle: TcxDBTextEdit inherited eCalle: TcxDBTextEdit
Left = 121 Left = 121
@ -56,8 +56,8 @@ inherited frViewEmpleado: TfrViewEmpleado
Top = 364 Top = 364
TabOrder = 20 TabOrder = 20
ExplicitTop = 364 ExplicitTop = 364
ExplicitHeight = 148 ExplicitHeight = 20
Height = 148 Height = 20
end end
object eFechaNacimiento: TcxDBDateEdit [8] object eFechaNacimiento: TcxDBDateEdit [8]
Left = 121 Left = 121
@ -121,37 +121,13 @@ inherited frViewEmpleado: TfrViewEmpleado
Left = 429 Left = 429
TabOrder = 12 TabOrder = 12
ExplicitLeft = 429 ExplicitLeft = 429
ExplicitWidth = 91
Width = 91
end end
inherited eTlfTrabajo: TcxDBTextEdit inherited eTlfTrabajo: TcxDBTextEdit
Left = 429 Left = 429
TabOrder = 11 TabOrder = 11
ExplicitLeft = 429 ExplicitLeft = 429
ExplicitWidth = 127
Width = 127
end end
inherited eTlfMovil: TcxDBTextEdit object cbContrato: TcxDBComboBox [13]
Left = 429
TabOrder = 13
ExplicitLeft = 429
ExplicitWidth = 155
Width = 155
end
inherited eFax: TcxDBTextEdit
Left = 429
TabOrder = 14
ExplicitLeft = 429
ExplicitWidth = 121
Width = 121
end
inherited eNombre: TcxDBTextEdit
Left = 121
ExplicitLeft = 121
ExplicitWidth = 263
Width = 263
end
object cbContrato: TcxDBComboBox [16]
Left = 429 Left = 429
Top = 280 Top = 280
DataBinding.DataField = 'CONTRATO' DataBinding.DataField = 'CONTRATO'
@ -175,6 +151,22 @@ inherited frViewEmpleado: TfrViewEmpleado
TabOrder = 18 TabOrder = 18
Width = 292 Width = 292
end end
inherited eTlfMovil: TcxDBTextEdit
Left = 429
TabOrder = 13
ExplicitLeft = 429
end
inherited eFax: TcxDBTextEdit
Left = 429
TabOrder = 14
ExplicitLeft = 429
end
inherited eNombre: TcxDBTextEdit
Left = 121
ExplicitLeft = 121
ExplicitWidth = 263
Width = 263
end
inherited eNIFCIF: TcxDBTextEdit inherited eNIFCIF: TcxDBTextEdit
Left = 198 Left = 198
ExplicitLeft = 198 ExplicitLeft = 198
@ -197,29 +189,7 @@ inherited frViewEmpleado: TfrViewEmpleado
ExplicitWidth = 165 ExplicitWidth = 165
Width = 165 Width = 165
end end
inherited ePaginaWeb: TcxDBHyperLinkEdit object eDuracionContrato: TcxDBTextEdit [20]
Left = 429
TabOrder = 17
ExplicitLeft = 429
ExplicitWidth = 165
Width = 165
end
inherited eReferencia: TcxDBTextEdit
Left = 121
ExplicitLeft = 121
ExplicitWidth = 38
Width = 38
end
inherited ePersonaContacto: TcxDBTextEdit
Left = 121
Top = 307
TabOrder = 10
ExplicitLeft = 121
ExplicitTop = 307
ExplicitWidth = 256
Width = 256
end
object eDuracionContrato: TcxDBTextEdit [23]
Left = 429 Left = 429
Top = 307 Top = 307
DataBinding.DataField = 'DURACION' DataBinding.DataField = 'DURACION'
@ -237,6 +207,24 @@ inherited frViewEmpleado: TfrViewEmpleado
TabOrder = 19 TabOrder = 19
Width = 114 Width = 114
end end
inherited ePaginaWeb: TcxDBHyperLinkEdit
Left = 429
TabOrder = 17
ExplicitLeft = 429
ExplicitWidth = 165
Width = 165
end
inherited eReferencia: TcxDBTextEdit
Left = 121
ExplicitLeft = 121
end
inherited ePersonaContacto: TcxDBTextEdit
Left = 121
Top = 307
TabOrder = 10
ExplicitLeft = 121
ExplicitTop = 307
end
inherited dxLayoutControlContactoGroup_Root: TdxLayoutGroup inherited dxLayoutControlContactoGroup_Root: TdxLayoutGroup
inherited dxLayoutControlContactoGroup9: TdxLayoutGroup inherited dxLayoutControlContactoGroup9: TdxLayoutGroup
inherited dxLayoutControlContactoGroup4: TdxLayoutGroup inherited dxLayoutControlContactoGroup4: TdxLayoutGroup

8
Source/Modulos/Contactos/Views/uViewEmpleado.pas
View File

@ -8,7 +8,13 @@ uses
dxLayoutControl, cxMemo, cxDBEdit, cxContainer, cxEdit, cxTextEdit, cxControls, dxLayoutControl, cxMemo, cxDBEdit, cxContainer, cxEdit, cxTextEdit, cxControls,
cxMaskEdit, cxSpinEdit, ImgList, PngImageList, ActnList, cxHyperLinkEdit, cxMaskEdit, cxSpinEdit, ImgList, PngImageList, ActnList, cxHyperLinkEdit,
Buttons, PngSpeedButton, cxDropDownEdit, cxCalendar, cxGraphics, uGruposEmpleadoController, Buttons, PngSpeedButton, cxDropDownEdit, cxCalendar, cxGraphics, uGruposEmpleadoController,
uDAInterfaces; uDAInterfaces, dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinCaramel,
dxSkinCoffee, dxSkinGlassOceans, dxSkiniMaginary, dxSkinLilian,
dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMoneyTwins,
dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinSilver, dxSkinStardust,
dxSkinsDefaultPainters, dxSkinValentine, dxSkinXmas2008Blue,
dxSkinsdxLCPainter;
type type
IViewEmpleado = interface(IViewContacto) IViewEmpleado = interface(IViewContacto)

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

2
Source/Servidor/FactuGES_Server.rc
View File

@ -14,7 +14,7 @@ BEGIN
BEGIN BEGIN
VALUE "FileVersion", "1.0.5.0\0" VALUE "FileVersion", "1.0.5.0\0"
VALUE "ProductVersion", "1.0.5.0\0" VALUE "ProductVersion", "1.0.5.0\0"
VALUE "CompileDate", "jueves, 05 de junio de 2008 20:08\0" VALUE "CompileDate", "viernes, 06 de junio de 2008 10:48\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"