moisesaugusto

Boa noite, Newton. Tudo bem ? Eu estava procurando algo para tirar uma dúvida que tenho ( sobre uma função Delphi que preciso alterar ) , porém ao ler o teu tópico, fiquei curioso em saber se tu conseguiste resolver o problema com " o aplicativo parou . " Uso também o Delphi 10.4 (Sidney ) , já aconteceu algumas vezes como comentado por ti, porém na ocasião eu reinstalei o app no celular (no meu caso o Motorola G-5-S ) e resolveu. A título de curiosidade, usei no " Run -> Parameters -> Parameters " -cleaninstall ---- mas tal não funcionaria para o teu caso (na minha humilde opinião ), pois você estava instalando em dispositivos " zerados" de fábrica . Espero que tu tenhas resolvido. Obrigado pela atenção.

Consegui compilar (como disse antes, uso Delphi 10.4 (Sidney ) , depois das seguintes alterações : 1 - Deletar a diretiva de compilação {$R ..\..\..\es\ACBrDiversos\ACBrFalaWaves\ACBrFala.FontRES } que está na linha 84 do projeto Se alguém me explicar como a mesma funciona, agradeço --- pois não encontrei pesquisando no Google ) . 2 - Acrescentar no " uses " -- System.UITypes 3 - No evento "edValorKeyPress " ( linha 195 ) deletar o código após o "then" -- pois o DecimalSeparator não é aceito como identificador válido (tentei utilizar FormatSetting.DecimalSeparator -- de SysUtils e System.SysUtils porém também não foi validado ). 4 - Alterei manualmente, na propriedade "OrigemArquivos" do componente Acbr/fala1 , o path dos arquivos .Wav, ou seja, no meu caso , "C:\ACBR\Fontes\ACBrDiversos\ACBrFalaWaves\" 5 - No evento "onClick" do button "bFalar", acrescentei " rbDir.Checked := true; " e dessa forma consegui compilar ( parabéns ao autor pois a qualidade do som ficou excelente ) . 6 - Dessa forma, creio que acrescentando arquivos .wav com o conteúdo que for interessante, resolve-se o problema de o aplicativo converter texto para voz, da forma como for desejado. 7 Achei muito legal, pena que não me servirá, pois como eu disse, preciso compilar para uso em dispositivo mobile.

Ok, Juliomar. Vou refazer a instalação ( do ACBR ) marcando a opção de limpeza , quem sabe desta feita funcione. Apesar de que, na primeira instalação , o windows 10 tinha sido recentemente colocado na máquina , portanto não deveria haver resquícios de arquivos anteriores. Obrigado pelo interesse na resolução.

Boa noite. Instalei hoje o ACBR no Delphi Sidney . Funcionou tudo certinho, como sempre. Normalmente utilizo para emissão de Notas Fiscais Eletrônicas. Porém, ao tentar utilizar o componente ACBRFala, a fim de implementar algum áudio em meu aplicativo, o exemplo que vem no pacote ACBR não compila. O retorno é " file not found -- ...\fontes\acbrdiversos\acbrFalaWaves\AcbrFala.Res " . Alguém poderia por favor me dar uma luz ? Muito obrigado. Outra coisa -- Alguém conhece uma rotina // classe// ou componente que possa ser compilado para Android ( para a mesma finalidade ) ---- Desculpem se estou errado porém creio que o ACBRFala ainda não compila em Android, ok ??

E aí, Romulo, bom dia , conseguiu resolver o teu problema ?

