campo-sirio/ve/ve3800.uml

#include "ve3800.h"

TOOLBAR "topbar" 0 0 0 2
#include <printbar.h>
ENDPAGE

PAGE "Statistiche di vendita" -1 -1 0 0

GROUPBOX -1 78 5
BEGIN
  PROMPT 1 1 "@bParametri documenti di vendita"
END

STRING F_CODNUM 4
BEGIN
  PROMPT 2 2 "Numerazione "
  USE %NUM
  INPUT CODTAB F_CODNUM
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODNUM CODTAB
  OUTPUT F_DESNUM S0
  CHECKTYPE FORCED
  FLAGS "UPA"
  FIELD #CODNUM
END

STRING F_DESNUM 50
BEGIN
  PROMPT 22 2 ""
  USE %NUM KEY 2
  INPUT S0 F_DESNUM
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_CODNUM
END

NUMBER F_ANNO 4
BEGIN
  PROMPT 2 3 "Anno        "
  USE ESC
  INPUT CODTAB F_ANNO
  DISPLAY "Codice Esercizio" CODTAB
  DISPLAY "Data inizio esercizio" D0
  DISPLAY "Data fine esercizio  " D1
  CHECKTYPE REQUIRED
  OUTPUT F_ANNO CODTAB
  OUTPUT F_DADATA D0
  OUTPUT F_ADATA D1
  NUM_EXPR #F_ANNO>0
  FLAG "AP"
  FIELD #ANNO
END

DATE F_DADATA
BEGIN
  PROMPT 2 4 "Da data     "
END

DATE F_ADATA
BEGIN
  PROMPT 30 4 "A data "
END

GROUPBOX -1 78 5
BEGIN
  PROMPT 1 6 "@bParametri da utilizzare per la generazione statistiche"
END

LIST F_TIPORIGA 16
BEGIN
  PROMPT 2 7 "Tipo riga       "
  ITEMS "M|<M>erce"
  ITEMS "S|<S>pese"
  ITEMS "P|<P>restazioni"
  ITEMS "R|<R>isorse"
  ITEMS "A|<A>ttrezzature"
  ITEMS "C|S<C>onti"
  ITEMS "O|<O>maggi"
  ITEMS "D|<D>escrizioni"
  ITEMS "T|Re<T>tifiche" 
END

LIST F_TIPOSTAT 21
BEGIN
  PROMPT 2 8 "Tipo statistica "
  ITEM "A|Articoli" MESSAGE HIDE,2@|HIDE,3@|SHOW,1@		//group1=articoli,2=grmerc,3=clienti
  ITEM "G|Gruppi merceologici" MESSAGE HIDE,1@|HIDE,3@|SHOW,2@
  ITEM "C|Clienti" MESSAGE HIDE,1@|HIDE,2@|SHOW,3@
END

LIST F_DETTAGLIO 20
BEGIN
  PROMPT 43 8 "Dettagli "
  ITEM "|Non dettagliato"
  ITEM "A|Articolo - Cliente"
  ITEM "M|Gr.Merc. - Cliente"
  ITEM "C|Cliente - Articolo"
  ITEM "G|Cliente - Gr.Merc."
  GROUP 3
END

LIST F_TIPODATA 10
BEGIN
  PROMPT 2 9 "Dati            "
  ITEM "P|Prezzi"
  ITEM "Q|Quantit<69>"
  FIELD #TIPODATA
END

GROUPBOX -1 78 4
BEGIN
  PROMPT 1 11 "@bIntervallo di selezione"
END

//group 1: articoli

STRING F_DACODART 20
BEGIN
  PROMPT 2 12 "Da articolo "
  KEY 1
  FLAG "UG"
  USE LF_ANAMAG
  INPUT CODART F_DACODART
  DISPLAY "Codice@20" CODART
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_DACODART CODART
  OUTPUT F_DADESART DESCR
  CHECKTYPE SEARCH
  GROUP 1
END

STRING F_DADESART 50 38
BEGIN
  PROMPT 38 12 ""
  USE LF_ANAMAG KEY 2
  INPUT DESCR F_DADESART
  DISPLAY "Codice@20" CODART
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_DACODART CODART
  OUTPUT F_DADESART DESCR
  GROUP 1
END

STRING F_ACODART 20
BEGIN
  PROMPT 2 13 "A articolo  "
  KEY 1
  FLAG "UG"
  USE LF_ANAMAG
  INPUT CODART F_ACODART
  DISPLAY "Codice@20" CODART
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_ACODART CODART
  OUTPUT F_ADESART DESCR
  CHECKTYPE SEARCH
  GROUP 1
