8. Februar 2018 15:53
IF TempExcelBuffer.GET(RecNo,1) THEN BEGIN
CASE SheetName OF
'05':
IF llocation.GET('05') THEN BEGIN
lneuerlagerplatz.INIT;
lneuerlagerplatz.Code := TempExcelBuffer."Cell Value as Text";
lneuerlagerplatz.Description := TempExcelBuffer."Cell Value as Text";
IF lneuerlagerplatz.INSERT THEN;
END;
END;
END;
8. Februar 2018 16:47
IF TempExcelBuffer.GET(RecNo,1) THEN BEGIN
CASE SheetName OF
'05':
IF llocation.GET('05') THEN BEGIN
lneuerlagerplatz.INIT;
lneuerlagerplatz.Code := TempExcelBuffer."Cell Value as Text";
lneuerlagerplatz."Location Code" := llocation.Code;
TempExcelBuffer.GET(RecNo,2);
lneuerlagerplatz.Description := TempExcelBuffer."Cell Value as Text";
IF lneuerlagerplatz.INSERT THEN;
END;
END;