campo-sirio/ve/batbnum.uml

#include "batbnum.h"

TOOLBAR "" 0 20 60 2

   #include "toolbar.h"

ENDPAGE

PAGE "Tabella numerazioni Pagina 1/2" -1 -1 60 14

   GROUPBOX DLG_NULL 84 4
   BEGIN
      PROMPT 1 1 ""
      // FLAG "R"
   END

   GROUPBOX DLG_NULL 84 13
   BEGIN
      PROMPT 1 5 ""
      // FLAG "R"
   END

   STRING F_CODTAB 4
   BEGIN
      PROMPT 2 2 "Codice numerazione              "
      FIELD CODTAB
      HELP "Codice numerazione" 
      USE NUM 
      CHECKTYPE REQUIRED
      INPUT CODTAB F_CODTAB
      DISPLAY "Codice" CODTAB
      DISPLAY "Descrizione@50" S0
      OUTPUT F_CODTAB CODTAB
      OUTPUT F_DESNUM S0
      KEY 1
      FLAG "UZ"
   END

   STRING F_DESNUM 40
   BEGIN
      PROMPT 2 3 "Descrizione numerazione         "
      FIELD S0
      HELP "Descrizione numerazione" 
      USE NUM 
      CHECKTYPE REQUIRED
      INPUT S0 F_DESNUM
      DISPLAY "Codice" CODTAB
      DISPLAY "Descrizione@50" S0
      OUTPUT F_CODTAB CODTAB
      OUTPUT F_DESNUM S0
      KEY 2
   END

   NUMBER F_ULTNUM 7 0
   BEGIN
      PROMPT 2 6 "Numero ultimo documento emesso  "
      FIELD I0
      FLAG "R"
   END

   NUMBER F_ULTNUMPROV 7 0
   BEGIN
      PROMPT 2 7 "Numero ultimo documento creato  "
      FIELD I1
      FLAG "R"
   END

   DATE F_ULTDATA
   BEGIN
      PROMPT 2 9 "Data emissione ultimo documento "
      FIELD D0
   END

   STRING F_PREFISSO 7
   BEGIN
      PROMPT 2 11 "Prefisso numerazione            "
      FIELD S6
   END

   STRING F_SUFFISSO 7
   BEGIN
      PROMPT 2 12 "Suffisso numerazione            "
      FIELD S7
   END

   STRING F_ANNO 4
   BEGIN
      PROMPT 2 14 "Anno d'esercizio                "
      FIELD S8
   END

ENDPAGE

