OPDATERING AF LØNKLADDE
Hej Eksperten.dk.Det drejer sig om xal-programmering i Microsoft C5.
Sidder med hvad jeg tror der er et forholdsvis enkelt problem, men kan ikke få mit hoved omkring det.
Har lavet en xal-kørsel, som importerer eksterne date direkte ind i en lønkladde.
Det går også ganske godt; men de eksterne data indeholder foruden DATO, MEDARB., LØNART m.v. kun ANTAL. Dvs. der kommer ikke SATS og BELØB med ind.
Problemet består i at lønkladden ikke automatisk henter SATS og dermed BELØB.
Jeg har forsøgt med nogle UPDATE-kommandoer uden held.
Programmeringen hidtil er som følger:
"
{XAL:PayImp}
#MacroLoad(FILE)
STR 70 &FilNavn
INT &Counter
INT &InsErr
SET &Filnavn = #GetFile( "Import til "+FilePName(PayWorksh)+":","*.kom")
IF NOT &FilNavn OR NOT #FileExists(&FilNavn) THEN
RETURN 0
ENDIF
WINDOW 40,5 AT 20,5
PRINT "Skriver...........: PayWorksh" AT 1,1
PRINT "Fra...............: "+&FilNavn AT 1,2
PRINT "Record............: " AT 1,3
TTSBEGIN PayWorksh
INTRODUCE PayWorksh
READ &FilNavn AS Comma INTO (
Date_,
Workshtype,
Number,
Payctype,
Qty,
)
SET &Counter = &Counter + 1
IF &Counter MOD 1 == 0 THEN
PRINT Num2Str(&Counter,15,0,0,0) AT 20,3
ENDIF
SET WorkshName = "Import"
SET Workshtype = 0
SET L›beNummer = 0
INSERT PayWorksh
#ADD(&InsErr,(L›beNummer == 0))
END
TTSCOMMIT PayWorksh
PRINT Num2Str(&Counter,15,0,0,0) AT 20,3
IF &InsErr THEN
SET Box(2,StrFmt("@SYS64094",Int2Str(&InsErr)),0)
ENDIF
PAUSE
"
Håber der er hjælp at hente.
SkyAbove
