Sergioguedes

Legal então eu vou fazer algumas alterações e posto aqui um demo e o componente. Ai vocês analisem e verificam a possibilidade de adicionar o mesmo no acbr.

Cada um tem a sua escolha eu uso Intraweb e tenho tudo o que preciso. Me atende muito bem e a meus clientes. E está saindo otimos componente para intraweb pelo o que vi.

Segue o layout dos exemplos que eu postei acima. Aguardo comentario.. ADE COFIS 25-2010.pdf

Olá EMBarbosa, tudo bom. Existe alguma sugestão de padronização de nome algo para que fique dentro dos componente do acbr? Eu criei o meu componente baseado no acbrsintegra. //4.9.5 Tabela de Mercadorias/Serviços TRegistro495 = class private FDescricao: string; FCodigo_Mercadoria: string; FData_Atualizacao: Tdatetime; public property Data_Atualizacao: Tdatetime read FData_Atualizacao write FData_Atualizacao; property Codigo_Mercadoria: string read FCodigo_Mercadoria write FCodigo_Mercadoria; property Descricao: string read FDescricao write FDescricao; end; TRegistros495 = class(TObjectList) protected procedure SetObject(Index: integer; Item: TRegistro495); function GetObject(Index: integer): TRegistro495; procedure Insert(Index: integer; Obj: TRegistro495); public function Add(Obj: TRegistro495): integer; property Objects[Index]: TRegistro495 read GetObject write SetObject; default; end; Geração do TXT {4.9.5 Tabela de Mercadorias/Serviços} procedure TCofis252010.GeraArquivo495; var wregistro: string; i : Integer; begin if Trim(FileName) = '' then raise Exception.Create(ACBrStr('Informe um nome de arquivo!')); AssignFile(Arquivo, FileName); Rewrite(Arquivo); try for i := 0 to Registros495.Count - 1 do begin with Registros495[i] do begin wregistro := ''; wregistro := wregistro+ Alinha_Txt('N',FormatDateTime(Form_Data, Data_Atualizacao),8); //N wregistro := wregistro+ Alinha_Txt('C',Codigo_Mercadoria, 20); //C wregistro := wregistro+ Alinha_Txt('C',Descricao, 45); //C // Grava linha no arquivo write(Arquivo, wregistro + #13 + #10); end; end; finally CloseFile(Arquivo); LimparRegistros; end; end; Exemplo de como eu passo valor para a classe // 4.9.5 Tabela de Mercadorias/Serviços procedure TfrmPrincipal.GeraRegistro495; var wregistro495: TRegistro495; begin // Nome do arquivo Cofis252010.FileName := Nome_arquivo('Mercadorias', dblkcbbano.Text,'CADASTROS', dblkcbbmes.Text, dblkcbbcdemp.KeyValue); with Cofis252010 do begin // Gera arquivo de empresa qryLstRegistro495.Close; qryLstRegistro495.Params[0].AsString := dblkcbbano.Text; qryLstRegistro495.Params[1].AsString := dblkcbbmes.Text; qryLstRegistro495.Params[2].AsString := dblkcbbcdemp.KeyValue; qryLstRegistro495.Open; if not qryLstRegistro495.IsEmpty then begin qryLstRegistro495.First; while not qryLstRegistro495.Eof do begin wregistro495 := TRegistro495.Create; wregistro495.Data_Atualizacao := StrToDate('01/' + dblkcbbmes.Text + '/' + dblkcbbano.Text); wregistro495.Codigo_Mercadoria := qryLstRegistro495cditem.AsString; wregistro495.Descricao := qryLstRegistro495deitem.AsString; Cofis252010.Registros495.Add(wregistro495); qryLstRegistro495.Next; // proximo item end; // Gera o arquivo de produtos Cofis252010.GeraArquivo495; lblstatus.Caption := 'Arquivo de Mercadorias / Produtos - Gerado com sucesso'; end; end; end; Para quem não conhece sobre a geração de arquivos para entrega para o auditor fiscal. Leia mais em: http://www.receita.fazenda.gov.br/previdencia/ArquivosDigitais/default.htm Alguma sugestão de melhorias no padrao utilizado ?

