Power Builder - Sistema y Base de datos en distintas direcciones IP

//Declarar en varialbe global o de instancia, del segundo canal de comunicación hacia el servidor en la nube

transaction sqlca2

//Y en el open de la window creo la instancia nueva y conecto al servidor en la nube

String ls_host, ls_servicio, ls_parm

sqlca2 = Create transaction

ls_host     = ProfileString("SysVen.ini","Conexion","Host","*")

ls_servicio = ProfileString("SysVen.ini","Conexion","Servicio","*")

//La variable ls_host contiene la dirección IP fija del servidor en AWS ejm. 34.197.237.162

//La variable ls_servicio contiene el nombre de la instancia de la base de datos

if ls_host = '*' then

	MessageBox("Error","El archivo SysVen.ini esta mal formado. Reinstale el software",StopSign!)

	Halt Close

end if

if ls_servicio = '*' then

	MessageBox("Error","El archivo SysVen.ini esta mal formado. Reinstale el software",StopSign!)

	Halt Close

end if

//Ahora conectamos al servidor en AWS

SQLCA2.DBMS       = "ODBC"

SQLCA2.AutoCommit = True

SQLCA2.DBParm     = "ConnectString='Driver=SQL AnyWhere 16;ServerName="+ls_servicio+";Host="+ls_host+";UID=DBA;PWD=abc123'"

Connect using sqlca2;

if sqlca2.sqlcode = -1 then

	MessageBox("Error","No fué posible conectarse a la base de datos de AWS,~r~nMensaje del servidor: " + sqlca2.sqlerrtext, StopSign!)

	Halt Close

end if

//Esta es la instrucción de guardado en mi servidor local y luego replico a la nube

INSERT TipoCliente VALUES(:ls_clave,:ls_tipocliente,:ls_perfil);

if sqlca2.sqlcode = -1 then

	MessageBox("Error","No fué posible actualizar los tipos de clientes,~r~nMensaje del servidor: " + sqlca2.sqlerrtext, StopSign!)

	Return

end if

INSERT TipoCliente VALUES(:ls_clave,:ls_tipocliente,:ls_perfil) USING sqlca2;

if sqlca2.sqlcode = -1 then

	MessageBox("Error","No fué posible actualizar los tipos de clientes en el servidor AWS,~r~nMensaje del servidor: " + sqlca2.sqlerrtext, StopSign!)

	Return

end if

// Y en close de la ventana o del proyecto

disconnect using sqlca2;

destroy sqlca2