Power Builder - power builder error

on pfmapl46.create

appname="pfmapl46"

message=create message

sqlca=create uo_pro_sql

sqlda=create dynamicdescriptionarea

sqlsa=create dynamicstagingarea

error=create error

end on

on pfmapl46.destroy

destroy(sqlca)

destroy(sqlda)

destroy(sqlsa)

destroy(error)

destroy(message)

end on

event open;/*

K:\APLICAC\SSFMUTUO\FTE\PB90\CARGAAPV\pfmapl46.pbl;

K:\APLICAC\SSFMUTUO\FTE\PB90\CARGAAPV\lfmdwd46.pbl;

K:\APLICAC\SSFMUTUO\FTE\PB90\CARGAAPV\lfmwdw46.pbl;

K:\APLICAC\WCOMUN\FTE\PB90\LGLFNC20.PBL;

K:\APLICAC\WCOMUN\FTE\PB90\LGLFNC01.PBL;

*/

//Realiza la conexión a la Base de Datos

//Variables Locales

//indica la conexión a la base de datos

Boolean b_cnx

//Obtiene el string de parámetros enviado al programa

p_str_cmd = Trim(CommandParm())

//p_str_cmd = "raballay banchile FFMM9.INI FFMM"

//p_str_cmd = "ematus banchile01 FFMM9.INI FFMM"

//p_str_cmd = "abriones banchile FFMM9.INI FFMM"

s_usr = Upper(fg_rec_usr(p_str_cmd))

s_pwd = Upper(fg_rec_pss(p_str_cmd))

s_ini = Upper(fg_rec_ini(p_str_cmd))

s_sis = Upper(fg_rec_sis(p_str_cmd))

b_cnx=fg_cnx(s_usr,s_pwd,s_ini)

IF NOT b_cnx THEN

	messagebox("Atención","Error al Ingresar Login/Password...",StopSign!)

	halt close

END IF

//Barra de Herramientas

toolbarframetitle="&Barra Visible"

toolbarpopmenutext="&Izquierda,&Arriba,&Derecha,A&bajo,&Flotante,&Mostrar texto"

toolbartext =false

open(w_main)

end event