END

STRING F_ADESART 50 38
BEGIN
  PROMPT 38 13 ""
  USE LF_ANAMAG KEY 2
  INPUT DESCR F_ADESART
  DISPLAY "Codice@20" CODART
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_ACODART CODART
  OUTPUT F_ADESART DESCR
  GROUP 1
END

//group 2: gruppi merceologici

STRING F_DAGRMERC 3
BEGIN
  PROMPT 2 12 "Da gr.merc. "
  FLAGS "U"
  USE GMC KEY 1 SELECT CODTAB[4,5]==""
  INPUT CODTAB F_DAGRMERC
  DISPLAY "Codice" CODTAB[1,3]
  DISPLAY "Descrizione@50" S0
  OUTPUT F_DAGRMERC CODTAB[1,3]
  OUTPUT F_DADESGRM S0
  CHECKTYPE NORMAL
  GROUP 2
END

STRING F_DADESGRM 50
BEGIN
  PROMPT 22 12 ""
  USE GMC KEY 2 SELECT CODTAB[4,5]==""
  INPUT S0 F_DADESGRM
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB[1,3]
  COPY OUTPUT F_DAGRMERC
  CHECKTYPE NORMAL
  GROUP 2
END

STRING F_AGRMERC 3
BEGIN
  PROMPT 2 13 "A gr.merc.  "
  FLAGS "U"
  COPY USE F_DAGRMERC
  INPUT CODTAB F_AGRMERC
  COPY DISPLAY F_DAGRMERC
  OUTPUT F_AGRMERC CODTAB[1,3]
  OUTPUT F_ADESGRM S0
  CHECKTYPE NORMAL
  GROUP 2
END

STRING F_ADESGRM 50
BEGIN
  PROMPT 22 13 ""
  COPY USE F_DADESGRM
  INPUT S0 F_ADESGRM
  COPY DISPLAY F_DADESGRM
  COPY OUTPUT F_AGRMERC
  CHECKTYPE NORMAL
  GROUP 2
END

//group 3: clienti

NUMBER F_DACODCLI 6
BEGIN
  PROMPT 2 12 "Da cliente "
  FLAGS "GR"
  USE LF_CLIFO
  INPUT TIPOCF "C"
  INPUT CODCF F_DACODCLI
  DISPLAY "Codice@6R" CODCF
  DISPLAY "Ragione sociale@50" RAGSOC
  OUTPUT F_DACODCLI CODCF
  OUTPUT F_DADESCLI RAGSOC
  CHECKTYPE NORMAL
  FIELD #DACODCLI
  GROUP 3
END

STRING F_DADESCLI 50
BEGIN
  PROMPT 24 12 ""
  USE LF_CLIFO KEY 2
  INPUT TIPOCF "C"
  INPUT RAGSOC F_DADESCLI
  DISPLAY "Ragione sociale@50" RAGSOC
  DISPLAY "Codice@6R" CODCF
  COPY OUTPUT F_DACODCLI
  CHECKTYPE NORMAL
  GROUP 3
END

NUMBER F_ACODCLI 6
BEGIN
  PROMPT 2 13 "A cliente  "
  FLAGS "GR"
  COPY USE F_DACODCLI
  INPUT TIPOCF "C"
  INPUT CODCF F_ACODCLI
  COPY DISPLAY F_DACODCLI
  OUTPUT F_ACODCLI CODCF
  OUTPUT F_ADESCLI RAGSOC
  CHECKTYPE NORMAL
  FIELD #ACODCLI
  GROUP 3
END

STRING F_ADESCLI 50
BEGIN
  PROMPT 24 13 ""
  COPY USE F_DADESCLI
  INPUT TIPOCF "C"
  INPUT RAGSOC F_ADESCLI
  COPY DISPLAY F_DADESCLI
  COPY OUTPUT F_ACODCLI
  CHECKTYPE NORMAL
  GROUP 3
END
   
//dati per file excel

GROUPBOX -1 78 4
BEGIN
  PROMPT 1 15 "@bParametri per il file formato Excel"
END

BOOLEAN F_EXCEL
BEGIN
  PROMPT 2 16 "Genera file (stat_ art/gmc/cli .xls)"
  MESSAGE FALSE CLEAR,F_PATH
  MESSAGE TRUE ENABLE,F_PATH
END

STRING F_PATH 256 44
BEGIN
  PROMPT 2 17 "Cartella dove salvare il file "
  DSELECT
  FLAGS "M"
  CHECKTYPE REQUIRED
END

ENDPAGE

ENDMASK