campo-sirio/co/co0700b.uml

#include "co0700b.h"

TOOLBAR "" 0 0 0 2
#include <stdbar.h>
ENDPAGE

PAGE "Generazione prestazioni" 0 2 0 0

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

ENDPAGE

ENDMASK