Подскажите, какой это язык программирования.

Это макет отчета. Выводит отчет в Эксель.

#if [ISMNS(XVERSION-2)]
@ALERT Для этой формы требуется версия программы 5.2 и выше!
@BREAK
#endif
@LOADSCRIPT [YPATHBASE,-1]ex.vbs
@XIS=0
@//XIS=??Выводить только для подтвержденных накладных?
@//Для подсчета прибыли необходимо сделать расчет движения.
XV=2
@//XV=?0 - Суммы в рублях, 1 - в валюте контроля, 2 - без пересчета по курсу.   (Для подсчета прибыли необходимо сделать расчет движения в этой валюте)
@XIS1=:Connect|[YPATHBASE,-1]sale_rep5.xls
@IF[ISNUL(XIS1)]@BREAK
@//RUNSCRIPT printStr|1|1|Розничные продажи за период с [&XDATE1,-1] по [&XDATE2,-1]
@XR=4
@//RUNSCRIPT printStr|[~XR,-1]|1|[EP3,-1]
@XRUB=0
@XUSD=0
@XOTHR=0
@XOPL=0
@XPRB=0
@XERR=0
@//RUNSCRIPT setValue|C3|№ склада
@//RUNSCRIPT setValue|E3|Скидка
@//RUNSCRIPT setValue|H3|На кого
{
@XU=1
@IF[XIS       ]@XU=EMET
#if [XU          ]
@XS1=0
@XPR=0
{
@XC=FP12
@IF[ISNUL(XV)]@XC=FP12*EKUR1
@IF[ISNUL(XV-1)]@XC=FP12*EKUR1/EKUR2
@RUNSCRIPT printStr|[~XR,-1]|1|[BP2,-1]
@RUNSCRIPT printStr|[~XR,-1]|2|[EP2x,-1]
@RUNSCRIPT printStr|[~XR,-1]|3|[EP3,-1]
@RUNSCRIPT printStr|[~XR,-1]|4|[DP5,-1]
@RUNSCRIPT printStr|[~XR,-1]|5|[DTWR,-1]
@RUNSCRIPT printStr|[~XR,-1]|6|[FP9,-1]
@RUNSCRIPT printStr|[~XR,-1]|7|[FDD,-1]
@RUNSCRIPT printStr|[~XR,-1]|8|[XC,-1]
@RUNSCRIPT printStr|[~XR,-1]|9|=F[~XR,-1]*G[~XR,-1]
@RUNSCRIPT printStr|[~XR,-1]|10|=F[~XR,-1]*H[~XR,-1]
@RUNSCRIPT printStr|[~XR,-1]|11|=J[~XR,-1]-I[~XR,-1]
@// контроль валюты DRNV - номер валюты при расчетет движения
@// отчет в рублях а рсчет движения - не рубли
@IF[ISNUL(XV)*ISPLS(DRNV)]@XER=1
@// отчет в валюте контроля, а рсчет движения - в рублях и валюта контроля не рубли
@XER=0
@IF[ISNUL(XV-1)*ISNUL(DRNV)*ROUND(EKUR2-1)]@XER=1
@IF[ISNUL(XV-2)*ROUND(EDD-DRNV)]@XER=1
@IF[XER     ]@RUNSCRIPT SetBackColor|K[~XR,-1]|6
@XR=XR+1
@IF[XER     ]@XERR=1
}

#endif
}
@XR=XR+1
@RUNSCRIPT printStr|[~XR,-1]|5|Итого:

@RUNSCRIPT setValue|I[~XR,-1]|=SUM(I4:I[~XR-2,-1])
@RUNSCRIPT setValue|J[~XR,-1]|=SUM(J4:J[~XR-2,-1])
@RUNSCRIPT setValue|K[~XR,-1]|=SUM(K4:K[~XR-2,-1])

@RUNSCRIPT ActivateDoc
@IF[XERR    ]@ALERT В расчете прибыли может быть ошибка! Для подсчета прибыли необходимо сделать расчет движения в той же валюте, что и отчет.