Slet firma

Hej

Prøv at oprette en XAL kørsel med nedenstående kode, DMO skal erstattes af det regnskab du ønsker at slette. HUSK at prøve den af i en test version af C5 først
så du er sikker på den virker som den skal.

#macroload(sql)

INT &i
STR 30 &table

IF BOX(3,'Denne kørsel sletter regnskab DMO, fortsæt ?',2)==1 THEN
    #Loop(&i,1,1000)
        set &table = fileid2name(&i)
        if &table then
            if #DB_File(&Table,File) == 0 then
                print &table
                SET SQLExecute('DELETE FROM '+#SQLTableName2(&table)+' WHERE DATASET = \'DMO\'')
            endif
        endif
    end

    SET SQLExecute('DELETE FROM XALUTIL WHERE TYPE = 0 AND DATASET = "DMO"')
    pause
ELSE
    RETURN 0
ENDIF

Eller en XAL kørsel:

#MacroLoad(SQL)
SET #SQLDeleteDataSet('DMO')

Du skal stå i det regnskab du vil slette - ellers virker det ikke.

Jeg kan ikke huske om kommandoen bare "tømmer" regnskabet. Ellers skal du også fjerne de relevante poster i XALUTIL og XALSEQ

-Broholm

Pas på ikke at slette regnskabet "DAT". Der er visse tabeller som kun ligger i dette regnskab, som f.eks. postnummerkartoteket m.m., men som bruges af alle regnskaber!