Colegas, hago la siguiente consulta con un par de funciones para llenar un xBrowse
Todo funciona de maravillas. El problema se presenta cuando hago un insert no se ejecutan estas funciones.
Este es el código
Alguna sugerencia. Muchísimas gracias
Saludos
'select codigo, alumno, domicilio, telefono, localidad, c_postal, BuscaCurso( curso, ' + Alltrim( Str( Memvar -> o : nEmpresa ) ) + ' ) as cur, BuscaSeccion( seccion, ' + Alltrim( Str( Memvar -> o : nEmpresa ) ) + ' ) as sec, tipo_doc, nro_doc, fecha_nac, sexo, nacionali, curso, seccion, es_historico, BuscaDeuda( grupo ) as deuda, IfNull( miscelanea, " " ) as misce, tipo_marca, id_empresa, grupo from alumnos where id_empresa = ' + Alltrim( Str( Memvar -> o : nEmpresa ) ) + ' order by alumno'Todo funciona de maravillas. El problema se presenta cuando hago un insert no se ejecutan estas funciones.
Este es el código
If( ::lOnOff )
oRsA : Append()
nCodigo := ::BuscaCodigoAlumno()
oRsA : codigo := nCodigo
End
oRsA : alumno := Alltrim( ::cAlumno )
oRsA : domicilio := Alltrim( ::cDomicilio )
oRsA : localidad := Alltrim( ::cLocalidad )
oRsA : c_postal := Alltrim( ::cCodPostal )
oRsA : tipo_doc := Alltrim( ::cTipoDoc )
oRsA : nro_doc := Alltrim( ::cNroDoc )
oRsA : fecha_nac := ::dFechaNac
oRsA : sexo := If( Alltrim( ::cSexo ) == 'MASCULINO', 1, 0 )
oRsA : nacionali := Alltrim( ::cNacion )
oRsA : curso := nCurso
oRsA : seccion := nSeccion
If( ::lOnOff )
oRsA : id_empresa := Memvar -> o : nEmpresa
oRsA : grupo := nCodigo
End
If( ::lOnOff )
oRsA : Save()
Else
oRsA : Update()
EndAlguna sugerencia. Muchísimas gracias
Saludos