unit ftratamientos; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, ZAbstractRODataset, ZAbstractDataset, ZDataset, Vcl.Grids, Vcl.DBGrids, Vcl.ExtCtrls, Vcl.StdCtrls, Vcl.DBCtrls, Vcl.ComCtrls, frxClass, frxDBSet, URLMon, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP,shellapi, Vcl.Mask; type Ttratamientos = class(TForm) Panel2: TPanel; Panel3: TPanel; DBGrid1: TDBGrid; Panel5: TPanel; Panel4: TPanel; DBGrid2: TDBGrid; qtratamientosbase: TZQuery; qtratamientosbasedetalle: TZQuery; qtratamientosbasedetalleide: TIntegerField; qtratamientosbasedetalleidt: TIntegerField; qtratamientosbasedetalleidaf: TIntegerField; qtratamientosbasedetalleidma: TIntegerField; qtratamientosbasedetalledescripcion_af: TWideStringField; qtratamientosbasedetallecantidad_base: TFloatField; qtratamientosbasedetalledosis: TFloatField; qtratamientosbasedetalleunidad_medida: TWideStringField; qtratamientosbasedetalledescripcion_ma: TWideStringField; qtratamientosbasedetalleregistro: TWideStringField; qtratamientosbasedetalleplazo: TIntegerField; Panel6: TPanel; Panel7: TPanel; Label36: TLabel; btAreutilizar: TButton; btAmodificar: TButton; btAborrar: TButton; btAnuevo: TButton; btAguardar: TButton; btAcancelar: TButton; dsqtratamientosbasedetalle: TDataSource; dsqtratamientosbase: TDataSource; qtratamientos: TZQuery; qtratamientosdetalle: TZQuery; dsqtratamientos: TDataSource; dsqtratamientosdetalle: TDataSource; qcentrocoste: TZReadOnlyQuery; qcentrocosteempresa: TIntegerField; qcentrocostecodpar: TWideStringField; qcentrocostenombre: TWideStringField; dsqcentrocoste: TDataSource; Panel9: TPanel; DBGrid3: TDBGrid; Panel10: TPanel; Panel11: TPanel; Panel12: TPanel; DBGrid4: TDBGrid; qtratamientosdetalleide: TIntegerField; qtratamientosdetalleidt: TIntegerField; qtratamientosdetalleidaf: TIntegerField; qtratamientosdetalleidma: TIntegerField; qtratamientosdetalledescripcion_af: TWideStringField; qtratamientosdetalledescripcion_ma: TWideStringField; qtratamientosdetallecantidad_base: TFloatField; qtratamientosdetalledosis: TFloatField; qtratamientosdetalleunidad_medida: TWideStringField; qtratamientosdetalleregistro: TWideStringField; qtratamientosdetalleplazo: TIntegerField; qtratamientosdetalleficha: TBlobField; qtratamientosdetallecantidad_materia: TFloatField; Panel13: TPanel; Panel1: TPanel; Button2: TButton; Button3: TButton; qresponsables: TZReadOnlyQuery; dsqresponsables: TDataSource; qresponsablesnif: TWideStringField; qresponsablesnombre: TWideStringField; qresponsablesfirma: TBlobField; qaux: TZQuery; Ffecha: TDateTimePicker; combocentrocoste: TDBLookupComboBox; comboresponsables: TDBLookupComboBox; Panel8: TPanel; Button1: TButton; Panel15: TPanel; Label2: TLabel; DBMemo2: TDBMemo; Button4: TButton; Button5: TButton; dbempresa: TfrxDBDataset; informes: TfrxReport; dbtratamiento: TfrxDBDataset; dbtratamientosdetalle: TfrxDBDataset; qtratamientosdetalleen_cuaderno: TIntegerField; gcrpagado: TDBCheckBox; Button7: TButton; dsqcentrocoste2: TDataSource; qcentrocoste2: TZReadOnlyQuery; dsqresponsable2: TDataSource; qresponsables2: TZReadOnlyQuery; Label4: TLabel; Label5: TLabel; combobuscarresponsables: TDBLookupComboBox; combobuscarparcelas: TDBLookupComboBox; btfiltrar: TButton; Button9: TButton; Button6: TButton; Label3: TLabel; qcentrocoste2empresa: TIntegerField; qcentrocoste2codpar: TWideStringField; qcentrocoste2nombre: TWideStringField; qresponsables2nif: TWideStringField; qresponsables2nombre: TWideStringField; qresponsables2firma: TBlobField; qtratamientosdetalleconficha: TStringField; qtratamientosbasedetalleficha: TBlobField; qtratamientosbasedetallecantidad_materia: TFloatField; qtratamientosdetallecantidad_mezcla: TFloatField; dsqconsumos: TDataSource; qconsumos: TZQuery; qconsumosid: TIntegerField; qconsumoside: TIntegerField; qconsumosidcc: TWideStringField; qconsumosidgrupo: TIntegerField; qconsumosidfamilia: TIntegerField; qconsumosidaf: TIntegerField; qconsumoscodigo: TWideStringField; qconsumosdescripcion: TWideStringField; qconsumosregistro: TWideStringField; qconsumosprecio: TFloatField; qconsumoscantidad: TFloatField; qconsumostotal: TFloatField; qconsumostotal_amortizado: TFloatField; qconsumosnumplazos: TIntegerField; qconsumoslote: TWideStringField; qconsumosidentrada: TIntegerField; qconsumosfecha: TDateField; qconsumosidfraccionado: TIntegerField; qconsumosamortizacion: TIntegerField; qarticulo: TZQuery; qarticuloidempresa: TIntegerField; qarticuloidaf: TIntegerField; qarticulodescripcion: TWideStringField; qarticulopreciocoste: TFloatField; qarticuloidgrupo: TIntegerField; qarticuloidfamilia: TIntegerField; qarticulocodigo: TWideStringField; qarticuloregistro: TWideStringField; qtratamientosdetalleidconsumo: TIntegerField; qaux2: TZReadOnlyQuery; qstock: TZReadOnlyQuery; qstockid: TIntegerField; qstockidempresa: TIntegerField; qstocklote: TWideStringField; qstockfecha: TDateField; qtractores: TZReadOnlyQuery; qtractorestractor: TWideStringField; qvelocidad: TZReadOnlyQuery; qventilador: TZReadOnlyQuery; qpresiones: TZReadOnlyQuery; qdepositos: TZReadOnlyQuery; qboquillas: TZReadOnlyQuery; qdepositosdeposito: TWideStringField; combotractores: TDBLookupComboBox; combovelocidad: TDBLookupComboBox; combodepositos: TDBLookupComboBox; comboboquillas: TDBLookupComboBox; comboventilador: TDBLookupComboBox; combopresiones: TDBLookupComboBox; dsqtractores: TDataSource; dsqvelocidad: TDataSource; dsqdepositos: TDataSource; dsqboquillas: TDataSource; dsqventilador: TDataSource; dsqpresiones: TDataSource; qboquillasboquilla: TWideStringField; qtratamientosbasedetallecantidad_mezcla: TIntegerField; qtratamientosbasedetalleorden: TIntegerField; qtratamientosdetalleorden: TIntegerField; combooperarios: TDBLookupComboBox; dsqoperarios: TDataSource; qoperarios: TZReadOnlyQuery; qoperariosoperario: TWideStringField; Label301: TLabel; combocampanyas: TDBLookupComboBox; dsqcampanyas: TDataSource; qcampanyas: TZReadOnlyQuery; qtratamientosbaseide: TIntegerField; qtratamientosbaseid: TIntegerField; qtratamientosbasedescripcion: TWideStringField; qtratamientosbasetipo: TWideStringField; qtratamientosbaseobservaciones: TWideStringField; qtratamientosbasefecha: TDateField; qcampanyasid: TIntegerField; qcampanyasidempresa: TIntegerField; qcampanyasid_anterior: TIntegerField; qcampanyasdescripcion: TWideStringField; qcampanyasfechainicio: TDateField; qcampanyasfechafin: TDateField; qcampanyasult_pesada: TIntegerField; fdesde: TDateTimePicker; fhasta: TDateTimePicker; Label1: TLabel; Label6: TLabel; chkimptodo: TCheckBox; qmateriaprima: TZReadOnlyQuery; qmateriaprimadescripcion: TWideStringField; Label7: TLabel; combovariedades: TDBLookupComboBox; qmateriaprima2: TZReadOnlyQuery; dsmateriasprimas: TDataSource; qmateriaprima2descripcion: TWideStringField; Button8: TButton; qinsertarencuaderno: TZQuery; qinsertarencuadernodetalle: TZQuery; DBGrid5: TDBGrid; qresumenproductos: TZReadOnlyQuery; dsqresumenproductos: TDataSource; qnombrecampanya: TZReadOnlyQuery; qnombrecampanyadescripcion: TWideStringField; qresumenproductosidcc: TWideStringField; qresumenproductosdesc_cc: TWideStringField; qresumenproductosdescripcion_af: TWideStringField; qresumenproductosdosis_recomendada: TWideStringField; qresumenproductoscampanya: TWideStringField; qresumenproductosnum_tratamientos: TFloatField; qresumenproductosnum_aplicaciones: TFloatField; qresumenproductosplazo_seguridad: TFloatField; qtratamientosdetalleidentrada: TIntegerField; qtratamientosdetallecantidadprevista_mezcla: TFloatField; qtratamientosdetallecantidadprevista_materia: TFloatField; qtratamientosdetallefecha: TDateField; qtratamientoside: TIntegerField; qtratamientosid: TIntegerField; qtratamientosfecha: TDateField; qtratamientosidcc: TWideStringField; qtratamientosdesc_cc: TWideStringField; qtratamientosresponsable: TWideStringField; qtratamientosidrecomendacion: TIntegerField; qtratamientoscontabilizado: TIntegerField; qtratamientosnif_responsable: TWideStringField; qtratamientosobservaciones: TWideStringField; qtratamientosoperario: TWideStringField; qtratamientosidjustificacion: TIntegerField; qtratamientoscondiciones_metereologicas: TWideStringField; qtratamientoshora_fin: TTimeField; qtratamientostractor: TWideStringField; qtratamientosdeposito: TWideStringField; qtratamientosvelocidad: TFloatField; qtratamientospresion: TIntegerField; qtratamientosboquilla: TWideStringField; qtratamientosventilador: TWideStringField; qtratamientosmostrar: TIntegerField; qtratamientosvariedad: TWideStringField; qtratamientosnum_boquillas: TIntegerField; qtratamientoslitros_hect: TIntegerField; qtratamientosdesc_boquilla: TWideStringField; qtratamientoslitros_minutos: TFloatField; qtratamientossuperficie: TFloatField; qtratamientosfecha_fin: TDateField; qtratamientoshora_inicio: TTimeField; qtratamientosfecha_inicio: TDateField; qtratamientosancho_calle: TFloatField; qvelocidadvelocidad: TFloatField; qpresionespresion: TIntegerField; qventiladorventilador: TWideStringField; qtratamientoscompletado: TIntegerField; Button10: TButton; qcargas: TZReadOnlyQuery; dbtratamientoscargas: TfrxDBDataset; dsqcargas: TDataSource; qcargasid: TIntegerField; qcargaside: TIntegerField; qcargasidt: TIntegerField; qcargasfecha: TDateField; qcargashora_inicio: TTimeField; qcargashora_fin: TTimeField; qcargasid_emp: TIntegerField; qcargasoperario: TWideStringField; qcargasid_tractor: TWideStringField; qcargastractor: TWideStringField; qcargasid_fumigadora: TWideStringField; qcargasfumigadora: TWideStringField; qcargascondiciones_meteorologicas: TWideStringField; qcargascantidad: TIntegerField; procedure FormKeyPress(Sender: TObject; var Key: Char); procedure dsqtratamientosStateChange(Sender: TObject); procedure btAreutilizarClick(Sender: TObject); procedure btAnuevoClick(Sender: TObject); procedure FormShow(Sender: TObject); procedure DBGrid3DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); procedure btAmodificarClick(Sender: TObject); procedure btAcancelarClick(Sender: TObject); procedure btAguardarClick(Sender: TObject); procedure DBGrid3TitleClick(Column: TColumn); procedure Button2Click(Sender: TObject); procedure Button1Click(Sender: TObject); procedure qtratamientosdetalleAfterPost(DataSet: TDataSet); procedure btAborrarClick(Sender: TObject); procedure DBGrid4DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); procedure DBGrid4CellClick(Column: TColumn); procedure dsqtratamientosDataChange(Sender: TObject; Field: TField); procedure DBGrid3ColExit(Sender: TObject); procedure Button3Click(Sender: TObject); procedure FfechaChange(Sender: TObject); procedure Button7Click(Sender: TObject); procedure DBGrid4TitleClick(Column: TColumn); procedure Button9Click(Sender: TObject); procedure btfiltrarClick(Sender: TObject); procedure Button6Click(Sender: TObject); procedure Button4Click(Sender: TObject); procedure qtratamientosdetalleCalcFields(DataSet: TDataSet); procedure qtratamientosBeforePost(DataSet: TDataSet); procedure qtratamientosdetalleBeforePost(DataSet: TDataSet); procedure qtratamientosdetalleBeforeDelete(DataSet: TDataSet); procedure qtratamientosBeforeDelete(DataSet: TDataSet); procedure Button5Click(Sender: TObject); procedure qtratamientosAfterPost(DataSet: TDataSet); procedure DBGrid4KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); procedure dsqcampanyasDataChange(Sender: TObject; Field: TField); procedure DBGrid3CellClick(Column: TColumn); procedure Button8Click(Sender: TObject); procedure qtratamientosdetalleAfterDelete(DataSet: TDataSet); procedure dsqtratamientosdetalleDataChange(Sender: TObject; Field: TField); procedure DBGrid5DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); procedure Button10Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var tratamientos: Ttratamientos; contabilizando:integer; implementation {$R *.dfm} uses datos, principal, fbuscararticulos, fcargastratamientos; procedure Ttratamientos.btAborrarClick(Sender: TObject); begin qtratamientos.Delete; end; procedure Ttratamientos.btAcancelarClick(Sender: TObject); begin qtratamientos.Cancel; end; procedure Ttratamientos.btAguardarClick(Sender: TObject); begin qtratamientosidcc.value:=qcentrocostecodpar.AsString; qtratamientoside.Value:=qcentrocosteempresa.Asinteger; qtratamientosresponsable.Value:=qresponsablesnombre.AsString; qtratamientosnif_responsable.Value:=qresponsablesnif.asstring; qtratamientosfecha.Value:=ffecha.Date; qtratamientos.Post; qtratamientos.Refresh; end; procedure Ttratamientos.btAmodificarClick(Sender: TObject); begin qtratamientos.Edit; end; procedure Ttratamientos.btAnuevoClick(Sender: TObject); begin ffecha.Date:=date; qtratamientos.Append; qaux.Close; qaux.ParamByName('EMPRESA').AsInteger:=dm.tempresaid.asinteger; qaux.Prepare; qaux.Open; qtratamientoside.value:=dm.tempresaid.AsInteger; qtratamientosid.Value:=qaux.Fields[0].AsInteger; qtratamientosfecha.Value:=ffecha.Date; dbgrid3.setfocus; dbgrid3.SelectedIndex:=1; end; procedure Ttratamientos.btAreutilizarClick(Sender: TObject); begin panel2.Visible:=not panel2.Visible; button1.Visible:=not button1.Visible; end; procedure Ttratamientos.Button10Click(Sender: TObject); begin cargastratamientos := Tcargastratamientos.Create(nil); try cargastratamientos.vempresa:=qtratamientoside.AsInteger; cargastratamientos.vtratamiento:=qtratamientosid.AsInteger; cargastratamientos.ShowModal(); finally cargastratamientos.Free; qtratamientosdetalle.Refresh; qtratamientos.Refresh; end; end; procedure Ttratamientos.Button1Click(Sender: TObject); var idtratamiento,idempresa:integer; begin idtratamiento:=qtratamientosid.asinteger; idempresa:=qtratamientoside.AsInteger; qtratamientosbasedetalle.First; while not qtratamientosbasedetalle.Eof do begin qtratamientosdetalle.First; qtratamientosdetalle.Append; qtratamientosdetalleide.value:=idempresa; qtratamientosdetalleidaf.value:=qtratamientosbasedetalleidaf.asinteger; qtratamientosdetalleidma.value:=qtratamientosbasedetalleidma.asinteger; qtratamientosdetalledescripcion_af.value:=qtratamientosbasedetalledescripcion_af.asstring; qtratamientosdetalledescripcion_ma.value:=qtratamientosbasedetalledescripcion_ma.asstring; qtratamientosdetallecantidad_base.value:=qtratamientosbasedetallecantidad_base.asinteger; qtratamientosdetalledosis.value:=qtratamientosbasedetalledosis.asfloat; qtratamientosdetalleunidad_medida.value:=qtratamientosbasedetalleunidad_medida.asstring; qtratamientosdetalleregistro.value:=qtratamientosbasedetalleregistro.asstring; qtratamientosdetalleplazo.value:=qtratamientosbasedetalleplazo.asinteger; qtratamientosdetalleorden.value:=qtratamientosbasedetalleorden.asinteger; qtratamientosdetalle.Post; qtratamientosbasedetalle.Next; end; qtratamientos.Edit; qtratamientosobservaciones.Value:=qtratamientosbaseobservaciones.AsString; qtratamientos.Post; qtratamientos.Locate('ide,id',vararrayof([idempresa,idtratamiento]),[locaseinsensitive]); end; procedure Ttratamientos.Button2Click(Sender: TObject); begin qtratamientosdetalle.Delete; end; procedure Ttratamientos.Button3Click(Sender: TObject); begin if qtratamientosdetalleficha.AsString<>'' then begin qtratamientosdetalleficha.SaveToFile('c:\agrigest\tmp\'+qtratamientosdetalleregistro.AsString+'.pdf'); ShellExecute(Handle,nil,PChar('c:\agrigest\tmp\'+qtratamientosdetalleregistro.AsString+'.pdf'),'','',SW_SHOWNORMAL); end; end; procedure Ttratamientos.Button4Click(Sender: TObject); var imprimirtodo,vparcela,vresponsable:string; begin if combobuscarparcelas.keyvalue=null then vparcela:='%' else vparcela:=combobuscarparcelas.keyvalue; if combobuscarresponsables.keyvalue=null then vresponsable:='%' else vresponsable:=combobuscarresponsables.keyvalue; if chkimptodo.Checked then imprimirtodo:='%' else imprimirtodo:='1'; qtratamientos.Close; qtratamientos.Prepare; qtratamientos.ParamByName('parcela').AsString:=vparcela; qtratamientos.ParamByName('responsable').AsString:=vresponsable; qtratamientos.ParamByName('DESDE').AsDate:=fdesde.Date; qtratamientos.ParamByName('HASTA').AsDate:=fhasta.Date; qtratamientos.ParamByName('MOSTRAR').asstring:=imprimirtodo; qtratamientos.Open; qcargas.Close; qcargas.Prepare; qcargas.ParamByName('EMPRESA').AsInteger:=qtratamientoside.AsInteger; qcargas.ParamByName('TRATAMIENTO').AsString:='%'; qcargas.Open; qtratamientosdetalle.Filter:='en_cuaderno=1'; qtratamientosdetalle.Filtered:=true; informes.Report.Clear; informes.LoadFromFile('c:\agrigest\informes\inftratamientos.fr3'); informes.ShowReport(); qtratamientos.Filtered:=false; qtratamientosdetalle.Filtered:=false; end; procedure Ttratamientos.Button5Click(Sender: TObject); begin if qtratamientoscontabilizado.AsInteger=0 then begin contabilizando:=1; try qconsumos.Open; qtratamientosdetalle.First; while not qtratamientosdetalle.Eof do begin qarticulo.Close; qarticulo.Prepare; qarticulo.ParamByName('IDAF').AsString:=qtratamientosdetalleidaf.AsString; qarticulo.ParamByName('IDEMPRESA').AsString:=qtratamientoside.AsString; qarticulo.Open; qstock.Close; qstock.Prepare; qstock.ParamByName('CODIGO').AsString:=qarticulocodigo.AsString; qstock.ParamByName('EMPRESA').AsString:=qtratamientoside.AsString; qstock.Open; try qconsumos.Append; qaux2.Close; qaux2.Open; qconsumosid.Value:=qaux2.Fields[0].asinteger; qconsumosidfraccionado.Value:=qaux2.Fields[0].asinteger;; qconsumoside.Value:=dm.tempresaid.asinteger; qconsumosnumplazos.value:=1; qconsumosdescripcion.Value:=qtratamientosdetalledescripcion_af.AsString; qconsumoscantidad.Value:=qtratamientosdetallecantidad_materia.Asfloat; qconsumosprecio.Value:=qarticulopreciocoste.AsFloat; qconsumostotal.Value:=qtratamientosdetallecantidad_materia.Asfloat*qarticulopreciocoste.AsFloat; qconsumostotal_amortizado.value:=qtratamientosdetallecantidad_materia.Asfloat*qarticulopreciocoste.AsFloat; qconsumosfecha.Value:=qtratamientosfecha.AsDateTime; qconsumosidcc.Value:=qtratamientosidcc.Asstring; qconsumoscodigo.Value:=qarticulocodigo.AsString; qconsumosidgrupo.Value:=qarticuloidgrupo.AsInteger; qconsumosidfamilia.Value:=qarticuloidfamilia.Asinteger; qconsumoslote.AsString:=qstocklote.AsString; qconsumosregistro.AsString:=qarticuloregistro.AsString; qconsumosidentrada.Value:=qstockid.AsInteger; qconsumosamortizacion.Value:=0; qconsumos.Post; finally qtratamientosdetalle.Edit; qtratamientosdetalleidconsumo.value:=qaux2.Fields[0].AsInteger; qtratamientosdetalle.Post; qtratamientosdetalle.Next; end; end; finally qtratamientos.Edit; qtratamientoscontabilizado.Value:=1; qtratamientos.Post; end; contabilizando:=0; end; end; procedure Ttratamientos.Button6Click(Sender: TObject); begin qcargas.Close; qcargas.Prepare; qcargas.ParamByName('EMPRESA').AsInteger:=qtratamientoside.AsInteger; qcargas.ParamByName('TRATAMIENTO').AsString:=qtratamientosid.AsString; qcargas.Open; qtratamientos.Filter:='id='+qtratamientosid.Asstring; qtratamientos.Filtered:=true; qtratamientosdetalle.Filter:='en_cuaderno=1'; qtratamientosdetalle.Filtered:=true; informes.Report.Clear; informes.LoadFromFile('c:\agrigest\informes\inftratamientos.fr3'); informes.ShowReport(); qtratamientos.Filtered:=false; qtratamientosdetalle.Filtered:=false; end; procedure Ttratamientos.Button7Click(Sender: TObject); var direccion:pwidechar; registro,cadena:string; begin while not qtratamientosdetalle.eof do begin registro:= qtratamientosdetalleregistro.AsString; if registro<>'' then begin qaux.SQL.Clear; qaux.SQL.Add('select registro,autorizado from productos_fitosanitarios where registro=:REGISTRO'); qaux.Prepare; qaux.ParamByName('REGISTRO').AsString:=registro; qaux.Open; if qaux.RecordCount>0 then begin if qaux.Fields[1].AsInteger=1 then begin cadena:='https://www.mapa.gob.es/agricultura/pags/fitos/registro/productos/pdf/'+registro+'.pdf'; direccion:=pwidechar(widestring(cadena)); URLDownloadToFile(nil, direccion, 'C:\agrigest\tmp\ficha.pdf', 0, nil); qtratamientosdetalle.Edit; qtratamientosdetalleficha.LoadFromFile('c:\agrigest\tmp\ficha.pdf'); end else showmessage('PRODUCTO NO AUTORIZADO EN PRODUCTOS FITOSANITARIOS AUTORIZADOS'); end else showmessage('PRODUCTO NO ENCONTRADO EN PRODUCTOS FITOSANITARIOS AUTORIZADOS'); end; qtratamientosdetalle.Next; end; end; procedure Ttratamientos.Button8Click(Sender: TObject); var vparcela,vresponsable,vvariedad:string; begin if combobuscarparcelas.keyvalue=null then vparcela:='%' else vparcela:=combobuscarparcelas.keyvalue; if combobuscarresponsables.keyvalue=null then vresponsable:='%' else vresponsable:=combobuscarresponsables.keyvalue; if combovariedades.keyvalue=null then vvariedad:='%' else vvariedad:=combovariedades.keyvalue; qinsertarencuaderno.Close; qinsertarencuaderno.Prepare; qinsertarencuaderno.ParamByName('parcela').AsString:=vparcela; qinsertarencuaderno.ParamByName('responsable').AsString:=vresponsable; qinsertarencuaderno.ParamByName('variedad').AsString:=vvariedad; qinsertarencuaderno.ParamByName('DESDE').AsDate:=fdesde.Date; qinsertarencuaderno.ParamByName('HASTA').AsDate:=fhasta.Date; qinsertarencuaderno.ExecSQL; qinsertarencuadernodetalle.Close; qinsertarencuadernodetalle.Prepare; qinsertarencuadernodetalle.ParamByName('parcela').AsString:=vparcela; qinsertarencuadernodetalle.ParamByName('responsable').AsString:=vresponsable; qinsertarencuadernodetalle.ParamByName('variedad').AsString:=vvariedad; qinsertarencuadernodetalle.ParamByName('DESDE').AsDate:=fdesde.Date; qinsertarencuadernodetalle.ParamByName('HASTA').AsDate:=fhasta.Date; qinsertarencuadernodetalle.ExecSQL; end; procedure Ttratamientos.btfiltrarClick(Sender: TObject); var vparcela,vresponsable,vvariedad:string; begin if combobuscarparcelas.keyvalue=null then vparcela:='%' else vparcela:=combobuscarparcelas.keyvalue; if combobuscarresponsables.keyvalue=null then vresponsable:='%' else vresponsable:=combobuscarresponsables.keyvalue; if combovariedades.keyvalue=null then vvariedad:='%' else vvariedad:=combovariedades.keyvalue; qtratamientos.Close; qtratamientos.Prepare; qtratamientos.ParamByName('parcela').AsString:=vparcela; qtratamientos.ParamByName('responsable').AsString:=vresponsable; qtratamientos.ParamByName('variedad').AsString:=vvariedad; qtratamientos.ParamByName('DESDE').AsDate:=fdesde.Date; qtratamientos.ParamByName('HASTA').AsDate:=fhasta.Date; qtratamientos.ParamByName('MOSTRAR').asstring:='%'; qtratamientos.Open; qtratamientosdetalle.Open; end; procedure Ttratamientos.Button9Click(Sender: TObject); begin combobuscarparcelas.KeyValue:=null; combobuscarresponsables.KeyValue:=null; combovariedades.KeyValue:=null; btfiltrar.click; end; procedure Ttratamientos.DBGrid3CellClick(Column: TColumn); begin if column.Field.FieldName ='completado' then begin if qtratamientoscompletado.asinteger=1 then begin qtratamientos.Edit; qtratamientoscompletado.Value:=0; qtratamientos.Post; dbgrid3.selectedIndex:=1; end else begin qtratamientos.Edit; qtratamientoscompletado.Value:=1; qtratamientos.Post; qtratamientos.Refresh; dbgrid3.SelectedIndex:=1; end; end; end; procedure Ttratamientos.DBGrid3ColExit(Sender: TObject); begin if qtratamientos.State in [dsinsert,dsedit] then begin qtratamientosfecha.Value:=ffecha.Date; end else begin // qtratamientos.Edit; // qtratamientosfecha.Value:=ffecha.Date; end; end; procedure Ttratamientos.DBGrid3DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); const IsChecked : array[Boolean] of Integer = (DFCS_BUTTONCHECK, DFCS_BUTTONCHECK or DFCS_CHECKED); var DrawState,imgindex,bmpwidth: Integer; DrawRect: TRect; begin if (qtratamientoscontabilizado.Asinteger=0)then begin DBGrid3.Canvas.brush.Color := rojo; end else DBGrid3.Canvas.brush.Color := verde; if (qtratamientoscompletado.Asinteger=1) and (qtratamientoscontabilizado.Asinteger=0)then begin DBGrid3.Canvas.brush.Color := azul; end; DBGrid3.DefaultDrawColumnCell(Rect, DataCol, Column, State); if (gdFocused in State) then begin if (Column.Field.FieldName = 'contabilizado') then begin gcrpagado.Left := Rect.Left + DBgrid3.Left + 2; gcrpagado.Top := Rect.Top + DBgrid3.top + 2; gcrpagado.Width := Rect.Right - Rect.Left; gcrpagado.Height := Rect.Bottom - Rect.Top; gcrpagado.Visible := True; end; end else begin if (Column.Field.FieldName = 'contabilizado') then begin DrawRect:=Rect; InflateRect(DrawRect,-1,-1); if column.Field.Asinteger=0 then DrawState := ischecked[false]; if column.Field.Asinteger=1 then DrawState := ischecked[true]; DBgrid3.Canvas.FillRect(Rect); DrawFrameControl(DBgrid3.Canvas.Handle, DrawRect,DFC_BUTTON, DrawState); end; end; if (gdFocused in State) then begin if (Column.Field.FieldName = 'completado') then begin gcrpagado.Left := Rect.Left + DBgrid3.Left + 2; gcrpagado.Top := Rect.Top + DBgrid3.top + 2; gcrpagado.Width := Rect.Right - Rect.Left; gcrpagado.Height := Rect.Bottom - Rect.Top; gcrpagado.Visible := True; end; end else begin if (Column.Field.FieldName = 'completado') then begin DrawRect:=Rect; InflateRect(DrawRect,-1,-1); if column.Field.Asinteger=0 then DrawState := ischecked[false]; if column.Field.Asinteger=1 then DrawState := ischecked[true]; DBgrid3.Canvas.FillRect(Rect); DrawFrameControl(DBgrid3.Canvas.Handle, DrawRect,DFC_BUTTON, DrawState); end; end; gcrpagado.visible:=false; if (gdFocused in State) then begin if (Column.Field.FieldName = combocentrocoste.DataField) then with combocentrocoste do begin Left := Rect.Left + DBGrid3.Left + 2; Top := Rect.Top + DBGrid3.Top + 2; Width := Rect.Right - Rect.Left; Width := Rect.Right - Rect.Left; Height := Rect.Bottom - Rect.Top; Visible := True; setfocus; dropdown; end else combocentrocoste.Visible:=false; if (Column.Field.FieldName = comboresponsables.DataField) then with comboresponsables do begin Left := Rect.Left + DBGrid3.Left + 2; Top := Rect.Top + DBGrid3.Top + 2; Width := Rect.Right - Rect.Left; Width := Rect.Right - Rect.Left; Height := Rect.Bottom - Rect.Top; Visible := True; setfocus; dropdown; end else comboresponsables.Visible:=false; if (Column.Field.FieldName = combotractores.DataField) then with combotractores do begin Left := Rect.Left + DBGrid3.Left + 2; Top := Rect.Top + DBGrid3.Top + 2; Width := Rect.Right - Rect.Left; Width := Rect.Right - Rect.Left; Height := Rect.Bottom - Rect.Top; Visible := True; setfocus; dropdown; end else combotractores.Visible:=false; if (Column.Field.FieldName = combodepositos.DataField) then with combodepositos do begin Left := Rect.Left + DBGrid3.Left + 2; Top := Rect.Top + DBGrid3.Top + 2; Width := Rect.Right - Rect.Left; Width := Rect.Right - Rect.Left; Height := Rect.Bottom - Rect.Top; Visible := True; setfocus; dropdown; end else combodepositos.Visible:=false; if (Column.Field.FieldName = combovelocidad.DataField) then with combovelocidad do begin Left := Rect.Left + DBGrid3.Left + 2; Top := Rect.Top + DBGrid3.Top + 2; Width := Rect.Right - Rect.Left; Width := Rect.Right - Rect.Left; Height := Rect.Bottom - Rect.Top; Visible := True; setfocus; dropdown; end else combovelocidad.Visible:=false; if (Column.Field.FieldName = combopresiones.DataField) then with combopresiones do begin Left := Rect.Left + DBGrid3.Left + 2; Top := Rect.Top + DBGrid3.Top + 2; Width := Rect.Right - Rect.Left; Width := Rect.Right - Rect.Left; Height := Rect.Bottom - Rect.Top; Visible := True; setfocus; dropdown; end else combopresiones.Visible:=false; if (Column.Field.FieldName = comboboquillas.DataField) then with comboboquillas do begin Left := Rect.Left + DBGrid3.Left + 2; Top := Rect.Top + DBGrid3.Top + 2; Width := Rect.Right - Rect.Left; Width := Rect.Right - Rect.Left; Height := Rect.Bottom - Rect.Top; Visible := True; setfocus; dropdown; end else comboboquillas.Visible:=false; if (Column.Field.FieldName = comboventilador.DataField) then with comboventilador do begin Left := Rect.Left + DBGrid3.Left + 2; Top := Rect.Top + DBGrid3.Top + 2; Width := Rect.Right - Rect.Left; Width := Rect.Right - Rect.Left; Height := Rect.Bottom - Rect.Top; Visible := True; setfocus; dropdown; end else comboventilador.Visible:=false; if (Column.Field.FieldName = combooperarios.DataField) then with combooperarios do begin Left := Rect.Left + DBGrid3.Left + 2; Top := Rect.Top + DBGrid3.Top + 2; Width := Rect.Right - Rect.Left; Width := Rect.Right - Rect.Left; Height := Rect.Bottom - Rect.Top; Visible := True; setfocus; dropdown; end else combooperarios.Visible:=false; if (Column.Field.FieldName = 'fecha') then with ffecha do begin Left := Rect.Left + DBGrid3.Left + 2; Top := Rect.Top + DBGrid3.Top + 2; Width := Rect.Right - Rect.Left; Width := Rect.Right - Rect.Left; Height := Rect.Bottom - Rect.Top; Visible := True; end else begin ffecha.Visible:=false; end; end; end; procedure Ttratamientos.DBGrid3TitleClick(Column: TColumn); var st:ZAbstractRODataset.TSortType; begin st:=qtratamientos.SortType; qtratamientos.SortedFields:=Column.FieldName; If st = stAscending then qtratamientos.SortType:=stDescending else qtratamientos.SortType:=stAscending; dsqtratamientos.DataSet.First; end; procedure Ttratamientos.DBGrid4CellClick(Column: TColumn); begin if column.Field.FieldName ='en_cuaderno' then begin if qtratamientosdetalleen_cuaderno.asinteger=1 then begin qtratamientosdetalle.Edit; qtratamientosdetalleen_cuaderno.Value:=0; qtratamientosdetalle.Post; dbgrid4.selectedIndex:=1; end else begin qtratamientosdetalle.Edit; qtratamientosdetalleen_cuaderno.Value:=1; qtratamientosdetalle.Post; qtratamientosdetalle.Refresh; dbgrid4.SelectedIndex:=1; end; end; end; procedure Ttratamientos.DBGrid4DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); const IsChecked : array[Boolean] of Integer = (DFCS_BUTTONCHECK, DFCS_BUTTONCHECK or DFCS_CHECKED); var DrawState,imgindex,bmpwidth: Integer; DrawRect: TRect; fixRect:TRect; bitmap:tbitmap; begin fixRect := Rect; if (gdFocused in State) then begin if (Column.Field.FieldName = 'en_cuaderno') then begin gcrpagado.Left := Rect.Left + DBgrid4.Left + 2; gcrpagado.Top := Rect.Top + DBgrid4.top + 2; gcrpagado.Width := Rect.Right - Rect.Left; gcrpagado.Height := Rect.Bottom - Rect.Top; gcrpagado.Visible := True; end; end else begin if (Column.Field.FieldName = 'en_cuaderno') then begin DrawRect:=Rect; InflateRect(DrawRect,-1,-1); if column.Field.Asinteger=0 then DrawState := ischecked[false]; if column.Field.Asinteger=1 then DrawState := ischecked[true]; // DrawState := ISChecked[Column.Field.Asboolean]; DBgrid4.Canvas.FillRect(Rect); DrawFrameControl(DBgrid4.Canvas.Handle, DrawRect,DFC_BUTTON, DrawState); end; end; gcrpagado.visible:=false; fixRect := Rect; if column.Title.Caption ='Ficha' then begin if qtratamientosdetalle.FieldByname('conficha').Asstring=' ' then imgIndex := 88 else imgIndex := -1; bitmap := TBitmap.Create; try base.listaiconos.GetBitmap(imgIndex,bitmap); bmpWidth := (Rect.Bottom - Rect.Top); fixRect.right := Rect.Left + bmpWidth; DBGrid4.Canvas.StretchDraw(fixRect,bitmap); finally bitmap.Free; end; fixRect := Rect; fixRect.Left := fixRect.Left + bmpWidth; // DBgrid4.Canvas.FillRect(Rect); DBGrid4.DefaultDrawColumnCell(fixRect,-1,Column,State); end; end; procedure Ttratamientos.DBGrid4KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if (key=115) then begin buscararticulos := Tbuscararticulos.Create(nil); try fbuscararticulos.filtro:=qtratamientosdetalledescripcion_af.AsString; buscararticulos.Edit1.Text:=qtratamientosdetalledescripcion_af.AsString; buscararticulos.showmodal(); finally if qtratamientosdetalle.State in [dsbrowse] then qtratamientosdetalle.Edit; qtratamientosdetalleidaf.Value:=buscararticulos.qarticulosid.Asinteger; qtratamientosdetalleregistro.Value:=buscararticulos.qarticulosregistro.Asstring; qtratamientosdetalledescripcion_af.value:=buscararticulos.qarticulosdescripcion.AsString; qtratamientosdetalledescripcion_ma.Value:=buscararticulos.qarticulosmateria_activa.Asstring; qtratamientosdetalledosis.value:=0; qtratamientosdetalleplazo.value:=buscararticulos.qarticulosplazo_seguridad.Asinteger; buscararticulos.Free; end; end; end; procedure Ttratamientos.DBGrid4TitleClick(Column: TColumn); var st:ZAbstractRODataset.TSortType; begin st:=qtratamientosdetalle.SortType; qtratamientos.SortedFields:=Column.FieldName; If st = stAscending then qtratamientosdetalle.SortType:=stDescending else qtratamientosdetalle.SortType:=stAscending; dsqtratamientosdetalle.DataSet.First; end; procedure Ttratamientos.DBGrid5DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin if (qresumenproductosnum_tratamientos.Asinteger>qresumenproductosnum_aplicaciones.asinteger)then begin DBGrid5.Canvas.brush.Color := rojo; end ; DBGrid5.DefaultDrawColumnCell(Rect, DataCol, Column, State); end; procedure Ttratamientos.dsqcampanyasDataChange(Sender: TObject; Field: TField); begin qtratamientosbase.Close; qtratamientosbase.Prepare; qtratamientosbase.ParamByName('FINICIO').AsDate:=qcampanyasfechainicio.asdatetime; qtratamientosbase.ParamByName('FFIN').AsDate:=qcampanyasfechafin.asdatetime; qtratamientosbase.ParamByName('EMPRESA').Asinteger:=qcampanyasidempresa.AsInteger; qtratamientosbase.Open; end; procedure Ttratamientos.dsqtratamientosDataChange(Sender: TObject; Field: TField); begin if qtratamientos.State in [dsbrowse] then begin ffecha.Date:=qtratamientosfecha.AsDateTime; comboresponsables.Visible:=false; combocentrocoste.Visible:=false; end; qnombrecampanya.Prepare; qnombrecampanya.ParamByName('FECHA').AsDateTime:=qtratamientosfecha.AsDateTime; qnombrecampanya.refresh; qresumenproductos.Prepare; qresumenproductos.ParamByName('PARCELA').AsString:=qtratamientosidcc.AsString; qresumenproductos.ParamByName('CAMPANYA').AsString:=qnombrecampanyadescripcion.asstring; qresumenproductos.refresh; qtratamientosdetalle.Prepare; qtratamientosdetalle.ParamByName('EMPRESA').AsInteger:=qtratamientoside.AsInteger; qtratamientosdetalle.ParamByName('TRATAMIENTO').AsInteger:=qtratamientosid.AsInteger; qtratamientosdetalle.Refresh; end; procedure Ttratamientos.dsqtratamientosdetalleDataChange(Sender: TObject; Field: TField); begin qresumenproductos.Locate('descripcion_af',qtratamientosdetalledescripcion_af.AsString,[loCaseInsensitive]); end; procedure Ttratamientos.dsqtratamientosStateChange(Sender: TObject); begin if qtratamientos.State in [dsedit,dsinsert] then begin btanuevo.Enabled:=false; btamodificar.Enabled:=false; btaborrar.Enabled:=false; btacancelar.Enabled:=true; btaguardar.Enabled:=true; btareutilizar.enabled:=false; button3.Enabled:=false; button2.Enabled:=false; end else begin btanuevo.Enabled:=true; btamodificar.Enabled:=true; btaborrar.Enabled:=true; btacancelar.Enabled:=false; btaguardar.Enabled:=false; panel2.Visible:=false; button1.Visible:=false; btareutilizar.enabled:=true; button2.Enabled:=true; button3.Enabled:=true; ffecha.visible:=false; comboresponsables.Visible:=false; combocentrocoste.Visible:=false; end; end; procedure Ttratamientos.FfechaChange(Sender: TObject); begin qtratamientos.Edit; end; procedure Ttratamientos.FormKeyPress(Sender: TObject; var Key: Char); begin key:=upcase(key); if (key='.') and (activecontrol is tdbgrid) then begin key:=',' end; if (activecontrol is tdbgrid) then begin if Key = #13 then Key :=#9; end; if (key=#13) then begin Perform(WM_NextDLGCtl,0,0); key:=#0; end; // si presionamos ESC if (key=#$1B) and (activecontrol is tdblookupcombobox )then begin activecontrol.Visible:=false; end; end; procedure Ttratamientos.FormShow(Sender: TObject); var anyo,mes,dia:word; begin decodedate(date,anyo,mes,dia); fdesde.Date:=(strtodate('01/01/'+inttostr(anyo))); fhasta.Date:=(strtodate('31/12/'+inttostr(anyo))); ffecha.Date:=date; qcampanyas.Open; combocampanyas.KeyValue:=qcampanyasdescripcion.Asstring; qtratamientosbasedetalle.Close; qcentrocoste.close; qresponsables.Close; qtratamientos.Close; qtratamientosdetalle.close; qcentrocoste2.close; qresponsables2.Close; qmateriaprima2.Close; qtractores.close; qvelocidad.close; qdepositos.close; qboquillas.close; qpresiones.close; qventilador.close; qtratamientosbasedetalle.open; qcentrocoste.open; qresponsables.open; qcentrocoste2.open; qresponsables2.open; qmateriaprima2.open; qnombrecampanya.Open; qresumenproductos.Open; qtratamientosdetalle.open; qtratamientos.ParamByName('parcela').AsString:='%'; qtratamientos.ParamByName('responsable').AsString:='%'; qtratamientos.ParamByName('DESDE').AsDate:=fdesde.Date; qtratamientos.ParamByName('HASTA').AsDate:=fhasta.Date; qtratamientos.ParamByName('MOSTRAR').asstring:='%'; qtratamientos.Prepare; qtratamientos.open; qtractores.Open; qvelocidad.Open; qdepositos.Open; qboquillas.Open; qpresiones.Open; qventilador.Open; qoperarios.Open; button9.Click; end; procedure Ttratamientos.qtratamientosAfterPost(DataSet: TDataSet); begin qtractores.refresh; qvelocidad.refresh; qdepositos.refresh; qboquillas.refresh; qpresiones.refresh; qventilador.refresh; qoperarios.Refresh; end; procedure Ttratamientos.qtratamientosBeforeDelete(DataSet: TDataSet); begin case dm.PedirConfirmacion('¿Confirma que desea borrar este tratamiento?',true,true,false) of mrno:Abort; end; end; procedure Ttratamientos.qtratamientosBeforePost(DataSet: TDataSet); var x:integer; begin if contabilizando=0 then begin qmateriaprima.Close; qmateriaprima.Prepare; qmateriaprima.ParamByName('EMPRESA').AsInteger:=qtratamientoside.asinteger; qmateriaprima.ParamByName('PARCELA').Asstring:=qtratamientosidcc.asstring; qmateriaprima.Open; qtratamientosvariedad.asstring:=qmateriaprimadescripcion.AsString; qtratamientosidcc.Value:=qcentrocostecodpar.AsString; if qtratamientos.state=dsinsert then x:=dm.PedirConfirmacion('¿Confirma que desea dar de alta este tratamiento?',true,true,true) else x:=dm.PedirConfirmacion('¿Confirma que desea modificar este tratamiento?',true,true,true); case x of mrno: begin qtratamientos.cancel; abort; end; mrcancel:BEGIN abort; END; end; end; end; procedure Ttratamientos.qtratamientosdetalleAfterDelete(DataSet: TDataSet); begin qresumenproductos.Refresh; end; procedure Ttratamientos.qtratamientosdetalleAfterPost(DataSet: TDataSet); begin qtratamientosdetalle.Refresh; qresumenproductos.Refresh; end; procedure Ttratamientos.qtratamientosdetalleBeforeDelete(DataSet: TDataSet); begin case dm.PedirConfirmacion('¿Confirma que desea borrar este tratamiento?',true,true,false) of mrno:Abort; end; end; procedure Ttratamientos.qtratamientosdetalleBeforePost(DataSet: TDataSet); var x:integer; begin qtratamientosdetalleide.Value:=qtratamientoside.AsInteger; qtratamientosdetalleidt.Value:=qtratamientosid.AsInteger; if contabilizando=0 then begin if qtratamientosdetalle.state=dsinsert then x:=dm.PedirConfirmacion('¿Confirma que desea dar de alta este producto?',true,true,true) else x:=dm.PedirConfirmacion('¿Confirma que desea modificar este producto?',true,true,true); case x of mrno: begin qtratamientosdetalle.cancel; abort; end; mrcancel:BEGIN abort; END; end; end; end; procedure Ttratamientos.qtratamientosdetalleCalcFields(DataSet: TDataSet); begin if qtratamientosdetalleficha.AsString<>'' then qtratamientosdetalleconficha.Value:=' ' else qtratamientosdetalleconficha.Value:=''; end; end.