Галактика в вопросах и ответах

Код: Выделить всё

SpMnPl.toMnPlan(CurPlan());
var FileName;
var XLSFileName;
FileName = "\\\\mks-galaktika2\\galsrv\\SvodPZ_141016.xltm"                  

if (FileName == '')
  XLSFileName = CreateXLT(FileName, false)
else
  XLSFileName = CreateReport(FileName, false);
Debug.print('FileName = '+FileName);
Debug.print('XLSFileName = '+XLSFileName);
CreateVar(XLSFileName);
SetStringVar('DateForm', Cur_Date());
SetStringVar('Title', 'Отчет по производственному заказу');
PublishVar();

CreateTbls(XLSFileName);

CreateTbl('PlanSpec');
CreateTblFld('Nrec');
CreateTblFld('NumberPos');
CreateTblFld('NameMcUsl');
CreateTblFld('OtpEd');
CreateTblFld('StartDate');
CreateTblFld('EndDate');
CreateTblFld('KolPlan');
CreateTblFld('KolFact');
CreateTblFld('KolOtkl');

if (FileName != '')
{
  for (SpMnPl.getFirst(); ResultOfNavigation; SpMnPl.getNext())
  {
    SpMnPlan.setPosition(SpMnPl.cSpMnPlan);

    ClearTblBuffer();
    SetTblStringFldValue('Nrec', SpMnPl.Nrec);
    SetTblStringFldValue('NumberPos', SpMnPlan.PosNum);
    if (SpMnPlan.TypePos == Mc)
    {
      KatMc.setPosition(SpMnPlan.cIzd);
      SetTblStringFldValue('NameMcUsl', KatMc.Name);
    }
    else
      if (SpMnPlan.TypePos == Usl)
      {
        KatUsl.setPosition(SpMnPlan.cIzd);
        SetTblStringFldValue('NameMcUsl', KatUsl.Name);
      }
    OtpEd.setPosition(SpMnPlan.cOtpEd);
    SetTblStringFldValue('OtpEd', OtpEd.Name);

    SetTblDateFldValue('StartDate', SpMnPlan.StartDate);
    SetTblDateFldValue('EndDate', SpMnPlan.EndDate);

    SetTblNumberFldValue('KolPlan', SpMnPl.Pole1);
    SetTblNumberFldValue('KolFact', SpMnPl.Pole3);
    SetTblNumberFldValue('KolOtkl', SpMnPl.Pole5);

    InsTblRow();
  }
}

PublishTbl('PlanSpec');
LoadReport(XLSFileName);
FullFileName = "c:\\GalExpressClient2\\" + XLSFileName + ".xlsx"
Debug.print('FullFileName = '+FullFileName);
SaveReport(XLSFileName, FullFileName);
DisConnectExcel();