188 lines
3.2 KiB
Plaintext
Executable File
188 lines
3.2 KiB
Plaintext
Executable File
#include "cg6800.h"
|
|
|
|
TOOLBAR "" 0 20 0 2
|
|
|
|
BUTTON DLG_SAVEREC 10 2
|
|
BEGIN
|
|
PROMPT -15 -1 "~Registra"
|
|
MESSAGE EXIT,K_SAVE
|
|
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 "" -1 -1 78 18
|
|
|
|
NUMBER F_NUMREG 6
|
|
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
|
|
|
|
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 2
|
|
BEGIN
|
|
PROMPT 1 12 "Codice IVA "
|
|
FLAGS "Z"
|
|
END
|
|
|
|
STRING F_DESCRCODIVA 48
|
|
BEGIN
|
|
PROMPT 28 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 1
|
|
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"
|
|
HELP "Tipo Costo/Ricavo del conto"
|
|
OUTPUT F_TIPOCR
|
|
END
|
|
|
|
NUMBER F_GRUPPO 2
|
|
BEGIN
|
|
PROMPT 1 16 "Sottoconto costo/ricavo "
|
|
FLAGS "R"
|
|
END
|
|
|
|
NUMBER F_CONTO 2
|
|
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
|