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