Всім привіт) Роблю акт виконаних робіт 2 а5 на а4 (послуги і товари окремо), і трошки завис.
Ліва сторона все ок, а права - чомусь дублюється
Підкажіть як це виправити?)
double AllTovar;
double AllUsluga;
double AllTovarCount;
double AllUslugaCount;
int MyLine;
void Header1OnBeforePrint(TfrxComponent Sender)
{
Engine.NewColumn();
}
void Band1OnBeforePrint(TfrxComponent Sender)
{
if(<Товар.ЕслиУслуга> > 0)
{
Band1.Visible = true;
AllUsluga += <Товар.Сума.БезНДС>;
AllUslugaCount += <Товар.Колво>;
MyLine = MyLine + 1;
}
else
{
Band1.Visible = false;
}
}
void MasterData3OnBeforePrint(TfrxComponent Sender)
{
if(<Товар.ЕслиУслуга> > 0)
{
MasterData3.Visible = false;
}
else
{
MasterData3.Visible = true;
AllTovar += <Товар.Сума.БезНДС>;
AllTovarCount += <Товар.Колво>;
MyLine = MyLine + 1;
}
}
void Child21OnBeforePrint(TfrxComponent Sender)
{
MyLine = 0;
}
void Child8OnBeforePrint(TfrxComponent Sender)
{
MyLine = 0;
}
{
MyLine = 0;
AllTovar = 0;
AllUsluga = 0;
AllTovarCount = 0;
AllUslugaCount = 0;
if(<Скидка.Цифрами> != 0)
Pole1.Visible = true;
else
Pole1.Visible = false;
}
void MasterData1OnBeforePrint(TfrxComponent Sender)
{
if(<Товар.ЕслиУслуга> > 0)
{
MasterData1.Visible = true;
AllUsluga += <Товар.Сума.БезНДС>;
AllUslugaCount += <Товар.Колво>;
MyLine = MyLine + 1;
}
else
{
MasterData1.Visible = false;
}
}
void MasterData2OnBeforePrint(TfrxComponent Sender)
{
if(<Товар.ЕслиУслуга> > 0)
{
MasterData2.Visible = false;
}
else
{
MasterData2.Visible = true;
AllTovar += <Товар.Сума.БезНДС>;
AllTovarCount += <Товар.Колво>;
MyLine = MyLine + 1;
}
}
void Child18OnBeforePrint(TfrxComponent Sender)
{
MyLine = 0;
}
void Child20OnBeforePrint(TfrxComponent Sender)
{
MyLine = 0;
}
{
MyLine = 0;
AllTovar = 0;
AllUsluga = 0;
AllTovarCount = 0;
AllUslugaCount = 0;
if(<Скидка.Цифрами> != 0)
Child16.Visible = true;
else
Child16.Visible = false;
}
спробую допомогти якщо матиму час - не обіцяю
Основний код, він же main, має бути один і в кінці Коду, оцей:
{
MyLine = 0;
AllTovar = 0;
AllUsluga = 0;
AllTovarCount = 0;
AllUslugaCount = 0;
if(<Скидка.Цифрами> != 0)
Pole1.Visible = true;
else
Pole1.Visible = false;
}
У вас їх два, видаліть той що посередині.
Щиро дякую!)))) оце ж я тупанув... ;)