moisesaugusto

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;

Olá, Peterson, bom dia. Muito obrigado pelas informações. Vou configurar corretamente o componente e fazer as devidas alterações no aplicativo, uma vez que eu atualmente gero o Xml com o ACBr e utilizo o programa free da Unimake (UniNfe) para enviar/receber as Nf-es . Mas pela facilidade da configuração do ACBRNfe acho que vale a pena experimentar o envio e recebimento (retornos) somente por ele. De qualquer forma, se o problema ficar resolvido, eu postarei aqui e então poderemos colocar [resolvido] no tópico. Abraços !