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

.{CheckEnter Schf
.if HeaderGroup
.end
.begin
platNo_Date := '';

if (vSchf.GetFirst SchFact = 0)
{
vSchf._loop BookPrZk
{
if (vSchf.GetFirst SchFactPlat = 0)
{
if ((vSchf.SchFactPlat.SubTip <> 16) and (vSchf.SchFactPlat.SubTip <> 17)) continue;
if (vSchf.GetFirst SoprHoz = 0)
{
if (vSchf.SchFactPlat.SubTip = 17)
{ // Платеж по счет-фактуре
if (vSchf.GetFirst fastfirstrow SpSopHoz =0)
do
{
if (vSchf.GetFirst fastfirstrow SpSopr =0)
if (longint(vSchf.SoprHoz.DatOb) < longint(vSchf.SpSopr.dSopr))
{
platNo_Date := platNo_Date + 'N '+vSchf.SoprHoz.NoDoc +
if(longint(vSchf.SoprHoz.DatOb) <> 0,
' от '+DateToStr(vSchf.SoprHoz.DatOb,'"DD" Mon YYYY г.'),'')+ ', ';
break
}
}
while (vSchf.GetNext SpSopHoz =0)
}
else
platNo_Date := platNo_Date + 'N '+vSchf.SoprHoz.NoDoc +
if(longint(vSchf.SoprHoz.DatOb) <> 0,
' от '+DateToStr(vSchf.SoprHoz.DatOb,'"DD" Mon YYYY г.'),'')+ ', ';
}
}
}
if (platNo_Date <> '')
platNo_Date := SubStr(platNo_Date,1,Length(platNo_Date)-2)
}
if (trim(platNo_Date) = '')
{
if ((PlatNo <> '') or (longint(PlatDat) <> 0))
{
if (InStr('N',PlatNo)=0)
platNo_Date := 'N ';
platNo_Date := platNo_Date +PlatNo+' от '+if (longint(PlatDat) <> 0, DateToStr(PlatDat, '"DD" Mon YYYY г.'), '');
}
.{
.}
}
end.

exbit писал(а):Ошибка
Ожидалась константа, поле, функция, "IF" или "CASE" (строка 424)