#include "co1800a.h"

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

PAGE "Stampa Prestazioni" 0 2 0 0

STRING F_CODNUM 4
BEGIN 
   PROMPT 5 1 "Numerazione        "
   USE %NUM 
   INPUT CODTAB F_CODNUM
   DISPLAY "Codice" CODTAB
   DISPLAY "Descrizone@50" S0
   OUTPUT F_CODNUM CODTAB
   CHECKTYPE REQUIRED
   FIELD #CODNUM 
	 FLAG "U"
END 

NUMBER F_ANNO 4
BEGIN
  PROMPT 50 1 "Anno       "
  FIELD #ANNO
  CHECKTYPE REQUIRED
END

NUMBER F_DASOCIO 6
BEGIN
  PROMPT 5 2 "Da socio           "
  FIELD #DASOCIO
  USE LF_CLIFO SELECT LF_SOCICOOP->CODCF!=""
  JOIN  LF_SOCICOOP INTO CODCF==CODCF 
  INPUT TIPOCF "F"
  INPUT CODCF F_DASOCIO
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione sociale@50" RAGSOC
  DISPLAY "Codice fiscale@16" COFI
  OUTPUT F_DASOCIO CODCF
END

NUMBER F_ASOCIO 6
BEGIN
  PROMPT 5 3 "A socio            "
  FIELD #ASOCIO
  USE LF_CLIFO SELECT LF_SOCICOOP->CODCF!=""
  JOIN  LF_SOCICOOP INTO CODCF==CODCF 
  INPUT TIPOCF "F"
  INPUT CODCF F_ASOCIO
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione sociale@50" 20->RAGSOC
  DISPLAY "Codice fiscale@16" 20->COFI
  OUTPUT F_ASOCIO CODCF
  STR_EXPR #F_ASOCIO>=#F_DASOCIO
  WARNING "Range codice socio non corretto"
	GROUP 2
END

STRING F_FROMCODART 8
BEGIN
  PROMPT 5 4  "Da prestazione     "
  FLAGS "U"
  USE SPP
	INPUT CODTAB F_FROMCODART
  DISPLAY "Prestazione@20" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_FROMCODART CODTAB
  FIELD #DACODART
END

STRING F_TOCODART 8
BEGIN
  PROMPT 5 5  "A prestazione      "
  FLAGS "U"
  USE SPP
	INPUT CODTAB F_TOCODART
  DISPLAY "Prestazione@20" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_TOCODART CODTAB
  STR_EXPR #F_TOCODART>=#F_FROMCODART
  WARNING "Range codice articolo non corretto"
  FIELD #ACODART
END

DATE F_DADATA
BEGIN
  PROMPT 50 2 "Da data    "
  FIELD #DADATA
END

DATE F_ADATA
BEGIN
  PROMPT 50 3 "A data     "
  FIELD #ADATA
END

STRING DLG_PROFILE 50 
BEGIN 
   PROMPT 5 7 "Profilo            "
   PSELECT
END 

ENDPAGE

ENDMASK