Shester Marcondes

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;