Por favor si pudieran ayudarme, tengo un problema, estoy desarrollando un sistema en el cual deseo que los el usuario capture los datos de un articulo determinado y al grabar los datos que no se salga del form, si no que pueda elegir otro articulo para su captura. Gracias
este es mi codigo
Código Delphi
[-]
procedure TForm7.BitBtn1Click(Sender: TObject);
var
Exant,Entra,Salida,Dev,Existe,temp1,temp2,temp3:Real;
dd,mm,aaaa:Word;
ffecha,fpedido,fproveedor : string;
buttonSelected : Integer;
begin
DecodeDate(DateTimePicker1.Date,aaaa,mm,dd);
Query1.Active;
Query1.Insert;
Query1.FieldByName('Fec_ent').AsDateTime := DateTimePicker1.Date;
Query1.FieldByName('Pedido').AsString := Edit4.Text;
Query1.FieldByName('Proveedor').AsString := Edit5.Text;
Query1.FieldByName('Cveart').AsString := Edit6.Text;
Query1.FieldByName('Descripc').AsString := ComboBox1.Text;
Query1.FieldByName('Marca').AsString := Edit8.Text;
Query1.FieldByName('Presen').AsString := Edit9.Text;
Query1.FieldByName('Precuni').AsString := Edit2.Text;
Query1.FieldByName('Cantreq').AsString := Edit1.Text;
Query1.FieldByName('Importe').AsString := Edit3.Text;
Query1.Post;
Query3.Active;
Query3.Locate('Clave',Edit6.Text,[]);
Query3.Edit;
Exant := Query3['Existencia'];
Entra := StrToFloat(Query3['Entradas']) + StrToFloat(Edit1.Text);
Existe:= StrToFloat(Query3['Existencia']) + StrToFloat(Edit1.Text);
Query3.FieldByName('Exanterior').AsString := FloatToStr(Exant);
Query3.FieldByName('Entradas').AsString := FloatToStr(Entra);
Query3.FieldByName('Existencia').AsString := FloatToStr(Existe);
Query3.Post;
Query2.Active := True;
Query2.Insert;
Query2.FieldByName('Fecha').AsDateTime := DateTimePicker1.Date;
Query2.FieldByName('Clave').AsString := Edit6.Text;
Query2.FieldByName('Producto').AsString := ComboBox1.Text;
Query2.FieldByName('Unidad').AsString := Edit9.Text;
Query2.FieldByName('Precio').AsString := Edit2.Text;
Query2.FieldByName('Tipo_mov').AsString := 'EA';
Query2.FieldByName('Entrada').AsString := Edit1.Text;
Query2.FieldByName('Salida').Value := 0;
Query2.FieldByName('Existencia').AsString := FloatToStr(Existe);
Query2.FieldByName('Importe').AsString := Edit3.Text;
Query2.FieldByName('Concepto').AsString := 'ENTRADA DE ALMACEN';
Query2.Post;
Query2.Close;
Query1.Refresh;
buttonSelected := MessageDlg('Desea Continuar con la Misma Factura',mtCustom,[mbOK,mbCancel], 0);
if buttonSelected = mrOK then
begin
temp1:=0;
Edit6.Text := ' ';
Edit8.Text := ' ';
Edit9.Text := ' ';
Edit1.Text:=FormatFloat('##0.000',temp1);
Edit2.Text := ' ';
Form7.ComboBox1.SetFocus;
end;
if buttonSelected = mrCancel then
begin
ShowMessage('Factura Terminada');
Query3.Close;
Query2.Close;
Query1.Close;
Form7.Close;
end;
end;