Compile function Popup_Services(@Service, @Params) #pragma precomp SRP_PreCompiler $Insert LOGICAL $Insert POPUP_EQUATES GoToService Return Response or "" //----------------------------------------------------------------------------- // SERVICES //----------------------------------------------------------------------------- Service DisplayPopupLiteral(Title, ColumnNames, LiteralData, ReturnColumn) If ( (Title NE '') and (ColumnNames NE '') and (LiteralData NE '') and (ReturnColumn NE '') ) then Popup_Rec = '' Popup_Rec = -1 Popup_Rec = -1 Popup_Rec = -1 Popup_Rec = -1 Popup_Rec = 16777215 Popup_Rec = 'Tahoma':@Svm:'-11':@Svm:'400':@Svm:'0':@Svm:'0':@Svm:'5':@Svm:'0':@Svm:'39':@Svm:'0':@Svm:'0':@Svm:'0':@Svm:'0':@Svm:'11':@Svm:'2':@Svm:'0':@Svm:'21' Popup_Rec = '' DisplayText = '' DisplayText := LiteralData Popup_Rec = DisplayText Popup_Rec = '' For each ColName in ColumnNames using @VM setting vPos Popup_Rec = '1':@Svm:'5':@Svm:'C':@Svm:'C':@Svm:'':@Svm:ColName Next ColName Popup_Rec = 'L' Popup_Rec = ReturnColumn Popup_Rec = Title Popup_Rec = '' Popup_Rec = "F" Popup_Rec = 1 Popup_Rec = 1 Popup_Rec = 1 Popup_Rec = 1 Popup_Rec = 1 Popup_Rec = 1 Popup_Rec = 1 Popup_Rec = 0 Popup_Rec = 0 Popup_Rec = 0 Popup_Rec = 0 Popup_Rec = 0 Popup_Rec = 0 Popup_Rec = 1 Popup_Rec = 0 Popup_Rec = 0 Response = Popup(@Window, Popup_Rec, '') end End Service