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
ClientWidth = 929
ExplicitWidth = 937
ExplicitHeight = 610
ExplicitHeight = 617
PixelsPerInch = 96
TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader
@ -112,20 +112,20 @@ inherited fEditorEmpleado: TfEditorEmpleado
inherited eCalle: TcxDBTextEdit
Top = 216
ExplicitTop = 216
ExplicitWidth = 174
Width = 174
ExplicitWidth = 341
Width = 341
end
inherited eProvincia: TcxDBTextEdit
Top = 270
ExplicitTop = 270
ExplicitWidth = 174
Width = 174
ExplicitWidth = 341
Width = 341
end
inherited ePoblacion: TcxDBTextEdit
Top = 243
ExplicitTop = 243
ExplicitWidth = 108
Width = 108
ExplicitWidth = 240
Width = 240
end
inherited eCodigoPostal: TcxDBTextEdit
Left = 397
@ -136,82 +136,82 @@ inherited fEditorEmpleado: TfEditorEmpleado
inherited eObservaciones: TcxDBMemo
Top = 348
ExplicitTop = 348
ExplicitWidth = 185
ExplicitHeight = 148
Height = 148
Width = 185
ExplicitWidth = 871
ExplicitHeight = 90
Height = 90
Width = 871
end
inherited eFechaNacimiento: TcxDBDateEdit
Top = 84
ExplicitTop = 84
ExplicitWidth = 80
Width = 80
ExplicitWidth = 341
Width = 341
end
inherited eFechaAltaEmpresa: TcxDBDateEdit
Top = 111
ExplicitTop = 111
ExplicitWidth = 80
Width = 80
ExplicitWidth = 341
Width = 341
end
inherited cbCategoria: TcxDBComboBox
Top = 138
ExplicitTop = 138
ExplicitWidth = 225
Width = 225
ExplicitWidth = 341
Width = 341
end
inherited eTlfParticular: TcxDBTextEdit
Left = 585
Top = 57
ExplicitLeft = 585
ExplicitTop = 57
ExplicitWidth = 172
Width = 172
ExplicitWidth = 308
Width = 308
end
inherited eTlfTrabajo: TcxDBTextEdit
Left = 585
Top = 30
ExplicitLeft = 585
ExplicitTop = 30
ExplicitWidth = 172
Width = 172
ExplicitWidth = 308
Width = 308
end
inherited cbContrato: TcxDBComboBox
Left = 585
Top = 270
ExplicitLeft = 585
ExplicitTop = 270
ExplicitWidth = 292
Width = 292
ExplicitWidth = 308
Width = 308
end
inherited eTlfMovil: TcxDBTextEdit
Left = 585
Top = 84
ExplicitLeft = 585
ExplicitTop = 84
ExplicitWidth = 172
Width = 172
ExplicitWidth = 308
Width = 308
end
inherited eFax: TcxDBTextEdit
Left = 585
Top = 111
ExplicitLeft = 585
ExplicitTop = 111
ExplicitWidth = 172
Width = 172
ExplicitWidth = 308
Width = 308
end
inherited eNombre: TcxDBTextEdit
Top = 57
ExplicitTop = 57
ExplicitWidth = 263
Width = 263
ExplicitWidth = 341
Width = 341
end
inherited eNIFCIF: TcxDBTextEdit
Left = 259
Top = 30
ExplicitLeft = 259
ExplicitTop = 30
ExplicitWidth = 194
Width = 194
ExplicitWidth = 203
Width = 203
end
inherited eMailTrabajo: TcxDBHyperLinkEdit
Left = 585
@ -219,8 +219,8 @@ inherited fEditorEmpleado: TfEditorEmpleado
Properties.Prefix = 'mailto:'
ExplicitLeft = 585
ExplicitTop = 162
ExplicitWidth = 129
Width = 129
ExplicitWidth = 279
Width = 279
end
inherited eMailParticular: TcxDBHyperLinkEdit
Left = 585
@ -228,36 +228,36 @@ inherited fEditorEmpleado: TfEditorEmpleado
Properties.Prefix = 'mailto:'
ExplicitLeft = 585
ExplicitTop = 190
ExplicitWidth = 165
Width = 165
ExplicitWidth = 279
Width = 279
end
inherited eDuracionContrato: TcxDBTextEdit
Left = 585
Top = 297
ExplicitLeft = 585
ExplicitTop = 297
ExplicitWidth = 114
Width = 114
ExplicitWidth = 308
Width = 308
end
inherited ePaginaWeb: TcxDBHyperLinkEdit
Left = 585
Top = 217
ExplicitLeft = 585
ExplicitTop = 217
ExplicitWidth = 165
Width = 165
ExplicitWidth = 279
Width = 279
end
inherited eReferencia: TcxDBTextEdit
Top = 30
ExplicitTop = 30
ExplicitWidth = 97
Width = 97
ExplicitWidth = 105
Width = 105
end
inherited ePersonaContacto: TcxDBTextEdit
Top = 297
ExplicitTop = 297
ExplicitWidth = 256
Width = 256
ExplicitWidth = 341
Width = 341
end
end
inherited dsContacto: TDADataSource
@ -283,18 +283,6 @@ inherited fEditorEmpleado: TfEditorEmpleado
inherited ToolBar1: TToolBar
Width = 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
@ -305,7 +293,6 @@ inherited fEditorEmpleado: TfEditorEmpleado
inherited frViewPersonalContacto1: TfrViewPersonalContacto
Width = 915
Height = 454
ExplicitTop = 0
ExplicitWidth = 915
ExplicitHeight = 454
inherited cxGrid: TcxGrid
@ -331,6 +318,7 @@ inherited fEditorEmpleado: TfEditorEmpleado
Align = alClient
ParentBackground = True
TabOrder = 0
TabStop = False
AutoContentSizes = [acsWidth, acsHeight]
LookAndFeel = dxLayoutOfficeLookAndFeel
object eFormacionBasica: TcxDBMemo
@ -351,8 +339,8 @@ inherited fEditorEmpleado: TfEditorEmpleado
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 0
Height = 89
Width = 580
Height = 116
Width = 871
end
object eFormacionComplementaria: TcxDBMemo
Left = 22
@ -372,8 +360,8 @@ inherited fEditorEmpleado: TfEditorEmpleado
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 1
Height = 89
Width = 580
Height = 116
Width = 871
end
object eFormacionRecibida: TcxDBMemo
Left = 22
@ -393,8 +381,8 @@ inherited fEditorEmpleado: TfEditorEmpleado
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 2
Height = 89
Width = 580
Height = 116
Width = 871
end
object dxLayoutControl1Group_Root: TdxLayoutGroup
Caption = 'Formaci'#243'n b'#225'sica'
@ -448,6 +436,7 @@ inherited fEditorEmpleado: TfEditorEmpleado
Align = alClient
ParentBackground = True
TabOrder = 0
TabStop = False
AutoContentSizes = [acsWidth, acsHeight]
LookAndFeel = dxLayoutOfficeLookAndFeel
object eExperiencia: TcxDBMemo
@ -469,8 +458,8 @@ inherited fEditorEmpleado: TfEditorEmpleado
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 0
Height = 89
Width = 580
Height = 408
Width = 871
end
object dxLayoutGroup1: TdxLayoutGroup
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,
uViewDetallesGenerico, uViewContactoDatosBancarios, dxLayoutLookAndFeels,
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
TfEditorEmpleado = class(TfEditorContacto, IEditorEmpleado)
@ -39,6 +45,8 @@ type
procedure actGruposEmpleadoExecute(Sender: TObject);
protected
procedure EliminarInterno; override;
procedure ImprimirInterno; override;
procedure PrevisualizarInterno; override;
procedure SetContacto(const Value: IBizContacto); override;
public
constructor Create(AOwner: TComponent); override;
@ -48,7 +56,8 @@ type
implementation
uses
uEditorDBItem, uDialogUtils, uGruposEmpleadoController, uBizGruposEmpleado;
uEditorDBItem, uDialogUtils, uGruposEmpleadoController, uBizGruposEmpleado,
uEmpleadosController;
{$R *.dfm}
@ -81,6 +90,21 @@ begin
inherited;
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);
var
FTitulo : String;
@ -96,6 +120,21 @@ begin
inherited PonerTitulos(FTitulo);
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);
begin
inherited;

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

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

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

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

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

