Problema impresión con Fortes Report

[martin17476]

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

[Juliomar Marchetti]

já vi ocorrer em situações que a pessoa só precisou rodar o instalador novamente e resolve

[martin17476]

Gracias Juliomar, lo probaré

[martin17476]

Ya resolví el problema.

El problema es la línea de código:

sConcepto0 := dmAG.qFacTiqARTICULO.AsString;

El campo ARTICULO estaba vacio y daba el error.

Gracias por todo.

[Juliomar Marchetti]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.