watanabe
15-Sep-2021, 09:11 AM
Bom dia tudo bem ?
Estou usando uma webmodaldialog para carregar uma janela como popup mas tem uma seleção do tipo de parcela que esta em um Mobile Select oScea120L01.
Ao clicar no tipo de parcela a view do select fica ao fundo da modaldialog não queria trocar o objeto por uma combo, tem alguma forma de eu chamar essa view da seleção da parcela e deixar ela na frente.
Object oWbFrm_TipoParcela is a cWebForm
Set piColumnSpan to 3
Set psLabel to "Tipo de Parcela"
Set peLabelPosition to lpTop
Set pbPromptButton to True
WebRegisterPath ntNavigateForward oScea120L01
Procedure OnPrompt
Send NavigatePath
Send NavigateForward of oScea120L01 Self
End_Procedure
// Para receber os valores do item da seleção da lista
Procedure OnNavigateBack Handle hoCallback tWebNavigateData NavigateData
String sCODIGO sNomeCob
Get NamedValueGet NavigateData.NamedValues "TIPOCOB" to sCodigo
Get NamedValueGet NavigateData.NamedValues "NOMECOB" to sNomeCob
WebSet psvalue of oWebForm1 to sCODIGO
WebSet psvalue of oWebForm2 to sNomeCob
Forward Send OnNavigateBack hoCallback NavigateData
End_Procedure
End_Object
Estou usando uma webmodaldialog para carregar uma janela como popup mas tem uma seleção do tipo de parcela que esta em um Mobile Select oScea120L01.
Ao clicar no tipo de parcela a view do select fica ao fundo da modaldialog não queria trocar o objeto por uma combo, tem alguma forma de eu chamar essa view da seleção da parcela e deixar ela na frente.
Object oWbFrm_TipoParcela is a cWebForm
Set piColumnSpan to 3
Set psLabel to "Tipo de Parcela"
Set peLabelPosition to lpTop
Set pbPromptButton to True
WebRegisterPath ntNavigateForward oScea120L01
Procedure OnPrompt
Send NavigatePath
Send NavigateForward of oScea120L01 Self
End_Procedure
// Para receber os valores do item da seleção da lista
Procedure OnNavigateBack Handle hoCallback tWebNavigateData NavigateData
String sCODIGO sNomeCob
Get NamedValueGet NavigateData.NamedValues "TIPOCOB" to sCodigo
Get NamedValueGet NavigateData.NamedValues "NOMECOB" to sNomeCob
WebSet psvalue of oWebForm1 to sCODIGO
WebSet psvalue of oWebForm2 to sNomeCob
Forward Send OnNavigateBack hoCallback NavigateData
End_Procedure
End_Object