campo-sirio/tc/tczuban.uml

#include "tczu.h"

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

PAGE "Banche" 0 2 0 0

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 1 1 "Banca Campo"
END

LIST F_COD 5
BEGIN
  PROMPT 50 50 ""
  ITEM "ZUBAN|ZUBAN"
  FIELD COD
  FLAGS "D"
  KEY 1
END

NUMBER F_CODTAB 5
BEGIN
  PROMPT 2 2 "Codice ABI      "
  USE LF_MULTIREL
  JOIN %BAN INTO CODTAB==FIRST
  INPUT COD F_COD SELECT
  INPUT FIRST[1,5] F_CODTAB
  INPUT FIRST[6,10] F_CODTAB10
  DISPLAY "Codice ABI " FIRST[1,5]
  DISPLAY "Codice CAB " FIRST[6,10]
  DISPLAY "Descrizione@60" %BAN->S0
  DISPLAY "Banca Zucchetti ABI" DATA[1,3]
  DISPLAY "Banca Zucchetti CAB" DATA[4,6]
  OUTPUT F_CODTAB FIRST[1,5]
  OUTPUT F_CODTAB1 FIRST[1,5]
  OUTPUT F_CODTAB10 FIRST[6,10]
  OUTPUT F_CODTAB11 FIRST[6,10]
  OUTPUT F_DESC %BAN->S0
  FIELD FIRST[1,5]
  FLAGS "Z"
  KEY 1
	CHECKTYPE REQUIRED
  GROUP 1
END

NUMBER F_CODTAB10 5
BEGIN
  PROMPT 26 2 "CAB "
  COPY ALL F_CODTAB
  FIELD FIRST[6,10]
  FLAGS "Z"
  KEY 1
	CHECKTYPE REQUIRED
  GROUP 1
END

STRING F_CODTAB1 5
BEGIN
  PROMPT 2 2 "Codice ABI      "
  FIELD FIRST[1,5]
  FLAGS "ZHG"
  USE %BAN SELECT CODTAB ?= "?????"
  INPUT CODTAB F_CODTAB1
  DISPLAY "ABI@5" CODTAB
  DISPLAY "Istituto@50" S0
  OUTPUT F_CODTAB CODTAB
  OUTPUT F_CODTAB1 CODTAB
  OUTPUT F_DESC S0
  WARNING "Istituto assente"
	KEY 1
	CHECKTYPE REQUIRED
	GROUP 2
END

STRING F_CODTAB11 5
BEGIN
  PROMPT 26 2 "CAB "
  FIELD FIRST[6,10]
  FLAGS "ZHG"
  USE %BAN SELECT CODTAB ?= "??????????"
  INPUT CODTAB[1,5] F_CODTAB
  INPUT CODTAB[6,10] F_CODTAB1
  DISPLAY "ABI@5" CODTAB[1,5]
  DISPLAY "CAB@5" CODTAB[6,10]
  DISPLAY "Dipendenza" I0
  DISPLAY "Denominazione@50" S0
  OUTPUT F_CODTAB CODTAB[1,5]
  OUTPUT F_CODTAB1 CODTAB[1,5]
  OUTPUT F_CODTAB10 CODTAB[6,10]
  OUTPUT F_CODTAB11 CODTAB[6,10]
  OUTPUT F_DESC S0
  WARNING "Istituto assente"
	KEY 1
	CHECKTYPE REQUIRED
	GROUP 2
END

STRING F_DESC 50
BEGIN
  PROMPT 2 5 "Descrizione     "
	USE %BAN KEY 2
  INPUT S0 F_DESC
  DISPLAY "Descrizione@60" S0
  DISPLAY "Codice ABI " CODTAB[1,5]
  DISPLAY "Codice CAB " CODTAB[6,10]
  COPY OUTPUT F_CODTAB11
  CHECKTYPE NORMAL
  GROUP 3
  KEY 2
END

STRING F_COD_CORR 3
BEGIN
  PROMPT 2 7 "Banca Zucchetti "
  USE &ZBA
  INPUT CODTAB[1,3] F_COD_CORR
  INPUT CODTAB[4,6] F_COD_CORR1
  DISPLAY "Banca Zucchetti ABI" CODTAB[1,3]
  DISPLAY "Banca Zucchetti CAB" CODTAB[4,6]
  DISPLAY "Descrizione@60" S0
  OUTPUT F_COD_CORR CODTAB[1,3]
  OUTPUT F_COD_CORR1 CODTAB[4,6]
  OUTPUT F_DESC_CORR S0
  FIELD DATA[1,3]
  FLAGS "Z"
	CHECKTYPE REQUIRED
END

STRING F_COD_CORR1 3
BEGIN
  PROMPT 30 7 ""
  COPY ALL F_COD_CORR
  FIELD DATA[4,6]
  FLAGS "Z"
	CHECKTYPE REQUIRED
END

STRING F_DESC_CORR 50 40
BEGIN
  PROMPT 37 7 ""
  USE &ZBA KEY 2
  INPUT S0 F_DESC_CORR
  DISPLAY "Descrizione@50" S0
  DISPLAY "Banca Zucchetti ABI" CODTAB[1,3]
  DISPLAY "Banca Zucchetti CAB" CODTAB[4,6]
  COPY OUTPUT F_COD_CORR
END

ENDPAGE

ENDMASK