moisesaugusto

Ok, Arbsys, obrigado por ter respondido. Olha, isso eu já consegui. Abro todos os diretorios necessarios ao funcionamento do meu aplicativo, alias quase todos, ainda esta dando um errinho no instalador, porem fiquei tão empolgado que gostaria de tentar a instalação do certificado tambem via instalador do programa . Por oportuno, a fim de que alguem possa aproveitar se estiver usando o Inno Setup, coloco um exemplo da linha onde copio e registro as DLLs necessarias ao ACBR (Capicom) -- editando o script compilado pelo Inno .. ; Registrando as DLLs com Regsvr32.exe Source: "D:\NFE-Sergio\Install\Support\CAPICOM.DLL"; DestDir: "{sys}"; CopyMode: alwaysskipifsameorolder; Flags: restartreplace sharedfile regserver Source: "D:\NFE-Sergio\Install\Support\MSXML5.DLL"; DestDir: "{sys}"; CopyMode: alwaysskipifsameorolder; Flags: restartreplace sharedfile regserver

Boas tardes, amigos. Vou aproveitar este tópico onde a a pergunta já foi feita, para enviar a minha : gostaria de saber se alguem conhece o codigo (não precisa ser com o componente ACBR , mas o codigo em Delphi, para fazer a instalação do Certificado A1 sem utilização do Internet Explorer ou outro navegador. Pois no programa de instalação (estou começando a utilizar o Inno Setup ) eu ja colocaria para rodar o instalador do certificado. Muito obrigado por qualquer sugestão.

Ola, senhores, obrigado pelas respostas. Ok, DesignerBa, tudo justo ... verdade, concordo quanto as discussões , mas acontece mesmo que eu reconheço que estou apanhando um bocado com a legislação, ela é bastante complexa , e se a gente não ficar antenado direto, as duvidas vão surgindo. Regys, ok quanto aos locais onde se destacam as BC do ST e tambem a porcentagem, etc. já coloquei e agora apareceram no Danfe os valores. Mas a contadora lá do escritorio me disse que não tem direito a credito (acho que ela esta confundindo o direito ao credito do Ipi com o do Icms. Pois eu havia colocado (antes ) o codigo 102 mas acredito que seja 201 (refiro-me ao codigo do CSOSN (Codigo de Situação da Operação do Simples Nacional ). Na minha opinião é ela (a responsavel pela contabilidade da empresa ) que deveria me informar em qual se encaixam. Mas, enfim, acredito que mesmo aos tropeços (e empiricamente ) acabo chegando la.

Boas tardes Talvez nem seja aqui o local próprio para resolver a dúvida, porém alguem pode ter a resposta e dar-me a informação, a título de auxiliar-me. Seguinte : Gerei uma Nf-e para um emitente cujo regime é o de Simples Nacional - com substituição tributária -- sem direito a crédito do Ipi. (código 102 ) Destaquei o valor da ST (calculada conforme a legislação) -- no campo Obs complementares da Nota fiscal . 2) Acontece que o comprador da mercadoria ( destinatário ) não está aceitando a nota, alegando que somente colocado nas obs complementares ele não pode deduzir o valor quando do pagamento do ICMS. 3) O escritório que faz a escrita / pagamentos de impostos para essa empresa encontra-se completamente " por fora " do que eu teria de fazer. Ficaram de verificar junto a SEFAZ mas já faz alguns dias e nada de retorno ainda. Minha dúvida é se eu tenho que colocar mesmo esses valores em algum campo do ACBRNfe, componente que utilizo para gerar o XML , enviar, etc. Obrigado Nota : Caso necessario, coloco aqui os codigos que estou utilizando no setor de "impostos " do XML

Oi, Rodnei (e demais amigos que estiverem lendo ) . Tudo bem ? obrigado por ter respondido. Ok, eu acabei formatando a maquina, reinstalando o Delphi 7 , instalei novamente o danfeQR e o DanfeRave (desta feita consegui instalar) mas quando tento utilizar o componente (rave) em algum aplicativo, na hora de compilar recebo a seguinte mensagem de erro : " Property ImprimirDataHora does not exist " Já tentei (usando regsvr32 ) registrar de novo as Dlls mas nadica de nada. O erro continua. Acho que estou desaprendendo, pois antes funcionava tudo direitinho. Nota : Outra coisa - quando eu tenho um aplicativo no qual esteja colocado o componente DanfeQR, o DanfeRave nao aparece na paleta (já pensou que loucura cara ? ) rs rs

Olá, pessoal. Hoje eu precisei desinstalar os componentes ACBRNFe2 de meu Delphi 7 , e já consegui em parte instalar outra vez. Porém, não consigo instalar o ACBRNfeDanfeRave e o ACBRNfeDanfeQR me retorna (quando tento utiliza-lo, pois está instalado, tanto que aparece na aba de componentes ) -- me retorna o erro " Property transparent band does not exist " Já aconteceu com alguém ? Postei por aqui porque já dei uma pesquisada na net e nada encontrei a respeito. Obrigado. Nota : eu fiz o update atraves do Tortoise ainda agora à tarde. Só que, ao final, deu alguns erros de conflitos nos arquivos baixado. Será que tem algo a ver ? N.2) Agora instalei novamente o Delphi 7 e, quando tento instalar (compilar) o componente DanfeRV recebo de retorno o erro " requires rave90vcl " e não compila. Que devo fazer ?

