Well lastly i have a problem testing deferent components this time i made a test with tsqlite3datase, first time run without problem because table is empty but when run with
not empty table delete datas send me error field not found, i don't know if is possible run sql on it. just after append send me error not found.
if( DParts.Active = true) then begin
if( not DParts.EOF) then begin
DParts.SQL:='delete from parts;';
DParts.ExecSQL;
DParts.ApplyUpdates;
DParts.Refresh;
// DParts.close;
end;
end;
DParts.open;
if( (SQLQPLL.Active = true) and (DParts.Active=true)) then begin
SQLQPLL.First;
while(not SQLQPLL.EOF) do begin
DParts.Append;
DParts.FieldByName('PartNumber').AsString:= SQLQPLL.FieldByName('plpnpartnumber').AsString;
DParts.FieldByName('ParentPart').AsString:= SQLQPLL.FieldByName('plpnParentPart').AsString;
DParts.FieldByName('Supplier').AsString:= SQLQSU.FieldByName('susupplier').AsString;
DParts.FieldByName('qty').AsInteger:= SQLQPLL.FieldByName('plqty').AsInteger;
DParts.FieldByName('item').AsInteger:=SQLQPLL.FieldByName('PLItem').AsInteger;
DParts.FieldByName('Item').AsInteger:= SQLQPLL.FieldByName('PLItem').AsInteger;
DParts.FieldByName('PLMfrpnid').AsInteger:= SQLQPLL.FieldByName('PLMfrpnId').AsInteger;
DParts.FieldByName('PLMfrid').AsInteger:= SQLQPLL.FieldByName('PLMfrId').AsInteger;
DParts.FieldByName('Title').AsString := SQLQPLL.FieldByName('PnTitle').AsString;
DParts.FieldByName('Detail').AsString:= SQLQPLL.FieldByName('PnDetail').AsString;
DParts.FieldByName('Type').AsString:= SQLQPLL.FieldByName('PnType').AsString;
DParts.FieldByName('Stock').AsInteger:= SQLQPLL.FieldByName('PnQty').AsInteger;
DParts.FieldByName('lnkvendorPN').AsString:= SQLQLNK.FieldByName('LnkVendorPn').AsString;
DParts.FieldByName('lnkvendorDesc').AsString:= SQLQLnk.FieldByName('LnkVendorDesc').AsString;
DParts.FieldByName('units').AsString:= SQLQPLL.FieldByName('unuseunits').AsString;
DParts.post;
DParts.ApplyUpdates;
SQLQPLL.Next;
end;