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 Expand view
'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'
Todo funciona de maravillas. El problema se presenta cuando hago un insert no se ejecutan estas funciones.
Este es el código
- Code: Select all Expand view
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
Alguna sugerencia. Muchísimas gracias
Saludos