(APP Help) AQL data server

AQL (App Query Language) DATA SERVER
AQL (App Query Language) 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 (App Query Language)
servera se prvo izvrsava skript INIT.AQL (App Query Language) koji definise osnovne objekte
i metode. INIT.AQL (App Query Language) kao i skript za zadavanje upita REQUEST.AQL (App Query Language) 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 (App Query Language). Osim ovoga, upiti se mogu zadavati i direktno, preko 
konzole, a rezultati se uvek ispisuju i na ekranu. AQL (App Query Language) 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 (App Query Language) 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