define  "ProvisionId"  		numeric string 8 .
define "ReferenceId" 		text 30 .
define "ReferenceType" 		text 30 .
define "ProvisionType"		text 30 .
define "ValutationDate"		extended date .
define "ClaimType"		text 10 .
define "ReinsuranceGroupingId" 	text 20 .
define "Currency" 			text 30 .
define "UWYear"			numeric string 4 .  
define "UWMonth"		numeric string 2 . 
define "Amount" 			number .
define "retval" text .
retval := ConsoleCopy(concat("Export started: ", current time),1) .
for TaagRiserve ;
	message current item number .
	assign ProvisionId 		:= concat (AnnoSinistro  , NumeroSinistro) . 
	assign ReferenceId 		:= concat (AnnoSinistro  , NumeroSinistro) . 
	assign ReferenceType 		:=  "CLAIMS" .
	assign ProvisionType 		:= blank .
	assign ReinsuranceGroupingId 	:=  blank  .
	assign Currency 			:= "EUR" .
	assign ClaimType			:= "Normal" .
	assign temp UWMonth		:= 12 .

	list records
	temp ProvisionId	;			
	temp ReferenceId ;				
	temp ReferenceType ;			
	temp ProvisionType ; 				-- non abbiamo evidenza  da Beyond se la riserva è aperta per Pagamento( Claims payment provision ) o per spese (external/internal cost provision)			
	temp ValutationDate ;			
	temp ClaimType	;				
	Serie ;					
	temp UWMonth	;				
	temp ReinsuranceGroupingId ;	
	temp Currency	;			
	ImportoRiserva 	.	
end .
for RinsPrevRecCau ;
	message current item number .
	assign ProvisionId 		:= concat (AnnoSinistro , NumeroSinistro) . 
	assign ReferenceId 		:= concat (AnnoSinistro  , NumeroSinistro) . 
	assign ReferenceType 		:=  "CLAIMS" .
	assign ProvisionType 		:= "Recovery provision" .
	assign ReinsuranceGroupingId 	:=  blank  .
	assign Currency 			:= "EUR" .
	assign ClaimType			:= "Normal" .
	assign temp UWMonth		:= 12 .
	assign Amount 			:= if (Recupero Rateale = Si , ImpAttesoDaRecupRat , Importo Stimato ).

	list records
	temp ProvisionId	;			
	temp ReferenceId ;				
	temp ReferenceType ;			
	temp ProvisionType ; 						
	temp ValutationDate ;			
	temp ClaimType	;				
	Serie ;					
	temp UWMonth	;				
	temp ReinsuranceGroupingId ;	
	temp Currency	;			
	Amount 	.	
end .
retval := ConsoleCopy(concat("Export end: ", current time),4) .
export to "V:\Controlling\Minerva\Reports\Minerva_Italy_Provisions.txt" .
ProvisionId|ReferenceId|ReferenceType|ProvisionType|ValuationDate|ClaimType|UWYear|UWMonth|ReinsuranceGroupingId|Currency|Amount
.items TaagRiserve 
@f[1,1,8]|@f[1,2,30]|@f[1,3,30]|@f[1,4,30]|@f[1,5,10]|@f[1,6,10]|@f[1,7,4]|@f[1,8,2]|@f[1,9,20]|@f[1,10,30]|@f[1,11,14]
.items RinsPrevRecCau 
@f[1,1,8]|@f[1,2,30]|@f[1,3,30]|@f[1,4,30]|@f[1,5,10]|@f[1,6,10]|@f[1,7,4]|@f[1,8,2]|@f[1,9,20]|@f[1,10,30]|@f[1,11,14]
.end