Salu2 amigos foristas...
tengo un formulario que tiene lo siguiente:
2 combobox
1 edit
3bitbtn
lo que se quiere es lo siguiente:
en la misma aplicacion hay un formulario el cual se llena una base de datos....bla bla bla..
y en el formulario actual necesito cargar una nueva base de datos provenientes de la nombrada anteriormente (por que la primera que mencioné es temporal)....
tengo un camplo clave en ambas tablas llamado unico, pero cuando le monto un locate para que busque si el registro esta o no me da error :-\
este código funciona bien pero hace falta alguna función que permita verificar si los datos existen o no
procedure TForm44.BitBtn1Click(Sender: TObject); var Fecha:TDate; unico,Grupo,Des,mes,ano:String; debe:Double; begin With Form1.Table11 do begin First; while not Eof do begin unico:=FieldValues['unico']; if unico='0' then begin end else begin With form1.Table14 do Begin Insert; FieldValues['Fecha']:=form1.Table11.FieldValues['Fecha']; FieldValues['Grupo']:=Form1.Table11.FieldValues['Grupo']; FieldValues['Des_cu']:=Form1.Table11.FieldValues['des_cu']; FieldValues['debe']:=Form1.Table11.FieldValues['debe']; Post; end; end; Next; end; end; exit; if ComboBox1.Text='Seleccione Mes' then begin Application.MessageBox('Disculpe, debe seleccionar un Mes',''); exit; end; if ComboBox2.Text='Seleccione Año' then begin Application.MessageBox('Disculpe, debe seleccionar un Año',''); exit; end; mes:=IntToStr(ComboBox1.ItemIndex+1); ano:=ComboBox2.Text; edit1.Text:='01'+'/'+mes+'/'+ano; with Form45.Query1 do begin Close; SQL.Text := 'Select Fecha,grupo,des_cu,debe,haber '+ 'from costosygastos.db '+ 'where Extract(month from fecha) = '+IntToStr(MonthOf(StrToDate(Edit1.Text)))+ ' and Extract(year from fecha) = '+IntToStr(YearOf(StrToDate(Edit1.Text))); Open; end; form45.QRLabel1.Caption:='Costos y Gastos de '+ComboBox1.Text+' de '+ComboBox2.Text; form45.QuickRep1.Preview; exit; end;
Salu2 y gracias adelantadas