campo-sirio/cg/cg5800b.uml

#include "cg5800.h"
 
TOOLBAR "" 0 -3 0 3

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"
END

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

ENDPAGE

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

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 2 7 "______________________________________________________________________________"
END

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

CURRENCY FM_REGIVA(09) 18
BEGIN
 PROMPT 51 17 "Imposte        "
 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 2 7 "______________________________________________________________________________"
END

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

ENDPAGE

ENDMASK