Script calculare Pret

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 si 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ă scripul.

PriceOfMaterials - preţul termopanului format din materialele definite în Straturi. Preţul include şi manoperele apelate de materialele din straturi.

Width - lățimea în milimetrii.

Height - înălțimea în milimetrii.

Shape - va fi 0 dacă este formă dreptunghiulară.

Wieght - greutatea în Kg.

CanSpin - valoarea din câmpul SePoateRoti din tabelul de termopane.

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 avetizare, altfel trebuie sa rămână vid.

ErrorMsg - se va completa cu un mesaj de eroare, altfel trebuie sa rămână vid.

Daca se doreste includerea în traducerea bazei de date a unor texte acestea se vor declara ca si variabile care incep cu TrsText_. Aceste variabile vof fi initializate la declarare in felul urmator:

 TrsText_SuprafataPreaMare: String = 'Suprafata termopanului a depasit %s mp';

Şi se va folosi de exemplu in felul urmator (variabila SuprafataMP va trebui declarată si calculată in script):

 ErrorMsg := Format(TrsText_SuprafataPreaMare, [FloatToStr(SuprafataMP)]);