object RPCAttitudes: TRPCAttitudes OldCreateOrder = False Height = 501 HorizontalOffset = 756 VerticalOffset = 227 Width = 636 object DBWisa: TWisaWebDatabase Connected = False LoginPrompt = False KeepConnection = False LogEvents = [] left = 48 top = 24 end object TRWISA: TWisaWebTransaction Active = False Action = caNone Database = DBWisa left = 112 top = 24 end object StartIngave: TWisaRPCHandler OnExecute = StartIngaveExecute Options = [jroArrayParams] ParamDefs = < item Name = 'KL_ID' DataType = jtNumber end item Name = 'PE_ID' DataType = jtNumber end> left = 56 top = 88 end object ProcessJob: TWisaRPCHandler OnExecute = ProcessJobExecute Options = [jroArrayParams] ParamDefs = < item Name = 'JobID' DataType = jtNumber end item Name = 'PE_ID' DataType = jtNumber end> left = 120 top = 96 end object CleanJob: TWisaRPCHandler OnExecute = CleanJobExecute Options = [jroArrayParams] ParamDefs = < item Name = 'JobID' DataType = jtNumber end> left = 192 top = 88 end object QInsertJobData: TWisaWebQuery FieldDefs = <> SQL.Strings = ( 'INSERT INTO JOBDATA' ' (J_ID, J_JOBID, J_JOBTYPE, J_TYPERECORD, J_INTEGER1, J_INTEGER2, J_INTEGER3,' ' J_INTEGER4, J_INTEGER5, J_INTEGER6, J_INTEGER7, J_INTEGER8, J_INTEGER9, J_BOOLEAN1)' '' ' VALUES (GEN_ID(GEN_JOBDATA,1), :J_JOBID, :J_JOBTYPE, 0, :LL_ID, :IU_ID, :LB_ID,' ' :AE_ID, :AE_QUOTERING, :AE_OFFMOTIVATIE_FK, :IA_ID, :OT_ID, :OT_GROEP_FKP, ''-'')' ) Params = < item DataType = ftUnknown Name = 'J_JOBID' ParamType = ptUnknown end item DataType = ftUnknown Name = 'J_JOBTYPE' ParamType = ptUnknown end item DataType = ftUnknown Name = 'LL_ID' ParamType = ptUnknown end item DataType = ftUnknown Name = 'IU_ID' ParamType = ptUnknown end item DataType = ftUnknown Name = 'LB_ID' ParamType = ptUnknown end item DataType = ftUnknown Name = 'AE_ID' ParamType = ptUnknown end item DataType = ftUnknown Name = 'AE_QUOTERING' ParamType = ptUnknown end item DataType = ftUnknown Name = 'AE_OFFMOTIVATIE_FK' ParamType = ptUnknown end item DataType = ftUnknown Name = 'IA_ID' ParamType = ptUnknown end item DataType = ftUnknown Name = 'OT_ID' ParamType = ptUnknown end item DataType = ftUnknown Name = 'OT_GROEP_FKP' ParamType = ptUnknown end> left = 56 top = 168 end object QGetLeerlingAttitudes: TWisaWebQuery FieldDefs = <> SQL.Strings = ( 'SELECT' ' LL_ID,' ' IU_ID,' ' LB_ID,' ' AE_ID,' ' AE_QUOTERING,' ' AE_OFFMOTIVATIE_FK,' ' IA_ID,' ' OT_ID,' ' OT_GROEP_FKP' '' 'FROM KLAS' ' LEFT JOIN PUNTENMODEL ON (KL_PUNTENMODEL_FK=MU_ID)' ' LEFT JOIN INGATTITUDE ON (MU_ATTITUDEMODEL_FK=IA_ATTITUDEMODEL_FK)' ' LEFT JOIN OFFATTITUDE ON (IA_OFFATTITUDE_FK = OT_ID)' ' LEFT JOIN KLASGROEP ON (KG_KLAS_FK=KL_ID)' ' LEFT JOIN LOOPBAAN ON (LB_KLASGROEP_FK=KG_ID)' ' LEFT JOIN INUIT ON (IU_ID=LB_INUIT_FK)' ' LEFT JOIN LEERLING ON (LL_ID=IU_LEERLING_FK)' ' LEFT JOIN ATTITUDEEVALUATIE ON (AE_LOOPBAAN_FK = LB_ID) AND (AE_PERIODE_FK = :PE_ID) AND (AE_INGATTITUDE_FK = IA_ID) AND (AE_PERSONEEL_FK = :PS_ID)' '' 'WHERE' ' (KL_ID=:KL_ID) AND' ' (IA_ID IS NOT NULL)' ) Params = < item DataType = ftUnknown Name = 'PE_ID' ParamType = ptUnknown end item DataType = ftUnknown Name = 'PS_ID' ParamType = ptUnknown end item DataType = ftUnknown Name = 'KL_ID' ParamType = ptUnknown end> left = 182 top = 180 end object QGetModifiedData: TWisaWebQuery FieldDefs = <> SQL.Strings = ( 'SELECT' ' J_ID,' ' J_INTEGER5,' ' J_INTEGER6,' ' J_INTEGER7,' ' J_INTEGER3,' ' J_INTEGER4' '' 'FROM JOBDATA' '' 'WHERE' ' (J_JOBID = :J_JobID) AND' ' (J_BOOLEAN1 = ''+'')' ) Params = < item DataType = ftUnknown Name = 'J_JobID' ParamType = ptUnknown end> left = 312 top = 179 end object QInsertAttitudeEvaluatie: TWisaWebQuery FieldDefs = <> SQL.Strings = ( 'INSERT INTO ATTITUDEEVALUATIE' ' (AE_ID, AE_VERANDERDDOOR, AE_VERANDERDOP, AE_QUOTERING,' ' AE_OFFMOTIVATIE_FK, AE_INGATTITUDE_FK,' ' AE_LOOPBAAN_FK, AE_PERIODE_FK, AE_PERSONEEL_FK)' '' 'VALUES' ' (:AE_ID,:VERANDERDDOOR, ''now'',:QUOTERING,' ' :OFFMOTIVATIE_FK,:INGATTITUDE_FK,' ' :LOOPBAAN_FK,:PERIODE_FK,:PERSONEEL_FK)' ) Params = < item DataType = ftUnknown Name = 'AE_ID' ParamType = ptUnknown end item DataType = ftUnknown Name = 'VERANDERDDOOR' ParamType = ptUnknown end item DataType = ftUnknown Name = 'QUOTERING' ParamType = ptUnknown end item DataType = ftUnknown Name = 'OFFMOTIVATIE_FK' ParamType = ptUnknown end item DataType = ftUnknown Name = 'INGATTITUDE_FK' ParamType = ptUnknown end item DataType = ftUnknown Name = 'LOOPBAAN_FK' ParamType = ptUnknown end item DataType = ftUnknown Name = 'PERIODE_FK' ParamType = ptUnknown end item DataType = ftUnknown Name = 'PERSONEEL_FK' ParamType = ptUnknown end> left = 53 top = 253 end object QUpdateAttitudeEvaluatie: TWisaWebQuery FieldDefs = <> SQL.Strings = ( 'UPDATE ATTITUDEEVALUATIE' '' 'SET' ' AE_QUOTERING = :QUOTERING,' ' AE_OFFMOTIVATIE_FK = :OFFMOTIVATIE_FK,' ' AE_VERANDERDDOOR = :VERANDERDDOOR,' ' AE_VERANDERDOP = ''now''' '' 'WHERE' ' (AE_ID = :J_INTEGER4)' ) Params = < item DataType = ftUnknown Name = 'QUOTERING' ParamType = ptUnknown end item DataType = ftUnknown Name = 'OFFMOTIVATIE_FK' ParamType = ptUnknown end item DataType = ftUnknown Name = 'VERANDERDDOOR' ParamType = ptUnknown end item DataType = ftUnknown Name = 'J_INTEGER4' ParamType = ptUnknown end> left = 214 top = 251 end object QDeleteAttitudeEvaluatie: TWisaWebQuery FieldDefs = <> SQL.Strings = ( 'DELETE FROM ATTITUDEEVALUATIE WHERE (AE_ID = :J_INTEGER4)' ) Params = < item DataType = ftUnknown Name = 'J_INTEGER4' ParamType = ptUnknown end> left = 368 top = 253 end end