Ola, Italojjr Muito obrigado. Realmente. Adicionei o "uses " e funcionou direitinho.

[ R E S O L V I D O ] Bons dias amigos ! Estou com o seguinte problema : Eu consigo fazer praticamente todas as operações com o ACBRNfe -- consultas em ambiente de homologacao, idem na produção, envio etc... porém o que ocorre é que toda vez que tenho de mudar de ambiente, tenho de configurar manualmente , quer dizer, eu não estou conseguindo fazer a configuração via código (que a meu ver seria " AcbrNfe1.Configuracoes.WebServices.Ambiente := taHomologacao; " ou " AcbrNfe1.Configuracoes.WebServices.Ambiente := taProducao " ) Quando tento compilar, recebo o seguinte erro : Error:UnitUtil.pas(linha 45) - Undeclared Identifier "taHomologacao". O que poderia estar errado ? Obrigado. Nota : Na geracao da nota fiscal não tenho o problema, uma vez que a instrucao colocada é a seguinte : // acima, outras instruções // with ACBrNFe1.NotasFiscais.Add.NFe do begin If Radiogroup1.ItemIndex = 0 then Ide.tpAmb := taProducao Else If Radiogroup1.ItemIndex = 1 then Ide.tpAmb := taHomologacao; // etc.. E ele compila normalmente... ??

Boa noite, Kiko. e obrigado. Falha nossa ! vou corrigir imediatamente e fazer novos testes.

