Luiz Arruda (ICO) Posted September 24, 2012 Report Share Posted September 24, 2012 Boa tarde cVar:="CampoTextonoDBF" nesta situação Msgget("Lembrete individual","Altere ou exclua a mensagem",@cVar)id=code>id=code>Mostra os botões "OK" e "Cancelar". É possivel gravar a variável cVar no Campo do DBF ao pressiocar em "Ok" ?? Obrigado.. Luiz Arruda Corumbá-MS ico.corumba@gmail.com | http://www.facebook.com/profile.php?id=100000933378029 FiveWin 9.04 xHarbour PellesC Bcc. Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted September 24, 2012 Author Report Share Posted September 24, 2012 Boa tarde cVar:="CampoTextonoDBF" nesta situação Msgget("Lembrete individual","Altere ou exclua a mensagem",@cVar)id=code>id=code>Mostra os botões "OK" e "Cancelar". É possivel gravar a variável cVar no Campo do DBF ao pressiocar em "Ok" ?? Obrigado.. Luiz Arruda Corumbá-MS ico.corumba@gmail.com | http://www.facebook.com/profile.php?id=100000933378029 FiveWin 9.04 xHarbour PellesC Bcc. Quote Link to comment Share on other sites More sharing options...
kapiaba Posted September 24, 2012 Report Share Posted September 24, 2012 FUNCTION FILTRARM( DbClientes, oLbx, nOpcaoRadio ) // Busca Pela Matricula do Cliente FIELD DEST_NOME FIELD RAZ_MATRIC LOCAL nRecNo LOCAL cCodigo LOCAL oDlg LOCAL oFont LOCAL nOrden := 2 LOCAL nCliente := 0 LOCAL cNombre := SPACE(30) // Para Que a Tecla F2 NÆo Se Acione + de 1 vez If lAtivo // Se F2 J estiver Acionado, Retornar Nulo. Return Nil // Desativada Tecla de Fun‡Æo... Endif //Set( 9, "ON" ) SET SOFTSEEK ON If Eof() MsgStop( "Bancos de Dados Bloqueado," + CRLF +; "Acesso Negado!!", "Cuidado!" ) Return Nil Endif DbSetOrder( 1 ) //-> Por Matricula // Para Que a Tecla F2 NÆo Se Acione + de 1 vez lAtivo := .T. // Aqui F2 Se Desativa IF MsgGet( "Buscar Por:", IF( nOrden=2, "Codigo", "Nome " ) + ; " do Cliente", ; IF( nOrden=1, @nCliente, @cNombre ), ; "Lupa.Bmp" ) cNombre=RTRIM( Upper( cNombre ) ) LOCATE FOR cNombre $ ALLTRIM(Raz_Matric) IF EOF() nMsgBox( "Não Encontrei Este Cliente", OemToAnsi( "Aten‡Æo" ) ) DbSetOrder( 2 ) Go Top ELSE // achou o registro... nRecNo := (DbClientes:cAlias)->( RecNo() ) DbClientes:GoTo( nRecNo ) REPLACE... O que voce quiser... oLbx:Refresh() oLbx:SetFocus() ENDIF ENDIF // Para Que a Tecla F2 NÆo Se Acione + de 1 vez lAtivo := .F. // Aqui F2 Se Reativa IF nOpcaoRadio == 2 DbSelectArea( ( DbClientes:cAlias ) ) DbClientes:SetOrder( 1 ) ELSEIF nOpcaoRadio == 1 DbSelectArea( ( DbClientes:cAlias ) ) DbClientes:SetOrder( 2 ) ENDIF RETURN NIL id=code>id=code> João Santos - São Paulo. joao@pleno.com.br Fone: (11) 3106-2832 / 5150-7341 - TIM https://www.facebook.com/kapiaba FWH 2.7 - xHARBOUR WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted September 24, 2012 Author Report Share Posted September 24, 2012 O poder do If If Msgget("Lembrete individual","Altere ou exclua a mensagem",@cVar) EMPRESAS->ALERTA1 := cVar id=code>id=code>Valeu grande guru, era isso. Obrigado Abraços.. \o/ Luiz Arruda Corumbá-MS ico.corumba@gmail.com | http://www.facebook.com/profile.php?id=100000933378029 FiveWin 9.04 xHarbour PellesC Bcc. Editado por - ico on 24/09/2012 16:21:20 Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.