#include "../ba/ba3100.h"
#include "cgtbtpd.h"

TOOLBAR "topbar" 0 0 0 2
#include <relapbar.h>
ENDPAGE

PAGE "Tipi documento" 0 2 0 0

STRING F_TIPODOC 2
BEGIN
	PROMPT 4 2 "Tipo documento   "
	FIELD LF_TABCOM->CODTAB
	HELP "Inserire il tipo documento"
	USE %TPD
	CHECKTYPE REQUIRED
	INPUT CODTAB F_TIPODOC
	DISPLAY "Tipo" CODTAB
	DISPLAY "Descrizione@50" S0
  OUTPUT F_TIPODOC CODTAB
  FLAGS "U"
	KEY 1
END

STRING F_DESCRIZIONE 50
BEGIN
	PROMPT 4 4 "Descrizione      "
	FIELD LF_TABCOM->S0
	HELP "Inserire la descrizione del documento"
	USE %TPD KEY 2
	CHECKTYPE REQUIRED
	INPUT S0 F_DESCRIZIONE
	DISPLAY "Descrizione@50" S0
	DISPLAY "Codice" CODTAB
	OUTPUT F_TIPODOC CODTAB
	OUTPUT F_DESCRIZIONE S0
	KEY 2
END

LIST F_NATURA 20
BEGIN
	PROMPT 4 6 "Natura documento "
	FIELD LF_TABCOM->I0
	HELP "Indicare la natura del documento"
	ITEM " |Altro" MESSAGE DISABLE,F_CORRISP|RESET,F_CORRISP
	ITEM "1|Vendite" MESSAGE ENABLE,F_CORRISP
	ITEM "2|Acquisti" MESSAGE DISABLE,F_CORRISP|RESET,F_CORRISP
	ITEM "9|IVA in genere" MESSAGE ENABLE,F_CORRISP
	GROUP GR_RECORD_PROTECTED
END

BOOLEAN F_CORRISP 
BEGIN
	PROMPT 4 8 "Corrispettivi    "
	FIELD LF_TABCOM->B0
	HELP "Indicare se si tratta di registro dei corrispettivi"
	GROUP GR_RECORD_PROTECTED
END

ENDPAGE
ENDMASK