#include "co2400a.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 registro soci carico e scarico" 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
  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       "
  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 4
BEGIN
  PROMPT 1 5 "Selezione documenti"
END

STRING F_CODNUM 4
BEGIN
  PROMPT 2 6 "Numeraz.  "
  FIELD CODNUM
  HELP "Codice numerazione"
  USE %NUM
  INPUT CODTAB F_CODNUM
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODNUM CODTAB
  OUTPUT F_DESNUM S0
  CHECKTYPE FORCED
  FLAG "UPA"
  WARNING "Numerazione assente"
END

STRING F_DESNUM 50
BEGIN
  PROMPT 24 6 ""
  HELP "Descrizione numerazione"
  USE %NUM KEY 2
  INPUT S0 F_DESNUM
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_CODNUM
END

STRING F_TIPODOC 4
BEGIN
  PROMPT 2 7 "Tipo doc. "
  FIELD CODNUM
  HELP "Tipo documento"
  USE %TIP
  INPUT CODTAB F_TIPODOC
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_TIPODOC CODTAB
  OUTPUT F_DESTIP S0
  CHECKTYPE FORCED
  FLAG "UPA"
  WARNING "Tipo documento assente"
END

STRING F_DESTIP 50
BEGIN
  PROMPT 24 7 ""
  HELP "Descrizione tipo doc."
  USE %TIP KEY 2
  INPUT S0 F_DESTIP
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_TIPODOC
END

NUMBER F_ANNO 4
BEGIN
  PROMPT 2 10 "Anno        "
  FIELD #ANNO
  CHECKTYPE REQUIRED
END

NUMBER F_PERC 2
BEGIN
  PROMPT 2 11 "Percentuale "
  FIELD #PERC
  CHECKTYPE REQUIRED
END

ENDPAGE

ENDMASK