[ RESOLVIDO ] Ola, aqui estou de volta , 25 minutos depois . É que nesse intervalo eu continuei pesquisando e consegui a autorização da SEFAZ apos acrescentar o seguinte código, em meu ERP== (nos locais indicados abaixo (informações do produto ) : ----> with Imposto do begin ////////// ICMS.CSOSN := csosn101; // DEIXEI FIXO POIS SO TEM UMA EMPRESA Q USA ISSO ICMS.pCredSN := 0; ICMS.vCredICMSSN := 0; /////////// continuação ... ---> with ICMS do begin Créditos : Joemil em http://www.activedelphi.com.br/forum/vi ... b445967eb7 Abraços a todos

Ola, pessoal. boa tarde. Vou aproveitar para embarcar neste post, pois tambem estou tentando emitir uma nota cujo emitente utiliza o regime de "simples nacional " e estou recebendo o erro acima informado. Apesar de ter sim, preenchido o CRT == Emit.CRT := crtSimplesNacional; Dest.CNPJCPF := Dm.QryClientescic.AsString; O que será que posso estar fazendo errado ? Antes, quando eu utilizava o regime de tributação normal (CRT=3) , estava funcionando tudo certinho. Porem agora não estou conseguindo. Obrigado por qualquer ajuda. A proposito, estou usando tambem : ICMS = CST41 PIS = PIS99 ipi = ipi99 COFINS = COF99 E estou adicionando nas informações complementares, aquela tarja obrigatoria sobre a não permissao de créditos. Abraços.

[ Resolvido ] Desculpem , porém depois que eu postei a dúvida aqui no Forum, cheguei a conclusao de que obrigatoriamente a solução estaria no fonte dele, o ACBRDanfeRave.pas, então abri-o e cheguei a uma linha (acho que 838) onde consta o "zoom factor = 100 " Ainda não instalei o componente de novo, mas ja fiz a devida mudança para 125 e amanha vou ver se funciona da forma que preciso. Obrigado, de qualquer forma.

Prezados, boas noites. Eu estou utilizando, para imprimir o DANFE, o componente DanfeRave, só que o zoom padrao dele está em 100 (cem) por cento; eu gostaria de mudar para 125 porcento, porem não sei em que parte do codigo eu deveria mexer, a fim de fazer essa modificação. Alguem poderia, por favor, dar-me um auxílio ? Por isso agradeço.

Bom dia , Nando. Outro dia deu um problema na SEFAZ SP sendo que eu nem cheguei a utilizar o tipo de emissao em contingência, pudemos aguardar o retorno dos serviços ao normal. Porém mesmo assim eu saí a procurar uma solução, o que fiz foi colocar no meu formulário um radiobutton "contingencia" com o codigo abaixo -- pelo menos no ambiente de homologação (onde testei ) foi gerado o XML corretamente. Logicamente ele não foi transmitido. código : if radiobutton2.Checked then Ide.tpEmis := teFSDA; // ele gera se não me engano com o tipo de emissao "5" Abraços.

Olá, eu tambem tive esse problema. Reclamei junto a empresa que hospeda nosso site, imaginei que o problema poderia ser la. O rapaz do suporte técnico me sugeriu que utilizasse a porta 587 e desligasse a "autenticação segura" (na configuração ) . A partir da mudança (eu estava utilizando a porta 25) , funcionou corretamente. Tambem testei com o smtp do Hotmail (smtp.live.com ) e funcionou sem problemas. Nota : Utilizei o exemplo fornecido com o componente, com as devidas modificações. (acbrnfe_DEMO.exe) (( créditos))... procedure TFrmPrincipal.EnviaemailClick(Sender: TObject); var Para : String; CC: Tstrings; begin if not(InputQuery('Enviar Email', 'Email de destino', Para)) then exit; OpenDialog1.Title := 'Selecione a NFE'; OpenDialog1.DefaultExt := '*-nfe.XML'; OpenDialog1.Filter := 'Arquivos NFE (*-nfe.XML)|*-nfe.XML|Arquivos XML (*.XML)|*.XML|Todos os Arquivos (*.*)|*.*'; OpenDialog1.InitialDir := ACBrNFe1.Configuracoes.Geral.PathSalvar; if OpenDialog1.Execute then begin ACBrNFe1.NotasFiscais.Clear; ACBrNFe1.NotasFiscais.LoadFromFile(OpenDialog1.FileName); CC:=TstringList.Create; CC.Add('[email protected]'); //especifique um email válido CC.Add('[email protected]'); //especifique um email válido ACBrNFe1.NotasFiscais.Items[0].EnviarEmail('servidor de smtp.com.br' , '587' , '[email protected]' , 'senha123senha' , '[email protected]' , Para , 'Nota fiscal eletrônica' , mmEmailMsg.Lines , cbEmailSSL.Checked , False , nil , nil , False , False , 'Nomedousuariosemarroba' ); CC.Free; end; end;

Ola, tudo bem ? Olha, pra falar a verdade eu ainda não desenvolvi essa parte da rotina em meu ERP . Mas na minha opiniao, está faltando voce logar-se antes de tentar o envio (a maioria dos servidores de email requer autenticação segura, mesmo para o envio ) Se vc postar o codigo que esta usando no momento eu poderia fazer alguns testes e analisarmos juntos. Boa sorte !

R E S O L V I D O Ok, agradeço pela resposta . Realmente , após consultar o Manual de Integração ( página 118 ) verifiquei que o campo utilizado para email deve ser de 60 (sessenta ) caracteres no máximo. Valeu !

Apos tentar inutilmente descobrir, via Google, estou postando a seguinte duvida: gostaria de saber qual a quantidade maxima de caracteres permitida no endereco (do email) - creio que deva existir um maximo - , para que eu possa adequar o campo no ERP que desenvolvi para atualizar o cadastro de clientes aos quais serão enviados os arquivos .XML gerados pelo emissor do ACBR. Obrigado antecipadamente. Nota:Texto nao acentuado propositadamente.

Bom dia, Kiko. E grato pelo interesse. Estou ciente quanto a responsabilidade, tanto é que, a par das informações complementares, vou emitir uma relação a ser preenchida e essa então será levada (e preenchida) pelos entregadores (que conduzem os caminhoes da empresa). Vou pressioná-los para que enviem-me os dados com a maxima brevidade. Obrigado de novo e boa sorte !

Ola, pessoal. boa noite. Estou com uma duvida , espero que alguem possa me auxiliar. Seguinte : Como devem saber, as normas da Sefaz obrigam que os arquivos XML contendo as autorizações de uso da NF-e, sejam enviados ao cliente/comprador . Isso ainda não está sendo fiscalizado (que eu saiba) porém com certeza dentro de algum tempo (acredito brevemente) poderá haver multas caso isso não seja feito concomitantemente com a emissão da nota. Minha dúvida --- como ainda não temos em nosso cadastro todos os emails dos nossos compradores, seria permitido colocar nas "informações complementares " da nota emitida , uma solicitação ao cliente para providenciar a informação do email dele ?? Ou não tem nada a ver ? Obrigado.

Olá, Thiago. boa noite. Olha, cara, eu tive tantas dúvidas quando comecei a programar essa dita cuja Nf-e que pensei que nunca ia conseguir. Hoje em dia eu vejo que não é tão dificil assim não. Tem tempos (atualmente) que só apareço la na empresa esporadicamente. Utilizei o Acbr e não tenho tido problemas(felizmente). Hoje mesmo, depois de um mes, aparecerem duas notas rejeitadas, mas consegui envia-las em cinco minutos, pois era um errinho no cadastro do cliente(a empresa emite umas seiscentas notas mensalmente, portanto a porcentagem é boa não acha ?) Não entendi direito a sua duvida, se puder detalhar o que esta ocorrendo, talvez possa dar-lhe alguma dica. >>Tenho muitas dúvidas com relação a NFe. Me perdoem se algumas delas forem ridículas, rs. Nenhuma dúvida pode ser considerada ridícula. ok? na minha modesta opinião. >>No exemplo do NFe2, quais informações eu coloco na guia webservices? 1) Somente o estado (tem de ser em letras maiusculas -- no meu caso coloco somente SP 2)Ambiente -- Se voce estiver fazendo apenas testes, coloque "Homologação". Os demais campos não precisam necessariamente ser preenchidos , salvo se voce, para acessar a internet, utilizar algum servidor proxy. Disponha ..

