data = IDcliente & "#" & concepto & "#" & monto & "#" & trs & "#1#" & Main.Posicion.lon &"#" & Main.Posicion.lat
data = bs.EncodeStoS(data, "UTF8")
param = "salvarrecibos/" & Main.Pre.Token & "/" & data
Main.url2 = Main.Urlserver & param
' Main.url2 = http://ip:8080/ws/appws/salvarrecibos/83782hu6732bdu6493ddlki/TRgtetdgeeyhdkjds
dim Result as String
JobSave.PostString(Main.url2,Result)