USE 31
JOIN 14 INTO NPROGTR==NPROGTR      
JOIN 20 INTO TIPOCF=="C" CODCF==CODCF 
JOIN 13 TO 20 INTO COM==COMCF 
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
 FONT "Roman 17cpi"
 SIZE 12
END

SECTION HEADER ODD 9

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

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

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

STRING 4 20
BEGIN 
 KEY "scritta presentati il"
 PROMPT 5 3 "PRESENTATI IL : "
END                          
 
DATA 5 10
BEGIN
 KEY "data"
 PROMPT 0 0 "" 
 FLAGS "AH"
 MESSAGE COPY,6
END   

DATA 6 10
BEGIN
 KEY "data emissione"
 PROMPT 21 3 "" 
END 

STRING 7 3
BEGIN 
 KEY "scritta DA"
 PROMPT 5 4 "DA "
END

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

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

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

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

STRING 12 11
BEGIN
 KEY "scritta titolo righe del body"
 PROMPT 94 7 "FATTURA DEL"
END

STRING 13 8
BEGIN
 KEY "scritta titolo righe del body"
 PROMPT 111 7 "SCADENZA"
END

STRING 14 7
BEGIN
 KEY "scritta titolo righe del body"
 PROMPT 129 7 "IMPORTO"
END
   
STRING 15
BEGIN
 KEY "riga separazione dalle righe del body"
 PROMPT 2 8 "---------------------------------------------------------------------------------------------------------------------------------------------"
END

END

SECTION BODY ODD 8
  
STRING 16 30 2
BEGIN
 KEY "debitore"
 PROMPT 2 1 ""
 FIELD 20->RAGSOC 
END 

STRING 18 30 2 
BEGIN
 KEY "indirizzo debitore"
 PROMPT 32 1 ""
 FIELD 20->INDCF
END

STRINGA 19
BEGIN
 KEY "LOCALITA"
 PROMPT 0 0 ""
 FLAGS "H"
 MESSAGE COPY,21
 FIELD 20->LOCALITACF
END

STRINGA 20
BEGIN
 KEY "PROV"
 PROMPT 0 0 ""
 FLAGS "H"
 MESSAGE APPEND,21
 FIELD 13->PROVCOM
END

STRINGA 21 50 
BEGIN
 KEY "PIAZZA(LOCALITA+PROV)"
 PROMPT 32 2 ""
END

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

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

LISTA 28 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 26 10
BEGIN
 KEY "data scadenza"
 PROMPT 112 1 ""
 FIELD 31->DATASCAD
END
  
NUMERO 27 18
BEGIN
 KEY "importo"
 PROMPT 122 1 ""
 FIELD 31->IMPORTO
 PICTURE "###.###.###.###,@@" 
END
     
END

SECTION FOOTER ODD 2  

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

NUMERO 26 13
BEGIN
 KEY "scritta n. documenti"
 PROMPT 5 2 "N. DOCUMENTI "
 MESSAGE _FOOTER,!NDOC
END                                    

NUMERO 28 18
BEGIN
 KEY "Totale"
 PROMPT 111 2 "TOTALE " 
 PICTURE "###.###.###.###,@@"     
 MESSAGE _FOOTER,!TOTALE
END   

END

END