59 lines
2.2 KiB
Plaintext
59 lines
2.2 KiB
Plaintext
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
|
|
|