Olá, tudo bem ?? Estou vendo as duvidas de voces e resolvi dar uma opinião. Somente para observarem que na verdade o arquivo que contem a autorização é aquele com extensão -proc.Xml , o qual deveria ser enviado ao cliente/comprador (e que tem validade fiscal). Eu utilizo o AcbrNfe para salvar os Pdfs, mas sempre escolho o -proc.xml , quando ele ainda não retornou eu faço uma consulta utilizando o -nfe.xml porque quando ele retorna (da consulta) ele vem com a autorização (excepcionalmente). Normalmente ele termina nas tags que contém a assinatura digital. É isso aí. Abraços

Bom dia, Fausto. Eu nunca digo que uma pergunta é besta. Porque pior é a gente ficar na dúvida e não perguntar. Aliás, a finalidade dos forums é justamente a gente esclarecer quaisquer dúvidas. Quanto a sua pergunta, na verdade eu não sei se cria ou não . Eu utilizo o ACBRNfe até a parte onde onde ele GERA o arquivo XML. Depois de gerado, eu envio ele com um outro programa que baixei na Unimake, o UNiNfe. Esse sim, quando instalado, se encarrega de criar os diretorios (envio, envio em lotes, enviados, autorizados, erros, denegados, etc..) Enfim, esse UniNfe que faz esse trabalho "pesado" para a gente. Mas se vc quiser fazer um teste, experimente, depois posta aqui pra eu tambem ficar sabendo. Abraços. Qualquer outra coisa que precisar, envie-nos.

