mysql, consulta y funciones con FwhMariaDb
Posted: Thu Jan 04, 2018 1:35 pm
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
Code: Select all
'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, _, 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'
Este es el código
Code: Select all
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 : _ := 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()
End
Saludos