MsgGet gravando no campo

[Luiz Arruda (ICO)]

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.

[Luiz Arruda (ICO)]

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.

[kapiaba]

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

[Luiz Arruda (ICO)]

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