campo-sirio/vd/vd0700a.uml

#include "vd0700a.h"

TOOOLBAR "" 0 0 0 2

BUTTON DLG_OK 10 2
BEGIN
	PROMPT -12 -2 ""
	FLAGS "D"
	GROUP 1
END

BUTTON DLG_QUIT 10 2
BEGIN
	PROMPT -22 -2 ""
END

ENDPAGE

PAGE "Chiusura Scontrino" -1 -1 0 0

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

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

CURRENCY F_TOTDOC 18
BEGIN
  PROMPT 2 3 "@bTotale scontrino    "
	FLAGS "D"
END

CURRENCY F_CASSAINI 18
BEGIN
  PROMPT 46 3 "Cassa            "
	FLAGS "D"
END

CURRENCY F_INC01 18
BEGIN
  PROMPT 2 5 "01----------------- "
	FLAGS "D"
END

CURRENCY F_INC02 18
BEGIN
  PROMPT 42 5 "02-----------------  "
	FLAGS "D"
END

CURRENCY F_INC03 18
BEGIN
  PROMPT 2 7 "03----------------- "
	FLAGS "D"
END

CURRENCY F_INC04 18
BEGIN
  PROMPT 42 7 "04-----------------  "
	FLAGS "D"
END

CURRENCY F_INC05 18
BEGIN
  PROMPT 2 9 "05----------------- "
	FLAGS "D"
END

CURRENCY F_INC06 18
BEGIN
  PROMPT 42 9 "06-----------------  "
	FLAGS "D"
END

CURRENCY F_INC07 18
BEGIN
  PROMPT 2 11 "07----------------- "
	FLAGS "D"
END

CURRENCY F_INC08 18
BEGIN
  PROMPT 42 11 "08-----------------  "
	FLAGS "D"
END

CURRENCY F_RESTO 18
BEGIN
  PROMPT 2 13 "@bResto               "
	FLAGS "D"
END

CURRENCY F_SALDO 18
BEGIN
  PROMPT 46 13 "Saldo            "
	FLAGS "D"
	GROUP 1
END

BOOEAN F_DAFATT
BEGIN
  PROMPT 2 15 "Da fatturare"
	MESSAGE FALSE CLEAR,2@
	MESSAGE TRUE ENABLE,2@
	GROUP 3
END

BOOEAN F_ACCONTO
BEGIN
  PROMPT 46 15 "Acconto"
	MESSAGE TRUE DISABLE,DLG_OK
	MESSAGE TRUE ENABLE,DLG_OK
	GROUP 3
END

LIST F_TIPOCFC 1 11
BEGIN
  PROMPT 2 17 "Tipo              "
  HELP "Indicare se cliente oppure fornitore"
  ITEM "C|Clienti"
  ITEM "F|Fornitori"
	GROUP 2
END

NUMBER F_CODCFC 6
BEGIN
  PROMPT 42 17 "Codice            "
  USE LF_CLIFO
  INPUT TIPOCF F_TIPOCFC SELECT
  INPUT CODCF F_CODCFC
  DISPLAY "Codice@6R" CODCF
  DISPLAY "Sospeso" SOSPESO
  DISPLAY "Ragione sociale@50" RAGSOC
  DISPLAY "Codice fiscale@16" COFI
  DISPLAY "Partita IVA@11" PAIV
  OUTPUT F_TIPOCFC TIPOCF
  OUTPUT F_CODCFC CODCF
  OUTPUT F_RAGSOCC RAGSOC
  CHECKTYPE REQUIRED
	ADD RUN cg0 -1
	GROUP 2
END

STRING F_RAGSOCC 50
BEGIN
  PROMPT 2 19 "Ragione Sociale  "
  USE LF_CLIFO KEY 2
  INPUT TIPOCF F_TIPOCFC SELECT
  INPUT RAGSOC F_RAGSOCC
  DISPLAY "Ragione sociale@50" RAGSOC
  DISPLAY "Sospeso" SOSPESO
  DISPLAY "Codice@R" CODCF
  DISPLAY "Codice fiscale@16" COFI
  DISPLAY "Partita IVA@11" PAIV
  COPY OUTPUT F_CODCFC
  CHECKTYPE NORMAL
	ADD RUN cg0 -1
	GROUP 2
END

ENDPAGE

ENDMASK