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
| ClientDataSetBasics->Close();
ClientDataSetBasics->FieldDefs->Clear();
ClientDataSetBasics->FieldDefs->Add("NUMERO_DOCUMENTATION", ftSmallint, 0);
ClientDataSetBasics->FieldDefs->Add("CATEGORIE", ftSmallint, 0);
ClientDataSetBasics->FieldDefs->Add("LIBELLE_APPLICATION", ftString, 30);
ClientDataSetBasics->FieldDefs->Add("NIVEAU_DOCUMENTATION", ftSmallint, 0);
ClientDataSetBasics->FieldDefs->Add("DESCRIPTIF_DOCUMENTATION", ftString, 50);
ClientDataSetBasics->FieldDefs->Add("NOM_DOCUMENTATION", ftString, 60);
ClientDataSetBasics->FieldDefs->Add("EXT_DOCUMENTATION", ftString, 5);
ClientDataSetBasics->FieldDefs->Add("REPERTOIRE_APPLICATION", ftString, 80);
ClientDataSetBasics->FieldDefs->Add("NOM_PROGRAMME", ftString, 30);
ClientDataSetBasics->FieldDefs->Add("NUMERO_VERSION", ftString, 10);
ClientDataSetBasics->CreateDataSet();
ClientDataSetBasics->AppendRecord(ARRAYOFCONST((1, 1, "STOCK PLAQUES", "1", "Fonctionnement du module plaque", "ST_PLAQ", "PDF", "ST_PLAQ", "", "5.1")));
ClientDataSetBasics->AppendRecord(ARRAYOFCONST((2, 1, "STOCK PLAQUES", "2", "Correction des stocks de plaques", "COR_PLAQ", "PDF", "ST_PLAQ", "COR_PLAQ", "5.1")));
ClientDataSetBasics->AppendRecord(ARRAYOFCONST((3, 1, "STOCK PLAQUES", "2", "Gestion des besoins en plaques", "OFPLAQ", "PDF", "ST_PLAQ", "OFPLAQ", "5.1")));
ClientDataSetBasics->AppendRecord(ARRAYOFCONST((4, 1, "STOCK PLAQUES", "2", "Commandes de plaques", "COMMANDE_PLAQUE", "PDF", "ST_PLAQ", "COMMANDE_PLAQUE", "5.1")));
ClientDataSetBasics->AppendRecord(ARRAYOFCONST((5, 1, "STOCK PLAQUES", "2", "Configuration du stock plaques", "P_PLAQUE", "PDF", "ST_PLAQ", "P_PLAQUE", "5.1")));
ClientDataSetBasics->AppendRecord(ARRAYOFCONST((66, 6, "ADMINISTRATION", "2", "Paramétrage global", "PARAMINI", "PDF", "ADMINIST", "PARAMINI", "5.1")));
ClientDataSetBasics->AppendRecord(ARRAYOFCONST((94, 1, "STOCK PAPIERS", "2", "Commandes d'impressions papiers", "COMMANDE_IMP_BOB", "PDF", "ST_PAPIER", "COMMANDE_IMP_BOB", "5.1")));
ClientDataSetBasics->AppendRecord(ARRAYOFCONST((6, 1, "STOCK PLAQUES", "2", "Inventaire du stock de plaques", "INVENTAIRE_PLAQUE", "PDF", "ST_PLAQ", "INVENTAIRE_PLAQUE", "5.1")));
ClientDataSetBasics->AppendRecord(ARRAYOFCONST((22, 2, "FACTURE", "2", "Facturation des clients", "FACTURES", "PDF", "FACTURE", "FACTURES", "5.1")));
ClientDataSetBasics->SaveToFile(toto, dfXMLUTF8);
ClientDataSetBasics->Close(); |
Partager