Citect SCADA-Cicode

* This Cicode can be used in alternate to the earlier Post.

INT

FUNCTION DBFWriteDevice(INT Inputvalue1,INT Inputvalue2,INT Inputvalue3)

INT hDBFDevice;

ErrSet(1);                 

hDBFDevice = DevOpen("DBFDevice", 0);       // Device open

 IF hDBFDevice = -1 THEN                   

     DspError("DBFDevice Device Error !!"); //  Prompt Error!!

     RETURN FALSE;

 ELSE  

     DevAppend(hDBFDevice);

     DevSetField(hDBFDevice,"Spalte1", IntToStr(Inputvalue1));  // write input value1

     DevSetField(hDBFDevice,"Spalte2", IntToStr(Inputvalue2));  // write input value2

     DevSetField(hDBFDevice,"Spalte3", IntToStr(Inputvalue3));  // write input value3

     RETURN TRUE;  

 END

DevClose(hDBFDevice);               // Device Close

END