SELECT .F. as ales, v.declaratio, vs.name as nava, NVL(b.arrival_ti, {//::}) as datai, NVL(b.departure_, {//::}) as datap, ;
	NVL(tn.id, 0) as tipn_id, NVL(tn.tipn, SPACE(30)) as tipn, CAST(NVL(vs.lbt, 0) as n(9,2)) as lbp, ;
	CAST(NVL(vs.length, 0) as n(12,2)) as lung, CAST(NVL(vs.trn, 0) as n(9,2))as trn, CAST(NVL(vs.gross_tonn, 0) as n(12,2)) as cap, ;
	CAST(NVL(vs.horsepower, 0) as n(12,0)) as cp, ;
	NVL(rp.name, SPACE(30)) as port ;
	from ips_berthings b JOIN ips_voyages v ON b.voy_id = v.id ;
	LEFT JOIN ips_vessels vs ON b.ves_id = vs.id ;
	LEFT JOIN ips_vessel_types vtp1 ON vs.vtp_id = vtp1.id ;
	LEFT JOIN ips_vessel_types vtp ON vtp1.grp_id = vtp.id ;
	LEFT JOIN ips_tipn tn on vtp.aramis_typ = tn.id ;
	LEFT JOIN ips_route_points rp ON b.rpt_id = rp.id ;
	WHERE v.declaratio = '19A0456' ;
	ORDER BY b.arrival_ti ;
	INTO CURSOR cNavePort READWRITE 