1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27
| with data.Livraison do begin
Active := False;
TableType := data.Livraison.TableType;
TableName:='Livraison';
FieldDefs.Clear;
FieldDefs.Add('Code', ftfloat, 0, False);
FieldDefs.Add('Type', ftString, 10, False);
FieldDefs.Add('Code_Cli', ftFloat, 0, False);
FieldDefs.Add('N_Ligne', ftAutoInc,0, False);
FieldDefs.Add('Ref_Art', ftString, 15 , False);
FieldDefs.Add('Date',ftdate,0, False);
FieldDefs.Add('Immatriculation',ftString,15, False);
FieldDefs.Add('N_Chassis',ftString,15, False);
FieldDefs.Add('Etat_M',ftMemo,200, False);
FieldDefs.Add('Etat_E',ftMemo,200, False);
FieldDefs.Add('Etat_C',ftMemo,200, False);
FieldDefs.Add('Liv_Cric',ftBoolean,0, False);
FieldDefs.Add('Liv_Dem_Roue',ftBoolean,0, False);
FieldDefs.Add('Liv_Allcig',ftBoolean,0, False);
FieldDefs.Add('Liv_RoueSec',ftBoolean,0, False);
FieldDefs.Add('Liv_Carte_Circ',ftBoolean,0, False);
FieldDefs.Add('Liv_MU',ftBoolean,0, False);
FieldDefs.Add('Liv_Carnet_g',ftBoolean,0, False);
FieldDefs.Add('Obs', ftMemo, 200, False);
IndexDefs.Clear;
IndexDefs.Add('','code;type;ref_art;n_ligne', [ixPrimary]);
CreateTable; |
Partager