Hola caral
Gracias por tu tiempo y por responder tan rapido, mira lo que tengo en el doble click es
Código Delphi
[-]
procedure TForm1.GrdLoDiDblClick(Sender: TObject);
begin
TbLoDi.Edit;
Vedi := True;
JvgPageControl1.ActivePage:= ts3;
end;
esto me lleva a otra pagina donde se encuentran los dbedit, entonces tengo lo siguiente
Código Delphi
[-]
procedure TForm1.ts3Enter(Sender: TObject);
begin
if Vedi then
begin
TbVentas.Insert;
dbePIEDRAS2.Text := IntToStr(GrdLoDi.DataSource.DataSet.FieldByName('PIEDRA_NL').AsInteger);
dbeTIPO_VE.Text := 'V';
dbeCUAD2.Text := IntToStr(GrdLoDi.DataSource.DataSet.FieldByName('CUAD_NL').AsInteger);
dbeREDO2.Text := IntToStr(GrdLoDi.DataSource.DataSet.FieldByName('REDO_NL').AsInteger);
dbeOVAL2.Text := IntToStr(GrdLoDi.DataSource.DataSet.FieldByName('OVAL_NL').AsInteger);
dbeLAGR2.Text := IntToStr(GrdLoDi.DataSource.DataSet.FieldByName('LAGR_NL').AsInteger);
dbeCORA2.Text := IntToStr(GrdLoDi.DataSource.DataSet.FieldByName('CORA_NL').AsInteger);
dbeCAUC2.Text := IntToStr(GrdLoDi.DataSource.DataSet.FieldByName('CAUC_NL').AsInteger);
dbeDROP2.Text := IntToStr(GrdLoDi.DataSource.DataSet.FieldByName('DRP_NL').AsInteger);
dbeOtr2.Text := IntToStr(GrdLoDi.DataSource.DataSet.FieldByName('OTRAS_NL').AsInteger);
dbeTPIED_VEN.Text :=IntToStr(GrdLoDi.DataSource.DataSet.FieldByName('TPIED_NL').AsInteger);
cbbLoDi.ItemIndex := cbbMoVe.ItemIndex;
lbl77.Caption := cbbMoVe.Text;
lbl78.Caption := cbbMoVe.Text;
dbeMONED_VEN.Text := cbbMoVe.Text;
dbeKilaC.Text := FloatToStr(GrdLoDi.DataSource.DataSet.FieldByName('KILATES_NL').AsFloat);
dbeVAL_KIL1.Text:= FloatToStr(GrdLoDi.DataSource.DataSet.FieldByName('VAL_KIL_NL').AsFloat);
dbeVAL_TO4.Text := FloatToStr(GrdLoDi.DataSource.DataSet.FieldByName('VAL_TO_NL').AsFloat);
end;
end;
Aqui ya estan todos los campos que necesito pasar a los dbedit, la tabla lotes tambien tiene un campo autoincrementado, pero no lo necesito visualizar en el dbgrid,