Files correlati : Ricompilazione Demo : [ ] Commento :stampa pagato in progress git-svn-id: svn://10.65.10.50/trunk@13525 c028cbd2-c16b-5b4b-a496-9718f37d4682
230 lines
3.5 KiB
Plaintext
Executable File
230 lines
3.5 KiB
Plaintext
Executable File
#include "ca3601.h"
|
|
#include "camask.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 "Configurazione conti" -1 -1 78 20
|
|
|
|
LIST F_PIANO 1 12
|
|
BEGIN
|
|
PROMPT 1 1 "Piano dei conti "
|
|
ITEM "A|Analitico"
|
|
MESSAGE HIDE,5@|SHOW,6@
|
|
ITEM "C|Contabile"
|
|
MESSAGE HIDE,6@|SHOW,5@
|
|
FLAGS "G"
|
|
END
|
|
|
|
/*GROUPBOX F_PRE0 76 4
|
|
BEGIN
|
|
PROMPT 1 1 "@bPrefisso del piano dei conti analitico:"
|
|
GROUP 6
|
|
END*/
|
|
|
|
TEXT -1
|
|
BEGIN
|
|
PROMPT 1 5 "@bPiano dei conti contabile"
|
|
GROUP 5
|
|
END
|
|
|
|
SPREADSHEET F_PDCC 78 -1
|
|
BEGIN
|
|
PROMPT 1 3 "Pdcc"
|
|
ITEM "Tipo"
|
|
ITEM "Gruppo"
|
|
ITEM "Conto"
|
|
ITEM "Sottoconto"
|
|
ITEM "Descrizione@50"
|
|
GROUP 5
|
|
END
|
|
|
|
TEXT -1
|
|
BEGIN
|
|
PROMPT 1 5 "@bPiano dei conti analitico"
|
|
GROUP 6
|
|
END
|
|
|
|
SPREADSHEET F_PDCA 78 -1
|
|
BEGIN
|
|
PROMPT 1 3 "Pdca"
|
|
ITEM "Tipo"
|
|
ITEM "Cdc2"
|
|
ITEM "Cdc3"
|
|
ITEM "Cdc4"
|
|
ITEM "Cdc5"
|
|
GROUP 6
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|
|
|
|
//----------------------Piano dei conti contabile------------------------------//
|
|
//-----------Pagina di riga dello sheet PDCC----------------------//
|
|
|
|
PAGE "Riga Piano dei conti contabile" -1 -1 78 8
|
|
|
|
LIST S_TIPO 1 18
|
|
BEGIN
|
|
PROMPT 1 1 "Tipo "
|
|
ITEM "C|Costo"
|
|
ITEM "P|Pagamento"
|
|
ITEM "F|Ritenute fiscali"
|
|
ITEM "S|Ritenute sociali"
|
|
END
|
|
|
|
NUMBER S_CDC2 3
|
|
BEGIN
|
|
PROMPT 1 2 "Gruppo "
|
|
USE LF_PCON KEY 1 SELECT CONTO=""
|
|
INPUT GRUPPO S_CDC2
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT S_CDC2 GRUPPO
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
NUMBER S_CDC3 3
|
|
BEGIN
|
|
PROMPT 1 3 "Conto "
|
|
USE LF_PCON KEY 1 SELECT ((CONTO!="")&&(SOTTOCONTO=""))
|
|
COPY INPUT S_CDC2
|
|
INPUT CONTO S_CDC3
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT S_CDC2 GRUPPO
|
|
OUTPUT S_CDC3 CONTO
|
|
CHECKTYPE NORMAL
|
|
VALIDATE REQIF_FUNC 1 S_CDC4
|
|
END
|
|
|
|
NUMBER S_CDC4 6
|
|
BEGIN
|
|
PROMPT 1 4 "Sottoconto "
|
|
USE LF_PCON KEY 1 SELECT SOTTOCONTO!=""
|
|
COPY INPUT S_CDC3
|
|
INPUT SOTTOCONTO S_CDC4
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Sottoconto" SOTTOCONTO
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT S_CDC4 SOTTOCONTO
|
|
OUTPUT S_CDC3 CONTO
|
|
OUTPUT S_CDC2 GRUPPO
|
|
OUTPUT S_DESCRIZIONE DESCR
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING S_DESCRIZIONE 50
|
|
BEGIN
|
|
PROMPT 1 5 "Descrizione "
|
|
KEY 2
|
|
USE LF_PCON KEY 2
|
|
INPUT DESCR S_DESCRIZIONE
|
|
DISPLAY "Descrizione@50" DESCR
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Sottoconto" SOTTOCONTO
|
|
COPY OUTPUT S_CDC4
|
|
CHECKTYPE REQUIRED
|
|
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
|
|
|
|
//----------------------Piano dei conti analitico------------------------------//
|
|
//-----------Pagina di riga dello sheet PDCA----------------------//
|
|
|
|
PAGE "Riga Piano dei conti analitico" -1 -1 78 8
|
|
|
|
LIST S_TIPO 1 18
|
|
BEGIN
|
|
PROMPT 1 1 "Tipo "
|
|
ITEM "C|Costo"
|
|
ITEM "P|Pagamento"
|
|
ITEM "F|Ritenute fiscali"
|
|
ITEM "S|Ritenute sociali"
|
|
END
|
|
|
|
STRING S_CDC2 20
|
|
BEGIN
|
|
PROMPT 1 2 "Cdc2"
|
|
FLAGS "B"
|
|
CHECKTYPE NORMAL
|
|
GROUP 1
|
|
END
|
|
|
|
STRING S_CDC3 20
|
|
BEGIN
|
|
PROMPT 1 3 "Cdc3"
|
|
FLAGS "B"
|
|
CHECKTYPE NORMAL
|
|
GROUP 1
|
|
END
|
|
|
|
STRING S_CDC4 20
|
|
BEGIN
|
|
PROMPT 1 4 "Cdc4"
|
|
FLAGS "B"
|
|
CHECKTYPE NORMAL
|
|
GROUP 1
|
|
END
|
|
|
|
STRING S_CDC5 20
|
|
BEGIN
|
|
PROMPT 1 5 "Cdc5"
|
|
FLAGS "BG"
|
|
CHECKTYPE NORMAL
|
|
GROUP 1
|
|
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
|