USE 31
JOIN 14 INTO NPROGTR==NPROGTR      
JOIN 20 INTO TIPOCF=="F" 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 TO 20 ALIAS 201 INTO CODTAB[1,5]==CODABI  
JOIN %BAN TO 20 ALIAS 203 INTO CODTAB==CODABI+CODCAB
JOIN %BAN ALIAS 202 INTO CODTAB==CODABIP+CODCABP
JOIN %BAN ALIAS 204 INTO CODTAB[1,5]==CODABIP
JOIN BNP ALIAS 205 INTO CODTAB==CODABIP+CODCABP
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 80 
BEGIN
 KEY "denominazione banca presentazione"
 PROMPT 38 1 "Al/Alla   @B"
 FIELD 202@->S0
END

STRING 2 30
BEGIN 
 KEY "scritta elenco riba"
 PROMPT 2 1 "@BORDINI DI BONIFICO"
END

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

DATA 4 20
BEGIN
 KEY "data emissione"
 PROMPT 2 2 "Presentati il : " 
 MESSAGE _DATA
END 

STRING 5 130
BEGIN
 KEY "ditta"
 PROMPT 2 4 "Vi preghiamo di disporre per ordine e per conto           @B"
 MESSAGE _DITTA,!RAGSOC
END

STRING 5 130
BEGIN
 KEY "ditta"
 PROMPT 2 5 "i bonifici di seguito indicati:"
END

STRING 6 20
BEGIN
 KEY "scritta titolo righe del body"
 PROMPT 2 7 "CREDITORE"
END

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

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

STRING 9 11
BEGIN
 KEY "scritta titolo righe del body"
 PROMPT 94 7 "FATTURA NUM"
END

STRING 10 8
BEGIN
 KEY "scritta titolo righe del body"
 PROMPT 111 7 "DATA FATT."
END

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

STRING 13 25
BEGIN
 KEY "Numero distinta"
 PROMPT 100 2 "Distinta N. @B"
 FIELD NDIST
END

END

SECTION BODY ODD 6
STRING 15 2 1
BEGIN
 KEY "creditore"
 PROMPT 1 1 "@B"
END 


STRING 16 25 2
BEGIN
 KEY "creditore"
 PROMPT 2 1 ""
 FIELD 20->RAGSOC
 MESSAGE INC,FL->2
END 

STRING 27 21
BEGIN
 KEY "codice fiscale"
 PROMPT 2 3 "P.I. "
 FIELD 20->PAIV
END

STRING 28 2 1
BEGIN
 KEY "indirizzo normale"
 PROMPT 25 1 "@R"
END 

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

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

STRING 117 6
BEGIN
   KEY ""
   PROMPT 2 17 ""
   MESSAGE _NUMEXPR, 20->CODABI==99999
   MESSAGE COPY,118
   FLAGS "H"
END

NUMBER 118 5
BEGIN
   KEY ""
   PROMPT 55 4 ""
   MESSAGE ENABLE,119|DISABLE,19
   MESSAGE ENABLE,120|DISABLE,20|DISABLE,21
   MESSAGE ENABLE,134|DISABLE,22|DISABLE,34
   MESSAGE EMPTY ENABLE,19|DISABLE,119
   MESSAGE EMPTY ENABLE,20|DISABLE,120
   FLAGS "H"
END

STRING 119 40 2 
BEGIN
 KEY "banca d'appoggio denominazione"
 PROMPT 55 1 ""
 FIELD 203@->S0
 FLAGS "D"
END         
STRING 120 40 1 
BEGIN
 KEY "banca d'appoggio denominazione"
 PROMPT 55 3 ""
 FIELD 203@->S2
 FLAGS "D"
END         

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

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

STRING 221 7 
BEGIN
 KEY "ABI presentazione"
 PROMPT 55 4 "@B"
END         

STRING 21 5 
BEGIN
 KEY "ABI presentazione"
 PROMPT 20 4 "ABI: "
 FIELD 20->CODABI
END         

STRING 22 5 
BEGIN
 KEY "CAB succursale"
 PROMPT 31 4 "CAB: "
 FIELD 20->CODCAB
