046e2c06cb
Ricompilazione Demo : [ ] Commento : Riportata la versione 3.1 patch 848 git-svn-id: svn://10.65.10.50/trunk@14993 c028cbd2-c16b-5b4b-a496-9718f37d4682
111 lines
1.7 KiB
Plaintext
Executable File
111 lines
1.7 KiB
Plaintext
Executable File
#include "vdmask.h"
|
|
|
|
TOOLBAR "" 0 -3 0 3
|
|
|
|
BUTTON DLG_OK 10 2
|
|
BEGIN
|
|
PROMPT -12 -11 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
BUTTON DLG_QUIT 10 2
|
|
BEGIN
|
|
PROMPT -22 -11 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Apertura Turno" 0 0 0 -3
|
|
|
|
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
|