leufmt

Não conhecia essa André. Vou testar aqui.

Boa tarde pessoal. Já estou a meses tentando resolver o Erro 100 - QR Code Inválido. Meu código abaixo. function TFormOrcamento.Gera_hashqrcode(Emissao: TDateTime; TotalNota, TotalICMS: Real; Chave, CPFCNPJ, DigVal: String): String; var vTexto, vAmbiente, vdemi, vlnf, vlicms, vCPFCNPJ, vCidToken: String; begin Case ACBrNFe1.Configuracoes.WebServices.Ambiente of taHomologacao: begin vAmbiente := '2'; vCidToken := '&cIdToken=' + '000001' + Copy(TiraCaracterDocumento(Trim(Dtm.QueryEmpresaCNPJF.AsString)), 1, 8) + IntToStr(YearOf(Emissao)) + '0001'; end; taProducao: begin vAmbiente := '1'; vCidToken := '&cIdToken=' + Dtm.QueryEmpresaIdToken1.AsString + Dtm.QueryEmpresaCodToken1.AsString; end; end; vdemi := StringtoHex(Formata_DataUTC(Emissao)); vlnf := StringReplace(FormatFloat('###0.00', TotalNota), ',', '.', []); vlicms := StringReplace(FormatFloat('###0.00', TotalICMS), ',', '.', []); If TiraCaracterDocumento(Trim((CPFCNPJ))) <> '' then vCPFCNPJ := '&cDest=' + TiraCaracterDocumento(Trim((CPFCNPJ))) Else vCPFCNPJ := ''; vTexto := 'chNFe=' + Chave + '&nVersao=' + '100' + '&tpAmb=' + vAmbiente + vCPFCNPJ + '&dhEmi=' + vdemi + '&vNF=' + vlnf + '&vICMS=' + vlicms + '&digVal=' + StringtoHex(DigVal) + vCidToken; Result := ACBrEAD1.CalcularHash(vTexto, dgstSHA1); end; function TFormOrcamento.Gera_chaveconsultaNFCe: String; var vRetorno, vAmbiente, vChave, vDataEmissao, vlnf, vlicms, vHashqrcode, vCPFCNPJ, vTokenURL: String; begin Case ACBrNFe1.Configuracoes.WebServices.Ambiente of taHomologacao: begin vAmbiente := '2'; // Pega endereço de consulta publica da nfce vRetorno := 'http://homologacao.sefaz.mt.gov.br/nfce/consultanfce?'; vTokenURL := Dtm.QueryEmpresaIdToken1.AsString; end; taProducao: begin vAmbiente := '1'; // Pega endereço de consulta publica da nfce vRetorno := 'http://www.sefaz.mt.gov.br/nfce/consultanfce?'; vTokenURL := Dtm.QueryEmpresaIdToken1.AsString + Dtm.QueryEmpresaCodToken1.AsString; end; end; vChave := QueryCupomChave.AsString; vDataEmissao := StringtoHex(Formata_DataUTC(QueryCupomDataHora.AsDateTime)); vlnf := StringReplace(FormatFloat('###0.00', QueryCupomValorTotal.AsFloat), ',', '.', []); vlicms := StringReplace(FormatFloat('###0.00', QueryCupomValorICMS.AsFloat),',', '.', []); If TiraCaracterDocumento(Trim((QueryCupomCNPJ_RG.AsString))) <> '' then vCPFCNPJ := '&cDest=' + TiraCaracterDocumento(Trim((QueryCupomCNPJ_RG.AsString))) Else vCPFCNPJ := ''; vHashqrcode := Gera_hashqrcode(QueryCupomDataHora.AsDateTime, QueryCupomValorTotal.AsFloat, QueryCupomValorICMS.AsFloat, vChave, QueryCupomCNPJ_RG.AsString, QueryCupomDigVal.AsString); vRetorno := vRetorno + 'chNFe=' + vChave + '&nVersao=' + '100' + '&tpAmb=' + vAmbiente + vCPFCNPJ + '&dhEmi=' + vDataEmissao + '&vNF=' + vlnf + '&vICMS=' + vlicms + '&digVal=' + StringtoHex(QueryCupomDigVal.AsString) + '&cIdToken=' + vTokenURL + '&cHashQRCode=' + vHashqrcode; Result := vRetorno; end;

