Sérgio Assunção

Olá Atilio, bom dia ... "Vantajoso" é pensar no desempenho ! Independente da conexão ser feita com o Firedac, Zeos, ou qualquer outro componente, você precisa entender o que pode ser feito com um Table e com uma Query. Vale lembrar que uma Query pode fazer a função de um Table, já o Table não pode fazer todas as funções de uma Query. Imagine uma tabela em seu aplicativo com 50 mil registros, e você tendo a necessidade de gravar mais um. Usando um Table o processo vai carregar os 50 mil registros na memória e talvez o seu aplicativo dê uma congelada se estiver rodando numa rede. Se usar uma instrução Sql ("insert into.."), passada para uma Query, o registro será gravado e você nem vai perceber ! Talvez nossos amigos tenham uma opinião diferente, mas eu particularmente só uso Query em meus aplicativos. Sérgio

ServerInfo, aconselho uma lida no manual com as especificações para o QRCode em http://www.nfe.fazenda.gov.br/portal/exibirArquivo.aspx?conteudo=jKHRw%20g4V%20E= e também dar uma lida nas páginas anteriores onde isso ja foi discutido. Sérgio

Realmente é estranho ... a nota 3202 foi processada com o total de 37.040,00 nos produtos e 36.188,08 na NF, sem nenhum desconto, imposto, ou qualquer outra informação nas tags que pudesse alterar o valor da nota. Nessa eu fiquei perdido tbém :/ Sérgio

Ta bem errado ai amigo... veja: A nota 3202 o total dos produtos é 37.040,00 e o total da NF é 36.188,08 e não se tem desconto nessa nota; Já na nota 3207 o total dos produtos é 32.059,00 e o total da NF é 31.321,64 e não se tem desconto nessa nota. Vale lembrar que o desconto final é a soma dos descontos concedidos nos produtos. Att, Sérgio

O cancelamento é exatamente igual ao da NF-e, através de eventos. E ainda não existe nada "oficial" no componente para a impressão da NFC-e. Sérgio

leufmt, veja no final da sua função: '&cIdToken=' + Dtm.QueryEmpresaIdToken1.AsString + '&cHashQRCode=' + vHashqrcode; Não seria ? '&cIdToken=' + Dtm.QueryEmpresaIdToken1.AsString + Dtm.QueryEmpresaCodToken1.AsString + '&cHashQRCode=' + vHashqrcode; Sérgio

Olá leufmt, Parece que você está passando apenas o Id do Token: &cIdToken=' + Dtm.QueryEmpresaIdToken1.AsString Eu faço aqui da seguinte forma: '&cIdToken=<id_token><token>' Att, Sérgio

Não é pra existir essa diferença. Já atualizou a pasta Schemas e a cadeia de certificados ? Pode expor aqui exatamente o erro que esta acontecendo ? Att, Sérgio

leufmt, deve ser a rotina do Token. Pode colar a função na qual você gera o qrcode pra analisarmos ? Att, Sérgio

Bom dia amigos. Fiz a atualização do meu componente Zeos, e agora estou usando a versão 7.1.2 (anterior a versão 6.6.6). Tenho algumas dúvidas em relação a algumas propriedades novas (ClientCodePage, ControlsCodePage, LibraryLocation, etc). Alguém pode me citar as principais propriedades a serem preenchidas para o funcionamento com o Firebird 2.5 ? Obrigado. Sérgio

Ivanilson, veja: Sérgio

Olá amigo, bom dia. Entre em contato: Sérgio E-mail / Skype: [email protected]

Ivanilson ... veja nesse mesmo tópico a partir da pagina 13 em diante. Att, Sérgio

Boa tarde Rafael ... Veja: Att, Sérgio

Olá amigo... veja: http://www.regys.com.br/sefazam-libera-ambientes-de-testes-de-nfc-e-para-todo-o-pais/ O ACBrNFe já funciona 100% com as urls liberadas pelo estado do Amazonas. Sérgio

