Xal eksempel søges.

REAL &LinieNr
INTRODUCE FinKladde[NavnIdx,"Kladdenavn"]

SET &LinieNr = FinKladde[Navn<>"KladdeNavn"].LinieNr

TTSBEGIN FinKladde
READ "Filnavn.CSV" AS COMMA INTO
    (Konto,
    Tekst,
    BeløbVAL,
    Valuta,
    Moms,
    [etc]
    )

    #ADD(&LinieNr,1)
    SET FinKladde.LinieNr = &LinieNr
    INSERT FinKladde
END
TTSCOMMIT FinKladde

Ifølge online-manualen :

Udfør

Aktivering af menupunktet afvikler den specificerede manipulation. Dette kræver, at der ikke er fejl i Udtryk o.l.

Under afviklingen vil der blive promptet for, om kørslen skal gemmes som en kørsel. Svares 'Ja', promptes for filnavn og den tilhørende XAL-kode genereres dernæst automatisk. Kørslen kan efterfølgende aktiveres, gennemses eller rettes i kolonnen: XAL eller QTX i udviklingsmenuen.

Mit spørgsmål:

jeg vil gerne gemme datamanipulationen som xal-kode, men når jeg 'udfører' kommer den ikke og spørger om at gemme kørslen?

Hvis du ikke har koder til udvikling, kan du ikke gemme kørslen, og den er derfor irrelevant!!

Kan du give mig 'oversættelsen' for denne manipulation?


"Kartotek","FinKladde",,
"Filtype ","Comma",,
"Window  ","Nej",,
"Counter ",0,,
"ANSI    ",0,,
0,"Navn",0,"""Daglig"""
2,"&dato",1,""
0,"Konto",1,""
0,"Tekst",1,""
1,"&Bel",1,""
1,"&Moms",1,""
0,"Bel›bVAL",0,"&Bel+&Moms"
0,"Linienr",0,"Linienr+1"
0,"Dato",0,"str2date(&dato,123)"
0,"Valutakurs",0,"100"
0,"Bilag",0,"1"

Hvis man indlæser denne defintion i Datamanipulationen og gemmer den som en XAL kørsel, får du:

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

STR 255 &dato
REAL    &Bel
REAL    &Moms

SET &Filnavn = #GetFile( "Import til "+FilePName(FinKladde)+":")

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


TTSBEGIN  FinKladde
INTRODUCE FinKladde
READ &FilNavn AS Comma INTO (
      &dato,
      Konto,
      Tekst,
      &Bel,
      &Moms,
  )
  SET &Counter = &Counter + 1

  SET Navn = "Daglig"
  SET BeløbVAL = &Bel+&Moms
  SET Linienr = Linienr+1
  SET Dato = str2date(&dato,123)
  SET Valutakurs = 100
  SET Bilag = 1

  SET LøbeNummer = 0

  INSERT FinKladde

  #ADD(&InsErr,(LøbeNummer == 0))
END
TTSCOMMIT FinKladde
IF &InsErr THEN
    SET BOX(2,"Der er læst "+Num2Str(&InsErr,0,0,0,0)+" poster, der IKKE kunne\n"+
              "indsættes (p.g.a entydigt index)",0)
ENDIF

PAUSE