Fiz a implementação abaixo... mas não gerou o complemento do Registro0200, o que falta ?
Muito obrigado
............
procedure ACBrSPEDFiscal1EventsBloco_0WriteRegistro0200( var ALinha: String);
..................
var
FrmSPEDFiscal: TFrmSPEDFiscal;
Arquivo_Temp_0200 : TStringList; //Aqui vou armazenar os dados dos produtos para o G5
...............
Arquivo_Temp_0200 := TStringList.Create;
with Registro0200New do
begin
Arquivo_Temp_0200.Add('|testes1|teste2');
...........................
procedure TFrmSpedFiscal.ACBrSPEDFiscal1EventsBloco_0WriteRegistro0200( var ALinha: String);
var
vdados : TStringList;
begin
ALinha := ALinha + Arquivo_Temp_0200.Strings[0] ;
Arquivo_Temp_0200.Delete(0);
vDados := TStringList.Create;
vDados.Clear;
vDados.Add('|020B|01|');
vDados.Add('|020B|02'); // ultimo nao colocar o PIPE sistema ira completar
ALinha := ALinha +#13+#10+ vDados.Text;
end;