campo-sirio/src/ri/ritbrco.uml
mtollari 1b14ec9415 Spostamento cartella sorgenti
git-svn-id: svn://10.65.10.50/branches/R_10_00@23236 c028cbd2-c16b-5b4b-a496-9718f37d4682
2016-09-09 13:59:02 +00:00

57 lines
827 B
Plaintext
Executable File

#include "ritbrco.h"
TOOLBAR "topbar" 0 0 0 2
#include <relapbar.h>
ENDPAGE
PAGE "Conti" -1 -1 78 15
GROUPBOX DLG_NULL 78 3
BEGIN
PROMPT 1 1 "Conto"
END
NUMBER F_CODTAB 7
BEGIN
PROMPT 2 2 ""
FIELD CODTAB
USE &RCO
INPUT CODTAB F_CODTAB
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_CODTAB CODTAB
OUTPUT F_DESC S0
CHECKTYPE REQUIRED
FLAGS "Z"
KEY 1
END
STRING F_DESC 50
BEGIN
PROMPT 12 2 "Descrizione "
FIELD S0
USE &RCO KEY 2
INPUT S0 F_DESC
DISPLAY "Descrizione@50" S0
DISPLAY "Codice" CODTAB
COPY OUTPUT F_CODTAB
KEY 2
CHECKTYPE REQUIRED
END
LIST F_INDBIL 15
BEGIN
PROMPT 2 4 "Indicatore di bilancio "
FIELD I0
ITEM "1|Attivita'"
ITEM "2|Passivita'"
ITEM "3|Costi"
ITEM "4|Ricavi"
ITEM "5|Conti d'ordine"
ITEM "9|Varie"
END
ENDPAGE
ENDMASK