lib

proc Form_Start()

     mode = __params[4]
     if (mode = "ALL_MODE") then
        call SetCaption("Businesses")
     elseif (mode = "CERT_SUPPLIERS") then
        call SetCaption("Suppliers")
     elseif (mode = "MANUFACTURERS") then
        call SetCaption("Manufacturers")
     endif

end

proc Panels_Start()

     mode = __params[4]
     if (mode = "ALL_MODE") then
        start_sql "DATA" "KOSMOS"
         SELECT *
         FROM AU_BUSINESS
        end_sql
     elseif (mode = "CERT_SUPPLIERS") then
        start_sql "DATA" "KOSMOS"
         SELECT AU_BUSINESS.TITLE, AU_BUSINESS.STREET_NO,
         AU_BUSINESS.CITY, AU_BUSINESS.COUNTRY2, AU_BUSINESS.COUNTRY1, AU_CONTACT.AU_CONTACT,
         AU_BUSINESS.AU_BUSINESS, AU_CONTACT.DISP_NAME
         FROM AU_CATEGORY LEFT JOIN (AU_CATEGORY_ITEM LEFT JOIN (AU_CATEGORY_ENT LEFT JOIN (AU_BUSINESS
         LEFT JOIN AU_CONTACT ON AU_BUSINESS.STD_CONTACT = AU_CONTACT.AU_CONTACT)
         ON AU_CATEGORY_ENT.RID = AU_BUSINESS.AU_BUSINESS) ON AU_CATEGORY_ITEM.AU_CATEGORY_ITEM = AU_CATEGORY_ENT.AU_CATEGORY_ITEM)
         ON AU_CATEGORY.AU_CATEGORY = AU_CATEGORY_ITEM.AU_CATEGORY
         WHERE (AU_CATEGORY.ACODE='AU_BUSINESSTYPES')
         AND (AU_CATEGORY_ITEM.ACODE='AU_SUPPLIER')
         AND (AU_CATEGORY_ENT.TNAME='AU_BUSINESS')
        end_sql
     elseif (mode = "MANUFACTURERS") then
        start_sql "DATA" "KOSMOS"
         SELECT AU_BUSINESS.TITLE, AU_BUSINESS.STREET_NO,
         AU_BUSINESS.CITY, AU_BUSINESS.COUNTRY2, AU_BUSINESS.COUNTRY1, AU_CONTACT.AU_CONTACT,
         AU_BUSINESS.AU_BUSINESS, AU_CONTACT.DISP_NAME
         FROM AU_CATEGORY LEFT JOIN (AU_CATEGORY_ITEM LEFT JOIN (AU_CATEGORY_ENT LEFT JOIN (AU_BUSINESS
         LEFT JOIN AU_CONTACT ON AU_BUSINESS.STD_CONTACT = AU_CONTACT.AU_CONTACT)
         ON AU_CATEGORY_ENT.RID = AU_BUSINESS.AU_BUSINESS) ON AU_CATEGORY_ITEM.AU_CATEGORY_ITEM = AU_CATEGORY_ENT.AU_CATEGORY_ITEM)
         ON AU_CATEGORY.AU_CATEGORY = AU_CATEGORY_ITEM.AU_CATEGORY
         WHERE (AU_CATEGORY.ACODE='AU_BUSINESSTYPES')
         AND (AU_CATEGORY_ITEM.ACODE='AU_MANUFACTURER')
         AND (AU_CATEGORY_ENT.TNAME='AU_BUSINESS')
        end_sql
     endif
     q = QueryByName("DATA")
     call TPrepare(q)

end

proc Lst_DblClick()

     call OpenFormTop("ptEdit","AU_BUSINESS_E.FM","WORK.AU_BUSINESS",1,"?=AU_BUSINESS")

end