Tengo una función en power builder
Y me manda un error c:0051 Unknown en la linea que empieza
if gf_conectar_ciente (sqlcb)= 1then
functlds=Create N_DataStore
lds.SetfullState (p.blobs)
//Obtencion de Valores
//Grabar
ls_Descripcion = lds.GetItemString (1, "descripcion")
ll_Id_Actividad = lds.GetItemNumber (1, "id_actividad")
//Validaciones
If Isnull(ls_Descripcion) Or ls_Descripcion = "" Then
li++
gf_insertar_errores_validacion(p.session, "Debe ingresar la Descripcion del pirotecnico.", 1)
End If
If li > 0 Then
Return "ev=" + p.session
End If
If gf_conectar_cliente(sqlcb) = 1 Then
If Isnull(ll_Id_Actividad) Or ll_Id_Actividad = 0 Then //insertar
Select ISNULL(MAX(Id_Actividad), 0) + 1 Into :ll_id_actividad From Actividades
Using sqlcb;
If sqlcb.sqlcode = -1 Then
gf_log("ERROR (3) en la funcion gf_Actividades"+ sqlcb.sqlerrtext, "")
gf_insertar_errores_validacion(p.session, "Ha ocurrido un error interno, Consulte con el Administrador.", 1)
Disconnect Using sqlcb;
Return "ev="+p.session
End If
lds.SetItem(1, "Id_Actividad", ll_id_actividad)
ls_mensaje = "La actividad se registro bien."
Else //update
ls_mensaje = "La actividad no se registro."
End If
lds.SetTransObject(sqlcb)
li_ok = lds.Update()ion name: gf_conectar_ cliente
if gf_conectar_ciente (sqlcb)= 1then
functlds=Create N_DataStore
lds.SetfullState (p.blobs)
//Obtencion de Valores
//Grabar
ls_Descripcion = lds.GetItemString (1, "descripcion")
ll_Id_Actividad = lds.GetItemNumber (1, "id_actividad")
//Validaciones
If Isnull(ls_Descripcion) Or ls_Descripcion = "" Then
li++
gf_insertar_errores_validacion(p.session, "Debe ingresar la Descripcion del pirotecnico.", 1)
End If
If li > 0 Then
Return "ev=" + p.session
End If
If gf_conectar_cliente(sqlcb) = 1 Then
If Isnull(ll_Id_Actividad) Or ll_Id_Actividad = 0 Then //insertar
Select ISNULL(MAX(Id_Actividad), 0) + 1 Into :ll_id_actividad From Actividades
Using sqlcb;
If sqlcb.sqlcode = -1 Then
gf_log("ERROR (3) en la funcion gf_Actividades"+ sqlcb.sqlerrtext, "")
gf_insertar_errores_validacion(p.session, "Ha ocurrido un error interno, Consulte con el Administrador.", 1)
Disconnect Using sqlcb;
Return "ev="+p.session
End If
lds.SetItem(1, "Id_Actividad", ll_id_actividad)
ls_mensaje = "La actividad se registro bien."
Else //update
ls_mensaje = "La actividad no se registro."
End If
lds.SetTransObject(sqlcb)
li_ok = lds.Update()ion name: gf_conectar_ cliente
1 Respuesta
Respuesta de aldob
1