CondiÃ§Ã£o IIF no MsgItem

Luiz Arruda (ICO) · March 14, 2013

Bom dia Pessoal

Como faÃ§o uma condiÃ§Ã£o If ser disparada no exemplo abaixo

DEFINE MSGITEM oRow OF oWnd:oMsgBar ;

PROMPT "Acesso &Acc" SIZE 160 ;

ACTION (Listagem(MsgYesNo("Data e Hora em que o Computador foi ligado"+CRLF+CRLF+"Limpar dados ?","..::Dados")))

tentei com IIF mas sem sucesso!!

Obrigado...

kapiaba · March 14, 2013

Cole e copie para \samples e teste para ver se te ajuda:

// Testing Bitmaps in the MsgBar - \SAMPLES\TESTMBAR.PRG
 
#include "FiveWin.ch"
 
static oWnd
 
//----------------------------------------------------------------------------//
 
function Main()
 
   local lMail := .t., oBar
 
   local oMsgItem, oMsgItemMail
 
   DEFINE WINDOW oWnd TITLE "Testing MsgBar with bitmaps"
 
   DEFINE BUTTONBAR oBar OF oWnd _3D
 
   @ 10,10 CHECKBOX lMail PROMPT "E-Mail"  OF oWnd ;
           SIZE 200, 35 COLOR CLR_BLACK ;
           ON CHANGE If( ! lMail, oWnd:oMsgBar:DelItem( oMsgItemMail ), ;
                                  oWnd:oMsgBar:InsItem( oMsgItemMail, 2 ) )
 
   SET MESSAGE OF oWnd TO "I may use different bitmaps"
 
   DEFINE MSGITEM oMsgItem OF oWnd:oMsgBar ;
          PROMPT "Lock" ;
          SIZE 60 ;
          BITMAPS "..\bitmaps\16x16\lock.bmp", "..\bitmaps\16x16\unlock.bmp" ;
          ACTION ( oMsgItem:lActive := !oMsgItem:lActive, oMsgItem:Paint() )
 
   DEFINE MSGITEM oMsgItemMail OF oWnd:oMsgBar ;
          SIZE 24 ;
          BITMAPS "..\bitmaps\16x16\MAIL.BMP" ;
          TOOLTIP "Check the email" + CRLF + "Get email"
 
   DEFINE MSGITEM OF oWnd:oMsgBar ;
          BITMAPS "..\bitmaps\16x16\PRINTER.BMP" ;
          ACTION PrinterSetup() ;
          TOOLTIP "Setup the printer"
 
   oWnd:oMsgBar:DateOn()
   oWnd:oMsgBar:ClockOn()
 
   ACTIVATE WINDOW oWnd
 
return nil
 
//----------------------------------------------------------------------------//

Luiz Arruda (ICO) · March 14, 2013

NÃ£o Ã© isso baby ..
eu quero simular If MsgYesNo() no Action sem disparar para uma Function
Tipo assim ;

If MsgYesNo("Deseja Sair")
   Quit
Endif

So que executando direto no Action, do mesmo jeito que abre o sim,nÃ£o

DEFINE MSGITEM oRow OF oWnd:oMsgBar ; 
      PROMPT "Acesso &Acc" SIZE 160 ;
      ACTION  (Listagem(MsgYesNo("Data e Hora em que o Computador foi ligado"+CRLF+CRLF+"Limpar dados ?","..::Dados")))

.. serÃ¡ que Ã© possivel ?

kapiaba · March 14, 2013

NÃ£o vey... eu acho que nÃ£o, vc. tem que disparar com o: ACTION( FUNCAO_DESLIGA() )

AnaCatacombs · March 14, 2013

Ico, seria algo assim?

IIF(MsgYesNo("Data e Hora em que o Computador foi ligado"+CRLF+CRLF+"Limpar dados ?"),Sua_Funcao_Que_Limpa_os_dados(),.T.)

[]'s

Ana

Erciley Junior · March 14, 2013

OlÃ¡ ico, posta seu cÃ³digo se possÃvel.

Isso funcionou normalmente aqui, teste se puder:

