fluna

Como ficou: ************************** Function Whatsapp( cPara ) ************************** Local oShell,wCodCli,lSair,lOk If !IsInternet() MsgInfo("Necessário Uma Conexão com Internet !"+CRLF+"Operação cancelada") Return(.f.) Endif wCodCli:=alltrim(right(cpara,5)) Select cli cli->(OrdSetFocus("codigo")) seek wcodcli lOk:=found() Select SRV if !lok ? "Erro! cliente não encontrado on cadastro!" return(.f.) endif cPara:=alltrim(CLI->FONE_MOVEL) cNome:=alltrim(CLI->NOME) CursorWait() nSegs:=val(GetPvProfString("WhatsApp","SecWaitPage","0",SysArq)) cMens:=GetPvProfString("WhatsApp","MsgPrinting" ," ",SysArq) cSair:=GetPvProfString("WhatsApp","FechaNavegador" ," ",SysArq) If empty(nSegs) nSegs:=10 // 10 segundos WritePProString( "WhatsApp","SecWaitPage","10",SysArq ) Endif If empty(cMens) cMens:="Avisamos que O SEU APARELHO ja esta disponivel! Voce ja pode vir retira-lo." WritePProString( "WhatsApp","MsgPrinting",cMens,SysArq ) Endif If empty(cSair) cSair:="S" WritePProString( "WhatsApp","FechaNavegador","S",SysArq ) Endif cPara:=AjustaFone( cPara ) If Empty( cPara ) MsgInfo("Número do telefone de "+cNome+" inválido, verifique!") return(.f.) endif cHora:=Time() nHora:=val(substr(cHora,1,2)+substr(cHora,4,2)) cHora:=iif(nHora>=0000 .and. nHora <=1200 ,"Bom Dia, " , "" ) cHora:=iif(nHora>=1201 .and. nHora <=1800 ,"Boa Tarde, ",cHora) cHora:=iif(nHora>=1801 .and. nHora <=2359 ,"Boa Noite, ",cHora) cCabc:= cHora+"A "+wNomeEmpresa+" tem um recado para voce!" oShell:= CreateObject( "WScript.Shell" ) oShell:run("https://web.whatsapp.com/send?phone="+cPara) WaitSeconds(nSegs) oShell:sendkeys("*"+cCabc+"*") ; WaitSeconds( 3 ) ; oShell:SendKeys("~") ; WaitSeconds( 1 ) oShell:sendkeys("_"+cMens+"_") ; WaitSeconds( 3 ) ; oShell:SendKeys("~") ; WaitSeconds( 1 ) oShell:sendkeys("*Nosso contato: "+wFoneEmpresa+"*") ; WaitSeconds( 3 ) ; oShell:SendKeys("~") ; WaitSeconds( 3 ) If cSair="S" oShell:SendKeys("%{F4}") // ALT+F4 fecha o navegador, mas deixar aberto fica mais rápido.... Endif CursorArrow() Return nil ***************************** FUNCTION AjustaFone( xFone ) ***************************** Local i,cLetra,cFone:="" For i=1 to len(xFone) cLetra:=Substr(xFone,i,1) cFone+=iif(cLetra="0","0",iif( val(cletra)>0,cLetra,"")) Next If Substr(cFone,1,2)#"55" cFone:="55"+cFone Endif cFone:=alltrim(cFone) If len( cFone ) # 13 cFone:=" " endif Return( cFone )  

Fabio Luna, boa noite.
Estou esperando aquele contato mestre, desde: 09/08/2016 10:00, ultimo e-mail que recebi seu...kkkkkkk

