Script calculare preț |
|
Aici se pot defini metode complexe de calcul al prețului sau verificări dimensionale bazate pe dimensiunile termopanului, greutate sau formă.
Scriptul se poate scrie folosind instrucțiuni ale limbajului de programare Pascal.
În figura de mai jos este un exemplu de script care dublează prețul termopanului dacă lățimea sau înălțimea termopanului depășește 2000mm.
Cod - codul scriptului. Acest cod poate fi ales în lista de termopane ca și script de calcul al prețului sau ca și script de avertizare.
Denumire - denumirea script-ului;
Script - memo-ul care conține lista de instrucțiuni, script-ul de calcul.
Variabile de intrare folosite în script:
Price - preţul din tabel al termopanului care apelează scriptul.
PriceOfMaterials - preţul termopanului format din materialele definite în Straturi. Preţul include şi manoperele apelate de materialele din straturi.
Width - lățimea în milimetri.
Height - înălțimea în milimetri.
Shape - va fi 0 dacă este formă dreptunghiulară.
Weight - greutatea în Kg.
CanSpin - valoarea din câmpul SePoateRoti din tabelul de termopane.
GlazingCode - codul termopanului.
GlazingName - denumirea termopanului.
Variabile de ieșire folosite în script:
FinalPrice - dacă scriptul este folosit la calcularea prețului, la final va conține prețul termopanului.
WarningMsg - se va completa cu un mesaj de avertizare, altfel trebuie să rămână vid.
ErrorMsg - se va completa cu un mesaj de eroare, altfel trebuie să rămână vid.
Dacă se doreste includerea în traducerea bazei de date a unor texte acestea se vor declara ca și variabile care încep cu TrsText_. Aceste variabile vor fi inițializate la declarare în felul urmator:
TrsText_SuprafataPreaMare: String = 'Suprafata termopanului a depasit %s mp';
Şi se va folosi, de exemplu, în felul urmator (variabila SuprafataMP va trebui declarată si calculată în script):
ErrorMsg := Format(TrsText_SuprafataPreaMare, [FloatToStr(SuprafataMP)]).