OPEN "TOTALI" TO TOTALI ELSE ABORT
    mm="Import file xml/7pm"
    MM<-1>="Import file xls (aruba)"
    MM<-1>="Import file csv (AdE)"
    MM<-1>="Registrazione Acquisti"
    MM<-1>="Registrazione Vendite"
    CALL MENUMENU (MM, IN$, CF)
    IF CF>0 THEN IN$="0"
    IF IN$="0" THEN
        IF IVACQ<1> <> "" THEN
            DELETE TOTALI,"FE_ACQ":PDL
            CHAIN IVACQ<1>
        END ELSE
            STOP
        END
    END
   BEGIN CASE
    CASE IN$=1
        CHAIN "RUN COGE FE_PRELEVA"
    CASE IN$=2
        CHAIN "RUN COGE FE_PRELEVA2"
    CASE IN$=3
        CHAIN "RUN COGE FE_PRELEVA3"
    CASE IN$=4
        FATACQ="FATACQ"
        FATACQ<99>="RUN COGE FE_ACQ"
        WRITE FATACQ ON TOTALI,"CAUSALE":PDL
        CHAIN "RUN EURO2000 FATTACC"
    CASE IN$=5
        FATACQ="FATVEN"
        FATACQ<99>="RUN COGE FE_ACQ"
        WRITE FATACQ ON TOTALI,"CAUSALE":PDL
        CHAIN "RUN EURO2000 FATTACC"
    END CASE
    STOP