FiveTech Software tech support forums

... que usar VBA, etc Simplemente usa esto desde FWH en un bucle: ShellExecute( 0, "open", StrTran( "whatsapp://send?phone=" + cTelefono + "&text=" + cMensaje ), " ", "%20" ) ) SysRefresh() // ó SysWait( 5 ) prueba con distintos valores hasta ...

... OF oDlg SIZE nW-50,35 PIXEL COLOR nRGB(AZUL_SAM),nRGB(240,240,240) VCENTER BORDER nRow:=nRow+35 @ nRow,25 GET oObj["telefono"] VAR ::cTelefono OF oDlg SIZE nW-50,35 PIXEL Lo logico es q si pongo border me haga un recuadro completo del say y si le pongo BOX me pone un recuadro GRIS ...

... VK_TAB )+ ": "+( cCliente)+ CRLF           cTooltip += "Telefono" + Chr( VK_TAB )+ ": "+( cTelefono)+ CRLF this is he result https://i.postimg.cc/kMpbBtcB/Immagine.jpg good !!! only for these value I have problems now ...

... cSuperficie := SPACE(10) LOCAL cAntig := SPACE(4) LOCAL cNombre := SPACE(40) LOCAL cDomicilio := SPACE(30) LOCAL cPoblacion := SPACE(25) LOCAL cTelefono := SPACE(10) LOCAL cPerjudicado:= SPACE(40) LOCAL cDomi := SPACE(30) LOCAL cPobla := SPACE(25) LOCAL cTele := SPACE(10) LOCAL fFeSini := CTOD(" ...

... #include "fivewin.ch" PROCEDURE main() LOCAL oDlg, oFolder, font1 LOCAL cContrato:=space(13) ,; cNombre:=space(30) ,; cDireccion:=space(60) ,; cTelefono:=space(10) ,; cNotas:="" DEFINE FONT font1 NAME "ARIAL" SIZE 0,-10 BOLD //Define dialogo DEFINE DIALOG oDlg NAME "DLGTEST"; TITLE "Another ...

... cNumPoliza IF .NOT. EOF() cRamo:=Polizas->Ramo cNombre:=Polizas->Nombre cDomicilio:=Polizas->Domicilio cPoblacion:=Polizas->Poblacion cTelefono:=Polizas->Telefono REDEFINE GET cRamo ID 17 OF oDlg REDEFINE GET cNombre ID 18 OF oDlg REDEFINE GET cDomicilio ID 19 OF oDlg REDEFINE GET ...

... cNumPoliza IF .NOT. EOF() cRamo:=Polizas->Ramo cNombre:=Polizas->Nombre cDomicilio:=Polizas->Domicilio cPoblacion:=Polizas->Poblacion cTelefono:=Polizas->Telefono REDEFINE GET cRamo ID 17 OF oDlg REDEFINE GET cNombre ID 18 OF oDlg REDEFINE GET cDomicilio ID 19 OF oDlg REDEFINE GET ...

* ivizcaino 2007 * smsSock('000001','PASSWD','5532324028','Hola AMigos') * Poner en System\smsSock.bwp FUNCTION SMSSock() PARAM cCliente,cPassword,cTelefono,cMensaje cDominio:='www.jikama.com' oSMS := TWebClient():New(6207) Cargo := .f. cTexto:='' oSMS:bOnConnect := {|oWClient| Cargo := .t.} oSMS:bOnRead ...