Pessoal estou finalizando a geração do IN86 - AGE COFIS. Estou na parte de teste no Validador do SVA, que por acaso e criado em Delphi . Criei as regras baseando no componente acbrSintegra, caso alguem interrese ele pode virar um componente dentro do acbr.

Legal estou fazendo isso, estou criando as classes para gerar o IN86, se baseando com o acbrspedpisconfis. Obrigado, qualquer novidade eu posto aqui.

Mais posso aproveitar as classes do acbrsped para criar um componente que gere esses arquivos? Por acaso alguem ja não tem essas rotinas prontas de geração prontas?

Uma empresa hoje recebeu essa intimação para gerar arquivos no layout do IN86. http://www.receita.fazenda.gov.br/publico/Legislacao/atos/cofis/2009/ Segue uma parte do texto que tem no arquivo: "A adoção do leiaute definido neste item supre a exigência fixada no ADE Cofis nº 25/2010 para as mesmas informações referentes a períodos anteriores. Não serão exigidos arquivos digitais de registros contábeis na forma deste item aos contribuintes que estão obrigados à transmissão da ECD ao Sped ou transmitiram facultativamente na forma do §1º, art. 3º da Instrução Normativa RFB nº 787, de 19 de novembro de 2007." Pelo que entendi se tivessem que gerar o SPED Fiscal não seria preciso gerar este outro layout, mas como os dados são de 2006 a 2009 não tenho como gerar retroativo os dados para o sped, o sistema nem tem os dados corretos, até mesmo o layout desse arquivo é diferente. E possivel gerar esses arquivos pelo acbr?

Bem legal suas telas, usando alguns componentes da TMS Intraweb dar para fazer coisas bem legais.

Parece que muitos usuários não estão atentos as novas tecnologias do Delphi eu desenvolvo usando Intraweb sistema que roda 100% em meus clientes e com otimo desempenho integrado com datasnap. Tem também o Delphi Prism que dispensa comentarios. Forte abraço

Olá amigos, alguém aqui ja trabalhou com o coletor de dados motorola sp5500. Preciso de uma sugestão por que preciso comprar um coletor de dados e integrar com o meu sistema. O cliente precisa fazer venda rápida algum smartphone que possa ler codigo de barra ou a melhor opção seria coletor mesmo?

Posso sim amanha quando estiver no escritorio eu post/anexo o manual, so não posso postar usuario e senha de acesso pois e de um cliente, mais isso pode ser conseguindo entrando em contato com a cdl do seu estado. Existe manual da API. web service de produção e homologação exemplos de xml de envio e retorno. Abraços

Olá amigos estou desenvolvendo um novo projeto onde vou implementar a consulta de SPC via sistema, envio em lote para retirar e colocar no spc via carga. Alguém ja desenvolveu algo a respeito. Achei que poderia virar um componente dentro do acbr? Eu ja tenho todo o material de apoio da CDL / SPC. Webservice de homologação e produção e senha para homologação. Estarei implementando ainda essa semana uma classe primeiro para consulta, caso seja do interrese do projeto poderemos criar um componente para isso. O que acham. Abraços

Parabens ao Projeto ACBR e todos os colaboradores.

Conserteza, amigo vou baixar a ultima versão da classe e começar a analisar. O que vc acha que colocar uma lista de tarefas e implementações que teríamos que fazer. Então já esta fazendo um pequeno demo certo ? Eu vou upar a classe num svn livre e posto o link aqui. Se você poder me enviar as alterações que vc tem eu ja coloco elas prontas no svn tbm. Abraços

Correção do Cst 51 Grato Por que nao posta o fonte?? até mesmo para eventuais correções... Ola hleorj você quer vender os fontes se não compartilhar com o forum os fonte do seu programa de calculo. Abraços

Grande edvilson, bom ja que a iniciativa inicial foi minha. Vamos la trabalhar em conjunto., me envia os fonte atuais da sua classe para que eu possa colocar num SVN e fica mais fácil a distribuição. [email protected] Não uso o componente acbrnfe uso tecnospeed nfe mais podemos trabalha juntos na classe criando demos para ambos os componentes. Futuramente podemos transformar ele em componente independente do acbr, ja que eles não tem esse interesse. Grande abraço