campo-sirio/vd/vdlib01.uml

#include "vdmask.h"

TOOLBAR "" 0 0 0 2

BUTTON DLG_OK 10 2
BEGIN
	PROMPT -14 -11 ""
	FLAGS "D"
END

BUTTON DLG_INFO 10 2
BEGIN
  PROMPT -24 -11 ""
END

BUTTON DLG_HELP 10 2
BEGIN
  PROMPT -34 -11 ""
END

BUTTON DLG_QUIT 11 2
BEGIN
  PROMPT -44 -11 ""
END

ENDPAGE

PAGE "Apertura Turno" 0 0 0 0

NUMBER F_CASSA 3
BEGIN
	PROMPT 2 1 "@bNumero Cassa         "
	FLAGS "DZ"
END

DATE F_DATA
BEGIN 
  PROMPT 42 1 "@bData                 "
  FLAGS "ADG"
END

NUMBER F_ANNO 4
BEGIN 
  PROMPT 2 2 "Anno                 "
  FLAGS "AD"
END

STRING F_USERNAME 8
BEGIN
  PROMPT 2 3 "Utente               "
  FLAGS "UT"
	USE OPD
  JOIN LF_USER INTO USERNAME==CODTAB
  INPUT CODTAB F_USERNAME 
  DISPLAY "Utente@8" CODTAB
  DISPLAY "Gruppo@8" LF_USER->GROUPNAME
  DISPLAY "Descrizione@50" LF_USER->USERDESC
  OUTPUT F_USERNAME CODTAB
  CHECKTYPE REQUIRED
END

STRING F_PASSWORD 8 10
BEGIN
  PROMPT 42 3 "Password             "
  FLAGS "*"
END

NUMBER F_TURNO 7
BEGIN
  PROMPT 2 5 "Turno                "
  FLAGS "ZU"
	USE LF_TURNI SELECT (USERNAME==#F_USERNAME)&&(CHIUSO!="")
	INPUT CODCASSA F_CASSA SELECT
	INPUT ANNO F_ANNO SELECT
	INPUT PROGR F_TURNO
	DISPLAY "Data@10" DATA
	DISPLAY "Inizio : Ora" INIZIO[1,2]
	DISPLAY "Minuto" INIZIO[3,4]
	DISPLAY "Secondo" INIZIO[5,6]
	DISPLAY "Fine : Ora" FINE[1,2]
	DISPLAY "Minuto" FINE[3,4]
	DISPLAY "Secondo" FINE[5,6]
	OUTPUT F_TURNO PROGR
	CHECKTYPE NORMAL
END

NUMBER F_HINIZIO 2
BEGIN
  PROMPT 2 7 "Ora                  "
  FLAGS "ZDU"
	NUM_EXPR #F_HINIZIO<24
	GROUP 1
END

NUMBER F_MINIZIO 2
BEGIN
  PROMPT 26 7 ":"
  FLAGS "ZDU"
	NUM_EXPR #F_MINIZIO<60
	GROUP 1
END

NUMBER F_SINIZIO 2
BEGIN
  PROMPT 30 7 ":"
  FLAGS "ZDU"
	NUM_EXPR #F_SINIZIO<60
	GROUP 1
END

CURRENCY F_CASSAINI 18
BEGIN
  PROMPT 2 9 "Cassa Iniziale       "
	FLAGS "D"
	GROUP 1
END

ENDPAGE

ENDMASK