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