Você já tem um PDV desenvolvido e necessita adaptá-lo para a NFC-e ? Entre em contato. Sérgio Skype: [email protected]

Obrigado Leonardo ... deu certo ! Valeu mesmo. Sérgio

Bom dia amigos ... Alguém pode me dar uma ajuda aqui com o erro 100 - QR Code Inválido ? O link: http://homnfce.sefaz.am.gov.br/nfceweb/consultarNFCe.jsp?chNFe=13140214403536000162650010000000051000000053&nVersao=100&tpAmb=2&cDest=05481336000137&dhEmi=323031342D30322D31375432303A34333A34372D30343A3030&vNF=350.00&vICMS=63.00&digVal=56523150686F504D4E524A58564A6E766F356D7969597045446A633D&cIdToken=000001&cHashQRCode=21158C98ED6D5C46387DB44448C84CC61E849023 A forma que estou fazendo: procedure TForm1.GerarQrCode; var s_aux, dh_emi, s_hash, FIdToken, FToken: string; qrcode : TxpQrCode; begin dh_emi := GetUTC( CodigoParaUF(ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.cUF), StrToDateTime(FormatDateTime('dd/mm/yyyy',ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.dEmi)+' '+ FormatDateTime('hh:mm:ss', ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.dEmi))); dh_emi := StringToHex( FormatDateTime('yyyy-mm-dd',ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.dEmi)+'T'+ FormatDateTime('hh:mm:ss', ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.dEmi)+dh_emi ); if (ACBrNFe1.NotasFiscais.Items[0].NFe.ide.tpAmb = taHomologacao) then begin FIdToken := '000001'; end; if (ACBrNFe1.NotasFiscais.Items[0].NFe.ide.tpAmb = taProducao) then begin FToken := Copy(ACBrNFe1.NotasFiscais.Items[0].NFe.Emit.CNPJCPF, 1, 8)+ IntToStr(YearOf(Now))+'0001'; end; s_aux :='chNFe=<chaveacesso>'+ '&nVersao=100'+ '&tpAmb=<ambiente>'+ IIf(ACBrNFe1.NotasFiscais.Items[0].NFe.Dest.CNPJCPF<>'', '&cDest=<cnpj_dest>', '')+ '&dhEmi=<data_hora>'+ '&vNF=<valor>'+ '&vICMS=<valor_icms>'+ '&digVal=<digito_val>'+ '&cIdToken=<id_token><token>'; s_aux := StringReplace(s_aux, '<chaveacesso>', SomenteNumeros(ACBrNFe1.NotasFiscais.Items[0].NFe.infNFe.ID), []); s_aux := StringReplace(s_aux, '<ambiente>', TpAmbToStr(ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.tpAmb), []); s_aux := StringReplace(s_aux, '<data_hora>', dh_emi, []); s_aux := StringReplace(s_aux, '<valor>', StringReplace(FormatFloat('##,##0.00',ACBrNFe1.NotasFiscais.Items[0].NFe.Total.ICMSTot.vNF),',','.',[]),[] ); s_aux := StringReplace(s_aux, '<valor_icms>', StringReplace(FormatFloat('##,##0.00',ACBrNFe1.NotasFiscais.Items[0].NFe.Total.ICMSTot.vICMS),',','.',[]),[] ); s_aux := StringReplace(s_aux, '<digito_val>', StringToHex(ACBrNFe1.NotasFiscais.Items[0].NFe.signature.DigestValue), []); s_aux := StringReplace(s_aux, '<id_token>', FIdToken, []); s_aux := StringReplace(s_aux, '<cnpj_dest>', ACBrNFe1.NotasFiscais.Items[0].NFe.Dest.CNPJCPF, []); with TACBrEAD.Create(nil) do try s_hash := StringReplace(s_aux,'<token>',FToken,[]); s_hash := CalcularHash(s_hash, dgstSHA1); finally Free; end; s_aux := StringReplace(s_aux,'<token>', '',[]) + '&cHashQRCode='+s_hash; s_aux := GetSiteConsulta( CodigoParaUF(ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.cUF), ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.tpAmb ) +'?'+ s_aux; Memo1.Lines.Clear; Memo1.Text := s_aux; qrcode := TxpQrCode.Create; try if qrcode.GerarQrCode( s_aux ) then qrcode.QrCode.SaveToFile(ExtractFilePath(ParamStr(0))+'qrcode_temp.bmp'); finally qrcode.Free; end; end; E em anexo o xml. Obrigado. Sérgio 13140214403536000162650010000000051000000053-nfe.xml

