Devart Forums

Code: Select all

    Inv := TInventario.Create;
    Inv.NombreFisico := txtGuadarComo.Text;
    Inv.NombreLogico := txtNombreInv.Text;
    Inv.Fecha := dtpckFecha.DateTime;
    Inv.UltimoCodigo := txtUltimoCodigo.Text;
    Inv.UltimoTicket := StrToInt(txtTicket.Text);
    Inv.Attach(Context);
    Inv.Save;
    for i := 0 to chklstDepartamentos.Items.Count -1 do
     begin
      if chklstDepartamentos.Items.Items[i].Checked then
       begin
        InvDepto := TInvDepto.Create;
        InvDepto.IdInventario := Inv.IdInventario;
        InvDepto.Depto := chklstDepartamentos.Items.Items[i].Text;
        InvDepto.Attach(Context);
        InvDepto.Save;
       end;
     end;