188 lines
3.2 KiB
Plaintext
Executable File
188 lines
3.2 KiB
Plaintext
Executable File
#include "cg4900.h"
|
|
|
|
TOOLBAR "" 0 20 0 2
|
|
|
|
BUTTON DLG_SAVEREC 8 2
|
|
BEGIN
|
|
PROMPT -13 -1 "~Registra"
|
|
PICTURE BMP_SAVEREC
|
|
PICTURE BMP_SAVERECDN
|
|
MESSAGE EXIT,K_SAVE
|
|
END
|
|
|
|
BUTTON DLG_CANCEL 8 2
|
|
BEGIN
|
|
PROMPT -23 -1 ""
|
|
MESSAGE EXIT,K_ESC
|
|
END
|
|
|
|
BUTTON DLG_QUIT 8 2
|
|
BEGIN
|
|
PROMPT -33 -1 ""
|
|
MESSAGE EXIT,K_QUIT
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Acconto su operazioni effettuate" -1 -1 77 20
|
|
|
|
GROUPBOX DLG_NULL 78 3
|
|
BEGIN
|
|
PROMPT 1 0 "@bDitta corrente"
|
|
END
|
|
|
|
NUMBER F_CODDITTA 5
|
|
BEGIN
|
|
PROMPT 3 1 "Codice "
|
|
FLAGS "DFR"
|
|
USE LF_NDITTE KEY 1
|
|
INPUT CODDITTA F_CODDITTA
|
|
OUTPUT F_RAGSOC RAGSOC
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
STRING F_RAGSOC 50
|
|
BEGIN
|
|
PROMPT 17 1 "Rag. Soc. "
|
|
FLAGS "D"
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 51 3 "Credito"
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 66 3 "Debito"
|
|
END
|
|
|
|
NUMBER F_IVAVEN 15
|
|
BEGIN
|
|
PROMPT 1 4 "Iva sulle operazioni annotate fino al 20 dic. "
|
|
FLAGS "RD"
|
|
PICTURE "."
|
|
END
|
|
|
|
NUMBER F_NONFAT 15
|
|
BEGIN
|
|
PROMPT 1 5 "Iva su operaz. fino al 20 dic., ma non fatturate "
|
|
FLAGS "R"
|
|
PICTURE "."
|
|
MESSAGE K_TAB,F_RISVEN|K_TAB,F_IVACRE|K_TAB,F_IVADEB
|
|
END
|
|
|
|
NUMBER F_NONANN 15
|
|
BEGIN
|
|
PROMPT 1 6 "Iva su operaz. fino al 20 dic., ma non annotate "
|
|
FLAGS "R"
|
|
PICTURE "."
|
|
MESSAGE K_TAB,F_RISVEN|K_TAB,F_IVACRE|K_TAB,F_IVADEB
|
|
END
|
|
|
|
NUMBER F_IVARED 15
|
|
BEGIN
|
|
PROMPT 1 7 "Rettifiche iva a debito "
|
|
FLAGS "RD"
|
|
PICTURE "."
|
|
END
|
|
|
|
NUMBER F_IVARIM 15
|
|
BEGIN
|
|
PROMPT 1 8 "Iva chiesta a rimborso "
|
|
FLAGS "RD"
|
|
PICTURE "."
|
|
END
|
|
|
|
NUMBER F_RISVEN 15
|
|
BEGIN
|
|
PROMPT 1 9 "RISULTATO "
|
|
FLAGS "RD"
|
|
PICTURE "."
|
|
NUM_CALC {#F_IVAVEN + #F_NONFAT + #F_NONANN + #F_IVARED + #F_IVARIM}
|
|
END
|
|
|
|
NUMBER F_IVAACQ 15
|
|
BEGIN
|
|
PROMPT 1 10 "Iva su acq. annotati fino al 20 dic. "
|
|
FLAGS "RD"
|
|
PICTURE "."
|
|
END
|
|
|
|
NUMBER F_PERPRO 15
|
|
BEGIN
|
|
PROMPT 1 11 "meno % di prorata pari a Lire "
|
|
FLAGS "RD"
|
|
PICTURE "."
|
|
END
|
|
|
|
NUMBER F_CREPRE 15
|
|
BEGIN
|
|
PROMPT 1 12 "Credito precedente "
|
|
FLAGS "RD"
|
|
PICTURE "."
|
|
END
|
|
|
|
NUMBER F_ULTDET 15
|
|
BEGIN
|
|
PROMPT 1 13 "Ulteriori detrazioni "
|
|
FLAGS "RD"
|
|
PICTURE "."
|
|
END
|
|
|
|
NUMBER F_IVAREC 15
|
|
BEGIN
|
|
PROMPT 1 14 "Rettifiche iva a credito "
|
|
FLAGS "RD"
|
|
PICTURE "."
|
|
END
|
|
|
|
NUMBER F_RISACQ 15
|
|
BEGIN
|
|
PROMPT 1 15 "RISULTATO "
|
|
FLAGS "RD"
|
|
PICTURE "."
|
|
END
|
|
|
|
NUMBER F_IVACRE 15
|
|
BEGIN
|
|
PROMPT 15 16 "IVA A CREDITO "
|
|
FLAGS "RD"
|
|
PICTURE "."
|
|
NUM_CALC {#F_RISACQ - #F_RISVEN}
|
|
END
|
|
|
|
NUMBER F_CREEVI 15
|
|
BEGIN
|
|
PROMPT 6 17 "CREDITO DA EVIDENZIARE "
|
|
FLAGS "RD"
|
|
PICTURE "."
|
|
END
|
|
|
|
NUMBER F_IVADEB 15
|
|
BEGIN
|
|
PROMPT 16 16 "IVA A DEBITO "
|
|
FLAGS "RD"
|
|
PICTURE "."
|
|
NUM_CALC {#F_RISVEN - #F_RISACQ}
|
|
END
|
|
|
|
NUMBER F_ACCVER 15
|
|
BEGIN
|
|
PROMPT 10 17 "ACCONTO DA VERSARE "
|
|
FLAGS "RD"
|
|
PICTURE "."
|
|
END
|
|
|
|
NUMBER F_ACCNVER 15
|
|
BEGIN
|
|
PROMPT 6 17 "ACCONTO DA NON VERSARE "
|
|
FLAGS "RD"
|
|
PICTURE "."
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|
|
|