Envío de SMS...

[Fito]

Hola Amigos:

Estoy necesitando enviar SMS a los clientes desde mi aplicación COBOL, alguien tiene alguna idea de cómo puedo implementar eso?

Saludos.

Fito...

[JCantero]

Supongo que lo necesitas para tu pais y entiendo que no sera gratis enviar un sms.

Hay muchos proveedores para enviar sms a muchos paises.

SMS Gateway. Pasarela SMS para empresas. (https://www.altiria.com/pasarela-sms-gateway/)

Este es un proveedor que cobra dependiendo del pais y dispone de un servicio web para poder integrarlo a tu aplicación.

En mi empresa compramos bonos y sale a 3 centimos de euro el sms (0,03 €)

---------- Post añadido : 22:42 ---------- Post anterior : 22:27 ----------

Este es un poco mas caro

GatewayAPI -*Rock solid SMS gateway (https://gatewayapi.com/?gclid=CjwKCAiAiarfBRASEiwAw1tYvxZNqxafhnx7nf9weV8-mk6BzZGJr55pGPymqB-F2A2OICEe8hNuTxoCxXYQAvD_BwE)

[Dasije]

Puedes usar las ideas que te dá JCantero, en PowerCOBOL tendrás usar HTTP para el envío y recepción de respuestas de parte del servidor, al menos que la empresa te proporcione un OCX, pero esto último está casi en desuso.

En mi caso, me desarrollé una aplicación para Android con Windev Mobile como intermediario entre la aplicación y un teléfono móvil como emisor de SMS usando una base de datos accesible desde el móvil por WI-FI, ya que hay compañías de telefonía que ofrecen bonos de envíos gratis como bonoficación de contrato, así poder aprovechar estas posibilidades al máximo.

Saludos.

[JCantero]

En que sistema operativo lo tienes que hacer?
Para que cobol ?

Si es para rm/cobol y lo quieres hacer con llamada a servicio web es muy facil tanto para windows o linux

si es para linux en cualquier cobol sin complicarte la vida te sobra con una llamada a un script en el caso de que elijas el primer link que te he puesto y con 4 parametros:

call "system" using "enviasms usuario clave mensaje telefono" end-call




curl --user $1:$2 -X POST \
https://api.labsmobile.com/json/send \
-H 'Cache-Control: no-cache' \
-H 'Content-Type: application/json' \
-d '{"message":"$3", "tpoa":"Mensaje","recipient":[{"msisdn":"$4"}]}'


Cualquier duda, pregunta

[Fito]

Gracias Amigos: voy a empezar a investigar sobre lo que me dicen.

Saludos.

Fito...

[Fito]

Holassss:

Estuve investigando más y me gustó mucho la idea de enviar comando AT a un modem.

Tengo un modem usb, de esos que daba Claro para conectarte a internet, con un chip. Estoy probando con mscomm32.ocx. Y el problema que tengo es que cuando cargo la porpiedad "Output" con las cadenas de caracteres me da un error de "invalid propierty value".

Les pego el código para que vean lo que estoy haciendo.


ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 wnro pic x(10).
01 wtexto pic x(80).
01 wenviar pic x(8192).
01 xt pic s9(5) comp-5.
PROCEDURE DIVISION.

comienzo.
move "Text" of txtNumero to wnro.
move "Text" of txtMensaje to wtexto.

move 6 to "CommPort" of PHONE.
move "9600,N,8,1" to "Settings" of PHONE.
move pow-true to "PortOpen" of PHONE.

*................................................. ............................

move spaces to wenviar.
string "ATZ" X"0D" delimited by size into wenviar.
perform enviar.

move spaces to wenviar.
string "AT+CMGF=1" X"0D" delimited by size into wenviar.
perform enviar.

move spaces to wenviar.
string "AT+CMGS=" wnro X"0D" delimited by size into wenviar.
perform enviar.

move spaces to wenviar.
string wtexto X"1A" X"0D" delimited by size into wenviar.
perform enviar.

*................................................. ............................

move pow-false to "PortOpen" of PHONE.

exit program.


enviar.
compute xt = function stored-char-length(wenviar).
move wenviar(1:xt) to "Output" OF PHONE.


En el parrafo enviar me da el error, como que el wenviar pic x(...) no fuera el tipo de dato que está esperando la propiedad.

Saludos.

Fito...

[JCantero]

Pero tu que deseas, enviar SMS o conectarte con el moden a otro dispositivo ?

[Fito]

hola JCantero:

Yo quiero enviar sms a través de un modem que tiene un chip de celular incorporado.

el modem es similar a este.

Modem Usb 3g Externos Libres Sin Tapitas + Chip Claro - $ 599,99 en Mercado Libre (https://articulo.mercadolibre.com.ar/MLA-652653798-modem-usb-3g-externos-libres-sin-tapitas-chip-claro-_JM?quantity=1&variation=20482996751)

Saludos.

Fito...

[JCantero]

Entiendo.

Yo lo hago mediante un proveedor como te comenté más arriba.

Como tu dices no he probado y no te puedo ayudar, aunque me ha picado la curiosidad.

He estado leyendo aquí y parece interesante.
¿Cómo enviar SMS desde un modem? - Foros del Web (http://www.forosdelweb.com/f69/como-enviar-sms-desde-modem-699239/)

Movistar en España tiene una aplicación para eso.

[Fito]

Holaaa:

Teóricamente sería sencillo, enviar los comando AT por el puerto serie y listo. Desde el software de Claro que trae el modem, envío perfectamente los sms.

Pero el problema me parece que lo tengo con el ocx, él es el que me está dando error, el que no entiende mi picture alfanumerico como ingreso a la propiedad "Output". Va más allá de si se lo envió a un modem o una balanza o cualquier otra cosa.

Saludos.

Fito...

[JCantero]

pon en el foro las especificaciones de la funcion del ocx a la cual llamas y el descripccion de PHONE para intentar ver que es lo que puede estar mal