END    

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

STRING 24 17 5   
BEGIN
 KEY "dati fattura"
 PROMPT 92 1 ""
END
  
DATA 25 10
BEGIN
 KEY "data scadenza"
 PROMPT 112 1 ""
END

STRING 34 20 
BEGIN
 KEY "Conto Corrente"
 PROMPT 43 4 "C/C "
 FIELD 20->NUMCC
END

STRING 133 1
BEGIN
 KEY "Conto Corrente"
 PROMPT 5 4 ""
 FIELD 20->NUMCC
 MESSAGE EMPTY DISABLE,134
 FLAGS "H"
END

STRING 134 35
BEGIN
 KEY "Conto Corrente"
 PROMPT 43 4 "ACCOUNT NUM. "
 FIELD 20->NUMCC
 FLAGS "D"
END

STRING 135 35
BEGIN
 KEY "Conto Corrente"
 PROMPT 61 4 "IBAN "
 FIELD 20->IBAN
END

STRING 35 3
BEGIN
 KEY "test sulla valuta"
 PROMPT 2 8 ""
 FIELD CODVAL
 FLAGS "H"
 MESSAGE EMPTY ENABLE,4@|DISABLE,3@
END

STRING 36 17 1
BEGIN
 KEY "cod cliente"
 PROMPT 2 4 "@RCod. For: "
 FIELD 20->CODCF
END 


SECTION RIGHE_EFFETTO 5 1 1 FILE 14 GROUP NPROGTR
  STRINGA 1
  BEGIN
    PROMPT 92 1 "Ft. n."
    FIELD 14->NFATT
  END

  DATA 2
  BEGIN
    PROMPT 107 1 "del "
    FIELD 14->DATAFATT
  END

  VALUTA 3 21 3
  BEGIN
    PROMPT 124 1 ""
    FIELD 14->IMPORTOVAL
    GROUP 3
  END

  VALUTA 4 18 
  BEGIN
    PROMPT 124 1 ""
    FIELD 14->IMPORTO
    GROUP 4
    FLAGS "D"
  END

END
STRINGA 31 32
BEGIN
 PROMPT 110 5 "--------------------------------"
END


STRINGA 32 10
BEGIN
 PROMPT 109 6 "@B Totale"
END


STRINGA 33 2
BEGIN
 PROMPT 114 6 "@B"
END

VALUTA 26 18
BEGIN
 KEY "importo"
 PROMPT 124 6 ""
 MESSAGE _IMPORTO
 MESSAGE ADD,FL->3
 PICTURE "###.###.###.###"
END

END
SECTION FOOTER ODD 5

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

STRINGA 100 12 1
BEGIN
 KEY "stampa 'segue' in coda"
 PROMPT  120 3 "-- SEGUE --"
END

END

SECTION FOOTER LAST 5

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

NUMERO 2 25
BEGIN
 KEY "scritta n. documenti"
 PROMPT 5 2 "ORDINI DI BONIFICO N. "
END                                    

NUMERO 3 50 
BEGIN
 KEY "Totale"
 PROMPT 5 3 "Dell' importo complessivo di L.@B"
 PICTURE "###.###.###.###,@@#"
END   

STRING 93 3
BEGIN
 KEY "test sulla valuta"
 PROMPT 34 3 ""
 FIELD CODVAL
 GROUP 4
END

STRINGA 4 40
BEGIN
 KEY "NUMERO C/C"
 PROMPT 60 3 "@Raddebiterete  il C/C N. @B"
 FIELD 205@->S0
END


STRINGA 5 80
BEGIN
 KEY "firma "
 PROMPT 5 4 "presso di Voi, intestato a:          @B"
 MESSAGE _DITTA,!RAGSOC
END   

STRINGA 6 40
BEGIN
 KEY "firma "
 PROMPT 65 5 "------------------------------------"
END   

DATA 7 34
BEGIN
 KEY "data valuta"
 PROMPT 100 3 "@Rcon valuta per noi: @B"
 FIELD 31->DATADIST
 FL "D"
END

END

END