AQL DATA SERVER

AQL data server omogucava da se iz eksternih aplikacija online pristupa podacima u APP bazi podataka. Pri tom postojeci korisnici mogu koristiti program na sasvim uobicajen nacin. Pri startovanju AQL servera se prvo izvrsava skript INIT.AQL koji definise osnovne objekte i metode. INIT.AQL kao i skript za zadavanje upita REQUEST.AQL se nalaze u diru koji je oznacen u Sistemske opcije/Podesavanje programa/Transfer i clipboard. Rezultat upita se upisuje u isti dir, u file RESULT.AQL. Osim ovoga, upiti se mogu zadavati i direktno, preko konzole, a rezultati se uvek ispisuju i na ekranu. AQL raspoznaje sledece komande:

Otvaranje potrebnih fizickih tabela OPEN Artikli, MagKol OPEN Nar, NarS OPEN Partneri OPEN Usl, Profak, Proizlaz, ProTip, Magacin Definisanje objekta ROBA, polja i metoda DEFTABLE Roba

 INDEX Artikli Art_Sif                                              
 FIELD Artikal     = Artikli->a_naziv                               
 FIELD Sifra       = Artikli->a_sif                                 
 FIELD Kol         = Str(MagGet("K", 1, Artikli->a_id),10)          
 FIELD Cena        = Str(MagGet("PC", 1, Artikli->a_id),10,2)       
 FIELD Ref         = Str(Artikli->a_ref,10)                         
 FIELD Cen         = Str(Cen(28),10)                                
 FIELD AllKol      = Str(GetAKol(s19,24c, Artikli->a_id),10)        
 METHOD Seek       = Artikli->(DBSeek (UYU(PadR(<X>,15) ),.f.) )      
 METHOD For        = SetFor(<X>)                                    
 METHOD While      = SetWhile(<X>)                                  
 METHOD List       = Artikli->(SQLList(<X>) )                        

END

DEFTABLE Kupci INDEX Partneri Par_Sif FIELD Naziv = Partneri→p_naziv FIELD Adresa1 = Partneri→p_adr1 FIELD Adresa2 = Partneri→p_adr2 FIELD Kd = Trim(Partneri→p_kd) METHOD Seek = AqlSeek(<X>) METHOD List = Partneri→(SQLList(<X>) ) METHOD SeekPref = AqlSeekPref(<X>) METHOD SetName = AqlSetData (<X>, “N”) METHOD SetAdr1 = AqlSetData (<X>, “A1”) METHOD SetAdr2 = AqlSetData (<X>, “A2”) METHOD SetTel = AqlSetData (<X>, “T”) METHOD AddPar = AqlAddPar () END DEFTABLE Order

 INDEX Partneri Par_Sif                                             
 INDEX Artikli Art_Sif                                              
 METHOD AddOrd    = AqlSetPro(<X>)                                  
 METHOD AddArt    = AqlAddArt(<X>)                                  
 METHOD Memo      = AqlMemPro(<X>)                                  

END

DEFTABLE User METHOD LogUser = LogUser(<X>) END AKo se postojeci skript izvrsi kao inicijalni, AQL moze odgovarati na sledece upite: WITH Roba FOR .T. LIST Artikal, Sifra, Kol END Ovaj upit za objekat ROBA daje sve njegove elemente i to naziv, sifru i kolicinu. Za brzi pregled jednog magacina koristite: WITH Lager LIST 5, 123 END Ovaj zahtev vraca za magacin id=5 tabelu sifra, artikal, kolicina, ref.cena, ref.nab.cena, ref.pro.cena i cena za partnera id=123. Na primer, upis nove narudzbenice se obavlja ovako: WITH Order AddOrd PF, KUP-001, DP, SMAGC AddArt 1234, 1 AddArt 1003, 3 AddArt 0345, 10 Memo ISPORUKA: U nasem magacinu. Memo Neophodna je izjava! END Kartica partnera moze se dobiti na osnovu njegove sifre ili naziva. Na primer: WITH Kartice SetPar 12345 LIST Datum, Doc, Dug, Pot END