102 lines
2.0 KiB
Plaintext
Executable File
102 lines
2.0 KiB
Plaintext
Executable File
#include "../ab/ab0200.h"
|
|
|
|
TOOLBAR "topbar" 0 0 0 2
|
|
#include <relapbar.h>
|
|
ENDPAGE
|
|
|
|
PAGE "Piano dei Conti" 0 -1 0 19
|
|
|
|
GROUPBOX DLG_NULL 76 6
|
|
BEGIN
|
|
PROMPT 1 0 ""
|
|
FLAGS "R"
|
|
END
|
|
|
|
NUMBER F_CODICE 12
|
|
BEGIN
|
|
PROMPT 2 2 "Codice conto "
|
|
HELP "Codice della tabella Piano dei Conti"
|
|
FIELD LF_ABPCON->CODCBL
|
|
KEY 1
|
|
USE LF_ABPCON KEY 1
|
|
INPUT CODCBL F_CODICE
|
|
DISPLAY "Codice@12" CODCBL
|
|
DISPLAY "Descrizione@40" DESCRIZ
|
|
DISPLAY "I.B." INDBIL
|
|
DISPLAY "Codice opp.@12" CODCONTR
|
|
DISPLAY "Sospeso@2" SOSPESO
|
|
OUTPUT F_CODICE CODCBL
|
|
OUTPUT F_DESCRIZ DESCRIZ
|
|
CHECKTYPE REQUIRED
|
|
FLAGS "ZRU"
|
|
END
|
|
|
|
STRING F_DESCRIZ 80 40
|
|
BEGIN
|
|
PROMPT 2 4 "Descrizione "
|
|
FIELD LF_ABPCON->DESCRIZ
|
|
KEY 2
|
|
USE LF_ABPCON KEY 2
|
|
INPUT DESCRIZ F_DESCRIZ
|
|
DISPLAY "Descrizione@40" DESCRIZ
|
|
DISPLAY "Codice@12" CODCBL
|
|
DISPLAY "I.B." INDBIL
|
|
DISPLAY "Codice opp.@12" CODCONTR
|
|
DISPLAY "Sospeso@2" SOSPESO
|
|
COPY OUTPUT F_CODICE
|
|
HELP "Prima parte della descrizione"
|
|
WARNING "Manca la descrizione"
|
|
CHECKTYPE REQUIRED // Guy: perche' non cosi'?
|
|
END
|
|
|
|
|
|
LIST F_INDBIL 15
|
|
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 12
|
|
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@12" CODCBL
|
|
DISPLAY "Descrizione@40" DESCRIZ
|
|
DISPLAY "I.B." INDBIL
|
|
DISPLAY "Codice@12" CODCONTR
|
|
DISPLAY "Sospeso@2" SOSPESO
|
|
OUTPUT F_CODCONTR CODCBL
|
|
CHECKTYPE NORMAL
|
|
ADD RUN AB0 -1 #F_CODICE #F_INDBIL
|
|
FLAGS "ZRU"
|
|
END
|
|
|
|
//Questo campo è stato tolto
|
|
//LIST F_DETTAGLIO 15
|
|
//BEGIN
|
|
// PROMPT 2 14 "Dettaglio/Movimenti "
|
|
// FIELD LF_ABPCON->DETT
|
|
// ITEM " |Nessuno"
|
|
// ITEM "D|Dettaglio"
|
|
// ITEM "M|Movimenti"
|
|
//END
|
|
|
|
BOOLEAN SOSPENDI
|
|
BEGIN
|
|
PROMTP 2 16 " Conto sospeso"
|
|
FIELD LF_ABPCON->SOSPESO
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|