Files
roaacnpro/cheiaj.prg
2026-06-10 16:01:00 +03:00

14 lines
864 B
Plaintext

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