134 lines
2.7 KiB
Plaintext
Executable File
134 lines
2.7 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@11" CODCBL
|
|
DISPLAY "Descrizione@40" DESCRIZ[1,40]
|
|
DISPLAY "I.B." INDBIL
|
|
DISPLAY "Codice opp.@11" CODCONTR
|
|
OUTPUT F_CODICE CODCBL
|
|
OUTPUT F_DESCRIZ1 DESCRIZ[1,40]
|
|
OUTPUT F_DESCRIZ2 DESCRIZ[41,]
|
|
CHECKTYPE REQUIRED
|
|
FLAGS "Z"
|
|
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@40" DESCRIZ[1,40]
|
|
DISPLAY "Codice@11" CODCBL
|
|
DISPLAY "I.B." INDBIL
|
|
DISPLAY "Codice opp.@11" CODCONTR
|
|
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 (1-99) "
|
|
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 16
|
|
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
|
|
INPUT CODCBL F_CODCONTR
|
|
DISPLAY "Codice@11" CODCBL
|
|
DISPLAY "Descrizione@40" DESCRIZ[1,40]
|
|
DISPLAY "I.B." INDBIL
|
|
DISPLAY "Codice@11" CODCONTR
|
|
OUTPUT F_CODCONTR CODCBL
|
|
OUTPUT F_DESCRCONTR1 DESCRIZ[1,40]
|
|
OUTPUT F_DESCRCONTR2 DESCRIZ[41,]
|
|
CHECKTYPE NORMAL
|
|
ADD RUN AB0 -1 #F_CODICE #F_INDBIL
|
|
FLAGS "Z"
|
|
END
|
|
|
|
STRING F_DESCRCONTR1 40
|
|
BEGIN
|
|
PROMPT 30 11 ""
|
|
USE LF_ABPCON KEY 2
|
|
INPUT DESCRIZ F_DESCRCONTR1
|
|
DISPLAY "Descrizione@40" DESCRIZ[1,40]
|
|
DISPLAY "Codice@11" CODCBL
|
|
DISPLAY "I.B." INDBIL
|
|
DISPLAY "Codice@11" CODCONTR
|
|
OUTPUT F_CODCONTR CODCBL
|
|
OUTPUT F_DESCRCONTR1 DESCRIZ[1,40]
|
|
OUTPUT F_DESCRCONTR2 DESCRIZ[41,]
|
|
ADD RUN AB0 -1 #F_CODICE #F_INDBIL
|
|
END
|
|
|
|
STRING F_DESCRCONTR2 40
|
|
BEGIN
|
|
PROMPT 30 12 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
LIST F_DETTAGLIO 11
|
|
BEGIN
|
|
PROMPT 2 13 "Dettaglio/Movimenti "
|
|
FIELD LF_ABPCON->DETT
|
|
ITEM " |Nessuno"
|
|
ITEM "D|Dettaglio"
|
|
ITEM "M|Movimenti"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|