Então tenho que descompactar o arquivo PL_008a.zip na pasta Schemas?

Não tenho esta trunk aqui. Olhei na pasta ACBr\Exemplos\ACBrNFe\Schema. O engraçado é que lá agora tem umas pastas V200, V300, V310, com alguns arquivos compactados.

Bom dia senhores, estou com o mesmo problema fiz o que falaram agora que passei para a versão 3.10 fala que falta na pasta Schemas o arquivo nfe_v3.10.xsd. Aqui já atualizei o componente e não acho esse arquivo, onde pego ele?

Deu certo. Obrigado Italo

Bom dia galera. Estou usando o componente ACBrNFe para emitir o CF-e só que não consigo fazer separar por pasta de mês e ano esta configurado como segue abaixo: ACBrNFe1.Configuracoes.Arquivos.AdicionarLiteral := True; ACBrNFe1.Configuracoes.Arquivos.EmissaoPathNFe := True; ACBrNFe1.Configuracoes.Arquivos.PastaMensal := True; ACBrNFe1.Configuracoes.Arquivos.Salvar := True; ACBrNFe1.Configuracoes.Geral.PathSalvar := vEndereco; Já atualizei o componente e nada. Alguém tem alguma ideia do que falta?

É verdade Sergio, passei batido ali. Vou mexer aqui

Tô sim Sergio, aqui: '&cIdToken=' + Dtm.QueryEmpresaIdToken1.AsString + Dtm.QueryEmpresaCodToken1.AsString;

Ai Sergio o código esta ai acima

Boa tarde pessoal. Estou notando algo estranho na emissão da NFS-e. Vira e mexe vem me retornando a seguinte mensagem: Código Erro: E010 Mensagem: RPS ja informado. Numero do RPS em que ocorreu o erro: .... Correção: Para essa Inscricao Municipal/CNPJ ja existe um RPS informado com o mesmo numero, serie e tipo. Provedor: ISSNET. Com esta informação fui consultar no site da prefeitura e a nota consta lá. O AcbrNfse esta enviou a nota só que não sei porque não pegou o retorno. Alguém já passou por isto? Sabe como resolver?

