campo-sirio/cg/cg5800b.uml

#include "cg5800.h"
 
TOOLBAR "topbar" 0 0 0 2

BUTTON DLG_PRINT 10 2
BEGIN
  PROMPT -13 -11 ""
  MESSAGE EXIT, K_ENTER
END

BUTTON DLG_PRELPR 15 2
BEGIN
  PROMPT -23 -11 "Elenco Privati"
  PICTURE TOOL_PRINTELENCO
END

BUTTON DLG_QUIT 10 2
BEGIN
  PROMPT -33 -11 ""
END

ENDPAGE

PAGE "Quadro IVA VT Pag.1" 0 0 0 2

GROUPBOX DLG_NULL 79 4
BEGIN
  PROMPT 0 0 "Ditta corrente"
END                 
                                        
NUMBER F_CODDITTA 5
BEGIN         
  PROMPT 2 1  "Codice "
  FLAGS "DG"
	MESSAGE COPY,1@
END

STRING F_RAGSOC 50
BEGIN                       
  PROMPT 16 1 "Rag. Soc. "
  FLAGS "DG"
	MESSAGE COPY,2@
END                                                           

NUMBER F_YEAR 4
BEGIN
  PROMPT 2 2 "Anno   "
  FLAGS "DG"
	MESSAGE COPY,3@
END

CURRENCY F_TOTIMP 18
BEGIN
 PROMPT 1 4 "Totale Operazioni Imponibili "
 FLAGS "DG"
 MESSAGE COPY,4@
END

CURRENCY F_TOTIVA 18
BEGIN
 PROMPT 51 4 "Totale Imposte "
 FLAGS "DG"
 MESSAGE COPY,5@
END

CURRENCY F_TOTPRIMP 18
BEGIN
 PROMPT 1 5 "Totale Op.verso cons.finali  "
 MESSAGE COPY,6@
 FLAGS "DG"
END

CURRENCY F_TOTPRIVA 18
BEGIN
 PROMPT 51 5 "Imposte        "
 MESSAGE COPY,7@
 FLAGS "DG"
END

CURRENCY F_TOTIVIMP 18
BEGIN
 PROMPT 1 6 "Totale op.verso soggetti IVA "
 MESSAGE COPY,8@
 FLAGS "DG"
END

CURRENCY F_TOTIVIVA 18
BEGIN
 PROMPT 51 6 "Imposte        "
 MESSAGE COPY,9@
 FLAGS "DG"
END

TEXT DLG_NULL
BEGIN
 PROMPT 33 7 "@bOp.Imponibili"
 FLAGS "D"
END

TEXT DLG_NULL
BEGIN
 PROMPT 72 7 "@bImposte"
 FLAGS "D"
END

CURRENCY FM_REGIMP(00) 18
BEGIN
 PROMPT 1 8 "Non assegnati                "
 FLAGS "D"
END

CURRENCY FM_REGIVA(00) 18
BEGIN
 PROMPT 51 8 "               "
 FLAGS "D"
END

CURRENCY FM_REGIMP(01) 18
BEGIN
 PROMPT 1 9 "VT2 Abruzzo                  "
 FLAGS "D"
END

CURRENCY FM_REGIVA(01) 18
BEGIN
 PROMPT 51 9 "               "
 FLAGS "D"
END

CURRENCY FM_REGIMP(02) 18
BEGIN
 PROMPT 1 10 "VT3 Basilicata               "
 FLAGS "D"
END

CURRENCY FM_REGIVA(02) 18
BEGIN
 PROMPT 51 10 "               "
 FLAGS "D"
END

CURRENCY FM_REGIMP(03) 18
BEGIN
 PROMPT 1 11 "VT4 Bolzano                  "
 FLAGS "D"
END

CURRENCY FM_REGIVA(03) 18
BEGIN
 PROMPT 51 11 "               "
 FLAGS "D"
END

CURRENCY FM_REGIMP(04) 18
BEGIN
 PROMPT 1 12 "VT5 Calabria                 "
 FLAGS "D"
END

CURRENCY FM_REGIVA(04) 18
BEGIN
 PROMPT 51 12 "               "
 FLAGS "D"
END

CURRENCY FM_REGIMP(05) 18
BEGIN
 PROMPT 1 13 "VT6 Campania                 "
 FLAGS "D"
END

CURRENCY FM_REGIVA(05) 18
BEGIN
 PROMPT 51 13 "               "
 FLAGS "D"
END

CURRENCY FM_REGIMP(06) 18
BEGIN
 PROMPT 1 14 "VT7 Emilia Rom.              "
 FLAGS "D"
END

CURRENCY FM_REGIVA(06) 18
BEGIN
 PROMPT 51 14 "               "
 FLAGS "D"
END

CURRENCY FM_REGIMP(07) 18
BEGIN
 PROMPT 1 15 "VT8 Friuli                   "
 FLAGS "D"
END

CURRENCY FM_REGIVA(07) 18
BEGIN
 PROMPT 51 15 "               "
 FLAGS "D"
END

CURRENCY FM_REGIMP(08) 18
BEGIN
 PROMPT 1 16 "VT9 Lazio                    "
 FLAGS "D"
END

CURRENCY FM_REGIVA(08) 18
BEGIN
 PROMPT 51 16 "               "
 FLAGS "D"
END

CURRENCY FM_REGIMP(09) 18
BEGIN
 PROMPT 1 17 "VT10 Liguria                 "
 FLAGS "D"
END

