campo-sirio/ba/batbtrb.uml
alex c4c9328557 Patch level : 10.0 67
Files correlati     :
Ricompilazione Demo : [ ]
Commento           :

RIportata la verione 3.2 1167


git-svn-id: svn://10.65.10.50/trunk@16716 c028cbd2-c16b-5b4b-a496-9718f37d4682
2008-06-11 10:16:22 +00:00

106 lines
1.7 KiB
Plaintext
Executable File

#include "batbtrb.h"
TOOLBAR "topbar" 0 0 0 2
#include <relapbar.h>
ENDPAGE
PAGE "Tabella Codici Tributo" -1 -1 78 8
GROUPBOX DLG_NULL 75 6
BEGIN
PROMPT 1 0 ""
FLAGS "R"
END
STRING F_CODICE 4
BEGIN
PROMPT 4 2 "Codice "
FIELD CODTAB
KEY 1
USE %TRB
INPUT CODTAB F_CODICE
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
DISPLAY "Sezione" S6
OUTPUT F_CODICE CODTAB
OUTPUT F_DESCR S0
FLAGS "U"
CHECKTYPE REQUIRED
END
STRING F_DESCR 70 50
BEGIN
PROMPT 4 4 "Descrizione "
FIELD S0
KEY 2
USE %TRB KEY 2
INPUT S0 F_DESCR
DISPLAY "Descrizione@50" S0
DISPLAY "Codice" CODTAB
DISPLAY "Sezione" S6
COPY OUTPUT F_CODICE
CHECKTYPE REQUIRED
END
LIST F_SEZIONE 1 50
BEGIN
PROMPT 4 6 "Sezione "
ITEM "E|Erario"
ITEM "I|INPS"
ITEM "R|Regioni"
ITEM "L|ICI ed altri tributi locali"
ITEM "N|INAIL"
ITEM "P|Altri enti previdenziali ed assicurativi"
FIELD S6
END
NUMBER F_GRUPPO 3
BEGIN
PROMPT 4 8 "Conto "
FIELD I0
CHECKTYPE NORMAL
END
NUMBER F_CONTO 3
BEGIN
PROMPT 23 8 ""
FIELD I1
CHECKTYPE NORMAL
END
NUMBER F_SOTTOC 6
BEGIN
PROMPT 30 8 ""
FIELD I2
USE LF_PCON KEY 1 SELECT SOTTOCONTO!=""
INPUT GRUPPO F_GRUPPO
INPUT CONTO F_CONTO
INPUT SOTTOCONTO F_SOTTOC
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
DISPLAY "Descrizione@50" DESCR
OUTPUT F_GRUPPO GRUPPO
OUTPUT F_CONTO CONTO
OUTPUT F_SOTTOC SOTTOCONTO
OUTPUT F_DESCRC DESCR
CHECKTYPE NORMAL
END
STRING F_DESCRC 50
BEGIN
PROMPT 4 9 "Descrizione "
USE LF_PCON KEY 2
INPUT DESCR F_DESCRC
DISPLAY "Descrizione@50" DESCR
DISPLAY "Gruppo" GRUPPO
DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO
COPY OUTPUT F_SOTTOC
CHECKTYPE NORMAL
END
ENDPAGE
ENDMASK