41cad56e5e
which included commits to RCS files with non-trunk default branches. git-svn-id: svn://10.65.10.50/trunk@1835 c028cbd2-c16b-5b4b-a496-9718f37d4682
120 lines
2.3 KiB
Plaintext
Executable File
120 lines
2.3 KiB
Plaintext
Executable File
#include "ab0200.h"
|
|
|
|
TOOLBAR "" 0 20 0 2
|
|
|
|
#include <toolbar.h>
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Piano dei Conti" 0 -1 0 19
|
|
|
|
GROUPBOX DLG_NULL 76 5
|
|
BEGIN
|
|
PROMPT 1 0 ""
|
|
FLAGS "R"
|
|
END
|
|
|
|
NUMBER F_CODICE 10
|
|
BEGIN
|
|
PROMPT 2 1 "Codice tabella "
|
|
HELP "Codice della tabella Piano dei Conti"
|
|
FIELD LF_ABPCON->CODCBL
|
|
KEY 1
|
|
USE LF_ABPCON KEY 1
|
|
INPUT CODCBL F_CODICE
|
|
DISPLAY "Codice@10" CODCBL
|
|
DISPLAY "Descrizione@80" DESCRIZ
|
|
OUTPUT F_CODICE CODCBL
|
|
OUTPUT F_DESCRIZ1 DESCRIZ[1,40]
|
|
OUTPUT F_DESCRIZ2 DESCRIZ[41,]
|
|
CHECKTYPE REQUIRED
|
|
FLAGS "R"
|
|
END
|
|
|
|
STRING F_DESCRIZ1 40
|
|
BEGIN
|
|
PROMPT 2 2 "I parte descrizione "
|
|
FIELD LF_ABPCON->DESCRIZ[1,40]
|
|
KEY 2
|
|
USE LF_ABPCON KEY 2
|
|
INPUT DESCRIZ[1,40] F_DESCRIZ1
|
|
DISPLAY "Descrizione@80" DESCRIZ
|
|
DISPLAY "Codice@10" CODCBL
|
|
COPY OUTPUT F_CODICE
|
|
HELP "Prima parte della descrizione"
|
|
WARNING "Manca la descrizione"
|
|
CHECKTYPE REQUIRED // Guy: perche' non cosi'?
|
|
END
|
|
|
|
STRING F_DESCRIZ2 40
|
|
BEGIN
|
|
PROMPT 2 3 "II parte descrizione "
|
|
FIELD LF_ABPCON->DESCRIZ[41,]
|
|
KEY 2
|
|
HELP "Seconda parte della descrizione"
|
|
END
|
|
|
|
NUMBER F_LIVELLO 2
|
|
BEGIN
|
|
PROMPT 2 6 "Livello di struttura "
|
|
HELP "Inserire il livello di struttura: il valore deve essere compreso fra 1 e 99"
|
|
FIELD LF_ABPCON->LIVELLO
|
|
FLAGS "R"
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
LIST F_INDBIL 14
|
|
BEGIN
|
|
PROMPT 2 8 "Indicatore di bilancio "
|
|
FIELD LF_ABPCON->INDBIL
|
|
ITEM "1|Attivita'"
|
|
ITEM "2|Passivita'"
|
|
ITEM "3|Costi"
|
|
ITEM "4|Ricavi"
|
|
ITEM "5|Conti d'ordine"
|
|
ITEM "9|Varie"
|
|
END
|
|
|
|
NUMBER F_CODCONTR 10
|
|
BEGIN
|
|
PROMPT 2 10 "Conto di sez.bil.opposta "
|
|
HELP "Inserire il conto di sezione di bilancio opposta"
|
|
FIELD LF_ABPCON->CODCONTR
|
|
USE LF_ABPCON KEY 1
|
|
INPUT CODCBL F_CODCONTR
|
|
DISPLAY "Codice@10" CODCBL
|
|
DISPLAY "Ind.bil" INDBIL
|
|
DISPLAY "Descrizione@80" DESCRIZ
|
|
OUTPUT F_CODCONTR CODCBL
|
|
OUTPUT F_DESCRCONTR1 DESCRIZ[1,33]
|
|
OUTPUT F_DESCRCONTR2 DESCRIZ[34,]
|
|
CHECKTYPE NORMAL
|
|
ADD RUN AB0 -1 #F_CODICE #F_INDBIL
|
|
FLAGS "R"
|
|
END
|
|
|
|
STRING F_DESCRCONTR1 33
|
|
BEGIN
|
|
PROMPT 41 10 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_DESCRCONTR2 47
|
|
BEGIN
|
|
PROMPT 27 11 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
LIST F_DETTAGLIO 10
|
|
BEGIN
|
|
PROMPT 2 13 "Dettaglio/Movimenti "
|
|
FIELD LF_ABPCON->DETT
|
|
ITEM " |Nessuno"
|
|
ITEM "D|Dettaglio"
|
|
ITEM "M|Movimenti"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|