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