Un script pour chaque classe de cotation. Lorsque je veux faire des cotations de parcelle, je double-clique sur le dernier script (capture ci-dessous). Les cotations sont placées dans la classe "Cotations de parcelle", avec les caractéristiques graphiques spécifiques à cette classe.
Bien sûr avant chaque opération de cotation, il faut vérifier quelle classe est paramétrée dans les préférences document.
Code pour le script "cotations parcelle" :
Procedure SwapDimsAutoClass;
{©2023 Pat Stanford - pat@coviana.com}
{licensed under the Boost Software License 1.0}
{https://github.com/boostorg/boost/blob/master/LICENSE_1_0.txt}
{TL/DR Use as you want, attribution for source, No warranty}
{With great thanks the Raymond Mullin (@MullinRJ) for help in}
{identifying the proper Preference code.}
CONST C1='Cotations de parcelle';
VAR H1 :Handle;
L1,L2,L3 :LongInt;
N1 :Integer;
R1 :Real;
S1 :String;
BEGIN
S1:=Index2Name(GetPrefLongInt(546));
BEGIN
SetPrefLongInt(546,Name2Index(C1));
End
End;
Run(SwapDimsAutoClass);