campo-sirio/ps/ps0099100.uml

#include "ps0099100.h"

PAGE "Statistiche ANIVAL" -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 per la generazione statistiche"
END

LIST F_TIPOSTAT 21
BEGIN
  PROMPT 2 7 "Tipo di 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_TIPODATA 10
BEGIN
  PROMPT 2 8 "Dati da analizzare "
  ITEM "P|Prezzi"
  ITEM "Q|Quantità"
  FIELD #TIPODATA
END

LIST F_DETTAGLIO 17
BEGIN
  PROMPT 2 9 "Dettagliato per    "
  ITEM "|Non dettagliato"
  ITEM "A|Articolo"
  ITEM "C|Cliente"
  GROUP 3
END

GROUPBOX -1 78 5
BEGIN
  PROMPT 1 11 "@bRange 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
  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
  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

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

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

BUTTON DLG_OK 10 2
BEGIN 
  PROMPT -12 -2 ""
END    

BUTTON DLG_QUIT 10 2
BEGIN 
  PROMPT -22 -2 ""
END

ENDPAGE

ENDMASK