unit fconsumos; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, ZAbstractRODataset, ZDataset, Vcl.StdCtrls, Vcl.ExtCtrls, Vcl.Grids, Vcl.DBGrids, Vcl.ComCtrls, ZAbstractDataset, Vcl.DBCtrls, Vcl.Mask, ZSqlUpdate, frxClass, frxDBSet; type Tconsumos_gastos = class(TForm) Panel1: TPanel; btEnuevo: TButton; btEborrar: TButton; btEmodificar: TButton; btEguardar: TButton; btEcancelar: TButton; bteimprimir: TButton; Panel2: TPanel; qgrupos: TZReadOnlyQuery; qfamilias: TZReadOnlyQuery; qgruposidempresa: TIntegerField; qgruposid: TIntegerField; qgruposdescripcion: TWideStringField; qgruposactivo: TIntegerField; qfamiliasidempresa: TIntegerField; qfamiliasid: TIntegerField; qfamiliasdescripcion: TWideStringField; qfamiliasactivo: TIntegerField; qfamiliasgrupo: TIntegerField; qfamiliasCOMUN: TIntegerField; qfamiliasABONOS: TIntegerField; qfamiliasFITOSANITARIOS: TIntegerField; qfamiliasSUMINISTROS: TIntegerField; qfamiliasGENERADORES: TIntegerField; qparcelas: TZReadOnlyQuery; qparcelascodpar: TWideStringField; qparcelasempresa: TIntegerField; qparcelasnombre: TWideStringField; qparcelasvariedad: TWideStringField; qparcelasnum_plantas: TIntegerField; qparcelasfecha_plantacion: TDateField; qparcelasmarco_plantacion: TWideStringField; qparcelasnum_goteros: TFloatField; qparcelasgastosgenerales: TIntegerField; qparcelasref_catastro: TWideStringField; qparcelassigpac_prov: TIntegerField; qparcelassigpac_muni: TIntegerField; qparcelassigpac_agre: TIntegerField; qparcelassigpac_zona: TIntegerField; qparcelassigpac_poli: TIntegerField; qparcelassigpac_pacr: TIntegerField; qparcelasx: TWideStringField; qparcelasy: TWideStringField; qparcelasdatum: TWideStringField; qparcelashuso: TIntegerField; qparcelaspropiedad: TWideStringField; qparcelasactivo: TIntegerField; qparcelasseleccionado: TIntegerField; qparcelassuperficie: TFloatField; qparcelasest_meteo: TWideStringField; qparcelascoste_kg_ref: TFloatField; qparcelasactivo_almacen: TIntegerField; qparcelasporc_desperdicio: TFloatField; qparcelasporc_merma: TFloatField; qparcelases_centrotrabajo: TIntegerField; qparcelassigpac_recinto: TIntegerField; qparcelaspie_planta: TWideStringField; qparcelasnumero: TWideStringField; qparcelastiene_gg: TIntegerField; qparcelastiene_dop: TIntegerField; qparcelasc_calidad: TIntegerField; qparcelasc_espcliente: TIntegerField; qparcelasc_etiquetado: TIntegerField; qparcelassello_gg: TWideStringField; qparcelassello_dop: TWideStringField; qparcelassello_igp: TWideStringField; qparcelastiene_igp: TIntegerField; qparcelastiene_ifs: TIntegerField; qparcelassello_ifs: TWideStringField; qparcelaspropietario: TIntegerField; combocentrocoste: TDBLookupComboBox; dsparcelas: TDataSource; Label1: TLabel; Label4: TLabel; combofamilia: TDBLookupComboBox; dsqgrupos: TDataSource; dsqfamilias: TDataSource; Label3: TLabel; ffecha: TDateTimePicker; dsqresponsables: TDataSource; qresponsables: TZReadOnlyQuery; qresponsablesnombre: TWideStringField; qconsumos: TZQuery; PageControl1: TPageControl; Listado: TTabSheet; Detalles: TTabSheet; Panel4: TPanel; Panel5: TPanel; Panel6: TPanel; Panel7: TPanel; Panel8: TPanel; Panel9: TPanel; checkfechas: TCheckBox; checkcc: TCheckBox; checkgrupos: TCheckBox; checkfamilias: TCheckBox; DBGrid1: TDBGrid; dsqconsumos: TDataSource; btbuscar: TButton; Panel10: TPanel; qparcelas2: TZReadOnlyQuery; dsqparcelas2: TDataSource; dsqgrupos2: TDataSource; qgrupos2: TZReadOnlyQuery; qfamilias2: TZReadOnlyQuery; dsqfamilias2: TDataSource; qfamilias2idempresa: TIntegerField; qfamilias2id: TIntegerField; qfamilias2descripcion: TWideStringField; qfamilias2activo: TIntegerField; qfamilias2grupo: TIntegerField; qfamilias2COMUN: TIntegerField; qfamilias2ABONOS: TIntegerField; qfamilias2FITOSANITARIOS: TIntegerField; qfamilias2SUMINISTROS: TIntegerField; qfamilias2GENERADORES: TIntegerField; qlistadoconsumos: TZReadOnlyQuery; dsqlistadoconsumos: TDataSource; DBGrid2: TDBGrid; qgrupos2idempresa: TIntegerField; qgrupos2id: TIntegerField; qgrupos2descripcion: TWideStringField; qgrupos2activo: TIntegerField; qparcelas2codpar: TWideStringField; qparcelas2empresa: TIntegerField; qparcelas2nombre: TWideStringField; qparcelas2variedad: TWideStringField; qparcelas2num_plantas: TIntegerField; qparcelas2fecha_plantacion: TDateField; qparcelas2marco_plantacion: TWideStringField; qparcelas2num_goteros: TFloatField; qparcelas2gastosgenerales: TIntegerField; qparcelas2ref_catastro: TWideStringField; qparcelas2sigpac_prov: TIntegerField; qparcelas2sigpac_muni: TIntegerField; qparcelas2sigpac_agre: TIntegerField; qparcelas2sigpac_zona: TIntegerField; qparcelas2sigpac_poli: TIntegerField; qparcelas2sigpac_pacr: TIntegerField; qparcelas2x: TWideStringField; qparcelas2y: TWideStringField; qparcelas2datum: TWideStringField; qparcelas2huso: TIntegerField; qparcelas2propiedad: TWideStringField; qparcelas2activo: TIntegerField; qparcelas2seleccionado: TIntegerField; qparcelas2superficie: TFloatField; qparcelas2est_meteo: TWideStringField; qparcelas2coste_kg_ref: TFloatField; qparcelas2activo_almacen: TIntegerField; qparcelas2porc_desperdicio: TFloatField; qparcelas2porc_merma: TFloatField; qparcelas2es_centrotrabajo: TIntegerField; qparcelas2sigpac_recinto: TIntegerField; qparcelas2pie_planta: TWideStringField; qparcelas2numero: TWideStringField; qparcelas2tiene_gg: TIntegerField; qparcelas2tiene_dop: TIntegerField; qparcelas2c_calidad: TIntegerField; qparcelas2c_espcliente: TIntegerField; qparcelas2c_etiquetado: TIntegerField; qparcelas2sello_gg: TWideStringField; qparcelas2sello_dop: TWideStringField; qparcelas2sello_igp: TWideStringField; qparcelas2tiene_igp: TIntegerField; qparcelas2tiene_ifs: TIntegerField; qparcelas2sello_ifs: TWideStringField; qparcelas2propietario: TIntegerField; qresponsablesnif: TWideStringField; qresponsablesfirma: TBlobField; Panel11: TPanel; DBGrid3: TDBGrid; qaux: TZReadOnlyQuery; Panel14: TPanel; checkcampanyas: TCheckBox; dsqcampanyas: TDataSource; qcampanyas: TZReadOnlyQuery; qcampanyasid: TIntegerField; qcampanyasidempresa: TIntegerField; qcampanyasid_anterior: TIntegerField; qcampanyasdescripcion: TWideStringField; qcampanyasfechainicio: TDateField; qcampanyasfechafin: TDateField; qcampanyasult_pesada: TIntegerField; pcentros: TPanel; combocc2: TDBLookupComboBox; pgrupos: TPanel; combogrupos2: TDBLookupComboBox; pfamilias: TPanel; combofamilia2: TDBLookupComboBox; pfechas: TPanel; Label6: TLabel; Label7: TLabel; fdesde: TDateTimePicker; fhasta: TDateTimePicker; pcampanyas: TPanel; combocampanya: TDBLookupComboBox; Label11: TLabel; DBText1: TDBText; gcrcheck: TDBCheckBox; Label8: TLabel; comboamortizacion: TComboBox; tnumperiodos: TEdit; Label9: TLabel; Label10: TLabel; comboperiodicidad: TComboBox; Label2: TLabel; Label5: TLabel; Label12: TLabel; Label13: TLabel; Label14: TLabel; DBText6: TDBText; DBEdit1: TDBEdit; DBEdit2: TDBEdit; DBEdit3: TDBEdit; DBEdit4: TDBEdit; Panel12: TPanel; quconsumos_gastos: 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; qlistadoconsumoside: TIntegerField; qlistadoconsumosid: TIntegerField; qlistadoconsumosfecha: TDateField; qlistadoconsumosgrupo: TWideStringField; qlistadoconsumosfamilia: TWideStringField; qlistadoconsumosparcela: TWideStringField; qlistadoconsumosamortizacion: TIntegerField; qlistadoconsumosdescripcion: TWideStringField; qlistadoconsumostotal_amortizado: TFloatField; qlistadoconsumosidfraccionado: TIntegerField; informedb: TfrxDBDataset; informes: TfrxReport; Button1: TButton; procedure FormShow(Sender: TObject); procedure DBGrid3KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); procedure DBGrid3KeyPress(Sender: TObject; var Key: Char); procedure btEnuevoClick(Sender: TObject); procedure dsqconsumosStateChange(Sender: TObject); procedure btEcancelarClick(Sender: TObject); procedure btEguardarClick(Sender: TObject); procedure btEmodificarClick(Sender: TObject); procedure btEborrarClick(Sender: TObject); procedure checkcampanyasClick(Sender: TObject); procedure checkfechasClick(Sender: TObject); procedure checkccClick(Sender: TObject); procedure checkgruposClick(Sender: TObject); procedure checkfamiliasClick(Sender: TObject); procedure dsqcampanyasDataChange(Sender: TObject; Field: TField); procedure btbuscarClick(Sender: TObject); procedure dsqconsumosDataChange(Sender: TObject; Field: TField); procedure DBGrid2DblClick(Sender: TObject); procedure FormKeyPress(Sender: TObject; var Key: Char); procedure DBGrid3DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); procedure DBGrid2DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); procedure DBEdit4Enter(Sender: TObject); procedure DBGrid2TitleClick(Column: TColumn); procedure qconsumosBeforePost(DataSet: TDataSet); procedure qconsumosAfterPost(DataSet: TDataSet); procedure qconsumosBeforeDelete(DataSet: TDataSet); procedure ffechaExit(Sender: TObject); procedure bteimprimirClick(Sender: TObject); procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var consumos_gastos: Tconsumos_gastos; const rojo=$00AAAAFF; amarillo=$00B9FFFF; verde=$00C7FBAA; azul=$00FFFFBB; implementation {$R *.dfm} uses fbuscararticulos, datos, principal; procedure Tconsumos_gastos.btEborrarClick(Sender: TObject); begin qconsumos.Close; qconsumos.ParamByName('IDENTRADA').AsString:=qlistadoconsumosidfraccionado.AsString; qconsumos.Open; qconsumos.Locate('ID',qlistadoconsumosid.AsString,[locaseinsensitive]); qconsumos.Delete; qlistadoconsumos.Refresh; end; procedure Tconsumos_gastos.btEcancelarClick(Sender: TObject); begin qconsumos.Cancel; panel2.Enabled:=false; end; procedure Tconsumos_gastos.btEguardarClick(Sender: TObject); var vidfraccionado,vperiodos,vdias,vidgrupo,vidfamilia,vide,vamortizacion:integer; x: Integer; vcantidad,vtotal,vprecio:real; vidcc,vdescripcion:string; vfecha:tdatetime; begin qaux.Close; if qconsumos.State in [dsinsert] then begin vfecha:=ffecha.Date; vperiodos:=strtoint(tnumperiodos.Text); vamortizacion:=1; vdescripcion:=qconsumosdescripcion.AsString; vcantidad:=qconsumoscantidad.AsFloat; vtotal:=qconsumostotal.AsFloat; vprecio:=qconsumosprecio.AsFloat; vidfamilia:=combofamilia.Keyvalue; vidcc:=combocentrocoste.KeyValue; vidgrupo:=qgruposid.AsInteger; if comboamortizacion.ItemIndex=1 then begin case comboperiodicidad.ItemIndex of 0: begin vdias:=365; end; 1: begin vdias:=30; end; end; end else begin vdias:=1; vperiodos:=1; vamortizacion:=0; end; qaux.Open; if qaux.Fields[0].AsString='' then vidfraccionado:=1 else vidfraccionado:=qaux.Fields[0].asinteger; for x := 0 to vperiodos-1 do begin if qconsumos.State in [dsbrowse] then qconsumos.Append; qaux.Open; qconsumosid.Value:=qaux.Fields[0].asinteger; qconsumosidfraccionado.Value:=vidfraccionado; qconsumoside.Value:=dm.tempresaid.asinteger; qconsumosnumplazos.value:=vperiodos; qconsumosdescripcion.Value:=vdescripcion; qconsumoscantidad.Value:=vcantidad; qconsumosprecio.Value:=vprecio; qconsumostotal.Value:=vtotal; qconsumostotal_amortizado.value:=vtotal/vperiodos; qconsumosfecha.Value:=vfecha+(x*vdias); qconsumosidcc.Value:=vidcc; qconsumosidgrupo.Value:=vidgrupo; qconsumosidfamilia.Value:=vidfamilia; qconsumosamortizacion.Value:=vamortizacion; qconsumos.Post; qaux.Close; end; pagecontrol1.ActivePageIndex:=0; end; if qconsumos.State in [dsedit] then begin if qconsumosfecha.AsDateTime<>ffecha.date then begin ffecha.Date:=qconsumosfecha.AsDateTime; end; vfecha:=ffecha.Date; vperiodos:=strtoint(tnumperiodos.Text); vdescripcion:=qconsumosdescripcion.AsString; vcantidad:=qconsumoscantidad.AsFloat; vtotal:=qconsumostotal.AsFloat; vprecio:=qconsumosprecio.AsFloat; vidfamilia:=combofamilia.Keyvalue; vidcc:=combocentrocoste.KeyValue; vidgrupo:=qgruposid.AsInteger; qconsumosdescripcion.Value:=vdescripcion; qconsumoscantidad.Value:=vcantidad; qconsumosprecio.Value:=vprecio; qconsumostotal.Value:=vtotal; qconsumosfecha.Value:=vfecha; qconsumosidcc.Value:=combocentrocoste.KeyValue; qconsumosidfamilia.Value:=combofamilia.KeyValue; qconsumosidgrupo.Value:=qgruposid.AsInteger; qconsumos.Post; pagecontrol1.ActivePageIndex:=0; end; vidgrupo:=qconsumosid.Asinteger; vide:=qconsumoside.AsInteger; qlistadoconsumos.Refresh; qlistadoconsumos.Locate('ide,id',vararrayof([vide,vidgrupo]),[locaseinsensitive]); panel2.Enabled:=false; end; procedure Tconsumos_gastos.bteimprimirClick(Sender: TObject); begin informedb.DataSource := dsqlistadoconsumos; informes.Report.Clear; informes.LoadFromFile('c:\agrigest\informes\informecgastos.fr3'); informes.ShowReport(); informes.Clear end; procedure Tconsumos_gastos.btEmodificarClick(Sender: TObject); var videntrada:string; begin videntrada:=qlistadoconsumosidfraccionado.AsString; pagecontrol1.ActivePageIndex:=1; qconsumos.Close; qconsumos.ParamByName('IDENTRADA').AsString:=videntrada; qconsumos.Open; panel2.Enabled:=true; qconsumos.Edit; end; procedure Tconsumos_gastos.btEnuevoClick(Sender: TObject); begin pagecontrol1.ActivePageIndex:=1; panel2.Enabled:=true; qconsumos.Append; ffecha.Date:=date; ffecha.SetFocus; combofamilia.KeyValue:=dm.tempresaidfamilia.AsInteger; end; procedure Tconsumos_gastos.Button1Click(Sender: TObject); var archivo: string; begin base.SaveDialog1.FileName := 'CONSUMOS Y GASTOS.xlsx'; base.SaveDialog1.Execute(); archivo := base.SaveDialog1.FileName; try BASE.ExportaraExcel(archivo, 'CONSUMOS Y GASTOS', DBGrid2); finally showmessage('Los datos han sido exportados correctamente a ' + archivo); end; end; procedure Tconsumos_gastos.btbuscarClick(Sender: TObject); var vcc,vgrupo,vfamilia,videntrada:string; begin videntrada:='%'; if checkcc.Checked then vcc:=qparcelas2codpar.AsString else vcc:='%'; if checkgrupos.Checked then vgrupo:=qgrupos2id.AsString else vgrupo:='%'; if checkfamilias.Checked then vfamilia:=qfamilias2id.AsString else vfamilia:='%'; qlistadoconsumos.Close; qlistadoconsumos.Prepare; if checkfechas.Checked or checkcampanyas.Checked then begin qlistadoconsumos.ParamByName('FDESDE').AsDate:=fdesde.Date; qlistadoconsumos.ParamByName('FHASTA').AsDate:=fhasta.Date; end else begin qlistadoconsumos.ParamByName('FDESDE').AsDate:=strtodate('01/01/2000'); qlistadoconsumos.ParamByName('FHASTA').AsDate:=strtodate('31/12/2100'); end; qlistadoconsumos.ParamByName('CC').Asstring:=vcc; qlistadoconsumos.ParamByName('GRUPO').Asstring:=vgrupo; qlistadoconsumos.ParamByName('FAMILIA').Asstring:=vfamilia; qlistadoconsumos.open; videntrada:=qlistadoconsumosidfraccionado.AsString; qconsumos.Close; qconsumos.ParamByName('IDENTRADA').Asstring:=videntrada; qconsumos.open; end; procedure Tconsumos_gastos.checkcampanyasClick(Sender: TObject); begin if checkcampanyas.Checked=true then begin pcampanyas.Visible:=true; panel14.Height:=55; end else begin pcampanyas.visible:=false; panel14.Height:=20; end; end; procedure Tconsumos_gastos.checkccClick(Sender: TObject); begin if checkcc.Checked=true then begin pcentros.Visible:=true; panel7.Height:=55; combocc2.KeyValue:=qparcelas2codpar.Asstring; end else begin pcentros.visible:=false; panel7.Height:=20; end; end; procedure Tconsumos_gastos.checkfamiliasClick(Sender: TObject); begin if checkfamilias.Checked=true then begin pfamilias.Visible:=true; panel6.Height:=55; combofamilia2.KeyValue:=qfamilias2id.AsInteger; end else begin pfamilias.visible:=false; panel6.Height:=20; end; end; procedure Tconsumos_gastos.checkfechasClick(Sender: TObject); begin if checkfechas.Checked=true then begin pfechas.Visible:=true; panel8.Height:=75; end else begin pfechas.visible:=false; panel8.Height:=20; end; end; procedure Tconsumos_gastos.checkgruposClick(Sender: TObject); begin if checkgrupos.Checked=true then begin pgrupos.Visible:=true; panel5.Height:=55; combogrupos2.KeyValue:=qgrupos2id.AsInteger end else begin pgrupos.visible:=false; panel5.Height:=20; end; end; procedure Tconsumos_gastos.DBEdit4Enter(Sender: TObject); begin if qconsumos.State in [dsedit,dsinsert] then qconsumostotal.Value:=qconsumoscantidad.AsFloat*qconsumosprecio.AsFloat; end; procedure Tconsumos_gastos.DBGrid2DblClick(Sender: TObject); var videntrada:string; begin videntrada:=qlistadoconsumosidfraccionado.AsString; pagecontrol1.ActivePageIndex:=1; qconsumos.Close; qconsumos.ParamByName('IDENTRADA').AsString:=videntrada; qconsumos.Open; end; procedure Tconsumos_gastos.DBGrid2DrawColumnCell(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: Integer; DrawRect: TRect; begin if qlistadoconsumosamortizacion.Asinteger=1 then begin dbgrid2.Canvas.brush.Color := azul; end; if qlistadoconsumosamortizacion.Asinteger=0 then begin dbgrid2.Canvas.brush.Color := clwindow; end; dbgrid2.DefaultDrawColumnCell(Rect, DataCol, Column, State); if (gdFocused in State) then begin if (Column.Field.FieldName = 'amortizacion') then begin gcrcheck.Left := Rect.Left + DBgrid2.Left + 2; gcrcheck.Top := Rect.Top + DBgrid2.top + 2; gcrcheck.Width := Rect.Right - Rect.Left; gcrcheck.Height := Rect.Bottom - Rect.Top; gcrcheck.Visible := True; end; end else begin if (Column.Field.FieldName = 'amortizacion') 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]; DBgrid2.Canvas.FillRect(Rect); DrawFrameControl(DBgrid2.Canvas.Handle, DrawRect, DFC_BUTTON, DrawState); end; end; gcrcheck.visible:=false; end; procedure Tconsumos_gastos.DBGrid2TitleClick(Column: TColumn); var st:ZAbstractRODataset.TSortType; begin st:=qlistadoconsumos.SortType; qlistadoconsumos.SortedFields:=Column.FieldName; If st = stAscending then qlistadoconsumos.SortType:=stDescending else qlistadoconsumos.SortType:=stAscending; dsqlistadoconsumos.DataSet.First; end; procedure Tconsumos_gastos.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: Integer; DrawRect: TRect; begin if (gdFocused in State) then begin if (Column.Field.FieldName = 'amortizacion') then begin gcrcheck.Left := Rect.Left + DBgrid3.Left + 2; gcrcheck.Top := Rect.Top + DBgrid3.top + 2; gcrcheck.Width := Rect.Right - Rect.Left; gcrcheck.Height := Rect.Bottom - Rect.Top; gcrcheck.Visible := True; end; end else begin if (Column.Field.FieldName = 'amortizacion') 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]; DBgrid3.Canvas.FillRect(Rect); DrawFrameControl(DBgrid3.Canvas.Handle, DrawRect, DFC_BUTTON, DrawState); end; end; gcrcheck.visible:=false; end; procedure Tconsumos_gastos.DBGrid3KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if (key=115) then begin buscararticulos := Tbuscararticulos.Create(nil); try fbuscararticulos.filtro:=qconsumosdescripcion.AsString; buscararticulos.Edit1.Text:=qconsumosdescripcion.AsString; buscararticulos.showmodal(); finally if qconsumos.State in [dsbrowse] then qconsumos.Edit; qconsumosidaf.Value:=buscararticulos.qarticulosid.Asinteger; qconsumoscodigo.Value:=buscararticulos.qarticuloscodigo.Asstring; qconsumosregistro.Value:=buscararticulos.qarticulosregistro.Asstring; qconsumosdescripcion.value:=buscararticulos.qarticulosdescripcion.AsString; qconsumosprecio.Value:=buscararticulos.qarticulosult_preciocompra.Asfloat; buscararticulos.Free; end; end; end; procedure Tconsumos_gastos.DBGrid3KeyPress(Sender: TObject; var Key: Char); begin if (key = Chr(9)) then Exit; end; procedure Tconsumos_gastos.dsqcampanyasDataChange(Sender: TObject; Field: TField); begin fdesde.Date:=qcampanyasfechainicio.asdatetime; fhasta.Date:=qcampanyasfechafin.asdatetime; end; procedure Tconsumos_gastos.dsqconsumosDataChange(Sender: TObject; Field: TField); begin if qconsumos.State in [dsbrowse] then ffecha.Date:=qconsumosfecha.AsDateTime; end; procedure Tconsumos_gastos.dsqconsumosStateChange(Sender: TObject); begin if qconsumos.State in [dsedit,dsinsert] then begin btenuevo.Enabled:=false; btemodificar.Enabled:=false; bteborrar.Enabled:=false; btecancelar.Enabled:=true; bteguardar.Enabled:=true; end else begin btenuevo.Enabled:=true; btemodificar.Enabled:=true; bteborrar.Enabled:=true; btecancelar.Enabled:=false; bteguardar.Enabled:=false; end; end; procedure Tconsumos_gastos.ffechaExit(Sender: TObject); begin if qconsumos.State in [dsinsert,dsedit] then begin qconsumosfecha.Value:=ffecha.Date; end; end; procedure Tconsumos_gastos.FormKeyPress(Sender: TObject; var Key: Char); 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 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; end; procedure Tconsumos_gastos.FormShow(Sender: TObject); begin qparcelas.close; qparcelas2.Close; qgrupos.Close; qgrupos2.close; qfamilias.Close; qfamilias2.Close; qlistadoconsumos.close; qconsumos.Close; qresponsables.close; qparcelas.open; qparcelas2.open; qgrupos.open; qgrupos2.open; qfamilias.open; qfamilias2.open; qlistadoconsumos.prepare; qresponsables.open; qcampanyas.Open; combocampanya.KeyValue:=qcampanyasid.AsInteger; qconsumos.prepare; pagecontrol1.ActivePageIndex:=0; ffecha.Date:=date; btbuscar.Click; end; procedure Tconsumos_gastos.qconsumosAfterPost(DataSet: TDataSet); begin if qconsumosamortizacion.AsInteger=1 then begin quconsumos_gastos.ParamByName('IDCC').AsString:=qconsumosidcc.AsString; quconsumos_gastos.ParamByName('IDCC').Asstring:=qconsumosidcc.Asstring; quconsumos_gastos.ParamByName('IDGRUPO').AsInteger:=qconsumosidgrupo.AsInteger; quconsumos_gastos.ParamByName('IDFAMILIA').AsInteger:=qconsumosidfamilia.AsInteger; quconsumos_gastos.ParamByName('AF').Asinteger:=qconsumosidaf.AsInteger; quconsumos_gastos.ParamByName('DESCRIPCION').Asstring:=qconsumosdescripcion.Asstring; quconsumos_gastos.ParamByName('REGISTRO').Asstring:=qconsumosregistro.AsString; quconsumos_gastos.ParamByName('PRECIO').Asfloat:=qconsumosprecio.Asfloat; quconsumos_gastos.ParamByName('CANTIDAD').Asfloat:=qconsumoscantidad.AsFloat; quconsumos_gastos.ParamByName('TOTAL').Asfloat:=qconsumostotal.Asfloat; quconsumos_gastos.ParamByName('TOTALAMORTIZADO').Asfloat:=qconsumostotal_amortizado.AsFloat; quconsumos_gastos.ParamByName('NUMPLAZOS').AsInteger:=qconsumosnumplazos.AsInteger; quconsumos_gastos.ParamByName('LOTE').Asstring:=qconsumoslote.Asstring; quconsumos_gastos.ParamByName('IDENTRADA').AsInteger:=qconsumosidentrada.AsInteger; quconsumos_gastos.ParamByName('IDFRACCIONADO').AsInteger:=qconsumosidfraccionado.AsInteger; quconsumos_gastos.ParamByName('ID').AsInteger:=qconsumosid.AsInteger; quconsumos_gastos.ExecSQL; qconsumos.refresh; qlistadoconsumos.Refresh; end; end; procedure Tconsumos_gastos.qconsumosBeforeDelete(DataSet: TDataSet); begin case dm.PedirConfirmacion('¿Confirma que desea borrar este consumo/gasto?',true,true,false) of mrno:Abort; end; end; procedure Tconsumos_gastos.qconsumosBeforePost(DataSet: TDataSet); var x:integer; begin qconsumostotal.Value:=qconsumosprecio.AsFloat*qconsumoscantidad.AsFloat; qconsumostotal_amortizado.Value:=qconsumostotal.AsFloat/qconsumosnumplazos.AsInteger; if qconsumos.state=dsinsert then x:=dm.PedirConfirmacion('¿Confirma que desea dar de alta esta consumo/gasto?',true,true,true) else x:=dm.PedirConfirmacion('¿Confirma que desea modificar esta consumo/gasto?',true,true,true); case x of mrno: begin qconsumos.cancel; abort; end; mrcancel:BEGIN abort; END; end; end; end.