campo-sirio/vd/vdtbopd.uml

#include "vdtbopd.h"

TOOLBAR "" 0 20 0 2

#include <toolbar.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