campo-sirio/ba/batbtrb.uml

#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