#include "lv0700a.h"

TOOLBAR "topbar" 0 0 0 2
#include "printbar.h"
ENDPAGE


PAGE "Stampa Interrogazione Cliente\Articolo" -1 -1 40 5

GROUPBOX DLG_NULL 85 14
BEGIN
  PROMPT 1 1 "@b Parametri Estrazione"
END

NUMBER 201 6
BEGIN
  PROMPT 2 2 "Cliente     " 
  FIELD #F_CODCF
  FLAGS "U"
  KEY 1
  USE LF_CLIFO 
  INPUT TIPOCF "C"
  INPUT CODCF 201
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Partita IVA@11" PAIV
  OUTPUT 201 CODCF
  OUTPUT 202 RAGSOC
  CHECKTYPE REQUIRED
END

STRING 202 50 
BEGIN
  PROMPT 24 2 ""
  KEY 2
  USE LF_CLIFO KEY 2
  INPUT TIPOCF "C"
  INPUT RAGSOC 202
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Partita IVA@11" PAIV
  DISPLAY "Codice" CODCF
  COPY OUTPUT 201
  FIELD #F_RAGSOC
END

STRING 203 20
  BEGIN
  PROMPT 2 3 "Articolo    "
  FLAG "U"
  USE 47
  INPUT CODART 203
  DISPLAY "Codice@20" CODART
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Partita IVA@11" PAIV
  OUTPUT 203 CODART
  OUTPUT 204 DESCR  
  FIELD #F_CODART
  MESSAGE EMPTY "",215|"ZZZZZZZZZZZZZZZZZZZ",216
  MESSAGE COPY,215|COPY,216
  CHECKTYPE NORMAL
END

STRING 204 50 
BE
  PR 2 4 "Descrizione "
  USE 47 KEY 2
  INPUT DESCR 204
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Partita IVA@11" PAIV
  DISPLAY "Codice@20" CODART
  OUTPUT 203 CODART
  OUTPUT 204 DESCR  
  FIELD #F_DESART
END

STRING 215 20
  BEGIN
  PROMPT 2 5 "Articolo    "
  FLAG "UDH"
  FIELD #FROM
END

STRING 216 20
  BEGIN
  PROMPT 40 5 "Articolo    "
  FLAG "UDH"
  FIELD #TO
END

STRING 205 3
BEGIN
  PROMPT 2 6 "Causale Lav."
  FLAGS "U"  
  USE &CAU
  INPUT CODTAB 205
  DISPLAY "Codice@8" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT 205 CODTAB
  OUTPUT 206 S0
  FIELD #F_CODAGG1
  CHECKTYPE NORMAL
END

STRING 206 50
BEGIN
  PROMPT 24 6 ""
  FLAGS "D" 
  FIELD #F_DESCODAGG1
END   

STRING 207 4
BEGIN
  PROMPT 2 8 "Numerazione "
  HELP "Codice numerazione"
  USE %NUM
  INPUT CODTAB 207
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT 207 CODTAB
  OUTPUT 208 S0
  CHECKTYPE REQUIRED
  FLAGS "UPA"
  WARNING "Numerazione assente"
  FIELD #F_CODNUM
END

STRING 208 50
BEGIN
  PROMPT 24 8 ""
  HELP "Descrizione Numerazione"
  USE %NUM KEY 2
  INPUT S0 208
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  OUTPUT 207 CODTAB
  OUTPUT 208 S0
  FIELD #F_DESCODNUM
END

STRING 209 4
BEGIN
  PROMPT 2 9 "Tipo        "
  HELP "Codice tipo documento"
  USE %TIP
  INPUT CODTAB 209
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT 209 CODTAB
  OUTPUT 210 S0
  FLAGS "UP"
  FIELD #F_TIPODOC
  CHECKTYPE NORMAL
END

STRING 210 50
BEGIN
  PROMPT 24 9 ""
  HELP "Descrizione tipo documento"
  USE %TIP KEY 2
  INPUT S0 210
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT 209
  FIELD #F_DESTIPODOC
END  

DATE 211
BEGIN 
	PROMPT 2 11 "Da Data     "
	FIELD #F_DATADOC_DA
	STR_EXPR (#211=="")||(#212=="")||(MID(#212,7,4)==MID(#211,7,4))
	WARNING "Le date devono appartenere allo stesso anno"
	CHECKTYPE REQUIRED
END

DATE 212
BEGIN 
	PROMPT 40 11 "Da Data "
	FIELD #F_DATADOC_A
	VALIDATE DATE_CMP_FUNC >= 211
	WARNING "La data finale non deve essere successiva a quella finale"
	CHECKTYPE REQUIRED
END

NUMBER 214 4
BEGIN
	PROMPT 2 13 "Anno        "
	FLAGS "DG"
	STR_CALC MID(#211,7,4)
	DRIVENBY 211
	FIELD #F_ANNO 
END

BOOLEAN 213
BEGIN
  FIELD #F_TOT
  PROMPT 2 15 "Solo Totali"
END

ENDPAGE
ENDMASK