object fempleados: Tfempleados Left = 0 Top = 0 Caption = 'Gesti'#243'n de trabajadores' ClientHeight = 729 ClientWidth = 1296 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] KeyPreview = True OldCreateOrder = True WindowState = wsMaximized OnClose = FormClose OnKeyDown = FormKeyDown OnKeyPress = FormKeyPress OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object Panel2: TPanel Left = 0 Top = 0 Width = 280 Height = 729 Align = alLeft Caption = 'Panel2' TabOrder = 0 object Panel1: TPanel Left = 1 Top = 1 Width = 278 Height = 72 Align = alTop TabOrder = 0 object Label1: TLabel Left = 5 Top = 26 Width = 36 Height = 13 Caption = 'Buscar:' end object Label28: TLabel Left = 69 Top = 206 Width = 33 Height = 13 Caption = 'Grupo:' end object ltotalgrupo: TLabel Left = 142 Top = 6 Width = 68 Height = 13 Caption = 'Total grupo:' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end object tbuscar: TEdit Left = 5 Top = 40 Width = 131 Height = 21 CharCase = ecUpperCase TabOrder = 0 OnChange = tbuscarChange OnExit = tbuscarExit end object chktodosempleados: TCheckBox Left = 180 Top = 25 Width = 92 Height = 17 Alignment = taLeftJustify BiDiMode = bdRightToLeftNoAlign Caption = 'Mostrar todos' ParentBiDiMode = False TabOrder = 1 OnClick = chktodosempleadosClick end object checktodos2: TCheckBox Left = 141 Top = 45 Width = 131 Height = 17 Alignment = taLeftJustify Caption = 'Selec. Todos/Ninguno' TabOrder = 2 OnClick = checktodos2Click end object listagrupos2: TDBLookupComboBox Left = 40 Top = 3 Width = 98 Height = 21 DropDownRows = 20 KeyField = 'id' ListField = 'descripcion' ListSource = dsqgrupos2 TabOrder = 3 OnCloseUp = listagrupos2CloseUp end end object DBGrid1: TDBGrid Left = 1 Top = 73 Width = 278 Height = 655 Hint = 'Para seleccionar varios registros mantenga pulsada la tecla Ctrl' Align = alClient DataSource = dsqlistaempleados Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgMultiSelect, dgTitleClick, dgTitleHotTrack] ParentShowHint = False ReadOnly = True ShowHint = True TabOrder = 1 TitleFont.Charset = DEFAULT_CHARSET TitleFont.Color = clWindowText TitleFont.Height = -11 TitleFont.Name = 'Tahoma' TitleFont.Style = [] OnDrawColumnCell = DBGrid1DrawColumnCell OnTitleClick = DBGrid1TitleClick Columns = < item Expanded = False FieldName = 'id' Title.Caption = 'Id' Width = 30 Visible = True end item Expanded = False FieldName = 'nombre' Title.Caption = 'Nombre' Width = 210 Visible = True end> end end object PageEmpleados: TPageControl Left = 280 Top = 0 Width = 1016 Height = 729 ActivePage = TabSheet1 Align = alClient TabOrder = 1 OnChange = PageEmpleadosChange object tabDatosGenerales: TTabSheet Caption = 'Datos del Empleado' object Panel9: TPanel Left = 0 Top = 212 Width = 1008 Height = 446 Align = alTop BorderStyle = bsSingle Enabled = False TabOrder = 1 object Panel164: TPanel Left = 1 Top = 1 Width = 506 Height = 440 Align = alLeft TabOrder = 2 object Label2: TLabel Left = 63 Top = 9 Width = 41 Height = 13 Caption = 'C'#243'digo:' FocusControl = DBEdit1 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end object Label3: TLabel Left = 0 Top = 89 Width = 104 Height = 13 Caption = 'Nombre Completo:' FocusControl = DBEdit2 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end object Label5: TLabel Left = 49 Top = 109 Width = 55 Height = 13 Caption = 'Direcci'#243'n:' FocusControl = DBEdit4 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end object Label6: TLabel Left = 47 Top = 129 Width = 57 Height = 13 Caption = 'Poblaci'#243'n:' FocusControl = DBEdit5 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end object Label7: TLabel Left = 287 Top = 129 Width = 55 Height = 13 Caption = 'Provincia:' FocusControl = DBEdit6 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end object Label25: TLabel Left = 46 Top = 149 Width = 58 Height = 13 Caption = 'Tel'#233'fonos:' FocusControl = DBEdit22 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end object Label54: TLabel Left = 215 Top = 129 Width = 20 Height = 13 Caption = 'C.P.' FocusControl = DBEdit17 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end object Label11: TLabel Left = 57 Top = 49 Width = 47 Height = 13 Caption = 'Nombre:' FocusControl = DBEdit8 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end object Label30: TLabel Left = 50 Top = 69 Width = 54 Height = 13 Caption = 'Apellidos:' FocusControl = DBEdit27 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end object Label12: TLabel Left = 43 Top = 30 Width = 61 Height = 13 Caption = 'Dni/Nif/Cif:' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end object Label27: TLabel Left = 122 Top = 214 Width = 94 Height = 13 Caption = 'Datos Bancarios:' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end object Label31: TLabel Left = 28 Top = 234 Width = 76 Height = 13 Caption = 'N'#186' Seg Social:' FocusControl = DBEdit34 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end object Label32: TLabel Left = 11 Top = 283 Width = 29 Height = 13 Caption = 'IRPF:' FocusControl = DBEdit35 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end object Label33: TLabel Left = 70 Top = 282 Width = 66 Height = 13 Caption = 'Desempleo:' FocusControl = DBEdit36 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end object Label34: TLabel Left = 169 Top = 282 Width = 62 Height = 13 Caption = 'Formaci'#243'n:' FocusControl = DBEdit37 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end object Label35: TLabel Left = 13 Top = 354 Width = 86 Height = 13 Caption = 'Observaciones:' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end object Label36: TLabel Left = 266 Top = 282 Width = 82 Height = 13 Caption = 'Contingencias:' FocusControl = DBEdit38 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end object Label13: TLabel Left = 15 Top = 255 Width = 89 Height = 13 Caption = 'Reg. Cotizaci'#243'n:' FocusControl = DBEdit35 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end object Label309: TLabel Left = 21 Top = 187 Width = 83 Height = 26 Alignment = taRightJustify Caption = 'Tipo de hora a cobrar:' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False WordWrap = True end object DBText8: TDBText Left = 245 Top = 189 Width = 56 Height = 17 DataField = 'precio' DataSource = dsqtipohora end object Label63: TLabel Left = 40 Top = 339 Width = 59 Height = 13 Caption = 'Horas/dia:' FocusControl = DBEdit15 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end object Label68: TLabel Left = 65 Top = 169 Width = 39 Height = 13 Caption = 'e-mail:' FocusControl = DBEdit42 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end object Label79: TLabel Left = 391 Top = 282 Width = 24 Height = 13 Caption = 'MEI:' FocusControl = DBEdit48 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end object Label80: TLabel Left = 27 Top = 319 Width = 74 Height = 13 Caption = 'Salario-Base:' FocusControl = DBEdit49 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end object DBEdit1: TDBEdit Left = 106 Top = 6 Width = 391 Height = 21 Color = clGradientInactiveCaption DataField = 'ID' DataSource = dsqempleados TabOrder = 0 end object DBEdit2: TDBEdit Left = 106 Top = 86 Width = 391 Height = 21 Color = clGradientInactiveCaption DataField = 'nombre' DataSource = dsqempleados Enabled = False TabOrder = 4 end object DBEdit4: TDBEdit Left = 106 Top = 106 Width = 391 Height = 21 Color = clGradientInactiveCaption DataField = 'DIRECCION' DataSource = dsqempleados TabOrder = 5 end object DBEdit5: TDBEdit Left = 106 Top = 126 Width = 103 Height = 21 DataField = 'POBLACION' DataSource = dsqempleados TabOrder = 6 end object DBEdit6: TDBEdit Left = 345 Top = 126 Width = 152 Height = 21 DataField = 'PROVINCIA' DataSource = dsqempleados TabOrder = 8 end object DBEdit9: TDBEdit Left = 106 Top = 26 Width = 391 Height = 21 Color = clGradientInactiveCaption DataField = 'NIF' DataSource = dsqempleados TabOrder = 1 OnExit = DBEdit9Exit end object DBEdit22: TDBEdit Left = 106 Top = 146 Width = 90 Height = 21 DataField = 'TELEFONO1' DataSource = dsqempleados TabOrder = 9 end object DBEdit23: TDBEdit Left = 195 Top = 146 Width = 89 Height = 21 DataField = 'TELEFONO2' DataSource = dsqempleados TabOrder = 10 end object DBEdit24: TDBEdit Left = 283 Top = 146 Width = 88 Height = 21 DataField = 'TELEFONO3' DataSource = dsqempleados TabOrder = 11 end object DBEdit25: TDBEdit Left = 370 Top = 146 Width = 127 Height = 21 DataField = 'TELEFONO4' DataSource = dsqempleados TabOrder = 12 end object DBEdit17: TDBEdit Left = 242 Top = 126 Width = 42 Height = 21 DataField = 'CP' DataSource = dsqempleados TabOrder = 7 end object DBEdit8: TDBEdit Left = 106 Top = 46 Width = 391 Height = 21 DataField = 'NOMBRECORTO' DataSource = dsqempleados TabOrder = 2 OnChange = DBEdit8Change end object DBEdit27: TDBEdit Left = 106 Top = 66 Width = 391 Height = 21 DataField = 'APELLIDOS' DataSource = dsqempleados TabOrder = 3 OnChange = DBEdit27Change end object DBEdit34: TDBEdit Left = 106 Top = 231 Width = 321 Height = 21 DataField = 'NUMSEGSOCIAL' DataSource = dsqempleados TabOrder = 21 end object DBEdit35: TDBEdit Left = 42 Top = 279 Width = 30 Height = 21 Color = clGradientInactiveCaption DataField = 'IRPF' DataSource = dsqempleados TabOrder = 23 end object DBEdit36: TDBEdit Left = 137 Top = 279 Width = 30 Height = 21 Color = clGradientInactiveCaption DataField = 'DESEMPLEO' DataSource = dsqempleados TabOrder = 24 end object DBEdit37: TDBEdit Left = 234 Top = 279 Width = 30 Height = 21 Color = clGradientInactiveCaption DataField = 'FORMACION' DataSource = dsqempleados TabOrder = 25 end object DBMemo1: TDBMemo Left = 106 Top = 360 Width = 352 Height = 75 DataField = 'OBSERVACIONES' DataSource = dsqempleados TabOrder = 31 end object DBCheckBox1: TDBCheckBox Left = 81 Top = 300 Width = 38 Height = 17 Alignment = taLeftJustify Caption = 'Fijo:' Color = clGradientInactiveCaption DataField = 'FIJO' DataSource = dsqempleados Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentColor = False ParentFont = False TabOrder = 27 ValueChecked = '1' ValueUnchecked = '0' end object DBCheckBox2: TDBCheckBox Left = 134 Top = 300 Width = 111 Height = 17 Alignment = taLeftJustify Caption = 'Fijo Discontinuo:' Color = clGradientInactiveCaption DataField = 'FIJODISCONTINUO' DataSource = dsqempleados Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentColor = False ParentFont = False TabOrder = 28 ValueChecked = '1' ValueUnchecked = '0' end object DBCheckBox3: TDBCheckBox Left = 251 Top = 300 Width = 77 Height = 17 Alignment = taLeftJustify Caption = 'Temporal:' Color = clGradientInactiveCaption DataField = 'TEMPORAL' DataSource = dsqempleados Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentColor = False ParentFont = False TabOrder = 29 ValueChecked = '1' ValueUnchecked = '0' end object DBEdit38: TDBEdit Left = 354 Top = 279 Width = 30 Height = 21 Color = clGradientInactiveCaption DataField = 'CONTINGENCIAS' DataSource = dsqempleados TabOrder = 26 end object DBCheckBox4: TDBCheckBox Left = 8 Top = 213 Width = 111 Height = 17 Alignment = taLeftJustify Caption = 'Pagar por Banco:' Color = clGradientInactiveCaption DataField = 'PAGARPORBANCO' DataSource = dsqempleados Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentColor = False ParentFont = False TabOrder = 15 ValueChecked = '1' ValueUnchecked = '0' end object DBEdit32: TDBEdit Left = 325 Top = 211 Width = 30 Height = 21 DataField = 'CBDC' DataSource = dsqempleados TabOrder = 19 end object DBEdit29: TDBEdit Left = 219 Top = 211 Width = 35 Height = 21 DataField = 'CBIBAN' DataSource = dsqempleados TabOrder = 16 end object DBEdit30: TDBEdit Left = 253 Top = 211 Width = 39 Height = 21 DataField = 'CBBANCO' DataSource = dsqempleados TabOrder = 17 end object DBEdit31: TDBEdit Left = 291 Top = 211 Width = 35 Height = 21 DataField = 'CBOFICINA' DataSource = dsqempleados TabOrder = 18 end object DBEdit33: TDBEdit Left = 354 Top = 211 Width = 73 Height = 21 DataField = 'CBCC' DataSource = dsqempleados TabOrder = 20 end object DBLookupComboBox13: TDBLookupComboBox Left = 106 Top = 186 Width = 133 Height = 21 DataField = 'codart' DataSource = dsqempleados DropDownWidth = 300 KeyField = 'codart' ListField = 'codart;descrip' ListSource = dsqtipohora TabOrder = 14 end object DBLookupComboBox1: TDBLookupComboBox Left = 106 Top = 251 Width = 133 Height = 21 DataField = 'REGIMEN_COT' DataSource = dsqempleados DropDownWidth = 200 KeyField = 'descripcion' ListField = 'descripcion' ListSource = dsqregimencotizacion TabOrder = 22 OnDropDown = DBLookupComboBox1DropDown end object DBEdit15: TDBEdit Left = 106 Top = 337 Width = 39 Height = 21 DataField = 'horascontrato' DataSource = dsqempleados TabOrder = 30 end object DBEdit42: TDBEdit Left = 106 Top = 166 Width = 391 Height = 21 DataField = 'email' DataSource = dsqempleados TabOrder = 13 end object DBEdit48: TDBEdit Left = 414 Top = 279 Width = 30 Height = 21 Color = clGradientInactiveCaption DataField = 'retencion_me' DataSource = dsqempleados TabOrder = 32 end object DBEdit49: TDBEdit Left = 105 Top = 317 Width = 39 Height = 21 DataField = 'salariobasedia' DataSource = dsqempleados TabOrder = 33 end end object gridplantillacomu: TDBGrid Left = 292 Top = 11 Width = 105 Height = 70 DataSource = dsqplantillacomunicacion TabOrder = 1 TitleFont.Charset = DEFAULT_CHARSET TitleFont.Color = clWindowText TitleFont.Height = -11 TitleFont.Name = 'Tahoma' TitleFont.Style = [] Visible = False Columns = < item Expanded = False FieldName = 'id' Title.Caption = 'Idt' Visible = True end item Expanded = False FieldName = 'nif' Title.Caption = 'NIE/DNI' Visible = True end item Expanded = False FieldName = 'nombre' Title.Caption = 'NOMBRE Y APELLIDOS' Visible = True end item Expanded = False FieldName = 'jorreales' Title.Caption = 'JOR.REALES' Visible = True end item Expanded = False FieldName = 'd1' Title.Alignment = taCenter Title.Caption = '1' Width = 20 Visible = True end item Expanded = False FieldName = 'd2' Title.Alignment = taCenter Title.Caption = '2' Width = 20 Visible = True end item Expanded = False FieldName = 'd3' Title.Alignment = taCenter Title.Caption = '3' Width = 20 Visible = True end item Expanded = False FieldName = 'd4' Title.Alignment = taCenter Title.Caption = '4' Width = 20 Visible = True end item Expanded = False FieldName = 'd5' Title.Alignment = taCenter Title.Caption = '5' Width = 20 Visible = True end item Expanded = False FieldName = 'd6' Title.Alignment = taCenter Title.Caption = '6' Width = 20 Visible = True end item Expanded = False FieldName = 'd7' Title.Alignment = taCenter Title.Caption = '7' Width = 20 Visible = True end item Expanded = False FieldName = 'd8' Title.Alignment = taCenter Title.Caption = '8' Width = 20 Visible = True end item Expanded = False FieldName = 'd9' Title.Alignment = taCenter Title.Caption = '9' Width = 20 Visible = True end item Expanded = False FieldName = 'd10' Title.Alignment = taCenter Title.Caption = '10' Width = 20 Visible = True end item Expanded = False FieldName = 'd11' Title.Alignment = taCenter Title.Caption = '11' Width = 20 Visible = True end item Expanded = False FieldName = 'd12' Title.Alignment = taCenter Title.Caption = '12' Width = 20 Visible = True end item Expanded = False FieldName = 'd13' Title.Alignment = taCenter Title.Caption = '13' Width = 20 Visible = True end item Expanded = False FieldName = 'd14' Title.Alignment = taCenter Title.Caption = '14' Width = 20 Visible = True end item Expanded = False FieldName = 'd15' Title.Alignment = taCenter Title.Caption = '15' Width = 20 Visible = True end item Expanded = False FieldName = 'd16' Title.Alignment = taCenter Title.Caption = '16' Width = 20 Visible = True end item Expanded = False FieldName = 'd17' Title.Alignment = taCenter Title.Caption = '17' Width = 20 Visible = True end item Expanded = False FieldName = 'd18' Title.Alignment = taCenter Title.Caption = '18' Width = 20 Visible = True end item Expanded = False FieldName = 'd19' Title.Alignment = taCenter Title.Caption = '19' Width = 20 Visible = True end item Expanded = False FieldName = 'd20' Title.Alignment = taCenter Title.Caption = '20' Width = 20 Visible = True end item Expanded = False FieldName = 'd21' Title.Alignment = taCenter Title.Caption = '21' Width = 20 Visible = True end item Expanded = False FieldName = 'd22' Title.Alignment = taCenter Title.Caption = '22' Width = 20 Visible = True end item Expanded = False FieldName = 'd23' Title.Alignment = taCenter Title.Caption = '23' Width = 20 Visible = True end item Expanded = False FieldName = 'd24' Title.Alignment = taCenter Title.Caption = '24' Width = 20 Visible = True end item Expanded = False FieldName = 'd25' Title.Alignment = taCenter Title.Caption = '25' Width = 20 Visible = True end item Expanded = False FieldName = 'd26' Title.Alignment = taCenter Title.Caption = '26' Width = 20 Visible = True end item Expanded = False FieldName = 'd27' Title.Alignment = taCenter Title.Caption = '27' Width = 20 Visible = True end item Expanded = False FieldName = 'd28' Title.Alignment = taCenter Title.Caption = '28' Width = 20 Visible = True end item Expanded = False FieldName = 'd29' Title.Alignment = taCenter Title.Caption = '29' Width = 20 Visible = True end item Expanded = False FieldName = 'd30' Title.Alignment = taCenter Title.Caption = '30' Width = 20 Visible = True end item Expanded = False FieldName = 'd31' Title.Alignment = taCenter Title.Caption = '31' Visible = False end> end object Panel7: TPanel Left = 507 Top = 1 Width = 446 Height = 440 Align = alLeft BorderStyle = bsSingle TabOrder = 3 object Label19: TLabel Left = 4 Top = 24 Width = 109 Height = 13 Caption = 'Pa'#237's de nacimiento:' FocusControl = DBEdit16 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end object Label21: TLabel Left = 39 Top = 44 Width = 74 Height = 13 Caption = 'Nacionalidad:' FocusControl = DBEdit18 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end object Label22: TLabel Left = 82 Top = 84 Width = 31 Height = 13 Caption = 'Sexo:' FocusControl = DBEdit19 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end object Label26: TLabel Left = 11 Top = 64 Width = 102 Height = 13 Caption = 'Fecha Nacimiento:' FocusControl = DBEdit28 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end object Label10: TLabel Left = 124 Top = 1 Width = 70 Height = 13 Caption = 'Otros Datos:' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end object Label64: TLabel Left = 100 Top = 209 Width = 32 Height = 13 Caption = 'Firma' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end object tfirmas: TImage Left = 100 Top = 238 Width = 133 Height = 68 Center = True Proportional = True end object Label66: TLabel Left = 4 Top = 104 Width = 109 Height = 13 Caption = 'N'#250'mero de taquilla:' FocusControl = DBEdit41 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end object Label69: TLabel Left = 28 Top = 123 Width = 85 Height = 13 Caption = 'Convocar para:' FocusControl = DBEdit43 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end object DBEdit16: TDBEdit Left = 116 Top = 21 Width = 175 Height = 21 DataField = 'PAISNAC' DataSource = dsqempleados TabOrder = 0 end object DBEdit18: TDBEdit Left = 116 Top = 41 Width = 175 Height = 21 DataField = 'NACIONALIDAD' DataSource = dsqempleados TabOrder = 1 end object DBEdit19: TDBEdit Left = 116 Top = 81 Width = 175 Height = 21 DataField = 'SEXO' DataSource = dsqempleados TabOrder = 3 end object DBEdit28: TDBEdit Left = 116 Top = 61 Width = 175 Height = 21 DataField = 'FECHANACIMIENTO' DataSource = dsqempleados TabOrder = 2 end object DBCheckBox17: TDBCheckBox Left = 54 Top = 148 Width = 75 Height = 21 Alignment = taLeftJustify Caption = 'Embargos:' DataField = 'embargos' DataSource = dsqempleadosplanificacion Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False TabOrder = 5 ValueChecked = 'SI' ValueUnchecked = 'NO' WordWrap = True end object GRIDPLANTILLAROPA: TDBGrid Left = 28 Top = 303 Width = 261 Height = 77 DataSource = dsqplantillaropa TabOrder = 7 TitleFont.Charset = DEFAULT_CHARSET TitleFont.Color = clWindowText TitleFont.Height = -11 TitleFont.Name = 'Tahoma' TitleFont.Style = [] Visible = False Columns = < item Expanded = False FieldName = 'id' Title.Caption = 'Idt' Visible = True end item Expanded = False FieldName = 'nif' Title.Caption = 'NIE/DNI' Visible = True end item Expanded = False FieldName = 'nombre' Title.Caption = 'NOMBRE Y APELLIDOS' Visible = True end item Expanded = False FieldName = 'GUANTES' Title.Alignment = taCenter Width = 20 Visible = True end item Expanded = False FieldName = 'CASULLA' Title.Alignment = taCenter Width = 20 Visible = True end item Expanded = False FieldName = 'CAMISETA' Title.Alignment = taCenter Width = 20 Visible = True end item Expanded = False FieldName = 'COFIA' Title.Alignment = taCenter Width = 20 Visible = True end item Expanded = False FieldName = 'GORRA' Title.Alignment = taCenter Width = 20 Visible = True end item Expanded = False FieldName = 'TIJERA' Title.Alignment = taCenter Title.Caption = 'TIJERAS' Width = 20 Visible = True end item Expanded = False FieldName = 'FECHA' Title.Alignment = taCenter Width = 20 Visible = True end item Expanded = False FieldName = 'TAQUILLA' Title.Alignment = taCenter Width = 20 Visible = True end> end object Button1: TButton Left = 138 Top = 204 Width = 32 Height = 28 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ImageAlignment = iaCenter ImageIndex = 0 Images = BASE.listaiconos ParentFont = False TabOrder = 8 OnClick = Button1Click end object DBCheckBox19: TDBCheckBox Left = 24 Top = 169 Width = 105 Height = 25 Alignment = taLeftJustify Caption = 'Controlador de calidad' Color = clGradientInactiveCaption DataField = 'controlcalidad' DataSource = dsqempleados Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentColor = False ParentFont = False TabOrder = 6 ValueChecked = '1' ValueUnchecked = '0' WordWrap = True end object Button22: TButton Left = 176 Top = 204 Width = 32 Height = 28 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ImageAlignment = iaCenter ImageIndex = 1 Images = BASE.listaiconos ParentFont = False TabOrder = 9 OnClick = Button22Click end object DBEdit41: TDBEdit Left = 116 Top = 101 Width = 175 Height = 21 DataField = 'num_taquilla' DataSource = dsqempleados TabOrder = 4 OnKeyDown = DBEdit41KeyDown end object DBEdit43: TDBEdit Left = 116 Top = 121 Width = 175 Height = 21 DataField = 'convocatoria' DataSource = dsqempleados TabOrder = 10 OnEnter = DBEdit43Enter end object listaconvocatorias: TDBLookupListBox Left = 290 Top = 121 Width = 143 Height = 95 KeyField = 'convocatoria' ListField = 'convocatoria' ListSource = dsqconvocatorias TabOrder = 11 Visible = False OnDblClick = listaconvocatoriasDblClick OnExit = listaconvocatoriasExit end object GRIDTRIPARTITA: TDBGrid Left = -36 Top = 312 Width = 533 Height = 77 DataSource = dsqtripartita TabOrder = 12 TitleFont.Charset = DEFAULT_CHARSET TitleFont.Color = clWindowText TitleFont.Height = -11 TitleFont.Name = 'Tahoma' TitleFont.Style = [] Visible = False Columns = < item Expanded = False FieldName = 'id' Title.Caption = 'Num' Visible = True end item Expanded = False FieldName = 'apellidos' Title.Caption = 'APELLIDOS' Visible = True end item Expanded = False FieldName = 'nombre' Title.Caption = 'NOMBRE' Visible = True end item Expanded = False FieldName = 'nif' Title.Caption = 'NIF' Visible = True end item Expanded = False FieldName = 'numsegsocial' Title.Caption = 'NUM SEG SOCIAL' Visible = True end item Expanded = False FieldName = 'sexo' Title.Caption = 'SEXO' Visible = True end item Expanded = False FieldName = 'fechanacimiento' Title.Caption = 'F.NACIM' Visible = True end item Expanded = False FieldName = 'email' Title.Caption = 'EMAIL' Visible = True end item Expanded = False FieldName = 'telefono1' Title.Caption = 'TELEFONO' Visible = True end item Expanded = False FieldName = 'categoria_prof' Title.Caption = 'CATEGORIA' Visible = True end item Expanded = False FieldName = 'grupo_cotizacion' Title.Caption = 'GR COT SS' Visible = True end item Expanded = False FieldName = 'nivel_estudios' Title.Caption = 'NIVEL ESTUDIOS' Visible = True end item Expanded = False FieldName = 'empresa' Title.Caption = 'EMPRESATRABAJADOR' Visible = True end item Expanded = False FieldName = 'cif_empresa' Title.Caption = 'CIF' Visible = True end item Expanded = False FieldName = 'coste_cotiz' Title.Caption = 'CCOTZSSEMPRESA' Visible = True end item Expanded = False FieldName = 'coste_bruto_hora' Title.Caption = 'COSTEBRUTOHORA' Visible = True end> end object DBCheckBox20: TDBCheckBox Left = 184 Top = 148 Width = 81 Height = 21 Alignment = taLeftJustify Caption = 'Fumigador:' DataField = 'fumigador' DataSource = dsqempleados Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False TabOrder = 13 ValueChecked = '1' ValueUnchecked = '0' WordWrap = True end object DBCheckBox21: TDBCheckBox Left = 160 Top = 173 Width = 105 Height = 25 Alignment = taLeftJustify Caption = 'Responsable Tratamientos' Color = clGradientInactiveCaption DataField = 'responsable' DataSource = dsqempleados Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentColor = False ParentFont = False TabOrder = 14 ValueChecked = '1' ValueUnchecked = '0' WordWrap = True end end object gridplantillaext: TDBGrid Left = 196 Top = 134 Width = 261 Height = 77 DataSource = dsqplantillaextincion TabOrder = 0 TitleFont.Charset = DEFAULT_CHARSET TitleFont.Color = clWindowText TitleFont.Height = -11 TitleFont.Name = 'Tahoma' TitleFont.Style = [] Visible = False Columns = < item Expanded = False FieldName = 'id' Title.Caption = 'Idt' Visible = True end item Expanded = False FieldName = 'nif' Title.Caption = 'NIE/DNI' Visible = True end item Expanded = False FieldName = 'nombre' Title.Caption = 'NOMBRE Y APELLIDOS' Visible = True end item Expanded = False FieldName = 'fechabaja' Title.Caption = 'FECHA BAJA' Visible = True end item Expanded = False FieldName = 'jorreales' Title.Caption = 'JORN REALES' Visible = True end item Expanded = False FieldName = 'causa' Title.Caption = 'CAUSA DE LA EXTINCION' Visible = True end item Expanded = False FieldName = 'd1' Title.Alignment = taCenter Title.Caption = '1' Width = 20 Visible = True end item Expanded = False FieldName = 'd2' Title.Alignment = taCenter Title.Caption = '2' Width = 20 Visible = True end item Expanded = False FieldName = 'd3' Title.Alignment = taCenter Title.Caption = '3' Width = 20 Visible = True end item Expanded = False FieldName = 'd4' Title.Alignment = taCenter Title.Caption = '4' Width = 20 Visible = True end item Expanded = False FieldName = 'd5' Title.Alignment = taCenter Title.Caption = '5' Width = 20 Visible = True end item Expanded = False FieldName = 'd6' Title.Alignment = taCenter Title.Caption = '6' Width = 20 Visible = True end item Expanded = False FieldName = 'd7' Title.Alignment = taCenter Title.Caption = '7' Width = 20 Visible = True end item Expanded = False FieldName = 'd8' Title.Alignment = taCenter Title.Caption = '8' Width = 20 Visible = True end item Expanded = False FieldName = 'd9' Title.Alignment = taCenter Title.Caption = '9' Width = 20 Visible = True end item Expanded = False FieldName = 'd10' Title.Alignment = taCenter Title.Caption = '10' Width = 20 Visible = True end item Expanded = False FieldName = 'd11' Title.Alignment = taCenter Title.Caption = '11' Width = 20 Visible = True end item Expanded = False FieldName = 'd12' Title.Alignment = taCenter Title.Caption = '12' Width = 20 Visible = True end item Expanded = False FieldName = 'd13' Title.Alignment = taCenter Title.Caption = '13' Width = 20 Visible = True end item Expanded = False FieldName = 'd14' Title.Alignment = taCenter Title.Caption = '14' Width = 20 Visible = True end item Expanded = False FieldName = 'd15' Title.Alignment = taCenter Title.Caption = '15' Width = 20 Visible = True end item Expanded = False FieldName = 'd16' Title.Alignment = taCenter Title.Caption = '16' Width = 20 Visible = True end item Expanded = False FieldName = 'd17' Title.Alignment = taCenter Title.Caption = '17' Width = 20 Visible = True end item Expanded = False FieldName = 'd18' Title.Alignment = taCenter Title.Caption = '18' Width = 20 Visible = True end item Expanded = False FieldName = 'd19' Title.Alignment = taCenter Title.Caption = '19' Width = 20 Visible = True end item Expanded = False FieldName = 'd20' Title.Alignment = taCenter Title.Caption = '20' Width = 20 Visible = True end item Expanded = False FieldName = 'd21' Title.Alignment = taCenter Title.Caption = '21' Width = 20 Visible = True end item Expanded = False FieldName = 'd22' Title.Alignment = taCenter Title.Caption = '22' Width = 20 Visible = True end item Expanded = False FieldName = 'd23' Title.Alignment = taCenter Title.Caption = '23' Width = 20 Visible = True end item Expanded = False FieldName = 'd24' Title.Alignment = taCenter Title.Caption = '24' Width = 20 Visible = True end item Expanded = False FieldName = 'd25' Title.Alignment = taCenter Title.Caption = '25' Width = 20 Visible = True end item Expanded = False FieldName = 'd26' Title.Alignment = taCenter Title.Caption = '26' Width = 20 Visible = True end item Expanded = False FieldName = 'd27' Title.Alignment = taCenter Title.Caption = '27' Width = 20 Visible = True end item Expanded = False FieldName = 'd28' Title.Alignment = taCenter Title.Caption = '28' Width = 20 Visible = True end item Expanded = False FieldName = 'd29' Title.Alignment = taCenter Title.Caption = '29' Width = 20 Visible = True end item Expanded = False FieldName = 'd30' Title.Alignment = taCenter Title.Caption = '30' Width = 20 Visible = True end item Expanded = False FieldName = 'd31' Title.Alignment = taCenter Title.Caption = '31' Visible = False end> end object gridempleadosnacion: TDBGrid Left = 181 Top = 31 Width = 333 Height = 70 DataSource = dsqempleadosnacion TabOrder = 4 TitleFont.Charset = DEFAULT_CHARSET TitleFont.Color = clWindowText TitleFont.Height = -11 TitleFont.Name = 'Tahoma' TitleFont.Style = [] Visible = False Columns = < item Expanded = False FieldName = 'id' Title.Caption = 'ID' Visible = True end item Expanded = False FieldName = 'nif' Title.Caption = 'NIF/NIE' Visible = True end item Expanded = False FieldName = 'nombre' Title.Caption = 'NOMBRE' Visible = True end item Expanded = False FieldName = 'paisnac' Title.Caption = 'PAIS NACIMIENTO' Visible = True end item Expanded = False FieldName = 'nacionalidad' Title.Caption = 'NACIONALIDAD' Visible = True end item Expanded = False FieldName = 'num_taquilla' Title.Caption = 'Taquilla' Visible = True end> end end object Panel8: TPanel Left = 0 Top = 43 Width = 1008 Height = 169 Align = alTop TabOrder = 0 object Panel15: TPanel Left = 266 Top = 1 Width = 263 Height = 167 Align = alLeft Color = clGradientInactiveCaption ParentBackground = False TabOrder = 0 object imgfotoe: TImage Left = 137 Top = 37 Width = 120 Height = 120 Center = True Proportional = True Visible = False end object Label74: TLabel Left = 13 Top = 5 Width = 58 Height = 13 Caption = 'Fotograf'#237'a' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end object Image2: TImage Left = 12 Top = 37 Width = 120 Height = 120 Center = True Stretch = True OnDblClick = Image2DblClick end object Button2: TButton Left = 189 Top = 5 Width = 32 Height = 26 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ImageAlignment = iaCenter ImageIndex = 1 Images = BASE.listaiconos ParentFont = False TabOrder = 0 OnClick = Button2Click end object btEimagen: TButton Left = 77 Top = 5 Width = 106 Height = 26 Caption = 'Cargar imagen' TabOrder = 1 WordWrap = True OnClick = btEimagenClick end object panelfotoe: TPanel Left = 122 Top = 38 Width = 120 Height = 120 TabOrder = 2 Visible = False end object btdesactivarcamara: TButton Left = 108 Top = 62 Width = 46 Height = 25 Caption = 'btdesactivarcamara' TabOrder = 3 Visible = False OnClick = btdesactivarcamaraClick end object btactivarcamara: TButton Left = 24 Top = 93 Width = 92 Height = 36 Caption = 'btactivarcamara' TabOrder = 4 Visible = False OnClick = btactivarcamaraClick end object btEoKimagen: TButton Left = 227 Top = 5 Width = 32 Height = 26 ImageAlignment = iaCenter ImageIndex = 140 Images = BASE.listaiconos TabOrder = 5 Visible = False OnClick = btEoKimagenClick end end object Panel33: TPanel Left = 1 Top = 1 Width = 265 Height = 167 Align = alLeft TabOrder = 1 object Label4: TLabel Left = 5 Top = 28 Width = 113 Height = 13 Caption = 'Fecha alta en contrato:' FocusControl = DBEdit3 end object Label8: TLabel Left = 120 Top = 28 Width = 116 Height = 13 Caption = 'Fecha baja en contrato:' FocusControl = DBEdit7 end object Label29: TLabel Left = 4 Top = 8 Width = 33 Height = 13 Caption = 'Grupo:' end object Label75: TLabel Left = 6 Top = 94 Width = 155 Height = 13 Caption = 'Motivo de comienzo del contrato' FocusControl = DBEdit44 end object Label76: TLabel Left = 6 Top = 129 Width = 123 Height = 13 Caption = 'Motivo de fin del contrato' FocusControl = DBEdit45 end object Label77: TLabel Left = 5 Top = 61 Width = 100 Height = 13 Caption = 'Fecha incorporaci'#243'n:' FocusControl = DBEdit46 end object Label78: TLabel Left = 123 Top = 61 Width = 92 Height = 13 Caption = 'Fecha desconexi'#243'n' FocusControl = DBEdit47 end object DBEdit3: TDBEdit Left = 2 Top = 41 Width = 119 Height = 21 DataField = 'fecha_alta' DataSource = dsqemp_historico Enabled = False TabOrder = 0 end object DBEdit7: TDBEdit Left = 120 Top = 41 Width = 104 Height = 21 DataField = 'fecha_baja' DataSource = dsqemp_historico Enabled = False TabOrder = 1 end object DBCheckBox26: TDBCheckBox Left = 203 Top = 5 Width = 56 Height = 17 Alignment = taLeftJustify Caption = 'Activo:' DataField = 'activo' DataSource = dsqempleados Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False TabOrder = 2 ValueChecked = '1' ValueUnchecked = '0' end object listagrupos: TDBLookupComboBox Left = 43 Top = 5 Width = 132 Height = 21 DataField = 'grupo' DataSource = dsqempleados DropDownRows = 20 DropDownWidth = 300 KeyField = 'id' ListField = 'descripcion' ListSource = dsqgrupos TabOrder = 3 end object DBEdit44: TDBEdit Left = 2 Top = 108 Width = 258 Height = 21 DataField = 'motivo_alta' DataSource = dsqemp_historico Enabled = False TabOrder = 4 end object DBEdit45: TDBEdit Left = 1 Top = 144 Width = 258 Height = 21 DataField = 'motivo_baja' DataSource = dsqemp_historico Enabled = False TabOrder = 5 end object Button23: TButton Left = 227 Top = 41 Width = 32 Height = 25 Hint = 'Ver/Modificar periodos de contrataci'#243'n' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ImageAlignment = iaCenter ImageIndex = 2 Images = BASE.listaiconos ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 6 OnClick = Button23Click end object DBEdit46: TDBEdit Left = 2 Top = 74 Width = 119 Height = 21 DataField = 'fecha_incorporacion' DataSource = dsqemp_historico Enabled = False TabOrder = 7 end object DBEdit47: TDBEdit Left = 120 Top = 74 Width = 105 Height = 21 DataField = 'fecha_desconexion' DataSource = dsqemp_historico Enabled = False TabOrder = 8 end end object Panel34: TPanel Left = 529 Top = 1 Width = 424 Height = 167 Align = alLeft TabOrder = 2 object Panel35: TPanel Left = 1 Top = 1 Width = 422 Height = 165 Align = alClient TabOrder = 0 object Panel36: TPanel Left = 1 Top = 1 Width = 420 Height = 28 Align = alTop TabOrder = 1 object Label43: TLabel Left = 161 Top = 1 Width = 258 Height = 26 Align = alClient Caption = 'Documentaci'#243'n' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -16 Font.Name = 'Arial Black' Font.Style = [fsBold, fsItalic] ParentFont = False ExplicitWidth = 139 ExplicitHeight = 23 end object Button5: TButton Left = 65 Top = 1 Width = 32 Height = 26 Align = alLeft Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ImageAlignment = iaCenter ImageIndex = 1 Images = BASE.listaiconos ParentFont = False TabOrder = 1 OnClick = Button3Click end object Button15: TButton Left = 1 Top = 1 Width = 32 Height = 26 Align = alLeft Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ImageAlignment = iaCenter ImageIndex = 0 Images = BASE.listaiconos ParentFont = False TabOrder = 0 OnClick = Button15Click end object Button16: TButton Left = 97 Top = 1 Width = 32 Height = 26 Align = alLeft Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ImageAlignment = iaCenter ImageIndex = 140 Images = BASE.listaiconos ParentFont = False TabOrder = 2 OnClick = Button6Click end object Button17: TButton Left = 129 Top = 1 Width = 32 Height = 26 Align = alLeft Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ImageAlignment = iaCenter ImageIndex = 3 Images = BASE.listaiconos ParentFont = False TabOrder = 3 OnClick = Button7Click end object Button19: TButton Left = 33 Top = 1 Width = 32 Height = 26 Align = alLeft Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ImageAlignment = iaBottom ImageIndex = 2 Images = BASE.listaiconos ParentFont = False TabOrder = 4 OnClick = Button9Click end end object Panel37: TPanel Left = 1 Top = 29 Width = 420 Height = 135 Align = alClient TabOrder = 0 object DBGrid7: TDBGrid Left = 1 Top = 1 Width = 368 Height = 133 Align = alLeft DataSource = dsdocumentos TabOrder = 0 TitleFont.Charset = DEFAULT_CHARSET TitleFont.Color = clWindowText TitleFont.Height = -11 TitleFont.Name = 'Tahoma' TitleFont.Style = [] Columns = < item Expanded = False FieldName = 'fecha' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -9 Font.Name = 'Tahoma' Font.Style = [] ReadOnly = True Title.Caption = 'Fecha' Title.Font.Charset = DEFAULT_CHARSET Title.Font.Color = clWindowText Title.Font.Height = -9 Title.Font.Name = 'Tahoma' Title.Font.Style = [] Width = 52 Visible = True end item Expanded = False FieldName = 'descripcion' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -9 Font.Name = 'Tahoma' Font.Style = [] Title.Caption = 'Descripci'#243'n' Title.Font.Charset = DEFAULT_CHARSET Title.Font.Color = clWindowText Title.Font.Height = -9 Title.Font.Name = 'Tahoma' Title.Font.Style = [] Width = 282 Visible = True end> end object Memo2: TMemo Left = 22 Top = 16 Width = 500 Height = 65 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -8 Font.Name = 'Tahoma' Font.Style = [] Lines.Strings = ( 'Memo1') ParentFont = False TabOrder = 2 Visible = False end object Button21: TButton Left = 370 Top = 3 Width = 32 Height = 26 Hint = 'Descargar Documento' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ImageAlignment = iaBottom ImageIndex = 109 Images = BASE.listaiconos ParentFont = False TabOrder = 3 OnClick = Button11Click end object Button20: TButton Left = 370 Top = 35 Width = 32 Height = 26 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ImageAlignment = iaBottom ImageIndex = 94 Images = BASE.listaiconos ParentFont = False TabOrder = 1 OnClick = Button10Click end end end end end object Panel14: TPanel Left = 0 Top = 0 Width = 1008 Height = 43 Align = alTop TabOrder = 2 object btEcancelar: TButton Left = 241 Top = 1 Width = 60 Height = 41 Align = alLeft Caption = 'Cancelar' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ImageAlignment = iaBottom ImageIndex = 3 Images = BASE.listaiconos ParentFont = False TabOrder = 1 OnClick = btEcancelarClick end object btEmodificar: TButton Left = 121 Top = 1 Width = 60 Height = 41 Align = alLeft Caption = 'Modificar' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ImageAlignment = iaBottom ImageIndex = 2 Images = BASE.listaiconos ParentFont = False TabOrder = 2 OnClick = btEmodificarClick end object btEborrar: TButton Left = 61 Top = 1 Width = 60 Height = 41 Align = alLeft Caption = 'Borrar' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ImageAlignment = iaBottom ImageIndex = 1 Images = BASE.listaiconos ParentFont = False TabOrder = 3 OnClick = btEborrarClick end object btEnuevo: TButton Left = 1 Top = 1 Width = 60 Height = 41 Align = alLeft Caption = 'Nuevo' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ImageAlignment = iaBottom ImageIndex = 0 Images = BASE.listaiconos ParentFont = False TabOrder = 4 OnClick = btEnuevoClick end object btEguardar: TButton Left = 181 Top = 1 Width = 60 Height = 41 Align = alLeft Caption = 'Guardar' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ImageAlignment = iaBottom ImageIndex = 140 Images = BASE.listaiconos ParentFont = False TabOrder = 0 OnClick = btEguardarClick end object listaimpresion: TComboBox Left = 301 Top = 1 Width = 227 Height = 21 Align = alLeft DropDownCount = 20 TabOrder = 5 Text = 'Tarjeta' Items.Strings = ( 'Tarjeta' 'Ficha' 'Plantilla parte trabajo' 'Plantilla parte trabajo semanal' 'Plantilla parte almacen' 'Plantilla contrataci'#243'n' 'Plantilla extinci'#243'n' 'Plantilla jornadas' 'Plantilla ropa de trabajo' 'Plantilla ropa de trabajo(Excel)' 'Baja voluntaria' 'Baja Fin contrato' 'Baja Empleado Rezachado' 'Baja Despido Disciplinario' 'Renuncia a reconocimiento m'#233'dico' 'Listado Empleados Nacionalidad' 'Listado de asistencia' 'Llamamiento de personal' 'Plantilla de peonadas' 'Listado Empleados Formacion Tripartita(excel)') end object bteimprimir: TButton Left = 528 Top = 1 Width = 120 Height = 41 Align = alLeft Caption = 'Imprimir/Exportar' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ImageAlignment = iaBottom ImageIndex = 10 Images = BASE.listaiconos ParentFont = False TabOrder = 8 OnClick = bteimprimirClick end object btnEnviarDoc: TButton Left = 648 Top = 1 Width = 100 Height = 41 Align = alLeft Caption = 'Enviar...' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ImageAlignment = iaBottom ImageIndex = 22 Images = BASE.listaiconos ParentFont = False TabOrder = 6 OnClick = btnEnviarDocClick end object comboformulario: TDBLookupComboBox Left = 301 Top = 20 Width = 227 Height = 21 DropDownWidth = 300 KeyField = 'nombre' ListField = 'nombre' ListSource = dsqempresaformularios TabOrder = 7 end end end object Formacion: TTabSheet Caption = 'Planificaci'#243'n de la formaci'#243'n/Documentaci'#243'n' ImageIndex = 3 object Panel16: TPanel Left = 0 Top = 0 Width = 1008 Height = 290 Align = alTop TabOrder = 0 object Panel18: TPanel Left = 577 Top = 27 Width = 288 Height = 262 Align = alLeft TabOrder = 0 object Label57: TLabel Left = 1 Top = 1 Width = 286 Height = 23 Align = alTop Alignment = taCenter Caption = 'Higiene y Seguridad Alimentaria' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -16 Font.Name = 'Arial Black' Font.Style = [fsBold, fsItalic] ParentFont = False ExplicitWidth = 283 end object DBEdit10: TDBEdit Left = 175 Top = 100 Width = 99 Height = 21 DataField = 'fecha_carnetmanipulador' DataSource = dsqempleadosplanificacion TabOrder = 4 OnExit = DBEdit10Exit OnKeyUp = DBEdit10KeyUp end object DBCheckBox12: TDBCheckBox Left = 19 Top = 37 Width = 150 Height = 25 Alignment = taLeftJustify Caption = 'Buenas Pr'#225'cticas Higiene:' DataField = 'buenaspract_higiene' DataSource = dsqempleadosplanificacion Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False TabOrder = 0 ValueChecked = 'SI' ValueUnchecked = 'NO' WordWrap = True end object DBCheckBox13: TDBCheckBox Left = 19 Top = 67 Width = 150 Height = 25 Alignment = taLeftJustify Caption = 'Curso Sulfuroso:' DataField = 'curso_sulfuroso' DataSource = dsqempleadosplanificacion Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False TabOrder = 1 ValueChecked = 'SI' ValueUnchecked = 'NO' WordWrap = True end object DBCheckBox14: TDBCheckBox Left = 19 Top = 98 Width = 150 Height = 25 Alignment = taLeftJustify Caption = 'Manipulador Frutas y Hortalizas:' DataField = 'manipulador_frutas' DataSource = dsqempleadosplanificacion Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False TabOrder = 3 ValueChecked = 'SI' ValueUnchecked = 'NO' WordWrap = True end object DBCheckBox15: TDBCheckBox Left = 19 Top = 132 Width = 150 Height = 25 Alignment = taLeftJustify Caption = 'Mantenimiento:' DataField = 'mantenimiento' DataSource = dsqempleadosplanificacion Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False TabOrder = 5 ValueChecked = 'SI' ValueUnchecked = 'NO' WordWrap = True end object DBCheckBox16: TDBCheckBox Left = 19 Top = 163 Width = 150 Height = 25 Alignment = taLeftJustify Caption = 'Limpieza:' DataField = 'limpieza' DataSource = dsqempleadosplanificacion Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False TabOrder = 6 ValueChecked = 'SI' ValueUnchecked = 'NO' WordWrap = True end object DBEdit11: TDBEdit Left = 175 Top = 69 Width = 99 Height = 21 DataField = 'fecha_cursosulfuroso' DataSource = dsqempleadosplanificacion TabOrder = 2 OnExit = DBEdit10Exit OnKeyUp = DBEdit10KeyUp end end object Panel19: TPanel Left = 289 Top = 27 Width = 288 Height = 262 Align = alLeft TabOrder = 1 object Label16: TLabel Left = 28 Top = 30 Width = 79 Height = 26 Caption = 'Registro Test COVID-19' FocusControl = DBEdit13 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False WordWrap = True end object Label55: TLabel Left = 1 Top = 1 Width = 286 Height = 23 Align = alTop Alignment = taCenter Caption = 'Formaci'#243'n PRL' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -16 Font.Name = 'Arial Black' Font.Style = [fsBold, fsItalic] ParentFont = False ExplicitWidth = 134 end object DBEdit13: TDBEdit Left = 139 Top = 30 Width = 109 Height = 21 DataField = 'fecha_testcovid19' DataSource = dsqempleadosplanificacion TabOrder = 0 OnExit = DBEdit13Exit OnKeyUp = DBEdit13KeyUp end object DBCheckBox8: TDBCheckBox Left = 27 Top = 84 Width = 150 Height = 25 Alignment = taLeftJustify Caption = 'Test Agricultura Ficha Informativa:' DataField = 'test_agricultura' DataSource = dsqempleadosplanificacion Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False TabOrder = 1 ValueChecked = 'SI' ValueUnchecked = 'NO' WordWrap = True end object DBCheckBox9: TDBCheckBox Left = 27 Top = 114 Width = 150 Height = 25 Alignment = taLeftJustify Caption = 'Formaci'#243'n Recepci'#243'n Documentaci'#243'n:' DataField = 'formacionrecepdoc' DataSource = dsqempleadosplanificacion Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False TabOrder = 2 ValueChecked = 'SI' ValueUnchecked = 'NO' WordWrap = True end object DBCheckBox10: TDBCheckBox Left = 27 Top = 145 Width = 150 Height = 25 Alignment = taLeftJustify Caption = 'Manejo Seguro Maquinaria:' DataField = 'manejo_maquinaria' DataSource = dsqempleadosplanificacion Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False TabOrder = 3 ValueChecked = 'SI' ValueUnchecked = 'NO' WordWrap = True end object DBCheckBox11: TDBCheckBox Left = 27 Top = 179 Width = 150 Height = 25 Alignment = taLeftJustify Caption = 'Primeros Auxilios:' DataField = 'primeros_auxilios' DataSource = dsqempleadosplanificacion Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False TabOrder = 4 ValueChecked = 'SI' ValueUnchecked = 'NO' WordWrap = True end end object Panel20: TPanel Left = 1 Top = 27 Width = 288 Height = 262 Align = alLeft TabOrder = 2 object Label23: TLabel Left = 66 Top = 24 Width = 71 Height = 13 Caption = 'Localizaci'#243'n:' FocusControl = DBEdit20 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end object Label24: TLabel Left = 7 Top = 36 Width = 130 Height = 26 Alignment = taRightJustify Caption = 'Fecha Reconocimiento M'#233'dico:' FocusControl = DBEdit21 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False WordWrap = True end object Label56: TLabel Left = 1 Top = 1 Width = 286 Height = 23 Align = alTop Alignment = taCenter Caption = 'Formaci'#243'n' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -16 Font.Name = 'Arial Black' Font.Style = [fsBold, fsItalic] ParentFont = False ExplicitWidth = 94 end object Label46: TLabel Left = 0 Top = 58 Width = 137 Height = 26 Alignment = taRightJustify Caption = 'Fecha Renuncia Reconocimiento M'#233'dico:' FocusControl = DBEdit21 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False WordWrap = True end object Label58: TLabel Left = 30 Top = 80 Width = 107 Height = 26 Alignment = taRightJustify Caption = 'Fecha Vto Permiso Trabajo:' FocusControl = DBEdit21 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False WordWrap = True end object Label59: TLabel Left = 31 Top = 107 Width = 106 Height = 13 Caption = 'Puesto de Trabajo:' FocusControl = DBEdit20 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end object Label39: TLabel Left = 5 Top = 233 Width = 86 Height = 13 Caption = 'Observaciones:' FocusControl = DBEdit20 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end object Label61: TLabel Left = 145 Top = 129 Width = 61 Height = 13 Caption = 'Caducidad:' FocusControl = DBEdit20 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end object Label62: TLabel Left = 239 Top = 129 Width = 27 Height = 13 Caption = 'Tipo:' FocusControl = DBEdit20 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end object DBEdit20: TDBEdit Left = 143 Top = 22 Width = 109 Height = 21 DataField = 'localizacion' DataSource = dsqempleadosplanificacion TabOrder = 0 end object DBEdit21: TDBEdit Left = 143 Top = 42 Width = 109 Height = 21 DataField = 'fecha_recmedico' DataSource = dsqempleadosplanificacion TabOrder = 1 OnExit = DBEdit21Exit OnKeyUp = DBEdit21KeyUp end object DBEdit26: TDBEdit Left = 143 Top = 62 Width = 109 Height = 21 DataField = 'fecha_ren_recmedico' DataSource = dsqempleadosplanificacion TabOrder = 2 OnExit = DBEdit26Exit OnKeyUp = DBEdit26KeyUp end object DBCheckBox5: TDBCheckBox Left = 2 Top = 170 Width = 137 Height = 25 Alignment = taLeftJustify Caption = 'Carn'#233' aplicador Fitos. B'#225'sico:' DataField = 'fitosanitario_basico' DataSource = dsqempleadosplanificacion Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False TabOrder = 8 ValueChecked = 'SI' ValueUnchecked = 'NO' WordWrap = True end object DBCheckBox6: TDBCheckBox Left = 2 Top = 196 Width = 137 Height = 26 Alignment = taLeftJustify Caption = 'Carn'#233' aplicador Fitos. Cualificado:' DataField = 'fitosanitario_cualificado' DataSource = dsqempleadosplanificacion Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False TabOrder = 9 ValueChecked = 'SI' ValueUnchecked = 'NO' WordWrap = True end object DBCheckBox7: TDBCheckBox Left = 157 Top = 170 Width = 124 Height = 25 Alignment = taLeftJustify Caption = 'Formaci'#243'n Riego:' DataField = 'formacion_riego' DataSource = dsqempleadosplanificacion Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False TabOrder = 10 ValueChecked = 'SI' ValueUnchecked = 'NO' WordWrap = True end object DBEdit40: TDBEdit Left = 143 Top = 82 Width = 109 Height = 21 DataField = 'vto_permisotrabajo' DataSource = dsqempleadosplanificacion TabOrder = 3 OnExit = DBEdit40Exit OnKeyUp = DBEdit40KeyUp end object DBLookupComboBox2: TDBLookupComboBox Left = 143 Top = 102 Width = 109 Height = 21 DataField = 'puesto' DataSource = dsqempleadosplanificacion DropDownWidth = 300 KeyField = 'id' ListField = 'descripcion' ListSource = dsqpuestostrabajo TabOrder = 4 end object DBMemo2: TDBMemo Left = 97 Top = 228 Width = 185 Height = 32 DataField = 'observaciones' DataSource = dsqempleadosplanificacion TabOrder = 11 end object DBCheckBox18: TDBCheckBox Left = 2 Top = 145 Width = 137 Height = 25 Alignment = taLeftJustify Caption = 'Carnet de conducir:' DataField = 'carnet_conducir' DataSource = dsqempleadosplanificacion Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False TabOrder = 5 ValueChecked = 'SI' ValueUnchecked = 'NO' WordWrap = True end object DBEdit12: TDBEdit Left = 143 Top = 146 Width = 90 Height = 21 DataField = 'fecha_caducidadconducir' DataSource = dsqempleadosplanificacion TabOrder = 6 OnExit = DBEdit10Exit OnKeyUp = DBEdit10KeyUp end object DBEdit14: TDBEdit Left = 239 Top = 146 Width = 39 Height = 21 DataField = 'tipo_carnetconducir' DataSource = dsqempleadosplanificacion TabOrder = 7 OnExit = DBEdit10Exit OnKeyUp = DBEdit10KeyUp end end object Panel25: TPanel Left = 1 Top = 1 Width = 1006 Height = 26 Align = alTop TabOrder = 3 object DBText3: TDBText Left = 103 Top = 3 Width = 530 Height = 17 DataField = 'nombre' DataSource = dsqempleados Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -16 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end object btplaceptar: TButton Left = 33 Top = 1 Width = 32 Height = 24 Align = alLeft Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ImageAlignment = iaCenter ImageIndex = 140 Images = BASE.listaiconos ParentFont = False TabOrder = 0 OnClick = btplaceptarClick end object btplcancelar: TButton Left = 65 Top = 1 Width = 32 Height = 24 Align = alLeft Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ImageAlignment = iaCenter ImageIndex = 3 Images = BASE.listaiconos ParentFont = False TabOrder = 1 OnClick = btplcancelarClick end object btplmodificar: TButton Left = 1 Top = 1 Width = 32 Height = 24 Align = alLeft Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ImageAlignment = iaBottom ImageIndex = 2 Images = BASE.listaiconos ParentFont = False TabOrder = 2 OnClick = btplmodificarClick end end end object Panel6: TPanel Left = 0 Top = 290 Width = 1008 Height = 411 Align = alClient TabOrder = 1 object Panel21: TPanel Left = 1 Top = 1 Width = 1006 Height = 409 Align = alClient TabOrder = 0 object Panel22: TPanel Left = 1 Top = 1 Width = 1004 Height = 28 Align = alTop TabOrder = 1 object Label14: TLabel Left = 161 Top = 1 Width = 842 Height = 26 Align = alClient Caption = 'Documentaci'#243'n' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -16 Font.Name = 'Arial Black' Font.Style = [fsBold, fsItalic] ParentFont = False ExplicitWidth = 139 ExplicitHeight = 23 end object Button3: TButton Left = 65 Top = 1 Width = 32 Height = 26 Align = alLeft Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ImageAlignment = iaCenter ImageIndex = 1 Images = BASE.listaiconos ParentFont = False TabOrder = 1 OnClick = Button3Click end object Button4: TButton Left = 1 Top = 1 Width = 32 Height = 26 Align = alLeft Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ImageAlignment = iaCenter ImageIndex = 0 Images = BASE.listaiconos ParentFont = False TabOrder = 0 OnClick = Button15Click end object Button6: TButton Left = 97 Top = 1 Width = 32 Height = 26 Align = alLeft Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ImageAlignment = iaCenter ImageIndex = 140 Images = BASE.listaiconos ParentFont = False TabOrder = 2 OnClick = Button6Click end object Button7: TButton Left = 129 Top = 1 Width = 32 Height = 26 Align = alLeft Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ImageAlignment = iaCenter ImageIndex = 3 Images = BASE.listaiconos ParentFont = False TabOrder = 3 OnClick = Button7Click end object Button9: TButton Left = 33 Top = 1 Width = 32 Height = 26 Align = alLeft Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ImageAlignment = iaCenter ImageIndex = 2 Images = BASE.listaiconos ParentFont = False TabOrder = 4 OnClick = Button9Click end end object Panel24: TPanel Left = 1 Top = 29 Width = 1004 Height = 379 Align = alClient TabOrder = 0 object imgfoto: TImage Left = 370 Top = 33 Width = 119 Height = 126 Center = True Proportional = True Stretch = True Visible = False end object Label65: TLabel Left = 516 Top = 6 Width = 142 Height = 13 Caption = 'Firma de documentaci'#243'n:' FocusControl = DBEdit20 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end object tfirmadocs: TImage Left = 516 Top = 88 Width = 133 Height = 68 Center = True Proportional = True end object DBGrid4: TDBGrid Left = 1 Top = 1 Width = 363 Height = 377 Align = alLeft DataSource = dsdocumentos TabOrder = 0 TitleFont.Charset = DEFAULT_CHARSET TitleFont.Color = clWindowText TitleFont.Height = -11 TitleFont.Name = 'Tahoma' TitleFont.Style = [] Columns = < item Expanded = False FieldName = 'fecha' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -9 Font.Name = 'Tahoma' Font.Style = [] ReadOnly = True Title.Caption = 'Fecha' Title.Font.Charset = DEFAULT_CHARSET Title.Font.Color = clWindowText Title.Font.Height = -9 Title.Font.Name = 'Tahoma' Title.Font.Style = [] Width = 47 Visible = True end item Expanded = False FieldName = 'descripcion' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -9 Font.Name = 'Tahoma' Font.Style = [] Title.Caption = 'Descripci'#243'n' Title.Font.Charset = DEFAULT_CHARSET Title.Font.Color = clWindowText Title.Font.Height = -9 Title.Font.Name = 'Tahoma' Title.Font.Style = [] Width = 282 Visible = True end> end object Button10: TButton Left = 418 Top = 3 Width = 32 Height = 26 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ImageAlignment = iaBottom ImageIndex = 94 Images = BASE.listaiconos ParentFont = False TabOrder = 1 OnClick = Button10Click end object Memo1: TMemo Left = 38 Top = 83 Width = 500 Height = 65 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -8 Font.Name = 'Tahoma' Font.Style = [] Lines.Strings = ( 'Memo1') ParentFont = False TabOrder = 2 Visible = False end object Button11: TButton Left = 380 Top = 3 Width = 32 Height = 26 Hint = 'Descargar Documento' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ImageAlignment = iaBottom ImageIndex = 109 Images = BASE.listaiconos ParentFont = False TabOrder = 3 OnClick = Button11Click end object listadocsfirma: TComboBox Left = 516 Top = 25 Width = 227 Height = 21 DropDownCount = 15 TabOrder = 4 Text = 'Baja voluntaria' Items.Strings = ( 'Baja voluntaria' 'Baja Fin contrato' 'Baja Empleado Rezachado' 'Baja Despido Disciplinario' 'Renuncia a reconocimiento m'#233'dico' 'Acuerdo de confidencialidad') end object Button18: TButton Left = 516 Top = 50 Width = 108 Height = 32 Caption = 'Firmar' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ImageAlignment = iaRight ImageIndex = 140 Images = BASE.listaiconos ParentFont = False TabOrder = 5 OnClick = Button18Click end end end end end object Tabentregas: TTabSheet Caption = 'Entregas de material' ImageIndex = 4 object Panel27: TPanel Left = 0 Top = 0 Width = 1008 Height = 40 Align = alTop TabOrder = 0 object DBText4: TDBText Left = 361 Top = 1 Width = 530 Height = 38 Align = alLeft DataField = 'nombre' DataSource = dsqempleados Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -16 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False ExplicitLeft = 367 ExplicitTop = 17 ExplicitHeight = 17 end object btEMcancelar: TButton Left = 241 Top = 1 Width = 60 Height = 38 Align = alLeft Caption = 'Cancelar' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ImageAlignment = iaBottom ImageIndex = 3 Images = BASE.listaiconos ParentFont = False TabOrder = 1 OnClick = btEMcancelarClick end object btEMmodificar: TButton Left = 121 Top = 1 Width = 60 Height = 38 Align = alLeft Caption = 'Modificar' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ImageAlignment = iaBottom ImageIndex = 2 Images = BASE.listaiconos ParentFont = False TabOrder = 2 OnClick = btEMmodificarClick end object btEMborrar: TButton Left = 61 Top = 1 Width = 60 Height = 38 Align = alLeft Caption = 'Borrar' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ImageAlignment = iaBottom ImageIndex = 1 Images = BASE.listaiconos ParentFont = False TabOrder = 3 OnClick = btEMborrarClick end object btEMnuevo: TButton Left = 1 Top = 1 Width = 60 Height = 38 Align = alLeft Caption = 'Nuevo' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ImageAlignment = iaBottom ImageIndex = 0 Images = BASE.listaiconos ParentFont = False TabOrder = 4 OnClick = btEMnuevoClick end object btEMaceptar: TButton Left = 181 Top = 1 Width = 60 Height = 38 Align = alLeft Caption = 'Guardar' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ImageAlignment = iaBottom ImageIndex = 140 Images = BASE.listaiconos ParentFont = False TabOrder = 0 OnClick = btEMaceptarClick end object btEMimprimir: TButton Left = 301 Top = 1 Width = 60 Height = 38 Align = alLeft Caption = 'Imprimir' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ImageAlignment = iaBottom ImageIndex = 10 Images = BASE.listaiconos ParentFont = False TabOrder = 5 OnClick = btEMimprimirClick end end object Panel28: TPanel Left = 0 Top = 40 Width = 1008 Height = 233 Align = alTop TabOrder = 1 object DBGrid5: TDBGrid Left = 313 Top = 26 Width = 535 Height = 206 Align = alLeft DataSource = dsqentregasmaterial Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -9 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False TabOrder = 0 TitleFont.Charset = DEFAULT_CHARSET TitleFont.Color = clWindowText TitleFont.Height = -11 TitleFont.Name = 'Tahoma' TitleFont.Style = [] OnCellClick = DBGrid5CellClick Columns = < item Expanded = False FieldName = 'fecha' Title.Caption = 'Fecha' Visible = True end item Expanded = False FieldName = 'concepto' Title.Caption = 'Concepto' Width = 393 Visible = True end item Alignment = taCenter Expanded = False FieldName = 'cantidad' Title.Caption = 'Cantidad' Width = 49 Visible = True end> end object Panel30: TPanel Left = 1 Top = 1 Width = 1006 Height = 25 Align = alTop TabOrder = 1 object Label18: TLabel Left = 4 Top = 5 Width = 36 Height = 13 Caption = 'Fecha:' FocusControl = DBEdit8 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end object Label20: TLabel Left = 130 Top = 4 Width = 56 Height = 13 Caption = 'Concepto:' FocusControl = DBEdit8 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end object Label60: TLabel Left = 514 Top = 6 Width = 53 Height = 13 Caption = 'Cantidad:' FocusControl = DBEdit8 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end object fentregamaterial: TDateTimePicker Left = 44 Top = 2 Width = 80 Height = 21 Date = 44608.458009467590000000 Time = 44608.458009467590000000 TabOrder = 0 end object Edit1: TEdit Left = 192 Top = 3 Width = 321 Height = 21 CharCase = ecUpperCase TabOrder = 1 end object Edit2: TEdit Left = 573 Top = 3 Width = 30 Height = 21 TabOrder = 2 end end object DBGrid8: TDBGrid Left = 1 Top = 26 Width = 280 Height = 206 Align = alLeft DataSource = dsqepis Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -9 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False ReadOnly = True TabOrder = 2 TitleFont.Charset = DEFAULT_CHARSET TitleFont.Color = clWindowText TitleFont.Height = -11 TitleFont.Name = 'Tahoma' TitleFont.Style = [] Columns = < item Expanded = False FieldName = 'id' Title.Caption = 'Id' Visible = True end item Expanded = False FieldName = 'descripcion' Title.Caption = 'Descripci'#243'n' Width = 189 Visible = True end> end object Panel38: TPanel Left = 281 Top = 26 Width = 32 Height = 206 Align = alLeft TabOrder = 3 object Button24: TButton Left = 1 Top = 1 Width = 30 Height = 24 Align = alTop Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ImageAlignment = iaBottom ImageIndex = 0 Images = BASE.listaiconos ParentFont = False TabOrder = 0 OnClick = Button24Click end object Button25: TButton Left = 1 Top = 25 Width = 30 Height = 24 Align = alTop Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ImageAlignment = iaBottom ImageIndex = 1 Images = BASE.listaiconos ParentFont = False TabOrder = 1 OnClick = Button25Click end end end object Panel29: TPanel Left = 0 Top = 273 Width = 1008 Height = 428 Align = alClient TabOrder = 2 object DBGrid6: TDBGrid Left = 1 Top = 29 Width = 1006 Height = 398 Align = alClient DataSource = dsqlistadoentregasmaterial Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -9 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False ReadOnly = True TabOrder = 0 TitleFont.Charset = DEFAULT_CHARSET TitleFont.Color = clWindowText TitleFont.Height = -11 TitleFont.Name = 'Tahoma' TitleFont.Style = [] Columns = < item Expanded = False FieldName = 'idt' Title.Caption = 'Id' Title.Font.Charset = DEFAULT_CHARSET Title.Font.Color = clWindowText Title.Font.Height = -9 Title.Font.Name = 'Tahoma' Title.Font.Style = [] Width = 22 Visible = True end item Expanded = False FieldName = 'nombre' Title.Caption = 'Nombre' Title.Font.Charset = DEFAULT_CHARSET Title.Font.Color = clWindowText Title.Font.Height = -9 Title.Font.Name = 'Tahoma' Title.Font.Style = [] Width = 210 Visible = True end item Expanded = False FieldName = 'fecha' Title.Caption = 'Fecha' Title.Font.Charset = DEFAULT_CHARSET Title.Font.Color = clWindowText Title.Font.Height = -9 Title.Font.Name = 'Tahoma' Title.Font.Style = [] Visible = True end item Expanded = False FieldName = 'concepto' Title.Caption = 'Descripci'#243'n' Title.Font.Charset = DEFAULT_CHARSET Title.Font.Color = clWindowText Title.Font.Height = -9 Title.Font.Name = 'Tahoma' Title.Font.Style = [] Width = 300 Visible = True end item Alignment = taCenter Expanded = False FieldName = 'cantidad' Title.Caption = 'Cantidad' Title.Font.Charset = DEFAULT_CHARSET Title.Font.Color = clWindowText Title.Font.Height = -9 Title.Font.Name = 'Tahoma' Title.Font.Style = [] Visible = True end> end object Panel31: TPanel Left = 1 Top = 1 Width = 1006 Height = 28 Align = alTop TabOrder = 1 object Label17: TLabel Left = 65 Top = 1 Width = 940 Height = 26 Align = alClient Alignment = taCenter Caption = 'Entregas de Material a los empleados' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -16 Font.Name = 'Arial Black' Font.Style = [fsBold, fsItalic] ParentFont = False ExplicitWidth = 333 ExplicitHeight = 23 end object Button8: TButton Left = 33 Top = 1 Width = 32 Height = 26 Align = alLeft Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ImageAlignment = iaCenter ImageIndex = 11 Images = BASE.listaiconos ParentFont = False TabOrder = 0 OnClick = Button8Click end object Button13: TButton Left = 1 Top = 1 Width = 32 Height = 26 Align = alLeft Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ImageAlignment = iaCenter ImageIndex = 10 Images = BASE.listaiconos ParentFont = False TabOrder = 1 end end end end object TabJornales: TTabSheet Caption = 'Partes de trabajo' ImageIndex = 1 object Panel5: TPanel Left = 0 Top = 179 Width = 1008 Height = 414 Align = alTop TabOrder = 1 object DBGrid2: TDBGrid Left = 1 Top = 1 Width = 656 Height = 412 Align = alLeft DataSource = dsqjornales ReadOnly = True TabOrder = 0 TitleFont.Charset = DEFAULT_CHARSET TitleFont.Color = clWindowText TitleFont.Height = -11 TitleFont.Name = 'Tahoma' TitleFont.Style = [] OnCellClick = DBGrid2CellClick OnDrawColumnCell = DBGrid2DrawColumnCell Columns = < item Expanded = False FieldName = 'id' Title.Caption = 'Entrada' Width = 45 Visible = True end item Expanded = False FieldName = 'fecha' Title.Caption = 'Fecha' Visible = True end item Expanded = False FieldName = 'parcela' Title.Caption = 'Parcela' Width = 133 Visible = True end item Expanded = False FieldName = 'typework' Title.Caption = 'Tarea' Width = 65 Visible = True end item Expanded = False FieldName = 'articulo' Title.Caption = 'Tipo/Hora' Visible = True end item Expanded = False FieldName = 'qhoras' Title.Caption = 'Horas' Visible = True end item Expanded = False FieldName = 'precio' Title.Caption = 'Precio' Visible = True end item Expanded = False FieldName = 'total' Title.Caption = 'Importe' Width = 55 Visible = True end item Expanded = False FieldName = 'estado' Title.Caption = 'Estado' Width = 58 Visible = True end> end end object Panel4: TPanel Left = 0 Top = 89 Width = 1008 Height = 90 Align = alTop TabOrder = 2 object Label47: TLabel Left = 2 Top = 44 Width = 29 Height = 13 Caption = 'Fecha' end object Label48: TLabel Left = 103 Top = 46 Width = 35 Height = 13 Caption = 'Parcela' end object Label49: TLabel Left = 239 Top = 46 Width = 28 Height = 13 Caption = 'Tarea' end object Label50: TLabel Left = 368 Top = 46 Width = 46 Height = 13 Caption = 'Tipo Hora' end object Label51: TLabel Left = 498 Top = 46 Width = 28 Height = 13 Caption = 'Horas' end object Label52: TLabel Left = 559 Top = 46 Width = 29 Height = 13 Caption = 'Precio' end object tfechajornal: TDateTimePicker Left = 2 Top = 59 Width = 95 Height = 21 Date = 42506.449789363430000000 Time = 42506.449789363430000000 Enabled = False TabOrder = 0 end object lparcela: TDBLookupComboBox Left = 103 Top = 59 Width = 130 Height = 21 DropDownRows = 20 DropDownWidth = 500 Enabled = False KeyField = 'codpar' ListField = 'codpar;nombre' ListFieldIndex = 2 ListSource = dsqparcelas TabOrder = 2 end object ltrabajo: TDBLookupComboBox Left = 239 Top = 59 Width = 123 Height = 21 DropDownRows = 20 DropDownWidth = 600 Enabled = False KeyField = 'id' ListField = 'id;nombre' ListFieldIndex = 2 ListSource = dsqtareas TabOrder = 3 end object ltipohora: TDBLookupComboBox Left = 368 Top = 59 Width = 124 Height = 21 DropDownRows = 20 DropDownWidth = 600 Enabled = False KeyField = 'codart' ListField = 'codart;descrip' ListFieldIndex = 2 ListSource = dsqtipohora TabOrder = 4 OnCloseUp = ltipohoraCloseUp end object thoras: TEdit Left = 498 Top = 59 Width = 55 Height = 21 Alignment = taRightJustify Enabled = False TabOrder = 1 end object lprecio: TEdit Left = 559 Top = 59 Width = 55 Height = 21 Alignment = taRightJustify Enabled = False TabOrder = 5 end object Panel26: TPanel Left = 1 Top = 1 Width = 1006 Height = 40 Align = alTop TabOrder = 6 object btptcancelar: TButton Left = 241 Top = 1 Width = 60 Height = 38 Align = alLeft Caption = 'Cancelar' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ImageAlignment = iaBottom ImageIndex = 3 Images = BASE.listaiconos ParentFont = False TabOrder = 1 OnClick = btptcancelarClick end object btptmodificar: TButton Left = 61 Top = 1 Width = 60 Height = 38 Align = alLeft Caption = 'Modificar' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ImageAlignment = iaBottom ImageIndex = 2 Images = BASE.listaiconos ParentFont = False TabOrder = 2 OnClick = btptmodificarClick end object btptborrar: TButton Left = 121 Top = 1 Width = 60 Height = 38 Align = alLeft Caption = 'Borrar' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ImageAlignment = iaBottom ImageIndex = 1 Images = BASE.listaiconos ParentFont = False TabOrder = 3 OnClick = btptborrarClick end object btptnuevo: TButton Left = 1 Top = 1 Width = 60 Height = 38 Align = alLeft Caption = 'Nuevo' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ImageAlignment = iaBottom ImageIndex = 0 Images = BASE.listaiconos ParentFont = False TabOrder = 4 OnClick = btptnuevoClick end object btptguardar: TButton Left = 181 Top = 1 Width = 60 Height = 38 Align = alLeft Caption = 'Guardar' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ImageAlignment = iaBottom ImageIndex = 140 Images = BASE.listaiconos ParentFont = False TabOrder = 0 OnClick = btptguardarClick end object Button14: TButton Left = 301 Top = 1 Width = 60 Height = 38 Align = alLeft Caption = 'Imprimir' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ImageAlignment = iaBottom ImageIndex = 10 Images = BASE.listaiconos ParentFont = False TabOrder = 5 OnClick = Button14Click end end end object Panel13: TPanel Left = 0 Top = 593 Width = 1008 Height = 108 Align = alClient TabOrder = 3 object Label53: TLabel Left = 2 Top = 8 Width = 71 Height = 13 Caption = 'Observaciones' end object Shape3: TShape Left = 14 Top = 31 Width = 19 Height = 19 Brush.Color = 11184895 Pen.Color = 11184895 end object Label67: TLabel Left = 38 Top = 34 Width = 84 Height = 13 Caption = 'SIN COMPROBAR' end object Label70: TLabel Left = 153 Top = 34 Width = 72 Height = 13 Caption = 'COMPROBADO' end object Shape6: TShape Left = 127 Top = 31 Width = 19 Height = 19 Brush.Color = 12189695 Pen.Color = 12189695 end object Label71: TLabel Left = 398 Top = 34 Width = 42 Height = 13 Caption = 'PAGADO' end object Shape7: TShape Left = 372 Top = 31 Width = 19 Height = 19 Brush.Color = 13106090 Pen.Color = 13106090 end object Label72: TLabel Left = 275 Top = 34 Width = 55 Height = 13 Caption = 'VALORADO' end object Shape8: TShape Left = 249 Top = 31 Width = 19 Height = 19 Brush.Color = 16777147 Pen.Color = 16777147 end object DBEdit39: TDBEdit Left = 79 Top = 6 Width = 522 Height = 21 DataField = 'origen' DataSource = dsqjornales Enabled = False TabOrder = 0 end end object Panel3: TPanel Left = 0 Top = 0 Width = 1008 Height = 89 Align = alTop TabOrder = 0 object Label9: TLabel Left = 2 Top = 23 Width = 42 Height = 13 Caption = 'FILTROS' end object Label37: TLabel Left = 75 Top = 25 Width = 22 Height = 13 Caption = 'A'#209'O' end object Label38: TLabel Left = 77 Top = 48 Width = 20 Height = 13 Caption = 'MES' end object DBText1: TDBText Left = 2 Top = 2 Width = 479 Height = 17 DataField = 'nombre' DataSource = dsqlistaempleados Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -16 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end object Tanyo: TComboBox Left = 103 Top = 25 Width = 92 Height = 21 DropDownCount = 15 TabOrder = 0 Text = 'Cualquiera' OnChange = TanyoChange Items.Strings = ( 'Cualquiera' '2015' '2016' '2017' '2018' '2019' '2020' '2021' '2022' '2023' '2024' '2025' '2026' '2027' '2028' '2029' '2030' '2031' '2032' '2033' '2034' '2035') end object TMES: TComboBox Left = 103 Top = 44 Width = 92 Height = 21 DropDownCount = 15 ItemIndex = 0 TabOrder = 1 Text = 'Cualquiera' OnChange = TanyoChange Items.Strings = ( 'Cualquiera' 'ENERO' 'FEBRERO' 'MARZO' 'ABRIL' 'MAYO' 'JUNIO' 'JULIO' 'AGOSTO' 'SEPTIEMBRE' 'OCTUBRE' 'NOVIEMBRE' 'DICIEMBRE' '') end end end object TabAnticipos: TTabSheet Caption = 'Anticipos/Indemnizaciones/Penalizaciones' ImageIndex = 2 object Panel12: TPanel Left = 0 Top = 180 Width = 1008 Height = 456 Align = alClient Caption = 'Panel5' TabOrder = 0 object DBGrid3: TDBGrid Left = 1 Top = 1 Width = 1006 Height = 454 Align = alClient DataSource = dsqanticipos TabOrder = 0 TitleFont.Charset = DEFAULT_CHARSET TitleFont.Color = clWindowText TitleFont.Height = -11 TitleFont.Name = 'Tahoma' TitleFont.Style = [] Columns = < item Expanded = False FieldName = 'id' Width = 44 Visible = True end item Expanded = False FieldName = 'fecha' Visible = True end item Expanded = False FieldName = 'importe' Title.Caption = 'Anticipo' Width = 45 Visible = True end item Expanded = False FieldName = 'indemnizacion' Title.Caption = 'Indemn.' Width = 45 Visible = True end item Expanded = False FieldName = 'penalizacion' Title.Caption = 'Penaliza.' Width = 45 Visible = True end item Expanded = False FieldName = 'embargo' Title.Caption = 'Embargos' Visible = True end item Expanded = False FieldName = 'observaciones' Width = 300 Visible = True end item Expanded = False FieldName = 'estado' Visible = True end> end end object Panel11: TPanel Left = 0 Top = 84 Width = 1008 Height = 96 Align = alTop TabOrder = 1 object Panel163: TPanel Left = 1 Top = 1 Width = 1006 Height = 94 Align = alClient TabOrder = 0 object Label171: TLabel Left = 104 Top = 53 Width = 24 Height = 13 Caption = 'TIPO' end object Label138: TLabel Left = 301 Top = 53 Width = 84 Height = 13 Caption = 'OBSERVACIONES' end object Label45: TLabel Left = 232 Top = 53 Width = 45 Height = 13 Caption = 'IMPORTE' end object Label44: TLabel Left = 2 Top = 53 Width = 33 Height = 13 Caption = 'FECHA' end object limporteanticipo: TEdit Left = 232 Top = 68 Width = 63 Height = 21 Alignment = taRightJustify TabOrder = 2 end object lopciones: TComboBox Left = 104 Top = 68 Width = 111 Height = 21 ItemIndex = 0 TabOrder = 1 Text = 'ANTICIPO' Items.Strings = ( 'ANTICIPO' 'INDEMNIZACION' 'PENALIZACION' 'EMBARGOS') end object lobservaciones: TEdit Left = 301 Top = 68 Width = 316 Height = 21 CharCase = ecUpperCase TabOrder = 3 end object fechaanticipo: TDateTimePicker Left = 3 Top = 68 Width = 95 Height = 21 Date = 44608.449789363430000000 Time = 44608.449789363430000000 TabOrder = 0 end object Panel32: TPanel Left = 1 Top = 1 Width = 1004 Height = 40 Align = alTop TabOrder = 4 object bteacancelar: TButton Left = 241 Top = 1 Width = 60 Height = 38 Align = alLeft Caption = 'Cancelar' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ImageAlignment = iaBottom ImageIndex = 3 Images = BASE.listaiconos ParentFont = False TabOrder = 1 OnClick = bteacancelarClick end object bteamodificar: TButton Left = 61 Top = 1 Width = 60 Height = 38 Align = alLeft Caption = 'Modificar' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ImageAlignment = iaBottom ImageIndex = 2 Images = BASE.listaiconos ParentFont = False TabOrder = 2 OnClick = bteamodificarClick end object bteaborrar: TButton Left = 121 Top = 1 Width = 60 Height = 38 Align = alLeft Caption = 'Borrar' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ImageAlignment = iaBottom ImageIndex = 1 Images = BASE.listaiconos ParentFont = False TabOrder = 3 OnClick = bteaborrarClick end object bteanuevo: TButton Left = 1 Top = 1 Width = 60 Height = 38 Align = alLeft Caption = 'Nuevo' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ImageAlignment = iaBottom ImageIndex = 0 Images = BASE.listaiconos ParentFont = False TabOrder = 4 OnClick = bteanuevoClick end object bteaguardar: TButton Left = 181 Top = 1 Width = 60 Height = 38 Align = alLeft Caption = 'Guardar' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ImageAlignment = iaBottom ImageIndex = 140 Images = BASE.listaiconos ParentFont = False TabOrder = 0 OnClick = bteaguardarClick end object bteaimprimir: TButton Left = 301 Top = 1 Width = 60 Height = 38 Align = alLeft Caption = 'Imprimir' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ImageAlignment = iaBottom ImageIndex = 10 Images = BASE.listaiconos ParentFont = False TabOrder = 5 end end end end object Panel10: TPanel Left = 0 Top = 0 Width = 1008 Height = 84 Align = alTop TabOrder = 2 object Label40: TLabel Left = 2 Top = 24 Width = 42 Height = 13 Caption = 'FILTROS' end object Label41: TLabel Left = 75 Top = 28 Width = 22 Height = 13 Caption = 'A'#209'O' end object Label42: TLabel Left = 77 Top = 47 Width = 20 Height = 13 Caption = 'MES' end object DBText2: TDBText Left = 4 Top = 1 Width = 479 Height = 17 DataField = 'nombre' DataSource = dsqlistaempleados Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -16 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end object tanyo2: TComboBox Left = 103 Top = 26 Width = 92 Height = 21 DropDownCount = 15 ItemIndex = 0 TabOrder = 0 Text = 'Cualquiera' Items.Strings = ( 'Cualquiera' '2015' '2016' '2017' '2018' '2019' '2020' '2021' '2022' '2023' '2024' '2025') end object tmes2: TComboBox Left = 103 Top = 46 Width = 92 Height = 21 DropDownCount = 15 ItemIndex = 0 TabOrder = 1 Text = 'Cualquiera' Items.Strings = ( 'Cualquiera' 'ENERO' 'FEBRERO' 'MARZO' 'ABRIL' 'MAYO' 'JUNIO' 'JULIO' 'AGOSTO' 'SEPTIEMBRE' 'OCTUBRE' 'NOVIEMBRE' 'DICIEMBRE' '') end end object Panel23: TPanel Left = 0 Top = 636 Width = 1008 Height = 65 Align = alBottom Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False TabOrder = 3 object Label109: TLabel Left = 2 Top = 8 Width = 71 Height = 13 Caption = 'Observaciones' end object Shape13: TShape Left = 14 Top = 31 Width = 19 Height = 19 Brush.Color = 11184895 Pen.Color = 11184895 end object Label110: TLabel Left = 38 Top = 34 Width = 84 Height = 13 Caption = 'SIN COMPROBAR' end object Label111: TLabel Left = 153 Top = 34 Width = 72 Height = 13 Caption = 'COMPROBADO' end object Shape14: TShape Left = 127 Top = 31 Width = 19 Height = 19 Brush.Color = 12189695 Pen.Color = 12189695 end object Label112: TLabel Left = 398 Top = 34 Width = 42 Height = 13 Caption = 'PAGADO' end object Shape15: TShape Left = 372 Top = 31 Width = 19 Height = 19 Brush.Color = 13106090 Pen.Color = 13106090 end object Label113: TLabel Left = 275 Top = 34 Width = 55 Height = 13 Caption = 'VALORADO' end object Shape16: TShape Left = 249 Top = 31 Width = 19 Height = 19 Brush.Color = 16777147 Pen.Color = 16777147 end object DBEdit64: TDBEdit Left = 79 Top = 6 Width = 522 Height = 21 DataField = 'origen' Enabled = False TabOrder = 0 end end end object TabSheet1: TTabSheet Caption = 'Listado de planificaci'#243'n de la formaci'#243'n' ImageIndex = 5 object Panel17: TPanel Left = 0 Top = 0 Width = 1008 Height = 701 Align = alClient TabOrder = 0 object Label15: TLabel Left = 40 Top = 88 Width = 12 Height = 13 Caption = 'idt' end object Panel166: TPanel Left = 1 Top = 1 Width = 1006 Height = 28 Align = alTop TabOrder = 0 object Label73: TLabel Left = 65 Top = 1 Width = 940 Height = 26 Align = alClient Alignment = taCenter Caption = 'Estado de la Formaci'#243'n' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -16 Font.Name = 'Arial Black' Font.Style = [fsBold, fsItalic] ParentFont = False ExplicitWidth = 209 ExplicitHeight = 23 end object btedoccancelar: TButton Left = 33 Top = 1 Width = 32 Height = 26 Align = alLeft Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ImageAlignment = iaCenter ImageIndex = 11 Images = BASE.listaiconos ParentFont = False TabOrder = 0 OnClick = btedoccancelarClick end object Button12: TButton Left = 1 Top = 1 Width = 32 Height = 26 Align = alLeft Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ImageAlignment = iaCenter ImageIndex = 10 Images = BASE.listaiconos ParentFont = False TabOrder = 1 OnClick = Button12Click end end object DBGrid75: TDBGrid Left = 1 Top = 29 Width = 1006 Height = 671 Align = alClient DataSource = dsqlistadoplanificacion Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -9 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False TabOrder = 1 TitleFont.Charset = DEFAULT_CHARSET TitleFont.Color = clWindowText TitleFont.Height = -11 TitleFont.Name = 'Tahoma' TitleFont.Style = [] OnDrawColumnCell = DBGrid75DrawColumnCell Columns = < item Expanded = False FieldName = 'idt' Title.Caption = 'Id' Title.Font.Charset = DEFAULT_CHARSET Title.Font.Color = clWindowText Title.Font.Height = -8 Title.Font.Name = 'Tahoma' Title.Font.Style = [] Width = 22 Visible = True end item Expanded = False FieldName = 'nombre' Title.Caption = 'Nombre' Title.Font.Charset = DEFAULT_CHARSET Title.Font.Color = clWindowText Title.Font.Height = -8 Title.Font.Name = 'Tahoma' Title.Font.Style = [] Width = 167 Visible = True end item Alignment = taCenter Expanded = False FieldName = 'localizacion' Title.Caption = 'Localizaci'#243'n' Title.Font.Charset = DEFAULT_CHARSET Title.Font.Color = clWindowText Title.Font.Height = -8 Title.Font.Name = 'Tahoma' Title.Font.Style = [] Width = 33 Visible = True end item Expanded = False FieldName = 'nif' Title.Caption = 'DNI/NIE' Title.Font.Charset = DEFAULT_CHARSET Title.Font.Color = clWindowText Title.Font.Height = -8 Title.Font.Name = 'Tahoma' Title.Font.Style = [] Width = 54 Visible = True end item Expanded = False FieldName = 'fechaalta' Title.Caption = 'FECHA ALTA' Title.Font.Charset = DEFAULT_CHARSET Title.Font.Color = clWindowText Title.Font.Height = -8 Title.Font.Name = 'Tahoma' Title.Font.Style = [] Width = 50 Visible = True end item Expanded = False FieldName = 'fechabaja' Title.Caption = 'FECHA BAJA' Title.Font.Charset = DEFAULT_CHARSET Title.Font.Color = clWindowText Title.Font.Height = -8 Title.Font.Name = 'Tahoma' Title.Font.Style = [] Width = 50 Visible = True end item Alignment = taCenter Expanded = False FieldName = 'vto_permisotrabajo' Title.Caption = 'FECHA VTO PERMISO TRABAJO' Title.Font.Charset = DEFAULT_CHARSET Title.Font.Color = clWindowText Title.Font.Height = -8 Title.Font.Name = 'Tahoma' Title.Font.Style = [] Width = 50 Visible = True end item Alignment = taCenter Expanded = False FieldName = 'descripcion' Title.Caption = 'PUESTO DE TRABAJO' Title.Font.Charset = DEFAULT_CHARSET Title.Font.Color = clWindowText Title.Font.Height = -8 Title.Font.Name = 'Tahoma' Title.Font.Style = [] Width = 59 Visible = True end item Alignment = taCenter Expanded = False FieldName = 'fecha_recmedico' Title.Caption = 'FECHA RECONOC. M'#201'DICO' Title.Font.Charset = DEFAULT_CHARSET Title.Font.Color = clWindowText Title.Font.Height = -8 Title.Font.Name = 'Tahoma' Title.Font.Style = [] Width = 50 Visible = True end item Alignment = taCenter Expanded = False FieldName = 'fecha_ren_recmedico' Title.Caption = 'FECHA RENUNCIA RECONOC. M'#201'DICO' Title.Font.Charset = DEFAULT_CHARSET Title.Font.Color = clWindowText Title.Font.Height = -8 Title.Font.Name = 'Tahoma' Title.Font.Style = [] Width = 66 Visible = True end item Alignment = taCenter Expanded = False FieldName = 'test_agricultura' Title.Caption = 'TEST AGRICULTURA FECHA INFORMATIVA' Title.Font.Charset = DEFAULT_CHARSET Title.Font.Color = clWindowText Title.Font.Height = -8 Title.Font.Name = 'Tahoma' Title.Font.Style = [] Width = 25 Visible = True end item Alignment = taCenter Expanded = False FieldName = 'fecha_testcovid19' Title.Caption = 'REGISTRO TEXT COVID-19' Title.Font.Charset = DEFAULT_CHARSET Title.Font.Color = clWindowText Title.Font.Height = -8 Title.Font.Name = 'Tahoma' Title.Font.Style = [] Width = 40 Visible = True end item Alignment = taCenter Expanded = False FieldName = 'formacionrecepdoc' Title.Caption = 'FORMACI'#211'N, RECEPCI'#211'N DOCUMENTACI'#211'N' Title.Font.Charset = DEFAULT_CHARSET Title.Font.Color = clWindowText Title.Font.Height = -8 Title.Font.Name = 'Tahoma' Title.Font.Style = [] Width = 25 Visible = True end item Alignment = taCenter Expanded = False FieldName = 'manejo_maquinaria' Title.Caption = 'MANEJO SEGURO MAQUINARIA' Title.Font.Charset = DEFAULT_CHARSET Title.Font.Color = clWindowText Title.Font.Height = -8 Title.Font.Name = 'Tahoma' Title.Font.Style = [] Width = 25 Visible = True end item Alignment = taCenter Expanded = False FieldName = 'primeros_auxilios' Title.Caption = 'PRIMEROS AUXILIOS' Title.Font.Charset = DEFAULT_CHARSET Title.Font.Color = clWindowText Title.Font.Height = -8 Title.Font.Name = 'Tahoma' Title.Font.Style = [] Width = 25 Visible = True end item Alignment = taCenter Expanded = False FieldName = 'fitosanitario_basico' Title.Caption = 'CARN'#201'T APLICADOR FITOS. B'#193'SICO' Title.Font.Charset = DEFAULT_CHARSET Title.Font.Color = clWindowText Title.Font.Height = -8 Title.Font.Name = 'Tahoma' Title.Font.Style = [] Width = 25 Visible = True end item Alignment = taCenter Expanded = False FieldName = 'fitosanitario_cualificado' Title.Caption = 'CARN'#201' APLICADOR FITOS. CUALIFIC.' Title.Font.Charset = DEFAULT_CHARSET Title.Font.Color = clWindowText Title.Font.Height = -8 Title.Font.Name = 'Tahoma' Title.Font.Style = [] Width = 25 Visible = True end item Alignment = taCenter Expanded = False FieldName = 'formacion_riego' Title.Caption = 'FORMACI'#211'N RIEGO' Title.Font.Charset = DEFAULT_CHARSET Title.Font.Color = clWindowText Title.Font.Height = -8 Title.Font.Name = 'Tahoma' Title.Font.Style = [] Width = 25 Visible = True end item Alignment = taCenter Expanded = False FieldName = 'buenaspract_higiene' Title.Caption = 'BUENAS PR'#193'CTICAS HIGIENE' Title.Font.Charset = DEFAULT_CHARSET Title.Font.Color = clWindowText Title.Font.Height = -8 Title.Font.Name = 'Tahoma' Title.Font.Style = [] Width = 25 Visible = True end item Alignment = taCenter Expanded = False FieldName = 'curso_sulfuroso' Title.Caption = 'CURSO SULFUROSO' Title.Font.Charset = DEFAULT_CHARSET Title.Font.Color = clWindowText Title.Font.Height = -8 Title.Font.Name = 'Tahoma' Title.Font.Style = [] Width = 25 Visible = True end item Alignment = taCenter Expanded = False FieldName = 'manipulador_frutas' Title.Caption = 'MANIPULADOR FURTAS Y HORTALIZAS' Title.Font.Charset = DEFAULT_CHARSET Title.Font.Color = clWindowText Title.Font.Height = -8 Title.Font.Name = 'Tahoma' Title.Font.Style = [] Width = 25 Visible = True end item Alignment = taCenter Expanded = False FieldName = 'fecha_carnetmanipulador' Title.Caption = 'FECHA CARNET MANIPULADOR' Title.Font.Charset = DEFAULT_CHARSET Title.Font.Color = clWindowText Title.Font.Height = -8 Title.Font.Name = 'Tahoma' Title.Font.Style = [] Width = 50 Visible = True end item Alignment = taCenter Expanded = False FieldName = 'mantenimiento' Title.Caption = 'MANTENIMIENTO' Title.Font.Charset = DEFAULT_CHARSET Title.Font.Color = clWindowText Title.Font.Height = -8 Title.Font.Name = 'Tahoma' Title.Font.Style = [] Width = 25 Visible = True end item Alignment = taCenter Expanded = False FieldName = 'limpieza' Title.Caption = 'LIMPIEZA' Title.Font.Charset = DEFAULT_CHARSET Title.Font.Color = clWindowText Title.Font.Height = -8 Title.Font.Name = 'Tahoma' Title.Font.Style = [] Width = 25 Visible = True end> end end end end object qgrupos: TFDQuery Connection = DM.DBagrigest SQL.Strings = ( 'select * from grupos_trabajadores order by id') Params = <> Left = 208 Top = 120 object qgruposide: TIntegerField FieldName = 'ide' Required = True end object qgruposid: TIntegerField FieldName = 'id' Required = True end object qgruposdescripcion: TWideStringField FieldName = 'descripcion' Required = True Size = 40 end end object dsqgrupos: TDataSource DataSet = qgrupos2 Left = 120 Top = 120 end object dsqgrupos2: TDataSource DataSet = qgrupos2 Left = 120 Top = 176 end object qgrupos2: TFDQuery Connection = DM.DBagrigest SQL.Strings = ( 'select * from grupos_trabajadores order by DESCRIPCION') Params = <> Left = 208 Top = 168 object qgrupos2ide: TIntegerField FieldName = 'ide' Required = True end object qgrupos2id: TIntegerField FieldName = 'id' Required = True end object qgrupos2descripcion: TWideStringField FieldName = 'descripcion' Required = True Size = 40 end end object dsqlistaempleados: TDataSource DataSet = qlistaempleados OnDataChange = dsqlistaempleadosDataChange Left = 120 Top = 224 end object qlistaempleados: TFDQuery Connection = DM.DBagrigest BeforeOpen = qlistaempleadosBeforeOpen AfterOpen = qlistaempleadosAfterOpen SQL.Strings = ( 'select t.ide,t.id,t.nombre,ep.vto_permisotrabajo from trabajador' + 'es t,empleados_planificacion ep where t.ide=ep.ide and t.id=ep.i' + 'dt and t.grupo=0 and t.activo=1 order by nombre') Params = <> Left = 208 Top = 216 object qlistaempleadoside: TIntegerField FieldName = 'ide' Required = True end object qlistaempleadosid: TSmallintField FieldName = 'id' Required = True end object qlistaempleadosnombre: TWideStringField FieldName = 'nombre' Required = True Size = 80 end object qlistaempleadosvto_permisotrabajo: TDateField FieldName = 'vto_permisotrabajo' end end object qempleados: TFDQuery Connection = DM.DBagrigest AfterInsert = qempleadosAfterInsert BeforePost = qempleadosBeforePost AfterPost = qempleadosAfterPost BeforeDelete = qempleadosBeforeDelete SQL.Strings = ( 'select * from trabajadores where ide=:EMPRESA and id=:EMPLEADO') Params = < item DataType = ftUnknown Name = 'EMPRESA' ParamType = ptUnknown end item DataType = ftUnknown Name = 'EMPLEADO' ParamType = ptUnknown end> Left = 208 Top = 264 ParamData = < item DataType = ftUnknown Name = 'EMPRESA' ParamType = ptUnknown end item DataType = ftUnknown Name = 'EMPLEADO' ParamType = ptUnknown end> object qempleadoside: TIntegerField FieldName = 'ide' Required = True end object qempleadosID: TSmallintField Alignment = taLeftJustify FieldName = 'ID' Required = True end object qempleadosNIF: TWideStringField FieldName = 'NIF' Required = True Size = 24 end object qempleadosnombre: TWideStringField FieldName = 'nombre' Required = True Size = 80 end object qempleadosNOMBRECORTO: TWideStringField FieldName = 'NOMBRECORTO' Size = 80 end object qempleadosAPELLIDOS: TWideStringField FieldName = 'APELLIDOS' Size = 120 end object qempleadosDIRECCION: TWideStringField FieldName = 'DIRECCION' Size = 80 end object qempleadosCP: TWideStringField FieldName = 'CP' Size = 10 end object qempleadosPOBLACION: TWideStringField FieldName = 'POBLACION' Size = 40 end object qempleadosPROVINCIA: TWideStringField FieldName = 'PROVINCIA' Size = 40 end object qempleadosFECHANACIMIENTO: TDateField FieldName = 'FECHANACIMIENTO' DisplayFormat = 'dd/mm/yyyy' end object qempleadosPAISNAC: TWideStringField FieldName = 'PAISNAC' Size = 40 end object qempleadosNACIONALIDAD: TWideStringField FieldName = 'NACIONALIDAD' Size = 40 end object qempleadosSEXO: TWideStringField FieldName = 'SEXO' end object qempleadosCBIBAN: TWideStringField FieldName = 'CBIBAN' Size = 8 end object qempleadosCBBANCO: TWideStringField FieldName = 'CBBANCO' Size = 8 end object qempleadosCBOFICINA: TWideStringField FieldName = 'CBOFICINA' Size = 8 end object qempleadosCBDC: TWideStringField FieldName = 'CBDC' Size = 4 end object qempleadosCBCC: TWideStringField FieldName = 'CBCC' end object qempleadosPAGARPORBANCO: TIntegerField FieldName = 'PAGARPORBANCO' Required = True end object qempleadosTELEFONO1: TWideStringField FieldName = 'TELEFONO1' Size = 30 end object qempleadosTELEFONO2: TWideStringField FieldName = 'TELEFONO2' Size = 30 end object qempleadosTELEFONO3: TWideStringField FieldName = 'TELEFONO3' Size = 30 end object qempleadosTELEFONO4: TWideStringField FieldName = 'TELEFONO4' Size = 30 end object qempleadosREGIMEN_COT: TWideStringField FieldName = 'REGIMEN_COT' Size = 40 end object qempleadosNUMSEGSOCIAL: TWideStringField FieldName = 'NUMSEGSOCIAL' Size = 30 end object qempleadosIRPF: TFloatField FieldName = 'IRPF' end object qempleadosIRPF2: TFloatField FieldName = 'IRPF2' end object qempleadosDESEMPLEO: TFloatField FieldName = 'DESEMPLEO' end object qempleadosDESEMPLEO2: TFloatField FieldName = 'DESEMPLEO2' end object qempleadosFORMACION: TFloatField FieldName = 'FORMACION' end object qempleadosFORMACION2: TFloatField FieldName = 'FORMACION2' end object qempleadosIMAGEN: TIntegerField FieldName = 'IMAGEN' end object qempleadosOBSERVACIONES: TWideStringField FieldName = 'OBSERVACIONES' Size = 400 end object qempleadosFECHAALTA: TDateField FieldName = 'FECHAALTA' DisplayFormat = 'dd/mm/yyyy' end object qempleadosFECHABAJA: TDateField FieldName = 'FECHABAJA' DisplayFormat = 'dd/mm/yyyy' end object qempleadosempresa: TIntegerField FieldName = 'empresa' Required = True end object qempleadosseleccionado: TIntegerField FieldName = 'seleccionado' Required = True end object qempleadoscodart: TWideStringField FieldName = 'codart' Size = 30 end object qempleadoscontrolcalidad: TIntegerField FieldName = 'controlcalidad' Required = True end object qempleadoshorascontrato: TFloatField FieldName = 'horascontrato' end object qempleadosCONTINGENCIAS: TFloatField FieldName = 'CONTINGENCIAS' end object qempleadosFIJO: TIntegerField FieldName = 'FIJO' end object qempleadosFIJODISCONTINUO: TIntegerField FieldName = 'FIJODISCONTINUO' end object qempleadosTEMPORAL: TIntegerField FieldName = 'TEMPORAL' end object qempleadosnum_taquilla: TIntegerField FieldName = 'num_taquilla' end object qempleadosemail: TWideStringField FieldName = 'email' Size = 100 end object qempleadosconvocatoria: TWideStringField FieldName = 'convocatoria' Size = 90 end object qempleadosresponsable: TIntegerField FieldName = 'responsable' end object qempleadosfumigador: TIntegerField FieldName = 'fumigador' end object qempleadosgrupo: TIntegerField FieldName = 'grupo' Required = True end object qempleadosactivo: TIntegerField FieldName = 'activo' Required = True end object qempleadosretencion_me: TFloatField FieldName = 'retencion_me' end object qempleadosjornada_continua: TSmallintField FieldName = 'jornada_continua' end object qempleadossalariobasedia: TFloatField FieldName = 'salariobasedia' end end object dsqempleados: TDataSource DataSet = qempleados OnStateChange = dsqempleadosStateChange Left = 120 Top = 272 end object dsqtipohora: TDataSource DataSet = qtipohora Left = 120 Top = 312 end object qtipohora: TFDQuery Connection = DM.DBagrigest SQL.Strings = ( 'select * from articulos where activo=1 order by codart') Params = <> Left = 208 Top = 312 object qtipohoracodart: TWideStringField DisplayWidth = 20 FieldName = 'codart' Required = True Size = 30 end object qtipohoradescrip: TWideStringField FieldName = 'descrip' Size = 100 end object qtipohoraprecio: TFloatField FieldName = 'precio' end object qtipohoraequivalenciahoras: TFloatField FieldName = 'equivalenciahoras' Required = True end object qtipohoraactivo: TIntegerField FieldName = 'activo' Required = True end object qtipohoraempresa: TIntegerField FieldName = 'empresa' Required = True end object qtipohorafacturar: TIntegerField FieldName = 'facturar' Required = True end object qtipohoraseleccionado: TIntegerField FieldName = 'seleccionado' Required = True end end object dsqregimencotizacion: TDataSource DataSet = qregimencotizacion OnDataChange = dsqregimencotizacionDataChange Left = 120 Top = 352 end object qregimencotizacion: TFDQuery Connection = DM.DBagrigest SQL.Strings = ( 'select * from regimenes_cotizacion order by descripcion') Params = <> Left = 208 Top = 352 object qregimencotizacionid: TIntegerField FieldName = 'id' Required = True end object qregimencotizaciondescripcion: TWideStringField FieldName = 'descripcion' Required = True Size = 100 end object qregimencotizacionirpf: TFloatField FieldName = 'irpf' Required = True end object qregimencotizaciondesempleo: TFloatField FieldName = 'desempleo' Required = True end object qregimencotizacionformacion: TFloatField FieldName = 'formacion' Required = True end object qregimencotizacioncontingencias: TFloatField FieldName = 'contingencias' Required = True end end object dsempfotos: TDataSource DataSet = qemp_fotos Left = 684 Top = 144 end object informedb: TfrxDBDataset UserName = 'frxDBDataset1' CloseDataSource = True DataSource = dsqinfentregasmaterial BCDToCurrency = False Left = 608 Top = 144 end object informes: TfrxReport Version = '6.9.3' DotMatrixReport = False IniFile = '\Software\Fast Reports' PreviewOptions.Buttons = [pbPrint, pbLoad, pbSave, pbExport, pbZoom, pbFind, pbOutline, pbPageSetup, pbTools, pbEdit, pbNavigator, pbExportQuick] PreviewOptions.Zoom = 1.000000000000000000 PrintOptions.Printer = 'Default' PrintOptions.PrintOnSheet = 0 ReportOptions.CreateDate = 43969.737119097200000000 ReportOptions.LastChange = 45764.366003090280000000 ScriptLanguage = 'PascalScript' ScriptText.Strings = ( 'begin' '' 'end.') Left = 456 Top = 128 Datasets = < item DataSet = informefirmadoc DataSetName = 'firmasdoc' end item DataSet = informedb DataSetName = 'frxDBDataset1' end item DataSet = BASE.INFEMPRESA DataSetName = 'INFEMPRESA' end> Variables = <> Style = <> object Data: TfrxDataPage Height = 1000.000000000000000000 Width = 1000.000000000000000000 end object Page1: TfrxReportPage PaperWidth = 210.000000000000000000 PaperHeight = 297.000000000000000000 PaperSize = 9 LeftMargin = 10.000000000000000000 RightMargin = 10.000000000000000000 TopMargin = 10.000000000000000000 BottomMargin = 30.000000000000000000 Frame.Typ = [] MirrorMode = [] object PageHeader1: TfrxPageHeader FillType = ftBrush Frame.Typ = [] Height = 264.566929130000000000 Top = 18.897650000000000000 Width = 718.110700000000000000 object Shape1: TfrxShapeView AllowVectorExport = True Left = -1.133858267716535000 Top = -1.133858267716535000 Width = 727.272727280000000000 Height = 1018.582677165354000000 Frame.Typ = [] end object Memo4: TfrxMemoView AllowVectorExport = True Left = 22.197558890000000000 Top = 170.558441830000000000 Width = 653.858690000000000000 Height = 60.408163640000000000 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -16 Font.Name = 'Century Gothic' Font.Style = [] Frame.Typ = [] HAlign = haBlock LineSpacing = 10.000000000000000000 Memo.UTF8W = ( 'Yo, [v_empleado] recib'#237' por parte de la empresa el siguiente equ' + 'ipo de protecci'#243'n individual (EPI).') ParentFont = False VAlign = vaCenter end object Memo5: TfrxMemoView AllowVectorExport = True Left = 7.272727270000000000 Top = 244.738713630000000000 Width = 226.306431820000000000 Height = 18.897650000000000000 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsUnderline] Frame.Typ = [] Memo.UTF8W = ( 'Descripci'#243'n') ParentFont = False end object Memo6: TfrxMemoView AllowVectorExport = True Left = 596.363636360000000000 Top = 244.738713630000000000 Width = 202.670068180000000000 Height = 18.897650000000000000 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsUnderline] Frame.Typ = [] Memo.UTF8W = ( 'Cantidad') ParentFont = False end object Memo7: TfrxMemoView AllowVectorExport = True Left = 390.000000000000000000 Top = 104.738713640000000000 Width = 282.949599090000000000 Height = 60.408163640000000000 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -16 Font.Name = 'Century Gothic' Font.Style = [] Frame.Typ = [] HAlign = haRight LineSpacing = 10.000000000000000000 Memo.UTF8W = ( '[v_fecha]') ParentFont = False VAlign = vaCenter end end object ReportSummary1: TfrxReportSummary FillType = ftBrush Frame.Typ = [] Height = 197.508967260000000000 Top = 472.441250000000000000 Width = 718.110700000000000000 PrintAtBottom = True object Memo9: TfrxMemoView AllowVectorExport = True Left = 199.090909090000000000 Top = 2.814972379999970000 Width = 243.191947960000000000 Height = 161.477161030000000000 Font.Charset = DEFAULT_CHARSET Font.Color = clBlue Font.Height = -11 Font.Name = 'Century Gothic' Font.Style = [fsBold] Frame.Color = clBlue Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom] HAlign = haBlock Memo.UTF8W = ( 'Recib'#237':' '' '' '' '' '' '' '' '' 'Fdo.:empleado') ParentFont = False VAlign = vaCenter end object Picture2: TfrxPictureView AllowVectorExport = True Left = 210.801228330000000000 Top = 30.927025454545400000 Width = 188.976500000000000000 Height = 94.488250000000000000 Center = True DataField = 'firma' DataSet = informefirmadoc DataSetName = 'firmasdoc' Frame.Typ = [] HightQuality = True Transparent = False TransparentColor = clWhite end object Memo1: TfrxMemoView AllowVectorExport = True Left = 2.727272730000000000 Top = 167.272727264545000000 Width = 721.890230000000000000 Height = 30.236240000000000000 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -12 Font.Name = 'Century Gothic' Font.Style = [] Frame.Typ = [] HAlign = haCenter Memo.UTF8W = ( '[INFEMPRESA."nombre"] - D. Social [INFEMPRESA."direccion"], [INF' + 'EMPRESA."codpost"] [INFEMPRESA."poblacion"]-[INFEMPRESA."provinc' + 'ia"]- C.I.F. [INFEMPRESA."cif"]') ParentFont = False VAlign = vaCenter Formats = < item end item end item end item end item end> end end object DetailData1: TfrxDetailData FillType = ftBrush Frame.Typ = [] Height = 22.677180000000000000 Top = 389.291590000000000000 Width = 718.110700000000000000 DataSet = informedb DataSetName = 'frxDBDataset1' RowCount = 0 object frxDBDataset1concepto: TfrxMemoView IndexTag = 1 AllowVectorExport = True Left = 9.090909090000000000 Width = 506.993816360000000000 Height = 18.897650000000000000 DataField = 'concepto' DataSet = informedb DataSetName = 'frxDBDataset1' Frame.Typ = [] Memo.UTF8W = ( '[frxDBDataset1."concepto"]') end object frxDBDataset1cantidad: TfrxMemoView IndexTag = 1 AllowVectorExport = True Left = 557.272727270000000000 Width = 79.370130000000000000 Height = 18.897650000000000000 DataSet = informedb DataSetName = 'frxDBDataset1' DisplayFormat.FormatStr = '%2.0f' DisplayFormat.Kind = fkNumeric Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [] Frame.Typ = [] HAlign = haRight Memo.UTF8W = ( '[frxDBDataset1."cantidad"]') ParentFont = False end end object MasterData1: TfrxMasterData FillType = ftBrush Frame.Typ = [] Height = 22.677180000000000000 Top = 343.937230000000000000 Width = 718.110700000000000000 DataSet = informedb DataSetName = 'frxDBDataset1' RowCount = 0 end end end object qaux: TFDQuery Connection = DM.DBagrigest SQL.Strings = ( 'select * from trabajadores where seleccionado=1 order by nombre') Params = <> Left = 56 Top = 160 end object dsqinftrabajadores: TDataSource DataSet = qinftrabajadores Left = 120 Top = 80 end object qinftrabajadores: TFDQuery Connection = DM.DBagrigest SQL.Strings = ( 'select t.* ,f.imagen from trabajadores t left join emp_fotos f o' + 'n t.ide=f.ide and t.id=f.idt where t.seleccionado=1 order by no' + 'mbre') Params = <> Left = 208 Top = 80 object qinftrabajadoresID: TSmallintField FieldName = 'ID' Required = True end object qinftrabajadoresNIF: TWideStringField FieldName = 'NIF' Required = True Size = 24 end object qinftrabajadoresnombre: TWideStringField FieldName = 'nombre' Required = True Size = 80 end object qinftrabajadoresNOMBRECORTO: TWideStringField FieldName = 'NOMBRECORTO' Size = 80 end object qinftrabajadoresAPELLIDOS: TWideStringField FieldName = 'APELLIDOS' Size = 120 end object qinftrabajadoresDIRECCION: TWideStringField FieldName = 'DIRECCION' Size = 80 end object qinftrabajadoresCP: TWideStringField FieldName = 'CP' Required = True Size = 10 end object qinftrabajadoresPOBLACION: TWideStringField FieldName = 'POBLACION' Size = 40 end object qinftrabajadoresPROVINCIA: TWideStringField FieldName = 'PROVINCIA' Size = 40 end object qinftrabajadoresFECHANACIMIENTO: TDateField FieldName = 'FECHANACIMIENTO' end object qinftrabajadoresPAISNAC: TWideStringField FieldName = 'PAISNAC' Size = 40 end object qinftrabajadoresNACIONALIDAD: TWideStringField FieldName = 'NACIONALIDAD' Size = 40 end object qinftrabajadoresSEXO: TWideStringField FieldName = 'SEXO' end object qinftrabajadoresCBIBAN: TWideStringField FieldName = 'CBIBAN' Size = 8 end object qinftrabajadoresCBBANCO: TWideStringField FieldName = 'CBBANCO' Size = 8 end object qinftrabajadoresCBOFICINA: TWideStringField FieldName = 'CBOFICINA' Size = 8 end object qinftrabajadoresCBDC: TWideStringField FieldName = 'CBDC' Size = 4 end object qinftrabajadoresCBCC: TWideStringField FieldName = 'CBCC' end object qinftrabajadoresPAGARPORBANCO: TIntegerField FieldName = 'PAGARPORBANCO' Required = True end object qinftrabajadoresTELEFONO1: TWideStringField FieldName = 'TELEFONO1' Size = 30 end object qinftrabajadoresTELEFONO2: TWideStringField FieldName = 'TELEFONO2' Size = 30 end object qinftrabajadoresTELEFONO3: TWideStringField FieldName = 'TELEFONO3' Size = 30 end object qinftrabajadoreside: TIntegerField FieldName = 'ide' ReadOnly = True end object qinftrabajadoresTELEFONO4: TWideStringField FieldName = 'TELEFONO4' ReadOnly = True Size = 15 end object qinftrabajadoresREGIMEN_COT: TWideStringField FieldName = 'REGIMEN_COT' ReadOnly = True end object qinftrabajadoresNUMSEGSOCIAL: TWideStringField FieldName = 'NUMSEGSOCIAL' ReadOnly = True Size = 15 end object qinftrabajadoresIRPF: TFloatField FieldName = 'IRPF' ReadOnly = True end object qinftrabajadoresIRPF2: TFloatField FieldName = 'IRPF2' ReadOnly = True end object qinftrabajadoresDESEMPLEO: TFloatField FieldName = 'DESEMPLEO' ReadOnly = True end object qinftrabajadoresDESEMPLEO2: TFloatField FieldName = 'DESEMPLEO2' ReadOnly = True end object qinftrabajadoresFORMACION: TFloatField FieldName = 'FORMACION' ReadOnly = True end object qinftrabajadoresFORMACION2: TFloatField FieldName = 'FORMACION2' ReadOnly = True end object qinftrabajadoresIMAGEN: TIntegerField FieldName = 'IMAGEN' ReadOnly = True end object qinftrabajadoresOBSERVACIONES: TWideStringField FieldName = 'OBSERVACIONES' ReadOnly = True Size = 200 end object qinftrabajadoresFECHAALTA: TDateField FieldName = 'FECHAALTA' ReadOnly = True end object qinftrabajadoresFECHABAJA: TDateField FieldName = 'FECHABAJA' ReadOnly = True end object qinftrabajadoresCONTINGENCIAS: TFloatField FieldName = 'CONTINGENCIAS' ReadOnly = True end object qinftrabajadoresempresa: TIntegerField FieldName = 'empresa' ReadOnly = True end object qinftrabajadoresseleccionado: TIntegerField FieldName = 'seleccionado' ReadOnly = True end object qinftrabajadorescodart: TWideStringField FieldName = 'codart' ReadOnly = True Size = 15 end object qinftrabajadorescontrolcalidad: TIntegerField FieldName = 'controlcalidad' ReadOnly = True end object qinftrabajadoreshorascontrato: TFloatField FieldName = 'horascontrato' ReadOnly = True end object qinftrabajadoresimagen_1: TBlobField FieldName = 'imagen_1' ReadOnly = True end object qinftrabajadoresFIJO: TIntegerField FieldName = 'FIJO' end object qinftrabajadoresFIJODISCONTINUO: TIntegerField FieldName = 'FIJODISCONTINUO' end object qinftrabajadoresTEMPORAL: TIntegerField FieldName = 'TEMPORAL' end object qinftrabajadoresgrupo: TIntegerField FieldName = 'grupo' Required = True end object qinftrabajadoresactivo: TIntegerField FieldName = 'activo' Required = True end object qinftrabajadoresnum_taquilla: TIntegerField FieldName = 'num_taquilla' end object qinftrabajadoresemail: TWideStringField FieldName = 'email' Size = 100 end object qinftrabajadoresconvocatoria: TWideStringField FieldName = 'convocatoria' Size = 100 end end object dsqaux: TDataSource DataSet = qaux Left = 16 Top = 160 end object SaveDialog1: TSaveDialog Left = 24 Top = 72 end object qempleadosplanificacion: TFDQuery Connection = DM.DBagrigest SQL.Strings = ( 'select * from empleados_planificacion where idt=:EMPLEADO and id' + 'e=:EMPRESA') Params = < item DataType = ftUnknown Name = 'EMPLEADO' ParamType = ptUnknown end item DataType = ftUnknown Name = 'EMPRESA' ParamType = ptUnknown end> Left = 208 Top = 400 ParamData = < item DataType = ftUnknown Name = 'EMPLEADO' ParamType = ptUnknown end item DataType = ftUnknown Name = 'EMPRESA' ParamType = ptUnknown end> object qempleadosplanificacionidt: TSmallintField FieldName = 'idt' Required = True end object qempleadosplanificacionide: TIntegerField FieldName = 'ide' Required = True end object qempleadosplanificacionlocalizacion: TWideStringField FieldName = 'localizacion' Size = 100 end object qempleadosplanificacionvto_permisotrabajo: TDateField FieldName = 'vto_permisotrabajo' OnValidate = qempleadosplanificacionvto_permisotrabajoValidate DisplayFormat = 'dd/mm/yyyy' EditMask = '!99/99/0000;1;_' end object qempleadosplanificacionpuesto: TIntegerField FieldName = 'puesto' end object qempleadosplanificacionfecha_recmedico: TDateField FieldName = 'fecha_recmedico' OnValidate = qempleadosplanificacionfecha_recmedicoValidate DisplayFormat = 'dd/mm/yyyy' EditMask = '!99/99/0000;1;_' end object qempleadosplanificacionfecha_ren_recmedico: TDateField FieldName = 'fecha_ren_recmedico' OnValidate = qempleadosplanificacionfecha_ren_recmedicoValidate DisplayFormat = 'dd/mm/yyyy' EditMask = '!99/99/0000;1;_' end object qempleadosplanificaciontest_agricultura: TWideStringField FieldName = 'test_agricultura' Size = 4 end object qempleadosplanificacionfecha_testcovid19: TDateField FieldName = 'fecha_testcovid19' OnValidate = qempleadosplanificacionfecha_testcovid19Validate DisplayFormat = 'dd/mm/yyyy' EditMask = '!99/99/0000;1;_' end object qempleadosplanificacionformacionrecepdoc: TWideStringField FieldName = 'formacionrecepdoc' Size = 4 end object qempleadosplanificacionmanejo_maquinaria: TWideStringField FieldName = 'manejo_maquinaria' Size = 4 end object qempleadosplanificacionprimeros_auxilios: TWideStringField FieldName = 'primeros_auxilios' Size = 4 end object qempleadosplanificacionfitosanitario_basico: TWideStringField FieldName = 'fitosanitario_basico' Size = 4 end object qempleadosplanificacionfitosanitario_cualificado: TWideStringField FieldName = 'fitosanitario_cualificado' Size = 4 end object qempleadosplanificacionformacion_riego: TWideStringField FieldName = 'formacion_riego' Size = 4 end object qempleadosplanificacionbuenaspract_higiene: TWideStringField FieldName = 'buenaspract_higiene' Size = 4 end object qempleadosplanificacioncurso_sulfuroso: TWideStringField FieldName = 'curso_sulfuroso' Size = 4 end object qempleadosplanificacionmanipulador_frutas: TWideStringField FieldName = 'manipulador_frutas' Size = 4 end object qempleadosplanificacionmantenimiento: TWideStringField FieldName = 'mantenimiento' Size = 4 end object qempleadosplanificacionfecha_carnetmanipulador: TDateField FieldName = 'fecha_carnetmanipulador' OnValidate = qempleadosplanificacionfecha_carnetmanipuladorValidate DisplayFormat = 'dd/mm/yyyy' EditMask = '!99/99/0000;1;_' end object qempleadosplanificacionlimpieza: TWideStringField FieldName = 'limpieza' Size = 4 end object qempleadosplanificacionembargos: TWideStringField FieldName = 'embargos' Size = 4 end object qempleadosplanificacionobservaciones: TWideStringField FieldName = 'observaciones' Size = 500 end object qempleadosplanificaciontipo_carnetconducir: TWideStringField FieldName = 'tipo_carnetconducir' end object qempleadosplanificacionfecha_caducidadconducir: TDateField FieldName = 'fecha_caducidadconducir' end object qempleadosplanificacionfecha_cursosulfuroso: TDateField FieldName = 'fecha_cursosulfuroso' end object qempleadosplanificacioncarnet_conducir: TWideStringField FieldName = 'carnet_conducir' Size = 4 end end object dsqempleadosplanificacion: TDataSource DataSet = qempleadosplanificacion OnStateChange = dsqempleadosplanificacionStateChange Left = 120 Top = 400 end object dsqpuestostrabajo: TDataSource DataSet = qpuestostrabajo Left = 120 Top = 448 end object qpuestostrabajo: TFDQuery Connection = DM.DBagrigest SQL.Strings = ( 'select * from puestos_trabajo where activo=1 order by descripci' + 'on') Params = <> Left = 208 Top = 448 end object qlistadoplanificacion: TFDQuery Connection = DM.DBagrigest SQL.Strings = ( 'select ep.*,t.nombre,t.nif,t.fechaalta,t.fechabaja,t.fechanacimi' + 'ento,pt.descripcion from empleados_planificacion ep, trabajadore' + 's t,puestos_trabajo pt where pt.id=ep.puesto and ep.ide=t.ide an' + 'd ep.idt=t.id and (ep.ide,ep.idt) in (select ide,id from trabaja' + 'dores where ide=:EMPRESA and activo=1) union ALL select ep.*,t' + '.nombre,t.nif,t.fechaalta,t.fechabaja,t.fechanacimiento,null as ' + 'descripcion from empleados_planificacion ep, trabajadores t wher' + 'e ep.ide=t.ide and ep.idt=t.id and ep.puesto is null and (ep.ide' + ',ep.idt) in (select ide,id from trabajadores where ide=:EMPRESA ' + ' and ACTIVO=1) order by nombre') Params = < item DataType = ftUnknown Name = 'EMPRESA' ParamType = ptUnknown end> Left = 208 Top = 496 ParamData = < item DataType = ftUnknown Name = 'EMPRESA' ParamType = ptUnknown end> object qlistadoplanificacionidt: TSmallintField FieldName = 'idt' Required = True end object qlistadoplanificacionide: TIntegerField FieldName = 'ide' Required = True end object qlistadoplanificacionlocalizacion: TWideStringField FieldName = 'localizacion' Size = 100 end object qlistadoplanificacionfechaalta: TDateField FieldName = 'fechaalta' DisplayFormat = 'dd/mm/yy' end object qlistadoplanificacionfechabaja: TDateField FieldName = 'fechabaja' DisplayFormat = 'dd/mm/yy' end object qlistadoplanificacionvto_permisotrabajo: TDateField FieldName = 'vto_permisotrabajo' DisplayFormat = 'dd/mm/yy' end object qlistadoplanificaciondescripcion: TWideStringField FieldName = 'descripcion' Required = True Size = 100 end object qlistadoplanificacionfecha_recmedico: TDateField FieldName = 'fecha_recmedico' DisplayFormat = 'dd/mm/yy' end object qlistadoplanificacionfecha_ren_recmedico: TDateField FieldName = 'fecha_ren_recmedico' DisplayFormat = 'dd/mm/yy' end object qlistadoplanificaciontest_agricultura: TWideStringField FieldName = 'test_agricultura' Size = 4 end object qlistadoplanificacionfecha_testcovid19: TDateField FieldName = 'fecha_testcovid19' DisplayFormat = 'dd/mm/yy' end object qlistadoplanificacionformacionrecepdoc: TWideStringField FieldName = 'formacionrecepdoc' Size = 4 end object qlistadoplanificacionmanejo_maquinaria: TWideStringField FieldName = 'manejo_maquinaria' Size = 4 end object qlistadoplanificacionprimeros_auxilios: TWideStringField FieldName = 'primeros_auxilios' Size = 4 end object qlistadoplanificacionfitosanitario_basico: TWideStringField FieldName = 'fitosanitario_basico' Size = 4 end object qlistadoplanificacionfitosanitario_cualificado: TWideStringField FieldName = 'fitosanitario_cualificado' Size = 4 end object qlistadoplanificacionformacion_riego: TWideStringField FieldName = 'formacion_riego' Size = 4 end object qlistadoplanificacionbuenaspract_higiene: TWideStringField FieldName = 'buenaspract_higiene' Size = 4 end object qlistadoplanificacioncurso_sulfuroso: TWideStringField FieldName = 'curso_sulfuroso' Size = 4 end object qlistadoplanificacionmanipulador_frutas: TWideStringField FieldName = 'manipulador_frutas' Size = 4 end object qlistadoplanificacionmantenimiento: TWideStringField FieldName = 'mantenimiento' Size = 4 end object qlistadoplanificacionfecha_carnetmanipulador: TDateField FieldName = 'fecha_carnetmanipulador' DisplayFormat = 'dd/mm/yy' end object qlistadoplanificacionlimpieza: TWideStringField FieldName = 'limpieza' Size = 4 end object qlistadoplanificacionembargos: TWideStringField FieldName = 'embargos' Size = 4 end object qlistadoplanificacionnombre: TWideStringField FieldName = 'nombre' Required = True Size = 80 end object qlistadoplanificacionnif: TWideStringField FieldName = 'nif' Required = True Size = 24 end object qlistadoplanificacionpuesto: TIntegerField FieldName = 'puesto' end object qlistadoplanificacionobservaciones: TWideStringField FieldName = 'observaciones' Size = 500 end object qlistadoplanificaciontipo_carnetconducir: TWideStringField FieldName = 'tipo_carnetconducir' end object qlistadoplanificacionfecha_caducidadconducir: TDateField FieldName = 'fecha_caducidadconducir' end object qlistadoplanificacionfecha_cursosulfuroso: TDateField FieldName = 'fecha_cursosulfuroso' end object qlistadoplanificacioncarnet_conducir: TWideStringField FieldName = 'carnet_conducir' Size = 4 end object qlistadoplanificacionfechanacimiento: TDateField FieldName = 'fechanacimiento' end end object dsqlistadoplanificacion: TDataSource DataSet = qlistadoplanificacion Left = 120 Top = 504 end object dsdocumentos: TDataSource DataSet = documentos Left = 8 Top = 224 end object OpenDialog2: TOpenDialog Options = [ofHideReadOnly, ofAllowMultiSelect, ofEnableSizing] Left = 88 Top = 80 end object dsqjornales: TDataSource DataSet = qjornales OnStateChange = dsqjornalesStateChange Left = 8 Top = 280 end object qjornales: TFDQuery Connection = DM.DBagrigest SQL.Strings = ( 'select * from trabajo_diario where empresa=:EMPRESA and idt=:EMP' + 'LEADO and year(fecha) like(:ANYO) and month(fecha) like (:MES) o' + 'rder by id desc') Params = < item DataType = ftUnknown Name = 'EMPRESA' ParamType = ptUnknown end item DataType = ftUnknown Name = 'EMPLEADO' ParamType = ptUnknown end item DataType = ftUnknown Name = 'ANYO' ParamType = ptUnknown end item DataType = ftUnknown Name = 'MES' ParamType = ptUnknown end> Left = 56 Top = 280 ParamData = < item DataType = ftUnknown Name = 'EMPRESA' ParamType = ptUnknown end item DataType = ftUnknown Name = 'EMPLEADO' ParamType = ptUnknown end item DataType = ftUnknown Name = 'ANYO' ParamType = ptUnknown end item DataType = ftUnknown Name = 'MES' ParamType = ptUnknown end> object qjornalesid: TIntegerField FieldName = 'id' Required = True end object qjornalesempresa: TIntegerField FieldName = 'empresa' Required = True end object qjornalesfecha: TDateField FieldName = 'fecha' end object qjornalesparcela: TWideStringField FieldName = 'parcela' Size = 30 end object qjornalesidt: TIntegerField FieldName = 'idt' end object qjornalestrabajador: TWideStringField FieldName = 'trabajador' Size = 100 end object qjornalestypework: TWideStringField FieldName = 'typework' Size = 40 end object qjornalesarticulo: TWideStringField DisplayWidth = 20 FieldName = 'articulo' Size = 100 end object qjornalesqhoras: TFloatField FieldName = 'qhoras' end object qjornalesprecio: TFloatField FieldName = 'precio' end object qjornalestotal: TFloatField FieldName = 'total' end object qjornalesestado: TWideStringField FieldName = 'estado' Size = 2 end object qjornalesorigen: TWideStringField FieldName = 'origen' Size = 200 end object qjornalesfechainsmod: TDateTimeField FieldName = 'fechainsmod' end object qjornalesusuario: TIntegerField FieldName = 'usuario' end object qjornalescontrol: TIntegerField FieldName = 'control' end object qjornaleshoras_nomina: TFloatField FieldName = 'horas_nomina' end object qjornaleshoras_acumuladas: TFloatField FieldName = 'horas_acumuladas' end object qjornalesidparte1: TIntegerField FieldName = 'idparte1' end object qjornalesidparte2: TIntegerField FieldName = 'idparte2' end end object dsqanticipos: TDataSource DataSet = qanticipos OnStateChange = dsqanticiposStateChange Left = 8 Top = 328 end object qanticipos: TFDQuery Connection = DM.DBagrigest SQL.Strings = ( 'select * from anticipos where ide=:EMPRESA and idt=:EMPLEADO and' + ' year(fecha) like (:ANYO) and month(fecha) like (:MES) order by ' + 'fecha desc') Params = < item DataType = ftUnknown Name = 'EMPRESA' ParamType = ptUnknown end item DataType = ftUnknown Name = 'EMPLEADO' ParamType = ptUnknown end item DataType = ftUnknown Name = 'ANYO' ParamType = ptUnknown end item DataType = ftUnknown Name = 'MES' ParamType = ptUnknown end> Left = 56 Top = 328 ParamData = < item DataType = ftUnknown Name = 'EMPRESA' ParamType = ptUnknown end item DataType = ftUnknown Name = 'EMPLEADO' ParamType = ptUnknown end item DataType = ftUnknown Name = 'ANYO' ParamType = ptUnknown end item DataType = ftUnknown Name = 'MES' ParamType = ptUnknown end> object qanticiposid: TIntegerField FieldName = 'id' Required = True end object qanticiposidt: TIntegerField FieldName = 'idt' Required = True end object qanticipostrabajador: TWideStringField FieldName = 'trabajador' Required = True Size = 240 end object qanticiposfecha: TDateField FieldName = 'fecha' Required = True end object qanticiposimporte: TFloatField FieldName = 'importe' Required = True end object qanticiposindemnizacion: TFloatField FieldName = 'indemnizacion' end object qanticipospenalizacion: TFloatField FieldName = 'penalizacion' end object qanticiposobservaciones: TWideStringField FieldName = 'observaciones' Size = 160 end object qanticiposestado: TWideStringField FieldName = 'estado' Required = True Size = 2 end object qanticiposformapago: TWideStringField FieldName = 'formapago' Size = 56 end object qanticiposimporteletras: TWideStringField FieldName = 'importeletras' Size = 500 end object qanticiposembargo: TFloatField FieldName = 'embargo' end object qanticiposide: TIntegerField FieldName = 'ide' Required = True end end object documentos: TFDQuery Connection = DM.DBagrigest SQL.Strings = ( 'select id,ide,fecha,descripcion,nomarchivo,extension,idt from do' + 'cumentos where ide=:EMPRESA and idt=:EMPLEADO order by fecha des' + 'c') Params = < item DataType = ftUnknown Name = 'EMPRESA' ParamType = ptUnknown end item DataType = ftUnknown Name = 'EMPLEADO' ParamType = ptUnknown end> Left = 56 Top = 216 ParamData = < item DataType = ftUnknown Name = 'EMPRESA' ParamType = ptUnknown end item DataType = ftUnknown Name = 'EMPLEADO' ParamType = ptUnknown end> object documentosid: TIntegerField FieldName = 'id' Required = True end object documentoside: TIntegerField FieldName = 'ide' Required = True end object documentosfecha: TDateField FieldName = 'fecha' Required = True end object documentosdescripcion: TWideStringField FieldName = 'descripcion' Size = 100 end object documentosnomarchivo: TWideStringField FieldName = 'nomarchivo' Size = 200 end object documentosextension: TWideStringField FieldName = 'extension' Size = 8 end object documentosidt: TIntegerField FieldName = 'idt' end end object documentos_tmp: TFDTable Connection = DM.DBagrigest TableName = 'documentos_tmp' Left = 48 Top = 592 object documentos_tmpid: TIntegerField FieldName = 'id' Required = True end object documentos_tmpide: TIntegerField FieldName = 'ide' Required = True end object documentos_tmpfecha: TDateField FieldName = 'fecha' Required = True end object documentos_tmpdescripcion: TWideStringField FieldName = 'descripcion' Size = 100 end object documentos_tmparchivo: TBlobField FieldName = 'archivo' end object documentos_tmpnomarchivo: TWideStringField FieldName = 'nomarchivo' Size = 200 end object documentos_tmpextension: TWideStringField FieldName = 'extension' Size = 8 end object documentos_tmpidlote: TIntegerField FieldName = 'idlote' end object documentos_tmpcodpar: TWideStringField FieldName = 'codpar' Size = 30 end object documentos_tmpidea: TIntegerField FieldName = 'idea' end object documentos_tmpidt: TIntegerField FieldName = 'idt' end end object qtareas: TFDQuery Connection = DM.DBagrigest SQL.Strings = ( 'select * from tipo_trabajo where activo=1 order by id') Params = <> Left = 208 Top = 544 object qtareasid: TWideStringField DisplayWidth = 20 FieldName = 'id' Required = True Size = 40 end object qtareasnombre: TWideStringField FieldName = 'nombre' Size = 100 end object qtareasactivo: TIntegerField FieldName = 'activo' Required = True end object qtareasempresa: TIntegerField FieldName = 'empresa' end object qtareascoste_elavoracion_campo: TIntegerField FieldName = 'coste_elavoracion_campo' Required = True end object qtareascoste_elavoracion_almacen: TIntegerField FieldName = 'coste_elavoracion_almacen' Required = True end object qtareaselavoracion_produccion: TIntegerField FieldName = 'elavoracion_produccion' Required = True end object qtareasenvasado_produccion: TIntegerField FieldName = 'envasado_produccion' Required = True end object qtareaslogistica_produccion: TIntegerField FieldName = 'logistica_produccion' Required = True end object qtareasseleccionado: TIntegerField FieldName = 'seleccionado' Required = True end object qtareasalmacen_trabajo: TIntegerField FieldName = 'almacen_trabajo' end end object dsqtareas: TDataSource DataSet = qtareas Left = 120 Top = 560 end object qparcelas: TFDQuery Connection = DM.DBagrigest SQL.Strings = ( 'select codpar,nombre from parcelas where activo=1 order by nombr' + 'e') Params = <> Left = 208 Top = 600 object qparcelascodpar: TWideStringField FieldName = 'codpar' Required = True Size = 30 end object qparcelasnombre: TWideStringField FieldName = 'nombre' Size = 100 end end object dsqparcelas: TDataSource DataSet = qparcelas Left = 120 Top = 600 end object dsqentregasmaterial: TDataSource DataSet = qentregasmaterial Left = 16 Top = 432 end object qentregasmaterial: TFDQuery Connection = DM.DBagrigest SQL.Strings = ( 'select * from emp_entregasmaterial where ide=:EMPRESA and idt=:E' + 'MPLEADO order by fecha desc,id desc') Params = < item DataType = ftUnknown Name = 'EMPRESA' ParamType = ptUnknown end item DataType = ftUnknown Name = 'EMPLEADO' ParamType = ptUnknown end> Left = 48 Top = 432 ParamData = < item DataType = ftUnknown Name = 'EMPRESA' ParamType = ptUnknown end item DataType = ftUnknown Name = 'EMPLEADO' ParamType = ptUnknown end> object qentregasmaterialid: TIntegerField FieldName = 'id' Required = True end object qentregasmaterialide: TIntegerField FieldName = 'ide' Required = True end object qentregasmaterialidt: TIntegerField FieldName = 'idt' Required = True end object qentregasmaterialfecha: TDateField FieldName = 'fecha' Required = True DisplayFormat = 'dd/mm/yyyy' end object qentregasmaterialconcepto: TWideStringField FieldName = 'concepto' Required = True Size = 500 end object qentregasmaterialcantidad: TFloatField FieldName = 'cantidad' Required = True end end object qlistadoentregasmaterial: TFDQuery Connection = DM.DBagrigest SQL.Strings = ( 'select t.nombre,t.nif,em.* from emp_entregasmaterial em, trabaja' + 'dores t where em.ide=t.ide and em.idt=t.id and (em.ide,em.idt) i' + 'n (select ide,id from trabajadores where id=:EMPLEADO and ide=:E' + 'MPRESA) order by nombre,fecha') Params = < item DataType = ftUnknown Name = 'EMPLEADO' ParamType = ptUnknown end item DataType = ftUnknown Name = 'EMPRESA' ParamType = ptUnknown end> Left = 56 Top = 480 ParamData = < item DataType = ftUnknown Name = 'EMPLEADO' ParamType = ptUnknown end item DataType = ftUnknown Name = 'EMPRESA' ParamType = ptUnknown end> object qlistadoentregasmaterialnombre: TWideStringField FieldName = 'nombre' Required = True Size = 80 end object qlistadoentregasmaterialnif: TWideStringField FieldName = 'nif' Required = True Size = 24 end object qlistadoentregasmaterialid: TIntegerField FieldName = 'id' Required = True end object qlistadoentregasmaterialide: TIntegerField FieldName = 'ide' Required = True end object qlistadoentregasmaterialidt: TIntegerField FieldName = 'idt' Required = True end object qlistadoentregasmaterialfecha: TDateField FieldName = 'fecha' Required = True end object qlistadoentregasmaterialconcepto: TWideStringField FieldName = 'concepto' Required = True Size = 500 end object qlistadoentregasmaterialcantidad: TFloatField FieldName = 'cantidad' Required = True end end object dsqlistadoentregasmaterial: TDataSource DataSet = qlistadoentregasmaterial Left = 16 Top = 480 end object OpenPictureDialog1: TOpenPictureDialog Left = 896 Top = 40 end object dsqplantillaextincion: TDataSource DataSet = qplantillaextincion Left = 16 Top = 120 end object qplantillaextincion: TFDQuery Connection = DM.DBagrigest SQL.Strings = ( 'select id,nif,nombre,fechabaja,'#39' '#39' as jorreales,'#39' '#39' as causa,'#39' '#39 + ' as d1,'#39' '#39' as d2,'#39' '#39' as d3,'#39' '#39' as d4,'#39' '#39' as d5,'#39' '#39' as d6,'#39' '#39' as ' + 'd7,'#39' '#39' as d8,'#39' '#39' as d9,'#39' '#39' as d10,'#39' '#39' as d11,'#39' '#39' as d12,'#39' '#39' as d' + '13,'#39' '#39' as d14,'#39' '#39' as d15,'#39' '#39' as d16,'#39' '#39' as d17,'#39' '#39' as d18,'#39' '#39' as' + ' d19,'#39' '#39' as d20,'#39' '#39' as d21,'#39' '#39' as d22,'#39' '#39' as d23,'#39' '#39' as d24,'#39' '#39' ' + 'as d25,'#39' '#39' as d26,'#39' '#39' as d27,'#39' '#39' as d28,'#39' '#39' as d29,'#39' '#39' as d30,'#39' ' + #39' as d31 from trabajadores where seleccionado=1 order by nombre') Params = <> Left = 56 Top = 120 object qplantillaextincionid: TSmallintField FieldName = 'id' Required = True end object qplantillaextincionnif: TWideStringField FieldName = 'nif' Required = True Size = 24 end object qplantillaextincionnombre: TWideStringField FieldName = 'nombre' Required = True Size = 80 end object qplantillaextincionjorreales: TWideStringField FieldName = 'jorreales' ReadOnly = True Size = 2 end object qplantillaextinciond1: TWideStringField FieldName = 'd1' ReadOnly = True Size = 2 end object qplantillaextinciond2: TWideStringField FieldName = 'd2' ReadOnly = True Size = 2 end object qplantillaextinciond3: TWideStringField FieldName = 'd3' ReadOnly = True Size = 2 end object qplantillaextinciond4: TWideStringField FieldName = 'd4' ReadOnly = True Size = 2 end object qplantillaextinciond5: TWideStringField FieldName = 'd5' ReadOnly = True Size = 2 end object qplantillaextinciond6: TWideStringField FieldName = 'd6' ReadOnly = True Size = 2 end object qplantillaextinciond7: TWideStringField FieldName = 'd7' ReadOnly = True Size = 2 end object qplantillaextinciond8: TWideStringField FieldName = 'd8' ReadOnly = True Size = 2 end object qplantillaextinciond9: TWideStringField FieldName = 'd9' ReadOnly = True Size = 2 end object qplantillaextinciond10: TWideStringField FieldName = 'd10' ReadOnly = True Size = 2 end object qplantillaextinciond11: TWideStringField FieldName = 'd11' ReadOnly = True Size = 2 end object qplantillaextinciond12: TWideStringField FieldName = 'd12' ReadOnly = True Size = 2 end object qplantillaextinciond13: TWideStringField FieldName = 'd13' ReadOnly = True Size = 2 end object qplantillaextinciond14: TWideStringField FieldName = 'd14' ReadOnly = True Size = 2 end object qplantillaextinciond15: TWideStringField FieldName = 'd15' ReadOnly = True Size = 2 end object qplantillaextinciond16: TWideStringField FieldName = 'd16' ReadOnly = True Size = 2 end object qplantillaextinciond17: TWideStringField FieldName = 'd17' ReadOnly = True Size = 2 end object qplantillaextinciond18: TWideStringField FieldName = 'd18' ReadOnly = True Size = 2 end object qplantillaextinciond19: TWideStringField FieldName = 'd19' ReadOnly = True Size = 2 end object qplantillaextinciond20: TWideStringField FieldName = 'd20' ReadOnly = True Size = 2 end object qplantillaextinciond21: TWideStringField FieldName = 'd21' ReadOnly = True Size = 2 end object qplantillaextinciond22: TWideStringField FieldName = 'd22' ReadOnly = True Size = 2 end object qplantillaextinciond23: TWideStringField FieldName = 'd23' ReadOnly = True Size = 2 end object qplantillaextinciond24: TWideStringField FieldName = 'd24' ReadOnly = True Size = 2 end object qplantillaextinciond25: TWideStringField FieldName = 'd25' ReadOnly = True Size = 2 end object qplantillaextinciond26: TWideStringField FieldName = 'd26' ReadOnly = True Size = 2 end object qplantillaextinciond27: TWideStringField FieldName = 'd27' ReadOnly = True Size = 2 end object qplantillaextinciond28: TWideStringField FieldName = 'd28' ReadOnly = True Size = 2 end object qplantillaextinciond29: TWideStringField FieldName = 'd29' ReadOnly = True Size = 2 end object qplantillaextinciond30: TWideStringField FieldName = 'd30' ReadOnly = True Size = 2 end object qplantillaextinciond31: TWideStringField FieldName = 'd31' ReadOnly = True Size = 2 end object qplantillaextincionfechabaja: TDateField FieldName = 'fechabaja' end object qplantillaextincioncausa: TWideStringField FieldName = 'causa' ReadOnly = True Size = 2 end end object dsqplantillacomunicacion: TDataSource DataSet = qplantillacomunicacion Left = 16 Top = 88 end object qplantillacomunicacion: TFDQuery Connection = DM.DBagrigest SQL.Strings = ( 'select id,nif,nombre,fechabaja,'#39' '#39' as jorreales,'#39' '#39' as causa,'#39' '#39 + ' as d1,'#39' '#39' as d2,'#39' '#39' as d3,'#39' '#39' as d4,'#39' '#39' as d5,'#39' '#39' as d6,'#39' '#39' as ' + 'd7,'#39' '#39' as d8,'#39' '#39' as d9,'#39' '#39' as d10,'#39' '#39' as d11,'#39' '#39' as d12,'#39' '#39' as d' + '13,'#39' '#39' as d14,'#39' '#39' as d15,'#39' '#39' as d16,'#39' '#39' as d17,'#39' '#39' as d18,'#39' '#39' as' + ' d19,'#39' '#39' as d20,'#39' '#39' as d21,'#39' '#39' as d22,'#39' '#39' as d23,'#39' '#39' as d24,'#39' '#39' ' + 'as d25,'#39' '#39' as d26,'#39' '#39' as d27,'#39' '#39' as d28,'#39' '#39' as d29,'#39' '#39' as d30,'#39' ' + #39' as d31 from trabajadores where seleccionado=1 order by nombre') Params = <> Left = 56 Top = 88 object qplantillacomunicacionid: TSmallintField FieldName = 'id' Required = True end object qplantillacomunicacionnif: TWideStringField FieldName = 'nif' Required = True Size = 24 end object qplantillacomunicacionnombre: TWideStringField FieldName = 'nombre' Required = True Size = 80 end object qplantillacomunicacionfechabaja: TDateField FieldName = 'fechabaja' end object qplantillacomunicacionjorreales: TWideStringField FieldName = 'jorreales' ReadOnly = True Size = 2 end object qplantillacomunicacioncausa: TWideStringField FieldName = 'causa' ReadOnly = True Size = 2 end object qplantillacomunicaciond1: TWideStringField FieldName = 'd1' ReadOnly = True Size = 2 end object qplantillacomunicaciond2: TWideStringField FieldName = 'd2' ReadOnly = True Size = 2 end object qplantillacomunicaciond3: TWideStringField FieldName = 'd3' ReadOnly = True Size = 2 end object qplantillacomunicaciond4: TWideStringField FieldName = 'd4' ReadOnly = True Size = 2 end object qplantillacomunicaciond5: TWideStringField FieldName = 'd5' ReadOnly = True Size = 2 end object qplantillacomunicaciond6: TWideStringField FieldName = 'd6' ReadOnly = True Size = 2 end object qplantillacomunicaciond7: TWideStringField FieldName = 'd7' ReadOnly = True Size = 2 end object qplantillacomunicaciond8: TWideStringField FieldName = 'd8' ReadOnly = True Size = 2 end object qplantillacomunicaciond9: TWideStringField FieldName = 'd9' ReadOnly = True Size = 2 end object qplantillacomunicaciond10: TWideStringField FieldName = 'd10' ReadOnly = True Size = 2 end object qplantillacomunicaciond11: TWideStringField FieldName = 'd11' ReadOnly = True Size = 2 end object qplantillacomunicaciond12: TWideStringField FieldName = 'd12' ReadOnly = True Size = 2 end object qplantillacomunicaciond13: TWideStringField FieldName = 'd13' ReadOnly = True Size = 2 end object qplantillacomunicaciond14: TWideStringField FieldName = 'd14' ReadOnly = True Size = 2 end object qplantillacomunicaciond15: TWideStringField FieldName = 'd15' ReadOnly = True Size = 2 end object qplantillacomunicaciond16: TWideStringField FieldName = 'd16' ReadOnly = True Size = 2 end object qplantillacomunicaciond17: TWideStringField FieldName = 'd17' ReadOnly = True Size = 2 end object qplantillacomunicaciond18: TWideStringField FieldName = 'd18' ReadOnly = True Size = 2 end object qplantillacomunicaciond19: TWideStringField FieldName = 'd19' ReadOnly = True Size = 2 end object qplantillacomunicaciond20: TWideStringField FieldName = 'd20' ReadOnly = True Size = 2 end object qplantillacomunicaciond21: TWideStringField FieldName = 'd21' ReadOnly = True Size = 2 end object qplantillacomunicaciond22: TWideStringField FieldName = 'd22' ReadOnly = True Size = 2 end object qplantillacomunicaciond23: TWideStringField FieldName = 'd23' ReadOnly = True Size = 2 end object qplantillacomunicaciond24: TWideStringField FieldName = 'd24' ReadOnly = True Size = 2 end object qplantillacomunicaciond25: TWideStringField FieldName = 'd25' ReadOnly = True Size = 2 end object qplantillacomunicaciond26: TWideStringField FieldName = 'd26' ReadOnly = True Size = 2 end object qplantillacomunicaciond27: TWideStringField FieldName = 'd27' ReadOnly = True Size = 2 end object qplantillacomunicaciond28: TWideStringField FieldName = 'd28' ReadOnly = True Size = 2 end object qplantillacomunicaciond29: TWideStringField FieldName = 'd29' ReadOnly = True Size = 2 end object qplantillacomunicaciond30: TWideStringField FieldName = 'd30' ReadOnly = True Size = 2 end object qplantillacomunicaciond31: TWideStringField FieldName = 'd31' ReadOnly = True Size = 2 end end object dsqempleadosnacion: TDataSource DataSet = qempleadosnacion Left = 48 Top = 40 end object qempleadosnacion: TFDQuery Connection = DM.DBagrigest SQL.Strings = ( 'select id,nif,nombre,paisnac,nacionalidad,num_taquilla from trab' + 'ajadores where seleccionado=1 order by nombre') Params = <> Left = 88 Top = 40 object qempleadosnacionid: TSmallintField FieldName = 'id' Required = True end object qempleadosnacionnif: TWideStringField FieldName = 'nif' Required = True Size = 24 end object qempleadosnacionnombre: TWideStringField FieldName = 'nombre' Required = True Size = 80 end object qempleadosnacionpaisnac: TWideStringField FieldName = 'paisnac' Size = 40 end object qempleadosnacionnacionalidad: TWideStringField FieldName = 'nacionalidad' Size = 40 end object qempleadosnacionnum_taquilla: TIntegerField FieldName = 'num_taquilla' end end object frxRTFExport1: TfrxRTFExport UseFileCache = True ShowProgress = True OverwritePrompt = False DataOnly = False PictureType = gpPNG OpenAfterExport = False Wysiwyg = True Creator = 'FastReport' SuppressPageHeadersFooters = False HeaderFooterMode = hfText AutoSize = False Left = 200 Top = 32 end object frxSimpleTextExport1: TfrxSimpleTextExport UseFileCache = True ShowProgress = True OverwritePrompt = False DataOnly = False Frames = False EmptyLines = False OEMCodepage = False UTF8 = False OpenAfterExport = False DeleteEmptyColumns = True Left = 200 Top = 16 end object qplantillaropa: TFDQuery Connection = DM.DBagrigest SQL.Strings = ( 'select id,nif,nombre,'#39' '#39' as GUANTES,'#39' '#39' as CASULLA,'#39' '#39' as CAMISE' + 'TA,'#39' '#39' as COFIA,'#39' '#39' as GORRA,'#39' '#39' as TIJERA,'#39' '#39' as FECHA,'#39' '#39' as T' + 'AQUILLA from trabajadores where seleccionado=1 order by nombre') Params = <> Left = 56 Top = 376 object qplantillaropaid: TSmallintField FieldName = 'id' Required = True end object qplantillaropanif: TWideStringField FieldName = 'nif' Required = True Size = 24 end object qplantillaropanombre: TWideStringField FieldName = 'nombre' Required = True Size = 80 end object qplantillaropaGUANTES: TWideStringField FieldName = 'GUANTES' ReadOnly = True Size = 2 end object qplantillaropaCASULLA: TWideStringField FieldName = 'CASULLA' ReadOnly = True Size = 2 end object qplantillaropaCAMISETA: TWideStringField FieldName = 'CAMISETA' ReadOnly = True Size = 2 end object qplantillaropaCOFIA: TWideStringField FieldName = 'COFIA' ReadOnly = True Size = 2 end object qplantillaropaGORRA: TWideStringField FieldName = 'GORRA' ReadOnly = True Size = 2 end object qplantillaropaTIJERA: TWideStringField FieldName = 'TIJERA' ReadOnly = True Size = 2 end object qplantillaropaFECHA: TWideStringField FieldName = 'FECHA' ReadOnly = True Size = 2 end object qplantillaropaTAQUILLA: TWideStringField FieldName = 'TAQUILLA' ReadOnly = True Size = 2 end end object dsqplantillaropa: TDataSource DataSet = qplantillaropa Left = 8 Top = 376 end object MenubtAimagen: TPopupMenu Left = 742 Top = 32 object Cargar1: TMenuItem Caption = 'Cargar' OnClick = Cargar1Click end object Capturar1: TMenuItem Caption = 'Capturar' OnClick = Capturar1Click end end object dsemp_firmas: TDataSource DataSet = qemp_firmas Left = 1028 Top = 376 end object dsfirmasdoc: TDataSource DataSet = firmasdoc Left = 1100 Top = 376 end object firmasdoc: TFDTable Connection = DM.DBagrigest Filtered = True TableName = 'firmastmp' Left = 1100 Top = 424 object firmasdocide: TIntegerField FieldName = 'ide' Required = True end object firmasdocidt: TIntegerField FieldName = 'idt' Required = True end object firmasdocfirma: TBlobField FieldName = 'firma' Required = True end end object informefirmadoc: TfrxDBDataset UserName = 'firmasdoc' CloseDataSource = False DataSource = dsfirmasdoc BCDToCurrency = False Left = 608 Top = 88 end object topdf: TfrxPDFExport ShowDialog = False UseFileCache = True ShowProgress = False OverwritePrompt = False DataOnly = False EmbedFontsIfProtected = False InteractiveFormsFontSubset = 'A-Z,a-z,0-9,#43-#47 ' OpenAfterExport = False PrintOptimized = False Outline = False Background = False HTMLTags = True Quality = 95 Transparency = False Author = 'FastReport' Subject = 'FastReport PDF export' Creator = 'FastReport' ProtectionFlags = [ePrint, eModify, eCopy, eAnnot] HideToolbar = False HideMenubar = False HideWindowUI = False FitWindow = False CenterWindow = False PrintScaling = False PdfA = False PDFStandard = psNone PDFVersion = pv17 Left = 688 Top = 96 end object frxCheckBoxObject1: TfrxCheckBoxObject Left = 464 Top = 184 end object qemp_fotos: TFDQuery Connection = DM.DBagrigest SQL.Strings = ( 'select * from emp_fotos where ide=:EMPRESA and idt=:EMPLEADO') Params = < item DataType = ftUnknown Name = 'EMPRESA' ParamType = ptUnknown end item DataType = ftUnknown Name = 'EMPLEADO' ParamType = ptUnknown end> Left = 688 Top = 256 ParamData = < item DataType = ftUnknown Name = 'EMPRESA' ParamType = ptUnknown end item DataType = ftUnknown Name = 'EMPLEADO' ParamType = ptUnknown end> object qemp_fotoside: TIntegerField FieldName = 'ide' Required = True end object qemp_fotosidt: TIntegerField FieldName = 'idt' Required = True end object qemp_fotosimagen: TBlobField FieldName = 'imagen' Required = True end object qemp_fotosextension: TWideStringField FieldName = 'extension' Size = 10 end end object qemp_firmas: TFDQuery Connection = DM.DBagrigest SQL.Strings = ( 'select * from firmas where ide=:EMPRESA and idt=:EMPLEADO') Params = < item DataType = ftUnknown Name = 'EMPRESA' ParamType = ptUnknown end item DataType = ftUnknown Name = 'EMPLEADO' ParamType = ptUnknown end> Left = 1032 Top = 480 ParamData = < item DataType = ftUnknown Name = 'EMPRESA' ParamType = ptUnknown end item DataType = ftUnknown Name = 'EMPLEADO' ParamType = ptUnknown end> object qemp_firmasid: TIntegerField FieldName = 'id' Required = True end object qemp_firmaside: TIntegerField FieldName = 'ide' Required = True end object qemp_firmasidt: TIntegerField FieldName = 'idt' Required = True end object qemp_firmasfirma: TBlobField FieldName = 'firma' Required = True end end object qtemp_doc: TFDQuery Connection = DM.DBagrigest SQL.Strings = ( 'select id,ide,archivo,nomarchivo,extension from documentos where' + ' ide=:EMPRESA and id=:ID ') Params = < item DataType = ftUnknown Name = 'EMPRESA' ParamType = ptUnknown end item DataType = ftUnknown Name = 'ID' ParamType = ptUnknown end> Left = 912 Top = 160 ParamData = < item DataType = ftUnknown Name = 'EMPRESA' ParamType = ptUnknown end item DataType = ftUnknown Name = 'ID' ParamType = ptUnknown end> object qtemp_docid: TIntegerField FieldName = 'id' Required = True end object qtemp_docide: TIntegerField FieldName = 'ide' Required = True end object qtemp_docarchivo: TBlobField FieldName = 'archivo' end object qtemp_docextension: TWideStringField FieldName = 'extension' Size = 8 end object qtemp_docnomarchivo: TWideStringField FieldName = 'nomarchivo' Size = 200 end end object dsqconvocatorias: TDataSource DataSet = qconvocatorias Left = 872 Top = 256 end object qconvocatorias: TFDQuery Connection = DM.DBagrigest SQL.Strings = ( 'select distinct(convocatoria) from trabajadores order by convoca' + 'toria') Params = <> Left = 920 Top = 248 object qconvocatoriasconvocatoria: TWideStringField FieldName = 'convocatoria' Size = 90 end end object qid: TFDQuery Connection = DM.DBagrigest SQL.Strings = ( 'select max(id+1) as id from trabajadores where ide=:EMPRESA') Params = < item DataType = ftUnknown Name = 'EMPRESA' ParamType = ptUnknown end> Left = 504 Top = 136 ParamData = < item DataType = ftUnknown Name = 'EMPRESA' ParamType = ptUnknown end> object qidid: TLargeintField FieldName = 'id' ReadOnly = True end end object qemp_historico: TFDQuery Connection = DM.DBagrigest AutoCalcFields = False BeforePost = qemp_historicoBeforePost AfterPost = qemp_historicoAfterPost BeforeDelete = qemp_historicoBeforeDelete SQL.Strings = ( 'select * from emp_historico order by fecha_alta desc,fecha_inco' + 'rporacion desc') Params = <> MasterFields = 'ide;ID' MasterSource = dsqempleados IndexFieldNames = 'ide;idt' Options = [] Left = 208 Top = 656 object qemp_historicoide: TIntegerField FieldName = 'ide' Required = True end object qemp_historicoidt: TIntegerField FieldName = 'idt' Required = True end object qemp_historicofecha_alta: TDateField FieldName = 'fecha_alta' Required = True DisplayFormat = 'dd/mm/yy' end object qemp_historicofecha_baja: TDateField FieldName = 'fecha_baja' end object qemp_historicomotivo_alta: TWideStringField FieldName = 'motivo_alta' Size = 100 end object qemp_historicomotivo_baja: TWideStringField FieldName = 'motivo_baja' Size = 100 end object qemp_historicofecha_incorporacion: TDateField FieldName = 'fecha_incorporacion' DisplayFormat = 'dd/mm/yy' end object qemp_historicofecha_desconexion: TDateField FieldName = 'fecha_desconexion' end end object dsqemp_historico: TDataSource AutoEdit = False DataSet = qemp_historico Left = 120 Top = 656 end object dsqempresaformularios: TDataSource DataSet = qempresaformularios Left = 752 Top = 112 end object qempresaformularios: TFDQuery Connection = DM.DBagrigest SQL.Strings = ( 'select * from empresa order by ID') Params = <> Left = 752 Top = 152 object qempresaformulariosid: TIntegerField FieldName = 'id' Required = True end object qempresaformularioscif: TWideStringField FieldName = 'cif' Required = True Size = 18 end object qempresaformulariosnombre: TWideStringField FieldName = 'nombre' Required = True Size = 120 end object qempresaformulariosdireccion: TWideStringField FieldName = 'direccion' Required = True Size = 80 end object qempresaformularioscodpost: TWideStringField FieldName = 'codpost' Required = True Size = 10 end object qempresaformulariospoblacion: TWideStringField FieldName = 'poblacion' Required = True Size = 80 end object qempresaformulariosprovincia: TWideStringField FieldName = 'provincia' Required = True Size = 80 end object qempresaformulariosemail: TWideStringField FieldName = 'email' Size = 500 end end object INFEMPRESAEMP: TfrxDBDataset UserName = 'INFEMPRESAEMP' CloseDataSource = False FieldAliases.Strings = ( 'id=id' 'cif=cif' 'nombre=nombre' 'direccion=direccion' 'codpost=codpost' 'poblacion=poblacion' 'provincia=provincia' 'email=email') DataSource = dsqempresaformularios BCDToCurrency = False Left = 984 Top = 192 end object qtaquillas: TFDQuery Connection = DM.DBagrigest SQL.Strings = ( 'select distinct(id) from utensilios where idtrabajador is null o' + 'rder by id') Params = <> Left = 1104 Top = 328 object qtaquillasid: TIntegerField FieldName = 'id' Required = True end end object qaltasbajas: TFDQuery Connection = DM.DBagrigest SQL.Strings = ( 'update trabajadores set activo=:MOSTRAR,fechabaja=:FECHA,fechaal' + 'ta=:FECHAALTA where empresa=:EMPRESA and id=:TRABAJADOR') Params = < item DataType = ftUnknown Name = 'MOSTRAR' ParamType = ptUnknown end item DataType = ftUnknown Name = 'FECHA' ParamType = ptUnknown end item DataType = ftUnknown Name = 'FECHAALTA' ParamType = ptUnknown end item DataType = ftUnknown Name = 'EMPRESA' ParamType = ptUnknown end item DataType = ftUnknown Name = 'TRABAJADOR' ParamType = ptUnknown end> Left = 48 Top = 648 ParamData = < item DataType = ftUnknown Name = 'MOSTRAR' ParamType = ptUnknown end item DataType = ftUnknown Name = 'FECHA' ParamType = ptUnknown end item DataType = ftUnknown Name = 'FECHAALTA' ParamType = ptUnknown end item DataType = ftUnknown Name = 'EMPRESA' ParamType = ptUnknown end item DataType = ftUnknown Name = 'TRABAJADOR' ParamType = ptUnknown end> end object qtripartita: TFDQuery Connection = DM.DBagrigest SQL.Strings = ( 'select id,apellidos,nombre,nif,numsegsocial,sexo,fechanacimiento' + ',email,telefono1,0.0 as categoria_prof,0.0 as grupo_cotizacion,0' + '.0 as nivel_estudios,'#39'EMPRESA ' + ' '#39' as empresa,'#39 + 'CIFEMPRESA'#39' as cif_empresa,' '0.0 as coste_cotiz,0.0 as coste_bruto_hora from trabajadores whe' + 're mostrar=1 order by apellidos,nombre') Params = <> Left = 480 Top = 288 object qtripartitaid: TSmallintField FieldName = 'id' Required = True end object qtripartitaapellidos: TWideStringField FieldName = 'apellidos' Size = 120 end object qtripartitanombre: TWideStringField FieldName = 'nombre' Required = True Size = 80 end object qtripartitanif: TWideStringField FieldName = 'nif' Required = True Size = 24 end object qtripartitanumsegsocial: TWideStringField FieldName = 'numsegsocial' Size = 30 end object qtripartitasexo: TWideStringField FieldName = 'sexo' end object qtripartitafechanacimiento: TDateField FieldName = 'fechanacimiento' end object qtripartitaemail: TWideStringField FieldName = 'email' Size = 100 end object qtripartitatelefono1: TWideStringField FieldName = 'telefono1' Size = 30 end object qtripartitacategoria_prof: TFloatField FieldName = 'categoria_prof' ReadOnly = True end object qtripartitagrupo_cotizacion: TFloatField FieldName = 'grupo_cotizacion' ReadOnly = True end object qtripartitanivel_estudios: TFloatField FieldName = 'nivel_estudios' ReadOnly = True end object qtripartitacif_empresa: TWideStringField FieldName = 'cif_empresa' ReadOnly = True end object qtripartitacoste_cotiz: TFloatField FieldName = 'coste_cotiz' ReadOnly = True end object qtripartitacoste_bruto_hora: TFloatField FieldName = 'coste_bruto_hora' ReadOnly = True end object qtripartitaempresa: TWideStringField FieldName = 'empresa' ReadOnly = True Size = 184 end end object dsqtripartita: TDataSource DataSet = qtripartita Left = 472 Top = 256 end object dsqepis: TDataSource DataSet = qepis Left = 328 Top = 152 end object qepis: TFDQuery Connection = DM.DBagrigest SQL.Strings = ( 'select * from epis where ide=:EMPRESA order by descripcion') Params = < item DataType = ftUnknown Name = 'EMPRESA' ParamType = ptUnknown end> Left = 376 Top = 168 ParamData = < item DataType = ftUnknown Name = 'EMPRESA' ParamType = ptUnknown end> object qepisid: TIntegerField FieldName = 'id' Required = True end object qepiside: TIntegerField FieldName = 'ide' Required = True end object qepisdescripcion: TWideStringField FieldName = 'descripcion' Size = 90 end end object dsqinfentregasmaterial: TDataSource DataSet = qinfentregasmaterial Left = 16 Top = 536 end object qinfentregasmaterial: TFDQuery Connection = DM.DBagrigest SQL.Strings = ( 'select * from emp_entregasmaterial where ide=:EMPRESA and idt=:E' + 'MPLEADO and fecha=:FECHA order by fecha desc,id desc') Params = < item DataType = ftUnknown Name = 'EMPRESA' ParamType = ptUnknown end item DataType = ftUnknown Name = 'EMPLEADO' ParamType = ptUnknown end item DataType = ftUnknown Name = 'FECHA' ParamType = ptUnknown end> Left = 48 Top = 536 ParamData = < item DataType = ftUnknown Name = 'EMPRESA' ParamType = ptUnknown end item DataType = ftUnknown Name = 'EMPLEADO' ParamType = ptUnknown end item DataType = ftUnknown Name = 'FECHA' ParamType = ptUnknown end> object qinfentregasmaterialid: TIntegerField FieldName = 'id' Required = True end object qinfentregasmaterialide: TIntegerField FieldName = 'ide' Required = True end object qinfentregasmaterialidt: TIntegerField FieldName = 'idt' Required = True end object qinfentregasmaterialfecha: TDateField FieldName = 'fecha' Required = True end object qinfentregasmaterialconcepto: TWideStringField FieldName = 'concepto' Required = True Size = 500 end object qinfentregasmaterialcantidad: TFloatField FieldName = 'cantidad' Required = True end end end