#include "ps0920200a.h"

PAGE "Aggiornamento IVA Documenti" -1 -1 80 12

GROUPBOX -1 78 5
	BEGIN
	PROMPT 2 1 "Selezione Documenti"
	FLAGS ""
END

NUMBER F_ANNO 4
BEGIN
	PROMPT 4 2 "Anno    "
	FIELD S_ANNO
	KEY	 1
	USE ESC
	CHECKTYPE NORMAL
	INPUT CODTAB F_ANNO
	DISPLAY "Codice" CODTAB
	DISPLAY "Data inizio esercizio" D0
	DISPLAY "Data fine esercizio" D1
	OUTPUT F_ANNO CODTAB
	FLAGS "RZ"
END

STRING F_NUM 4
BEGIN
	PROMPT 26 2 "Num. "
	FIELDS S_NUM
	HELP "Codice numerazione"
	USE %NUM
	INPUT CODTAB F_NUM
	DISPLAY "Codice" CODTAB
	DISPLAY "Descrizione@50" S0
	OUTPUT F_NUM CODTAB
	CHECKTYPE REQUIRED
	FLAG "UPA"
	WARNING "Numerazione assente"
END

STRING F_CODCLI 3
BEGIN
	PROMPT 4 4 "Cliente "
	WARNING "Cliente assente"
	FLAGS "R"
	FIELD CODCLI
	USE LF_CLIFO
	INPUT TIPOCF "C"
	INPUT CODCF F_CODCLI
	DISPLAY "Codice" CODCF
	DISPLAY "Ragione Sociale@50" RAGSOC
	OUTPUT F_CODCLI CODCF
	OUTPUT F_RAGSOC RAGSOC
	CHECKTYPE REQUIRED
END

STRING F_RAGSOC 50
BEGIN
	WARNING "Cliente assente"
	PROMPT 26 4 ""
	USE LF_CLIFO KEY 2
	INPUT TIPOCF "C"
	INPUT RAGSOC F_RAGSOC
	DISPLAY "Ragione Sociale@50" RAGSOC
	DISPLAY "Partita IVA@12" PAIV
	DISPLAY "Codice" CODCF
	OUTPUT F_CODCLI CODCF
	OUTPUT F_RAGSOC RAGSOC
	CHECKTYPE REQUIRED
END

NUMBER F_NDOCDA 6
BEGIN
  PROMPT 4 6 "Da numero   "
  USE LF_DOC SELECT CODCF=#F_CODCLI
  JOIN LF_CLIFO TO LF_DOC INTO TIPOCF==TIPOCF CODCF==CODCF 
  INPUT PROVV "D" SELECT
  INPUT ANNO F_ANNO SELECT
  INPUT CODNUM F_NUM SELECT
  INPUT NDOC F_NDOCDA
  DISPLAY "Num." CODNUM
  DISPLAY "Anno" ANNO
  DISPLAY "Provv" PROVV
  DISPLAY "Tipo" TIPODOC
  DISPLAY "N.Doc. " NDOC
  DISPLAY "Stato@R" STATO
  DISPLAY "Data\ndocumento" DATADOC
  DISPLAY "C/F" TIPOCF
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione Sociale@50" LF_CLIFO->RAGSOC
  OUTPUT F_NDOCDA NDOC
  CHECKTYPE NORMAL
  FLAG "R"
END

NUMBER F_NDOCA 6
BEGIN
  PROMPT 26 6 "A Numero    "
  USE LF_DOC SELECT CODCF=#F_CODCLI         
  JOIN LF_CLIFO TO LF_DOC INTO TIPOCF==TIPOCF CODCF==CODCF 
  INPUT PROVV "D" SELECT
  INPUT ANNO F_ANNO SELECT
  INPUT CODNUM F_NUM SELECT
  INPUT NDOC F_NDOCA
  DISPLAY "Num." CODNUM
  DISPLAY "Anno" ANNO
  DISPLAY "Provv" PROVV
  DISPLAY "Tipo" TIPODOC
  DISPLAY "N.Doc. " NDOC
  DISPLAY "Stato@R" STATO
  DISPLAY "Data\ndocumento" DATADOC
  DISPLAY "C/F" TIPOCF
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione Sociale@50" LF_CLIFO->RAGSOC
  OUTPUT F_NDOCA NDOC
  CHECKTYPE NORMAL
  FLAG "R"
END

STRING F_CODIVA 4
BEGIN
  PROMPT 4 8 "Codice IVA  "
	USE %IVA
	INPUT CODTAB F_CODIVA
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
	OUTPUT F_CODIVA CODTAB
	CHECKTYPE REQUIRED
END

STRING F_PROFILO 70 50
BEGIN
	PROMPT 8 -3 "Profilo "
	PSELECT
	GROUP 1
END

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

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

ENDPAGE

ENDMASK