@ -7,16 +7,16 @@ inherited frViewEmpleado: TfrViewEmpleado
Height = 391
ExplicitHeight = 391
inherited PngSpeedButton1: TPngSpeedButton
Left = 613
ExplicitLeft = 613
Left = 612
ExplicitLeft = 612
end
inherited PngSpeedButton2: TPngSpeedButton
Left = 613
ExplicitLeft = 613
Left = 612
ExplicitLeft = 612
end
inherited PngSpeedButton3: TPngSpeedButton
Left = 613
ExplicitLeft = 613
Left = 612
ExplicitLeft = 612
end
inherited eCalle: TcxDBTextEdit
Left = 121
@ -56,8 +56,8 @@ inherited frViewEmpleado: TfrViewEmpleado
Top = 364
TabOrder = 20
ExplicitTop = 364
ExplicitHeight = 148
Height = 148
ExplicitHeight = 20
Height = 20
end
object eFechaNacimiento: TcxDBDateEdit [8]
Left = 121
@ -121,37 +121,13 @@ inherited frViewEmpleado: TfrViewEmpleado
Left = 429
TabOrder = 12
ExplicitLeft = 429
ExplicitWidth = 91
Width = 91
end
inherited eTlfTrabajo: TcxDBTextEdit
Left = 429
TabOrder = 11
ExplicitLeft = 429
ExplicitWidth = 127
Width = 127
end
inherited eTlfMovil: TcxDBTextEdit
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]
object cbContrato: TcxDBComboBox [13]
Left = 429
Top = 280
DataBinding.DataField = 'CONTRATO'
@ -175,6 +151,22 @@ inherited frViewEmpleado: TfrViewEmpleado
TabOrder = 18
Width = 292
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
Left = 198
ExplicitLeft = 198
@ -197,29 +189,7 @@ inherited frViewEmpleado: TfrViewEmpleado
ExplicitWidth = 165
Width = 165
end
inherited ePaginaWeb: TcxDBHyperLinkEdit
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]
object eDuracionContrato: TcxDBTextEdit [20]
Left = 429
Top = 307
DataBinding.DataField = 'DURACION'
@ -237,6 +207,24 @@ inherited frViewEmpleado: TfrViewEmpleado
TabOrder = 19
Width = 114
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 dxLayoutControlContactoGroup9: 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,
cxMaskEdit, cxSpinEdit, ImgList, PngImageList, ActnList, cxHyperLinkEdit,
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
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
VALUE "FileVersion", "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
BLOCK "VarFileInfo"