É para um sistema se laboratório, onde os exames são criados pelo próprio usuário em duas fases:   Uma: ele cria o texto exame já prontinho, com todo o texto que "der na telha", e define qual parte do texto será preechido, ainda na fase da configuração do exame, ele seta as referencias para cada ponto de digitação; Uma vez terminada a configuração, esse dado são guardasos em um .INI com o mesmo nome do formulário;  Depois, quando for digitar um exame, seleciona o formulário e preenche; na digitação, os sistema vai no ini e "pesquisa" as referencias para o get preenchido.  (temos cerca de 1300 exames, telas genéricas para eles não funcionam, então, transfir para o operador fazer a tela a seu gosto hehehehe. (eles adoraram a idéia)  Inicialmente pensei em usar o TextEdit (rtf), mas deparei-me com com várias dificuldades... (tipo desligar o insert antes de entrar no texto, fazer com que o cursor não "invada" a palavra ao lado... etc.  -Abraços a todos que ajudaram.

Pronto... Agora está funcionando, mas da uma acertada nas variaveis, as declare para que o código fique limpo... Somente a vGet que é necessário que seja PRIVATE ok?
Ajuste as demais coisas, não tive como fazer isso agora... Gostei desta funcionalidade, muito pratico para criar formularios de forma rápida, da até pro usuário criar... Muito bom
 
#include "FiveWin.ch" //----------------------------------------------------------------------------// Function u_Teste() local oDlg, oRich Local bBlock Private vGet Define font ofnt name "Lucida Console" size 0,-12 vTab:={" "} vGet:={} ctxt:=MemoRead( "g:\Teste.txt" ) For x=1 to mLcount(cTxt,95) cFrase:=MemoLine(cTxt,95,x) aadd(vtab,cFrase) Next DEFINE DIALOG oDlg from 1,1 to 40,100 lin:=1 For i=1 to Len( vtab ) nLin:=lin*9.0 @ nlin,10 say vtab[ i ] of odlg font oFnt pixel cTxt:=vtab[ i ] For x=1 to len( cTxt ) If substr(ctxt,x,1)="[" wtxt:=substr(ctxt,x) nPos:=at("]",wtxt) nTam:=iif(nPos>0,nPos-2,0) cVar:=iif(nTam>0,substr(ctxt,x+1,nTam)," ") If nTam > 0 aadd(vGet,{ nlin-2 , (x*3.5)+8.4 , cVar } ) Endif Endif Next lin+=.9 Next aadd(vGet,{ NIL , NIL , NIL} ) For i=1 to Len( vGet )-1 // @ vGet[i,1],vGet[i,2] get oGet Var vGet[i,3] of odlg pixel noborder // size len(vGet[i,3])*4,8 //New( nRow, nCol, bSetGet, oWnd, nWidth, nHeight, cPict, bValid,; // nClrFore, nClrBack, oFont, lDesign, oCursor, lPixel,; // cMsg, lUpdate, bWhen, lCenter, lRight, bChanged,; // lReadOnly, lPassword, lNoBorder, nHelpId,; // lSpinner, bUp, bDown, bMin, bMax, bAction, cBmpName, cVarName,; // cCueText, cVarName ) CONSTRUCTOR // bBlock := "{|u| If(PCount()==0,"+cVar+","+cVar+":=u)}" bBlock := "{|u| If(PCount()==0,vGet["+Str(i,3)+",3], vGet["+Str(i,3)+",3]:=u)}" bBlock := &bBlock oGet := TGet():New(vGet[i,1],vGet[i,2],bBlock,oDlg,/*nWidth*/,/*10*/,/*cPict*/,/*bvalid*/, , , , , , .t., , , /*bWhen*/, , , , , , .t., ) Next ACTIVATE DIALOG oDlg CENTERED Return NIL  
 
 

Ármaria Fluna. Nunca vi nada igual. O que pretendes fazer com isso? Abs.

Ou...
crie uma variavel lok:=.f.
na função que testa cpf, se for válido, lok:=.t.
REDEFINE BUTTON ID 200 OF oDlgEmpreg ; MESSAGE "Cadastra paciente" ; ACTION ( SMCL201(.T.) ) WHEN lOk

Galera, como desabilitar o teclado numérico sem desabilitar a pistola de leitura de código de barras? alguém pode dar uma mãozinha aê?
Experimentei o codigo abaixo:
For i=96 to 105 // 0..9 - ok
SetKey( i, { || NIL } )
Next

mas a pistola desabilita também. quero só o teclado numerico...
alguma ajuda?

Ou trocar o driver da placa de video por um do XP, fiz isso e funcionou. alt-enter - tela cheia no windows7, que nem no xp.

Ou trocar o driver da placa de video por um do XP, fiz isso e funcionou. alt-enter - tela cheia no windows7, que nem no xp.

Isso tá parecendo coisa de quem vê o time perder e vai queimar ônibus ou quebrar lojas de quem não tem nada a ver com isso...
1 - Se Dilma venceu, foi vontade da MAIORIA. se não pode conviver com isso, mude de país
2 - Se vc acha que Dilma foi eleita por causa de bolsa família, então VOCÊ É O CULPADO DISSO, pela sua omissão quando deveria estar
engajado em movimentos pela EDUCAÇÃO POLÍTICA E FILOSÓFICA dos "ignorantes", e em movimentos que ajudassem eles a saírem
da miséria. assim, não precisariam correr atrás de "bolsa esmola".
3 - Se AÉCIO perdeu, é porquê foi ARROGANTE E AGRESSIVO O TEMPO TODO e NO MÍNIMO DESRESPEITOSO com alguém que foi
presa e torturada para defender essa mesma democracia que permite que você fale o que quiser sem ser preso e torturado.
4 - JÁ PASSOU MEU JOVEM, ACEITE ISSO. e trabalhe para que nas próximas eleições, não haja ignorantes nem miseráveis para votar na Dilma.
enquanto você se entocar na sua mansão, ignorando o sofrimento alheio, a miséria ao seu redor aumentará de tal forma que seus muros
serão derrubados e seus bens saqueados; então, TRABALHE e AJUDE OS QUE ESTÃO EM BUSCA DE TRABALHO assim não precisarão
de bolsa esmola, e nem você também - RECLAME MENOS, TRABALHE MAIS, FAÇA A SUA PARTE.
5 -MAIS UMA VEZ, ACEITE A DECISÃO DA MAIORIA. E LEMBRE-SE, NENHUMA AUTORIDADE É INSTITUIDA SEM A PERMISSÃO DE DEUS - CULPE DEUS ENTÃO POR ISSO.