unit empleados; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls, Vcl.ComCtrls, Vcl.DBCtrls, Vcl.Mask, Vcl.Grids, Vcl.DBGrids, Data.DB, ZAbstractRODataset, ZDataset, ZAbstractDataset, ZAbstractTable, frxClass, frxDBSet,Vcl.OleServer, ComObj, Excel2000, SHDocVw, wgssSTU_TLB,SignatureForm, Vcl.ToolWin, Vcl.ImgList,dateutils, Vcl.ExtDlgs, Vcl.Imaging.jpeg, Vcl.Buttons, VCLTee.TeEngine, VCLTee.Series, VCLTee.TeeData, VCLTee.TeeProcs, VCLTee.Chart, VCLTee.DBChart, Vcl.OleCtrls,IdHTTP,mshtml, frxExportPDF, frxExportCSV, frxCtrls, frxExportText, frxExportRTF, Vcl.Menus, frxChBox, frxPreview, frxExportBaseDialog; type Tfempleados = class(TForm) Panel2: TPanel; Panel1: TPanel; Label1: TLabel; Label28: TLabel; ltotalgrupo: TLabel; tbuscar: TEdit; chktodosempleados: TCheckBox; checktodos2: TCheckBox; listagrupos2: TDBLookupComboBox; DBGrid1: TDBGrid; PageEmpleados: TPageControl; tabDatosGenerales: TTabSheet; Panel9: TPanel; Label12: TLabel; gridplantillaext: TDBGrid; gridplantillacomu: TDBGrid; Panel164: TPanel; Label2: TLabel; Label3: TLabel; Label5: TLabel; Label6: TLabel; Label7: TLabel; Label25: TLabel; Label54: TLabel; Label11: TLabel; Label30: TLabel; DBEdit1: TDBEdit; DBEdit2: TDBEdit; DBEdit4: TDBEdit; DBEdit5: TDBEdit; DBEdit6: TDBEdit; DBEdit9: TDBEdit; DBEdit22: TDBEdit; DBEdit23: TDBEdit; DBEdit24: TDBEdit; DBEdit25: TDBEdit; DBEdit17: TDBEdit; DBEdit8: TDBEdit; DBEdit27: TDBEdit; Panel8: TPanel; TabJornales: TTabSheet; Panel5: TPanel; DBGrid2: TDBGrid; Panel4: TPanel; Label47: TLabel; Label48: TLabel; Label49: TLabel; Label50: TLabel; Label51: TLabel; Label52: TLabel; tfechajornal: TDateTimePicker; lparcela: TDBLookupComboBox; ltrabajo: TDBLookupComboBox; ltipohora: TDBLookupComboBox; thoras: TEdit; lprecio: TEdit; Panel13: TPanel; Label53: TLabel; Shape3: TShape; Label67: TLabel; Label70: TLabel; Shape6: TShape; Label71: TLabel; Shape7: TShape; Label72: TLabel; Shape8: TShape; DBEdit39: TDBEdit; Panel3: TPanel; Label9: TLabel; Label37: TLabel; Label38: TLabel; Tanyo: TComboBox; TMES: TComboBox; TabAnticipos: TTabSheet; Panel12: TPanel; DBGrid3: TDBGrid; Panel11: TPanel; Panel163: TPanel; Label171: TLabel; Label138: TLabel; Label45: TLabel; Label44: TLabel; limporteanticipo: TEdit; lopciones: TComboBox; lobservaciones: TEdit; fechaanticipo: TDateTimePicker; Panel10: TPanel; Label40: TLabel; Label41: TLabel; Label42: TLabel; tanyo2: TComboBox; tmes2: TComboBox; Panel23: TPanel; Label109: TLabel; Shape13: TShape; Label110: TLabel; Label111: TLabel; Shape14: TShape; Label112: TLabel; Shape15: TShape; Label113: TLabel; Shape16: TShape; DBEdit64: TDBEdit; Panel14: TPanel; btEcancelar: TButton; btEmodificar: TButton; btEborrar: TButton; btEnuevo: TButton; btEguardar: TButton; listaimpresion: TComboBox; bteimprimir: TButton; qgrupos: TZReadOnlyQuery; dsqgrupos: TDataSource; dsqgrupos2: TDataSource; qgrupos2: TZReadOnlyQuery; dsqlistaempleados: TDataSource; qlistaempleados: TZReadOnlyQuery; qlistaempleadoside: TIntegerField; qlistaempleadosid: TSmallintField; qlistaempleadosnombre: TWideStringField; qgrupos2ide: TIntegerField; qgrupos2id: TIntegerField; qgrupos2descripcion: TWideStringField; qgruposide: TIntegerField; qgruposid: TIntegerField; qgruposdescripcion: TWideStringField; qempleados: TZQuery; dsqempleados: TDataSource; DBText1: TDBText; DBText2: TDBText; qempleadoside: TIntegerField; qempleadosID: TSmallintField; qempleadosNIF: TWideStringField; qempleadosnombre: TWideStringField; qempleadosactivo: TIntegerField; qempleadosNOMBRECORTO: TWideStringField; qempleadosAPELLIDOS: TWideStringField; qempleadosDIRECCION: TWideStringField; qempleadosCP: TWideStringField; qempleadosPOBLACION: TWideStringField; qempleadosPROVINCIA: TWideStringField; qempleadosFECHANACIMIENTO: TDateField; qempleadosPAISNAC: TWideStringField; qempleadosNACIONALIDAD: TWideStringField; qempleadosSEXO: TWideStringField; qempleadosCBIBAN: TWideStringField; qempleadosCBBANCO: TWideStringField; qempleadosCBOFICINA: TWideStringField; qempleadosCBDC: TWideStringField; qempleadosCBCC: TWideStringField; qempleadosPAGARPORBANCO: TIntegerField; qempleadosTELEFONO1: TWideStringField; qempleadosTELEFONO2: TWideStringField; qempleadosTELEFONO3: TWideStringField; qempleadosTELEFONO4: TWideStringField; qempleadosREGIMEN_COT: TWideStringField; qempleadosNUMSEGSOCIAL: TWideStringField; qempleadosIRPF: TFloatField; qempleadosIRPF2: TFloatField; qempleadosDESEMPLEO: TFloatField; qempleadosDESEMPLEO2: TFloatField; qempleadosFORMACION: TFloatField; qempleadosFORMACION2: TFloatField; qempleadosIMAGEN: TIntegerField; qempleadosOBSERVACIONES: TWideStringField; qempleadosFECHAALTA: TDateField; qempleadosFECHABAJA: TDateField; qempleadosempresa: TIntegerField; qempleadosseleccionado: TIntegerField; qempleadoscodart: TWideStringField; qempleadosmostrar: TIntegerField; dsqtipohora: TDataSource; qtipohora: TZReadOnlyQuery; dsqregimencotizacion: TDataSource; qregimencotizacion: TZReadOnlyQuery; qtipohoracodart: TWideStringField; qtipohoradescrip: TWideStringField; qtipohoraprecio: TFloatField; qtipohoraequivalenciahoras: TFloatField; qtipohoraactivo: TIntegerField; qtipohoraempresa: TIntegerField; qtipohorafacturar: TIntegerField; qtipohoraseleccionado: TIntegerField; qregimencotizacionid: TIntegerField; qregimencotizaciondescripcion: TWideStringField; qregimencotizacionirpf: TFloatField; qregimencotizaciondesempleo: TFloatField; qregimencotizacionformacion: TFloatField; qregimencotizacioncontingencias: TFloatField; dsempfotos: TDataSource; informedb: TfrxDBDataset; informes: TfrxReport; qaux: TZQuery; dsqinftrabajadores: TDataSource; qinftrabajadores: TZReadOnlyQuery; qinftrabajadoresID: TSmallintField; qinftrabajadoresNIF: TWideStringField; qinftrabajadoresnombre: TWideStringField; qinftrabajadoresactivo: TIntegerField; qinftrabajadoresNOMBRECORTO: TWideStringField; qinftrabajadoresAPELLIDOS: TWideStringField; qinftrabajadoresDIRECCION: TWideStringField; qinftrabajadoresCP: TWideStringField; qinftrabajadoresPOBLACION: TWideStringField; qinftrabajadoresPROVINCIA: TWideStringField; qinftrabajadoresFECHANACIMIENTO: TDateField; qinftrabajadoresPAISNAC: TWideStringField; qinftrabajadoresNACIONALIDAD: TWideStringField; qinftrabajadoresSEXO: TWideStringField; qinftrabajadoresCBIBAN: TWideStringField; qinftrabajadoresCBBANCO: TWideStringField; qinftrabajadoresCBOFICINA: TWideStringField; qinftrabajadoresCBDC: TWideStringField; qinftrabajadoresCBCC: TWideStringField; qinftrabajadoresPAGARPORBANCO: TIntegerField; qinftrabajadoresTELEFONO1: TWideStringField; qinftrabajadoresTELEFONO2: TWideStringField; qinftrabajadoresTELEFONO3: TWideStringField; dsqaux: TDataSource; SaveDialog1: TSaveDialog; Panel15: TPanel; Label74: TLabel; Button2: TButton; Image2: TImage; Formacion: TTabSheet; Panel16: TPanel; qempleadosplanificacion: TZQuery; dsqempleadosplanificacion: TDataSource; Panel18: TPanel; DBEdit10: TDBEdit; Panel19: TPanel; Label16: TLabel; DBEdit13: TDBEdit; Panel20: TPanel; Label23: TLabel; Label24: TLabel; DBEdit20: TDBEdit; DBEdit21: TDBEdit; DBEdit26: TDBEdit; Label55: TLabel; Label56: TLabel; Label57: TLabel; Panel7: TPanel; Label19: TLabel; Label21: TLabel; Label22: TLabel; Label26: TLabel; DBEdit16: TDBEdit; DBEdit18: TDBEdit; DBEdit19: TDBEdit; DBEdit28: TDBEdit; DBCheckBox5: TDBCheckBox; DBCheckBox6: TDBCheckBox; DBCheckBox7: TDBCheckBox; Label46: TLabel; Label58: TLabel; DBEdit40: TDBEdit; DBLookupComboBox2: TDBLookupComboBox; Label59: TLabel; dsqpuestostrabajo: TDataSource; qpuestostrabajo: TZReadOnlyQuery; DBCheckBox8: TDBCheckBox; DBCheckBox9: TDBCheckBox; DBCheckBox10: TDBCheckBox; DBCheckBox11: TDBCheckBox; DBCheckBox12: TDBCheckBox; DBCheckBox13: TDBCheckBox; DBCheckBox14: TDBCheckBox; DBCheckBox15: TDBCheckBox; DBCheckBox16: TDBCheckBox; Label10: TLabel; DBCheckBox17: TDBCheckBox; qempleadosplanificacionidt: TSmallintField; qempleadosplanificacionide: TIntegerField; qempleadosplanificacionlocalizacion: TWideStringField; qempleadosplanificacionvto_permisotrabajo: TDateField; qempleadosplanificacionpuesto: TIntegerField; qempleadosplanificacionfecha_recmedico: TDateField; qempleadosplanificacionfecha_ren_recmedico: TDateField; qempleadosplanificaciontest_agricultura: TWideStringField; qempleadosplanificacionfecha_testcovid19: TDateField; qempleadosplanificacionformacionrecepdoc: TWideStringField; qempleadosplanificacionmanejo_maquinaria: TWideStringField; qempleadosplanificacionprimeros_auxilios: TWideStringField; qempleadosplanificacionfitosanitario_basico: TWideStringField; qempleadosplanificacionfitosanitario_cualificado: TWideStringField; qempleadosplanificacionformacion_riego: TWideStringField; qempleadosplanificacionbuenaspract_higiene: TWideStringField; qempleadosplanificacioncurso_sulfuroso: TWideStringField; qempleadosplanificacionmanipulador_frutas: TWideStringField; qempleadosplanificacionmantenimiento: TWideStringField; qempleadosplanificacionfecha_carnetmanipulador: TDateField; qempleadosplanificacionlimpieza: TWideStringField; qempleadosplanificacionembargos: TWideStringField; Label27: TLabel; Label31: TLabel; Label32: TLabel; Label33: TLabel; Label34: TLabel; Label35: TLabel; Label36: TLabel; Label13: TLabel; Label309: TLabel; DBText8: TDBText; DBEdit34: TDBEdit; DBEdit35: TDBEdit; DBEdit36: TDBEdit; DBEdit37: TDBEdit; DBMemo1: TDBMemo; DBCheckBox1: TDBCheckBox; DBCheckBox2: TDBCheckBox; DBCheckBox3: TDBCheckBox; DBEdit38: TDBEdit; DBCheckBox4: TDBCheckBox; DBEdit32: TDBEdit; DBEdit29: TDBEdit; DBEdit30: TDBEdit; DBEdit31: TDBEdit; DBEdit33: TDBEdit; DBLookupComboBox13: TDBLookupComboBox; DBLookupComboBox1: TDBLookupComboBox; Panel6: TPanel; Panel21: TPanel; Panel22: TPanel; Label14: TLabel; Button3: TButton; Button4: TButton; Button6: TButton; Button7: TButton; Button9: TButton; Panel24: TPanel; imgfoto: TImage; DBGrid4: TDBGrid; Button10: TButton; Memo1: TMemo; Button11: TButton; Panel25: TPanel; DBText3: TDBText; btplaceptar: TButton; btplcancelar: TButton; btplmodificar: TButton; qlistadoplanificacion: TZReadOnlyQuery; dsqlistadoplanificacion: TDataSource; qlistadoplanificacionidt: TSmallintField; qlistadoplanificacionide: TIntegerField; qlistadoplanificacionlocalizacion: TWideStringField; qlistadoplanificacionvto_permisotrabajo: TDateField; qlistadoplanificacionfecha_recmedico: TDateField; qlistadoplanificacionfecha_ren_recmedico: TDateField; qlistadoplanificaciontest_agricultura: TWideStringField; qlistadoplanificacionfecha_testcovid19: TDateField; qlistadoplanificacionformacionrecepdoc: TWideStringField; qlistadoplanificacionmanejo_maquinaria: TWideStringField; qlistadoplanificacionprimeros_auxilios: TWideStringField; qlistadoplanificacionfitosanitario_basico: TWideStringField; qlistadoplanificacionfitosanitario_cualificado: TWideStringField; qlistadoplanificacionformacion_riego: TWideStringField; qlistadoplanificacionbuenaspract_higiene: TWideStringField; qlistadoplanificacioncurso_sulfuroso: TWideStringField; qlistadoplanificacionmanipulador_frutas: TWideStringField; qlistadoplanificacionmantenimiento: TWideStringField; qlistadoplanificacionfecha_carnetmanipulador: TDateField; qlistadoplanificacionlimpieza: TWideStringField; qlistadoplanificacionembargos: TWideStringField; qlistadoplanificacionnombre: TWideStringField; qlistadoplanificacionnif: TWideStringField; qlistadoplanificacionfechaalta: TDateField; qlistadoplanificacionfechabaja: TDateField; dsdocumentos: TDataSource; OpenDialog2: TOpenDialog; dsqjornales: TDataSource; qjornales: TZQuery; dsqanticipos: TDataSource; qanticipos: TZQuery; documentos: TZQuery; documentosid: TIntegerField; documentoside: TIntegerField; documentosfecha: TDateField; documentosdescripcion: TWideStringField; documentosnomarchivo: TWideStringField; documentosextension: TWideStringField; documentosidt: TIntegerField; documentos_tmp: TZTable; Panel26: TPanel; btptcancelar: TButton; btptmodificar: TButton; btptborrar: TButton; btptnuevo: TButton; btptguardar: TButton; qtareas: TZReadOnlyQuery; dsqtareas: TDataSource; qparcelas: TZReadOnlyQuery; dsqparcelas: TDataSource; qtareasid: TWideStringField; qtareasnombre: TWideStringField; qtareasactivo: TIntegerField; qtareasempresa: TIntegerField; qtareascoste_elavoracion_campo: TIntegerField; qtareascoste_elavoracion_almacen: TIntegerField; qtareaselavoracion_produccion: TIntegerField; qtareasenvasado_produccion: TIntegerField; qtareaslogistica_produccion: TIntegerField; qtareasseleccionado: TIntegerField; qtareasalmacen_trabajo: TIntegerField; dsqentregasmaterial: TDataSource; qentregasmaterial: TZQuery; Tabentregas: TTabSheet; Panel27: TPanel; btEMcancelar: TButton; btEMmodificar: TButton; btEMborrar: TButton; btEMnuevo: TButton; btEMaceptar: TButton; btEMimprimir: TButton; Panel28: TPanel; DBText4: TDBText; DBGrid5: TDBGrid; Panel29: TPanel; DBGrid6: TDBGrid; Panel30: TPanel; qentregasmaterialid: TIntegerField; qentregasmaterialide: TIntegerField; qentregasmaterialidt: TIntegerField; qentregasmaterialfecha: TDateField; qentregasmaterialconcepto: TWideStringField; Panel31: TPanel; Label17: TLabel; Button8: TButton; Button13: TButton; fentregamaterial: TDateTimePicker; Label18: TLabel; Label20: TLabel; Edit1: TEdit; Label60: TLabel; Edit2: TEdit; qentregasmaterialcantidad: TFloatField; qlistadoentregasmaterial: TZReadOnlyQuery; dsqlistadoentregasmaterial: TDataSource; qlistadoentregasmaterialnombre: TWideStringField; qlistadoentregasmaterialnif: TWideStringField; qlistadoentregasmaterialid: TIntegerField; qlistadoentregasmaterialide: TIntegerField; qlistadoentregasmaterialidt: TIntegerField; qlistadoentregasmaterialfecha: TDateField; qlistadoentregasmaterialconcepto: TWideStringField; qlistadoentregasmaterialcantidad: TFloatField; qlistadoplanificaciondescripcion: TWideStringField; qjornalesid: TIntegerField; qjornalesempresa: TIntegerField; qjornalesfecha: TDateField; qjornalesparcela: TWideStringField; qjornalesidt: TIntegerField; qjornalestrabajador: TWideStringField; qjornalestypework: TWideStringField; qjornalesarticulo: TWideStringField; qjornalesqhoras: TFloatField; qjornalesprecio: TFloatField; qjornalestotal: TFloatField; qjornalesestado: TWideStringField; qjornalesorigen: TWideStringField; qjornalesfechainsmod: TDateTimeField; qjornalesusuario: TIntegerField; qjornalescontrol: TIntegerField; qjornaleshoras_nomina: TFloatField; qjornaleshoras_acumuladas: TFloatField; qjornalesidparte1: TIntegerField; qjornalesidparte2: TIntegerField; qparcelascodpar: TWideStringField; qparcelasnombre: TWideStringField; Button14: TButton; Panel32: TPanel; bteacancelar: TButton; bteamodificar: TButton; bteaborrar: TButton; bteanuevo: TButton; bteaguardar: TButton; bteaimprimir: TButton; qanticiposid: TIntegerField; qanticiposidt: TIntegerField; qanticipostrabajador: TWideStringField; qanticiposfecha: TDateField; qanticiposimporte: TFloatField; qanticiposindemnizacion: TFloatField; qanticipospenalizacion: TFloatField; qanticiposobservaciones: TWideStringField; qanticiposestado: TWideStringField; qanticiposformapago: TWideStringField; qanticiposimporteletras: TWideStringField; qanticiposembargo: TFloatField; OpenPictureDialog1: TOpenPictureDialog; DBMemo2: TDBMemo; Label39: TLabel; qempleadosplanificacionobservaciones: TWideStringField; Panel33: TPanel; Label4: TLabel; Label8: TLabel; Label29: TLabel; DBEdit3: TDBEdit; DBEdit7: TDBEdit; DBCheckBox26: TDBCheckBox; listagrupos: TDBLookupComboBox; Panel34: TPanel; Panel35: TPanel; Panel36: TPanel; Label43: TLabel; Button5: TButton; Button15: TButton; Button16: TButton; Button17: TButton; Button19: TButton; Panel37: TPanel; DBGrid7: TDBGrid; Button20: TButton; Memo2: TMemo; Button21: TButton; DBEdit11: TDBEdit; qlistadoplanificacionpuesto: TIntegerField; qlistadoplanificacionobservaciones: TWideStringField; qlistadoplanificaciontipo_carnetconducir: TWideStringField; qlistadoplanificacionfecha_caducidadconducir: TDateField; qlistadoplanificacionfecha_cursosulfuroso: TDateField; qempleadosplanificaciontipo_carnetconducir: TWideStringField; qempleadosplanificacionfecha_caducidadconducir: TDateField; qempleadosplanificacionfecha_cursosulfuroso: TDateField; DBCheckBox18: TDBCheckBox; DBEdit12: TDBEdit; Label61: TLabel; Label62: TLabel; DBEdit14: TDBEdit; qlistadoplanificacioncarnet_conducir: TWideStringField; qempleadosplanificacioncarnet_conducir: TWideStringField; qlistaempleadosvto_permisotrabajo: TDateField; dsqplantillaextincion: TDataSource; qplantillaextincion: TZQuery; dsqplantillacomunicacion: TDataSource; qplantillacomunicacion: TZQuery; qplantillacomunicacionid: TSmallintField; qplantillacomunicacionnif: TWideStringField; qplantillacomunicacionnombre: TWideStringField; qplantillacomunicacionfechabaja: TDateField; qplantillacomunicacionjorreales: TWideStringField; qplantillacomunicacioncausa: TWideStringField; qplantillacomunicaciond1: TWideStringField; qplantillacomunicaciond2: TWideStringField; qplantillacomunicaciond3: TWideStringField; qplantillacomunicaciond4: TWideStringField; qplantillacomunicaciond5: TWideStringField; qplantillacomunicaciond6: TWideStringField; qplantillacomunicaciond7: TWideStringField; qplantillacomunicaciond8: TWideStringField; qplantillacomunicaciond9: TWideStringField; qplantillacomunicaciond10: TWideStringField; qplantillacomunicaciond11: TWideStringField; qplantillacomunicaciond12: TWideStringField; qplantillacomunicaciond13: TWideStringField; qplantillacomunicaciond14: TWideStringField; qplantillacomunicaciond15: TWideStringField; qplantillacomunicaciond16: TWideStringField; qplantillacomunicaciond17: TWideStringField; qplantillacomunicaciond18: TWideStringField; qplantillacomunicaciond19: TWideStringField; qplantillacomunicaciond20: TWideStringField; qplantillacomunicaciond21: TWideStringField; qplantillacomunicaciond22: TWideStringField; qplantillacomunicaciond23: TWideStringField; qplantillacomunicaciond24: TWideStringField; qplantillacomunicaciond25: TWideStringField; qplantillacomunicaciond26: TWideStringField; qplantillacomunicaciond27: TWideStringField; qplantillacomunicaciond28: TWideStringField; qplantillacomunicaciond29: TWideStringField; qplantillacomunicaciond30: TWideStringField; qplantillacomunicaciond31: TWideStringField; qplantillaextincionid: TSmallintField; qplantillaextincionnif: TWideStringField; qplantillaextincionnombre: TWideStringField; qplantillaextincionjorreales: TWideStringField; qplantillaextinciond1: TWideStringField; qplantillaextinciond2: TWideStringField; qplantillaextinciond3: TWideStringField; qplantillaextinciond4: TWideStringField; qplantillaextinciond5: TWideStringField; qplantillaextinciond6: TWideStringField; qplantillaextinciond7: TWideStringField; qplantillaextinciond8: TWideStringField; qplantillaextinciond9: TWideStringField; qplantillaextinciond10: TWideStringField; qplantillaextinciond11: TWideStringField; qplantillaextinciond12: TWideStringField; qplantillaextinciond13: TWideStringField; qplantillaextinciond14: TWideStringField; qplantillaextinciond15: TWideStringField; qplantillaextinciond16: TWideStringField; qplantillaextinciond17: TWideStringField; qplantillaextinciond18: TWideStringField; qplantillaextinciond19: TWideStringField; qplantillaextinciond20: TWideStringField; qplantillaextinciond21: TWideStringField; qplantillaextinciond22: TWideStringField; qplantillaextinciond23: TWideStringField; qplantillaextinciond24: TWideStringField; qplantillaextinciond25: TWideStringField; qplantillaextinciond26: TWideStringField; qplantillaextinciond27: TWideStringField; qplantillaextinciond28: TWideStringField; qplantillaextinciond29: TWideStringField; qplantillaextinciond30: TWideStringField; qplantillaextinciond31: TWideStringField; dsqempleadosnacion: TDataSource; qempleadosnacion: TZQuery; gridempleadosnacion: TDBGrid; qempleadosnacionid: TSmallintField; qempleadosnacionnif: TWideStringField; qempleadosnacionnombre: TWideStringField; qempleadosnacionpaisnac: TWideStringField; qempleadosnacionnacionalidad: TWideStringField; qplantillaextincionfechabaja: TDateField; qplantillaextincioncausa: TWideStringField; qlistadoplanificacionfechanacimiento: TDateField; documentos_tmpid: TIntegerField; documentos_tmpide: TIntegerField; documentos_tmpfecha: TDateField; documentos_tmpdescripcion: TWideStringField; documentos_tmparchivo: TBlobField; documentos_tmpnomarchivo: TWideStringField; documentos_tmpextension: TWideStringField; documentos_tmpidlote: TIntegerField; documentos_tmpcodpar: TWideStringField; documentos_tmpidea: TIntegerField; documentos_tmpidt: TIntegerField; frxRTFExport1: TfrxRTFExport; frxSimpleTextExport1: TfrxSimpleTextExport; GRIDPLANTILLAROPA: TDBGrid; qplantillaropa: TZQuery; dsqplantillaropa: TDataSource; qplantillaropaid: TSmallintField; qplantillaropanif: TWideStringField; qplantillaropanombre: TWideStringField; qplantillaropaGUANTES: TWideStringField; qplantillaropaCASULLA: TWideStringField; qplantillaropaCAMISETA: TWideStringField; qplantillaropaCOFIA: TWideStringField; qplantillaropaGORRA: TWideStringField; qplantillaropaTIJERA: TWideStringField; qplantillaropaFECHA: TWideStringField; qplantillaropaTAQUILLA: TWideStringField; Label63: TLabel; DBEdit15: TDBEdit; qempleadoscontrolcalidad: TIntegerField; qempleadoshorascontrato: TFloatField; btEimagen: TButton; imgfotoe: TImage; panelfotoe: TPanel; MenubtAimagen: TPopupMenu; Cargar1: TMenuItem; Capturar1: TMenuItem; btdesactivarcamara: TButton; btactivarcamara: TButton; btEoKimagen: TButton; Button1: TButton; Label64: TLabel; tfirmas: TImage; DBCheckBox19: TDBCheckBox; dsemp_firmas: TDataSource; listadocsfirma: TComboBox; Label65: TLabel; Button18: TButton; tfirmadocs: TImage; dsfirmasdoc: TDataSource; firmasdoc: TZTable; firmasdocide: TIntegerField; firmasdocidt: TIntegerField; firmasdocfirma: TBlobField; informefirmadoc: TfrxDBDataset; topdf: TfrxPDFExport; frxCheckBoxObject1: TfrxCheckBoxObject; Button22: TButton; TabSheet1: TTabSheet; Panel17: TPanel; Label15: TLabel; Panel166: TPanel; Label73: TLabel; btedoccancelar: TButton; Button12: TButton; DBGrid75: TDBGrid; qanticiposide: TIntegerField; qemp_fotos: TZQuery; qemp_fotoside: TIntegerField; qemp_fotosidt: TIntegerField; qemp_fotosimagen: TBlobField; qemp_fotosextension: TWideStringField; qemp_firmas: TZQuery; qemp_firmasid: TIntegerField; qemp_firmaside: TIntegerField; qemp_firmasidt: TIntegerField; qemp_firmasfirma: TBlobField; qtemp_doc: TZQuery; qtemp_docid: TIntegerField; qtemp_docide: TIntegerField; qtemp_docarchivo: TBlobField; qtemp_docextension: TWideStringField; qtemp_docnomarchivo: TWideStringField; qempleadosCONTINGENCIAS: TFloatField; qinftrabajadoreside: TIntegerField; qinftrabajadoresTELEFONO4: TWideStringField; qinftrabajadoresREGIMEN_COT: TWideStringField; qinftrabajadoresNUMSEGSOCIAL: TWideStringField; qinftrabajadoresIRPF: TFloatField; qinftrabajadoresIRPF2: TFloatField; qinftrabajadoresDESEMPLEO: TFloatField; qinftrabajadoresDESEMPLEO2: TFloatField; qinftrabajadoresFORMACION: TFloatField; qinftrabajadoresFORMACION2: TFloatField; qinftrabajadoresIMAGEN: TIntegerField; qinftrabajadoresOBSERVACIONES: TWideStringField; qinftrabajadoresFECHAALTA: TDateField; qinftrabajadoresFECHABAJA: TDateField; qinftrabajadoresCONTINGENCIAS: TFloatField; qinftrabajadoresempresa: TIntegerField; qinftrabajadoresseleccionado: TIntegerField; qinftrabajadorescodart: TWideStringField; qinftrabajadoresmostrar: TIntegerField; qinftrabajadorescontrolcalidad: TIntegerField; qinftrabajadoreshorascontrato: TFloatField; qinftrabajadoresimagen_1: TBlobField; qempleadosFIJO: TIntegerField; qempleadosFIJODISCONTINUO: TIntegerField; qempleadosTEMPORAL: TIntegerField; qinftrabajadoresFIJO: TIntegerField; qinftrabajadoresFIJODISCONTINUO: TIntegerField; qinftrabajadoresTEMPORAL: TIntegerField; Label66: TLabel; DBEdit41: TDBEdit; qempleadosnum_taquilla: TIntegerField; Label68: TLabel; DBEdit42: TDBEdit; qempleadosemail: TWideStringField; Label69: TLabel; DBEdit43: TDBEdit; qempleadosconvocatoria: TWideStringField; dsqconvocatorias: TDataSource; qconvocatorias: TZReadOnlyQuery; qconvocatoriasconvocatoria: TWideStringField; listaconvocatorias: TDBLookupListBox; DBEdit44: TDBEdit; Label75: TLabel; DBEdit45: TDBEdit; Label76: TLabel; Button23: TButton; qid: TZReadOnlyQuery; qidid: TLargeintField; qempleadosnacionnum_taquilla: TIntegerField; qemp_historico: TZQuery; qemp_historicoide: TIntegerField; qemp_historicoidt: TIntegerField; qemp_historicofecha_alta: TDateField; qemp_historicofecha_baja: TDateField; qemp_historicomotivo_alta: TWideStringField; qemp_historicomotivo_baja: TWideStringField; dsqemp_historico: TDataSource; dsqempresaformularios: TDataSource; qempresaformularios: TZReadOnlyQuery; comboformulario: TDBLookupComboBox; qempresaformularioscif: TWideStringField; qempresaformulariosnombre: TWideStringField; INFEMPRESAEMP: TfrxDBDataset; qemp_historicofecha_incorporacion: TDateField; Label77: TLabel; DBEdit46: TDBEdit; qemp_historicofecha_desconexion: TDateField; Label78: TLabel; DBEdit47: TDBEdit; qtaquillas: TZReadOnlyQuery; qtaquillasid: TIntegerField; qaltasbajas: TZQuery; qtripartita: TZReadOnlyQuery; dsqtripartita: TDataSource; GRIDTRIPARTITA: TDBGrid; qempresaformulariosid: TIntegerField; qtripartitaid: TSmallintField; qtripartitaapellidos: TWideStringField; qtripartitanombre: TWideStringField; qtripartitanif: TWideStringField; qtripartitanumsegsocial: TWideStringField; qtripartitasexo: TWideStringField; qtripartitafechanacimiento: TDateField; qtripartitaemail: TWideStringField; qtripartitatelefono1: TWideStringField; qtripartitacategoria_prof: TFloatField; qtripartitagrupo_cotizacion: TFloatField; qtripartitanivel_estudios: TFloatField; qtripartitacif_empresa: TWideStringField; qtripartitacoste_cotiz: TFloatField; qtripartitacoste_bruto_hora: TFloatField; qtripartitaempresa: TWideStringField; qempresaformulariosdireccion: TWideStringField; qempresaformularioscodpost: TWideStringField; qempresaformulariospoblacion: TWideStringField; qempresaformulariosprovincia: TWideStringField; qempresaformulariosemail: TWideStringField; DBGrid8: TDBGrid; dsqepis: TDataSource; qepis: TZReadOnlyQuery; qepisid: TIntegerField; qepiside: TIntegerField; qepisdescripcion: TWideStringField; Panel38: TPanel; Button24: TButton; Button25: TButton; dsqinfentregasmaterial: TDataSource; qinfentregasmaterial: TZQuery; qinfentregasmaterialid: TIntegerField; qinfentregasmaterialide: TIntegerField; qinfentregasmaterialidt: TIntegerField; qinfentregasmaterialfecha: TDateField; qinfentregasmaterialconcepto: TWideStringField; qinfentregasmaterialcantidad: TFloatField; DBCheckBox20: TDBCheckBox; DBCheckBox21: TDBCheckBox; qempleadosresponsable: TIntegerField; qempleadosfumigador: TIntegerField; procedure FormShow(Sender: TObject); procedure dsqlistaempleadosDataChange(Sender: TObject; Field: TField); procedure tbuscarChange(Sender: TObject); procedure qlistaempleadosBeforeOpen(DataSet: TDataSet); procedure qlistaempleadosAfterOpen(DataSet: TDataSet); procedure listagrupos2CloseUp(Sender: TObject); procedure VaciarClick(Sender: TObject); procedure Vaciar2Click(Sender: TObject); procedure bteimprimirClick(Sender: TObject); procedure checktodos2Click(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure chktodosempleadosClick(Sender: TObject); procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); procedure FormKeyPress(Sender: TObject; var Key: Char); procedure btEguardarClick(Sender: TObject); procedure btEcancelarClick(Sender: TObject); procedure dsqempleadosStateChange(Sender: TObject); procedure DBLookupComboBox1DropDown(Sender: TObject); procedure DBEdit8Change(Sender: TObject); procedure DBEdit27Change(Sender: TObject); procedure btEborrarClick(Sender: TObject); procedure btEmodificarClick(Sender: TObject); procedure dsqempleadosplanificacionStateChange(Sender: TObject); procedure btplmodificarClick(Sender: TObject); procedure btplaceptarClick(Sender: TObject); procedure btplcancelarClick(Sender: TObject); procedure btedoccancelarClick(Sender: TObject); procedure Button9Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure Button6Click(Sender: TObject); procedure Button7Click(Sender: TObject); procedure TanyoChange(Sender: TObject); procedure TESTADOChange(Sender: TObject); procedure Button11Click(Sender: TObject); procedure Button10Click(Sender: TObject); procedure btEMnuevoClick(Sender: TObject); procedure btEMaceptarClick(Sender: TObject); procedure btEMcancelarClick(Sender: TObject); procedure btEMmodificarClick(Sender: TObject); procedure btEMborrarClick(Sender: TObject); procedure PageEmpleadosChange(Sender: TObject); procedure Button8Click(Sender: TObject); procedure Button12Click(Sender: TObject); procedure DBEdit9Exit(Sender: TObject); procedure DBEdit21KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); procedure DBEdit21Exit(Sender: TObject); procedure qempleadosplanificacionfecha_recmedicoValidate(Sender: TField); procedure qempleadosplanificacionvto_permisotrabajoValidate(Sender: TField); procedure qempleadosplanificacionfecha_ren_recmedicoValidate( Sender: TField); procedure qempleadosplanificacionfecha_testcovid19Validate(Sender: TField); procedure qempleadosplanificacionfecha_carnetmanipuladorValidate( Sender: TField); procedure DBEdit26Exit(Sender: TObject); procedure DBEdit40Exit(Sender: TObject); procedure DBEdit13Exit(Sender: TObject); procedure DBEdit10Exit(Sender: TObject); procedure DBEdit26KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); procedure DBEdit40KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); procedure DBEdit13KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); procedure DBEdit10KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); procedure dsqjornalesStateChange(Sender: TObject); procedure btptnuevoClick(Sender: TObject); procedure btptmodificarClick(Sender: TObject); procedure btptborrarClick(Sender: TObject); procedure btptguardarClick(Sender: TObject); procedure DBGrid2DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); procedure ltipohoraCloseUp(Sender: TObject); procedure Button14Click(Sender: TObject); procedure btptcancelarClick(Sender: TObject); procedure dsqanticiposStateChange(Sender: TObject); procedure bteanuevoClick(Sender: TObject); procedure bteaborrarClick(Sender: TObject); procedure bteamodificarClick(Sender: TObject); procedure bteaguardarClick(Sender: TObject); procedure bteacancelarClick(Sender: TObject); procedure DBGrid2CellClick(Column: TColumn); procedure Button15Click(Sender: TObject); procedure DBGrid1TitleClick(Column: TColumn); procedure qempleadosBeforePost(DataSet: TDataSet); procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); procedure DBGrid75DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); procedure tbuscarExit(Sender: TObject); procedure dsqregimencotizacionDataChange(Sender: TObject; Field: TField); procedure btEimagenClick(Sender: TObject); procedure Cargar1Click(Sender: TObject); procedure Capturar1Click(Sender: TObject); procedure btactivarcamaraClick(Sender: TObject); procedure btdesactivarcamaraClick(Sender: TObject); procedure btEoKimagenClick(Sender: TObject); procedure Button18Click(Sender: TObject); procedure Image2DblClick(Sender: TObject); procedure Button22Click(Sender: TObject); procedure qempleadosBeforeDelete(DataSet: TDataSet); procedure DBEdit43Enter(Sender: TObject); procedure listaconvocatoriasExit(Sender: TObject); procedure listaconvocatoriasDblClick(Sender: TObject); procedure Button23Click(Sender: TObject); procedure btEnuevoClick(Sender: TObject); procedure qempleadosAfterInsert(DataSet: TDataSet); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure qempleadosAfterPost(DataSet: TDataSet); procedure qemp_historicoBeforePost(DataSet: TDataSet); procedure qemp_historicoBeforeDelete(DataSet: TDataSet); procedure qemp_historicoAfterPost(DataSet: TDataSet); procedure DBEdit41KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); procedure Button24Click(Sender: TObject); procedure Button25Click(Sender: TObject); procedure DBGrid5CellClick(Column: TColumn); procedure btEMimprimirClick(Sender: TObject); private { Private declarations } hWndC,hWndC2 : THandle; procedure SetResolution(Width, Height: integer); public { Public declarations } procedure ExportaraExcel(FileNameXLS, SheetName: String; DBGrid: TDBGrid; ProgressBarXls: TProgressBar = nil); end; var fempleados: Tfempleados; filtrotrabajadores,todostrabajadores,tlimitado,filtrolotes,filtroparcelas:string; vtactivo,seleccionando:integer; pidt,pide:integer; const WM_CAP_START = WM_USER; WM_CONNECT = WM_USER + 10; WM_DISCONNECT = WM_USER + 11; WM_SAVEDIB = WM_USER + 25; WM_GET_VIDEOFORMAT = WM_USER + 44; WM_SET_VIDEOFORMAT = WM_USER + 45; WM_SET_PREVIEW = WM_USER + 50; WM_SET_OVERLAY = WM_USER + 51; WM_SET_PREVIEWRATE = WM_USER + 52; WM_SET_SCALE = WM_USER + 53; rojo=$00AAAAFF; amarillo=$00B9FFFF; verde=$00C7FBAA; azul=$00FFFFBB; function capCreateCaptureWindowA(lpszWindowName: PCHAR; dwStyle, x, y, nWidth, nHeight: integer; ParentWin: HWND; nId: integer): HWND; stdcall external 'AVICAP32.DLL'; implementation {$R *.dfm} uses fdlgfecha,shellapi, datos, fdlgllamamientos, femphistorico, principal, fseleccionartaquilla; function Letra(Numero: Integer): string; begin Result:= copy('TRWAGMYFPDXBNJZSQVHLCKET',1 + numero mod 23,1); end; function EsNif(NIF: String): Boolean; var Numero: Integer; begin Result:= FALSE; if TryStrToInt(Copy(NIF,1,Length(NIF)-1),Numero) then Result:= Uppercase(Copy(NIF,Length(NIF),1)) = Letra(Numero); end; function EsNumero(Num: Char): Boolean; begin try StrToInt(Num); Result:=True; Except result:=False; end; end; function CadCambioCar(Cadena, CarOrig, CarCambio : String) : String; var i : Integer; Temp : String; begin Temp := ''; for i := 1 to Length(Cadena) do if Copy(Cadena, i, 1) = CarOrig then Temp := Temp + CarCambio else Temp := Temp + Copy(Cadena, i, 1); Result := Temp; end; function EsCif(Cif : String) : Boolean; var Suma, Control : Integer; n : Byte; begin Result := False; {Se pasa todo a mayúsculas limpio de espacios y de caracteres especiales} Cif := UpperCase(Trim(Cif)); {Se limpia de los caracteres '-' y '/'. } Cif := CadCambioCar(Cif,'-',''); Cif := CadCambioCar(Cif,'/',''); {El cif debe ser de 9 cifras} if Length(Cif) = 9 then begin {Comprobamos que sea un NIF} if EsNumero(Cif[1]) then Result := EsNif(Cif) else {Se comprueba que la letra que designa el tipo de cif sea correcta} if (Pos(Cif[1], 'ABCDEFGHPQSKLMX') = 0) then Result := False else {Se comprueba si es un extranjero, en ese caso se calcula el nif, cambiando la X, por 0} if Cif[1] = 'X' then Result := EsNif('0'+Copy(Cif,2,8)) else begin Suma:= StrToInt(Cif[3])+StrToInt(Cif[5])+StrToInt(Cif[7]); for n := 1 to 4 do Suma := Suma + ((2*StrToInt(Cif[2*n])) mod 10)+((2*StrToInt(Cif[2*n]))); Control := 10 - (Suma mod 10); {Se comprueba si es de tipo 'P' o 'S', es decir, Corporaciones Locales (Ayuntamientos, etc.) y Organismos públicos.} if Pos(Cif[1],'PS')<>0 then {Control tipo letra} Result := (Cif[9] = Chr(64+Control)) else {Resto de tipos de CIF} begin {Control tipo número} if Control = 10 then Control := 0; Result:= ( StrToInt(Cif[9]) = Control); end; end; end; end; procedure Tfempleados.SetResolution(Width, Height: integer); var bi,bi2: BITMAPINFO; begin SendMessage(hWndC, WM_GET_VIDEOFORMAT, sizeof(bi), Cardinal(@bi)); bi.bmiHeader.biWidth:= Width; bi.bmiHeader.biHeight:= Height; if SendMessage(hWndC, WM_SET_VIDEOFORMAT, sizeof(bi), Cardinal(@bi)) <> 0 then begin SendMessage(hWndC, WM_DISCONNECT, 0, 0); SendMessage(hWndC, WM_CONNECT, 0, 0); end; bi2.bmiHeader.biWidth:= Width; bi2.bmiHeader.biHeight:= Height; SendMessage(hWndC2, WM_GET_VIDEOFORMAT, sizeof(bi2), Cardinal(@bi2)); if SendMessage(hWndC2, WM_SET_VIDEOFORMAT, sizeof(bi2), Cardinal(@bi2)) <> 0 then begin SendMessage(hWndC2, WM_DISCONNECT, 0, 0); SendMessage(hWndC2, WM_CONNECT, 0, 0); end; end; procedure Tfempleados.btactivarcamaraClick(Sender: TObject); begin Panelfotoe.Width:= 120; Panelfotoe.Height:= 120; hWndC := capCreateCaptureWindowA('Ventana de captura', WS_CHILD or WS_VISIBLE ,0, 0,Panelfotoe.Height,Panelfotoe.Width,Panelfotoe.Handle,0); if hWndC <> 0 then begin SendMessage(hWndC, WM_CONNECT, 0, 0); SendMessage(hWndC, WM_SET_SCALE, 1, 0); SendMessage(hWndC, WM_SET_PREVIEWRATE, 20, 0); SendMessage(hWndC, WM_SET_OVERLAY, 1, 0); SendMessage(hWndC, WM_SET_PREVIEW, 1, 0); SetResolution(Panelfotoe.Height,Panelfotoe.Width); // SetResolution(1912,1072); end; end; procedure Tfempleados.btdesactivarcamaraClick(Sender: TObject); begin if hWndC <> 0 then begin SendMessage(hWndC, WM_DISCONNECT, 0, 0); end; end; procedure Tfempleados.bteaborrarClick(Sender: TObject); begin qanticipos.Delete; end; procedure Tfempleados.bteacancelarClick(Sender: TObject); begin qanticipos.Cancel; end; procedure Tfempleados.bteaguardarClick(Sender: TObject); begin if limporteanticipo.Text<>'' then limporteanticipo.Text:=stringreplace((limporteanticipo.Text),'.',',',[rfreplaceall]); if qanticipos.State=dsedit then begin qanticiposfecha.Value:=fechaanticipo.Date; if lopciones.ItemIndex=0 then begin qanticiposimporte.Value:=strtofloat(limporteanticipo.Text); qanticipospenalizacion.Value:=0; qanticiposindemnizacion.Value:=0; qanticiposembargo.value:=0; end; if lopciones.ItemIndex=1 then begin qanticiposimporte.Value:=0; qanticipospenalizacion.Value:=0; qanticiposindemnizacion.Value:=strtofloat(limporteanticipo.Text); qanticiposembargo.value:=0; end; if lopciones.ItemIndex=2 then begin qanticiposimporte.Value:=0; qanticipospenalizacion.Value:=strtofloat(limporteanticipo.Text); qanticiposindemnizacion.Value:=0; qanticiposembargo.value:=0; end; if lopciones.ItemIndex=3 then begin qanticiposimporte.Value:=0; qanticipospenalizacion.Value:=0; qanticiposindemnizacion.Value:=0; qanticiposembargo.value:=strtofloat(limporteanticipo.Text); end; qanticiposobservaciones.Value:=lobservaciones.Text; qanticiposestado.Value:='C'; qanticipos.Post; end; if qanticipos.State=dsinsert then begin qaux.Close; qaux.SQL.Clear; qaux.SQL.Add('select max(id)+1 from anticipos'); qaux.Open; qanticiposid.Value:=qaux.Fields[0].Asinteger; qanticiposfecha.Value:=fechaanticipo.Date; qanticiposidt.Value:=qlistaempleadosid.asinteger; qanticipostrabajador.value:=qlistaempleadosnombre.AsString; if lopciones.ItemIndex=0 then begin qanticiposimporte.Value:=strtofloat(limporteanticipo.Text); qanticipospenalizacion.Value:=0; qanticiposindemnizacion.Value:=0; qanticiposembargo.value:=0; end; if lopciones.ItemIndex=1 then begin qanticiposimporte.Value:=0; qanticipospenalizacion.Value:=0; qanticiposindemnizacion.Value:=strtofloat(limporteanticipo.Text); qanticiposembargo.value:=0; end; if lopciones.ItemIndex=2 then begin qanticiposimporte.Value:=0; qanticipospenalizacion.Value:=strtofloat(limporteanticipo.Text); qanticiposindemnizacion.Value:=0; qanticiposembargo.value:=0; end; if lopciones.ItemIndex=3 then begin qanticiposimporte.Value:=0; qanticipospenalizacion.Value:=0; qanticiposindemnizacion.Value:=0; qanticiposembargo.value:=strtofloat(limporteanticipo.Text); end; qanticiposobservaciones.Value:=UPPERCASE(lobservaciones.Text); qanticiposestado.Value:='C'; qanticipos.Post; end; end; procedure Tfempleados.bteamodificarClick(Sender: TObject); begin qanticipos.Edit; fechaanticipo.SetFocus; end; procedure Tfempleados.bteanuevoClick(Sender: TObject); begin qanticipos.Append; fechaanticipo.SetFocus; end; procedure Tfempleados.btEborrarClick(Sender: TObject); begin qempleados.Delete; qlistaempleados.Refresh; end; procedure Tfempleados.btEcancelarClick(Sender: TObject); begin if qempleados.State in [dsedit,dsinsert] then qempleados.Cancel; panel33.Enabled:=true; panel9.Enabled:=true; end; procedure Tfempleados.btedoccancelarClick(Sender: TObject); var archivo:string; begin savedialog1.FileName:='PLANIFICACION-FORMACIÓN.xlsx'; savedialog1.Execute(); archivo:=savedialog1.FileName; try Exportaraexcel(archivo,'PLANIFICACION-FORMACIÓN.xlsx',dbgrid75); finally showmessage('Los datos han sido exportados correctamente a '+archivo); end; end; procedure Tfempleados.bteimprimirClick(Sender: TObject); var i,diacomunicacion,mescomunicacion,anyocomunicacion:integer; actual : TBookMarkStr; archivo,fecha,fecha2,fechamenos3,fechamenos3texto,fechamenos15,fechamenos15texto,textmes,llamamiento:string; dia,mes,anyo:word; sfecha:tdate; shora,sfecha2:string; begin Deletefile('c:\agrigest\tmp\firma.bmp'); seleccionando:=1; if listaimpresion.itemindex=-1 then listaimpresion.itemindex:=0; if (listaimpresion.ItemIndex>=10) and (listaimpresion.ItemIndex<=14) then begin dlgfecha := Tdlgfecha.Create(nil); try dlgfecha.showmodal(); finally sfecha:=strtodate(dlgfecha.lfecha.text); dlgfecha.Free; end; end else sfecha:=date(); if listaimpresion.ItemIndex=17 then begin dlgllamamientos := tdlgllamamientos.create(nil); try dlgllamamientos.showmodal(); finally llamamiento:=dlgllamamientos.qconvocatoriasconvocatoria.asstring; sfecha:=strtodate(dlgllamamientos.lfecha.text); sfecha2:=dlgllamamientos.lfecha2.text; shora:=dlgllamamientos.lhora.Text; dlgllamamientos.Free; end; end; decodedate(sfecha,anyo,mes,dia); case mes of 1: textmes:='enero'; 2: textmes:='febrero'; 3: textmes:='marzo'; 4: textmes:='abril'; 5: textmes:='mayo'; 6: textmes:='junio'; 7: textmes:='julio'; 8: textmes:='agosto'; 9: textmes:='septiembre'; 10: textmes:='octubre'; 11: textmes:='noviembre'; 12: textmes:='diciembre'; end; fecha:=floattostr(dia)+' de '+textmes+' de '+floattostr(anyo); mescomunicacion:=mes; anyocomunicacion:=anyo; diacomunicacion:=dia-3; if diacomunicacion<1 then begin mescomunicacion:=mescomunicacion-1; case mescomunicacion of 1: diacomunicacion:=31+diacomunicacion; 2: diacomunicacion:=28+diacomunicacion; 3: diacomunicacion:=31+diacomunicacion; 4: diacomunicacion:=30+diacomunicacion; 5: diacomunicacion:=31+diacomunicacion; 6: diacomunicacion:=30+diacomunicacion; 7: diacomunicacion:=31+diacomunicacion; 8: diacomunicacion:=31+diacomunicacion; 9: diacomunicacion:=30+diacomunicacion; 10: diacomunicacion:=31+diacomunicacion; 11: diacomunicacion:=30+diacomunicacion; 12: diacomunicacion:=31+diacomunicacion; end; end; if mescomunicacion<1 then anyocomunicacion:=anyocomunicacion-1; case mescomunicacion of 1: textmes:='enero'; 2: textmes:='febrero'; 3: textmes:='marzo'; 4: textmes:='abril'; 5: textmes:='mayo'; 6: textmes:='junio'; 7: textmes:='julio'; 8: textmes:='agosto'; 9: textmes:='septiembre'; 10: textmes:='octubre'; 11: textmes:='noviembre'; 12: textmes:='diciembre'; end; fechamenos3texto:=floattostr(diacomunicacion)+' de '+textmes+' de '+floattostr(anyocomunicacion); fechamenos3:=floattostr(diacomunicacion)+'/'+floattostr(mescomunicacion)+'/'+floattostr(anyocomunicacion); mescomunicacion:=mes; anyocomunicacion:=anyo; diacomunicacion:=dia-15; if diacomunicacion<1 then begin mescomunicacion:=mescomunicacion-1; case mescomunicacion of 1: diacomunicacion:=31+diacomunicacion; 2: diacomunicacion:=28+diacomunicacion; 3: diacomunicacion:=31+diacomunicacion; 4: diacomunicacion:=30+diacomunicacion; 5: diacomunicacion:=31+diacomunicacion; 6: diacomunicacion:=30+diacomunicacion; 7: diacomunicacion:=31+diacomunicacion; 8: diacomunicacion:=31+diacomunicacion; 9: diacomunicacion:=30+diacomunicacion; 10: diacomunicacion:=31+diacomunicacion; 11: diacomunicacion:=30+diacomunicacion; 12: diacomunicacion:=31+diacomunicacion; end; end; if mescomunicacion<1 then anyocomunicacion:=anyocomunicacion-1; case mescomunicacion of 1: textmes:='enero'; 2: textmes:='febrero'; 3: textmes:='marzo'; 4: textmes:='abril'; 5: textmes:='mayo'; 6: textmes:='junio'; 7: textmes:='julio'; 8: textmes:='agosto'; 9: textmes:='septiembre'; 10: textmes:='octubre'; 11: textmes:='noviembre'; 12: textmes:='diciembre'; end; fechamenos15texto:=floattostr(diacomunicacion)+' de '+textmes+' de '+floattostr(anyocomunicacion); fecha2:=floattostr(dia)+'/'+floattostr(mes)+'/'+floattostr(anyo); fechamenos15:=floattostr(diacomunicacion)+'/'+floattostr(mescomunicacion)+'/'+floattostr(anyocomunicacion); qaux.close; qaux.SQL.Clear; qaux.SQL.Add('update trabajadores set seleccionado=0 where seleccionado=1'); qaux.Execsql; qaux.close; qaux.SQL.Clear; qaux.SQL.Add('update trabajadores set seleccionado=1 where id=:ID'); qaux.Prepare; if dbgrid1.SelectedRows.Count>0 then for i := 0 to dbgrid1.Selectedrows.Count - 1 do begin qlistaempleados.GotoBookmark ((dbgrid1.selectedrows[i])); qaux.ParamByName('ID').AsInteger:=qlistaempleadosid.asinteger; qaux.Execsql; end else begin qlistaempleados.First; while not qlistaempleados.Eof do begin qaux.ParamByName('ID').AsInteger:=qlistaempleadosid.asinteger; qaux.Execsql; qlistaempleados.Next; end end; case listaimpresion.ItemIndex of 0:begin qinftrabajadores.Close; qinftrabajadores.SQL.Clear; qinftrabajadores.SQL.Add('select t.* ,f.imagen from trabajadores t left join emp_fotos f on t.ide=f.ide and t.id=f.idt where t.seleccionado=1 order by nombre'); qinftrabajadores.Open; informedb.Datasource:=dsqinftrabajadores; informes.Report.Clear; informes.LoadFromFile('c:\agrigest\informes\tarjeta2.fr3'); informes.ShowReport(); end; 1: begin qinftrabajadores.Close; qinftrabajadores.SQL.Clear; qinftrabajadores.SQL.Add('select t.* ,f.imagen from trabajadores t left join emp_fotos f on t.ide=f.ide and t.id=f.idt where t.id='+qempleadosid.AsString+' and t.seleccionado=1 order by nombre'); qinftrabajadores.Open; informedb.Datasource:=dsqinftrabajadores; informes.Report.Clear; informes.LoadFromFile('c:\agrigest\informes\FICHAEMPLEADO.fr3'); informes.ShowReport(); end; 2:begin qaux.close; qaux.SQL.Clear; qaux.SQL.Add('select * from trabajadores where seleccionado=1 order by nombre'); qaux.Open; if qaux.RecordCount=0 then showmessage('¡¡¡ DEBE SELECCIONAR AL MENOS UN EMPLEADO ¡¡¡') else begin informedb.Datasource:=dsqaux; informes.Report.Clear; informes.LoadFromFile('c:\agrigest\informes\plantillapartetrabajo.fr3'); informes.Variables.Variables['v_cuadrilla']:=QUOTEDSTR(qgrupos2descripcion.asstring); informes.Variables.Variables['v_trabajadores']:=QUOTEDSTR(inttostr(qaux.RecordCount)); informes.ShowReport(); end; end; 3:begin qaux.close; qaux.SQL.Clear; qaux.SQL.Add('select * from trabajadores where seleccionado=1 order by nombre'); qaux.Open; if qaux.RecordCount=0 then showmessage('¡¡¡ DEBE SELECCIONAR AL MENOS UN EMPLEADO ¡¡¡') else begin informedb.Datasource:=dsqaux; informes.Report.Clear; informes.LoadFromFile('c:\agrigest\informes\plantillapartesemanal.fr3'); informes.Variables.Variables['v_cuadrilla']:=QUOTEDSTR(qgrupos2descripcion.asstring); informes.Variables.Variables['v_trabajadores']:=QUOTEDSTR(inttostr(qaux.RecordCount)); informes.ShowReport(); end; end; 4:begin qaux.close; qaux.SQL.Clear; qaux.SQL.Add('select * from trabajadores where seleccionado=1 order by nombre'); qaux.Open; if qaux.RecordCount=0 then showmessage('¡¡¡ DEBE SELECCIONAR AL MENOS UN EMPLEADO ¡¡¡') else begin informedb.Datasource:=dsqaux; informes.Report.Clear; informes.LoadFromFile('c:\agrigest\informes\plantillapartealmacen.fr3'); informes.Variables.Variables['v_cuadrilla']:=QUOTEDSTR(qgrupos2descripcion.asstring); informes.Variables.Variables['v_trabajadores']:=QUOTEDSTR(inttostr(qaux.RecordCount)); informes.ShowReport(); end; end; 5:begin qaux.close; qaux.SQL.Clear; qaux.SQL.Add('select * from trabajadores where seleccionado=1 order by nombre'); qaux.Open; if qaux.RecordCount=0 then showmessage('¡¡¡ DEBE SELECCIONAR AL MENOS UN EMPLEADO ¡¡¡') else begin informedb.Datasource:=dsqaux; informes.Report.Clear; informes.LoadFromFile('c:\agrigest\informes\plantillacontratacion.fr3'); informes.ShowReport(); end; end; 6:begin qplantillaextincion.Open; savedialog1.FileName:='PLANTILLA EXTINCION.xlsx0'; savedialog1.Execute(); archivo:=savedialog1.FileName; try Exportaraexcel(archivo,'PLANTILLA EXTINCION',GRIDPLANTILLAEXT); finally showmessage('Los datos han sido exportados correctamente a '+archivo); end; qplantillaextincion.Close; end; 7:begin qplantillacomunicacion.Open; savedialog1.FileName:='PLANTILLA COMUNICACION.xlsx'; savedialog1.Execute(); archivo:=savedialog1.FileName; try Exportaraexcel(archivo,'PLANTILLA COMUNICACION',GRIDPLANTILLACOMU); finally showmessage('Los datos han sido exportados correctamente a '+archivo); end; end; 8:begin qaux.close; qaux.SQL.Clear; qaux.SQL.Add('select * from trabajadores where seleccionado=1 order by nombre'); qaux.Open; if qaux.RecordCount=0 then showmessage('¡¡¡ DEBE SELECCIONAR AL MENOS UN EMPLEADO ¡¡¡') else begin informedb.Datasource:=dsqaux; informes.Report.Clear; informes.LoadFromFile('c:\agrigest\informes\plantillaropatrabajo.fr3'); informes.Variables.Variables['v_cuadrilla']:=QUOTEDSTR(qgrupos2descripcion.asstring); informes.Variables.Variables['v_trabajadores']:=QUOTEDSTR(inttostr(qaux.RecordCount)); informes.ShowReport(); end; end; 9:begin qplantillaropa.Open; savedialog1.FileName:='PLANTILLA ROPA DE TRABAJO.xls'; savedialog1.Execute(); archivo:=savedialog1.FileName; try Exportaraexcel(archivo,'PLANTILLA ROPA DE TRABAJO',GRIDPLANTILLAROPA); finally showmessage('Los datos han sido exportados correctamente a '+archivo); end; end; 10:begin qaux.close; qaux.SQL.Clear; qaux.SQL.Add('select * from trabajadores where seleccionado=1 order by nombre'); qaux.Open; if qaux.RecordCount=0 then showmessage('¡¡¡ DEBE SELECCIONAR AL MENOS UN EMPLEADO ¡¡¡') else begin informedb.Datasource:=dsqaux; informes.Report.Clear; informes.LoadFromFile('c:\agrigest\informes\bajavoluntaria.fr3'); informes.Variables.Variables['v_fecha']:=QUOTEDSTR(fecha); informes.Variables.Variables['v_fecha2']:=QUOTEDSTR(fecha2); informes.ShowReport(); end; end; 11:begin qaux.close; qaux.SQL.Clear; qaux.SQL.Add('select * from trabajadores where seleccionado=1 order by nombre'); qaux.Open; if qaux.RecordCount=0 then showmessage('¡¡¡ DEBE SELECCIONAR AL MENOS UN EMPLEADO ¡¡¡') else begin informedb.Datasource:=dsqaux; informes.Report.Clear; informes.LoadFromFile('c:\agrigest\informes\bajafincontrato.fr3'); informes.Variables.Variables['v_fecha']:=QUOTEDSTR(fechamenos15texto); informes.Variables.Variables['v_fecha2']:=QUOTEDSTR(fecha2); informes.ShowReport(); end; end; 12:begin qaux.close; qaux.SQL.Clear; qaux.SQL.Add('select * from trabajadores where seleccionado=1 order by nombre'); qaux.Open; if qaux.RecordCount=0 then showmessage('¡¡¡ DEBE SELECCIONAR AL MENOS UN EMPLEADO ¡¡¡') else begin informedb.Datasource:=dsqaux; informes.Report.Clear; informes.LoadFromFile('c:\agrigest\informes\bajarechazo.fr3'); informes.Variables.Variables['v_fecha']:=QUOTEDSTR(fecha); informes.ShowReport(); end; end; 13:begin qaux.close; qaux.SQL.Clear; qaux.SQL.Add('select * from trabajadores where seleccionado=1 order by nombre'); qaux.Open; if qaux.RecordCount=0 then showmessage('¡¡¡ DEBE SELECCIONAR AL MENOS UN EMPLEADO ¡¡¡') else begin informedb.Datasource:=dsqaux; informes.Report.Clear; informes.LoadFromFile('c:\agrigest\informes\bajadisciplinaria.fr3'); informes.Variables.Variables['v_fecha']:=QUOTEDSTR(fechamenos3texto); informes.Variables.Variables['v_fecha2']:=QUOTEDSTR(fechamenos3); informes.ShowReport(); end; end; 14:begin qaux.close; qaux.SQL.Clear; qaux.SQL.Add('select * from trabajadores where seleccionado=1 order by nombre'); qaux.Open; if qaux.RecordCount=0 then showmessage('¡¡¡ DEBE SELECCIONAR AL MENOS UN EMPLEADO ¡¡¡') else begin informedb.Datasource:=dsqaux; informes.Report.Clear; informes.LoadFromFile('c:\agrigest\informes\renunciarecmedico.fr3'); informes.Variables.Variables['v_fecha']:=QUOTEDSTR(fecha); informes.Variables.Variables['v_fecha2']:=QUOTEDSTR(fecha); informes.ShowReport(); checktodos2.Checked:=false; end; end; 15:begin qempleadosnacion.Open; savedialog1.FileName:='LISTADO EMPLEADOS CON NACIONALIDADES.xlsx'; savedialog1.Execute(); archivo:=savedialog1.FileName; try Exportaraexcel(archivo,'EMPLEADOS NACION',gridempleadosnacion); finally showmessage('Los datos han sido exportados correctamente a '+archivo); end; qempleadosnacion.Close; end; 16:begin qaux.close; qaux.SQL.Clear; qaux.SQL.Add('select * from trabajadores where seleccionado=1 order by nombre'); qaux.Open; if qaux.RecordCount=0 then showmessage('¡¡¡ DEBE SELECCIONAR AL MENOS UN EMPLEADO ¡¡¡') else begin informedb.Datasource:=dsqaux; informes.Report.Clear; informes.LoadFromFile('c:\agrigest\informes\plantillaasistencia.fr3'); informes.ShowReport(); end; end; 17:begin qaux.close; qaux.SQL.Clear; qaux.SQL.Add('update trabajadores set seleccionado=0 where seleccionado=1'); qaux.Execsql; qaux.close; qaux.SQL.Clear; qaux.SQL.Add('update trabajadores set seleccionado=1 where id=:ID'); qaux.Prepare; if dbgrid1.SelectedRows.Count>0 then for i := 0 to dbgrid1.Selectedrows.Count - 1 do begin qlistaempleados.GotoBookmark ((dbgrid1.selectedrows[i])); qaux.ParamByName('ID').AsInteger:=qlistaempleadosid.asinteger; qaux.Execsql; end else begin qaux.close; qaux.SQL.Clear; qaux.SQL.Add('update trabajadores set seleccionado=1 where convocatoria=:LLAMAMIENTO '); qaux.Prepare; qaux.parambyname('LLAMAMIENTO').asstring:=llamamiento; qaux.execsql; end; qaux.close; qaux.SQL.Clear; qaux.SQL.Add('select * from trabajadores where seleccionado=1 order by nombre'); qaux.Open; if qaux.RecordCount=0 then showmessage('¡¡¡ DEBE SELECCIONAR AL MENOS UN EMPLEADO ¡¡¡') else begin informedb.Datasource:=dsqaux; informes.Report.Clear; informes.LoadFromFile('c:\agrigest\informes\infllamamiento.fr3'); informes.Variables.Variables['v_fecha']:=QUOTEDSTR(fecha); informes.Variables.Variables['v_fecha2']:=QUOTEDSTR(sfecha2); informes.Variables.Variables['v_hora']:=QUOTEDSTR(shora); informes.ShowReport(); checktodos2.Checked:=false; end; end; 18:begin qaux.close; qaux.SQL.Clear; qaux.SQL.Add('select * from trabajadores where seleccionado=1 order by nombre'); qaux.Open; if qaux.RecordCount=0 then showmessage('¡¡¡ DEBE SELECCIONAR AL MENOS UN EMPLEADO ¡¡¡') else begin informedb.Datasource:=dsqaux; informes.Report.Clear; informes.LoadFromFile('c:\agrigest\informes\plantillapeonadas.fr3'); informes.Variables.Variables['v_cuadrilla']:=QUOTEDSTR(qgrupos2descripcion.asstring); informes.Variables.Variables['v_trabajadores']:=QUOTEDSTR(inttostr(qaux.RecordCount)); informes.ShowReport(); end; end; 19:begin qtripartita.close; qtripartita.SQL.Clear; qtripartita.SQL.Add('select id,apellidos,nombre,nif,concat('+''''+'/'+''''+',numsegsocial) as numsegsocial,sexo,fechanacimiento,email,telefono1,0.0 as categoria_prof,0.0 as grupo_cotizacion,0.0 as nivel_estudios,'+''''+qempresaformulariosnombre.AsString+''''+' as empresa,'+''''+qempresaformularioscif.AsString+''''+' as cif_empresa,'); qtripartita.sql.Add('0.0 as coste_cotiz,0.0 as coste_bruto_hora from trabajadores where seleccionado=1 and activo='+qgrupos2id.asstring+' order by apellidos,nombre'); qtripartita.Open; savedialog1.FileName:='TRABAJADORES FORMACION TRIPARTITA.xlsx'; savedialog1.Execute(); archivo:=savedialog1.FileName; try Exportaraexcel(archivo,'TRABAJADORES TRIPARTITA',GRIDTRIPARTITA); finally showmessage('Los datos han sido exportados correctamente a '+archivo); qtripartita.Close; end; end; end; qaux.SQL.Clear; qaux.SQL.Add('update trabajadores set seleccionado=0'); qaux.ExecSQL; qempleados.Close; qempleados.Open; checktodos2.Checked:=false; seleccionando:=0; end; procedure Tfempleados.Button10Click(Sender: TObject); var nomarchivo:string; begin qtemp_doc.Close; qtemp_doc.Prepare; qtemp_doc.ParamByName('EMPRESA').AsInteger:=documentoside.asinteger; qtemp_doc.ParamByName('ID').AsInteger:=documentosid.asinteger; qtemp_doc.Open; nomarchivo:=qtemp_docnomarchivo.AsString; deletefile('c:\agrigest\tmp\*.*'); qtemp_docarchivo.SaveToFile('c:\agrigest\tmp\'+nomarchivo); ShellExecute(Handle,nil,PChar('c:\agrigest\tmp\'+nomarchivo),'','',SW_SHOWNORMAL); // borrarficheros('c:\agrigest\tmp\'); end; procedure Tfempleados.Button11Click(Sender: TObject); var archivo:string; begin qtemp_doc.Close; qtemp_doc.Prepare; qtemp_doc.ParamByName('EMPRESA').AsInteger:=documentoside.asinteger; qtemp_doc.ParamByName('ID').AsInteger:=documentosid.asinteger; qtemp_doc.Open; archivo:=qtemp_docnomarchivo.AsString; savedialog1.FileName:=archivo; savedialog1.Execute(); archivo:=savedialog1.FileName; qtemp_docarchivo.SaveToFile(archivo); // borrarficheros('c:\agrigest\tmp\'); end; procedure Tfempleados.Button12Click(Sender: TObject); begin informedb.Datasource:=dsqlistadoplanificacion; informes.Report.Clear; informes.LoadFromFile('c:\agrigest\informes\planificacionformacion.fr3'); informes.ShowReport(); end; procedure Tfempleados.Button14Click(Sender: TObject); begin informedb.Datasource:=dsqjornales; informes.Report.Clear; informes.LoadFromFile('c:\agrigest\informes\JORNALES.fr3'); informes.Report.FileName:=TMES.Text+' ' + qjornalestrabajador.asstring; informes.ShowReport(); informes.Clear end; procedure Tfempleados.Button15Click(Sender: TObject); var ext,nomarchivo:string; ruta:widestring; origen,destino:pwidechar; x:integer; begin if opendialog2.Execute then begin try finally if opendialog2.Files.Count=1 then begin qaux.SQL.Clear; qaux.SQL.Add('delete from documentos_tmp '); qaux.ExecSQL; ext:= ExtractFileExt(opendialog2.FileName); nomarchivo:= extractfilename(opendialog2.FileName); ruta:=extractfilepath(opendialog2.FileName)+nomarchivo; origen:=pwidechar(ruta); ruta:='c:\agrigest\tmp\'+nomarchivo; destino:=pwidechar(ruta); CopyFileEx(origen,destino, nil, nil, nil, 0); documentos_tmp.Open; documentos_tmp.Append; documentos_tmpidt.Value:=qempleadosid.Asinteger; documentos_tmpfecha.Value:=date(); documentos_tmpide.Value:=qempleadoside.AsInteger; documentos_tmpnomarchivo.Value:=nomarchivo; documentos_tmpdescripcion.Value:=nomarchivo; documentos_tmpextension.Value:=ext; documentos_tmparchivo.LoadFromFile('c:\agrigest\tmp\'+nomarchivo); documentos_tmp.Post; qaux.SQL.Clear; qaux.SQL.Add('insert into documentos (ide,fecha,descripcion,archivo,nomarchivo,extension,idlote,codpar,idea,idt) (select ide,fecha,descripcion,archivo,nomarchivo,extension,idlote,codpar,idea,idt from documentos_tmp)'); qaux.ExecSQL; qaux.SQL.Clear; qaux.SQL.Add('delete from documentos_tmp '); qaux.ExecSQL; documentos.Close; documentos.Prepare; documentos.ParamByName('EMPLEADO').AsInteger:=qlistaempleadosid.AsInteger; documentos.ParamByName('EMPRESA').AsInteger:=qlistaempleadoside.AsInteger; documentos.open; panel37.Visible:=true; end else begin memo1.Clear; memo1.Lines.AddStrings(opendialog2.files); for x := 0 to opendialog2.Files.Count-1 do begin qaux.SQL.Clear; qaux.SQL.Add('delete from documentos_tmp '); qaux.ExecSQL; documentos_tmp.Open; documentos_tmp.Append; ext:= ExtractFileExt(memo1.Lines[x]); nomarchivo:= extractfilename(memo1.Lines[x]); ruta:=extractfilepath(opendialog2.FileName)+nomarchivo; origen:=pwidechar(ruta); ruta:='c:\agrigest\tmp\'+nomarchivo; destino:=pwidechar(ruta); CopyFileEx(origen,destino, nil, nil, nil, 0); documentos_tmpidt.Value:=qempleadosid.Asinteger; documentos_tmpfecha.Value:=date(); documentos_tmpide.Value:=qempleadoside.AsInteger; documentos_tmpnomarchivo.Value:=nomarchivo; documentos_tmpdescripcion.Value:=nomarchivo; documentos_tmpextension.Value:=ext; documentos_tmparchivo.LoadFromFile('c:\agrigest\tmp\'+nomarchivo); documentos_tmp.Post; qaux.SQL.Clear; qaux.SQL.Add('insert into documentos (ide,fecha,descripcion,archivo,nomarchivo,extension,idlote,codpar,idea,idt) (select ide,fecha,descripcion,archivo,nomarchivo,extension,idlote,codpar,idea,idt from documentos_tmp)'); qaux.ExecSQL; qaux.SQL.Clear; qaux.SQL.Add('delete from documentos_tmp '); qaux.ExecSQL; documentos.Close; documentos.Prepare; documentos.ParamByName('EMPLEADO').AsInteger:=qlistaempleadosid.AsInteger; documentos.ParamByName('EMPRESA').AsInteger:=qlistaempleadoside.AsInteger; documentos.open; panel37.Visible:=true; end; end; end; end; // principal.borrarficheros ('c:\agrigest\tmp\'); end; procedure Tfempleados.Button18Click(Sender: TObject); var usbDevices : IUsbDevices; usbDevice : IUsbDevice; actual : TBookMarkStr; archivo,fecha,fecha2,fechamenos3,fechamenos3texto,fechamenos15,fechamenos15texto,textmes:string; dia,mes,anyo:word; sfecha:tdate; i:integer; ext,nomarchivo:string; begin usbDevices := CoUsbDevices.Create(); if (usbDevices.Count > 0) then begin try begin usbDevice := usbDevices.Item[0]; //select the first device vfirmas := Tvfirmas.Create(nil); try VFirmas.connect(usbDevice); VFirmas.ShowModal(); finally vfirmas.Free; firmasdoc.Open; if firmasdoc.RecordCount=0 then begin firmasdoc.Append; firmasdocide.Value:=qempleadoside.asinteger; firmasdocidt.Value:=qempleadosid.asinteger; firmasdocfirma.LoadFromFile('c:\agrigest\tmp\firma.bmp'); firmasdoc.Post; end else begin firmasdoc.edit; firmasdocide.Value:=qempleadoside.asinteger; firmasdocidt.Value:=qempleadosid.asinteger; firmasdocfirma.LoadFromFile('c:\agrigest\tmp\firma.bmp'); firmasdoc.Post; end; if qemp_firmas.RecordCount=0 then begin qemp_firmas.Append; qemp_firmaside.Value:=qempleadoside.asinteger; qemp_firmasidt.Value:=qempleadosid.asinteger; qemp_firmasfirma.LoadFromFile('c:\agrigest\tmp\firma.bmp'); qemp_firmas.Post; end else begin qemp_firmas.edit; qemp_firmaside.Value:=qempleadoside.asinteger; qemp_firmasidt.Value:=qempleadosid.asinteger; qemp_firmasfirma.LoadFromFile('c:\agrigest\tmp\firma.bmp'); qemp_firmas.Post; end; tfirmas.Picture:=nil; tfirmas.Picture.LoadFromFile('c:\agrigest\tmp\firma.bmp'); tfirmadocs.Picture.LoadFromFile('c:\agrigest\tmp\firma.bmp'); end; end; except on e : Exception do ShowMessage(e.Message); end; end else begin ShowMessage('Dispositivo de firmas no conectado'); if qemp_firmasfirma.asstring<>'' then begin qemp_firmasfirma.SaveToFile('c:\agrigest\tmp\firma.bmp'); firmasdoc.Open; if firmasdoc.RecordCount=0 then begin firmasdoc.Append; firmasdocide.Value:=qempleadoside.asinteger; firmasdocidt.Value:=qempleadosid.asinteger; firmasdocfirma.LoadFromFile('c:\agrigest\tmp\firma.bmp'); firmasdoc.Post; end else begin firmasdoc.edit; firmasdocide.Value:=qempleadoside.asinteger; firmasdocidt.Value:=qempleadosid.asinteger; firmasdocfirma.LoadFromFile('c:\agrigest\tmp\firma.bmp'); firmasdoc.Post; end; tfirmadocs.Picture.LoadFromFile('c:\agrigest\tmp\firma.bmp'); end; end; seleccionando:=1; if listadocsfirma.itemindex=-1 then listadocsfirma.itemindex:=0; if (listadocsfirma.ItemIndex>=0) and (listadocsfirma.ItemIndex<=10) then begin dlgfecha := Tdlgfecha.Create(nil); try dlgfecha.showmodal(); finally sfecha:=strtodate(dlgfecha.lfecha.text); dlgfecha.Free; end; end else sfecha:=date(); decodedate(sfecha,anyo,mes,dia); case mes of 1: textmes:='enero'; 2: textmes:='febrero'; 3: textmes:='marzo'; 4: textmes:='abril'; 5: textmes:='mayo'; 6: textmes:='junio'; 7: textmes:='julio'; 8: textmes:='agosto'; 9: textmes:='septiembre'; 10: textmes:='octubre'; 11: textmes:='noviembre'; 12: textmes:='diciembre'; end; fecha:=floattostr(dia)+' de '+textmes+' de '+floattostr(anyo); fechamenos3texto:=floattostr(dia-3)+' de '+textmes+' de '+floattostr(anyo); fechamenos15texto:=floattostr(dia-15)+' de '+textmes+' de '+floattostr(anyo); fecha2:=floattostr(dia)+'/'+floattostr(mes)+'/'+floattostr(anyo); fechamenos3:=floattostr(dia-3)+'/'+floattostr(mes)+'/'+floattostr(anyo); fechamenos15:=floattostr(dia-15)+'/'+floattostr(mes)+'/'+floattostr(anyo); case listadocsfirma.ItemIndex of 0:begin qaux.close; qaux.SQL.Clear; qaux.SQL.Add('update trabajadores set seleccionado=0 where seleccionado=1'); qaux.Execsql; qaux.close; qaux.SQL.Clear; qaux.SQL.Add('update trabajadores set seleccionado=1 where id=:ID'); qaux.Prepare; for i := 0 to dbgrid1.Selectedrows.Count - 1 do begin qlistaempleados.GotoBookmark ((dbgrid1.selectedrows[i])); qaux.ParamByName('ID').AsInteger:=qlistaempleadosid.asinteger; qaux.Execsql; end; qaux.close; qaux.SQL.Clear; qaux.SQL.Add('select * from trabajadores where seleccionado=1 order by nombre'); qaux.Open; if qaux.RecordCount=0 then showmessage('¡¡¡ DEBE SELECCIONAR AL MENOS UN EMPLEADO ¡¡¡') else begin informedb.Datasource:=dsqaux; informes.Report.Clear; informes.LoadFromFile('c:\agrigest\informes\bajavoluntaria.fr3'); informes.Variables.Variables['v_fecha']:=QUOTEDSTR('Aspe a '+fecha); informes.Variables.Variables['v_fecha2']:=QUOTEDSTR(fecha2); informes.ShowReport(); /// grabo en documentos el documento firmado topdf.FileName:='BAJA VOLUNTARIA-'+qempleadosnombre.AsString+'.pdf'; topdf.DefaultPath:='c:\agrigest\tmp\'; informes.Export(topdf); qaux.SQL.Clear; qaux.SQL.Add('delete from documentos_tmp '); qaux.ExecSQL; documentos_tmp.Open; try documentos_tmp.Append; ext:= '.pdf';//ExtractFileExt(opendialog2.FileName); nomarchivo:='BAJA VOLUNTARIA-'+qempleadosnombre.AsString+'.pdf';//extractfilename(opendialog2.FileName); documentos_tmpidt.Value:=qempleadosid.Asinteger; documentos_tmpfecha.Value:=date(); documentos_tmpide.Value:=qempleadoside.AsInteger; documentos_tmpnomarchivo.Value:=nomarchivo; documentos_tmpdescripcion.Value:=nomarchivo; documentos_tmpextension.Value:=ext; documentos_tmparchivo.LoadFromFile(topdf.DefaultPath+nomarchivo); documentos_tmp.Post; finally deletefile(topdf.FileName); end; qaux.SQL.Clear; qaux.SQL.Add('insert into documentos (ide,fecha,descripcion,archivo,nomarchivo,extension,idlote,codpar,idea,idt) (select ide,fecha,descripcion,archivo,nomarchivo,extension,idlote,codpar,idea,idt from documentos_tmp)'); qaux.ExecSQL; qaux.SQL.Clear; qaux.SQL.Add('delete from documentos_tmp '); qaux.ExecSQL; documentos.refresh; qaux.SQL.Clear; qaux.SQL.Add('update trabajadores set seleccionado=0'); qaux.ExecSQL; qempleados.Close; qempleados.Open; checktodos2.Checked:=false; end; end; 1:begin qaux.close; qaux.SQL.Clear; qaux.SQL.Add('update trabajadores set seleccionado=0 where seleccionado=1'); qaux.Execsql; qaux.close; qaux.SQL.Clear; qaux.SQL.Add('update trabajadores set seleccionado=1 where id=:ID'); qaux.Prepare; for i := 0 to dbgrid1.Selectedrows.Count - 1 do begin qlistaempleados.GotoBookmark ((dbgrid1.selectedrows[i])); qaux.ParamByName('ID').AsInteger:=qlistaempleadosid.asinteger; qaux.Execsql; end; qaux.close; qaux.SQL.Clear; qaux.SQL.Add('select * from trabajadores where seleccionado=1 order by nombre'); qaux.Open; if qaux.RecordCount=0 then showmessage('¡¡¡ DEBE SELECCIONAR AL MENOS UN EMPLEADO ¡¡¡') else begin informedb.Datasource:=dsqaux; informes.Report.Clear; informes.LoadFromFile('c:\agrigest\informes\bajafincontrato.fr3'); informes.Variables.Variables['v_fecha']:=QUOTEDSTR('Aspe a '+fechamenos15texto); informes.Variables.Variables['v_fecha2']:=QUOTEDSTR(fecha2); informes.ShowReport(); /// grabo en documentos el documento firmado topdf.FileName:='BAJA FINCONTRATO-'+qempleadosnombre.AsString+'.pdf'; topdf.DefaultPath:='c:\agrigest\tmp\'; informes.Export(topdf); qaux.SQL.Clear; qaux.SQL.Add('delete from documentos_tmp '); qaux.ExecSQL; documentos_tmp.Open; try documentos_tmp.Append; ext:= '.pdf';//ExtractFileExt(opendialog2.FileName); nomarchivo:='BAJA FINCONTRATO-'+qempleadosnombre.AsString+'.pdf';//extractfilename(opendialog2.FileName); documentos_tmpidt.Value:=qempleadosid.Asinteger; documentos_tmpfecha.Value:=date(); documentos_tmpide.Value:=qempleadoside.AsInteger; documentos_tmpnomarchivo.Value:=nomarchivo; documentos_tmpdescripcion.Value:=nomarchivo; documentos_tmpextension.Value:=ext; documentos_tmparchivo.LoadFromFile(topdf.DefaultPath+nomarchivo); documentos_tmp.Post; finally deletefile(topdf.FileName); end; qaux.SQL.Clear; qaux.SQL.Add('insert into documentos (ide,fecha,descripcion,archivo,nomarchivo,extension,idlote,codpar,idea,idt) (select ide,fecha,descripcion,archivo,nomarchivo,extension,idlote,codpar,idea,idt from documentos_tmp)'); qaux.ExecSQL; qaux.SQL.Clear; qaux.SQL.Add('delete from documentos_tmp '); qaux.ExecSQL; documentos.refresh; qaux.SQL.Clear; qaux.SQL.Add('update trabajadores set seleccionado=0'); qaux.ExecSQL; qempleados.Close; qempleados.Open; checktodos2.Checked:=false; end; end; 2:begin qaux.close; qaux.SQL.Clear; qaux.SQL.Add('update trabajadores set seleccionado=0 where seleccionado=1'); qaux.Execsql; qaux.close; qaux.SQL.Clear; qaux.SQL.Add('update trabajadores set seleccionado=1 where id=:ID'); qaux.Prepare; for i := 0 to dbgrid1.Selectedrows.Count - 1 do begin qlistaempleados.GotoBookmark ((dbgrid1.selectedrows[i])); qaux.ParamByName('ID').AsInteger:=qlistaempleadosid.asinteger; qaux.Execsql; end; qaux.close; qaux.SQL.Clear; qaux.SQL.Add('select * from trabajadores where seleccionado=1 order by nombre'); qaux.Open; if qaux.RecordCount=0 then showmessage('¡¡¡ DEBE SELECCIONAR AL MENOS UN EMPLEADO ¡¡¡') else begin informedb.Datasource:=dsqaux; informes.Report.Clear; informes.LoadFromFile('c:\agrigest\informes\bajarechazo.fr3'); informes.Variables.Variables['v_fecha']:=QUOTEDSTR('Aspe a '+fecha); informes.ShowReport(); /// grabo en documentos el documento firmado topdf.FileName:='BAJA RECHAZO-'+qempleadosnombre.AsString+'.pdf'; topdf.DefaultPath:='c:\agrigest\tmp\'; informes.Export(topdf); qaux.SQL.Clear; qaux.SQL.Add('delete from documentos_tmp '); qaux.ExecSQL; documentos_tmp.Open; try documentos_tmp.Append; ext:= '.pdf';//ExtractFileExt(opendialog2.FileName); nomarchivo:='BAJA RECHAZO-'+qempleadosnombre.AsString+'.pdf';//extractfilename(opendialog2.FileName); documentos_tmpidt.Value:=qempleadosid.Asinteger; documentos_tmpfecha.Value:=date(); documentos_tmpide.Value:=qempleadoside.AsInteger; documentos_tmpnomarchivo.Value:=nomarchivo; documentos_tmpdescripcion.Value:=nomarchivo; documentos_tmpextension.Value:=ext; documentos_tmparchivo.LoadFromFile(topdf.DefaultPath+nomarchivo); documentos_tmp.Post; finally deletefile(topdf.FileName); end; qaux.SQL.Clear; qaux.SQL.Add('insert into documentos (ide,fecha,descripcion,archivo,nomarchivo,extension,idlote,codpar,idea,idt) (select ide,fecha,descripcion,archivo,nomarchivo,extension,idlote,codpar,idea,idt from documentos_tmp)'); qaux.ExecSQL; qaux.SQL.Clear; qaux.SQL.Add('delete from documentos_tmp '); qaux.ExecSQL; documentos.refresh; qaux.SQL.Clear; qaux.SQL.Add('update trabajadores set seleccionado=0'); qaux.ExecSQL; qempleados.Close; qempleados.Open; checktodos2.Checked:=false; end; end; 3:begin qaux.close; qaux.SQL.Clear; qaux.SQL.Add('update trabajadores set seleccionado=0 where seleccionado=1'); qaux.Execsql; qaux.close; qaux.SQL.Clear; qaux.SQL.Add('update trabajadores set seleccionado=1 where id=:ID'); qaux.Prepare; for i := 0 to dbgrid1.Selectedrows.Count - 1 do begin qlistaempleados.GotoBookmark ( (dbgrid1.selectedrows[i])); qaux.ParamByName('ID').AsInteger:=qlistaempleadosid.asinteger; qaux.Execsql; end; qaux.close; qaux.SQL.Clear; qaux.SQL.Add('select * from trabajadores where seleccionado=1 order by nombre'); qaux.Open; if qaux.RecordCount=0 then showmessage('¡¡¡ DEBE SELECCIONAR AL MENOS UN EMPLEADO ¡¡¡') else begin informedb.Datasource:=dsqaux; informes.Report.Clear; informes.LoadFromFile('c:\agrigest\informes\bajadisciplinaria.fr3'); informes.Variables.Variables['v_fecha']:=QUOTEDSTR(fechamenos3texto); informes.Variables.Variables['v_fecha2']:=QUOTEDSTR(fechamenos3); informes.ShowReport(); /// grabo en documentos el documento firmado topdf.FileName:='BAJA DISCIPLINARIA-'+qempleadosnombre.AsString+'.pdf'; topdf.DefaultPath:='c:\agrigest\tmp\'; informes.Export(topdf); qaux.SQL.Clear; qaux.SQL.Add('delete from documentos_tmp '); qaux.ExecSQL; documentos_tmp.Open; try documentos_tmp.Append; ext:= '.pdf';//ExtractFileExt(opendialog2.FileName); nomarchivo:='BAJA DISCIPLINARIA-'+qempleadosnombre.AsString+'.pdf';//extractfilename(opendialog2.FileName); documentos_tmpidt.Value:=qempleadosid.Asinteger; documentos_tmpfecha.Value:=date(); documentos_tmpide.Value:=qempleadoside.AsInteger; documentos_tmpnomarchivo.Value:=nomarchivo; documentos_tmpdescripcion.Value:=nomarchivo; documentos_tmpextension.Value:=ext; documentos_tmparchivo.LoadFromFile(topdf.DefaultPath+nomarchivo); documentos_tmp.Post; finally deletefile(topdf.FileName); end; qaux.SQL.Clear; qaux.SQL.Add('insert into documentos (ide,fecha,descripcion,archivo,nomarchivo,extension,idlote,codpar,idea,idt) (select ide,fecha,descripcion,archivo,nomarchivo,extension,idlote,codpar,idea,idt from documentos_tmp)'); qaux.ExecSQL; qaux.SQL.Clear; qaux.SQL.Add('delete from documentos_tmp '); qaux.ExecSQL; documentos.refresh; qaux.SQL.Clear; qaux.SQL.Add('update trabajadores set seleccionado=0'); qaux.ExecSQL; qempleados.Close; qempleados.Open; checktodos2.Checked:=false; end; end; 4:begin qaux.close; qaux.SQL.Clear; qaux.SQL.Add('update trabajadores set seleccionado=0 where seleccionado=1'); qaux.Execsql; qaux.close; qaux.SQL.Clear; qaux.SQL.Add('update trabajadores set seleccionado=1 where id=:ID'); qaux.Prepare; for i := 0 to dbgrid1.Selectedrows.Count - 1 do begin qlistaempleados.GotoBookmark ( (dbgrid1.selectedrows[i])); qaux.ParamByName('ID').AsInteger:=qlistaempleadosid.asinteger; qaux.Execsql; end; qaux.close; qaux.SQL.Clear; qaux.SQL.Add('select * from trabajadores where seleccionado=1 order by nombre'); qaux.Open; if qaux.RecordCount=0 then showmessage('¡¡¡ DEBE SELECCIONAR AL MENOS UN EMPLEADO ¡¡¡') else begin informedb.Datasource:=dsqaux; informes.Report.Clear; informes.LoadFromFile('c:\agrigest\informes\renunciarecmedico.fr3'); informes.Variables.Variables['v_fecha']:=QUOTEDSTR(fecha); informes.Variables.Variables['v_fecha2']:=QUOTEDSTR(fecha); informes.ShowReport(); /// grabo en documentos el documento firmado topdf.FileName:='RECONOCIMIENTO MEDICO-'+qempleadosnombre.AsString+'.pdf'; topdf.DefaultPath:='c:\agrigest\tmp\'; informes.Export(topdf); qaux.SQL.Clear; qaux.SQL.Add('delete from documentos_tmp '); qaux.ExecSQL; documentos_tmp.Open; try documentos_tmp.Append; ext:= '.pdf';//ExtractFileExt(opendialog2.FileName); nomarchivo:='RECONOCIMIENTO MEDICO-'+qempleadosnombre.AsString+'.pdf';//extractfilename(opendialog2.FileName); documentos_tmpidt.Value:=qempleadosid.Asinteger; documentos_tmpfecha.Value:=date(); documentos_tmpide.Value:=qempleadoside.AsInteger; documentos_tmpnomarchivo.Value:=nomarchivo; documentos_tmpdescripcion.Value:=nomarchivo; documentos_tmpextension.Value:=ext; documentos_tmparchivo.LoadFromFile(topdf.DefaultPath+nomarchivo); documentos_tmp.Post; finally deletefile(topdf.FileName); end; qaux.SQL.Clear; qaux.SQL.Add('insert into documentos (ide,fecha,descripcion,archivo,nomarchivo,extension,idlote,codpar,idea,idt) (select ide,fecha,descripcion,archivo,nomarchivo,extension,idlote,codpar,idea,idt from documentos_tmp)'); qaux.ExecSQL; qaux.SQL.Clear; qaux.SQL.Add('delete from documentos_tmp '); qaux.ExecSQL; documentos.refresh; qaux.SQL.Clear; qaux.SQL.Add('update trabajadores set seleccionado=0'); qaux.ExecSQL; qempleados.Close; qempleados.Open; checktodos2.Checked:=false; end; end; 5:begin qaux.close; qaux.SQL.Clear; qaux.SQL.Add('update trabajadores set seleccionado=0 where seleccionado=1'); qaux.Execsql; qaux.close; qaux.SQL.Clear; qaux.SQL.Add('update trabajadores set seleccionado=1 where id=:ID'); qaux.Prepare; for i := 0 to dbgrid1.Selectedrows.Count - 1 do begin qlistaempleados.GotoBookmark ( (dbgrid1.selectedrows[i])); qaux.ParamByName('ID').AsInteger:=qlistaempleadosid.asinteger; qaux.Execsql; end; qaux.close; qaux.SQL.Clear; qaux.SQL.Add('select * from trabajadores where seleccionado=1 order by nombre'); qaux.Open; if qaux.RecordCount=0 then showmessage('¡¡¡ DEBE SELECCIONAR AL MENOS UN EMPLEADO ¡¡¡') else begin informedb.Datasource:=dsqaux; informes.Report.Clear; informes.LoadFromFile('c:\agrigest\informes\acuerdoconfidencialidad.fr3'); informes.Variables.Variables['v_fecha']:=QUOTEDSTR(fecha); informes.Variables.Variables['v_fecha2']:=QUOTEDSTR(fecha); informes.ShowReport(); /// grabo en documentos el documento firmado topdf.FileName:='ACUERDOCONFIDENCIALIDAD-'+qempleadosnombre.AsString+'.pdf'; topdf.DefaultPath:='c:\agrigest\tmp\'; informes.Export(topdf); qaux.SQL.Clear; qaux.SQL.Add('delete from documentos_tmp '); qaux.ExecSQL; documentos_tmp.Open; try documentos_tmp.Append; ext:= '.pdf';//ExtractFileExt(opendialog2.FileName); nomarchivo:='ACUERDOCONFIDENCIALIDAD-'+qempleadosnombre.AsString+'.pdf';//extractfilename(opendialog2.FileName); documentos_tmpidt.Value:=qempleadosid.Asinteger; documentos_tmpfecha.Value:=date(); documentos_tmpide.Value:=qempleadoside.AsInteger; documentos_tmpnomarchivo.Value:=nomarchivo; documentos_tmpdescripcion.Value:=nomarchivo; documentos_tmpextension.Value:=ext; documentos_tmparchivo.LoadFromFile(topdf.DefaultPath+nomarchivo); documentos_tmp.Post; finally deletefile(topdf.FileName); end; qaux.SQL.Clear; qaux.SQL.Add('insert into documentos (ide,fecha,descripcion,archivo,nomarchivo,extension,idlote,codpar,idea,idt) (select ide,fecha,descripcion,archivo,nomarchivo,extension,idlote,codpar,idea,idt from documentos_tmp)'); qaux.ExecSQL; qaux.SQL.Clear; qaux.SQL.Add('delete from documentos_tmp '); qaux.ExecSQL; documentos.refresh; qaux.SQL.Clear; qaux.SQL.Add('update trabajadores set seleccionado=0'); qaux.ExecSQL; qempleados.Close; qempleados.Open; checktodos2.Checked:=false; end; end; end; seleccionando:=0; tfirmadocs.Picture:=nil; firmasdoc.Open; if firmasdoc.RecordCount>0 then firmasdoc.Delete; Deletefile('c:\agrigest\tmp\firma.bmp'); end; procedure Tfempleados.Button1Click(Sender: TObject); var usbDevices : IUsbDevices; usbDevice : IUsbDevice; begin usbDevices := CoUsbDevices.Create(); if (usbDevices.Count > 0) then begin try begin usbDevice := usbDevices.Item[0]; //select the first device vfirmas := Tvfirmas.Create(nil); try VFirmas.connect(usbDevice); VFirmas.ShowModal(); finally vfirmas.Free; end; end; except on e : Exception do ShowMessage(e.Message); end; qemp_firmas.Open; if qemp_firmas.RecordCount=0 then begin qemp_firmas.Append; qemp_firmaside.Value:=qempleadoside.asinteger; qemp_firmasidt.Value:=qempleadosid.asinteger; qemp_firmasfirma.LoadFromFile('c:\agrigest\tmp\firma.bmp'); qemp_firmas.Post; end else begin qemp_firmas.edit; qemp_firmaside.Value:=qempleadoside.asinteger; qemp_firmasidt.Value:=qempleadosid.asinteger; qemp_firmasfirma.LoadFromFile('c:\agrigest\tmp\firma.bmp'); qemp_firmas.Post; end; tfirmas.Picture.LoadFromFile('c:\agrigest\tmp\firma.bmp'); Deletefile('c:\agrigest\tmp\firma.bmp'); end else begin ShowMessage('Dispositivo de firmas no conectado'); end; end; procedure Tfempleados.Button22Click(Sender: TObject); begin qemp_firmas.Delete; tfirmas.Picture:=nil; end; procedure Tfempleados.Button23Click(Sender: TObject); begin emp_historico := Temp_historico.Create(nil); try emp_historico.showmodal(); finally emp_historico.Free; qemp_historico.close; qemp_historico.Open; end; end; procedure Tfempleados.Button24Click(Sender: TObject); begin qentregasmaterial.Append; qentregasmaterialide.Value:=qempleadoside.AsInteger; qentregasmaterialidt.Value:=qempleadosid.AsInteger; qentregasmaterialfecha.Value:=fentregamaterial.Date; qentregasmaterialconcepto.value:=qepisdescripcion.AsString; qentregasmaterialcantidad.Value:=1; qentregasmaterial.Post; end; procedure Tfempleados.Button25Click(Sender: TObject); begin qentregasmaterial.Delete; end; procedure Tfempleados.Button2Click(Sender: TObject); begin if qemp_fotosidt.asinteger=qempleadosid.asinteger then qemp_fotos.delete; image2.Picture:=nil; Deletefile('c:\agrigest\tmp\empimg'+qemp_fotosextension.AsString); end; procedure Tfempleados.Button3Click(Sender: TObject); begin documentos.Delete; end; procedure Tfempleados.Button6Click(Sender: TObject); var archivo:TMemorystream; ext,nomarchivo: string; begin try ext:= ExtractFileExt(opendialog2.FileName); nomarchivo:= extractfilename(opendialog2.FileName); documentosidt.Value:=qempleadosid.Asinteger; documentoside.Value:=qempleadoside.AsInteger; documentosnomarchivo.Value:=nomarchivo; documentosfecha.Value:=date(); documentosextension.Value:=ext; //documentosarchivo.LoadFromFile(opendialog2.FileName); documentos.Post; finally end; end; procedure Tfempleados.Button7Click(Sender: TObject); begin documentos.Cancel; end; procedure Tfempleados.Button8Click(Sender: TObject); var archivo:string; begin savedialog1.FileName:='ENTREGAS DE MATERIAL.xls'; savedialog1.Execute(); archivo:=savedialog1.FileName; try Exportaraexcel(archivo,'ENTREGAS DE MATERIAL',dbgrid6); finally showmessage('Los datos han sido exportados correctamente a '+archivo); end; end; procedure Tfempleados.Button9Click(Sender: TObject); var ext:string; begin if opendialog2.Execute then begin try ext:= ExtractFileExt(opendialog2.FileName); if (ext='.jpg') or (ext='.jpeg') or (ext='.bmp') or (ext='.png') then begin imgfoto.Picture.LoadFromFile(opendialog2.FileName); imgfoto.Visible:=true; end finally documentos.edit; dbgrid75.SetFocus; end; end; end; procedure Tfempleados.Capturar1Click(Sender: TObject); begin btEimagen.Caption:='Capturar imagen'; panelfotoe.Visible:=true; imgfotoe.Visible:=true; btactivarcamara.Click; end; procedure Tfempleados.Cargar1Click(Sender: TObject); begin bteimagen.Caption:='Cargar imagen'; bteimagen.Click; end; procedure Tfempleados.btEMaceptarClick(Sender: TObject); var i:integer; dia,mes,anyo:word; fecha,concepto,cantidad:string; begin if qentregasmaterial.State in [dsedit] then begin decodedate(fentregamaterial.Date,anyo,mes,dia); concepto:=edit1.Text; cantidad:=stringreplace((edit2.text),',','.',[rfreplaceall]); qentregasmaterialfecha.Value:=fentregamaterial.Date; qentregasmaterialconcepto.Value:=concepto; qentregasmaterialcantidad.Value:=strtofloat(cantidad); qentregasmaterial.Post; end else begin if dbgrid1.Selectedrows.Count>0 then begin decodedate(fentregamaterial.Date,anyo,mes,dia); fecha:=''''+inttostr(anyo)+'-'+inttostr(mes)+'-'+inttostr(dia)+''''; concepto:=''''+edit1.Text+''''; cantidad:=stringreplace((edit2.text),',','.',[rfreplaceall]); qaux.close; qaux.SQL.Clear; qaux.SQL.Add('update trabajadores set seleccionado=0 where seleccionado=1'); qaux.Execsql; for i := 0 to dbgrid1.Selectedrows.Count - 1 do begin qlistaempleados.GotoBookmark ((dbgrid1.selectedrows[i])); qaux.close; qaux.SQL.Clear; qaux.SQL.Add('update trabajadores set seleccionado=1 where id='+qempleadosid.asstring); qaux.Execsql; end; qaux.close; qaux.SQL.Clear; qaux.SQL.Add('insert into emp_entregasmaterial (ide,idt,fecha,concepto,cantidad) (select ide,id,'+fecha+','+concepto+','+cantidad+' from trabajadores where seleccionado=1)' ); qaux.Execsql; qaux.SQL.Clear; qaux.SQL.Add('update trabajadores set seleccionado=0 where seleccionado=1'); qaux.ExecSQL; end else showmessage('¡¡¡¡DEBE SELECCIONAR AL MENOS UN TRABAJADOR¡¡¡¡'); end; // panel30.Visible:=false; btEMaceptar.Enabled:=false; btEMcancelar.Enabled:=false; btEMnuevo.Enabled:=true; btEMmodificar.Enabled:=true; btEMborrar.Enabled:=true; qentregasmaterial.Refresh; qlistadoentregasmaterial.Refresh; end; procedure Tfempleados.btEMborrarClick(Sender: TObject); begin qentregasmaterial.Delete; qlistadoentregasmaterial.Refresh; end; procedure Tfempleados.btEMcancelarClick(Sender: TObject); begin if qentregasmaterial.State in [dsedit] then qentregasmaterial.Cancel; // panel30.Visible:=false; btEMaceptar.Enabled:=false; btEMcancelar.Enabled:=false; btEMnuevo.Enabled:=true; btEMmodificar.Enabled:=true; btEMborrar.Enabled:=true; qlistadoentregasmaterial.Refresh; end; procedure Tfempleados.btEMimprimirClick(Sender: TObject); var usbDevices : IUsbDevices; usbDevice : IUsbDevice; actual : TBookMarkStr; archivo,fecha,fecha2,fechamenos3,fechamenos3texto,fechamenos15,fechamenos15texto,textmes:string; dia,mes,anyo:word; sfecha:tdate; i:integer; ext,nomarchivo:string; begin qinfentregasmaterial.Close; qinfentregasmaterial.ParamByName('EMPRESA').AsInteger:=qempleadoside.AsInteger; qinfentregasmaterial.ParamByName('EMPLEADO').AsInteger:=qempleadosid.AsInteger; qinfentregasmaterial.ParamByName('FECHA').Asdate:=fentregamaterial.Date; qinfentregasmaterial.open; usbDevices := CoUsbDevices.Create(); if (usbDevices.Count > 0) then begin try begin usbDevice := usbDevices.Item[0]; //select the first device vfirmas := Tvfirmas.Create(nil); try VFirmas.connect(usbDevice); VFirmas.ShowModal(); finally vfirmas.Free; firmasdoc.Open; if firmasdoc.RecordCount=0 then begin firmasdoc.Append; firmasdocide.Value:=qempleadoside.asinteger; firmasdocidt.Value:=qempleadosid.asinteger; firmasdocfirma.LoadFromFile('c:\agrigest\tmp\firma.bmp'); firmasdoc.Post; end else begin firmasdoc.edit; firmasdocide.Value:=qempleadoside.asinteger; firmasdocidt.Value:=qempleadosid.asinteger; firmasdocfirma.LoadFromFile('c:\agrigest\tmp\firma.bmp'); firmasdoc.Post; end; if qemp_firmas.RecordCount=0 then begin qemp_firmas.Append; qemp_firmaside.Value:=qempleadoside.asinteger; qemp_firmasidt.Value:=qempleadosid.asinteger; qemp_firmasfirma.LoadFromFile('c:\agrigest\tmp\firma.bmp'); qemp_firmas.Post; end else begin qemp_firmas.edit; qemp_firmaside.Value:=qempleadoside.asinteger; qemp_firmasidt.Value:=qempleadosid.asinteger; qemp_firmasfirma.LoadFromFile('c:\agrigest\tmp\firma.bmp'); qemp_firmas.Post; end; tfirmas.Picture:=nil; tfirmas.Picture.LoadFromFile('c:\agrigest\tmp\firma.bmp'); tfirmadocs.Picture.LoadFromFile('c:\agrigest\tmp\firma.bmp'); end; end; except on e : Exception do ShowMessage(e.Message); end; end else begin ShowMessage('Dispositivo de firmas no conectado'); if qemp_firmasfirma.asstring<>'' then begin qemp_firmasfirma.SaveToFile('c:\agrigest\tmp\firma.bmp'); firmasdoc.Open; if firmasdoc.RecordCount=0 then begin firmasdoc.Append; firmasdocide.Value:=qempleadoside.asinteger; firmasdocidt.Value:=qempleadosid.asinteger; firmasdocfirma.LoadFromFile('c:\agrigest\tmp\firma.bmp'); firmasdoc.Post; end else begin firmasdoc.edit; firmasdocide.Value:=qempleadoside.asinteger; firmasdocidt.Value:=qempleadosid.asinteger; firmasdocfirma.LoadFromFile('c:\agrigest\tmp\firma.bmp'); firmasdoc.Post; end; tfirmadocs.Picture.LoadFromFile('c:\agrigest\tmp\firma.bmp'); end; end; seleccionando:=1; decodedate(fentregamaterial.date,anyo,mes,dia); case mes of 1: textmes:='enero'; 2: textmes:='febrero'; 3: textmes:='marzo'; 4: textmes:='abril'; 5: textmes:='mayo'; 6: textmes:='junio'; 7: textmes:='julio'; 8: textmes:='agosto'; 9: textmes:='septiembre'; 10: textmes:='octubre'; 11: textmes:='noviembre'; 12: textmes:='diciembre'; end; fecha:=floattostr(dia)+' de '+textmes+' de '+floattostr(anyo); informedb.Datasource:=dsqinfentregasmaterial; informes.Report.Clear; informes.LoadFromFile('c:\agrigest\informes\entregamaterial.fr3'); informes.Variables.Variables['v_fecha']:=QUOTEDSTR(' a '+fecha); informes.Variables.Variables['v_empleado']:=QUOTEDSTR(qempleadosnombre.AsString); informes.ShowReport(); /// grabo en documentos el documento firmado topdf.FileName:='ENTREGA DE MATERIAL-'+qempleadosnombre.AsString+'.pdf'; topdf.DefaultPath:='c:\agrigest\tmp\'; informes.Export(topdf); qaux.SQL.Clear; qaux.SQL.Add('delete from documentos_tmp '); qaux.ExecSQL; documentos_tmp.Open; try documentos_tmp.Append; ext:= '.pdf';//ExtractFileExt(opendialog2.FileName); nomarchivo:='ENTREGA DE MATERIAL-'+qempleadosnombre.AsString+'.pdf';//extractfilename(opendialog2.FileName); documentos_tmpidt.Value:=qempleadosid.Asinteger; documentos_tmpfecha.Value:=fentregamaterial.date; documentos_tmpide.Value:=qempleadoside.AsInteger; documentos_tmpnomarchivo.Value:=nomarchivo; documentos_tmpdescripcion.Value:=nomarchivo; documentos_tmpextension.Value:=ext; documentos_tmparchivo.LoadFromFile(topdf.DefaultPath+nomarchivo); documentos_tmp.Post; finally deletefile(topdf.FileName); end; qaux.SQL.Clear; qaux.SQL.Add('insert into documentos (ide,fecha,descripcion,archivo,nomarchivo,extension,idlote,codpar,idea,idt) (select ide,fecha,descripcion,archivo,nomarchivo,extension,idlote,codpar,idea,idt from documentos_tmp)'); qaux.ExecSQL; qaux.SQL.Clear; qaux.SQL.Add('delete from documentos_tmp '); qaux.ExecSQL; documentos.Open; documentos.refresh; end; procedure Tfempleados.btEMmodificarClick(Sender: TObject); begin panel30.Visible:=true; fentregamaterial.SetFocus; btEMaceptar.Enabled:=true; btEMcancelar.Enabled:=true; btEMnuevo.Enabled:=false; btEMmodificar.Enabled:=false; btEMborrar.Enabled:=false; fentregamaterial.Date:=qentregasmaterialfecha.Asdatetime; edit1.Text:=qentregasmaterialconcepto.AsString; edit2.Text:=qentregasmaterialcantidad.AsString; qentregasmaterial.Edit; end; procedure Tfempleados.btEMnuevoClick(Sender: TObject); begin panel30.Enabled:=true; panel30.Visible:=true; fentregamaterial.Date:=date(); fentregamaterial.SetFocus; btEMaceptar.Enabled:=true; btEMcancelar.Enabled:=true; btEMnuevo.Enabled:=false; btEMmodificar.Enabled:=false; btEMborrar.Enabled:=false; end; procedure Tfempleados.btEmodificarClick(Sender: TObject); begin qempleados.Edit; // qempleadosplanificacion.Edit; panel33.Enabled:=true; panel9.Enabled:=true; end; procedure Tfempleados.btEnuevoClick(Sender: TObject); begin qempleados.Append; panel33.Enabled:=true; panel9.Enabled:=true; end; procedure Tfempleados.btEoKimagenClick(Sender: TObject); var imagen : TBitmap; imagen2: tPicture; archivo:TMemorystream; ext: string; begin if bteimagen.Caption ='Capturar imagen' then begin imagen := TBitmap.Create; imagen2:= tPicture.Create; archivo:= tMemorystream.Create; try archivo.LoadFromFile('c:\agrigest\tmp\'+qempleadosid.AsString+'.bmp'); imagen2.loadFromFile('c:\agrigest\tmp\'+qempleadosid.AsString+'.bmp'); image2.Picture.LoadFromFile('c:\agrigest\tmp\'+qempleadosid.AsString+'.bmp'); image2.Visible:=true; // qempleados.edit; // dm.trabajadoresimagen.LoadFromFile('c:\controlgest\IMAGENES\'+dm.trabajadoresid.AsString+'.bmp'); // dm.trabajadorestipoimagen.Value:=ext; // qempleados.Post; if qemp_fotos.RecordCount=0 then begin qemp_fotos.Append; qemp_fotosidt.Value:=qempleadosid.Asinteger; qemp_fotoside.Value:=qempleadoside.AsInteger; qemp_fotosimagen.LoadFromFile('c:\agrigest\tmp\'+qempleadosid.AsString+'.bmp');//openpicturedialog1.FileName); qemp_fotosextension.Value:='.bmp'; qemp_fotos.Post; If not DirectoryExists('c:\agrigest\tmp') then CreateDir('c:\agrigest\tmp'); Deletefile('c:\agrigest\tmp\'+qempleadosid.AsString+'.bmp'); image2.Picture:=nil; qemp_fotosimagen.savetofile('c:\agrigest\tmp\'+qempleadosid.AsString+'.bmp'); image2.Picture.LoadFromFile('c:\agrigest\tmp\'+qempleadosid.AsString+'.bmp'); end else begin qemp_fotos.edit; qemp_fotosidt.Value:=qempleadosid.Asinteger; qemp_fotoside.Value:=qempleadoside.AsInteger; qemp_fotosimagen.LoadFromFile('c:\agrigest\tmp\'+qempleadosid.AsString+'.bmp');//openpicturedialog1.FileName); qemp_fotosextension.Value:='.bmp'; qemp_fotos.Post; If not DirectoryExists('c:\agrigest\tmp') then CreateDir('c:\agrigest\tmp'); Deletefile('c:\agrigest\tmp\'+qempleadosid.AsString+'.bmp'); image2.Picture:=nil; qemp_fotosimagen.savetofile('c:\agrigest\tmp\'+qempleadosid.AsString+'.bmp'); image2.Picture.LoadFromFile('c:\agrigest\tmp\'+qempleadosid.AsString+'.bmp'); end; finally imagen.Free; imgfotoe.Picture:=nil; imgfotoe.Visible:=false; panelfotoe.Visible:=false; Deletefile('c:\agrigest\tmp\'+qempleadosid.AsString+'.bmp'); end; end else begin if qemp_fotos.RecordCount=0 then begin qemp_fotos.Append; qemp_fotosidt.Value:=qempleadosid.Asinteger; qemp_fotoside.Value:=qempleadoside.AsInteger; qemp_fotosimagen.LoadFromFile(openpicturedialog1.FileName); ext:=ExtractFileExt(openpicturedialog1.FileName); qemp_fotosextension.Value:=ext;//ExtractFileExt(openpicturedialog1.FileName);//'.bmp'; qemp_fotos.Post; If not DirectoryExists('c:\agrigest\tmp') then CreateDir('c:\agrigest\tmp'); Deletefile('c:\agrigest\tmp\empimg'+ext); image2.Picture:=nil; qemp_fotosimagen.savetofile('c:\agrigest\tmp\empimg'+ext); image2.Picture.LoadFromFile('c:\agrigest\tmp\empimg'+ext); end else begin qemp_fotos.edit; qemp_fotosidt.Value:=qempleadosid.Asinteger; qemp_fotoside.Value:=qempleadoside.AsInteger; qemp_fotosimagen.LoadFromFile(openpicturedialog1.FileName); ext:=ExtractFileExt(openpicturedialog1.FileName); qemp_fotosextension.Value:=ext;//ExtractFileExt(openpicturedialog1.FileName);//'.bmp'; qemp_fotos.Post; If not DirectoryExists('c:\agrigest\tmp') then CreateDir('c:\agrigest\tmp'); Deletefile('c:\agrigest\tmp\empimg'+ext); image2.Picture:=nil; qemp_fotosimagen.savetofile('c:\agrigest\tmp\empimg'+ext); image2.Picture.LoadFromFile('c:\agrigest\tmp\empimg'+ext); end; end; bteimagen.Caption:='Cargar imagen'; panelfotoe.Visible:=false; imgfotoe.Visible:=false; btdesactivarcamara.Click; bteokimagen.Visible:=false; end; procedure Tfempleados.btplaceptarClick(Sender: TObject); var idt,ide:string; begin qempleadosplanificacion.post; qlistadoplanificacion.Refresh; idt:=qempleadosplanificacionidt.AsString; ide:=qempleadosplanificacionide.AsString; qlistaempleados.Refresh; qlistaempleados.Locate('id',idt,[locaseinsensitive]); end; procedure Tfempleados.btplcancelarClick(Sender: TObject); begin qempleadosplanificacion.cancel; end; procedure Tfempleados.btplmodificarClick(Sender: TObject); begin qempleadosplanificacion.Edit; end; procedure Tfempleados.btptborrarClick(Sender: TObject); begin qjornales.Delete; end; procedure Tfempleados.btptcancelarClick(Sender: TObject); begin if qjornales.State in [dsedit,dsinsert] then qjornales.Cancel; end; procedure Tfempleados.btptguardarClick(Sender: TObject); var totaljornal:real; begin if dsqjornales.State in [dsinsert] then begin qaux.Close; qaux.SQL.Clear; qaux.SQL.Add('select max(id)+1 from trabajo_diario'); qaux.Open; qjornalesid.Value:=qaux.Fields[0].Asinteger; qjornalesfecha.Value:=tfechajornal.Date; qjornalesparcela.value:=lparcela.KeyValue; qjornalesidt.Value:=qlistaempleadosid.asinteger; qjornalestrabajador.Value:=qlistaempleadosnombre.asstring; qjornalestypework.Value:=ltrabajo.KeyValue; qjornalesarticulo.Value:=ltipohora.KeyValue; qjornalesqhoras.Value:=strtofloat(thoras.text); qjornalesprecio.value:=strtofloat(lprecio.Text); totaljornal:=strtofloat(thoras.text)*strtofloat(lprecio.Text); qjornalestotal.Value:=strtofloat(FormatFloat('0.00',totaljornal)); qjornalesestado.Value:='C'; qjornales.Post; qjornales.Refresh; qjornales.First; tfechajornal.Enabled:=false; lparcela.Enabled:=false; ltrabajo.Enabled:=false; ltipohora.Enabled:=false; thoras.Enabled:=false; lprecio.Enabled:=false; end; if dsqjornales.State=dsedit then begin qjornalesfecha.Value:=tfechajornal.Date; qjornalesparcela.value:=lparcela.KeyValue; qjornalestypework.Value:=ltrabajo.KeyValue; qjornalesarticulo.Value:=ltipohora.KeyValue; qjornalesqhoras.Value:=strtofloat(thoras.text); qjornalesprecio.value:=strtofloat(lprecio.Text); totaljornal:=strtofloat(thoras.text)*strtofloat(lprecio.Text); qjornalestotal.Value:=strtofloat(FormatFloat('0.00',totaljornal)); qjornalesestado.Value:='C'; qjornales.Post; qjornales.Refresh; qjornales.First; tfechajornal.Enabled:=false; lparcela.Enabled:=false; ltrabajo.Enabled:=false; ltipohora.Enabled:=false; thoras.Enabled:=false; lprecio.Enabled:=false; end; end; procedure Tfempleados.btptmodificarClick(Sender: TObject); begin tfechajornal.Date:=qjornalesfecha.AsDateTime; ltrabajo.KeyValue:= qjornalestypework.AsString; lparcela.KeyValue:= qjornalesparcela.AsString; ltipohora.KeyValue:= qjornalesarticulo.AsString; lprecio.Text:=qtipohoraprecio.asstring; thoras.Text:= qjornalesqhoras.AsString; tfechajornal.Enabled:=true; lparcela.Enabled:=true; ltrabajo.Enabled:=true; ltipohora.Enabled:=true; thoras.Enabled:=true; lprecio.Enabled:=true; qjornales.Edit; end; procedure Tfempleados.btptnuevoClick(Sender: TObject); begin tfechajornal.Enabled:=true; lparcela.Enabled:=true; ltrabajo.Enabled:=true; ltipohora.Enabled:=true; thoras.Enabled:=true; lprecio.Enabled:=true; tfechajornal.SetFocus; qjornales.Append; end; procedure Tfempleados.btEguardarClick(Sender: TObject); var tid:string; begin tid:=qempleadosid.AsString; if qempleados.State in [dsedit,dsinsert] then qempleados.Post; if qempleadosplanificacion.State in [dsedit] then qempleadosplanificacion.Post; qlistaempleados.Refresh; qlistaempleados.Locate('id',tid,[locaseinsensitive]); panel33.Enabled:=false; panel9.Enabled:=false; qconvocatorias.Refresh; end; procedure Tfempleados.btEimagenClick(Sender: TObject); var PanelDC: HDC; Jpg : TJPEGImage; bmp : Tbitmap; imagen : TPicture; ext:string; // imagen : TJPEGImage; begin if (Sender as TButton).Caption ='Cargar imagen' then begin if OpenPictureDialog1.Execute then begin // imagen := TJPEGImage.Create; imagen := TPicture.Create; bmp:= TBitmap.Create; jpg:=TJPEGImage.Create; try ext:= ExtractFileExt(openpicturedialog1.FileName); if (ext='.jpg') or (ext='jpeg') then begin imgfotoe.Picture.LoadFromFile(OpenPictureDialog1.FileName);//'c:\formagest\imagenes\'+dm.alumnosid.asstring+'.bmp'); bteokimagen.Visible:=true; end else begin imgfotoe.Picture.LoadFromFile(OpenPictureDialog1.FileName);//'c:\formagest\imagenes\'+dm.alumnosid.asstring+'.bmp'); bteokimagen.Visible:=true; end; imgfotoe.Visible:=true; finally imagen.Free; end; end; end; end; procedure Tfempleados.checktodos2Click(Sender: TObject); begin seleccionando:=1; if checktodos2.checked then begin with qlistaempleados do begin First; while not EOF do begin Dbgrid1.SelectedRows.CurrentRowSelected := True; next; end end; end else begin with qlistaempleados do begin First; while not EOF do begin Dbgrid1.SelectedRows.CurrentRowSelected := false; next; end end; end; seleccionando:=0; end; procedure Tfempleados.chktodosempleadosClick(Sender: TObject); begin qlistaempleados.Close; qlistaempleados.Open; end; procedure Tfempleados.DBEdit10Exit(Sender: TObject); begin qempleadosplanificacionfecha_carnetmanipulador.editmask := '!99/99/9900;1;_'; qempleadosplanificacionfecha_carnetmanipulador.OnValidate := qempleadosplanificacionfecha_carnetmanipuladorvalidate; end; procedure Tfempleados.DBEdit10KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); begin If Key = VK_DELETE then If DBEdit10.Text = ' / / ' then begin qempleadosplanificacionfecha_carnetmanipulador.EditMask := ''; qempleadosplanificacionfecha_carnetmanipulador.OnValidate := nil; DBEdit10.Text := ''; end; end; procedure Tfempleados.DBEdit13Exit(Sender: TObject); begin qempleadosplanificacionfecha_testcovid19.editmask := '!99/99/9900;1;_'; qempleadosplanificacionfecha_testcovid19.OnValidate := qempleadosplanificacionfecha_testcovid19validate; end; procedure Tfempleados.DBEdit13KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); begin If Key = VK_DELETE then If DBEdit13.Text = ' / / ' then begin qempleadosplanificacionfecha_testcovid19.EditMask := ''; qempleadosplanificacionfecha_testcovid19.OnValidate := nil; DBEdit13.Text := ''; end; end; procedure Tfempleados.DBEdit21Exit(Sender: TObject); begin qempleadosplanificacionfecha_recmedico.editmask := '!99/99/9900;1;_'; qempleadosplanificacionfecha_recmedico.OnValidate := qempleadosplanificacionfecha_recmedicovalidate; end; procedure Tfempleados.DBEdit21KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); begin If Key = VK_DELETE then If DBEdit21.Text = ' / / ' then begin qempleadosplanificacionfecha_recmedico.EditMask := ''; qempleadosplanificacionfecha_recmedico.OnValidate := nil; DBEdit21.Text := ''; end; end; procedure Tfempleados.DBEdit26Exit(Sender: TObject); begin qempleadosplanificacionfecha_ren_recmedico.editmask := '!99/99/9900;1;_'; qempleadosplanificacionfecha_ren_recmedico.OnValidate := qempleadosplanificacionfecha_ren_recmedicovalidate; end; procedure Tfempleados.DBEdit26KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); begin If Key = VK_DELETE then If DBEdit26.Text = ' / / ' then begin qempleadosplanificacionfecha_ren_recmedico.EditMask := ''; qempleadosplanificacionfecha_ren_recmedico.OnValidate := nil; DBEdit26.Text := ''; end; end; procedure Tfempleados.DBEdit27Change(Sender: TObject); begin DBEDIT2.Text:=DBEDIT8.Text+' '+DBEDIT27.Text; end; procedure Tfempleados.DBEdit40Exit(Sender: TObject); begin qempleadosplanificacionvto_permisotrabajo.editmask := '!99/99/9900;1;_'; qempleadosplanificacionvto_permisotrabajo.OnValidate := qempleadosplanificacionvto_permisotrabajovalidate; end; procedure Tfempleados.DBEdit40KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); begin If Key = VK_DELETE then If DBEdit40.Text = ' / / ' then begin qempleadosplanificacionvto_permisotrabajo.EditMask := ''; qempleadosplanificacionvto_permisotrabajo.OnValidate := nil; DBEdit40.Text := ''; end; end; procedure Tfempleados.DBEdit41KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if (key=115) then begin qtaquillas.Close; qtaquillas.Open; seleccionartaquilla := Tseleccionartaquilla.Create(nil); try seleccionartaquilla.showmodal(); finally seleccionartaquilla.Free; qempleadosnum_taquilla.value:=qtaquillasid.AsInteger; end; end; end; procedure Tfempleados.DBEdit43Enter(Sender: TObject); begin qconvocatorias.Refresh; listaconvocatorias.Visible:=not listaconvocatorias.Visible; end; procedure Tfempleados.DBEdit8Change(Sender: TObject); begin DBEDIT2.Text:=DBEDIT8.Text+' '+DBEDIT27.Text; end; procedure Tfempleados.DBEdit9Exit(Sender: TObject); begin qaux.Close; qaux.SQL.Clear; qaux.SQL.Add('select nombre,nif from trabajadores where nif='+''''+dbedit9.Text+''''); qaux.Open; if (qaux.RecordCount=0) and (qempleados.State in [dsinsert]) then begin if (not esnif(dbedit9.Text)) and (not escif(dbedit9.Text)) then showmessage('¡¡¡ EL NIF INTRODUCIDO ES ERRONEO ¡¡¡'); end; if (qaux.RecordCount=0) and (qempleados.State in [dsedit]) then begin if (not esnif(dbedit9.Text)) and (not escif(dbedit9.Text)) then showmessage('¡¡¡ EL NIF INTRODUCIDO ES ERRONEO ¡¡¡'); end; if (qaux.RecordCount>0) then begin showmessage('¡¡¡ EL TRABAJADOR/A YA EXISTE ¡¡¡'); qempleados.Cancel; tbuscar.Text:=qaux.Fields[0].AsString; chktodosempleados.Checked:=true; end; end; procedure Tfempleados.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin if (qlistaempleadosvto_permisotrabajo.AsString<>'') and (qlistaempleadosvto_permisotrabajo.asdatetime<=date()+10 )then begin DBGrid1.Canvas.brush.Color := rojo; end; DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State); end; procedure Tfempleados.DBGrid1TitleClick(Column: TColumn); var st:ZAbstractRODataset.TSortType; begin st:=qlistaempleados.SortType; qlistaempleados.SortedFields:=Column.FieldName; If st = stAscending then qlistaempleados.SortType:=stDescending else qlistaempleados.SortType:=stAscending; dsqlistaempleados.DataSet.First; end; procedure Tfempleados.DBGrid2CellClick(Column: TColumn); begin if (qjornalesestado.AsString='C') OR (qjornalesestado.AsString='S') then BEGIN if qjornalesestado.AsString='C' then begin qjornales.Edit; qjornalesestado.value:='S'; qjornales.Post; end ELSE begin qjornales.Edit; qjornalesestado.value:='C'; qjornales.Post; end; END; end; procedure Tfempleados.DBGrid2DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin if qjornalesestado.AsString='C' then begin DBGrid2.Canvas.brush.Color := amarillo; end; if qjornalesestado.AsString='S' then begin DBGrid2.Canvas.brush.Color := rojo; end; if qjornalesestado.AsString='V' then begin DBGrid2.Canvas.brush.Color := azul; end; if qjornalesestado.AsString='P' then begin DBGrid2.Canvas.brush.Color := verde; end; DBGrid2.DefaultDrawColumnCell(Rect, DataCol, Column, State); end; procedure Tfempleados.DBGrid5CellClick(Column: TColumn); begin fentregamaterial.Date:=qentregasmaterialfecha.AsDateTime; end; procedure Tfempleados.DBGrid75DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin if (qlistadoplanificacionvto_permisotrabajo.AsString<>'') and (qlistadoplanificacionvto_permisotrabajo.asdatetime<=date()+10 )then begin DBGrid75.Canvas.brush.Color := rojo; end; DBGrid75.DefaultDrawColumnCell(Rect, DataCol, Column, State); end; procedure Tfempleados.DBLookupComboBox1DropDown(Sender: TObject); begin if qempleados.State in [dsinsert] then begin qempleadosirpf.Value:=qregimencotizacionirpf.AsFloat; qempleadosformacion.Value:=qregimencotizacionformacion.AsFloat; qempleadosdesempleo.Value:=qregimencotizaciondesempleo.AsFloat; qempleadoscontingencias.Value:=qregimencotizacioncontingencias.AsFloat; end; end; procedure Tfempleados.dsqanticiposStateChange(Sender: TObject); begin if qanticipos.State in [dsedit,dsinsert] then begin bteanuevo.Enabled:=false; bteamodificar.Enabled:=false; bteaborrar.Enabled:=false; bteacancelar.Enabled:=true; bteaguardar.Enabled:=true; end else begin bteanuevo.Enabled:=true; bteamodificar.Enabled:=true; bteaborrar.Enabled:=true; bteacancelar.Enabled:=false; bteaguardar.Enabled:=false; end; end; procedure Tfempleados.dsqempleadosplanificacionStateChange(Sender: TObject); begin if qempleadosplanificacion.State in [dsedit] then begin panel18.Enabled:=true; panel19.Enabled:=true; panel20.Enabled:=true; btplaceptar.Enabled:=true; btplcancelar.Enabled:=true; btplmodificar.Enabled:=false; end else begin panel18.Enabled:=false; panel19.Enabled:=false; panel20.Enabled:=false; btplaceptar.Enabled:=false; btplcancelar.Enabled:=false; btplmodificar.Enabled:=true; end; end; procedure Tfempleados.dsqempleadosStateChange(Sender: TObject); begin if qempleados.State in [dsedit,dsinsert] then begin btenuevo.Enabled:=false; btemodificar.Enabled:=false; bteborrar.Enabled:=false; btecancelar.Enabled:=true; bteguardar.Enabled:=true; // btfanterior.Enabled:=false; // btfsiguiente.Enabled:=false; // btfimportar.Enabled:=false; // btfimprimir.Enabled:=false; end else begin btenuevo.Enabled:=true; btemodificar.Enabled:=true; bteborrar.Enabled:=true; btecancelar.Enabled:=false; bteguardar.Enabled:=false; // btfanterior.Enabled:=true; // btfsiguiente.Enabled:=true; // btfimportar.Enabled:=true; // btfimprimir.Enabled:=true; end; end; procedure Tfempleados.dsqjornalesStateChange(Sender: TObject); begin if qjornales.State in [dsedit,dsinsert] then begin btptnuevo.Enabled:=false; btptmodificar.Enabled:=false; btptborrar.Enabled:=false; btptcancelar.Enabled:=true; btptguardar.Enabled:=true; end else begin btptnuevo.Enabled:=true; btptmodificar.Enabled:=true; btptborrar.Enabled:=true; btptcancelar.Enabled:=false; btptguardar.Enabled:=false; end; end; procedure Tfempleados.dsqlistaempleadosDataChange(Sender: TObject; Field: TField); var empleado,empresa:integer; anyo,mes,mostrar:string; begin documentos.Close; empleado:=qlistaempleadosid.AsInteger; empresa:=qlistaempleadoside.AsInteger; if pageempleados.ActivePageIndex=1 then begin qempleados.Close; qempleados.Prepare; qempleados.ParamByName('EMPLEADO').AsInteger:=empleado; qempleados.ParamByName('EMPRESA').AsInteger:=empresa; qempleados.Open; qempleadosplanificacion.Close; qempleadosplanificacion.Prepare; qempleadosplanificacion.parambyname('EMPRESA').AsInteger:=empresa; qempleadosplanificacion.parambyname('EMPLEADO').AsInteger:=empleado; qempleadosplanificacion.Open; documentos.Close; documentos.Prepare; documentos.ParamByName('EMPLEADO').AsInteger:=qlistaempleadosid.AsInteger; documentos.ParamByName('EMPRESA').AsInteger:=qlistaempleadoside.AsInteger; documentos.open; end; if pageempleados.ActivePageIndex=2 then begin qempleados.Close; qempleados.Prepare; qempleados.ParamByName('EMPLEADO').AsInteger:=empleado; qempleados.ParamByName('EMPRESA').AsInteger:=empresa; qempleados.Open; qentregasmaterial.Close; qentregasmaterial.Prepare; qentregasmaterial.ParamByName('EMPLEADO').AsInteger:=empleado; qentregasmaterial.ParamByName('EMPRESA').AsInteger:=empresa; qentregasmaterial.open; qlistadoentregasmaterial.Close; qlistadoentregasmaterial.Prepare; qlistadoentregasmaterial.ParamByName('EMPRESA').AsInteger:=empresa; qlistadoentregasmaterial.ParamByName('EMPLEADO').AsInteger:=empleado; qlistadoentregasmaterial.open; end; if pageempleados.ActivePageIndex=3 then begin qempleados.Close; qempleados.Prepare; qempleados.ParamByName('EMPLEADO').AsInteger:=empleado; qempleados.ParamByName('EMPRESA').AsInteger:=empresa; qempleados.Open; if (qlistaempleados.RecordCount>0) and (pageempleados.ActivePageIndex=3) then begin tfechajornal.Date:=date; if tanyo.ItemIndex<>0 then anyo:=tanyo.Text else anyo:='%'; if tmes.itemindex<>0 then mes:=inttostr(tmes.itemindex) else mes:='%'; qjornales.Close; qjornales.Prepare; qjornales.ParamByName('EMPLEADO').AsInteger:=empleado; qjornales.ParamByName('EMPRESA').AsInteger:=empresa; qjornales.ParamByName('ANYO').Asstring:=anyo; qjornales.ParamByName('MES').Asstring:=mes; qjornales.Open; end; end; if pageempleados.ActivePageIndex=4 then begin if (qlistaempleados.RecordCount>0) and (pageempleados.ActivePageIndex=4) then begin fechaanticipo.date:=date; if tanyo2.ItemIndex<>0 then anyo:=tanyo2.Text else anyo:='%'; if tmes2.itemindex<>0 then mes:=inttostr(tmes2.itemindex) else mes:='%'; qanticipos.Close; qanticipos.Prepare; qanticipos.ParamByName('EMPLEADO').AsInteger:=empleado; qanticipos.ParamByName('EMPRESA').AsInteger:=empresa; qanticipos.ParamByName('ANYO').Asstring:=anyo; qanticipos.ParamByName('MES').Asstring:=mes; qanticipos.Open; end; end; if pageempleados.ActivePageIndex=5 then begin qlistadoplanificacion.Close; qlistadoplanificacion.Prepare; qlistadoplanificacion.ParamByName('EMPRESA').AsInteger:=EMPRESA; qlistadoplanificacion.open; end; if pageempleados.ActivePageIndex=0 then begin if qlistaempleados.RecordCount>0 then begin qempleados.Close; qempleados.Prepare; qempleados.ParamByName('EMPLEADO').AsInteger:=empleado; qempleados.ParamByName('EMPRESA').AsInteger:=empresa; qempleados.Open; if qempleados.RecordCount>0 then begin qemp_fotos.Close; qemp_fotos.ParamByName('EMPLEADO').AsInteger:=empleado; qemp_fotos.ParamByName('EMPRESA').AsInteger:=empresa; qemp_fotos.open; If not DirectoryExists('c:\agrigest\tmp') then CreateDir('c:\agrigest\tmp'); Deletefile('c:\agrigest\tmp\empimg.*');//+temp_fotosextension.AsString); image2.Picture:=nil; if qemp_fotos.RecordCount>0 then begin qemp_fotosimagen.savetofile('c:\agrigest\tmp\empimg'+qemp_fotosextension.asstring); image2.Picture.LoadFromFile('c:\agrigest\tmp\empimg'+qemp_fotosextension.AsString); end; qemp_firmas.Close; qemp_firmas.ParamByName('EMPLEADO').AsInteger:=empleado; qemp_firmas.ParamByName('EMPRESA').AsInteger:=empresa; qemp_firmas.open; If not DirectoryExists('c:\agrigest\tmp') then CreateDir('c:\agrigest\tmp'); Deletefile('c:\agrigest\tmp\empimg.bmp');//+temp_fotosextension.AsString); tfirmas.Picture:=nil; if qemp_firmas.RecordCount>0 then begin qemp_firmasfirma.savetofile('c:\agrigest\tmp\empimg.bmp'); tfirmas.Picture.LoadFromFile('c:\agrigest\tmp\empimg.bmp'); Deletefile('c:\agrigest\tmp\empimg.bmp'); end; if qempleados.State in [dsedit,dsinsert] then qempleados.Post; if qempleadosplanificacion.State in [dsedit] then qempleadosplanificacion.Post; qempleadosplanificacion.Close; qempleadosplanificacion.Prepare; qempleadosplanificacion.parambyname('EMPRESA').AsInteger:=empresa; qempleadosplanificacion.parambyname('EMPLEADO').AsInteger:=empleado; qempleadosplanificacion.Open; documentos.Close; documentos.Prepare; documentos.ParamByName('EMPLEADO').AsInteger:=qlistaempleadosid.AsInteger; documentos.ParamByName('EMPRESA').AsInteger:=qlistaempleadoside.AsInteger; documentos.open; end; end; end; end; procedure Tfempleados.dsqregimencotizacionDataChange(Sender: TObject; Field: TField); begin if qempleados.State in [dsedit,dsinsert] then begin qempleadosirpf.Value:=qregimencotizacionirpf.AsFloat; qempleadosdesempleo.Value:=qregimencotizaciondesempleo.AsFloat; qempleadosformacion.Value:=qregimencotizacionformacion.AsFloat; qempleadoscontingencias.Value:=qregimencotizacioncontingencias.AsFloat; end; end; procedure Tfempleados.FormClose(Sender: TObject; var Action: TCloseAction); begin borrarficheros('c:\agrigest\tmp\'); end; procedure Tfempleados.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if (activecontrol is tdbgrid) then begin if Key = 13 then Key :=9; end; end; procedure Tfempleados.FormKeyPress(Sender: TObject; var Key: Char); var formatos:tformatsettings; punto:string; begin GetLocaleFormatSettings(LOCALE_SYSTEM_DEFAULT, formatos); punto:=formatos.DecimalSeparator; if punto=',' then begin key:=upcase(key); if (key='.') and (activecontrol is tdbedit) then begin if (activecontrol as tdbedit).Field.DataType in [ftfloat,ftCurrency,ftbcd,ftfmtbcd] then key:=',' end; if (key='.') and (activecontrol is tedit) then begin key:=',' end; if (key='.') and (activecontrol is tdbgrid) then begin key:=','; end; end; if (activecontrol is tdbgrid) then begin if Key = #13 then Key :=#9; end; if (activecontrol is tdatetimepicker) then begin if Key = #13 then Key :=#9; end; if (activecontrol is tdbcheckbox) then begin if Key = #13 then Key :=#9; end; if (key=#13) then begin Perform(WM_NextDLGCtl,0,0); key:=#0; end; end; procedure Tfempleados.FormShow(Sender: TObject); begin dm.tempresa.Open; pageempleados.ActivePageIndex:=0; qempresaformularios.CLOSE; qgrupos.Open; qgrupos2.open; qtipohora.Open; qregimencotizacion.Open; listagrupos2.KeyValue:=0; qtareas.Open; qparcelas.Open; qpuestostrabajo.Open; qlistaempleados.Open; qconvocatorias.Open; qemp_historico.Open; qempresaformularios.Open; seleccionando:=0; end; procedure Tfempleados.Image2DblClick(Sender: TObject); var nomarchivo:string; begin nomarchivo:='empimg'+qemp_fotosextension.AsString; ShellExecute(Handle,nil,PChar('c:\agrigest\tmp\'+nomarchivo),'','',SW_SHOWNORMAL); end; procedure Tfempleados.listaconvocatoriasDblClick(Sender: TObject); begin if qempleados.State in [dsedit,dsinsert] then begin qempleadosconvocatoria.Value:=qconvocatoriasconvocatoria.AsString; listaconvocatorias.Visible:=false; end; end; procedure Tfempleados.listaconvocatoriasExit(Sender: TObject); begin listaconvocatorias.Visible:=false; end; procedure Tfempleados.listagrupos2CloseUp(Sender: TObject); begin vtactivo:=qgrupos2id.asinteger; qlistaempleados.Close; qlistaempleados.Open; end; procedure Tfempleados.ltipohoraCloseUp(Sender: TObject); begin lprecio.Text:=qtipohoraprecio.AsString; end; procedure Tfempleados.PageEmpleadosChange(Sender: TObject); var empresa,empleado:integer; anyo,mes:string; vanyo,vmes,vdia:word; begin decodedate(date(),vanyo,vmes,vdia); tanyo.ItemIndex:=vanyo-2014; tmes.ItemIndex:=vmes; tanyo2.ItemIndex:=vanyo-2014; tmes2.ItemIndex:=vmes; empleado:=qlistaempleadosid.asinteger; empresa:=qlistaempleadoside.asinteger; if pageempleados.ActivePageIndex=0 then begin if qlistaempleados.RecordCount>0 then begin qempleados.Close; qempleados.Prepare; qempleados.ParamByName('EMPLEADO').AsInteger:=empleado; qempleados.ParamByName('EMPRESA').AsInteger:=empresa; qempleados.Open; if qempleados.RecordCount>0 then begin qemp_fotos.Close; qemp_fotos.ParamByName('EMPLEADO').AsInteger:=empleado; qemp_fotos.ParamByName('EMPRESA').AsInteger:=empresa; qemp_fotos.open; If not DirectoryExists('c:\agrigest\tmp') then CreateDir('c:\agrigest\tmp'); Deletefile('c:\agrigest\tmp\empimg.*');//+temp_fotosextension.AsString); image2.Picture:=nil; if qemp_fotos.RecordCount>0 then begin qemp_fotosimagen.savetofile('c:\agrigest\tmp\empimg'+qemp_fotosextension.asstring); image2.Picture.LoadFromFile('c:\agrigest\tmp\empimg'+qemp_fotosextension.AsString); end; qemp_firmas.Close; qemp_firmas.ParamByName('EMPLEADO').AsInteger:=empleado; qemp_firmas.ParamByName('EMPRESA').AsInteger:=empresa; qemp_firmas.open; If not DirectoryExists('c:\agrigest\tmp') then CreateDir('c:\agrigest\tmp'); Deletefile('c:\agrigest\tmp\empimg.bmp');//+temp_fotosextension.AsString); tfirmas.Picture:=nil; if qemp_firmas.RecordCount>0 then begin qemp_firmasfirma.savetofile('c:\agrigest\tmp\empimg.bmp'); tfirmas.Picture.LoadFromFile('c:\agrigest\tmp\empimg.bmp'); Deletefile('c:\agrigest\tmp\empimg.bmp'); end; if qempleados.State in [dsedit,dsinsert] then qempleados.Post; if qempleadosplanificacion.State in [dsedit] then qempleadosplanificacion.Post; qempleadosplanificacion.Close; qempleadosplanificacion.Prepare; qempleadosplanificacion.parambyname('EMPRESA').AsInteger:=empresa; qempleadosplanificacion.parambyname('EMPLEADO').AsInteger:=empleado; qempleadosplanificacion.Open; end; end; end; if (qlistaempleados.RecordCount>0) and (pageempleados.ActivePageIndex=1) then begin qempleadosplanificacion.Close; qempleadosplanificacion.Prepare; qempleadosplanificacion.parambyname('EMPRESA').AsInteger:=empresa; qempleadosplanificacion.parambyname('EMPLEADO').AsInteger:=empleado; qempleadosplanificacion.Open; end; if (qlistaempleados.RecordCount>0) and (pageempleados.ActivePageIndex=2) then begin // panel30.Visible:=false; btEMaceptar.Enabled:=false; btEMcancelar.Enabled:=false; btEMnuevo.Enabled:=true; btEMmodificar.Enabled:=true; btEMborrar.Enabled:=true; qentregasmaterial.Close; qentregasmaterial.Prepare; qentregasmaterial.ParamByName('EMPLEADO').AsInteger:=empleado; qentregasmaterial.ParamByName('EMPRESA').AsInteger:=empresa; qentregasmaterial.open; qlistadoentregasmaterial.Close; qlistadoentregasmaterial.Prepare; qlistadoentregasmaterial.ParamByName('EMPRESA').AsInteger:=empresa; qlistadoentregasmaterial.ParamByName('EMPLEADO').AsInteger:=empleado; qlistadoentregasmaterial.open; qepis.Close; qepis.Prepare; qepis.ParamByName('EMPRESA').AsInteger:=EMPRESA; qepis.open; fentregamaterial.Date:=date(); end; if (qlistaempleados.RecordCount>0) and (pageempleados.ActivePageIndex=3) then begin if tanyo.ItemIndex<>0 then anyo:=tanyo.Text else anyo:='%'; if tmes.itemindex<>0 then mes:=inttostr(tmes.itemindex) else mes:='%'; qjornales.Close; qjornales.Prepare; qjornales.ParamByName('EMPLEADO').AsInteger:=empleado; qjornales.ParamByName('EMPRESA').AsInteger:=empresa; qjornales.ParamByName('ANYO').Asstring:=anyo; qjornales.ParamByName('MES').Asstring:=mes; qjornales.Open; qparcelas.Open; qtareas.open; end; if (qlistaempleados.RecordCount>0) and (pageempleados.ActivePageIndex=4) then begin fechaanticipo.date:=date(); if (qlistaempleados.RecordCount>0) and (pageempleados.ActivePageIndex=4) then begin if tanyo.ItemIndex<>0 then anyo:=tanyo.Text else anyo:='%'; if tmes.itemindex<>0 then mes:=inttostr(tmes.itemindex) else mes:='%'; qanticipos.Close; qanticipos.Prepare; qanticipos.ParamByName('EMPLEADO').AsInteger:=empleado; qanticipos.ParamByName('EMPRESA').AsInteger:=empresa; qanticipos.ParamByName('ANYO').Asstring:=anyo; qanticipos.ParamByName('MES').Asstring:=mes; qanticipos.Open; end; end; if (pageempleados.ActivePageIndex=5) then begin qlistadoplanificacion.Close; qlistadoplanificacion.Prepare; qlistadoplanificacion.ParamByName('EMPRESA').AsInteger:=EMPRESA; qlistadoplanificacion.open; end; if (pageempleados.ActivePageIndex=2) then begin end; end; procedure Tfempleados.qempleadosAfterInsert(DataSet: TDataSet); begin qid.close; qid.ParamByName('EMPRESA').AsInteger:=dm.tempresaid.AsInteger; qid.open; if qidid.asstring='' then qempleadosid.value:=1 else qempleadosid.Value:=qidid.asinteger; qempleadosempresa.Value:=dm.tempresaid.AsInteger; end; procedure Tfempleados.qempleadosAfterPost(DataSet: TDataSet); begin qlistaempleados.Refresh; qlistaempleados.Locate('ide;id',vararrayof([pide,pidt]),[locaseinsensitive]); end; procedure Tfempleados.qempleadosBeforeDelete(DataSet: TDataSet); begin case dm.PedirConfirmacion('¿Confirma que desea borrar este empleado?',true,true,false) of mrno:Abort; end; end; procedure Tfempleados.qempleadosBeforePost(DataSet: TDataSet); var x:integer; begin if qempleadosfechabaja.AsString='' then qempleadosmostrar.Value:=1 else qempleadosmostrar.value:=0; if qempleados.state=dsinsert then x:=dm.PedirConfirmacion('¿Confirma que desea dar de alta este empleado?',true,true,true) else x:=dm.PedirConfirmacion('¿Confirma que desea modificar este empleado?',true,true,true); case x of mrno: begin qempleados.cancel; abort; end; mrcancel:BEGIN abort; END; end; pidt:=qempleadosid.AsInteger; pide:=qempleadoside.AsInteger; end; procedure Tfempleados.qempleadosplanificacionfecha_carnetmanipuladorValidate( Sender: TField); begin if qempleadosplanificacionfecha_carnetmanipulador.asstring=' / / ' then begin qempleadosplanificacionfecha_carnetmanipulador.value := null; end; end; procedure Tfempleados.qempleadosplanificacionfecha_recmedicoValidate( Sender: TField); begin if qempleadosplanificacionfecha_recmedico.asstring=' / / ' then begin qempleadosplanificacionfecha_recmedico.value := null; end; end; procedure Tfempleados.qempleadosplanificacionfecha_ren_recmedicoValidate( Sender: TField); begin if qempleadosplanificacionfecha_ren_recmedico.asstring=' / / ' then begin qempleadosplanificacionfecha_ren_recmedico.value := null; end; end; procedure Tfempleados.qempleadosplanificacionfecha_testcovid19Validate( Sender: TField); begin if qempleadosplanificacionfecha_testcovid19.asstring=' / / ' then begin qempleadosplanificacionfecha_testcovid19.value := null; end; end; procedure Tfempleados.qempleadosplanificacionvto_permisotrabajoValidate( Sender: TField); begin if qempleadosplanificacionvto_permisotrabajo.asstring=' / / ' then begin qempleadosplanificacionvto_permisotrabajo.value := null; end; end; procedure Tfempleados.qemp_historicoAfterPost(DataSet: TDataSet); begin qemp_historico.Close; qemp_historico.Open; if (qemp_historicofecha_baja.AsString='') and (qemp_historicofecha_desconexion.AsString='') then begin qaltasbajas.Close; qaltasbajas.Prepare; qaltasbajas.ParamByName('MOSTRAR').AsInteger:=1; qaltasbajas.ParamByName('FECHA').AsString:='null'; qaltasbajas.ParamByName('FECHAALTA').Asdate:=qemp_historicofecha_alta.AsDateTime; qaltasbajas.ParamByName('EMPRESA').Asinteger:=qemp_historicoide.asinteger; qaltasbajas.ParamByName('TRABAJADOR').Asinteger:=qemp_historicoidt.asinteger; qaltasbajas.ExecSQL; { qaux.SQL.clear; qaux.SQL.Add('update trabajadores set mostrar=1,fechabaja=null where empresa='+qemp_historicoide.asstring+' and id='+qemp_historicoidt.AsString); qaux.ExecSQL; } end else begin qaltasbajas.Close; qaltasbajas.Prepare; qaltasbajas.ParamByName('MOSTRAR').AsInteger:=0; if qemp_historicofecha_desconexion.AsString<>'' then qaltasbajas.ParamByName('FECHA').AsDate:=qemp_historicofecha_desconexion.AsDateTime; if qemp_historicofecha_baja.AsString<>'' then qaltasbajas.ParamByName('FECHA').AsDate:=qemp_historicofecha_baja.AsDateTime; qaltasbajas.ParamByName('FECHAALTA').Asdate:=qemp_historicofecha_alta.AsDateTime; qaltasbajas.ParamByName('EMPRESA').Asinteger:=qemp_historicoide.asinteger; qaltasbajas.ParamByName('TRABAJADOR').Asinteger:=qemp_historicoidt.asinteger; qaltasbajas.ExecSQL; { qaux.SQL.clear; qaux.SQL.Add('update trabajadores set mostrar=0,fechabaja='+''''+ where empresa='+qemp_historicoide.asstring+' and id='+qemp_historicoidt.AsString); qaux.ExecSQL;} end; qempleados.Refresh; end; procedure Tfempleados.qemp_historicoBeforeDelete(DataSet: TDataSet); begin { case dm.PedirConfirmacion('¿Confirma que desea borrar esta línea del historico del empleado?',true,true,false) of mrno:Abort; end; } end; procedure Tfempleados.qemp_historicoBeforePost(DataSet: TDataSet); var x:integer; begin if qemp_historico.State in [dsinsert,dsedit] then begin qemp_historicoide.Value:=fempleados.qempleadoside.AsInteger; qemp_historicoidt.Value:=fempleados.qempleadosid.AsInteger; if (qemp_historicofecha_baja.AsString<>'') and (qemp_historicofecha_desconexion.AsString='') then begin qemp_historicofecha_desconexion.Value:=qemp_historicofecha_baja.AsDateTime; end; end; { if qemp_historico.state=dsinsert then x:=dm.PedirConfirmacion('¿Confirma que desea dar de alta esta línea en el histórico del empleado?',true,true,true) else x:=dm.PedirConfirmacion('¿Confirma que desea modificar esta línea en el histórico del empleado?',true,true,true); case x of mrno: begin qemp_historico.cancel; abort; end; mrcancel:BEGIN abort; END; end; } end; procedure Tfempleados.qlistaempleadosAfterOpen(DataSet: TDataSet); begin ltotalgrupo.Caption:='Total grupo: '+inttostr(qlistaempleados.RecordCount); end; procedure Tfempleados.qlistaempleadosBeforeOpen(DataSet: TDataSet); var filtro:string; begin if filtrotrabajadores<>'' then begin if vtactivo<>0 then begin filtro:=filtro+ ' where t.ide=ep.ide and t.id=ep.idt and (nombre like('+''''+'%'+filtrotrabajadores+'%'+''''+') or (id='+''''+filtrotrabajadores+''''+')) and activo='+inttostr(vtactivo) end else begin filtro:=filtro+ ' where t.ide=ep.ide and t.id=ep.idt and (nombre like('+''''+'%'+filtrotrabajadores+'%'+''''+') or (id='+''''+filtrotrabajadores+''''+'))'; end; if chktodosempleados.Checked then begin //filtro:=filtro+' and mostrar=1 '; end else begin filtro:=filtro+' and mostrar=1 '; end; end; if filtrotrabajadores='' then begin if vtactivo<>0 then begin filtro:=filtro+ ' where t.ide=ep.ide and t.id=ep.idt and activo='+inttostr(vtactivo); if chktodosempleados.Checked then begin // filtro:=filtro+' and mostrar=1 '; end else begin filtro:=filtro+' and t.ide=ep.ide and t.id=ep.idt and mostrar=1 '; end; end else begin filtro:=''; if chktodosempleados.Checked then begin filtro:=' where t.ide=ep.ide and t.id=ep.idt '; end else begin filtro:=' where t.ide=ep.ide and t.id=ep.idt and mostrar=1 '; end; end; end; qlistaempleados.SQL.Clear; qlistaempleados.SQL.Add('select t.ide,t.id,t.nombre,ep.vto_permisotrabajo from trabajadores t,empleados_planificacion ep ' + filtro +' order by nombre') end; procedure Tfempleados.TanyoChange(Sender: TObject); var anyo,mes:string; empresa,empleado:integer; begin if tanyo.ItemIndex<>0 then anyo:=tanyo.Text else anyo:='%'; if tmes.itemindex<>0 then mes:=inttostr(tmes.itemindex) else mes:='%'; qjornales.Close; qjornales.Prepare; qjornales.ParamByName('EMPLEADO').AsInteger:=empleado; qjornales.ParamByName('EMPRESA').AsInteger:=empresa; qjornales.ParamByName('ANYO').Asstring:=anyo; qjornales.ParamByName('MES').Asstring:=mes; qjornales.Open; end; procedure Tfempleados.tbuscarChange(Sender: TObject); begin seleccionando:=1; filtrotrabajadores:=tbuscar.Text; qlistaempleados.Close; qlistaempleados.open; seleccionando:=0; end; procedure Tfempleados.tbuscarExit(Sender: TObject); begin qlistaempleados.first; end; procedure Tfempleados.TESTADOChange(Sender: TObject); var idt,filtrojornales:string; begin idt:=qempleadosid.asstring; filtrojornales:='where idt='+idt; if tanyo.ItemIndex<>0 then filtrojornales:=filtrojornales+' and year(fecha)='+tanyo.Text ; if tmes.itemindex<>0 then filtrojornales:=filtrojornales+' and month(fecha)='+inttostr(tmes.itemindex); filtrojornales:=filtrojornales+' order by id desc'; qjornales.Close; qjornales.SQL.Clear; qjornales.SQL.Add('select * from trabajo_diario '+filtrojornales); qjornales.Open; end; procedure Tfempleados.Vaciar2Click(Sender: TObject); begin dbedit7.Text:=''; end; procedure Tfempleados.VaciarClick(Sender: TObject); begin dbedit3.Text:=''; end; procedure Tfempleados.ExportaraExcel(FileNameXLS, SheetName: String; DBGrid: TDBGrid; ProgressBarXls: TProgressBar); procedure ProgressBarInit; begin ProgressBarXls.Max := DBGrid.DataSource.DataSet.RecordCount; ProgressBarXls.Position := 0; ProgressBarXls.Visible := True; end; const xlWBATworksheet = -4167; var Excel, WorkBook, WorkSheet: OleVariant; I, J: Integer; PBookmark: TBookmark; begin // Guardar la posición en la DB y desactivar que se mueva el registro PBookmark := DBGrid.DataSource.DataSet.GetBookmark; DBGrid.DataSource.DataSet.DisableControls; DBGrid.DataSource.DataSet.First; // Comprobar si existe el component TProgressBar if (ProgressBarXls <> nil) then ProgressBarInit; // Crear instancia de la aplicación Excel Excel := CreateOleObject('Excel.Application'); // Evitar que nos pregunte si deseamos sobreescribir el archivo Excel.DisplayAlerts := False; // Agregar libro de trabajo WorkBook := Excel.Workbooks.Add(xlWBATWorksheet); // Tomar una referencia a la hoja creada WorkSheet := WorkBook.WorkSheets[1]; // Se describe el nombre de la hoja WorkSheet.Name := SheetName; // Llenamos las celdas // Toma en cuenta que las columnas y filas empiezan en 1, y que en el // WorkSheet.Cells[I, J], I es la fila y J es la columna. // Extrae los nombres de los campos del DBGrid y los coloca en el primer registro, // excluyendo los campos que están ocultos for J := 0 to DBGrid.FieldCount -1 do if DBGrid.Fields[J].Visible then begin // Poner la fuente de letra en Negrita WorkSheet.Cells[1, J +1].Font.Bold := True; // Centrar la celda // WorkSheet.Cells[1, J +1].HorizontalAlignment := xlCenter; // Asignamos Valor del titulo del DBrid WorkSheet.Cells[1, J +1] := DBGrid.Columns[J].Title.Caption; end; // Guardar los registros for I := 0 to DBGrid.DataSource.DataSet.RecordCount -1 do begin // Identificamos los campos y lo grabamos según su tipo for J := 0 to DBGrid.FieldCount -1 do case DBGrid.Fields[J].DataType of ftAutoInc, ftBytes, ftInteger, ftSmallint, ftWord: // Auto o Numérico WorkSheet.Cells[I +2, J +1] := DBGrid.Fields[J].AsInteger; ftBCD, ftFloat, ftCurrency: // Numérico con decimales WorkSheet.Cells[I +2, J +1] := DBGrid.Fields[J].AsFloat; ftDateTime, ftDate, ftTime: // Fecha y Hora WorkSheet.Cells[I +2, J +1] := DBGrid.Fields[J].AsDateTime; else // Todo lo demas caracteres WorkSheet.Cells[I +2, J +1] := DBGrid.Fields[J].AsString; end; // Saltamos de registro DBGrid.DataSource.DataSet.Next; // Comprobar si existe el component TProgressBar if (ProgressBarXls <> nil) then ProgressBarXls.Position := ProgressBarXls.Position +1; end; // Comprobar si existe el component TProgressBar if (ProgressBarXls <> nil) then ProgressBarXls.Visible := False; // Redimensionar todas las celdas para que esten según su tamaño WorkSheet.Cells.Columns.AutoFit; // Guardar el archivo WorkBook.SaveAs(FileNameXLS); // Cierra el archivo WorkBook.Close(FileNameXLS); // Salir de Excel Excel.Quit; // posicionar el registro donde estaba DBGrid.DataSource.DataSet.GotoBookmark(PBookmark); DBGrid.DataSource.DataSet.FreeBookmark(PBookmark); DBGrid.DataSource.DataSet.EnableControls; end; end.