var
partia:string;
datanaglowek:string;
d1r,d2r,d3r:string;
order1:string;
textinput:string;
SprawdzenieRaportu:integer;
ILEznakow:integer;
procedure Button1OnClick(Sender: TfrxComponent);
begin
begin
ILEznakow:=length(Edit1.Text);
end;
begin
if ILEznakow <> 5 then
showmessage ('Za mało lub za dużo cyfr w numerze zlecenia !');
if ILEznakow = 5 then
Button1.ModalResult:=mrOK;
// Numer zamówienia
textinput:=ComboBox1.Text+Edit1.Text;
replaceparam('pyt1:order1', 'ftstring', (textinput));
replaceparam('pyt2:order2', 'ftstring', (textinput));
replaceparam('pyt3:order3', 'ftstring', (textinput));
replaceparam('pyt4:order4', 'ftstring', (textinput));
replaceparam('pyt5:order5', 'ftstring', (textinput));
replaceparam('pyt6:order6', 'ftstring', (textinput));
replaceparam('pyt7:order7', 'ftstring', (textinput));
replaceparam('pyt8:order8', 'ftstring', (textinput));
replaceparam('pyt9:order9', 'ftstring', (textinput));
replaceparam('pyt10:order10', 'ftstring', (textinput));
replaceparam('pyt11:order11', 'ftstring', (textinput));
// Zmiana formatu daty
datanaglowek:=DateToStr(<pyt1."DATA_ZLEC">);
d1r:=Copy(datanaglowek,1,4);
d2r:=Copy(datanaglowek,6,2);
d3r:=Copy(datanaglowek,9,2);
// Wypełnienie pola z nr zlecenia
Memo10.Text:='PCV/' + d2r + '/' + d1r + '/' + Edit1.Text + '/' + <pyt1."KLIENT">;
Report.ReportOptions.Name :='DANE_FAKTURA_' + ComboBox1.Text + Edit1.Text
end;
end;
begin
// Button1.ModalResult:=mrNone;
end.