#include "cg0200.h"

PAGE "" -1 -1 76 16

STRING 101 50 
BEGIN
  PROMPT 1 2 "Rag. soc. "
  HELP "Inserire la ragione sociale"
	GROUP 1
END

STRING 102 35
BEGIN
  PROMPT 1 4 "Indirizzo "
  HELP "Inserire l'indirizzo"
	GROUP 1
END

STRING 103 10
BEGIN
  PROMPT 54 4 "N.       "
  HELP "Inserire il numero civico"
	GROUP 1
END

STRING 104 35
BEGIN
  PROMPT 1 5 "Localita  "
  HELP "Inserire la localita"
	GROUP 1
END

STRING 105 5
BEGIN
  PROMPT 54 5 "CAP      "
  HELP "Inserire il Codice di Avviamento Postale"
	GROUP 1
END

NUMBER 106 3
BEGIN
  PROMPT 1 6 "Stato     "
  FLAGS "RZ"
  USE %STA
  INPUT CODTAB 106
  DISPLAY "Codice" CODTAB
  DISPLAY "Stato@50" S0
  OUTPUT 106 CODTAB
  CHECKTYPE NORMAL
  WARNING "Stato assente"
  HELP "Inserire il codice dello stato"
	GROUP 1
END

STRING 107 4
BEGIN
  PROMPT 18 6 "Comune "
  FLAGS "U"
  USE LF_COMUNI
  INPUT STATO 106
  INPUT COM 107
  DISPLAY "Stato" STATO
  DISPLAY "Codice" COM
  DISPLAY "Comune@50" DENCOM
  OUTPUT 105 CAPCOM
  OUTPUT 106 STATO
  OUTPUT 107 COM
  OUTPUT F_DENCOMI DENCOM
  CHECKTYPE NORMAL
  WARNING "Comune assente"
  ADD MASK ba4100a
  HELP "Inserire il codice del comune"
	GROUP 1
END

STRING F_DENCOMI 40
BEGIN
  PROMPT 33 6 ""
  USE LF_COMUNI KEY 2
  INPUT DENCOM F_DENCOMI 
    DISPLAY "Comune@50" DENCOM
  DISPLAY "Stato" STATO
  DISPLAY "Codice" COM
  COPY OUTPUT 107
  ADD MASK ba4100a
	GROUP 1
END

GROUPBOX DLG_NULL 72 4
BEGIN
	PROMPT 1 8 "Numeri Telefonici"
END

STRING 108 10
BEGIN
  PROMPT 2 9 "Telefono      "
  HELP "Inserire il prefisso ed il numero di telefono"
	GROUP 1
END

STRING 109 30
BEGIN
  PROMPT 40 9 ""
	GROUP 1
END

STRING 110 10
BEGIN 
	PROMPT 2 10 "Fax           "
	HELP "Inserire il prefisso del numero di fax"
	GROUP 1
END

STRING 111 30
BEGIN
	PROMPT 40 10 ""
	GROUP 1
END

BOOLEAN 112
BEGIN
  PROMPT 2 13 "Riduzione IVA"
  HELP "Flag per la riduzione IVA"
	GROUP 1
END

NUMBER 113 3
BEGIN
  PROMPT 1 1 "Codice    "
END

BUTTON DLG_OK 9 2
BEGIN
  PROMPT -13 -1 ""
END

BUTTON DLG_CANCEL 9 2
BEGIN 
	PROMPT -23 -1 ""
END

BUTTON DLG_NULL 9 2
BEGIN
	PROMPT -33 -1 "A~zzera"
	MESSAGE RESET,1@
	MESSAGE EXIT,K_ENTER
END

ENDPAGE

ENDMASK