seleuza

Ola amigos!, tenho um problema, e uma parceria pode resolver!, tenho uns poucos clientes e vou perde-los por nao ter o SPed Fiscal / PISCofins, gostaria de saber o seguinte, se alguem ai ja tem essas rotinas gerando os arquivos, podemos fazer o seguinte, alguem gera uma DLL, ou um componente com alguma especie de licenca MENSAL para disponibilizar podemos fazer uma parceria de por exemplo ser cobrado uma taxa mensal para manutencao e atualizacao do componente. Assim eu e outros param de perder clientes e deixamos tudo nos eixos, seria uma parceria interessante, mas tinha que ser algo "AGRADAVEL" ao bolso para se ganhar no volume nao na venda, eu mesmo ja tenho 5 clientes precisando atualizar, se alguem arrumasse essa parceria e cobrasse por exemplo R$ 50,00 por mes, o cliente nao iria xiar para pagar, e soh de mim ja vai R$200,00 por mes, fora os outros 15 clientes que nao consigo vender o meu software por nao ter o sped, acho que seria um otimo negocio, e depois eh soh manter atualizado!. Talvez pessoal, o ACBR Sped ja resolva esse problema, mas eu por exemplo que estou totalmente por fora, como nao tenho condicoes psicologicas por causa do meu problema de saude e recursos financeiros imediatos, caresso de atencao por falta de manuais, tanto dos componentes entre outras coisas e tambem por nao poder disponibilizar R$ 500.00 para pagar o SAC, que axo ter sido uma otima ideia, porem alguns carecem de recursos como eu, mas mesmo assim nao podemos morrer de fome nao eh? kkkkkkk. Desculpem mas escrevi mesmo com todos esses erros de ortografia pois meu teclado esta desconfigurado, eu nao sou tao burro assim nao pessoal, KKKKKKKKKK Um Abraco. Muito Obrigado por lerem

sera windows 7 64 o problema ? pessoal, copiei, registrei como administrador e fiz tudo isso nada, nada vai.

Ola pessoal!, obrigado por ler!, eu nao consigo fazer o componente rodar. Ao verificar o certificado ou coisa parecida nas linhas: Certs := Store.Certificates as ICertificates2; for i:= 1 to Certs.Count do begin Cert := IInterface(Certs.Item) as ICertificate2; if Cert.SerialNumber = FNumeroSerie then begin if NotaUtil.EstaVazio(NumCertCarregado) then NumCertCarregado := Cert.SerialNumber; if CertStoreMem = nil then begin CertStoreMem := CoStore.Create; CertStoreMem.Open(CAPICOM_MEMORY_STORE, 'Memoria', CAPICOM_STORE_OPEN_MAXIMUM_ALLOWED); CertStoreMem.Add(Cert); end; PrivateKey := Cert.PrivateKey; ele retorna "Cannot Find Object or Property" como faço para proceder? MUITO OBRIGADO

Amigos ao verificar o certificado ou coisa parecida nas linhas: Certs := Store.Certificates as ICertificates2; for i:= 1 to Certs.Count do begin Cert := IInterface(Certs.Item) as ICertificate2; if Cert.SerialNumber = FNumeroSerie then begin if NotaUtil.EstaVazio(NumCertCarregado) then NumCertCarregado := Cert.SerialNumber; if CertStoreMem = nil then begin CertStoreMem := CoStore.Create; CertStoreMem.Open(CAPICOM_MEMORY_STORE, 'Memoria', CAPICOM_STORE_OPEN_MAXIMUM_ALLOWED); CertStoreMem.Add(Cert); end; PrivateKey := Cert.PrivateKey; ele retorna "Cannot Find Object or Property" como faço para proceder? MUITO OBRIGADO

Ola!, odeio topicos apelativos mas tive que fazer, estou com problemas em todos os clientes dataregis que usam protocolo fiscnet, nao vi os outros, mas quando vai fazer quase qq tipo de leitura de subtotal entre outros ele retorna: **** Falha ao ler ESTADO do ECF **** Access violation at address 0055D3EA in module 'ECFTeste.exe'. Read of address 00000008 - + - + - + - + - + - + - + - + - + - + - + - Desativar - + - + - + - + - + - + - + - + - + - + - + - ta tudo parando pessoal, alguem passou por isso ?, e quase sempre q mando iniciar a impressora ele retorna: FiscNET: Dataregis - MT100 não está respondendo. Já configurei a com para 115200 inclusive no MSDOS pelo mode com e nem isso ajuda. eSTOU desesperado pois nao sou um bom programador ainda para descobrir por minha conta, muito obrigado!

Muito Obrigado vou tentar denovo.

Ola amigos! tudo bem ?, olha ao compilar o PAF no Lazarus acontece o seguinte: nessa secao function TPAF_D.WriteRegistroD2: String; function TPAF_D.WriteRegistroD3: String; function TPAF_D.WriteRegistroD4: String; e todas as outras function TPAF_D.WriteRegistroD2: String; var intFor: integer; strRegistroD2: String; strRegistroD3: String; begin strRegistroD2 := ''; strRegistroD3 := ''; if Assigned(FRegistroD2) then begin FRegistroD2.Sort(@OrdenarD2); <------------------------------ aqui dah no compiler: C:\delphi\d7_\ACBRLAZARUS\Fontes\ACBrPAF\ACBrPAF_D_Class.pas(166,32) Error: Incompatible type for arg no. 1: Got " ", expected "" se fazer observacao // nessas linhas compilam deve ser besteira, mas eu sou nova em programacao, voces podem me ajudar ?, MUITO OBRIGADA, OTIMO TRABALHO OTIMO COMPONENTE!