Спільнота для обміну досвідом між користувачами програм УкрБланк, УкрСклад, УкрЗарплата

Наши программы => УкрСклад => Тема розпочата: molotokk від Лютий 15, 2023, 01:33:15

Назва: Акт виконаних робіт 2 а5 на а4
Відправлено: molotokk від Лютий 15, 2023, 01:33:15
Всім привіт) Роблю акт виконаних робіт 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;
}
Назва: Re: Акт виконаних робіт 2 а5 на а4
Відправлено: HumanKM від Лютий 15, 2023, 10:24:53
спробую допомогти якщо матиму час - не обіцяю
Назва: Re: Акт виконаних робіт 2 а5 на а4
Відправлено: admin від Лютий 15, 2023, 14:32:42
Основний код, він же main, має бути один і в кінці Коду, оцей:
{
  MyLine = 0;
  AllTovar = 0;
  AllUsluga = 0;
  AllTovarCount = 0;
  AllUslugaCount = 0;
  if(<Скидка.Цифрами> != 0)
    Pole1.Visible = true;
  else
    Pole1.Visible = false;
}
У вас їх два, видаліть той що посередині.
Назва: Re: Акт виконаних робіт 2 а5 на а4
Відправлено: molotokk від Лютий 15, 2023, 14:48:19
Щиро дякую!))))  оце ж я тупанув... ;)