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 17
DATA 1 10
BEGIN
KEY "data scadenza"
PROMPT 36 3 ""
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 55 3 ""
MESSAGE _IMPORTO
DRIVENBY 23
END
VALUTA 4
BEGIN
KEY "importo in lettere"
PROMPT 18 9 ""   
MESSAGE _IMPORTO
DRIVENBY 23
PICTURE "(*,*)LETTERE@44"     
END 
VALUTA 10 18
BEGIN
KEY "importo fattura"
PROMPT 73 10 ""       
MESSAGE _FATT,!IMPFATT 
DRIVENBY 23
FL "D"
END
STRING 11 50 
BEGIN
KEY "ragione sociale debitore"
PROMPT 20 11 ""
MESSAGE _CLI,!RAGSOC
END
END
END