campo-sirio/cg/cg6800c.uml

#include "cg6800.h"

TOOLBAR "topbar" 0 0 0 2

BUTTON DLG_SAVEREC 10 2
BEGIN
PROMPT -15 -1 "~Registra"
MESSAGE EXIT,K_SAVE
PICTURE TOOL_SAVEREC
END

BUTTON DLG_CANCEL 10 2
BEGIN
PROMPT -45 -1 ""
MESSAGE EXIT,K_ESC
END

BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -55 -1 ""
MESSAGE EXIT,K_QUIT
END

ENDPAGE

PAGE "" 0 0 0 2
     
NUMBER F_NUMREG 7
BEGIN
  PROMPT 1 1 "Numero registrazione     "
  HELP "Inserire il numero di registrazione che si vuole modificare"
  FLAGS "RZ"
  CHECKTYPE REQUIRED
END

NUMBER F_NUMRIG 2
BEGIN
  PROMPT 52 1 "Numero di riga        "
  HELP "Inserire il numero della riga desiderata. Se non viene specificata si entra in modifica della testata"
  FLAGS "RZ"
END

NUMBER F_CODCF 6
BEGIN
  PROMPT 1 3 "Codice C/F      "
  FLAGS "R"
END

STRING F_RAGSOCCF 50
BEGIN
  PROMPT 26 3 ""              
  FLAGS "D"
END
  
DATE F_DATA74TER
BEGIN
  PROMPT 1 4 "Data reg. 74TER "
END

LIST F_MESELIQ 2 10
BEGIN
  PROMPT 1 5 "Mese liquidazione "
  FLAGS "M"
  ITEM " |Nessuno"
END

LIST F_PROVV 1 16
BEGIN
  PROMPT 36 4 "Movimento provvisorio "
  ITEM " |No (Definitivo)"
  ITEM "C|Cespiti"
  ITEM "P|Contabile"
END

GROUPBOX DLG_NULL 78 5
BEGIN
  PROMPT 0 6 "Cliente occasionale"
END

STRING F_CFPI 16
BEGIN
  PROMPT 1 1 ""
  FLAGS "HG"
END

STRING F_RAGSOCOCC 25
BEGIN
  PROMPT 1 7 "Ragione sociale "
END

STRING F_INDOCC 22
BEGIN
  PROMPT 1 8 "Indirizzo       "
END                           

STRING F_CIVOCC 6
BEGIN
  PROMPT 41 8 ""
END

STRING F_LOCALITA 18
BEGIN
  PROMPT 1 9 "Localita'       " 
END

STRING F_CAPOCC 5
BEGIN
  PROMPT 46 9 "C.A.P. "
END

STRING F_PROVOCC 2
BEGIN
  PROMPT 62 9 "Provincia  "
END              

STRING F_COMOCC 4
BEGIN
  PROMPT 1 10 ""
  FLAGS "HG"
END

NUMBER F_IMPONIBILE 15
BEGIN
  PROMPT 1 11 "Imponibile              "
  FLAGS "R"
  PICTURE "."
END

STRING F_CODIVA 4
BEGIN
  PROMPT 1 12 "Codice IVA              "
  FLAGS "U"
END                                    

STRING F_DESCRCODIVA 50 46 
BEGIN
  PROMPT 30 12 ""      
  FLAGS "D"
END

NUMBER F_IMPOSTA 15
BEGIN
  PROMPT 1 13 "Imposta                 "
  FLAGS "R"
  PICTURE "."
END

NUMBER F_TIPODET 1
BEGIN
  PROMPT 1 14 "Tipo detraibilita'      "
  SHEET "Codice|Tipo detraibilita'@75"
  INPUT F_TIPODET
  ITEM " |Regime normale"
  ITEM "1|IVA indetraibile su acquisti riferiti a ricavi esenti"
  ITEM "3|IVA indicata per passaggi interni al solo fine del calcolo di ventilazione"
  ITEM "9|IVA non detraibile per l'articolo 19"
  OUTPUT F_TIPODET
END

NUMBER F_TIPOCR 2
BEGIN
  PROMPT 1 15 "Tipo Costo/Ricavo       "
  SHEET "Codice|Tipo costo ricavo@50"
  INPUT F_TIPOCR
  ITEM " |0. Acquisti o vendite in genere"
  ITEM "1|1. Acquisti beni per rivendita"
  ITEM "2|2. Acquisti beni ammortizzabili"
  ITEM "3|3. Acquisti beni ammortizzabili con detr. 6%"
  ITEM "4|4. Vendita beni strumentali art. 17"
  ITEM "5|5. Beni per rivendita da non ventilare"
  ITEM "8|8. Altri beni strumentali acquistati in leasing"
  ITEM "9|9. Spese generali"
 	ITEM "17|17. Operazioni nei confronti dei condominii"
  HELP "Tipo Costo/Ricavo del conto"
  OUTPUT F_TIPOCR
END

NUMBER F_GRUPPO 3
BEGIN
  PROMPT 1 16 "Sottoconto costo/ricavo "
  FLAGS "R"
END

NUMBER F_CONTO 3
BEGIN
  PROMPT 30 16 ""
  FLAGS "R"
END

NUMBER F_SOTTOCONTO 6
BEGIN
  PROMPT 35 16 ""
  FLAGS "R"
END        

STRING F_DESCRPARTITA 50
BEGIN
  PROMPT 1 17 "Descrizione sottoconto  "
  FLAGS "D"
END

ENDPAGE

ENDMASK