[ RESOLVIDO ] Ola, boas noites a todos ! Estou retornando a este topico para dizer que, apesar dos recursos de salvar do componente, recebi uma rotina gentilmente a mim enviada pelo Alexandre de Carli ( créditos ) , cujo link coloco aqui : http://extremeprogramming.wordpress.com ... da-delphi/ a qual faz exatamente o que eu me propunha fazer, com a vantagem que poderá ser utilizada independentemente da utilização do componente ACBR. Até poucos minutos atras o link estava funcionando corretamente, porem se houver algum problema e alguem necessitar, eu tenho a rotina funcionando e poderei enviar a quem solicitar. Abraços a todos !

Bons dias, pessoal ! Estou desenvolvendo uma rotina para emissão de um relatorio, automaticamente, pelo meu aplicativo, com base nos arquivos XML, após uma consulta à base da SEFAZ. Já consegui fazer a maior parte, porem estou me esbarrando com um problema quando tento copiar os arquivos dentro de um determinado periodo para outro subdiretorio. Abaixo está a rotina que estou utilizando. O erro retornado é o citado no cabeçalho do tópico : ListIndex out of bounds (0). Agradeço por qualquer sugestão que me enviarem. procedure TFrmRelatorios.Button1Click(Sender: TObject); var Contador : Integer; S, NomeArq, Destino : String; begin { Rotina 1 - Copia todos os arquivos do diretorio/subdiretorios para um diretorio unico } ShowMessage ('Por favor aguarde, copiando os arquivos'); // CopiaSSub('C:\Repositorio\', 'D:\XMLs','-nfe.xml'); Application.ProcessMessages; ShowMessage ('Arquivos copiados com sucesso'); // Essa parte acima está funcionando ok /// { Em seguida, verifica a data de criação (emissão da nota) de cada arquivo colocado num ClientDataSet } ///// Obs : o problema ocorre quando eu coloco valores ///// acima de 100 ou mesmo utilizando o .count ... For Contador := 0 to 100 do // FileListBox1.Items.Count -1 do begin FileListBox1.Directory := 'D:\XMLS'; S := ''; S := S + FileListBox1.Items[Contador] ; FileListBox1.Selected[Contador] := True; ACBrNFe1.NotasFiscais.Clear; ACBrNFe1.NotasFiscais.LoadFromFile(S); ClientDataSet1.Active := True; ClientDataSet1.Insert; ClientDataSet1Numero.AsString := InttoStr(AcbrNfe1.NotasFiscais.Items[0].NFe.Ide.nNF); ClientDataSet1Emissao.AsDateTime := AcbrNfe1.NotasFiscais.Items[0].NFe.Ide.dEmi; { Seleciona por período -- e faz a cópia } if (ClientDataSet1Emissao.AsDateTime >= StrtoDate(MaskEdit1.Text)) and (ClientDataSet1Emissao.AsDateTime <= StrtoDate(MaskEdit2.Text)) then begin NomeArq := 'D:\XMLs\Teste\' + S; ACBrNFe1.NotasFiscais.Items[0].SaveToFile(NomeArq); end; {Esta rotina confere se todas as notas do intervalo (data inicial e data final ) estão na pasta } // ........ falta elaborar a rotina ....... end; ClientDataSet1.Close; ClientDataSet1.Active := True; end;