Esegue un programma di scripting
Sintassi
S_UNIVAL * scriptExecute(S_SCRIPT * psScript,CHAR * pszTextScript);
Parametri
- psScript
Oggetto script crate con scriptCreate
- pszTextScript
Testo del programma di script in ASCII
Valori di ritorno
Ritorna il valore del programma con RETURN (valore)
IN caso di errore NULL
Commenti
Se psScript->enError è diverso da 0 si sono verificari errori.
Esempio di un programma di scripting
VAR PUNTIFAT,TOTFAT;
IF (_CAUSALE!=5&&_CAUSALE!=6&&_CAUSALE!=10&&_CAUSALE!=12) RETURN 0;
IF (_GRUPPOFIGURA<>439.00) RETURN 0; // Clienti - Fascia 1 ###
TOTFAT=_FATTURATO*_CATEGORIA.PERC/100; // Eventuale Diminuzione in base alla categoria
IF (_CATEGORIA==137) PUNTIFAT=5.02;
IF (_CATEGORIA==138) PUNTIFAT=5.02;
IF (_CATEGORIA==139) PUNTIFAT=5.02;
PRINT("PUNTIFAT:",PUNTIFAT);
IF (PUNTIFAT==0) RETURN 0;
_PUNTICALC=(TOTFAT/PUNTIFAT)+.5;
_PUNTIOK=_PUNTICALC;
RETURN 1;