campo-sirio/sv/svtbpsv.uml

#include "svtbpsv.h"

TOOLBAR "Toolbar" 0 0 0 2

#include <relapbar.h>

ENDPAGE                 

PAGE "Statistiche vendita" 0 0 0 2

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

STRING FPSV_CODICE 16
BEGIN
  PROMPT 2 2 ""
  FLAGS "U"
  USE PSV
  INPUT CODTAB FPSV_CODICE
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT FPSV_CODICE CODTAB 
  OUTPUT FPSV_DESCR S0
  CHECKTYPE REQUIRED
  FIELD CODTAB
  KEY 1
END

STRING FPSV_DESCR 50
BEGIN
  PROMPT 25 2 ""
  USE PSV KEY 2
  INPUT S0 FPSV_DESCR
  DISPLAY "Descrizione@60" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT FPSV_CODICE
  CHECKTYPE REQUIRED
  FIELD S0
  KEY 2
  WARNING "La descrizione e' obbligatoria"
END

STRING FPSV_FILENAME 50
BEGIN
  PROMPT 2 4 "File di output         "
  FIELD S3
END

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

LIST FPSV_FREQUENZA 1 15
BEGIN
  PROMPT 2 7 "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 FPSV_MULTIPLO 1 15
BEGIN
  PROMPT 41 7 "Frequenza "
  ITEM " |Multiplo"
  FIELD S9
END

NUMBER FPSV_NUMERO 3
BEGIN
  PROMPT 74 7 ""    
  FLAGS "U"
  FIELD I0
  CHECKTYPE REQUIRED
  WARNINIG "Inserire un numero maggiore di zero"
END

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 1 9 "@bPeriodo"
END

NUMBER FPSV_PERIODO 3
BEGIN
  PROMPT 2 10 "Numero di colonne "
  FLAGS "U"
  FIELD I1
  NUM_EXPR (#THIS_FIELD<=36)
  WARNINIG "Inserire un numero compreso tra 1 e 36"
END

NUMBER FPSV_RAFFRONTO 3
BEGIN
  PROMPT 42 10 "Numero di colonne per raffronto "
  FLAGS "U"
  FIELD I2
//  CHECKTYPE REQUIRED
//  WARNINIG "Inserire un numero maggiore di zero"
END


SPREADSHEET FPSV_CHIAVE 78
BEGIN
  PROMPT 1 12 ""
  ITEM "Campo"
  ITEM "Totale"
  ITEM "Descrizione@50"
  ITEM "Campo\nanagrafica"
END

ENDPAGE

ENDMASK

PAGE "Sheet" -1 -1 52 6

STRING SPSV_CAMPO 2
BEGIN
  PROMPT 1 1 "Campo "
  FLAGS "U"
  SHEET "Campo|Descrizione@50"
  INPUT SPSV_CAMPO 
  ITEM "A|Articolo"
  ITEM "B|Campo anagrafica articoli"
  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 SPSV_CAMPO
  OUTPUT SPSV_DESCR
END

BOOLEAN SPSV_TOTALE
BEGIN
  PROMPT 40 1 "Totale"
END

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

STRING SPSV_ARTFLD 17
BEGIN
  PROMPT 1 3 "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