DEFINE MSGITEM ABABA OF oWnd:oMsgBar PROMPT NUMRED                SIZE 150 BITMAP "logoff"    ACTION IF( MSGYESNO('','') , MSGINFO('YES','ATENÃ‡ÃƒO') , MSGINFO('NO','ATENÃ‡ÃƒO') ) TOOLTIP "TESTE" CENTER

AnaCatacombs · March 14, 2013

Nossa, Boiei HAeuihaeiuaHEA

Li rapidÃ£o e entendi outra coisa

Desculpe, pessoal :wacko:

Luiz Arruda (ICO) · March 15, 2013

Acho que nÃ£o vai ter jeito mesmo, vou o que eu nÃ£o queria, disparar para uma function
mesmo da maneira que o Erciley postou, no lugar das MsgInfo() teno que ir para uma function, e Ã© exactamente isso que eu nÃ£o queria, minha vontade era executar o delete no click

algo assim ;

DEFINE MSGITEM ABABA OF oWnd:oMsgBar PROMPT " Dados"                  ;
       SIZE 150 BITMAP "..\lembre\question.bmp"                       ;
       ACTION If MsgYesNo("Deseja excluir os dados ?", "..::Dados"))  ;
       Acesso->dbdelete(),.t.,                                        ;
       ToolTip "Dados" Center

Mas isso nem passa na compilaÃ§Ã£o :rolleyes:

Obrigado a quem respondeu...

aferra · March 15, 2013

Testes desta maneira.

ACTION IF( MsgYesNo("Deseja excluir os dados ?", "..::Dados"), msginfo("deleta"), MsgInfo("NÃ£o Deleta"))

kapiaba · March 15, 2013

NÃ£o sei qual Ã©a FRESCURA de nÃ£o disparar para uma funÃ§Ã£o... Emboyolou de vez?? kkkkkkkkkkkkkkkkkkkkkkkkkkkk

AnaCatacombs · March 15, 2013

Repicando o repique:

Ico, seu erro alÃ Ã© fechar o ) do IIF antes da condiÃ§Ã£o. Pega esse segundo parenteses, e coloca na linha debaixo:

DEFINE MSGITEM ABABA OF oWnd:oMsgBar PROMPT " Dados" ;
SIZE 150 BITMAP "..\lembre\question.bmp" ;
ACTION If MsgYesNo("Deseja excluir os dados ?", "..::Dados"), Acesso->dbdelete(),.t.) ;
ToolTip "Dados" Center

Luiz Arruda (ICO) · March 15, 2013

Testes desta maneira.

ACTION IF( MsgYesNo("Deseja excluir os dados ?", "..::Dados"), msginfo("deleta"), MsgInfo("NÃ£o Deleta"))

Mesmo desta maneira no lugar do Msginfo() tenho que disparar pra funÃ§Ã£o.... sÃ³ com o msg funfa mas nÃ£o executa o Dbdelete()

Luiz Arruda (ICO) · March 15, 2013

Repicando o repique:

Ico, seu erro alÃ Ã© fechar o ) do IIF antes da condiÃ§Ã£o. Pega esse segundo parenteses, e coloca na linha debaixo:
DEFINE MSGITEM ABABA OF oWnd:oMsgBar PROMPT " Dados" ;
SIZE 150 BITMAP "..\lembre\question.bmp" ;
ACTION If MsgYesNo("Deseja excluir os dados ?", "..::Dados"), Acesso->dbdelete(),.t.) ;
ToolTip "Dados" Center
 

Nem passou na compilaÃ§Ã£o, com o If mesmo com o endif depois...

Luiz Arruda (ICO) · March 15, 2013

NÃ£o sei qual Ã©a FRESCURA de nÃ£o disparar para uma funÃ§Ã£o... Emboyolou de vez?? kkkkkkkkkkkkkkkkkkkkkkkkkkkk

Se podemos fazer com uma unica linha o que se faz com 20 Ã© lucro nÃ£o Ã© bi ...

AnaCatacombs · March 15, 2013

Tente assim, coraÃ§Ã£o:

DEFINE MSGITEM ABABA OF oWnd:oMsgBar PROMPT " Dados" ;
SIZE 150 BITMAP "..\lembre\question.bmp" ;
ACTION If MsgYesNo("Deseja excluir os dados ?", "..::Dados"), Acesso->(dbdelete()),.t.) ;
ToolTip "Dados" Center

