campo-sirio/ba/delilo.frm

USE %ILO
JOIN 6 ALIAS 16 INTO TIPOA=S0[1,1] CODANAGR=S0[2,6]
JOIN 7 TO 16@ ALIAS 17 INTO CODANAGR=CODANAGR
JOIN 13 TO 16@ ALIAS 113 INTO COM=COMRF(COMRES)
JOIN %BAN ALIAS 14 INTO CODTAB=S7
JOIN %BAN ALIAS 24 INTO CODTAB=S7+S8
JOIN %UCS TO 113@ ALIAS 34 INTO CODTAB==UFFCSERV
JOIN %UID TO 113@ ALIAS 44 INTO CODTAB==UFFIIDD1
JOIN 13 TO 34@ ALIAS 213 INTO COM=S6
JOIN 13 TO 24@ ALIAS 313 INTO COM=S5
JOIN 13 TO 44@ ALIAS 414 INTO COM=S6

END
DESCRIPTION
BEGIN
  %ILO->* "ILO"
  16@->* "Anagrafica persone fisiche e giuridiche"
  17@->* "Anagrafica persone giuridiche"
  113@->* "Comuni"
  14@->* "BAN"
  24@->* "BAN"
  34@->* "UCS"
  44@->* "UID"
  213@->* "Comuni"
  313@->* "Comuni"
  414@->* "Comuni"
END

GENERAL
BEGIN
  OFFSET 0 0
  FONT "Roman 17cpi"
  SIZE 12
END

SECTION BODY ODD 72

STRINGA 1
BEGIN
 KEY "Azienda di credito"
 PROMPT 71 8 ""
 FIELD 14@->S0
END

STRINGA 2
BEGIN
 KEY "Dipendenza"
 PROMPT 71 10 ""
 FIELD 24@->S0
END

STRINGA 3
BEGIN
 KEY "PROVINCIA dipendenza"
 PROMPT 127 10 ""
 FIELD 313@->PROVCOM
END

GRUPPO 4
BEGIN
 KEY "SOCIETA'"
END

STRINGA 5
BEGIN
 KEY "RAGIONE SOCIALE"
 PROMPT 12 18 ""
 FIELD 16@->RAGSOC
END

STRINGA 6
BEGIN
 KEY "CODICE FISCALE"
 PROMPT 97 18 ""
 PICTURE "#  #   #  #  #  #   #  #    #  #  #"
 FIELD 16@->COFI
END

STRINGA 7
BEGIN
 KEY "COMUNE "
 PROMPT 30 20 ""
 FIELD 113@->DENCOM
END

STRINGA 8
BEGIN
 KEY "PROVINCIA (sigla)"
 PROMPT 67 20 ""
 FIELD 113@->PROVCOM
END

STRINGA 9
BEGIN
 KEY "VIA"
 PROMPT 81 20 ""
 FIELD 16@->INDRF
 FIELD 16@->INDRES
END

STRINGA 10
BEGIN
 KEY "NUMERO CIVICO"
 PROMPT 131 20 ""
 FIELD 16@->CIVRF
 FIELD 16@->CIVRES
END

NUMERO 13
BEGIN
 KEY "ANNO DI IMPOSTA SALDO"
 PROMPT 51 28 ""
 PICTURE "^^#  #"
 FIELD I0
END

NUMERO 14
BEGIN
 KEY "IMPORTO SALDO: in lettere"
 PROMPT 18 30 ""
 PICTURE "LETTERE"
 FIELD R0
END

NUMERO 15
BEGIN
 KEY "IMPORTO SALDO: in cifre"
 PROMPT 114 30 ""
 PICTURE "###.###.###^^^"
 FIELD R0
END

NUMERO 17
BEGIN
 KEY "ANNO DI IMPOSTA ACCONTO"
 PROMPT 51 34 ""
 PICTURE "^^#  #"
 FIELD I1
END

NUMERO 18
BEGIN
 KEY "IMPORTO ACCONTO: in lettere"
 PROMPT 18 36 ""
 PICTURE "LETTERE"
 FIELD R1
END

NUMERO 19
BEGIN
 KEY "IMPORTO ACCONTO: in cifre"
 PROMPT 114 36 ""
 PICTURE "###.###.###^^^"
 FIELD R1
END

STRINGA 20
BEGIN
 KEY "CENTRO SERVIZI: Provincia"
 PROMPT 9 49 ""
 FIELD 213@->PROVCOM
 FIELD 414@->PROVCOM
END

STRINGA 21
BEGIN
 KEY "CENTRO SERVIZI "
 PROMPT 19 49 ""
 FIELD 34@->S0
 FIELD 44@->S0
END

DATA 22
BEGIN
 KEY "DATA: giorno - mese - anno"
 PROMPT 74 49 ""
 PICTURE "@  @^  @  @^  @  @"
 FIELD D0
 FORMAT "1442-"
END

STRINGA 23
BEGIN
 KEY "CODICE AZIENDA"
 PROMPT 97 49 ""
 FIELD S7
END

STRINGA 24
BEGIN
 KEY "CODICE DIPENDENZA"
 PROMPT 120 49 ""
 FIELD S8
END

END

END