ALTER PROCEDURE [dbo].[PGRPGroups]
  @nIdCeh Integer =1
AS
BEGIN
  SET NOCOUNT ON
  SELECT id, id_ceh, ngroup, name_rus, name_eng, days_alarm 
   FROM pgrp_group 
   WHERE id_ceh=@nIdCeh
END

ALTER PROCEDURE [dbo].[PGRPTema]
  @nIdGroup Integer =0
AS
BEGIN
  SET NOCOUNT ON
  IF @nIdGroup=0
    SELECT id, id_group, npp, name_rus, name_eng, id_fam
     FROM pgrp_tema
  ELSE
    SELECT id, id_group, npp, name_rus, name_eng, id_fam
     FROM pgrp_tema
     WHERE id_group=@nIdGroup
END

ALTER PROCEDURE [dbo].[PGRPDates]
  @nIdTema Integer = 0
AS
BEGIN
  SET NOCOUNT ON
  IF @nIdTema=0
    SELECT id, id_tema, date_contr, done FROM pgrp_date
  ELSE
    SELECT id, id_tema, date_contr, done FROM pgrp_date WHERE id_tema=@nIdTema
END

SET DELETED ON
SET TALK OFF
SET SAFETY OFF
SET CENTURY ON
SET DATE TO GERMAN

thisform.oGroups=CREATEOBJECT('ocad')
thisform.oGroups.Alias='pgrp_group'
thisform.oGroups.SendUpdates=.F.
thisform.oGroups.SelectCmd='exec PGRPGroups @nIdCeh=?ngIdCeh'
IF thisform.oGroups.CursorFill(.F., .F., 1, loCmd)=.F.
  LOCAL laerror(1)
  = AERROR(laerror)
  MESSAGEBOX('pgrp_group '+STR(laerror(1))+'  '+laerror(2))
  RETURN .F.
ENDIF

nIdGroup=pgrp_group.id
thisform.oTema=CREATEOBJECT('ocad')
thisform.oTema.Alias='pgrp_tema'
thisform.oTema.SendUpdates=.F.
thisform.oTema.SelectCmd='exec PGRPTema @nIdGroup=?nIdGroup'
IF thisform.oTema.CursorFill(.F., .F., 1, loCmd)=.F.
  LOCAL laerror(1)
  = AERROR(laerror)
  MESSAGEBOX('pgrp_tema '+STR(laerror(1))+'  '+laerror(2))
  RETURN .F.
ENDIF
GO TOP

nIdTema=pgrp_tema.id
thisform.oDates=CREATEOBJECT('ocad')
thisform.oDates.Alias='pgrp_date'
thisform.oDates.SendUpdates=.F.
thisform.oDates.SelectCmd='exec PGRPDates @nIdTema=?nIdTema'
IF thisform.oDates.CursorFill(.F., .F., 1, loCmd)=.F.
  LOCAL laerror(1)
  = AERROR(laerror)
  MESSAGEBOX('pgrp_date '+STR(laerror(1))+'  '+laerror(2))
  RETURN .F.
ENDIF
GO TOP

PUBLIC loСonn AS OBJECT, loCmd as ADODB.Command
*...
*loconn - соединение с MSSQL
*...
loCmd=CREATEOBJECT('ADODB.command')
loCmd.ActiveConnection=loConn

LPARAMETERS nColIndex
nIdGroup=pgrp_group.id
thisform.otema.CursorRefresh()

LPARAMETERS nColIndex
nIdTema=pgrp_tema.id
thisform.odates.CursorRefresh()

thisform.grid2.Refresh

SELECT id, id_group, npp, name_rus, name_eng, id_fam  
FROM pgrp_tema  
WHERE id_group=@nIdGroup or @nIdGroup=0