unit empleados; interface uses FireDAC.Stan.Intf, FireDAC.Stan.Option, FireDAC.Stan.Param, FireDAC.Stan.Error, FireDAC.DatS, FireDAC.Phys.Intf, FireDAC.DApt.Intf, FireDAC.Stan.Async, FireDAC.DApt, FireDAC.Comp.DataSet, FireDAC.Comp.Client, uFireDacHelper, 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, 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, uEmailWhatsApp, uEnviarDocumento, 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; btnEnviarDoc: TButton; qgrupos: TFDQuery; dsqgrupos: TDataSource; dsqgrupos2: TDataSource; qgrupos2: TFDQuery; dsqlistaempleados: TDataSource; qlistaempleados: TFDQuery; qlistaempleadoside: TIntegerField; qlistaempleadosid: TSmallintField; qlistaempleadosnombre: TWideStringField; qgrupos2ide: TIntegerField; qgrupos2id: TIntegerField; qgrupos2descripcion: TWideStringField; qgruposide: TIntegerField; qgruposid: TIntegerField; qgruposdescripcion: TWideStringField; qempleados: TFDQuery; dsqempleados: TDataSource; DBText1: TDBText; DBText2: TDBText; qempleadoside: TIntegerField; qempleadosID: TSmallintField; qempleadosNIF: TWideStringField; qempleadosnombre: TWideStringField; 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; dsqtipohora: TDataSource; qtipohora: TFDQuery; dsqregimencotizacion: TDataSource; qregimencotizacion: TFDQuery; 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: TFDQuery; dsqinftrabajadores: TDataSource; qinftrabajadores: TFDQuery; qinftrabajadoresID: TSmallintField; qinftrabajadoresNIF: TWideStringField; qinftrabajadoresnombre: TWideStringField; 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: TFDQuery; 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: TFDQuery; 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: TFDQuery; 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: TFDQuery; dsqanticipos: TDataSource; qanticipos: TFDQuery; documentos: TFDQuery; documentosid: TIntegerField; documentoside: TIntegerField; documentosfecha: TDateField; documentosdescripcion: TWideStringField; documentosnomarchivo: TWideStringField; documentosextension: TWideStringField; documentosidt: TIntegerField; documentos_tmp: TFDTable; Panel26: TPanel; btptcancelar: TButton; btptmodificar: TButton; btptborrar: TButton; btptnuevo: TButton; btptguardar: TButton; qtareas: TFDQuery; dsqtareas: TDataSource; qparcelas: TFDQuery; 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: TFDQuery; 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: TFDQuery; 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: TFDQuery; dsqplantillacomunicacion: TDataSource; qplantillacomunicacion: TFDQuery; 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: TFDQuery; 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: TFDQuery; 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: TFDTable; 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: TFDQuery; qemp_fotoside: TIntegerField; qemp_fotosidt: TIntegerField; qemp_fotosimagen: TBlobField; qemp_fotosextension: TWideStringField; qemp_firmas: TFDQuery; qemp_firmasid: TIntegerField; qemp_firmaside: TIntegerField; qemp_firmasidt: TIntegerField; qemp_firmasfirma: TBlobField; qtemp_doc: TFDQuery; 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; 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: TFDQuery; qconvocatoriasconvocatoria: TWideStringField; listaconvocatorias: TDBLookupListBox; DBEdit44: TDBEdit; Label75: TLabel; DBEdit45: TDBEdit; Label76: TLabel; Button23: TButton; qid: TFDQuery; qidid: TLargeintField; qempleadosnacionnum_taquilla: TIntegerField; qemp_historico: TFDQuery; 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: TFDQuery; 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: TFDQuery; qtaquillasid: TIntegerField; qaltasbajas: TFDQuery; qtripartita: TFDQuery; 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: TFDQuery; qepisid: TIntegerField; qepiside: TIntegerField; qepisdescripcion: TWideStringField; Panel38: TPanel; Button24: TButton; Button25: TButton; dsqinfentregasmaterial: TDataSource; qinfentregasmaterial: TFDQuery; qinfentregasmaterialid: TIntegerField; qinfentregasmaterialide: TIntegerField; qinfentregasmaterialidt: TIntegerField; qinfentregasmaterialfecha: TDateField; qinfentregasmaterialconcepto: TWideStringField; qinfentregasmaterialcantidad: TFloatField; DBCheckBox20: TDBCheckBox; DBCheckBox21: TDBCheckBox; qempleadosresponsable: TIntegerField; qempleadosfumigador: TIntegerField; qempleadosgrupo: TIntegerField; qempleadosactivo: TIntegerField; qinftrabajadoresgrupo: TIntegerField; qinftrabajadoresactivo: TIntegerField; qinftrabajadoresnum_taquilla: TIntegerField; qinftrabajadoresemail: TWideStringField; qinftrabajadoresconvocatoria: TWideStringField; Label79: TLabel; DBEdit48: TDBEdit; qempleadosretencion_me: TFloatField; DBEdit49: TDBEdit; Label80: TLabel; qempleadosjornada_continua: TSmallintField; qempleadossalariobasedia: TFloatField; 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 btnEnviarDocClick(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,vimprimirfecha: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); if dlgfecha.CheckBox1.Checked then vimprimirfecha:=1 else vimprimirfecha:=0; 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); if vimprimirfecha=0 then begin fecha:=''; fechamenos15texto:='';//floattostr(diacomunicacion)+' de '+textmes+' de '+floattostr(anyocomunicacion); fecha2:='';//floattostr(dia)+'/'+floattostr(mes)+'/'+floattostr(anyo); fechamenos15:='';//floattostr(diacomunicacion)+'/'+floattostr(mescomunicacion)+'/'+floattostr(anyocomunicacion); end; 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:TFDQuerySortType; 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 qempleadosactivo.Value:=1 else qempleadosactivo.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 grupo='+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 activo=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 grupo='+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 activo=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 activo=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; procedure TfEmpleados.btnEnviarDocClick(Sender: TObject); var sRutaDoc, nomarchivo: string; begin if documentos.IsEmpty then begin MessageDlg('No hay ningun documento seleccionado.', mtWarning, [mbOK], 0); Exit; end; try qtemp_doc.Close; qtemp_doc.ParamByName('EMPRESA').AsInteger := documentoside.asinteger; qtemp_doc.ParamByName('ID').AsInteger := documentosid.asinteger; qtemp_doc.Open; if qtemp_doc.IsEmpty then Exit; nomarchivo := qtemp_docnomarchivo.AsString; sRutaDoc := 'c:\agrigest\tmp\' + nomarchivo; // Guardar fisicamente el archivo qtemp_docarchivo.SaveToFile(sRutaDoc); // Abrir diálogo de envío with TfEnviarDocumento.Create(Self) do try RutaPDF := sRutaDoc; // Pasar teléfono, email y asunto predeterminado (desde qempleados) InitData(qempleadosTELEFONO1.AsString, qempleadosemail.AsString, '', 'Documento ' + nomarchivo, 'Reporte'); ShowModal; finally Free; end; finally qtemp_doc.Close; end; end; end.