Bom dia. Tudo bem ? " Como não há a possibilidade de transformar um txt em xml o meu aplicativo lê o txt da nota e transforma em xml. " Desculpe a curiosidade, porém por que não há essa possibilidade ? Por que você não tenta , utilizando o AcbrNfe fazer o seu próprio Xml em vez de importar ? Se dispuser de um banco de dados com as informações de que você precisa não é tão difícil assim ( refiro-me a emitente / clientes / produtos . Acredito até que seja, ao contrário, mais fácil. No princípio eu também importava txt porém depois mudei . Caso necessite te envio um exemplo funcional ( usando banco firebird ) . Seria somente adaptar. Outra coisa - o importante é, como o José Junior disse há pouco, é sempre utilizar os schemas que acompanham o ACBR , devidamente atualizados.

Desculpe, XTRcelo, somente depois de postar eu percebi que no cancelamento você não tinha problemas. Só por curiosidade, este problema está dando somente em produção, ou você nem consegue também emitir carta de correção em homologação ? Porque estou a fim de fazer uns testes por aqui para ver se também terei problemas (não tenho ainda essa rotina em meu aplicativo) .

Será que isso é caso isolado que ta acontecendo, pq tem só nós aqui no tópico reclamando, e não interessou nem para algum técnico dar um parecer Bom dia. Estou em Bauru / SP -- Somente hoje vi estes posts. Eu uso a mesma rotina que era utilizada na versão 3.10 para fazer o cancelamento da nota ( com envio do xml ou com a chave ) e faz mais ou menos um mês que conseguimos fazer os cancelamentos ( homologação e produção) sem problema algum. Portanto, creio que o seu problema esteja realmente na inicialização do componente (protocolos, libs, etc . A minha está assim configurada : procedure TFrmPrincipal.IniciaNFe; begin ACBrNFe1.EventoNFe.Evento.Clear; ACBRNFE1.Configuracoes.Geral.ModeloDF := moNFe; ACBRNFE1.Configuracoes.Geral.VersaoDF := ve400; AcbrNfe1.Configuracoes.Certificados.ArquivoPFX := 'c:\nota eletronica\certificado\**********.pfx'; AcbrNfe1.Configuracoes.Certificados.Senha :='***********' ; AcbrNfe1.Configuracoes.Arquivos.PathSchemas := 'c:\Nota Eletronica\Schemas'; if RGFormaEmissao.ItemIndex = 1 then AcbrNfe1.Configuracoes.Geral.FormaEmissao := TeScan else AcbrNfe1.Configuracoes.Geral.FormaEmissao := TeNormal; AcbrNfe1.SSL.SSLCryptLib := cryOpenSSL; AcbrNfe1.SSL.SSLHttpLib := httpOpenSSL; AcbrNfe1.SSL.SSLXmlSignLib := xsMsXml; AcbrNfe1.SSL.SSLType := LT_TLSv1_2; AcbrNfe1.Configuracoes.WebServices.Visualizar := True; if not cbCamposObrigatorios.Checked then AcbrNfe1.Configuracoes.Geral.CamposFatObrigatorios := False else AcbrNfe1.Configuracoes.Geral.CamposFatObrigatorios := True; end;

Pessoal, depois de ver em outro tópico uma outra informação, coloquei a propriedade "CamposFatObrigatorios " em False, enviei uma nota para produção ( SEFAZ SP ) e validou sem problema. Valeu ..

Também estou emitindo normalmente na vs. 4.0 no ambiente de homologação. Quando tento em ambiente de produção , porém, exatamente a mesma nota que foi validada, retorna a rejeição de que está em desacordo com os schemas vigentes (utilizei aqueles que vêm junto com os exemplos do ACBR, que também atualiizei hoje ( e após isso, reinstalei no Delphi. Respondendo à Mariana , quanto à propriedade CamposFatObrigatorios -- acrescentada ao componente e que vem com default em "true", isto é, independente de haver valor positivo ele irá gerar a tag "VDesc " --- acredito que não adiantará muito para a solução do caso (nem que a gente mude para false ) , pois na minha opinião o que está ocorrendo é que a SEFAZ SP está utilizando schemas diferentes para validar a homologação / ou / a produção. Tentei, ainda, baixar (nos downloads da SEFAZ ) os " arquivos vigentes " porém o que verifiquei é que só me apareceram ( a não ser que bobeei em alguma coisa ) -- só vieram os schemas para a versão 3.10 ( o que logicamente provocaria os erros que estamos comentando. Provavelmente ( infelizmente, this is Brazil ) os schemas correspondentes à 4.0 serão colocados no dia em que a versão 3.10 não for mais possível de se usar . Estou tentando de todas as maneiras, evitando colocar arbitrariamente o valor 0.01 como uma constante a ser acrescentada no VDesc, pois apesar de muitos amigos do fórum informarem que assim funciona, não creio ser uma solução correta (com todo respeito às demais opiniões ). Teoricamente, seria um problema para a SEFAZ resolver.

Boa tarde. Também fiz a modificação ( linha 2208 ). Emiti várias notas em homologação, ficou jóia. Porém hoje, ao implantar na produção, realmente deu rejeição / schemas . Inclusive atualizei os mesmos com a última versão constante no acbr. Retornei a vs. 3.10, a fim de testar os schemas, enviou normalmente. Está difícil pessoal.

Pessoal, boa tarde. Também estou com o problema : Quando tento enviar a nota, recebo a rejeição " Campos do grupo fatura não informados . Segue o trecho dos comandos inseridos em meu aplicativo, relativos à fatura : Cobr.Fat.nFat := EdtNrDP.Text; Cobr.Fat.vOrig := Valtot ; Cobr.Fat.vDesc := DescontoTotal; Cobr.Fat.vLiq := Cobr.Fat.vOrig - Cobr.Fat.vDesc; with Cobr.Dup.Add do begin nDup := '001' ; // EdtNumeroNota.Text; .................................. Outros comandos. Estou anexando o referido XML . Se alguém puder auxliar-me , fico agradecido. 35180702553503000110550010000609251000000018-nfe.xml

Boa tarde, Carlos. Muito obrigado pela resposta. Felizmente, já consegui terminar o projeto.

Bom dia. Alexandre. Que bom que conseguir emitir tuas Nf-e . Na minha opinião, o que importa é conseguirmos fazer isso. Quanto ao erro que recebeu ao tentar aquela configuração que lhe passei a princípio (a qual utilizo ) -- tal erro é devido ao fato de que a biblioteca OpenSSL exige que , em vez de colocarmos o número de série para manipular o certificado digital, informemos o caminho (path) + o nome (com extensão) do arquivo (.pfx) que compõe o certificado. Ah, sim, naturalmente teremos de informar também a senha, a fim de que a mesma não fique sendo solicitada em tempo de execução. A vantagem ( na minha modesta opinião ) de se usá-la é que você não precisa se preocupar mais nem mesmo em instalar o certificado digital no Internet Explorer A desvantagem é que neste caso (se não estou enganado ) -- é que com essa configuração não se pode usar o certificado model A-3 ( pelo qual muitas empresas optam , geralmente por motivos de ( menor ) custo do mesmo. A respeito do Capicom, dê uma procurada pela net, não está mais sendo muito viável sua utilização , porque ele está há algum tempo descontinuado (sua atualização ) pela Microsoft, procure por um artigo que se chama " Bye-bye Capicom " -- nele há uma explanação ampla dessa matéria. 2) Quanto às configurações avançadas do IE, no meu estão setadas as seguintes configurações : Utilizar SSL 2 e 3 ( muitos sites exigem ) Utilizar TLS 1.2 ( protocolo utilizado na vs. 4.0 da Nfe-4.0 ) Verificar se há assinaturas em programas baixados. Com essa configuraçao, tenho acessado normalmente quaisquer sites e não tenho tido programa na emissão da NF-e 4.0 . Desejo-lhe boa sorte . Nota : Costumo fazer dessa forma --- Encontro uma configuração que permita emitir a NF , a fim de não perder o prazo de implementação. Em seguida, já sem sufoco, faço uma porção de testes com outras configurações e se alguma outra for mais rápida faço a substituição no ERP.

Solicito ao Sr. moderador que coloque " Resolvido " no tópico. Solução : {Adiciona produtos} Contador := 0; // variável Integer declarar no início da rotina Itens := 0; // variável Integer Contador := AcbrNfe2.NotasFiscais[0].NFe.Det.Count ; ACBrNFe1.NotasFiscais[0].NFe.Det.Clear; While Itens < Contador do begin ACBrNFe1.NotasFiscais[0].NFe.Det.Add; ACBrNFe1.NotasFiscais[0].NFe.Det[Itens].Prod.cProd := ACBrNFe2.NotasFiscais[0].NFe.Det[Itens].Prod.cProd ; ................. // outras propriedades preenchidas ..... // finalzinho da rotina Itens := Itens + 1; ShowMessage ('Número de produtos = ' + InttoStr (Contador ) + #13 + 'Variável Itens = ' + InttoStr ( Itens )); end; De qualquer forma, ficam meus agradecimentos a alguém que possa haver lido e tido a intenção de ajudar-me ( o que vale é a intencão ). Abraços a todos .