USE 31
JOIN 14 INTO NPROGTR==NPROGTR      
JOIN 20 INTO TIPOCF=="C" CODCF==CODCF
JOIN 17 TO 20 INTO TIPOCF==TIPOCF CODCF==CODCF
JOIN 16 TO 17 INTO TIPOCF==TIPOCF CODCF==CODCF CODIND==CODINDEFF
JOIN 13 TO 20 INTO COM==COMCF
JOIN 13 TO 16 ALIAS 213 INTO COM==COM     
JOIN %BAN ALIAS 201 INTO CODTAB[1,5]==CODABI  
JOIN %BAN ALIAS 203 INTO CODTAB==CODABI+CODCAB
JOIN %BAN ALIAS 202 INTO CODTAB==CODABIP+CODCABP
JOIN %BAN ALIAS 204 INTO CODTAB[1,5]==CODABIP  
END

DESCRIPTION
BEGIN
  31->* "Effetti"
  14->* "Righe effetto"
  20->* "Clienti e Fornitori"
  13->* "Comuni"
  201@->* "Tabella banche"                      
  202@->* "Tabella banche"       
  203@->* "Tabella banche" 
  204@->* "Tabella banche"  
END                                           

GENERAL
BEGIN        
 OFFSET 0 0
END

SECTION GRAPHICS ODD 4
 FIGURA 1 1 1
 BEGIN
  PROMPT 1 1 ""
 END
END

SECTION HEADER ODD 8

STRING 1 50 
BEGIN
 KEY "denominazione banca presentazione"
 PROMPT 5 1 ""
 MESSAGE _BANCAP
END


STRING 2 20
BEGIN 
 KEY "scritta elenco riba"
 PROMPT 70 1 "ELENCO RI.BA. "
END

NUMBER 3 8
BEGIN
 KEY "numero di pagina"
 PROMPT 123 1 "pag. "
 MESSAGE _PAGENO
END

DATA 4 20
BEGIN
 KEY "data emissione"
 PROMPT 8 3 "PRESENTATI IL : " 
 MESSAGE _DATA
END 

STRING 5 70
BEGIN
 KEY "ditta"
 PROMPT 8 4 "DA :            "
 MESSAGE _DITTA,!RAGSOC
END

STRING 6 20
BEGIN
 KEY "scritta titolo righe del body"
 PROMPT 2 6 "DEBITORE O TRASSATO"
END

STRING 7 10
BEGIN
 KEY "scritta titolo righe del body"
 PROMPT 32 6 "INDIRIZZO"
END

STRING 8 17
BEGIN
 KEY "scritta titolo righe del body"
 PROMPT 62 6 "BANCA D'APPOGGIO"
END

STRING 9 11
BEGIN
 KEY "scritta titolo righe del body"
 PROMPT 94 6 "FATTURA DEL"
END

STRING 10 8
BEGIN
 KEY "scritta titolo righe del body"
 PROMPT 111 6 "SCADENZA"
END

STRING 11 7
BEGIN
 KEY "scritta titolo righe del body"
 PROMPT 129 6 "IMPORTO"
END
   
STRING 12
BEGIN
 KEY "riga separazione dalle righe del body"
 PROMPT 2 7 "---------------------------------------------------------------------------------------------------------------------------------------------"
END

END

SECTION BODY ODD 8

STRING 16 25 2
BEGIN
 KEY "debitore"
 PROMPT 2 1 ""
 MESSAGE _CLI,!RAGSOC|INC,FL->2
END 

STRING 27 16
BEGIN
 KEY "codice fiscale"
 PROMPT 2 3 ""
 FIELD 20->PAIV
 FIELD 20->COFI
END

STRING 17 25 2 
BEGIN
 KEY "Indirizzo debitore + nr. civico"
 PROMPT 29 1 ""
 MESSAGE _CLI,!IND
END

STRING 14 5
BEGIN
 KEY "CAP debitore"
 PROMPT 29 2 ""
 MESSAGE _CLI,!CAPCF
END

STRINGA 18 25 2
BEGIN
 KEY "PIAZZA(LOCALITA+PROV)"
 PROMPT 29 3 ""
 MESSAGE _CLI,!PIAZZA
END

STRING 19 30 2 
BEGIN
 KEY "banca d'appoggio denominazione"
 PROMPT 55 1 ""
 FIELD 201@->S0
END         

STRING 20 30 2 
BEGIN
 KEY "banca d'appoggio succursale"
 PROMPT 55 3 ""
 FIELD 203@->S0
END    

STRING 21 5 
BEGIN
 KEY "ABI presentazione"
 PROMPT 55 5 "ABI: "
 FIELD CODABI
END         

STRING 22 5 
BEGIN
 KEY "CAB succursale"
 PROMPT 67 5 "CAB: "
 FIELD CODCAB
END

STRING 101 15
BEGIN
  KEY "CUP"
  PROMPT 2 6 "CUP "
  FIELD CUP
END    

STRING 102 10
BEGIN
  KEY "CIG"
  PROMPT 25 6 "CIG "
  FIELD CIG
END    

STRING 29 35
BEGIN
  KEY "Conto Corrente"
  PROMPT 55 6 "IBAN "
  FIELD 20->IBAN
END    

LISTA 23 8
BEGIN
 KEY "a saldo/in conto"
 FIELD 31->ULTRATA
 PROMPT 95 1 ""
 ITEM " |IN CONTO"
 ITEM "X|A SALDO"
END

STRING 24 17 5   
BEGIN
 KEY "dati fattura"
 PROMPT 92 2 ""
 MESSAGE _FATT,!DATIFATT
END
  
DATA 25 10
BEGIN
 KEY "data scadenza"
 PROMPT 112 1 ""
 FIELD 31->DATASCAD
END

STRINGA 28 3
BEGIN
 KEY "Codice valuta"
 PROMPT 0 0 ""
 FIELD 31->CODVAL
 MESSAGE COPY,FL->4
 FLAGS "H"
END

VALUTA 26 18
BEGIN
 KEY "importo"
 PROMPT 122 1 ""
 MESSAGE _IMPORTO
 MESSAGE ADD,FL->3
 DRIVENBY 28
END
     
END

SECTION FOOTER LAST 3

STRINGA 1
BEGIN
 KEY "riga separazione dalle righe del body"
 PROMPT 2 1 "---------------------------------------------------------------------------------------------------------------------------------------------"
END

NUMERO 2 13
BEGIN
 KEY "scritta n. documenti"
 PROMPT 5 2 "N. DOCUMENTI "
END                                    

STRINGA 4 3
BEGIN
 KEY "Codice valuta"
 PROMPT 0 0 ""
 FLAGS "H"
END

VALUTA 3 18
BEGIN
 KEY "Totale"
 PROMPT 115 2 "TOTALE " 
 DRIVENBY 4
END   

END

END