Sérgio Assunção

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

Boa tarde amigos ... meu sistema começou a acusar o status: EM PRODUÇÃO - Inativo ou Inoperante tente novamente. - - URL:https://nfe.fazenda.sp.gov.br/nfeweb/services/nfestatusservico2.asmx - SOAPAction:http://www.portalfiscal.inf.br/nfe/wsdl/NfeStatusServico2 EM HOMOLOGAÇÃO - Inativo ou Inoperante tente novamente. - Forbidden (403) - 'https://homologacao.nfe.fazenda.sp.gov.br/nfeweb/services/NfeStatusServico2.asmx Isso hoje (27/01) na parte da tarde. Ainda cedo alguns clientes emitiram notas normalmente. Procedi a atualização dos schemas; Instalei os novos certificados homologacao.nfe.fazenda.sp.gov.br e nfe.fazenda.sp.gov.br; Verifiquei o status dos WebServices através do Portal NFe e em SP ta tudo "verdinho"; Testei com o demo do ACBrNFe e o meu certificado (vence somente em 2015), e o status é o mesmo do meu emissor. Alguém sabe se existe mais algum ajuste repentino a ser feito ? Obrigado. Sérgio

Valeu Marcelo ... já achei aqui. Agora só uma dúvida: percebi que a comunicação no componente com o aparelho é serial. Existe algum meio (usando o ACBrTer) para comunicação Ethernet ? Obrigado. Sérgio

Marcelo, boa tarde. Será que você poderia disponibilizar o exemplo que você forneceu onde há integração com um banco de dados ? Fiz o download aqui mas o arquivo esta vindo corrompido. Meu e-mail [email protected] Obrigado. Sérgio

Bom dia. Alguém sabe me dizer se já é possível realizar os testes na UF SP ? Sérgio

São Paulo ainda não funciona: Ambiente : 2 Versão Aplicativo : SP_NFE_PL_006q Status Código : 238 Status Descrição : Rejeicao: Cabecalho - Versao do arquivo XML superior a Versao vigente UF : SP Recebimento : 02/01/2014 13:01:52 Tempo Médio : 0 Retorno : Observação : Sérgio

Bom dia ... fiz uma breve pesquisa e encontrei vários resultados, veja um deles: Sérgio

Tente: Prod.IndTot := itSomaTotalNFe; Que eu me lembre uma NF-e apenas com serviço não é aceita. Procure no fórum sobre nota conjugada (produtos e serviços). Att, Sérgio

Diego ... eu fiz alguns ajustes (provisórios) e ja consigo compilar no Delphi 7. Em anexo. Sérgio ACBrSPC.rar

Bom dia ... meu certificado é de SP, e sei que os links para SP ainda não foram disponibilizados. Eu consigo realizar algum tipo de teste, com alguma UF que ja tenha disponibilizado os links utilizando o meu certificado ? Obrigado. Sérgio

Sim, fiz a correção. Alterei o arquivo ACBrNFeDANFeEventoRLRetrato.pas if Length(Dest.CNPJCPF)=11 then rllDestCNPJ.Caption := DFeUtil.FormatarCPF(Dest.CNPJCPF) else rllDestCNPJ.Caption := DFeUtil.FormatarCNPJ(Dest.CNPJCPF); Em anexo o arquivo. Sérgio ACBrNFeDANFeEventoRLRetrato.pas

Boa noite amigos. Tem um pequeno detalhe na impressão do evento CC-e no Fortes. O documento do destinatário está formatado apenas para receber um CNPJ e fica dessa forma "XX.XXX.XXX/XXX-" quando o destinatário é pessoa física. Sérgio

Valeu Daniel ! Sérgio

<t1> = 12 ou Ch (24 ms) <t2> = 48 ou 30h (96 ms) Obrigado. Sérgio

Olá amigos, boa noite ... Conforme o manual eu tenho a seguinte explicação de como acionar a gaveta através de parâmetros enviados para a impressora: ASCII: <ESC> `&´ `0´ <t1> <t2> HEX: 1Bh 26h 30h <t1> <t2> DECIMAL: 27 38 48 <t1> <t2> Como ficaria a string que eu possa usar no WriteLn ? Obrigado. Sérgio

Bom dia pessoal... Já existe uma DBGrid compatível ? Desenvolvi um aplicativo com uma listagem de produtos, no momento estou usando o SqLite,FBQuery e um ListBox e exibindo o CODIGO e o PRECO do produto. Mas precisaria o CODIGO a REFERENCIA e o PRECO do produto, e não consigo fazer com a ListBox. Agradeço à qualquer dica. Sérgio