campo-sirio/sv/sv1200a.uml

#include "sv1200a.h"

TOOLBAR "Toolbar" 0 -3 0 3

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

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

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

ENDPAGE

PAGE "Generazione Statistiche" -1 -1 78 19

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

STRING F_CODICE 20
BEGIN
  PROMPT 2 1 ""
  FLAGS "U"
  USE PSV
  INPUT CODTAB F_CODICE
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" 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 1 ""
  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 3 "@bRaggruppamento colonne"
END

LIST F_FREQUENZA 1 15
BEGIN
  PROMPT 2 4 "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 4 "Frequenza "
END

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

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

NUMBER F_PERIODO 3
BEGIN
  PROMPT 2 7 "Numero di colonne  "
  FLAGS "U"
  NUM_EXPR (#THIS_FIELD>=1)&&(#THIS_FIELD<=36)
  WARNING "Inserire un numero compreso tra 1 e 36"
END

NUMBER F_RAFFRONTO 2
BEGIN
  PROMPT 42 7 "Numero di colonne per raffronto "
  FLAGS "U"
END

DATE F_DATAINI
BEGIN
  PROMPT 2 8 "Dal "
  CHECKTYPE REQUIRED
  WARNING "Inserire la data iniziale"
END

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

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

NUMBER F_COL_ANNO 2
BEGIN
  PROMPT 2 9 "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 7
BEGIN
  PROMPT 1 11 "@bSelezione"
END

BOOLEAN F_TIPOART1
BEGIN
  PROMPT 2 12 "Merce"
END

BOOLEAN F_TIPOART2
BEGIN
  PROMPT 2 13 "Prestazioni"
END

BOOLEAN F_TIPOART3
BEGIN
  PROMPT 2 14 "Spese"
END

BOOLEAN F_TIPOART4
BEGIN
  PROMPT 2 15 "Omaggi"
  FLAGS "D"
END

BOOLEAN F_STAMPA_VAL
BEGIN
  PROMPT 32 12 "Stampa valori"
END

BOOLEAN F_STAMPA_QTA
BEGIN
  PROMPT 32 13 "Stampa quantita'"
END

BOOLEAN F_STAMPA_UNI
BEGIN
  PROMPT 32 14 "Stampa valori unitari"
END

LIST F_TIPOCALC 1 11
BEGIN
  PROMPT 2 16 "Tipo calcolo  "
  ITEM "V|Venduto"
    MESSAGE CLEAR,F_COL_ANNO
  ITEM "P|Progressivo"
    MESSAGE ENABLE,F_COL_ANNO
  ITEM "M|Mobile"
    MESSAGE ENABLE,F_COL_ANNO
END

ENDPAGE

PAGE "Criteri Raggruppamento" -1 -1 78 19

SPREADSHEET F_CHIAVE
BEGIN
  PROMPT 1 1 ""
  ITEM "Campo"
  ITEM "Totale"
  ITEM "Dal@10"
  ITEM "Al@10"
  ITEM "Descrizione@50"
  ITEM "Campo anagrafica@17"
END

ENDPAGE

ENDMASK

PAGE "Sheet" -1 -1 65 10

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"                    
  ITEM "B|Campo dell'anagrafica articoli" 
  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

STRING S_ARTFLD 17
BEGIN
  PROMPT 1 6 "Campo anagrafica "
  FLAGS "BU"
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