campo-sirio/ca/ca0400a.uml
alex f604712a95 Patch level : 2.2 82
Files correlati     :   ca0.exe
Ricompilazione Demo : [ ]
Commento            :

Aggiunto il collegamento tra piano dei conti analitica e piano dei conti contabile


git-svn-id: svn://10.65.10.50/trunk@12968 c028cbd2-c16b-5b4b-a496-9718f37d4682
2005-04-20 22:59:40 +00:00

153 lines
2.4 KiB
Plaintext
Executable File

#include "ca0400a.h"
TOOLBAR "" 0 -3 0 3
#include <toolbar.h>
ENDPAGE
PAGE "Piano dei conti analitica" -1 -1 80 20
GROUPBOX DLG_NULL 78 6
BEGIN
PROMPT 2 0 ""
END
RADIOBUTTON F_SEZSALDI 1 16
BEGIN
PROMPT 2 7 "Sezione saldi"
ITEM "D|Dare"
ITEM "A|Avere"
FIELD SEZSALDI
END
BOOLEAN F_SOSPESO
BEGIN
PROMPT 2 12 "Sospeso"
FIELD SOSPESO
END
ENDPAGE
PAGE "Piano dei conti contabile" -1 -1 64 6
TEXT DLG_NULL
BEGIN
PROMPT 1 2 "@bConti di contabilità collegati"
END
SPREADSHEET F_SHEET 79 -1
BEGIN
PROMPT 1 3 ""
ITEM "Gruppo"
ITEM "Conto"
ITEM "Sottoconto"
ITEM "Descrizione@50"
END
ENDPAGE
ENDMASK
PAGE "Sheet" -1 -1 78 8
NUMBER FR_GRUPPO 3
BEGIN
PROMPT 1 1 "Gruppo "
USE LF_PCON SELECT CONTO==""
INPUT GRUPPO FR_GRUPPO
DISPLAY "Gruppo" GRUPPO
DISPLAY "Descrizione@50" DESCR
OUTPUT FR_GRUPPO GRUPPO
OUTPUT FR_DESCRG DESCR
CHECKTYPE REQUIRED
END
STRING FR_DESCRG 50
BEGIN
PROMPT 25 1 ""
USE LF_PCON KEY 2 SELECT CONTO==""
INPUT DESCR FR_DESCRG
DISPLAY "Descrizione@50" DESCR
DISPLAY "Gruppo" GRUPPO
COPY OUTPUT FR_GRUPPO
CHECKTYPE SEARCH
END
NUMBER FR_CONTO 3
BEGIN
PROMPT 1 3 "Conto "
USE LF_PCON SELECT SOTTOCONTO==""
INPUT GRUPPO FR_GRUPPO
INPUT CONTO FR_CONTO
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Descrizione@50" DESCR
OUTPUT FR_GRUPPO GRUPPO
OUTPUT FR_CONTO CONTO
OUTPUT FR_DESCRC DESCR
CHECKTYPE REQUIRED
END
STRING FR_DESCRC 50
BEGIN
PROMPT 25 3 ""
USE LF_PCON KEY 2 SELECT SOTTOCONTO==""
INPUT DESCR FR_DESCRC
DISPLAY "Descrizione@50" DESCR
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
COPY OUTPUT FR_CONTO
CHECKTYPE SEARCH
END
NUMBER FR_SOTTOCONTO 6
BEGIN
PROMPT 1 5 "Sottoconto "
USE LF_PCON
INPUT GRUPPO FR_GRUPPO
INPUT CONTO FR_CONTO
INPUT SOTTOCONTO FR_SOTTOCONTO
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
DISPLAY "Descrizione@50" DESCR
OUTPUT FR_GRUPPO GRUPPO
OUTPUT FR_CONTO CONTO
OUTPUT FR_SOTTOCONTO SOTTOCONTO
OUTPUT FR_DESCRS DESCR
CHECKTYPE NORMAL
END
STRING FR_DESCRS 50
BEGIN
PROMPT 25 5 ""
USE LF_PCON KEY 2
INPUT DESCR FR_DESCRS
DISPLAY "Descrizione@50" DESCR
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
COPY OUTPUT FR_SOTTOCONTO
CHECKTYPE SEARCH
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