CURRENCY FM_REGIVA(09) 18
BEGIN
 PROMPT 51 17 "               "
 FLAGS "D"
END

ENDPAGE

PAGE "Quadro IVA VT Pag.2" -1 -1 78 20

GROUPBOX DLG_NULL 79 4
BEGIN
  PROMPT 0 0 "Ditta corrente"
END                 
                                        
NUMBER DLG_NULL 5
BEGIN         
  PROMPT 2 1  "Codice "
  FLAGS "D"
	GROUP 1
END

STRING DLG_NULL 50
BEGIN                       
  PROMPT 16 1 "Rag. Soc. "
  FLAGS "D"
	GROUP 2
END                                                           

NUMBER DLG_NULL 4
BEGIN
  PROMPT 2 2 "Anno   "
  FLAGS "D"
	GROUP 3
END

CURRENCY DLG_NULL 18
BEGIN
 PROMPT 1 4 "Totale operazioni imponibili "
 FLAGS "D"
 GROUP 4
END

CURRENCY DLG_NULL 18
BEGIN
 PROMPT 51 4 "Totale Imposte "
 FLAGS "D"
 GROUP 5
END

CURRENCY DLG_NULL 18
BEGIN
 PROMPT 1 5 "Totale op.verso cons.finali  "
 FLAGS "D"
 GROUP 6
END

CURRENCY DLG_NULL 18
BEGIN
 PROMPT 51 5 "Imposte        "
 FLAGS "D"
 GROUP 7
END

CURRENCY DLG_NULL 18
BEGIN
 PROMPT 1 6 "Totale op.verso soggetti IVA "
 FLAGS "D"
 GROUP 8
END

CURRENCY DLG_NULL 18
BEGIN
 PROMPT 51 6 "Imposte        "
 FLAGS "D"
 GROUP 9
END

TEXT DLG_NULL
BEGIN
 PROMPT 33 7 "@bOp.Imponibili"
 FLAGS "D"
END

TEXT DLG_NULL
BEGIN
 PROMPT 72 7 "@bImposte"
 FLAGS "D"
END

CURRENCY FM_REGIMP(10) 18
BEGIN
 PROMPT 1 8 "VT11 Lombardia               "
 FLAGS "D"
END

CURRENCY FM_REGIVA(10) 18
BEGIN
 PROMPT 51 8 "               "
 FLAGS "D"
END

CURRENCY FM_REGIMP(11) 18
BEGIN
 PROMPT 1 9 "VT12 Marche                  "
 FLAGS "D"
END

CURRENCY FM_REGIVA(11) 18
BEGIN
 PROMPT 51 9 "               "
 FLAGS "D"
END

CURRENCY FM_REGIMP(12) 18
BEGIN
 PROMPT 1 10 "VT13 Molise                  "
 FLAGS "D"
END

CURRENCY FM_REGIVA(12) 18
BEGIN
 PROMPT 51 10 "               "
 FLAGS "D"
END

CURRENCY FM_REGIMP(13) 18
BEGIN
 PROMPT 1 11 "VT14 Piemonte                "
 FLAGS "D"
END

CURRENCY FM_REGIVA(13) 18
BEGIN
 PROMPT 51 11 "               "
 FLAGS "D"
END

CURRENCY FM_REGIMP(14) 18
BEGIN
 PROMPT 1 12 "VT15 Puglia                  "
 FLAGS "D"
END

CURRENCY FM_REGIVA(14) 18
BEGIN
 PROMPT 51 12 "               "
 FLAGS "D"
END

CURRENCY FM_REGIMP(15) 18
BEGIN
 PROMPT 1 13 "VT16 Sardegna                "
 FLAGS "D"
END

CURRENCY FM_REGIVA(15) 18
BEGIN
 PROMPT 51 13 "               "
 FLAGS "D"
END

CURRENCY FM_REGIMP(16) 18
BEGIN
 PROMPT 1 14 "VT17 Sicilia                 "
 FLAGS "D"
END

CURRENCY FM_REGIVA(16) 18
BEGIN
 PROMPT 51 14 "               "

 FLAGS "D"
END

CURRENCY FM_REGIMP(17) 18
BEGIN
 PROMPT 1 15 "VT18 Toscana                 "
 FLAGS "D"
END

CURRENCY FM_REGIVA(17) 18
BEGIN
 PROMPT 51 15 "               "
 FLAGS "D"
END

CURRENCY FM_REGIMP(18) 18
BEGIN
 PROMPT 1 16 "VT19 Trento                  "
 FLAGS "D"
END

CURRENCY FM_REGIVA(18) 18
BEGIN
 PROMPT 51 16 "               "
 FLAGS "D"
END

CURRENCY FM_REGIMP(19) 18
BEGIN
 PROMPT 1 17 "VT20 Umbria                  "
 FLAGS "D"
END

CURRENCY FM_REGIVA(19) 18
BEGIN
 PROMPT 51 17 "               "
 FLAGS "D"
END

CURRENCY FM_REGIMP(20) 18
BEGIN
 PROMPT 1 18 "VT21 Valle d'Aosta           "
 FLAGS "D"
END

CURRENCY FM_REGIVA(20) 18
BEGIN
 PROMPT 51 18 "               "
 FLAGS "D"
END

CURRENCY FM_REGIMP(21) 18
BEGIN
 PROMPT 1 19 "VT21 Veneto                  "
 FLAGS "D"
END

CURRENCY FM_REGIVA(21) 18
BEGIN
 PROMPT 51 19 "               "
 FLAGS "D"
END

ENDPAGE

ENDMASK