campo-sirio/ps/pt0003100a.uml

#include "pt0003100a.h"

TOOLBAR "Toolbar" 0 0 0 2

BUTTON DLG_SAVEREC 2 2
BEGIN 
  PROMPT 1 1 "~Registra"
  PICTURE TOOL_SAVEREC
END  

#include <helpbar.h> 

ENDPAGE

PAGE "Incasso fatture" 0 2 0 0

GROUPBOX -1 78 5
	BEGIN
	PROMPT 2 1 "Selezione Documenti"
	FLAGS ""
END

NUMBER F_ANNO 4
BEGIN
	PROMPT 4 2 "Anno    "
	FIELD S_ANNO
	KEY	 1
	USE ESC
	CHECKTYPE NORMAL
	INPUT CODTAB F_ANNO
	DISPLAY "Codice" CODTAB
	DISPLAY "Data inizio esercizio" D0
	DISPLAY "Data fine esercizio" D1
	OUTPUT F_ANNO CODTAB
	FLAGS "RZ"
END

STRING F_NUM 4
BEGIN
	PROMPT 21 2 "Num. "
	FIELDS S_NUM
	HELP "Codice numerazione"
	USE %NUM
	INPUT CODTAB F_NUM
	DISPLAY "Codice" CODTAB
	DISPLAY "Descrizione@50" S0
	OUTPUT F_NUM CODTAB
	CHECKTYPE REQUIRED
	FLAG "UPA"
	WARNING "Numerazione assente"
END

STRING F_CODCLI 6
BEGIN
	PROMPT 4 3 "Cliente "
	WARNING "Cliente assente"
	FLAGS "R"
	FIELD CODCLI
	USE LF_CLIFO
	INPUT TIPOCF "C"
	INPUT CODCF F_CODCLI
	DISPLAY "Codice" CODCF
	DISPLAY "Ragione Sociale@50" RAGSOC
	OUTPUT F_CODCLI CODCF
	OUTPUT F_RAGSOC RAGSOC
	CHECKTYPE REQUIRED
END

STRING F_RAGSOC 50
BEGIN
	WARNING "Cliente assente"
	PROMPT 26 3 ""
	USE LF_CLIFO KEY 2
	INPUT TIPOCF "C"
	INPUT RAGSOC F_RAGSOC
	DISPLAY "Ragione Sociale@50" RAGSOC
	DISPLAY "Partita IVA@12" PAIV
	DISPLAY "Codice" CODCF
	OUTPUT F_CODCLI CODCF
	OUTPUT F_RAGSOC RAGSOC
	CHECKTYPE REQUIRED
END

CURRENCY F_TOTPAGATO 
BEGIN
	 PROMPT 4 4 "Pagato  "
END

SPREADSHEET F_SHEET
BEGIN
  PROMPT 0 6 ""
  ITEM "Pagato@18"
  ITEM "Da pagare@18"
  ITEM "Totale doc.@18"
  ITEM "N.ro Fattura"
  ITEM "Data@10"
END

STRING DLG_PROFILE 70 50
BEGIN
  PROMPT 8 -1 "Profilo "
  PSELECT
END

ENDPAGE

ENDMASK

PAGE "Rate" -1 -1 60 14

CURRENCY F_PAGATO
BEGIN
  PROMPT 4 1 "Pagato         "
END

CURRENCY F_DAPAGARE 
BEGIN
  PROMPT 4 3 "Da Pagare      "
  FLAGS "D"
END

CURRENCY F_TOTDOC
BEGIN
  PROMPT 4 5 "Totale fattura "
  FLAGS "D"
END

NUMBER F_NDOC 6
BEGIN
  PROMPT 4 7 "Numero fattura "
  FLAGS "D"
END

DATE F_DATADOC
BEGIN
  PROMPT 4 9 "Data fattura   "
  FLAGS "D"
END

BUTTON DLG_OK 10 2
BEGIN
  PROMPT -13 -1 ""
END

BUTTON DLG_CANCEL 10 2
BEGIN
  PROMPT -23 -1 ""
END

BUTTON F_PAGA 10 2
BEGIN
  PROMPT -33 -1 "~Paga"
END

ENDPAGE

ENDMASK