Import kassekladde igen igen

Hej

Så den gal igen.

Jeg prøver og lave en kørsel som skal importer en tekstfil til kassekladden.

Jeg kan have nogle linjer i denne tekst fil som er helt ens bortset fra beløbet. I de tilfælde ville jeg gerne have at beløbet bliver lagt sammen. De linjer som skal ligge sammen kommer lige efter hinanden.

Jeg ville gerne have den til at tjekke på om felt &Tjeklinje er magen til linjen før.

Nedenstående det jeg har lavet til nu.

Jeg håber det er forståeligt

På forhånd tak.


Lars


#MacroLoad(FILE)
STR  70 &FilNavn
INT    &Counter
INT    &InsErr

REAL    &nr
STR 255 &dato
STR 255 &slet1
STR 255 &bilagogtekst
STR 255 &Tekst
STR 255 &kt
STR 255 &Tjeklinje
STR 255 &slet2
STR 255 &total
STR 255 &slet3

SET &Filnavn = #GetFile( "Import til "+FilePName(FinKladde)+":","*.kom")

IF NOT &FilNavn OR NOT #FileExists(&FilNavn) THEN
    RETURN 0
ENDIF


WINDOW 40,5 AT 20,5
PRINT "Skriver...........:  FinKladde" AT 1,1
PRINT "Fra...............:  "+&FilNavn    AT 1,2

TTSBEGIN  FinKladde
INTRODUCE FinKladde
READ &FilNavn AS Comma INTO (
      &dato,
      &slet1,
      &bilagogtekst,
      &kt,
      &slet2,
      &total,
      &slet3,
  )
SET &dato = SysInfo(5031,&dato)
SET &slet1 = SysInfo(5031,&slet1)
SET &bilagogtekst = SysInfo(5031,&bilagogtekst)
SET &kt = SysInfo(5031,&kt)
SET &slet2 = SysInfo(5031,&slet2)
SET &total = SysInfo(5031,&total)
SET &slet3 = SysInfo(5031,&slet3)
  SET &Counter = &Counter + 1

  SET Navn = "faktura"
  SET &nr = &nr+1
  SET Linienr = &nr
  SET Dato = str2date(&dato,123)
  SET &Tekst = strdel(&bilagogtekst,1,7)
  SET Tekst = &tekst
  SET Bilag = Str2num(strkeep(&bilagogtekst,&tekst))
  SET Konto = &kt
  SET &Tjeklinje = &kt+&dato+&bilagogtekst
  SET BeløbVAL = Str2num(strrem(&total,"."))
  SET Moms = "salg"
  SET Valuta = "DKK"
  SET Valutakurs = 100

  SET LøbeNummer = 0

  INSERT FinKladde

  #ADD(&InsErr,(LøbeNummer == 0))
END
TTSCOMMIT FinKladde
IF &InsErr THEN
SET Box(2,StrFmt("@SYS64094",Int2Str(&InsErr)),0)
ENDIF

PAUSE