Boa tarde amigos ... Só uma dúvida básica ... Estou usando a função GerarQrCode, e tenho seguinte trecho: if (ACBrNFe1.NotasFiscais.Items[0].NFe.ide.tpAmb = taHomologacao) then begin FIdToken := '000001'; end; if (ACBrNFe1.NotasFiscais.Items[0].NFe.ide.tpAmb = taProducao) then begin FToken := Copy(ACBrNFe1.NotasFiscais.Items[0].NFe.Emit.CNPJCPF, 1, 8)+ IntToStr(YearOf(Now))+'0001'; end; Só não reparei em nenhum momento em que parte do código foram definidas as variáveis FIdToken e FToken. Posso defini-las na própria função GerarQrCode ? Obrigado. Sérgio

Boa tarde amigos ... Iniciei os testes aqui usando o demo e a Sefaz AM, e tudo Ok com as 3 primeiras notas que transmiti. O único probleminha é que não consegui, em nenhum momento exibir o QrCode no Danfe. Baixei as units fornecidas aqui no fórum para o Danfe em Fast e as dicas abaixo: ACBrNFeDANFEFR1.FastFile := 'C:\DANFeNFCe.fr3'; ACBrNFeDANFEFR1.Logo := 'C:\QR.jpeg'; ACBrNFe1.NotasFiscais.Clear; ACBrNFe1.NotasFiscais.LoadFromFile(PathDoXML); ACBrNFe1.NotasFiscais.Imprimir; Mas não exibe nada. Em anexo a imagem da ultima NFCe transmitida. Alguém pode me dar um help ? Obrigado. Sérgio

Olá, bom dia ... Alguém teria o esquema para a confecção do cabo serial da balança Urano US 20/2 POP-S ? No manual não tem, no site o manual é o mesmo e o suporte 0800 não me fornece esse tipo de informação :/ Obrigado. Sérgio

A SEFAZ/SP implementou uma validação que verifica se os dados CNPJ e IE dos contribuintes destinatários correspondem aos registrados no CADESP. Caso não correspondam, a NF-e será rejeitada, retornando erro 234 - IE do destinatário não vinculada ao CNPJ. a ) Nos casos em que o contribuinte destinatário tenha Regime Especial de IE única, a IE ativa é que deve ser informada. b ) Nos casos de destinatários que tenham sido baixados no CADESP com alguma das ocorrências abaixo, o campo IE do destinatário na NF-e deverá ser preenchido com ISENTO ou não ser informado na NF-e: 4.0-Sem ocorrência para situação Baixada (legado) 4.1-Baixa exclusivamente no Estado 4.7-Extinção - Tratamento diferenciado dado às ME e EPP 4.8-Extinção pelo encerramento da liquidação voluntária 4.9-Encerramento do processo de liquidação extrajudicial Estas ocorrências podem ser verificadas na consulta pública do CADESP https://www.cadesp.fazenda.sp.gov.br Sérgio

Em SP normalizou ontem mesmo. Sérgio

Haha... blz... ai fico mais tranquilo. Valeu Kiko Fernandes ! Valeu juaumkiko !

... acessando a url tenho a seguinte mensagem: Serviço destinado à consulta do status do serviço prestado pelo Portal da Secretaria de Fazenda Estadual. The following operations are supported. For a formal definition, please review the Service Description. nfeStatusServicoNF2 Consulta Status do Serviço