[ABCrSPED com G5 da contmatic]

Em 13/03/2013 at 22:45, Michael Belmonte disse:

Pessoal resolvi de maneira simples da forma abaixo descrita, usando o proprio evento Bloco_OwriteREgistro0200 do registro 0200, desde já obrigado a todos!

 

Só tive o cuidado de adicionar um "Pipe" no final do primeiro Alinha para fechar a linha 0200, coloquei o +#13+#10 para dar ENTER e depois na ultima linha do vDados eu removi o do ultimo, onde o componente irá completar ao fechar o Alinha, vejam o codigo abaixo;

 

 

procedure TFrmSPEDFiscal.ACBrSPEDFiscal1EventsBloco_0WriteRegistro0200(
  var ALinha: String);
begin

  if cbJB.Checked = True Then
  begin

     ALinha := ALinha  + Arquivo_Temp_0200.Strings[0] + '|' ; // adicionei o Pipe para fechar linha do 0200
     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 ;
  
end;

 

Espero que a dificuldade que tive possa ajudar outro colega que venha seguir este tópico!

 

Atenciosamente,

 

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;