20709ae1b4
Files correlati :cm1.exe,cm1100a/b.msk Ricompilazione Demo : [ ] Commento : 78 Bisogna gestire il caso di scadenze di tipo fattura che non siano movimenti IVA. Bisogna identificare il totela ritenute fiscali e sociali. Si puo' fare inserendo in configurazione una lista di conti per ciasuna della tipologie. Inoltre questi paramentri e anche gli altri già presenti dovrebbero essere modificabili da una pagina di opzioni. git-svn-id: svn://10.65.10.50/trunk@11893 c028cbd2-c16b-5b4b-a496-9718f37d4682
415 lines
7.5 KiB
Plaintext
Executable File
415 lines
7.5 KiB
Plaintext
Executable File
#include "cm1100b.h"
|
|
|
|
TOOLBAR "" 0 -2 0 2
|
|
|
|
BUTTON DLG_SAVEREC 10 2
|
|
BEGIN
|
|
PROMPT -12 -1 ""
|
|
PICTURE BMP_SAVEREC
|
|
PICTURE BMP_SAVERECDN
|
|
END
|
|
|
|
BUTTON DLG_QUIT 10 2
|
|
BEGIN
|
|
PROMPT -22 -1 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Costi / Pagamenti" -1 -1 78 20
|
|
|
|
TEXT -1
|
|
BEGIN
|
|
PROMPT 1 0 "@bCosti"
|
|
END
|
|
|
|
SPREADSHEET F_COSTI 78 10
|
|
BEGIN
|
|
PROMPT 1 1 "Costi"
|
|
ITEM "Gruppo"
|
|
ITEM "Conto"
|
|
ITEM "Sottoconto"
|
|
ITEM "Descrizione@50"
|
|
END
|
|
|
|
TEXT -1
|
|
BEGIN
|
|
PROMPT 1 11 "@bPagamenti"
|
|
END
|
|
|
|
SPREADSHEET F_PAGAMENTI 78
|
|
BEGIN
|
|
PROMPT 1 12 "Pagamenti"
|
|
ITEM "Gruppo"
|
|
ITEM "Conto"
|
|
ITEM "Sottoconto"
|
|
ITEM "Descrizione@50"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
|
|
PAGE "Ritenute Fiscali / Sociali" -1 -1 78 20
|
|
|
|
TEXT -1
|
|
BEGIN
|
|
PROMPT 1 0 "@bRitenute fiscali"
|
|
END
|
|
|
|
SPREADSHEET F_RITFIS 78 10
|
|
BEGIN
|
|
PROMPT 1 1 "Costi"
|
|
ITEM "Gruppo"
|
|
ITEM "Conto"
|
|
ITEM "Sottoconto"
|
|
ITEM "Descrizione@50"
|
|
END
|
|
|
|
TEXT -1
|
|
BEGIN
|
|
PROMPT 1 11 "@bRitenute sociali"
|
|
END
|
|
|
|
SPREADSHEET F_RITSOC 78
|
|
BEGIN
|
|
PROMPT 1 12 "Pagamenti"
|
|
ITEM "Gruppo"
|
|
ITEM "Conto"
|
|
ITEM "Sottoconto"
|
|
ITEM "Descrizione@50"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|
|
|
|
//----------------------MOVIMENTI IVA------------------------------//
|
|
//-----------Pagina di riga dello sheet costi----------------------//
|
|
|
|
PAGE "Riga Costo" -1 -1 66 10
|
|
|
|
NUMBER F_SC_GRUPPO 3
|
|
BEGIN
|
|
PROMPT 1 2 "Gruppo "
|
|
USE LF_PCON KEY 1 SELECT (CONTO="")
|
|
INPUT GRUPPO F_SC_GRUPPO
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT F_SC_GRUPPO GRUPPO
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
NUMBER F_SC_CONTO 3
|
|
BEGIN
|
|
PROMPT 1 3 "Conto "
|
|
USE LF_PCON KEY 1 SELECT (SOTTOCONTO="")
|
|
INPUT GRUPPO F_SC_GRUPPO
|
|
INPUT CONTO F_SC_CONTO
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT F_SC_CONTO CONTO
|
|
OUTPUT F_SC_GRUPPO GRUPPO
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
NUMBER F_SC_SOTTOCONTO 6
|
|
BEGIN
|
|
PROMPT 1 4 "Sottoconto "
|
|
USE LF_PCON
|
|
INPUT GRUPPO F_SC_GRUPPO
|
|
INPUT CONTO F_SC_CONTO
|
|
INPUT SOTTOCONTO F_SC_SOTTOCONTO
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Sottoconto" SOTTOCONTO
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT F_SC_SOTTOCONTO SOTTOCONTO
|
|
OUTPUT F_SC_GRUPPO GRUPPO
|
|
OUTPUT F_SC_CONTO CONTO
|
|
OUTPUT F_SC_DESCRIZIONE DESCR
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_SC_DESCRIZIONE 50
|
|
BEGIN
|
|
PROMPT 1 5 "Descrizione "
|
|
USE LF_PCON KEY 2
|
|
INPUT DESCR F_SC_DESCRIZIONE
|
|
DISPLAY "Descrizione@50" DESCR
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Sottoconto" SOTTOCONTO
|
|
OUTPUT F_SC_SOTTOCONTO SOTTOCONTO
|
|
OUTPUT F_SC_CONTO CONTO
|
|
OUTPUT F_SC_GRUPPO GRUPPO
|
|
OUTPUT F_SC_DESCRIZIONE DESCR
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
BUTTON DLG_OK 10 2
|
|
BEGIN
|
|
PROMPT -13 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_DELREC 10 2
|
|
BEGIN
|
|
PROMPT -23 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_CANCEL 10 2
|
|
BEGIN
|
|
PROMPT -33 -1 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|
|
|
|
//-----------Pagina di riga dello sheet pagamenti----------------------//
|
|
|
|
PAGE "Riga Pagamento" -1 -1 66 10
|
|
|
|
NUMBER F_SP_GRUPPO 3
|
|
BEGIN
|
|
PROMPT 1 2 "Gruppo "
|
|
USE LF_PCON KEY 1 SELECT (CONTO="")
|
|
INPUT GRUPPO F_SP_GRUPPO
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT F_SP_GRUPPO GRUPPO
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
NUMBER F_SP_CONTO 3
|
|
BEGIN
|
|
PROMPT 1 3 "Conto "
|
|
USE LF_PCON KEY 1 SELECT (SOTTOCONTO="")
|
|
INPUT GRUPPO F_SP_GRUPPO
|
|
INPUT CONTO F_SP_CONTO
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT F_SP_CONTO CONTO
|
|
OUTPUT F_SP_GRUPPO GRUPPO
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
NUMBER F_SP_SOTTOCONTO 6
|
|
BEGIN
|
|
PROMPT 1 4 "Sottoconto "
|
|
USE LF_PCON
|
|
INPUT GRUPPO F_SP_GRUPPO
|
|
INPUT CONTO F_SP_CONTO
|
|
INPUT SOTTOCONTO F_SP_SOTTOCONTO
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Sottoconto" SOTTOCONTO
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT F_SP_SOTTOCONTO SOTTOCONTO
|
|
OUTPUT F_SP_GRUPPO GRUPPO
|
|
OUTPUT F_SP_CONTO CONTO
|
|
OUTPUT F_SP_DESCRIZIONE DESCR
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_SP_DESCRIZIONE 50
|
|
BEGIN
|
|
PROMPT 1 5 "Descrizione "
|
|
USE LF_PCON KEY 2
|
|
INPUT DESCR F_SP_DESCRIZIONE
|
|
DISPLAY "Descrizione@50" DESCR
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Sottoconto" SOTTOCONTO
|
|
OUTPUT F_SP_SOTTOCONTO SOTTOCONTO
|
|
OUTPUT F_SP_CONTO CONTO
|
|
OUTPUT F_SP_GRUPPO GRUPPO
|
|
OUTPUT F_SP_DESCRIZIONE DESCR
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
BUTTON DLG_OK 10 2
|
|
BEGIN
|
|
PROMPT -13 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_DELREC 10 2
|
|
BEGIN
|
|
PROMPT -23 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_CANCEL 10 2
|
|
BEGIN
|
|
PROMPT -33 -1 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|
|
|
|
//-------------------MOVIMENTI CONTABILI---------------------------//
|
|
//-----------Pagina di riga dello sheet costi----------------------//
|
|
|
|
PAGE "Riga Ritenuta Fiscale" -1 -1 66 10
|
|
|
|
NUMBER F_FI_GRUPPO 3
|
|
BEGIN
|
|
PROMPT 1 2 "Gruppo "
|
|
USE LF_PCON KEY 1 SELECT (CONTO="")
|
|
INPUT GRUPPO F_FI_GRUPPO
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT F_FI_GRUPPO GRUPPO
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
NUMBER F_FI_CONTO 3
|
|
BEGIN
|
|
PROMPT 1 3 "Conto "
|
|
USE LF_PCON KEY 1 SELECT (SOTTOCONTO="")
|
|
INPUT GRUPPO F_FI_GRUPPO
|
|
INPUT CONTO F_FI_CONTO
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT F_FI_CONTO CONTO
|
|
OUTPUT F_FI_GRUPPO GRUPPO
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
NUMBER F_FI_SOTTOCONTO 6
|
|
BEGIN
|
|
PROMPT 1 4 "Sottoconto "
|
|
USE LF_PCON
|
|
INPUT GRUPPO F_FI_GRUPPO
|
|
INPUT CONTO F_FI_CONTO
|
|
INPUT SOTTOCONTO F_FI_SOTTOCONTO
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Sottoconto" SOTTOCONTO
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT F_FI_SOTTOCONTO SOTTOCONTO
|
|
OUTPUT F_FI_GRUPPO GRUPPO
|
|
OUTPUT F_FI_CONTO CONTO
|
|
OUTPUT F_FI_DESCRIZIONE DESCR
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_FI_DESCRIZIONE 50
|
|
BEGIN
|
|
PROMPT 1 5 "Descrizione "
|
|
USE LF_PCON KEY 2
|
|
INPUT DESCR F_FI_DESCRIZIONE
|
|
DISPLAY "Descrizione@50" DESCR
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Sottoconto" SOTTOCONTO
|
|
OUTPUT F_FI_SOTTOCONTO SOTTOCONTO
|
|
OUTPUT F_FI_CONTO CONTO
|
|
OUTPUT F_FI_GRUPPO GRUPPO
|
|
OUTPUT F_FI_DESCRIZIONE DESCR
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
BUTTON DLG_OK 10 2
|
|
BEGIN
|
|
PROMPT -13 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_DELREC 10 2
|
|
BEGIN
|
|
PROMPT -23 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_CANCEL 10 2
|
|
BEGIN
|
|
PROMPT -33 -1 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|
|
|
|
//-----------Pagina di riga dello sheet pagamenti----------------------//
|
|
|
|
PAGE "Riga Ritenuta Sociale" -1 -1 66 10
|
|
|
|
NUMBER F_SO_GRUPPO 3
|
|
BEGIN
|
|
PROMPT 1 2 "Gruppo "
|
|
USE LF_PCON KEY 1 SELECT (CONTO="")
|
|
INPUT GRUPPO F_SO_GRUPPO
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT F_SO_GRUPPO GRUPPO
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
NUMBER F_SO_CONTO 3
|
|
BEGIN
|
|
PROMPT 1 3 "Conto "
|
|
USE LF_PCON KEY 1 SELECT (SOTTOCONTO="")
|
|
INPUT GRUPPO F_SO_GRUPPO
|
|
INPUT CONTO F_SO_CONTO
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT F_SO_CONTO CONTO
|
|
OUTPUT F_SO_GRUPPO GRUPPO
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
NUMBER F_SO_SOTTOCONTO 6
|
|
BEGIN
|
|
PROMPT 1 4 "Sottoconto "
|
|
USE LF_PCON
|
|
INPUT GRUPPO F_SO_GRUPPO
|
|
INPUT CONTO F_SO_CONTO
|
|
INPUT SOTTOCONTO F_SO_SOTTOCONTO
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Sottoconto" SOTTOCONTO
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT F_SO_SOTTOCONTO SOTTOCONTO
|
|
OUTPUT F_SO_GRUPPO GRUPPO
|
|
OUTPUT F_SO_CONTO CONTO
|
|
OUTPUT F_SO_DESCRIZIONE DESCR
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_SO_DESCRIZIONE 50
|
|
BEGIN
|
|
PROMPT 1 5 "Descrizione "
|
|
USE LF_PCON KEY 2
|
|
INPUT DESCR F_SO_DESCRIZIONE
|
|
DISPLAY "Descrizione@50" DESCR
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Sottoconto" SOTTOCONTO
|
|
OUTPUT F_SO_SOTTOCONTO SOTTOCONTO
|
|
OUTPUT F_SO_CONTO CONTO
|
|
OUTPUT F_SO_GRUPPO GRUPPO
|
|
OUTPUT F_SO_DESCRIZIONE DESCR
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
BUTTON DLG_OK 10 2
|
|
BEGIN
|
|
PROMPT -13 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_DELREC 10 2
|
|
BEGIN
|
|
PROMPT -23 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_CANCEL 10 2
|
|
BEGIN
|
|
PROMPT -33 -1 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|