Não Sei Gerar O Arquivo Do Req.x Do Paf 2.01

[Caetano]

Boa tarde pessoal.

Quando esta vazio  algum registro retorna erro de acess Violation

[carlosmarian]

Possível falha no método "TBloco_A.WriteRegistroA350(RegA001: TRegistroA001);"

A chamado do "WriteRegistroA360(A350);" esta fora do loop;

procedure TBloco_A.WriteRegistroA350(RegA001: TRegistroA001);
var
  intFor: Integer;
  A350: TRegistroA350;
begin
   if Assigned(RegA001.RegistroA350) then
   begin
      for intFor := 0 to RegA001.RegistroA350.Count - 1 do
      begin
         A350 := RegA001.RegistroA350.Items[intFor];
         with A350 do
         begin
         ....
         end;
         RegistroA990.QTD_LIN_A := RegistroA990.QTD_LIN_A + 1;
      end;
      //FORA DO LOOP
      WriteRegistroA360(A350);
      FRegistroA350Count := FRegistroA350Count + RegA001.RegistroA350.Count;
  end;
end;

procedure TBloco_A.WriteRegistroA350(RegA001: TRegistroA001);
var
  intFor: Integer;
  A350: TRegistroA350;
begin
   if Assigned(RegA001.RegistroA350) then
   begin
      for intFor := 0 to RegA001.RegistroA350.Count - 1 do
      begin
         A350 := RegA001.RegistroA350.Items[intFor];
         with A350 do
         begin
         ....
         end;
         RegistroA990.QTD_LIN_A := RegistroA990.QTD_LIN_A + 1;
         WriteRegistroA360(A350);
      end;      
      FRegistroA350Count := FRegistroA350Count + RegA001.RegistroA350.Count;
  end;
end;

[Juliomar Marchetti]

 

Possível falha no método "TBloco_A.WriteRegistroA350(RegA001: TRegistroA001);"

A chamado do "WriteRegistroA360(A350);" esta fora do loop;

procedure TBloco_A.WriteRegistroA350(RegA001: TRegistroA001);
var
  intFor: Integer;
  A350: TRegistroA350;
begin
   if Assigned(RegA001.RegistroA350) then
   begin
      for intFor := 0 to RegA001.RegistroA350.Count - 1 do
      begin
         A350 := RegA001.RegistroA350.Items[intFor];
         with A350 do
         begin
         ....
         end;
         RegistroA990.QTD_LIN_A := RegistroA990.QTD_LIN_A + 1;
      end;
      //FORA DO LOOP
      WriteRegistroA360(A350);
      FRegistroA350Count := FRegistroA350Count + RegA001.RegistroA350.Count;
  end;
end;

procedure TBloco_A.WriteRegistroA350(RegA001: TRegistroA001);
var
  intFor: Integer;
  A350: TRegistroA350;
begin
   if Assigned(RegA001.RegistroA350) then
   begin
      for intFor := 0 to RegA001.RegistroA350.Count - 1 do
      begin
         A350 := RegA001.RegistroA350.Items[intFor];
         with A350 do
         begin
         ....
         end;
         RegistroA990.QTD_LIN_A := RegistroA990.QTD_LIN_A + 1;
         WriteRegistroA360(A350);
      end;      
      FRegistroA350Count := FRegistroA350Count + RegA001.RegistroA350.Count;
  end;
end;

Boa tarde

seja mais especifico pois eu não entendi de qual componente está falando!

é o sped fiscal? contribuições? LFD? 

[carlosmarian]

Desculpa, é que como já estavam fanado neste post sobre "ACBrLFD", achei que não seria necessário informar.

  Mas é referente ao ACBrLFD.

 

|At+