campo-sirio/src/ef/eftbman.uml

#include "eftbman.h"

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

PAGE "Mandati" 0 2 0 0

GROUPBOX DLG_NULL 78 5
BEGIN
  PROMPT 1 1 "@bCliente"
END

NUMBER F_CODCF 6
BEGIN
  PROMPT 2 2 "Codice    "
  USE LF_CLIFO
  INPUT TIPOCF "C"
  INPUT CODCF F_CODCF
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Partita IVA@12" PAIV
  DISPLAY "Codice fiscale@16" COFI
  OUTPUT F_CODCF CODCF
  OUTPUT F_RAGSOC RAGSOC
  OUTPUT F_COFI COFI
  OUTPUT F_PIVA PAIV
  CHEKCTYPE REQUIRED
  HELP "Inserire il codice del cliente"
  FIELD I0
  ADD RUN cg0 -1 C
END

STRING F_RAGSOC 50
BEGIN
  PROMPT 22 2 ""
  USE LF_CLIFO KEY 2
  JOIN LF_CFVEN INTO CODCF=CODCF TIPOCF="C"
  JOIN LF_COMUNI INTO STATO=STATOCF COM=COMCF
  INPUT TIPOCF "C"
  INPUT RAGSOC F_RAGSOC
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Codice" CODCF
  DISPLAY "Partita IVA@12" PAIV
  DISPLAY "Codice fiscale@16" COFI
  COPY OUTPUT F_CODCF
  CHECKTYPE REQUIRED
END

STRING F_PIVA 12
BEGIN
  PROMPT 2 3 "Partita IVA     "
  FLAGS "D"
END

STRING F_COFI 16
BEGIN
  PROMPT 2 4 "Codice Fiscale  "
  FLAGS "D"
END

GROUPBOX DLG_NULL 78 6
BEGIN
  PROMPT 1 6 "@bMandato"
END

STRING F_MANDATO 35
BEGIN
  PROMPT 2 7 "Codice      " 
  USE &EFMAN SELECT STR((#F_CODCF=0)||(#F_CODCF=I0))
  JOIN LF_CLIFO INTO TIPOCF="C" CODCF=I0
  INPUT CODTAB F_MANDATO
  DISPLAY "Codice@35" CODTAB
  DISPLAY "Descrizione@50" S0
  DISPLAY "Cliente" I0
  DISPLAY "Ragione Sociale@50" LF_CLIFO->RAGSOC
  OUTPUT F_MANDATO CODTAB 
  OUTPUT F_DESCR S0
  OUTPUT F_CODCF I0
  CHECKTYPE REQUIRED
  FIELD CODTAB
  KEY 1
END

STRING F_DESCR 50
BEGIN
  PROMPT 2 8 "Descrizione "
  USE &EFMAN KEY 2 SELECT STR((#F_CODCF=0)||(#F_CODCF=I0))
  JOIN LF_CLIFO INTO TIPOCF="C" CODCF=I0
  INPUT CODTAB F_MANDATO
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice@35" CODTAB
  DISPLAY "Cliente" I0
  DISPLAY "Ragione Sociale@50" LF_CLIFO->RAGSOC
  COPY OUTPUT F_MANDATO
  CHECKTYPE REQUIRED
  FIELD S0
  KEY 2
END

DATE F_DATA 
BEGIN
  PROMPT 2 9 "Data        "
  FIELD D0
  CHECKTYPE REQUIRED
END

LISTBOX F_SEQUENZA 4 20
BEGIN
  PROMPT 34 9 "Sequenza "
  ITEM "RCUR|RCUR - Ricorrente"
  ITEM "FRST|FRST - Primo "
  ITEM "LAST|LAST - Ultimo"
  ITEM "OOFF|OOFF - Singolo"
  FIELD S6
END

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 1 12 "@bBanca d'appoggio"
END

STRING F_STATO 2
BEGIN
  PROMPT 2 13 "Stato "
  FLAGS "U"
END

NUMBER F_CHECK 2
BEGIN
  PROMPT 12 13 ""
  FLAGS "UZ"
  VALIDATE CHECK_IBAN_FUNC F_IBAN F_STATO F_CHECK F_BBAN F_CIN F_ABI F_CAB F_CONTO -1 0
END

STRINGA F_CIN 1
BEGIN
  PROMPT 18 13 ""
  FLAGS "U"
  VALIDATE CHECK_BBAN_FUNC F_BBAN F_CIN F_ABI F_CAB F_CONTO
END

NUMBER F_ABI 5
BEGIN
  PROMPT 21 13 "ABI "
  FIELD CODABI
  FLAGS "Z"
  USE %BAN SELECT CODTAB ?= "?????"
  INPUT CODTAB F_ABI
  DISPLAY "Codice ABI" CODTAB[1,5]
  DISPLAY "Denominazione@50" S0
  OUTPUT F_ABI CODTAB[1,5]
  CHECKTYPE REQUIRED
  WARNING "Codice ABI assente"
  FIELD S4[1,5]
END

NUMBER F_CAB 5
BEGIN
  PROMPT 36 13 "CAB "
  FLAGS "Z"
  USE %BAN KEY 1 SELECT CODTAB ?= "??????????"
  INPUT CODTAB[1,5] F_ABI
  INPUT CODTAB[6,10] F_CAB
  DISPLAY "Codice ABI" CODTAB[1,5]
  DISPLAY "Codice CAB" CODTAB[6,10]
  DISPLAY "Denominazione@50"  S0
  OUTPUT F_ABI CODTAB[1,5]
  OUTPUT F_CAB CODTAB[6,10]
  CHECKTYPE REQUIRED
  WARNING "Banca assente"
  FIELD S4[6,10]
END

STRING F_IBAN 34
BEGIN
  PROMPT 2 60 ""
  FLAGS "DG"
  FIELD S1
END

STRINGA F_BBAN 30
BEGIN
  PROMPT 2 14 "BBAN "
  FLAGS "UH"
END

STRING F_CONTO 12
BEGIN
  PROMPT 2 14 "Conto "
  VALIDATE CHECK_BBAN_FUNC F_BBAN F_CIN F_ABI F_CAB F_CONTO
  FLAGS "UZ"
END

ENDPAGE

ENDMASK