menu POPUPwm Xbrowse

[marcioe]

Ola a todos os amigos, estou querendo colocar um menu POPUP no Xbrowse

 

Vejam o exemplo de como seria 

 

 

Agradeço a Todos

 

 

[kapiaba]

https://forums.fivetechsoft.com/viewtopic.php?t=38643

 

Regards, saludos.

[marcioe]

Não consegui fazer funcionar. vou tentar mais vezes para ver

[marcioe]

O amigo Luiz Fernando Empresoft

 

Muito Obrigado 

Segue caso ajude mais amigos


        *------------------------------------------------------------------------- 
        oDB_T_NOTA_SAIDA:bRClicked                 := { | nRow, nCol | popmenu2( nRow, nCol, oDB_T_NOTA_SAIDA) }

 

 

*-------------------------------------------------------------------------------
*-------------------------------------------------------------------------------
static function popmenu2( nRow, nCol, oBrw_geral)
   local oPopup, oFont
   wCol=oBrw_geral:nColSel
   nLin=oBrw_geral:nRowSel
	MENU oPopup POPUP 2007                                       
        MENUITEM "Adicionar Produto" action alert(time())
        MENUITEM "Alterar Produto" action  alert(time())
	     SEPARATOR
        MENUITEM "Desassociar Produto" action  alert(time())
	     SEPARATOR
        MENUITEM "Retorna" ACTION oPopup:end()
   ENDMENU
   ACTIVATE POPUP oPopup OF oBrw_geral AT nRow, nCol
return .t.	

 

[giovanyvecchi]

Ola, se quiser colocar em uma coluna do xBrowse com botão do lado faz assim

 

		lc_aColunaDtImagem := ::oBrw3161_AgentesDocImgs:AddCol()
			With Object lc_aColunaDtImagem
				:bStrData         := {||::oDsTmp_AgenteCNHImgs:N_AGE_CNHIMGS_dImagemData}
				:cHeader          := "Dt. Foto "
				//:cToolTip         := ""
				:nWidth           := 118
				:nDataStrAlign    := AL_RIGHT
				:nHeadStrAlign    := AL_RIGHT
				// Propriedades Inicio

				:nEditType        := EDIT_BUTTON 
				:AddResource("B16_NADA") // Bitmaps
				:AddResource("B16_NOVO") // Bitmaps
				:AddResource("B16X_AGENTEFOTOUP") // Bitmaps
				:AddResource("B16_BORRACHA") // Bitmaps
				:AddResource("B16_NADA") // Bitmaps
				:AddResource("B16_NADA") // Bitmaps
				:AddResource("B16_SETABAIXO") 
				:nBtnBmp          := 7
				:nBtnWidth        := 20
				:bEditBlock       := <|nHandle,nHWnd,oSelfBtn|
					Local _oMenuFotos, _aCursorPosicao := {20,12} //Linha, Coluna
					Local _lTmp := .F., _aMenuItem := Array(4)
				  
					MENU _oMenuFotos POPUP 2015 
				  
						If ::oDsTmp_AgenteCNHImgs:N_AGE_CNHIMGS_nSeqAuto > 0
							MENUITEM _aMenuItem[1] Prompt "Marcar imagem do documento para exclusão" OF _oMenuFotos Resource "B16M_DELETE"  
								_aMenuItem[1]:bAction := <||
									If MsgNoYes("O registro da imagem da CNH será marcada para exclusão após "+;
													"a confirmação do procedimento."+CRLF+CRLF+;
													"Deseja marcar a imagem da CNH para exclusão ?",;
													"Atenção, Responda.")
										::oDsTmp_AgenteCNHImgs:VarPut("nFlagProcess",4)
									EndIf
									::oBrw3161_AgentesDocImgs:Refresh()
									::oBrw3161_AgentesDocImgs:SetFocus()
									Return Nil  
								> //cEnd
							
							If !::oDsTmp_AgenteCNHImgs:N_AGE_CNHIMGS_lCCN_Enviar
								MENUITEM _aMenuItem[2] Prompt "Colocar na fila para envio ao CCN" OF _oMenuFotos Resource "B16M_AgenteFotoUp"
									_aMenuItem[2]:bAction := <||
										If MsgYesNo("Deseja incluir na fila para a imagem da CNH ser enviada para o CCN ?",;
														"Atenção, Responda.")
											::oDsTmp_AgenteCNHImgs:VarPut("N_AGE_CNHIMGS_lCCN_Enviar",.T.)
										EndIf
										::oBrw3161_AgentesDocImgs:Refresh()
										::oBrw3161_AgentesDocImgs:SetFocus()
										Return Nil  
									> //cEnd
							else
								MENUITEM _aMenuItem[3] Prompt "Tirar da fila de envio ao CCN" OF _oMenuFotos Resource "B16M_BORRACHAREMOVE"   
									_aMenuItem[3]:bAction := <||
										If MsgYesNo("Deseja desmarcar o envio da imagem da CNH para o CCN ?",;
														"Atenção, Responda.")
											::oDsTmp_AgenteCNHImgs:VarPut("N_AGE_CNHIMGS_lCCN_Enviar",.F.)
										EndIf
										::oBrw3161_AgentesDocImgs:Refresh()
										::oBrw3161_AgentesDocImgs:SetFocus()
										Return Nil  
									> //cEnd

							EndIf
								
						EndIf

						If ::oDsTmp_AgenteCNHImgs:N_AGE_CNHIMGS_nSeqAuto == -1
							MENUITEM _aMenuItem[2] Prompt "Excluir a imagem recém incluída" OF _oMenuFotos Resource "B16M_BORRACHA"
								_aMenuItem[2]:bAction := <||
									If MsgYesNo("Deseja excluir a imagem recém incluída ?",;
													"Atenção, Responda.")
										::oDsTmp_AgenteCNHImgs:Delete()
										::oBrw3161_AgentesDocImgs:GoUp()
									EndIf
									::oBrw3161_AgentesDocImgs:Refresh()
									Eval(::oBrw3161_AgentesDocImgs:bChange)
									::oBrw3161_AgentesDocImgs:SetFocus()
									Return Nil  
								> //cEnd
						EndIf

					ENDMENU  
					ACTIVATE POPUP _oMenuFotos AT _aCursorPosicao[1], _aCursorPosicao[2] ;
						OF oSelfBtn:oBtnElip 
				
					Return Nil
				> //cEnd
				:bBmpData         := <||
					Local nLedBmp := 1
					If ::oDsTmp_AgenteCNHImgs:nFlagProcess == 2 // Inclusão
						nLedBmp := 2 
					ElseIf ::oDsTmp_AgenteCNHImgs:nFlagProcess == 4 // Exclusão
						nLedBmp := 4 
					EndIf
					Return nLedBmp
				> //cEnd
				// Propriedades Final  
			End With 		

 

[marcioe]

Top demais amigo, isso ai