Afvikle fil fra C5

Forudsætter du ved hvordan man opretter en XAL-kørsel.
Gør det med følgende kode:

#MACROLOAD(C_UTIL)
PROCESS #PROC_OS 'MODE=CLEAR COMMAND="copy xxx.txt LPT1"'

Jeg skriver
PROCESS #PROC_OS 'MODE=CLEAR COMMAND="c:\\copy xxx.txt LPT1"'
men der sker ikke noget, C5 blinker lige men der kommer ikke noget frem på printeren som er tilkoblet LPT1.

{XAL:Labeludskrift}
{Danner udskrift til labelprinter på LPT port}

#MacroLoad(Tmp_File)

STR 1 &LF  = Num2Char(10)
STR 20      &Port =
INT        &Antal = 1
STR 20      &Varenr
STR 1 &st  = Num2Char(2)
STR 1 &ly  = Num2Char(1)

SET &Antal = 1


SET &OutFldDel = &Lf
SET &OutRecDel = "\r\n"

SET &Port = "LPT5"
        INTRODUCE LagerKart[VareIdx,&VareNr]
        IF LagerKart.RecId AND &Antal THEN
            WRITE &Port AS TEXT FROM (Num2Char(10))
            WRITE &Port AS TEXT FROM (&st+&pi+"G0")
            WRITE &Port AS TEXT FROM ("1911A1205190003"+" Dette er en pr›ve fra XAL")

        ENDIF
CLOSE &port


Dette virker - der skal selvfølgelig laves nogle flere "write" afhængig af printeren, men logikken er på plads.

Du kan teste ved at sætte &Port = "C:\\tesfil.kom". Så kan du åbne filen og se den.

takker jeg kan få det til at fungere nu.