28. November 2007 22:04
SQLConnString := 'Provider=SQLOLEDB;' +
'Data Source=' + MfgSetup."SQL Server IP" + ';' +
'Initial Catalog=' + MfgSetup."SQL Database Name" + ';' +
'User ID=' + MfgSetup."SQL User Name" + ';' +
'Password=' + MfgSetup."SQL User Password" + ';';
SQL.ConnectionString := SQLConnString;
SQL.ConnectionTimeout := 2;
SQL.CommandTimeout := 2;
SQL.Open;
SQLFields := STRSUBSTNO('insert into [' + MfgSetup."SQL Import Table" + ']' +
'(Status,'+
'Auftragsnummer,'+
'Planstueckzahl,'+
'Prozesskennzeichen,'+
'Plansteuckzahl,' +
'Abrufindex,'+
'Liefertermin,'+
'Produktionszeit,'+
'Ruestzeit,'+
'ArbeitsPlanRefNr,' +
'ArbeitsplanPlanNr,'+
'Arbeitsgangnummer,'+
'ID)');
SQLFieldValues := STRSUBSTNO(' Values(%1','%2','%3','%4','%5','%6','%7','%8','%9',
'%10','%11','%12','%13)',
'2,' +
FORMAT(ProdOrderRtngLine."Prod. Order No.") + ',' +
FORMAT(ProdOrderRtngLine."Input Quantity") + ',' +
FORMAT(CanDoRouting) + ',' +
FORMAT(ProdOrderRtngLine."Input Quantity") + ',' +
'0,' +
FORMAT(ProdOrderRtngLine."Ending Date") + ',' +
FORMAT(ProdOrderRtngLine."Run Time") + ',' +
FORMAT(ProdOrderRtngLine."Setup Time") + ',' +
FORMAT(ProdOrderRtngLine."Routing Reference No.") + ',' +
'2,' + //ProdOrderRtngLine."Routing No." + ',' +
ProdOrderRtngLine."Operation No." + ',' +
NextNo);
SQLExportString := SQLFields + SQLFieldValues;
SQL.Execute(SQLExportString);
28. November 2007 22:28
29. November 2007 09:05
29. November 2007 09:54
29. November 2007 10:28
29. November 2007 10:40
29. November 2007 14:52