*================================================================================================
&& ПЕРЕДАЧА ДАННЫХ В "1С" ПО DDE КАНАЛУ
PROCEDURE DDE
    PARAMETERS pn_CurRec, pn_AllRecs

    PRIVATE i 
    
    IF gn_DDEChanNum > -1
        SELECT c_PersLKPodrTabel1        && Результирующий курсор с расчетными данными сотрудника

        && Цикл по видам расчета данного сотрудника
        FOR i = 1 TO RECCOUNT()
            GO i
            SCATTER MEMVAR 

            && Расчетные параметры
            s_CurRec = LTRIM(STR(pn_CurRec))
            s_AllRecs = LTRIM(STR(pn_AllRecs))
            s_No = LTRIM(STR(i))
            s_PodrPersId = '"'+ALLTRIM(m.PodrPersId)+'"'
            s_VidRaschId = '"'+ALLTRIM(m.VidRaschId)+'"'
            s_NachZachPer = '"'+DTOC(m.NachZachPer)+'"'
            s_KonZachPer = '"'+DTOC(m.KonZachPer)+'"'
            s_KoefVidaRasch = LTRIM(STR(m.KoefVidaRasch, 9, 5))
            s_Rate = LTRIM(STR(m.Rate, 10, 5))
            s_WorkDays = LTRIM(STR(m.WorkDays, 6, 2))
            s_HoursPerDay = LTRIM(STR(m.HoursPerDay, 5, 2))
            s_WorkHours = LTRIM(STR(m.WorkHours, 7, 2))
            s_FactVwrabotka = LTRIM(STR(m.FactVwrabotka, 9, 2))
            s_PlanVwrabotka = LTRIM(STR(m.PlanVwrabotka, 9, 2))
            s_Summa = LTRIM(STR(m.Summa, 10, 2))
            s_PlanDays =  LTRIM(STR(m.PlanDays, 6, 2))
            s_PlanHours = LTRIM(STR(m.PlanHours, 7, 2))

            = DDEREQUEST(gn_DDEChanNum, "глDDE("+ ;
                    s_CurRec+","+ ;
                    s_AllRecs+","+ ;
                    s_No+","+ ;
                    s_PodrPersId+","+ ;
                    s_VidRaschId+","+ ;
                    s_NachZachPer+","+ ;
                    s_KonZachPer+","+ ;
                    s_KoefVidaRasch+","+ ;
                    s_Rate+","+ ;
                    s_WorkDays+","+ ;
                    s_HoursPerDay+","+ ;
                    s_WorkHours+","+ ;
                    s_FactVwrabotka+","+ ;
                    s_PlanVwrabotka+","+ ;
                    s_Summa+","+ ;
                    s_PlanDays+","+ ;
                    s_PlanHours+")")
        ENDFOR 
    ELSE 
        DO ErrorMessage WITH "Не могу открыть канал DDE для обмена данными!" IN Errors
    ENDIF
ENDPROC 
*================================================================================================
*================================================================================================