18. Oktober 2012 16:27
18. Oktober 2012 16:38
19. Oktober 2012 08:45
<Action1000001584> - OnAction()
ReadExcelSheet(TextV001);
ReadExcelSheet(SheetName : Text[100])
UploadedFileName := '';
IF ISSERVICETIER THEN
IF UploadedFileName = '' THEN
UploadFile
ELSE
FileName := UploadedFileName;
ExcelBuffer.RESET;
ExcelBuffer.DELETEALL;
ExcelBuffer.OpenBook(FileName,SheetName);
ExcelBuffer.ReadSheet;
CopyExcelBufferToRec;
UploadFile()
UploadedFileName := CommonDialogMgt.OpenFile(TextV002,'',2,'',0);
FileName := UploadedFileName;
CopyExcelBufferToRec()
xlCounter := 0;
NoCountry := TRUE;
CountryCode := 'DE';
ExcelBuffer.RESET;
ExcelBuffer.SETRANGE("Row No.", 1);
ExcelBuffer.DELETEALL;
ExcelBuffer.RESET;
IF ExcelBuffer.FINDFIRST THEN
REPEAT
xlCounter += 1;
CASE ExcelBuffer.xlColID OF
'D':
BEGIN
INIT;
"No." := DELCHR(ExcelBuffer."Cell Value as Text", '=');
END;
'H':
"Long Description" :=
COPYSTR(ExcelBuffer."Cell Value as Text",1, MAXSTRLEN("Long Description"));
'I':
VALIDATE(Name, COPYSTR(ExcelBuffer."Cell Value as Text",1, MAXSTRLEN(Name)));
'N':
BEGIN
IF (STRPOS(ExcelBuffer."Cell Value as Text",'BS') <> 0) THEN
"Income/Balance" := "Income/Balance"::"Balance Sheet"
ELSE
IF (STRPOS(ExcelBuffer."Cell Value as Text",'P/L') <> 0) THEN
"Income/Balance" := "Income/Balance"::"Income Statement";
END;
'AB':
IF NOT NoCountry THEN
IF (STRPOS(ExcelBuffer."Cell Value as Text", CountryCode) <> 0) AND ("No." <> '') THEN
IF NOT INSERT(TRUE) THEN
MODIFY(TRUE);
'AC':
IF (STRPOS(ExcelBuffer."Cell Value as Text", 'NAV Core') <> 0) AND ("No." <> '') THEN
IF NOT INSERT(TRUE) THEN
MODIFY(TRUE);
END;
UNTIL ExcelBuffer.NEXT = 0;
ExcelBuffer.RESET;
ExcelBuffer.DELETEALL;
19. Oktober 2012 09:53
IF NOT INSERT(TRUE) THEN
MODIFY(TRUE);
19. Oktober 2012 10:01
19. Oktober 2012 10:16
JanGD hat geschrieben:(unten in den Kommentaren steht etwas, dass es dort gehen würde)
19. Oktober 2012 11:48
19. Oktober 2012 12:24
JanGD hat geschrieben:Durch das Insert/Modify(TRUE) werden bei der Tabelle immer die Felder für letzte aktualisierung gesetzt.
JanGD hat geschrieben:Das löst aber leider noch nicht mein Problem
19. Oktober 2012 12:46
Natalie hat geschrieben:JanGD hat geschrieben:Das löst aber leider noch nicht mein Problem
Wie angenommen. Bin leider aus Zeitgründen raus
22. Oktober 2012 14:54