ABCrSPED com G5 da contmatic

[Michael Belmonte]

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,

Editado 14 Março, 2013 por systronic

[Marcos Gerene]

Bom dia a todos,

 

No manual (http://www.gsm.cnt.br/ftp/332LayoutSpedPhoenix.pdf) que achei das alterações para o Contimatic,

no registro C470 ,campo 26 (TOT_ECF - Totalizador do ECF) é numérico de tamanho 4.

 

Passei por engano o código do totalizador tipo "03T1800", mas tive um retorno que é um código numérico isso,

ou seja, "F1", "Can-T" ou até mesmo "03T1800" não são valores possíveis para este campo.

 

Alguém saberia me dizer como devo preencher este campo?

 

Desde já obrigado.

 

 

 

 

[marcelo_sp]

Bom dia a todos,

 

No manual (http://www.gsm.cnt.br/ftp/332LayoutSpedPhoenix.pdf) que achei das alterações para o Contimatic,

no registro C470 ,campo 26 (TOT_ECF - Totalizador do ECF) é numérico de tamanho 4.

 

Passei por engano o código do totalizador tipo "03T1800", mas tive um retorno que é um código numérico isso,

ou seja, "F1", "Can-T" ou até mesmo "03T1800" não são valores possíveis para este campo.

 

Alguém saberia me dizer como devo preencher este campo?

 

Desde já obrigado.

 

Marcos ,

 

Duas contabilidades de clientes meu que tem o G5 , eu gero este campo em branco = ||  , e por enquanto não reclamaram , não sei dizer se eles amarram este campo por outra fonte de dados do sistema G5  .

[Marcos Gerene]

Marcelo_Sp

 

Ok, vou passar esse campo em branco, vamos ver no que vai dar... rsrs

 

Obrigado pela ajuda =)

[ESSystem]

Estamos tendo um problema com a exportação das NFe de Saída.

Segundo manual SPED, quando a NFe está cancelada, é pra gravar somente alguns poucos campos.

Mesmo que alimentemos os campos de Data, p.ex., o componente filtra e grava só o que deve.

Com isso, o arquivo é rejeitado na importação do Contmatic...

Vocês passaram por isso também ?   

E como contornar ?

 

Obrigado !

 

 

 

 

Cfme. Manual:

Exceção 1: Para documentos com código de situação (campo COD_SIT) cancelado (código “02”), cancelado

extemporâneo (código “03”), Nota Fiscal Eletrônica (NF-e) denegada (código “04”) ou numeração inutilizada (código

“05”), preencher somente os campos REG, IND_OPER, IND_EMIT, COD_MOD, COD_SIT, SER e NUM_DOC. Demais

campos deverão ser apresentados com conteúdo VAZIO “||”. Não informar registros filhos. A partir de janeiro de 2011, no

caso de NF-e de emissão própria com código de situação (campo COD_SIT) cancelado (código “02”) e cancelado

extemporâneo (código “03”) deverão ser informados os campos acima citados incluindo ainda a chave da NF-e.

[marcelo_sp]

 

Estamos tendo um problema com a exportação das NFe de Saída.

Segundo manual SPED, quando a NFe está cancelada, é pra gravar somente alguns poucos campos.

Mesmo que alimentemos os campos de Data, p.ex., o componente filtra e grava só o que deve.

Com isso, o arquivo é rejeitado na importação do Contmatic...

Vocês passaram por isso também ?   

E como contornar ?

 

Obrigado !

 

 

 

 

Cfme. Manual:

Exceção 1: Para documentos com código de situação (campo COD_SIT) cancelado (código “02”), cancelado

extemporâneo (código “03”), Nota Fiscal Eletrônica (NF-e) denegada (código “04”) ou numeração inutilizada (código

“05”), preencher somente os campos REG, IND_OPER, IND_EMIT, COD_MOD, COD_SIT, SER e NUM_DOC. Demais

campos deverão ser apresentados com conteúdo VAZIO “||”. Não informar registros filhos. A partir de janeiro de 2011, no

caso de NF-e de emissão própria com código de situação (campo COD_SIT) cancelado (código “02”) e cancelado

extemporâneo (código “03”) deverão ser informados os campos acima citados incluindo ainda a chave da NF-e.

 

 

O Componente ACBrSped... é somente uma "Casca" , vc que tem que parametrizar as rejeições e detalhes ao alimentar o Componente que nada mais é do que uma Coleção de tags , ou seja , add ao componente já com os Blocos e os Registros tratados !

Editado 23 Novembro, 2013 por marcelo_sp

[ESSystem]

Marcelo, boa tarde !
Creio que nao entendi o que você quis dizer.

No ACBr os dados necessarios para o Contmatic nos estamos gravando via eventos. 

No C100 temos que gravar DT_DOC e DT_E_S porque senao o Contamatic rejeita o arquivo.

Mas não existe evento para reescrever o registro C100. 

Como podemos contornar isso ?

Obrigado !

[Shester Marcondes]

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;