#include "ba3200.h"

PAGE "Stampa Tabella IV direttiva CEE" -1 -1 69 8

STRING F_INIZIO1 1
BEGIN
	PROMPT 2 1 "Da sezione "
	FLAGS "U"
	HELP "Inserire il codice d'inizio "
        FIELD LF_TABCOM->CODTAB[1,1]
  USE %IVD 
  INPUT CODTAB[1,1] F_INIZIO1
  INPUT CODTAB[2,2] F_INIZIO2
  INPUT CODTAB[3,10] F_INIZIO3
  INPUT CODTAB[11,12] F_INIZIO4
  DISPLAY "Sezione" CODTAB[1,1]
  DISPLAY "Lettera" CODTAB[2,2]
  DISPLAY "Classe  " CODTAB[3,10]
  DISPLAY "Numero" CODTAB[11,12]
	DISPLAY "Descrizione@50" S0
  OUTPUT F_INIZIO1 CODTAB[1,1]
  OUTPUT F_INIZIO2 CODTAB[2,2]
  OUTPUT F_INIZIO3 CODTAB[3,10]
  OUTPUT F_INIZIO4 CODTAB[11,12]
	GROUP 1
END

STRING F_INIZIO2 1
BEGIN
	PROMPT 17 1 "Da lettera "
	FLAGS "U"
	HELP "Inserire il codice d'inizio "
        FIELD LF_TABCOM->CODTAB[2,2]
	COPY ALL F_INIZIO1
	GROUP 1
END

NUMBER F_INIZIO3 8
BEGIN
	PROMPT 32 1 "Da classe "
  FLAGS "UM"
	HELP "Inserire il codice d'inizio "
        FIELD LF_TABCOM->CODTAB[3,10]
	COPY ALL F_INIZIO1
	GROUP 1
END

NUMBER F_INIZIO4 2
BEGIN
	PROMPT 53 1 "Da numero "
	FLAGS "RZ"
	HELP "Inserire il codice d'inizio "
        FIELD LF_TABCOM->CODTAB[11,12]
	COPY ALL F_INIZIO1
	GROUP 1
END

STRING F_FINE1 1
BEGIN
	PROMPT 2 3 "A sezione  "
	HELP "Inserire il codice di fine  "
        FIELD LF_TABCOM->CODTAB[1,1]
  FLAGS "U"
	COPY USE F_INIZIO1
  INPUT CODTAB[1,1] F_FINE1
  INPUT CODTAB[2,2] F_FINE2
  INPUT CODTAB[3,10] F_FINE3
  INPUT CODTAB[11,12] F_FINE4
	COPY DISPLAY F_INIZIO1
  OUTPUT F_FINE1 CODTAB[1,1]
  OUTPUT F_FINE2 CODTAB[2,2]
  OUTPUT F_FINE3 CODTAB[3,10]
  OUTPUT F_FINE4 CODTAB[11,12]
	GROUP 2
END

STRING F_FINE2 1
BEGIN
	PROMPT 17 3 "A lettera  "
	FLAGS "U"
	COPY ALL F_FINE1
	HELP "Inserire il codice di fine  "
        FIELD LF_TABCOM->CODTAB[2,2]
	GROUP 2
END

NUMBER F_FINE3 8
BEGIN
	PROMPT 32 3 "A classe  "
  FLAGS "UM"
	HELP "Inserire il codice di fine  "
        FIELD LF_TABCOM->CODTAB[3,10]
	COPY ALL F_FINE1
	GROUP 2
END

NUMBER F_FINE4 2
BEGIN
	PROMPT 53 3 "A numero  "
	FLAGS "RZ"
	HELP "Inserire il codice di fine  "
        FIELD LF_TABCOM->CODTAB[11,12]
	COPY ALL F_FINE1
	GROUP 2
END

BUTTON DLG_OK 8 2
BEGIN
	PROMPT -12 -1 ""
END

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

ENDPAGE
ENDMASK