campo-sirio/ba/bast%ivd.uml

#include "ba3200.h"

PAGE "Stampa Tabella IV direttiva CEE" -1 -1 68 9
          
GROUPBOX DLG_NULL 66 3
BEGIN
  PROMPT 1 1 "@bDa codice"
END          
          
STRING F_INIZIO1 1
BEGIN
  PROMPT 2 2 "Sezione  "
  FLAGS "U"
  HELP "Codice da cui iniziare la stampa"
  FIELD CODTAB[1,1]
  USE %IVD 
  INPUT CODTAB[1,1] F_INIZIO1
  INPUT CODTAB[2,2] F_INIZIO2
  INPUT CODTAB[3,6] F_INIZIO3
  INPUT CODTAB[7,8] F_INIZIO4
  DISPLAY "Sezione" CODTAB[1,1]
  DISPLAY "Lettera" CODTAB[2,2]
  DISPLAY "Classe  " CODTAB[3,6]
  DISPLAY "Numero" CODTAB[7,8]
  DISPLAY "Descrizione@50" S0
  OUTPUT F_INIZIO1 CODTAB[1,1]
  OUTPUT F_INIZIO2 CODTAB[2,2]
  OUTPUT F_INIZIO3 CODTAB[3,6]
  OUTPUT F_INIZIO4 CODTAB[7,8]
  GROUP 1
END

STRING F_INIZIO2 1
BEGIN
  PROMPT 17 2 "Lettera "
  FLAGS "U"
  FIELD CODTAB[2,2]
  COPY ALL F_INIZIO1
  GROUP 1
END

NUMBER F_INIZIO3 8 4
BEGIN
  PROMPT 31 2 "Classe  "
  FLAGS "UM"
  FIELD CODTAB[3,6]
  COPY ALL F_INIZIO1
  GROUP 1
END

NUMBER F_INIZIO4 2
BEGIN
  PROMPT 52 2 "Numero  "
  FLAGS "RZ"
  FIELD CODTAB[7,8]
  COPY ALL F_INIZIO1
  GROUP 1
END

GROUPBOX DLG_NULL 66 3
BEGIN
  PROMPT 1 4 "@bA Codice"
END          
          
STRING F_FINE1 1
BEGIN
  PROMPT 2 5 "Sezione  "
  HELP "Codice finale da stampare"
  FIELD CODTAB[1,1]
  FLAGS "U"
  COPY USE F_INIZIO1
  INPUT CODTAB[1,1] F_FINE1
  INPUT CODTAB[2,2] F_FINE2
  INPUT CODTAB[3,6] F_FINE3
  INPUT CODTAB[7,8] F_FINE4
  COPY DISPLAY F_INIZIO1
  OUTPUT F_FINE1 CODTAB[1,1]
  OUTPUT F_FINE2 CODTAB[2,2]
  OUTPUT F_FINE3 CODTAB[3,6]
  OUTPUT F_FINE4 CODTAB[7,8]
  GROUP 2
END

STRING F_FINE2 1
BEGIN
  PROMPT 17 5 "Lettera "
  FLAGS "U"
  COPY ALL F_FINE1
  FIELD CODTAB[2,2]
  GROUP 2
END

NUMBER F_FINE3 8 4
BEGIN
  PROMPT 31 5 "Classe  "
  FLAGS "UM"
  FIELD CODTAB[3,6]
  COPY ALL F_FINE1
  GROUP 2
END

NUMBER F_FINE4 2
BEGIN
  PROMPT 52 5 "Numero  "
  FLAGS "RZ"
  FIELD CODTAB[7,8]
  COPY ALL F_FINE1
  GROUP 2
END

BUTTON DLG_PRINT 10 2
BEGIN
  PROMPT -12 -1 "~Stampa"
  MESSAGE EXIT,K_ENTER
END

BUTTON DLG_QUIT 10 2
BEGIN
  PROMPT -22 -1 ""
END

ENDPAGE
ENDMASK