function TFormOrcamento.Gera_hashqrcode(Emissao: TDateTime; TotalNota, TotalICMS: Real; Chave, CPFCNPJ, DigVal: String): String; var vTexto, vAmbiente, vdemi, vlnf, vlicms, vCPFCNPJ, vCidToken: String; begin Case ACBrNFe1.Configuracoes.WebServices.ambiente of taHomologacao: begin vAmbiente := '2'; vCidToken := '&cIdToken=' + '000001' + Copy(TiraCaracterDocumento(Trim(Dtm.QueryEmpresaCNPJF.AsString)), 1, 8) + IntToStr(YearOf(FormFuncao.ConexaoServidor(0))) + '0001'; end; taProducao: begin vAmbiente := '1'; vCidToken := '&cIdToken=' + Dtm.QueryEmpresaIdToken1.AsString + Dtm.QueryEmpresaCodToken1.AsString; end; end; vdemi := StringtoHex(Formata_DataUTC(Emissao)); vlnf := StringReplace(FormatFloat('###0.00', TotalNota), ',', '.', []); vlicms := StringReplace(FormatFloat('###0.00', TotalICMS), ',', '.', []); If TiraCaracterDocumento(Trim((CPFCNPJ))) <> '' then vCPFCNPJ := '&cDest=' + TiraCaracterDocumento(Trim((CPFCNPJ))) Else vCPFCNPJ := ''; vTexto := 'chNFe=' + Chave + '&nVersao=' + '100' + '&tpAmb=' + vAmbiente + vCPFCNPJ + '&dhEmi=' + vdemi + '&vNF=' + vlnf + '&vICMS=' + vlicms + '&digVal=' + StringtoHex(DigVal) + vCidToken; Result := ACBrEAD1.CalcularHash(vTexto, dgstSHA1); end; function TFormOrcamento.Gera_chaveconsultaNFCe: String; var vRetorno, vAmbiente, vChave, vDataEmissao, vlnf, vlicms, vHashqrcode, vCPFCNPJ: String; begin Case ACBrNFe1.Configuracoes.WebServices.ambiente of taHomologacao: begin vAmbiente := '2'; // Pega endereço de consulta publica da nfce vRetorno := 'http://homologacao.sefaz.mt.gov.br/nfce/consultanfce?';//'http://www.hom.nfe.sefaz.mt.gov.br/portal/consultarNFCe.jsp'; end; taProducao: begin vAmbiente := '1'; // Pega endereço de consulta publica da nfce vRetorno := 'http://www.sefaz.mt.gov.br/nfce/consultanfce?';//'http://www.sefaz.mt.gov.br/nfe/portal/consultanfce'; end; end; vChave := QueryCupomChave.AsString; vDataEmissao := StringtoHex(Formata_DataUTC(QueryCupomDataHora.AsDateTime)); vlnf := StringReplace(FormatFloat('###0.00', QueryCupomValorTotal.AsFloat), ',', '.', []); vlicms := StringReplace(FormatFloat('###0.00', QueryCupomValorICMS.AsFloat),',', '.', []); If TiraCaracterDocumento(Trim((QueryCupomCNPJ_RG.AsString))) <> '' then vCPFCNPJ := '&cDest=' + TiraCaracterDocumento(Trim((QueryCupomCNPJ_RG.AsString))) Else vCPFCNPJ := ''; vHashqrcode := Gera_hashqrcode(QueryCupomDataHora.AsDateTime, QueryCupomValorTotal.AsFloat, QueryCupomValorICMS.AsFloat, vChave, QueryCupomCNPJ_RG.AsString, QueryCupomDigVal.AsString); vRetorno := vRetorno + 'chNFe=' + vChave + '&nVersao=' + '100' + '&tpAmb=' + vAmbiente + vCPFCNPJ + '&dhEmi=' + vDataEmissao + '&vNF=' + vlnf + '&vICMS=' + vlicms + '&digVal=' + StringtoHex(QueryCupomDigVal.AsString) + '&cIdToken=' + Dtm.QueryEmpresaIdToken1.AsString + '&cHashQRCode=' + vHashqrcode; Result := vRetorno; end; ta ai

Bom dia pessoal. Estou com problema do erro 100 (qrcode inválido) na produção aqui em MT, alguém tem ideia do que pode ser? Pois em Homologação esta dando certo.

Scheila veja se as configurações aqui bate com as tuas With ACBrMail1 do begin Subject := 'Asunto'; Body.Text := 'Envio de mail de teste'; From := '[email protected]'; FromName := 'eu'; Host := 'smtp.live.com'; Username := '[email protected]'; Password := 'senha'; Port := '587'; SetSSL := False; SetTLS := True; AddAddress('[email protected]', 'destinatario'); Sleep(500); Send; end;

Ninguém aqui conseguiu enviar mail pelo hotmail também?

Alguém conseguiu resolver este problema do "SMTP Error: Unable to Login" para o hotmail? Não consigo resolver isto. Esta tudo conforme o pessoal diz, dll na pasta do executavel.

Obrigado.

Bom dia. Não tem como no cancelamento da nfs-e informar uma observação?

Muito obrigado pela ajuda de todos, mas desisti, pois não consigo fazer funcionar em outra máquina. Só funciona na minha máquina mesmo, vai ficar esse mistério. Vou voltar a gerar a nota pela a web. Obrigado.

não deu também

Sim

estou enviado assim: C:\Sistemas\Escola\NFSe\mastercentro.pfx

Me ajude pessoal, estou parado aqui

Me ajude pessoal, estou parado aqui

Agora dá esse erro ao tentar enviar a nota Erro: failed to load private pem key from "" Já procurei no forúm sobre este erro e vi que é a falta do certificado, só que estou pegando o certificado e senha como no código abaixo: {$IFDEF ACBrNFSeOpenSSL} ACBrNFSe.Configuracoes.Certificados.Certificado := DMBase.ADOQParametroCERTIFICADO_PAR.AsString; ACBrNFSe.Configuracoes.Certificados.Senha := DMBase.ADOQParametroCERTIFICADOSENHA_PAR.AsString; {$ENDIF}