#include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include "Json.au3" #include #include "ProcessEx.au3" #include #include $RepairProjectdbDir = @ScriptDir & "\Repair_Projects\db" uploadProject() Func uploadProject() Local $imeirow $projectFile = FileOpenDialog("Select A Project", @WindowsDir & "\", "Repair Project (*.csv)") $lastline = FileReadLine($projectFile,-1) $ilineArray = StringSplit($lastline,",") $project = $ilineArray[6] $ProjectDb = $RepairProjectdbDir & "\" & $project & ".db" $query = "CREATE TABLE RPRF (imei,model,technician,qc,itb,project,id,startdate,lastdate,repairissues,repairstatus,repaircount,repairhistory,testinghistory,invoice);" createnewDB($ProjectDb,$query) _SQLite_Startup() $dbn=_SQLite_Open($ProjectDb) For $i = 2 to _FileCountLines($projectFile) $iline = FileReadLine($projectFile,$i) If StringInStr($iline,",") Then $ilineArray = StringSplit($iline,",") $imei = $ilineArray[1] $Model = $ilineArray[2] $technician = $ilineArray[3] $qc = $ilineArray[4] $itb = $ilineArray[5] $project = $ilineArray[6] $id = $ilineArray[7] $repair_issues = "" $repair_status = "" $repair_count = 0 $repair_history = "" $testing_history = "" $invoice = "" $start_date = _NowDate() $last_date = _NowDate() _SQLite_QuerySingleRow($dbn,"SELECT imei FROM RPRF WHERE imei='" & $imei & "'",$imeirow) If $imeirow[0] <> "" Then GUICtrlSetData($StatusLabel,"Updating " & $imei) _SQLite_Exec($dbn,"UPDATE RPRF SET model='"&$Model&"',technician='"&$technician&"',qc='"&$qc&"',itb='"&$itb&"',project='"&$project&"',id='"&$id&"' WHERE imei='"&$imei&"'") Else GUICtrlSetData($StatusLabel,"Adding " & $imei) _SQLite_Exec($dbn,"INSERT INTO RPRF (imei,model,technician,qc,itb,project,id,startdate,lastdate,repairissues,repairstatus,repaircount,repairhistory,testinghistory,invoice) VALUES ('"&$imei&"','"&$model&"','"&$technician&"','"&$qc&"','"&$itb&"','"&$project&"','"&$id&"','"&$start_date&"','"&$last_date&"','"&$repair_issues&"','"&$repair_status&"','"&$repair_count&"','"&$repair_history&"','"&$testing_history&"','"&$invoice&"');") EndIf EndIf Next _SQLite_Close($dbn) _SQLite_Shutdown() GUICtrlSetData($StatusLabel,"Project created.") EndFunc Func createnewDB($db,$query) If not FileExists($db) Then _SQLite_Startup() $dbn=_SQLite_Open($db) if _SQLite_Exec($dbn,$query) = $SQLITE_OK Then MsgBox(0,"",$db) Else MsgBox(0,"",@error) EndIf sleep(200) _SQLite_Close($dbn) _SQLite_Shutdown() EndIf EndFunc