Note que a diferenÃ§a estÃ¡ no Acesso->(dbdelete())

Testei aqui e compilou.

CIACPD · March 16, 2013

Testado.

DEFINE MSGITEM ABABA OF oWndEdit:oMsgBar PROMPT " Dados" ;
   SIZE 150 BITMAP "..\BITMAPS\EXIT.BMP" ;
   ACTION If( MsgYesNo("Deseja excluir os dados ?", "..::Dados"), msginfo("Acesso->(dbdelete()),.t.","AtenÃ§Ã£o") , ) ;
   ToolTip "Dados" Center

Troque a funÃ§Ã£o msginfo por sua rotina.

Daniel Segura

vagner · March 16, 2013

OlÃ¡,

ACTION IF( MsgYesNo("Deseja excluir os dados ?", "..::Dados"), (SeuArquivo->(RLock()),SeuArquivo->(DbDelete()),SeuArquivo->(DbUnlock()), MsgInfo("NÃ£o Deleta"))

Agora se For mais de um registro :

ACTION IF( MsgYesNo("Deseja excluir os dados ?", "..::Dados"), SueArquivo->(DbEval({||(SeuArquivo->(RLock()),SeuArquivo->(DbDelete()),SeuArquivo->(DbUnlock())}), MsgInfo("NÃ£o Deleta"))

Erciley Junior · March 18, 2013

LOCAL bBlock:={|| IF( MSGYESNO('Deseja excluir os dados ?','ATENÃ‡ÃƒO') , (ALIAS->(RLOCK()),ALIAS->(DBDELETE())) , .T. ) }

E agora para despoluir o cÃ³digo...... ^^

...ACTION EVAL(bBlock)

Luiz Arruda (ICO) · March 18, 2013

LOCAL bBlock:={|| IF( MSGYESNO('Deseja excluir os dados ?','ATENÃ‡ÃƒO') , (ALIAS->(RLOCK()),ALIAS->(DBDELETE())) , .T. ) }

E agora para despoluir o cÃ³digo...... ^^

...ACTION EVAL

Bom dia a todos...

A dica que mais se aproximou e nÃ£o deu erro na compilaÃ§Ã£o foi esta, tudo funciona perfeitamente, sÃ³ que nÃ£o faz o que deveria fazer.... excluir os dados

Obrigado..

Eduardo Bilato · March 18, 2013

Lembe-se ICO que, neste exemplo do Erciley, vocÃª deve substituir o ALIAS-> pelo alias que estÃ¡ usando.

Exemplo: se seu arquivo usa o alias NF, deverÃ¡ ficar

LOCAL bBlock:={|| IF( MSGYESNO('Deseja excluir os dados ?','ATENÃ‡ÃƒO') , (NF->(RLOCK()),NF->(DBDELETE())) , .T. ) }

Luiz Arruda (ICO) · March 18, 2013

Bom dia Eduardo... isso foi a primeira coisa que eu fiz

AbraÃ§os..

CIACPD · March 18, 2013

OlÃ¡ Ico,

Verifique "SET DELETED ON"

Abaixo um teste com um pouco de cada dica.

#include "FiveWin.ch"

static oWnd, oWndEdit, oItem, ABABA, ;
       aCoors, oFont, oMenu, oMenuitem

static aColors, aFonts
static nColors, nFonts

//----------------------------------------------------------------------------//
function Main()

   Local i:=1

   LOCAL bBlock :={|| IF( MSGYESNO('Deseja excluir os dados ?','ATENÃ‡ÃƒO' ) , ( Clientes->(RLOCK()),Clientes->(DBDELETE()) ) , .T. ) }

   LOCAL bBlock2:={|| IF( MSGYESNO('Deseja excluir os dados ?','ATENÃ‡ÃƒO') , Clientes->(DbEval({||(Clientes->(RLock() ), Clientes->(DbDelete()), Clientes->(DbUnlock()) )})) , .T. ) }

   SET DELETED ON

   aColors := Array( 5 )
   aFonts  := Array( 5 )

   DEFINE FONT aFonts[ 1 ] NAME "Arial"         SIZE 0, 24 BOLD
   DEFINE FONT aFonts[ 2 ] NAME "Ms Sans Serif" SIZE 0,  8 BOLD
   DEFINE FONT aFonts[ 3 ] NAME "Ms Serif"      SIZE 0, 12 BOLD
   DEFINE FONT aFonts[ 4 ] NAME "Arial"         SIZE 0, 12 ITALIC
   DEFINE FONT aFonts[ 5 ] NAME "Ms Sans Serif" SIZE 0,  8

   aColors[ 1 ] = "w+*/r"
   aColors[ 2 ] = "r+/w+*"
   aColors[ 3 ] = "g+/w+*"
   aColors[ 4 ] = "w+*/b"
   aColors[ 5 ] = "b+/w"

   nColors := 1
   nFonts := 1

   SET _3DLOOK ON

   if ! File( "clientes.dbf" )
      DbCreate( "Clientes.dbf", { { "Nombre",    "C", 40, 0 },;
                                  { "Direccion", "C", 50, 0 },;
                                  { "Telefono",  "C", 12, 0 },;
                                  { "Edad",      "N",  2, 0 },;
                                  { "Productos", "C", 10, 0 },;
                                  { "Nivel",     "N",  2, 0 } } )
   endif
   USE Clientes

   IF MSGYESNO('Deseja incluir dados para teste ?','ATENÃ‡ÃƒO')
      for i:=1 to 5
         APPEND BLANK
         Clientes->Nombre     := str(i,1)
         Clientes->Direccion  := str(i,1)
         Clientes->Productos  := str(i,1)
         Clientes->Nivel      := i
         Clientes->Telefono   := str(i,1)
         Clientes->Edad       := i
      next
   endif
   go top

   browse()

   DEFINE WINDOW oWnd FROM 1, 1 TO 20, 70;
      TITLE "FiveWin Teste" MDI

   SET MESSAGE OF oWnd TO "FiveWin" ;
       FONT oFont

   DEFINE MSGITEM ABABA OF oWnd:oMsgBar PROMPT " Dados" ;
          SIZE 150 BITMAP "..\BITMAPS\EXIT.BMP" ;
          ACTION EVAL(bBlock) ;
          ToolTip "Dados" Center

	  //ACTION IF( MsgYesNo("Deseja excluir os dados ?", "..::Dados"), exclui_dados() , MsgInfo("NÃ£o Deleta") )  ;
          //ToolTip "Dados" Center

   ACTIVATE WINDOW oWnd MAXIMIZED

   AEval( aFonts, { | oFont | oFont:End() } )

return nil
//----------------------------------------------------------------------------//
static function exclui_dados()

   Clientes->(RLock())
   while ! Clientes->(eof())
      Clientes->(DbDelete())
      Clientes->(DbSkip())
   end
   Clientes->(DbUnlock())
   Clientes->(DbCommit())
return nil

Daniel Segura

Luiz Arruda (ICO) · March 18, 2013

Ufa!! agora sim Daniel..

 
LOCAL bBlock:={|| IF( MSGYESNO('Deseja excluir os dados ?','ATENÃ‡ÃƒO') , ; Acesso->(DbEval({||(Acesso->(RLock() ), Acesso->(DbDelete()), Acesso->(DbUnlock()) )})) , .T. ) }

Desta Forma del certo...

Obrigado...

AbraÃ§os..

vagner · March 18, 2013

KKKK, exatamente igual a minha segunda opÃ§Ã£o sÃ³ nÃ£o coloquei em um codblock pois o valid jÃ¡ faz o codblock

CIACPD · March 19, 2013

Vagner, Ã© a sua opÃ§Ã£o, apenas montei um exemplo com o teste que eu fiz incluindo a sua dica para que fique mais fÃ¡cil para quem vier depois.

Quando o nosso amigo falou que nÃ£o estava excluindo inclui sua dica para ver se havia algum possÃvel erro mesmo sabendo que voce Ã© mestre no assunto.

Felicidades Vagner.

Daniel Segura

CondiÃ§Ã£o IIF no MsgItem

Recommended Posts

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Join the conversation