olay şu;
procedure MasterData1OnBeforePrint(Sender: TfrxComponent);
begin
if Length(<FaturaDATA."BARCODE">)=13 then
begin
barcode1.visible:=False;
barcode2.visible:=True;
barcode3.visible:=False;
end;
if Length(<FaturaDATA."BARCODE">)=8 then
begin
barcode2.visible:=False;
barcode1.visible:=True;
barcode3.visible:=False;
end;
if [<FaturaDATA."BARCODESTD">]='bcCode128C' then
barcode1.visible:=False;
barcode2.visible:=False;
barcode3.visible:=True;
end;
begin
end.
bu çalışmıyor, neden olabilir? son barcodestd alanını eklemeye çalıştım ama, gözden kaçırdığım ne var? tamamen deneme yanılma gidiyorum.
hallettim,
begin eklemeyi unutmuşum. :)
procedure MasterData1OnBeforePrint(Sender: TfrxComponent);
begin
if Length(<FaturaDATA."BARCODE">)=13 then
begin
barcode1.visible:=False;
barcode2.visible:=True;
barcode3.visible:=False;
end;
if Length(<FaturaDATA."BARCODE">)=8 then
begin
barcode2.visible:=False;
barcode1.visible:=True;
barcode3.visible:=False;
end;
if (<FaturaDATA."BARCODESTD">)='5' then
begin
barcode1.visible:=False;
barcode2.visible:=False;
barcode3.visible:=True;
end;
end;
begin
end.
