romfast/roaacnpro
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Initial commit — sursa ROAACNPRO

Browse Source 
Co-Authored-By: Claude Sonnet 4.6 <noreply@anthropic.com>
This commit is contained in:
Marius Mutu
2026-06-10 16:01:00 +03:00
commit fab869990d
68 changed files with 11444 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
cheiaj.prg Normal file
View File

@@ -0,0 +1,14 @@
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