#include "co0700b.h"

PAGE "Generazione prestazioni" -1 -1 78 10

NUMBER F_DASOCIO 6
BEGIN
  PROMPT 5 1 "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
  OUTPUT F_DARAGSOC RAGSOC
	CHECKTYPE REQUIRED
END

STRING F_DARAGSOC 45
BEGIN
  PROMPT 30 1 ""
	FLAGS "D"
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
  OUTPUT F_ARAGSOC RAGSOC
  STR_EXPR #F_ASOCIO>=#F_DASOCIO
  WARNING "Range codice socio non corretto"
	CHECKTYPE REQUIRED
END

STRING F_ARAGSOC 45
BEGIN
  PROMPT 30 3 ""
	FLAGS "D"
END

BUTTON DLG_OK 10 2
BEGIN
 PROMPT -12 -1 "~Genera"  
 MESSAGE EXIT,K_ENTER
END

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

ENDPAGE

ENDMASK