FiveTech Software tech support forums

... // The example demonstrates different formatting results of Transform() PROCEDURE Main LOCAL nGain := 8596.58 LOCAL nLoss := -256.50 LOCAL cPhone := "5558978532" LOCAL cName := "Jon Doe" ? Transform( 8596.58, "@E 9,999.99" ) // result: 8.596,58 ? Transform( ...

... = "O" $ Clientes->Productos nNivel = max( 1, Clientes->Nivel ) cName = Clientes->Nombre cAddress = Clientes->Direccion cPhone = Clientes->Telefono nAge = Clientes->Edad DEFINE FONT oFont NAME "Arial" SIZE 0, -8 DEFINE FONT oFont1 NAME "Arial" ...

... the code to make phone calls and send sms through skype. Function Countrycode() not included. Hope you'll enjoy it. :lol: Antonio FUNCTION PhoneTO(cPhone,cNome,cComment,CodeCountry) Local oSkype,oCall,oUser DEFAULT CodeCountry := CountryCode() if empty(cPhone) return 0 endif //if its a user do ...

... (no permisson necessary) because of the claims. By the way, the code has the following diference to the one post previously : oUser:= oSkype:user(cPhone) oCall := oSkype:PlaceCall(oUser:Handle) It works perfectly. And it can process a call to a number or if you have the skype user name to a user ...

Dear AHF,

Try

oCall := oSkype:SendSms(cPhone, cComment)

Code: Select all  Expand view

oCall := oSkype:PlaceCall(cphone)

Regards,
Dutch

I've been trying with the code below but it doesn't work. FUNCTION PhoneTO(cPhone,cNome,cComment) Local oSkype,oCall,oUser cPhone := alltrim(cPhone) Try oSkype := CreateObject("Skype4COM.Skype") Catch alert("Skype4Com não está instalado!") return End If .not. ...

Hi RAMESHBABU You can use skype to send SMS's - you have to set up an account and purchase some credit - smsskype(cPhone,cNotes) MsgWait('Sending Message ' + str(i,3),'Sending SMS',2) //-------------------------------------------------------------------------// function smsskype(t_sms,t_mess) ...