188 lines
2.7 KiB
Plaintext
Executable File
188 lines
2.7 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 40 1 "Numero di riga "
|
|
HELP "Inserire il numero della riga desiderata. Se non viene specificata si entra in modifica della testata"
|
|
FLAGS "RZ"
|
|
END
|
|
|
|
DATE F_DATAREG
|
|
BEGIN
|
|
PROMPT 1 3 "Data registrazione "
|
|
END
|
|
|
|
DATE F_DATACOMP
|
|
BEGIN
|
|
PROMPT 40 3 "Data competenza "
|
|
END
|
|
|
|
NUMBER F_ANNO 4
|
|
BEGIN
|
|
PROMPT 68 3 "Anno "
|
|
FLAGS "D"
|
|
END
|
|
|
|
DATE F_DATADOC
|
|
BEGIN
|
|
PROMPT 1 4 "Data del documento "
|
|
END
|
|
|
|
STRING F_NUMDOC 7
|
|
BEGIN
|
|
PROMPT 40 4 "Numero documento "
|
|
END
|
|
|
|
STRING F_REGIVA 3
|
|
BEGIN
|
|
PROMPT 1 6 "Registro IVA "
|
|
FLAGS "UZ"
|
|
END
|
|
|
|
STRING F_DESCRREG 49
|
|
BEGIN
|
|
PROMPT 28 6 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER F_PROTIVA 5
|
|
BEGIN
|
|
PROMPT 1 7 "Numero protocollo iva "
|
|
FLAGS "R"
|
|
END
|
|
|
|
NUMBER F_NUPROTIVA 5
|
|
BEGIN
|
|
PROMPT 40 7 "Ultimo protoc. riepilog. "
|
|
FLAGS "R"
|
|
END
|
|
|
|
STRING F_CODCAUS 3
|
|
BEGIN
|
|
PROMPT 1 8 "Codice causale "
|
|
FLAGS "Z"
|
|
END
|
|
|
|
STRING F_DESCRCAU 49
|
|
BEGIN
|
|
PROMPT 28 8 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_CODPAG 4
|
|
BEGIN
|
|
PROMPT 1 9 "Codice pagamento "
|
|
END
|
|
|
|
STRING F_DESCRPAG 48
|
|
BEGIN
|
|
PROMPT 29 9 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER F_GRUPPO 3
|
|
BEGIN
|
|
PROMPT 1 11 "Sottoconto partita "
|
|
FLAGS "R"
|
|
END
|
|
|
|
NUMBER F_CONTO 3
|
|
BEGIN
|
|
PROMPT 29 11 ""
|
|
FLAGS "R"
|
|
END
|
|
|
|
NUMBER F_SOTTOCONTO 6
|
|
BEGIN
|
|
PROMPT 34 11 ""
|
|
FLAGS "R"
|
|
END
|
|
|
|
STRING F_DESCRPARTITA 50
|
|
BEGIN
|
|
PROMPT 1 12 "Descrizione partita "
|
|
FLAGS "D"
|
|
END
|
|
|
|
LIST F_SEZIONE 9
|
|
BEGIN
|
|
PROMPT 1 13 "Sezione "
|
|
ITEM " |Nessuna"
|
|
ITEM "D|Dare"
|
|
ITEM "A|Avere"
|
|
CHECKTYPE REQUIRED
|
|
WARNING "Valore non valido per sezione"
|
|
END
|
|
|
|
STRING F_DESCR 30
|
|
BEGIN
|
|
PROMPT 1 14 "Descrizione aggiuntiva "
|
|
END
|
|
|
|
NUMBER F_IMPORTO 15
|
|
BEGIN
|
|
PROMPT 1 15 "Importo "
|
|
FLAGS "R"
|
|
PICTURE "."
|
|
END
|
|
|
|
NUMBER F_GRUPPOC 3
|
|
BEGIN
|
|
PROMPT 1 16 "Sottoconto contropart. "
|
|
FLAGS "R"
|
|
END
|
|
|
|
NUMBER F_CONTOC 3
|
|
BEGIN
|
|
PROMPT 29 16 ""
|
|
FLAGS "R"
|
|
END
|
|
|
|
NUMBER F_SOTTOC 6
|
|
BEGIN
|
|
PROMPT 34 16 ""
|
|
FLAGS "R"
|
|
END
|
|
|
|
STRING F_DESCRCPARTITA 50
|
|
BEGIN
|
|
PROMPT 1 17 "Descrizione c/partita "
|
|
FLAGS "D"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|