PAGE "Tabella numerazioni Pagina 2/2" -1 -1 60 14
	
   GROUPBOX DLG_NULL 64 15
   BEGIN
      PROMPT 1 1 ""
      // FLAG "R"
   END

	TEXT DLG_NULL
	BEGIN
	   PROMPT 2 2 "Tipi di documento validi per la numerazione"
	END
	
   STRING F_TIPODOC1 4
   BEGIN
      PROMPT 2 4 ""
		USE TIP
		INPUT CODTAB F_TIPODOC1
		DISPLAY "Codice" CODTAB
      DISPLAY "Descrizione@50" S0
      OUTPUT F_TIPODOC1 TIP->CODTAB
      OUTPUT F_DESDOC1 TIP->S0
      HELP "Tipo di documento 1" 
      FIELD S2[1,4]
      CHECKTYPE NORMAL
   END

	STRING F_DESDOC1 40
	BEGIN
	   PROMPT 10 4 ""
	   FLAG "D"
	END

   STRING F_TIPODOC2 4
   BEGIN
      PROMPT 2 5 ""
		USE TIP
		INPUT CODTAB F_TIPODOC2
		DISPLAY "Codice" CODTAB
      DISPLAY "Descrizione@50" S0
      OUTPUT F_TIPODOC2 TIP->CODTAB
      OUTPUT F_DESDOC2 TIP->S0
      HELP "Tipo di documento 2" 
      FIELD S2[5,8]
      CHECKTYPE NORMAL
   END

	STRING F_DESDOC2 40
	BEGIN
	   PROMPT 10 5 ""
	   FLAG "D"
	END
	
   STRING F_TIPODOC3 4
   BEGIN
      PROMPT 2 6 ""
		USE TIP
		INPUT CODTAB F_TIPODOC3
		DISPLAY "Codice" CODTAB
      DISPLAY "Descrizione@50" S0
      OUTPUT F_TIPODOC3 TIP->CODTAB
      OUTPUT F_DESDOC3 TIP->S0
      HELP "Tipo di documento 3" 
      FIELD S2[9,12]
      CHECKTYPE NORMAL
   END

	STRING F_DESDOC3 40
	BEGIN
	   PROMPT 10 6 ""
	   FLAG "D"
	END
	
   STRING F_TIPODOC4 4
   BEGIN
      PROMPT 2 7 ""
		USE TIP
		INPUT CODTAB F_TIPODOC4
		DISPLAY "Codice" CODTAB
      DISPLAY "Descrizione@50" S0
      OUTPUT F_TIPODOC4 TIP->CODTAB
      OUTPUT F_DESDOC4 TIP->S0
      HELP "Tipo di documento 4" 
      FIELD S2[13,16]
      CHECKTYPE NORMAL
   END

	STRING F_DESDOC4 40
	BEGIN
	   PROMPT 10 7 ""
	   FLAG "D"
	END
	
   STRING F_TIPODOC5 4
   BEGIN
      PROMPT 2 8 ""
		USE TIP
		INPUT CODTAB F_TIPODOC5
		DISPLAY "Codice" CODTAB
      DISPLAY "Descrizione@50" S0
      OUTPUT F_TIPODOC5 TIP->CODTAB
      OUTPUT F_DESDOC5 TIP->S0
      HELP "Tipo di documento 5" 
      FIELD S2[17,20]
      CHECKTYPE NORMAL
   END

	STRING F_DESDOC5 40
	BEGIN
	   PROMPT 10 8 ""
	   FLAG "D"
	END
	
   STRING F_TIPODOC6 4
   BEGIN
      PROMPT 2 9 ""
		USE TIP
		INPUT CODTAB F_TIPODOC6
		DISPLAY "Codice" CODTAB
      DISPLAY "Descrizione@50" S0
      OUTPUT F_TIPODOC6 TIP->CODTAB
      OUTPUT F_DESDOC6 TIP->S0
      HELP "Tipo di documento 6" 
      FIELD S2[21,24]
      CHECKTYPE NORMAL
   END

	STRING F_DESDOC6 40
	BEGIN
	   PROMPT 10 9 ""
	   FLAG "D"
	END
	
   STRING F_TIPODOC7 4
   BEGIN
      PROMPT 2 10 ""
		USE TIP
		INPUT CODTAB F_TIPODOC7
		DISPLAY "Codice" CODTAB
      DISPLAY "Descrizione@50" S0
      OUTPUT F_TIPODOC7 TIP->CODTAB
      OUTPUT F_DESDOC7 TIP->S0
      HELP "Tipo di documento 7" 
      FIELD S2[25,28]
      CHECKTYPE NORMAL
   END

	STRING F_DESDOC7 40
	BEGIN
	   PROMPT 10 10 ""
	   FLAG "D"
	END
	
   STRING F_TIPODOC8 4
   BEGIN
      PROMPT 2 11 ""
		USE TIP
		INPUT CODTAB F_TIPODOC8
		DISPLAY "Codice" CODTAB
      DISPLAY "Descrizione@50" S0
      OUTPUT F_TIPODOC8 TIP->CODTAB
      OUTPUT F_DESDOC8 TIP->S0
      HELP "Tipo di documento 8" 
      FIELD S2[29,32]
      CHECKTYPE NORMAL
   END

	STRING F_DESDOC8 40
	BEGIN
	   PROMPT 10 11 ""
	   FLAG "D"
	END
	
   STRING F_TIPODOC9 4
   BEGIN
      PROMPT 2 12 ""
		USE TIP
		INPUT CODTAB F_TIPODOC9
		DISPLAY "Codice" CODTAB
      DISPLAY "Descrizione@50" S0
      OUTPUT F_TIPODOC9 TIP->CODTAB
      OUTPUT F_DESDOC9 TIP->S0
      HELP "Tipo di documento 9" 
      FIELD S2[32,36]
      CHECKTYPE NORMAL
   END

	STRING F_DESDOC9 40
	BEGIN
	   PROMPT 10 12 ""
	   FLAG "D"
	END
	
   STRING F_TIPODOC10 4
   BEGIN
      PROMPT 2 13 ""
		USE TIP
		INPUT CODTAB F_TIPODOC10
		DISPLAY "Codice" CODTAB
      DISPLAY "Descrizione@50" S0
      OUTPUT F_TIPODOC10 TIP->CODTAB
      OUTPUT F_DESDOC10 TIP->S0
      HELP "Tipo di documento 10" 
      FIELD S2[37,40]
      CHECKTYPE NORMAL
   END

	STRING F_DESDOC10 40
	BEGIN
	   PROMPT 10 13 ""
	   FLAG "D"
	END

ENDMASK