acerca:=""
a1:=""
a2:=""
a3:=""
a5:=""
a4:=""
a6:=""
a7:=""
acerca:=Request("Titolo")
If (Num(acerca)>0)
	If (ok=1)
		PRINT SETTINGS
		If (OK=1)
			
			CONFIRM("Situazione";"Mandati";"Impegni")
			r1:=0
			If (Substring(acontab;1;2)="FE")
				AINFO:=WANNO+"ENTRATA : Accertamenti "
				
			Else 
				AINFO:=WANNO+"SPESA :  Impegni "
				
			End if 
			If (ok=1)
				
				r1:=1
				If (Substring(acontab;1;2)="FE")
					AINFO:=wanno+" ENTRATA  : Reversali "
				Else 
					AINFO:=WANNO+" SPESA : Mandati "
				End if 
			End if 
			ACERCA1:=Request("R=residui   C= Competenza  T=Tutti")
			If (acerca1="T")
				ainfo:=ainfo+"Tutti"
			Else 
				If (acerca1="R")
					ainfo:=ainfo+" Residui"
				Else 
					If (acerca1="C")
						ainfo:=ainfo+" Competenza"
					Else 
						acerca1:=""
					End if 
				End if 
			End if 
			
			If (Length(acerca1)=1)
				rtot1:=0
				rtot2:=0
				rtot3:=0
				rtot4:=0
				If (Substring(acontab;1;2)="FE")
					RIGA:=0
					atesto1:=WENTE
					ATESTO2:=AINFO
					Print form([Archivio1];"StampaTxt")
					atesto1:="CAPITOLO"
					If (r1=0)
						a1:="Importo"
						a2:="Pagamenti"
						a3:="Saldo"
					Else 
						a1:="Importo"
						a2:=""
						a3:=""
					End if 
					a6:="Codice"
					Print form([Archivio1];"StampaTXT1")
					a1:=""
					a2:=""
					a3:=""
					a5:=""
					a4:=""
					a6:=""
					a7:=""
					atesto1:=""
					Print form([Archivio1];"StampaTXT1")
					READ ONLY([CapEntrata])
					$aa:=sannopref+acerca+"@"
					QUERY([CapEntrata];[CapEntrata]Codice=$aa)
					ORDER BY([CapEntrata];[CapEntrata]Codice;>)
					While (Not(End selection([CapEntrata])))
						If (R1=0)
							READ ONLY([Accertamenti])
							QUERY([Accertamenti];[Accertamenti]Capitolo=[CapEntrata]Codice)
							$a:=sannopref+Substring(wanno;3;2)+"@"
							If (acerca1="C")
								QUERY SELECTION([Accertamenti];[Accertamenti]Numero=$a)
							Else 
								QUERY SELECTION([Accertamenti];[Accertamenti]Numero#$a)
							End if 
							r2:=0
							r3:=0
							
							r2:=Sum([Accertamenti]Importo)
							r3:=Sum([Accertamenti]ProgPag)
							r4:=Round(r2-r3;2)
							rtot2:=rtot2+r2
							rtot3:=rtot3+r3
							rtot4:=Round(rtot2-rtot3;2)
							
							a1:=String(r2;"###.###.##0,00")
							a2:=String(r3;"###.###.##0,00")
							a3:=String(r4;"###.###.##0,00")
							atesto1:=[CapEntrata]Descrizione B
							a6:=Substring([CapEntrata]Codice;Length([CapEntrata]Codice)-11;12)
							Print form([Archivio1];"StampaTXT1")
						Else 
							READ ONLY([Reversali])
							QUERY([Reversali];[Reversali]Capitolo=[CapEntrata]Codice)
							$a:=sannopref+Substring(wanno;3;2)+"@"
							If (acerca1="C")
								QUERY SELECTION([Reversali];[Reversali]accert=$a)
							Else 
								QUERY SELECTION([Reversali];[Reversali]accert#$a)
							End if 
							r2:=0
							r3:=0
							r4:=0
							a2:=""
							a3:=""
							r2:=Sum([Reversali]importo)
							rtot2:=rtot2+r2
							rtot3:=0
							rtot4:=0
							a1:=String(r2;"###.###.##0,00")
							atesto1:=[CapEntrata]Descrizione B
							a6:=Substring([CapEntrata]Codice;Length([CapEntrata]Codice)-11;12)
							Print form([Archivio1];"StampaTXT1")
							
						End if 
						riga:=riga+1
						If (riga>50)
							riga:=0
							atesto1:=""
							a1:=""
							a2:=""
							a3:=""
							a4:=""
							a5:=""
							a6:=""
							Print form([Archivio1];"StampaTXT1")
							a1:=String(rtot2;"###.###.##0,00")
							a2:=String(rtot3;"###.###.##0,00")
							a3:=String(rtot4;"###.###.##0,00")
							atesto1:="totale"
							Print form([Archivio1];"StampaTXT1")
							PAGE BREAK
							atesto1:=WENTE
							ATESTO2:=AINFO
							Print form([Archivio1];"StampaTxt")
							atesto1:="CAPITOLO"
							If (r1=0)
								a1:="Importo"
								a2:="Pagamenti"
								a3:="Saldo"
							Else 
								a1:="Importo"
								a2:=""
								a3:=""
							End if 
							a6:="Codice"
							Print form([Archivio1];"StampaTXT1")
							a1:=""
							a2:=""
							a3:=""
							a5:=""
							a4:=""
							a6:=""
							a7:=""
							atesto1:=""
							Print form([Archivio1];"StampaTXT1")
						End if 
						NEXT RECORD([CapEntrata])
					End while 
				Else 
					RIGA:=0
					atesto1:=WENTE
					ATESTO2:=AINFO
					Print form([Archivio1];"StampaTxt")
					atesto1:="CAPITOLO"
					If (r1=0)
						a1:="Importo"
						a2:="Pagamenti"
						a3:="Saldo"
					Else 
						a1:="Importo"
						a2:=""
						a3:=""
					End if 
					a6:="Codice"
					Print form([Archivio1];"StampaTXT1")
					a1:=""
					a2:=""
					a3:=""
					a5:=""
					a4:=""
					a6:=""
					a7:=""
					atesto1:=""
					Print form([Archivio1];"StampaTXT1")
					READ ONLY([CAPITOLI])
					$aa:=sannopref+acerca+"@"
					QUERY([CAPITOLI];[CAPITOLI]CODICE=$aa)
					ORDER BY([CAPITOLI];[CAPITOLI]CODICE;>)
					While (Not(End selection([CAPITOLI])))
						If (R1=0)
							READ ONLY([Impegni])
							QUERY([Impegni];[Impegni]Capitolo=[CAPITOLI]CODICE)
							$a:=sannopref+Substring(wanno;3;2)+"@"
							If (acerca1="C")
								QUERY SELECTION([Impegni];[Impegni]Numero=$a)
							Else 
								QUERY SELECTION([Impegni];[Impegni]Numero#$a)
							End if 
							r2:=0
							r3:=0
							
							r2:=Sum([Impegni]Importo)
							r3:=Sum([Impegni]ProgPag)
							r4:=Round(r2-r3;2)
							rtot2:=rtot2+r2
							rtot3:=rtot3+r3
							rtot4:=Round(rtot2-rtot3;2)
							a1:=String(r2;"###.###.##0,00")
							a2:=String(r3;"###.###.##0,00")
							a3:=String(r4;"###.###.##0,00")
							atesto1:=[CAPITOLI]Descrizione b
							a6:=Substring([CAPITOLI]CODICE;Length([CAPITOLI]CODICE)-11;12)
							Print form([Archivio1];"StampaTXT1")
						Else 
							READ ONLY([Mandati])
							QUERY([Mandati];[Mandati]Capitolo=[CAPITOLI]CODICE)
							$a:=sannopref+Substring(wanno;3;2)+"@"
							If (acerca1="C")
								QUERY SELECTION([Mandati];[Mandati]Impegno=$a)
							Else 
								QUERY SELECTION([Mandati];[Mandati]Impegno#$a)
							End if 
							r2:=0
							r3:=0
							r4:=0
							a2:=""
							a3:=""
							r2:=Sum([Mandati]Importo)
							rtot2:=rtot2+r2
							rtot3:=0
							rtot4:=0
							a1:=String(r2;"###.###.##0,00")
							atesto1:=[CAPITOLI]Descrizione b
							a6:=Substring([CAPITOLI]CODICE;Length([CAPITOLI]CODICE)-11;12)
							Print form([Archivio1];"StampaTXT1")
							
						End if 
						riga:=riga+1
						If (riga>50)
							riga:=0
							atesto1:=""
							a1:=""
							a2:=""
							a3:=""
							a4:=""
							a5:=""
							a6:=""
							Print form([Archivio1];"StampaTXT1")
							a1:=String(rtot2;"###.###.##0,00")
							a2:=String(rtot3;"###.###.##0,00")
							a3:=String(rtot4;"###.###.##0,00")
							atesto1:="totale"
							Print form([Archivio1];"StampaTXT1")
							PAGE BREAK
							atesto1:=WENTE
							ATESTO2:=AINFO
							Print form([Archivio1];"StampaTxt")
							atesto1:="CAPITOLO"
							If (r1=0)
								a1:="Importo"
								a2:="Pagamenti"
								a3:="Saldo"
							Else 
								a1:="Importo"
								a2:=""
								a3:=""
							End if 
							a6:="Codice"
							Print form([Archivio1];"StampaTXT1")
							a1:=""
							a2:=""
							a3:=""
							a5:=""
							a4:=""
							a6:=""
							a7:=""
							atesto1:=""
							Print form([Archivio1];"StampaTXT1")
						End if 
						NEXT RECORD([CAPITOLI])
					End while 
				End if 
				If (riga>0)
					riga:=0
					atesto1:=""
					a1:=""
					a2:=""
					a3:=""
					a4:=""
					a5:=""
					a6:=""
					Print form([Archivio1];"StampaTXT1")
					a1:=String(rtot2;"###.###.##0,00")
					a2:=String(rtot3;"###.###.##0,00")
					a3:=String(rtot4;"###.###.##0,00")
					atesto1:="totale"
					Print form([Archivio1];"StampaTXT1")
					PAGE BREAK
				End if 
				UNLOAD RECORD([CapEntrata])
				UNLOAD RECORD([CAPITOLI])
			End if 
		End if 
		
	End if 
End if