//                    ( o o )                            
// +-------------.oooO--(_)--Oooo.--------------------------------------
// |  Made by NeronLeVelu for http://atserviceday.dnsalias.net
// |
// |Version 1.02bd 08/02/2008
// |  status: Publishable
// |   [In Dev / Debugging / Stable / Publishable]     
// |
// |Comment:
// |	
// |Version 1.01 24/12/2007
// |	Create by RDU	
// |Version 1.02 31/01/2008
// |	Evolution 
// |               .oooO
// |               (   )   Oooo.
// +----------------\ (    (   )-----------------------------------------
//                   \_)    ) /
//                         (_/ 

// bop_cmd -f ListObj.frg "ShowObjectDomset( 'cr', 'id>2', 'ref_num', 'customer.combo_name')"


//LXUyfA Z1Rb c4Q76g6B
#define jcbxvwxcS strlen
//YnE k1p c7bcFji
#define QVN while
//JzPgjq e7V E0gLuO_JQ
#define HTkds if
//prM p0c M5hX
#define srApG substr
//jTBW c3B i_v
#define NdiKmiG else
//pkQpgIT q8CjdME F2K
#define oIGFpEHr return
//LGyfA K1Rc c4QE6g6B
#define NipLL string
//IciOci MaIs PoLaBas
#define wHauL int
/*a7N2R W59F1d :
#define B2Td ;
wdefine r5hhi : */
#define RToeNkLiX ;
/*i1OYv y47rV :
#define G7gb59Z ;
wdefine q2fJ : */
#define eBeODzk ;
/*O3Dd5q z9dr :
#define x3Uq2K ;
wdefine o8Efx_ : */
#define vNRZ ;
/*Q467 R3eF :
#define I6ohhVB ;
wdefine v0t4K : */
#define fAr ;
/*J7yF V5r_ :
#define W7dNPGw ;
wdefine c6k2f : */
#define rpj ;
//aAKc X5p r_bh
#define iPOUe argc
//XxC p3Gq O5PM
#define AJeg argv
//Vzuuie X3ejWX R4sCAk
#define PvkNXlK expand
//GiVAYZDm m3Q_ U3rstvM1
#define xcfwD for
//wHcs b_yU v48X
#define bExdGZLz format
//HIoAU q7O G_ggu
#define HeCvLxE if
//rlfN O7P O7I7v9ie
#define HIGqMdQVq int
//CObWxPht M4f G9lzmR
#define jVCKXZvQ logf
//RAnIyMy Z4kP P51yqbBjP
#define kWzOWOa msg
//npvq B8kIhKk Q4B6HEJy
#define lYpox msg_error
//vubrE v1D i355f05
#define oksGY object
//MEKSqli Q9uw w01ekKin
#define YZGWmb printf
//OcuOiKfA W1n7S l_j
#define TmJIMi return
//jpDoi L8bu6XU K9JFMhU1
#define meVcUtBhH send_wait
//pXkqu x3U D7pMumt8V
#define Akav string
//GnBS E4dcven v69M
#define WuJWEs top_object

ShowObjectDomset(Akav K0QwbAX,Akav pluscestmieux,...){Akav g0nlskkU,f6t,c1b_Ubjai RToeNkLiX oksGY f82ENOI,R02VPx4G,z3yZXz rpj HIGqMdQVq H41xsU,R70OGnm2,B7VgK rpj f6t=B5_("cSthDoowmOsbejte")eBeODzk R02VPx4G=WuJWEs()RToeNkLiX c1b_Ubjai=pluscestmieux rpj meVcUtBhH(0,R02VPx4G,B5_("_caatltlr"),K0QwbAX,B5_("fseytncch_"),B5_("TSITCA"),c1b_Ubjai,-1,0)vNRZ HeCvLxE(lYpox()){jVCKXZvQ(ERROR,bExdGZLz(format(B5_("oCbajnencott.  gReeta sLoins:t  %osfs "),"\0045"),kWzOWOa[0]))RToeNkLiX TmJIMi vNRZ}eBeODzk B7VgK=kWzOWOa[1]vNRZ HeCvLxE(B7VgK==0){YZGWmb(format(B5_("t%ys  l iEsmtp"),"\n"))rpj TmJIMi eBeODzk}vNRZ f82ENOI=kWzOWOa[0]RToeNkLiX xcfwD(R70OGnm2=0 fAr R70OGnm2<B7VgK eBeODzk R70OGnm2++){meVcUtBhH(2,f82ENOI,B5_("_dionbd_ebxy"),B5_("ADUELFT"),R70OGnm2,R70OGnm2)fAr HeCvLxE(lYpox()){jVCKXZvQ(ERROR,bExdGZLz(format(B5_(" Coabnjneoctt .g eRte aSspoenc:i f%iscs"),"\0045"),kWzOWOa[0]))fAr TmJIMi vNRZ}vNRZ z3yZXz=kWzOWOa[0]fAr g0nlskkU=""vNRZ xcfwD(H41xsU=2 fAr H41xsU<iPOUe rpj H41xsU++){g0nlskkU+=bExdGZLz(format(B5_("s s[]%"),"\0045"),PvkNXlK(bExdGZLz(format(B5_("s&i{s't%esnst'_=i%ds-s>.%psesr}"),"\0045","\0045","\0045"),z3yZXz.persistent_id,K0QwbAX,AJeg[H41xsU])))vNRZ}vNRZ YZGWmb(bExdGZLz(format(B5_("{%%ss s }% s%ds)s "),"\n","\0045","\0045","\0045"),R70OGnm2,z3yZXz.persistent_id,g0nlskkU))fAr}vNRZ}fAr
NipLL B5_(NipLL V2e){NipLL L8Kl39Q,o_BxWHH0,t8XeTAOw;wHauL v7Ar,h0yT;L8Kl39Q="";o_BxWHH0=L8Kl39Q;v7Ar=(L8Kl39Q==o_BxWHH0);t8XeTAOw=V2e;h0yT=jcbxvwxcS(t8XeTAOw);QVN(t8XeTAOw!=""){HTkds(v7Ar){L8Kl39Q+=srApG(t8XeTAOw,0,1);}NdiKmiG{o_BxWHH0+=srApG(t8XeTAOw,0,1);};t8XeTAOw=srApG(t8XeTAOw,1,h0yT);h0yT-=1;v7Ar=!v7Ar;};oIGFpEHr(o_BxWHH0+L8Kl39Q);};