#include "co1600a.h"

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

PAGE "Stampa saldi estratto conto" 0 2 0 0

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 1 1 "Selezione periodo"
END

DATE F_DATAINI
BEGIN
  PROMPT 2 2 "Data iniziale "
  FIELD DATAINI
  CHECKTYPE REQUIRED
END

DATE F_DATAFIN
BEGIN
  PROMPT 37 2 "Data fin. "
  FIELD DATAFIN
  CHECKTYPE REQUIRED
END

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

NUMBER F_DASOCIO 6
BEGIN
  PROMPT 2 5 "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 5  ""
  FLAGS "D"
END

NUMBER F_ASOCIO 6
BEGIN
  PROMPT 2 6 "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
  GROUP 2
END

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

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 1 8 "Selezione banca"
END

STRING F_CODABI 5
BEGIN
  PROMPT 2 9 "Banca d'appoggio "
  FIELD CODABI
  FLAGS "Z"
  USE %BAN SELECT CODTAB ?= "?????"
  INPUT CODTAB F_CODABI
  DISPLAY "Codice ABI" CODTAB[1,5]
  DISPLAY "Denominazione@50" S0
  OUTPUT F_CODABI CODTAB[1,5]
  HELP "Codice ABI banca del C/F"
  CHECKTYPE NORMAL
END

STRING F_CODCAB 5
BEGIN
  PROMPT 28 9 ""
  FIELD CODCAB
  FLAGS "Z"
  USE %BAN SELECT CODTAB ?= "??????????"
  INPUT CODTAB[1,5] F_CODABI
  INPUT CODTAB[6,10] F_CODCAB
  DISPLAY "Codice ABI" CODTAB[1,5]
  DISPLAY "Codice CAB" CODTAB[6,10]
  DISPLAY "Denominazione@50" S0
  OUTPUT F_CODABI CODTAB[1,5]
  OUTPUT F_CODCAB CODTAB[6,10]
  OUTPUT F_DESBAN S0
  HELP "Codice CAB banca del C/F"
  CHECKTYPE NORMAL
END

STRING F_DESBAN 50 37
BEGIN
  PROMPT 37 9 ""
  USE %BAN KEY 2 SELECT CODTAB ?= "??????????"
  INPUT S0 F_DESBAN
  DISPLAY "Denominazione@50" S0
  DISPLAY "Codice ABI" CODTAB[1,5]
  DISPLAY "Codice CAB" CODTAB[6,10]
  COPY OUTPUT F_CODCAB
END

ENDPAGE

ENDMASK