0f8a6909f1
Files correlati : Ricompilazione Demo : [ ] Commento : Revisione Maschere modulo vd git-svn-id: svn://10.65.10.50/trunk@16685 c028cbd2-c16b-5b4b-a496-9718f37d4682
120 lines
1.6 KiB
Plaintext
Executable File
120 lines
1.6 KiB
Plaintext
Executable File
#include "vdtbopd.h"
|
|
|
|
TOOLBAR "Toolbar" 0 0 0 2
|
|
|
|
#include <relapbar.h>
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Operatori" -1 -1 78 8
|
|
|
|
GROUPBOX DLG_NULL 75 5
|
|
BEGIN
|
|
PROMPT 1 1 ""
|
|
FLAGS "R"
|
|
END
|
|
|
|
STRING F_USERTAB 8
|
|
BEGIN
|
|
PROMPT 2 2 "Operatore "
|
|
FLAGS "U"
|
|
USE OPD
|
|
JOIN LF_USER INTO USERNAME==CODTAB
|
|
INPUT CODTAB F_USERTAB
|
|
DISPLAY "Utente@8" CODTAB
|
|
DISPLAY "Gruppo@8" LF_USER->GROUPNAME
|
|
DISPLAY "Descrizione@50" LF_USER->USERDESC
|
|
OUTPUT F_USERTAB CODTAB
|
|
OUTPUT F_USERDESC LF_USER->USERDESC
|
|
KEY 1
|
|
CHECKTYPE REQUIRED
|
|
FIELD CODTAB
|
|
END
|
|
|
|
STRING F_USER 8
|
|
BEGIN
|
|
PROMPT 2 2 "Operatore "
|
|
FLAGS "UD"
|
|
USE LF_USER
|
|
INPUT USERNAME F_USER
|
|
DISPLAY "Utente@8" USERNAME
|
|
DISPLAY "Gruppo@8" GROUPNAME
|
|
DISPLAY "Descrizione@50" USERDESC
|
|
OUTPUT F_USER USERNAME
|
|
OUTPUT F_USERDESC USERDESC
|
|
KEY 1
|
|
CHECKTYPE REQUIRED
|
|
MESSAGE COPY,F_USERTAB
|
|
FIELD CODTAB
|
|
ADD RUN ba1 -3
|
|
END
|
|
|
|
STRING F_USERDESC 50
|
|
BEGIN
|
|
PROMPT 2 4 "Nome "
|
|
FLAGS "D"
|
|
END
|
|
|
|
CURRENCY F_VALMAX 9
|
|
BEGIN
|
|
PROMPT 2 6 "Scontrino max."
|
|
FIELD R0
|
|
END
|
|
|
|
CURRENCY F_ABBMAX 9
|
|
BEGIN
|
|
PROMPT 40 6 "Abbuono max. "
|
|
FIELD R1
|
|
END
|
|
|
|
BOOLEAN F_XCGPRICES
|
|
BEGIN
|
|
PROMPT 2 8 "Modifica prezzi"
|
|
FIELD B0
|
|
END
|
|
|
|
BOOLEAN F_LOWCOST
|
|
BEGIN
|
|
PROMPT 40 8 "Sottocosto"
|
|
FIELD B1
|
|
END
|
|
|
|
BOOLEAN F_XCGGIFT
|
|
BEGIN
|
|
PROMPT 2 10 "Modifica omaggi"
|
|
FIELD B2
|
|
END
|
|
|
|
BOOLEAN F_XCGDISCOUNT
|
|
BEGIN
|
|
PROMPT 40 10 "Modifica sconti"
|
|
FIELD B3
|
|
END
|
|
|
|
BOOLEAN F_RESI
|
|
BEGIN
|
|
PROMPT 2 12 "Resi"
|
|
FIELD B4
|
|
END
|
|
|
|
BOOLEAN F_FATT
|
|
BEGIN
|
|
PROMPT 40 12 "Fatturazione"
|
|
FIELD B5
|
|
END
|
|
|
|
NUMBER F_DISCOUNTMAX 6 2
|
|
BEGIN
|
|
PROMPT 2 14 "Sconto max. "
|
|
FIELD R2
|
|
END
|
|
|
|
NUMBER F_PROVVIGIONE 5 2
|
|
BEGIN
|
|
PROMPT 40 14 "% Provvigione "
|
|
FIELD R3
|
|
END
|
|
|
|
ENDPAGE
|
|
ENDMASK
|