USE 31 
JOIN 14 INTO NPROGTR==NPROGTR      
JOIN 20 INTO TIPOCF==TIPOCF 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 ALIAS 113 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 13 TO 203@ ALIAS 313 INTO COM==S5
JOIN %BAN ALIAS 202 INTO CODTAB==CODABIP+CODCABP
END

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

GENERAL
BEGIN         
 OFFSET 0 0
END

SECTION BODY ODD 19

DATA 1 10
BEGIN
 KEY "data scadenza"
 PROMPT 50 2 ""
 FIELD 31->DATASCAD
END

STRINGA 23 3
BEGIN
  KEY "Codice valuta"
  PROMPT 0 0 ""
  FIELD 31->CODVAL
  FLAGS "H"
END

VALUTA 2 18 
BEGIN
 KEY "importo"
 PROMPT 70 2 ""
 MESSAGE _IMPORTO
 DRIVENBY 23
END

STRING 3 50
BEGIN
 KEY "denominazione banca di presentazione"
 PROMPT 27 7 ""
 FIELD 202@->S0
END

VALUTA 4
BEGIN
 KEY "importo in lettere"
 PROMPT 27 6 ""   
 MESSAGE _IMPORTO
 DRIVENBY 23
 PICTURE "(*,*)LETTERE@44"     
END   

LISTA 5 4
BEGIN
 KEY "a saldo/in conto"
 FIELD 31->ULTRATA
 PROMPT 27 10 ""
 ITEM " |########"
 ITEM "X|"
END 

LISTA 6 4
BEGIN
 KEY "a saldo/in conto"
 FIELD 31->ULTRATA
 PROMPT 27 11 ""
 ITEM " |"
 ITEM "X|########"
END 

STRING 7 1
BEGIN 
  KEY "lettera a/e a seconda che la fattura raggruppata/o no"
  PROMPT 35 10 ""
  MESSAGE _FATT,!A
END    

STRING 8 1
BEGIN 
  KEY "lettera a/e a seconda che la fattura raggruppata/o no"
  PROMPT 43 10 ""
  MESSAGE _FATT,!A
END

STRING 9 17 5   
BEGIN
 KEY "dati fattura"
 PROMPT 48 10 ""
 MESSAGE _FATT,!DATIFATT
END
 
VALUTA 10 18
BEGIN
 KEY "importo fattura"
 PROMPT 73 10 ""       
 MESSAGE _FATT,!IMPFATT      
 DRIVENBY 23
END

STRING 11 30 2 
BEGIN
 KEY "ragione sociale debitore"
 PROMPT 31 14 ""
 MESSAGE _CLI,!RAGSOC
END

STRING 13 32 
BEGIN
 KEY "indirizzo debitore"
 PROMPT 31 16 ""
 MESSAGE _CLI,!IND
END
 
STRING 14 5
BEGIN
 KEY "CAP debitore"
 PROMPT 31 17 ""
 MESSAGE _CLI,!CAPCF
END 

STRING 15 30
BEGIN
 KEY "localita debitore"
 PROMPT 38 17 ""
 MESSAGE _CLI,!PIAZZA
END      
         
STRING 23 16
BEGIN
 KEY "codice fiscale"
 PROMPT 31 18 ""
 FIELD 20->PAIV
 FIELD 20->COFI
END

STRING 17 27 2
BEGIN
 KEY "istituto banca d'appoggio"
 PROMPT 1 14 ""
 FIELD 201@->S0
END

STRING 18 27 2
BEGIN
 KEY "denominazione banca d'appoggio"
 PROMPT 1 16 ""
 FIELD 203@->S0
END  

STRINGA 19
BEGIN
 KEY "via banca appoggio"
 PROMPT 0 0 ""
 FLAGS "H"
 MESSAGE COPY,21
 FIELD 203@->S2
END

STRINGA 20
BEGIN
 KEY "n. civico banca appoggio"
 PROMPT 0 0 ""
 FLAGS "H"
 MESSAGE APPEND,21
 FIELD 203@->S7
END

STRING 21 27
BEGIN
 KEY "indirizzo banca d'appoggio"
 PROMPT 1 18 ""
END          

STRING 22 27
BEGIN
 KEY "localita banca d'appoggio"
 PROMPT 1 19 ""
 FIELD 313@->DENCOM
END         

END

END