campo-sirio/sv/sv1200a.uml

#include "sv1200a.h"

TOOLBAR "Toolbar" 0 20 0 3

BUTTON DLG_PRINT 10 2
BEGIN
  PROMPT -13 -1 "~Stampa"
END

BUTTON DLG_SAVEREC 10 2
BEGIN
  PROMPT -23 -1 "~Registra"
  MESSAGE EXIT,K_SAVE
  PICTURE BMP_SAVEREC
  PICTURE BMP_SAVERECDN
END

BUTTON DLG_QUIT 10 2
BEGIN
  PROMPT -33 -1 "~Fine"
  PICTURE BMP_QUIT
  PICTURE BMP_QUITDN
END

ENDPAGE

PAGE "Generazione statistiche" -1 -1 80 20

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 1 1 "@bStatistica "
END

STRING F_CODICE 20
BEGIN
  PROMPT 2 2 ""
  FLAGS "U"
  USE PSV
  INPUT CODTAB F_CODICE
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@60" S0
  OUTPUT F_CODICE CODTAB
  OUTPUT F_DESCR S0
  OUTPUT F_MULTIPLO S9
  OUTPUT F_NUMERO I0
  OUTPUT F_PERIODO I1
  OUTPUT F_RAFFRONTO I2
  CHECKTYPE NORMAL
  ADD RUN SV0 -0 PSV
END

STRING F_DESCR 50
BEGIN
  PROMPT 25 2 ""
  USE PSV KEY 2
  INPUT S0 F_DESCR
  DISPLAY "Descrizione@60" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_CODICE
  CHECKTYPE NORMAL
  ADD RUN SV0 -0 PSV
END

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 1 4 "@bRaggruppamento colonne"
END

LIST F_FREQUENZA 1 15
BEGIN
  PROMPT 2 5 "Frequenza base "
  ITEM "G|Giornaliera"   
  ITEM "S|Settimanale"   
  ITEM "Q|Quindicinale"
  ITEM "1|Mensile"
  ITEM "2|Bimestrale"
  ITEM "3|Trimestrale"
  ITEM "4|Quadrimestrale"
  ITEM "6|Semestrale"
  ITEM "A|Annuale"
  FLAGS "DGP"
END

LIST F_MULTIPLO 1 15
BEGIN
  PROMPT 41 5 "Frequenza "
END

NUMBER F_NUMERO 3
BEGIN
  PROMPT 74 5 ""    
  FLAGS "U"
  NUM_EXPR #THIS_FIELD>0
  WARNINIG "Inserire un numero maggiore di zero"
END

GROUPBOX DLG_NULL 78 5
BEGIN
  PROMPT 1 7 "@bPeriodo"
END

NUMBER F_PERIODO 3
BEGIN
  PROMPT 2 8 "Numero di colonne  "
  FLAGS "U"
  NUM_EXPR (#THIS_FIELD>0)&&(#THIS_FIELD<37)
  WARNINIG "Inserire compreso tra 1 e 36"
END

NUMBER F_RAFFRONTO 2
BEGIN
  PROMPT 42 8 "Numero di colonne per raffronto "
  FLAGS "U"
//  CHECKTYPE REQUIRED
  WARNINIG "Inserire un numero di colonne positivo"
END

DATE F_DATAINI
BEGIN
  PROMPT 2 9 "Dal "
  CHECKTYPE REQUIRED
  WARNINIG "Inserire una data iniziale"
END

DATE F_DATAFIN
BEGIN
  PROMPT 18 9 "Al "
  CHECKTYPE REQUIRED
  VALIDATE DATE_CMP_FUNC > F_DATAINI
  WARNINIG "Inserire una data superiore a quella iniziale"
END

DATE F_DATARAF
BEGIN
  PROMPT 53 9 "Raffronta dal "
  VALIDATE DATE_CMP_FUNC <= F_DATAINI
  WARNINIG "Inserire una data inferiore a quella iniziale"
END

NUMBER F_COL_ANNO 2
BEGIN
  PROMPT 2 10 "Numero di colonne del periodo di base "
  FLAGS "U"
  CHECKTYPE REQUIRED
  NUM_EXPR #THIS_FIELD>1
  WARNING  "Il periodo di base deve essere di almento due colonne"
END

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 1 12 "@bSelezione"
END

LIST F_TIPOART 1 11
BEGIN
  PROMPT 2 13 "Tipo articolo "
  ITEM "M|Merce"
  ITEM "P|Prestazioni"
  ITEM "O|Omaggi"
END

LIST F_TIPODATO 1 9
BEGIN
  PROMPT 32 13 "dato "
  ITEM "V|valori"
  ITEM "Q|quantita'"
END


LIST F_TIPOCALC 1 11
BEGIN
  PROMPT 54 13 "calcolo "
  ITEM "V|venduto"
  MESSAGE DISABLE,F_COL_ANNO
  ITEM "P|progressivo"
  MESSAGE ENABLE,F_COL_ANNO
  ITEM "M|mobile"
  MESSAGE ENABLE,F_COL_ANNO
END



SPREADSHEET F_CHIAVE 78
BEGIN
  PROMPT 1 15 ""
  ITEM "Campo"
  ITEM "Totale"
  ITEM "Dal@20"
  ITEM "Al@20"
  ITEM "Descrizione@50"
END

ENDPAGE

ENDMASK

PAGE "Sheet" -1 -1 52 8

STRING S_CAMPO 2
BEGIN
  PROMPT 1 1 "Campo "
  FLAGS "U"
  SHEET "Campo|Descrizione@50"
  INPUT S_CAMPO 
  ITEM "A|Articolo"
  ITEM "L|Livello giacenza"
  ITEM "V|Categoria vendita"
  ITEM "C|Codice cliente"  
  ITEM "G|Codice agente"
  ITEM "M|Codice magazzino"
  ITEM "Z|Codice zona" 
  OUTPUT S_CAMPO
  OUTPUT S_DESCR
END

BOOLEAN S_TOTALE
BEGIN
  PROMPT 40 1 "Calcola totale"
END

STRING S_DESCR 50
BEGIN
  PROMPT 1 2 ""
  FLAGS "D"
END

STRING S_DAL 20
BEGIN
  PROMPT 1 4 "Dal "
END

STRING S_AL 20
BEGIN
  PROMPT 28 4 "Al "
END

BUTTON DLG_CANCEL 10 2
BEGIN             
  PROMPT -13 -1 ""
END

BUTTON DLG_DELREC 10 2
BEGIN             
  PROMPT -23 -1 ""
END

BUTTON DLG_OK 10 2
BEGIN             
  PROMPT -33 -1 ""
END

ENDPAGE

ENDMASK