Акт виконаних робіт 2 а5 на а4

[molotokk]

Всім привіт) Роблю акт виконаних робіт 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;
}

[HumanKM]

спробую допомогти якщо матиму час - не обіцяю

[admin]

Основний код, він же main, має бути один і в кінці Коду, оцей:

Код Виділити Розширити

{
  MyLine = 0;
  AllTovar = 0;
  AllUsluga = 0;
  AllTovarCount = 0;
  AllUslugaCount = 0;
  if(<Скидка.Цифрами> != 0)
    Pole1.Visible = true;
  else
    Pole1.Visible = false;
}У вас їх два, видаліть той що посередині.

[molotokk]

Щиро дякую!))))  оце ж я тупанув...