Hola a todos, estoy imprimiendo un tique de venta con Fortes Report. A veces, no siempre, sale el siguiente error: "Un error ocurrió mientras se preparaba el informe EAccessViolation(Access violation". Creo que podría ser por el salto de linea sLineBreak. El código asociado es el siguiente:
***
procedure TfrFacTiqS.RLBand3BeforePrint(Sender: TObject; var PrintIt: Boolean);
var sConcepto, sConcepto0, sConcepto1, sConcepto2 :string; i : integer;
begin
if dmAG.qFacTiqDESCUENTO.Value = 0 then
rldbDes.Visible:=false
else
rldbDes.Visible:=true;
if dmAG.qFacTiqPVP.Value = 0 then
rldbPVP.Visible:=false
else
rldbPVP.Visible:= true;
if dmAG.qFacTiqImpLiniva.Value = 0 then
rldbImpLiniva.Visible:=false
else
rldbImpLiniva.Visible:= true;
sConcepto0 := dmAG.qFacTiqARTICULO.AsString;
sConcepto0 := lowercase(sConcepto0);
sConcepto0[1] := upcase(sConcepto0[1]);
for i :=2 to length(sConcepto0) do
begin
if sConcepto0[i-1] = ' ' then
sConcepto0[i] := upcase(sConcepto0[i])
end;
if length(sConcepto0)>13 then
begin
sConcepto1 := copy(sConcepto0,1,12);
sConcepto2 := copy(sConcepto0,13,length(sConcepto0));
sConcepto := sConcepto1 + '-'+ sLineBreak + sConcepto2 +' ' + dmAG.qFacTiqCONCEPTO.AsString;
end
else
begin
sConcepto := sConcepto0;
end;
//sConcepto := dmAG.qFacTiqARTICULO.AsString + ' ' + dmAG.qFacTiqCONCEPTO.AsString;
rlmCon.Lines.Text := sConcepto;
end;
***
Gracias por la ayuda