campo-sirio/co/co2300a.uml

#include "co2300a.h"

TOOLBAR "" 0 20 0 2

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

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

ENDPAGE

PAGE "Stampa controllo scadenze" 0 -1 0 19

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 1 1 "Selezione soci"
END

NUMBER F_DASOCIO 6
BEGIN
  PROMPT 2 2 "Da socio      "
  FIELD DASOCIO
  //FLAG "Z"
  USE LF_SOCICOOP KEY 1
  JOIN LF_CLIFO TO LF_SOCICOOP INTO TIPOCF=='F' CODCF==CODCF 
  INPUT CODCF F_DASOCIO
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione sociale@50" 20->RAGSOC
  DISPLAY "Codice fiscale@16" 20->COFI
  OUTPUT F_DASOCIO CODCF
  OUTPUT F_DESDASOCIO 20->RAGSOC
  CHECKTYPE NORMAL
END

STRING F_DESDASOCIO 50
BEGIN
  PROMPT 25 2  ""
  FLAGS "D"
END

NUMBER F_ASOCIO 6
BEGIN
  PROMPT 2 3 "A socio       "
  //FLAG "Z"
  FIELD ASOCIO
  USE LF_SOCICOOP KEY 1
  JOIN LF_CLIFO TO LF_SOCICOOP INTO TIPOCF=='F' CODCF==CODCF 
  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_DESASOCIO 20->RAGSOC
  CHECKTYPE NORMAL
END

STRING F_DESASOCIO 50
BEGIN
  PROMPT 25 3  ""
  FLAGS "D"
END

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 1 5 "Scadenza"
END

LIST F_MESE 2 10
BEGIN
  PROMPT 2 6 "Mese "
  FLAGS "MZ"
  FIELD MESE
END

NUMBER F_DAANNO 4
BEGIN
  PROMPT 27 6 "da anno "
  FLAGS "A"
  FIELD DAANNO
END

NUMBER F_AANNO 4
BEGIN
  PROMPT 47 6 "a anno "
  FLAGS "A"
  FIELD AANNO
END

RADIOBUTTON F_CONTROLLA 25
BEGIN
  PROMPT 2 8 "Controlla la data"
  ITEM "1|licenza di navigazione"
  ITEM "2|licenza di pesca"
  ITEM "3|ruolino equipaggio"
  ITEM "4|collaudo"
  FIELD CONTROLLA
END

RADIOBUTTON F_ORDINAMENTO 25
BEGIN
  PROMPT 40 8 "Ordinamento"
  ITEM "1|Codice"
  ITEM "2|Alfabetico"
END

ENDPAGE

ENDMASK