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<PCOL$>      = -1
        Popup_Rec<PROW$>      = -1
        Popup_Rec<PWIDTH$>    = -1
        Popup_Rec<PHEIGHT$>   = -1
        Popup_Rec<PBKCOLOR$>  = 16777215
        Popup_Rec<PFONT$>     = '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<PFILE$>     = ''
        DisplayText           = ''
        DisplayText          := LiteralData
        Popup_Rec<PDISPLAY$>  = DisplayText
        Popup_Rec<PFORMAT$>   = ''
        For each ColName in ColumnNames using @VM setting vPos
            Popup_Rec<PFORMAT$, vPos> = '1':@Svm:'5':@Svm:'C':@Svm:'C':@Svm:'':@Svm:ColName
        Next ColName
        Popup_Rec<PMODE$>         = 'L'
        Popup_Rec<PSELECT$>       = ReturnColumn
        Popup_Rec<PTITLE$>        = Title
        Popup_Rec<PFIELD$>        = ''
        Popup_Rec<PTYPE$>         = "F"
        Popup_Rec<PCOLHDR$>       = 1
        Popup_Rec<PROWNUM$>       = 1
        Popup_Rec<PROWBTN$>       = 1
        Popup_Rec<PHGRID$>        = 1
        Popup_Rec<PVGRID$>        = 1
        Popup_Rec<PRESIZE$>       = 1
        Popup_Rec<PBORDER$>       = 1
        Popup_Rec<PBTNSBELOW$>    = 0
        Popup_Rec<PSEARCH$>       = 0
        Popup_Rec<PSORT$>         = 0
        Popup_Rec<PLOCK$>         = 0
        Popup_Rec<PSHOWMISSING$>  = 0
        Popup_Rec<PPRINTABLE$>    = 0
        Popup_Rec<PSHOWGAUGE$>    = 1
        Popup_Rec<PCAPTUREESC$>   = 0
        Popup_Rec<PGREENBAR$>     = 0

        Response = Popup(@Window, Popup_Rec, '')
    end
    
End Service

