leufmt

Boa tarde pessoal. Ultimamente ando tendo o seguinte problema, ao enviar o Cupom fiscal, não sei o que acontece que ele vai para a sefaz mas retorna com erro, ai quando tento enviar outro cupom ele dá a mensagem que já existe o cupom com o mesmo número, vou no site consultar e vejo que aquele primeiro que deu erro foi validado. Como faço para consultar pelo Número do Documento Fiscal e pegar os dados do protocolo, chave de autorização e etc pelo componente?

Boa tarde pessoal. Como faço para enviar várias notas fiscais de serviços de uma vez?

Isto ai vi. No código não vi/entendi como vou puxar os dados da nota para a tabela do meu sistema.

olhei no exemplo e não vi.

se tu puder me passar o link de como faz isso com o ACBrNFe, eu agradeço.

Pois é Italo, li lá e pelo que vi aquilo lá é um manual para quem vai desenvolver a comunicação do webservice, mas eu não tenho conhecimento para desenvolvimento de webservice. É por isso que estou atras de um componente que faz isto ou de alguém que tenha o código fonte deste procedimento, até pago pela solução.

Verdade, postei no lugar errado. Quero fazer a importação dos dados da nota de nfe de compra, pois os meus clientes digitam tudo no sistema com a nota em mãos, e já vi sistema que o usuário entra com a chave e já importa tudo para o sistema. E agora como faço com este post em lugar errado?

Bom dia pessoal. Estou precisando de um componente para fazer a importação da nfe do webservice da sefaz direto para o meu sistema. Alguém conhece algum ou alguma solução semelhante?

Não sabia. Obrigado

Boa tarde pessoal. Como faço para realizar o cancelamento do cupom fiscal eletrônico, pois não achei o exemplo.

Obrigado. Deu certo.

Bom dia pessoal. Fui atualizar os componentes hoje usando o ACBrInstall e esta dando erro. Abaixo esta o log. Se alguém puder me ajudar eu agradeço de coração. Caminho: C:\Visage\Componentes\ACBr Versão do delphi: Delphi 2006 (0) Plataforma: Win32(0) ================================================================================ Setando parâmetros de plataforma... Setando parâmetros de plataforma... Criando diretórios de bibliotecas... Adicionando libray paths... C:\Visage\Componentes\ACBr\Fontes\ACBrSerial\ACBrBALClass.pas(170) Error: E2003 Undeclared identifier: 'WriteLog' C:\Visage\Componentes\ACBr\Fontes\ACBrSerial\ACBrBAL.pas(50) Fatal: F2063 Could not compile used unit '..\..\..\Fontes\ACBrSerial\ACBrBALClass.pas' Compilation failure C:\Visage\Componentes\ACBr\Fontes\ACBrNFe2\ACBrNFeWebServices.pas(1177) Error: E2003 Undeclared identifier: 'teEPECNFe' C:\Visage\Componentes\ACBr\Fontes\ACBrNFe2\ACBrNFeWebServices.pas(1179) Error: E2003 Undeclared identifier: 'cOrgaoAutor' C:\Visage\Componentes\ACBr\Fontes\ACBrNFe2\ACBrNFeWebServices.pas(1179) Error: E2003 Undeclared identifier: 'cOrgaoAutor' C:\Visage\Componentes\ACBr\Fontes\ACBrNFe2\ACBrNFeWebServices.pas(1180) Error: E2003 Undeclared identifier: 'tpAutor' C:\Visage\Componentes\ACBr\Fontes\ACBrNFe2\ACBrNFeWebServices.pas(1180) Error: E2003 Undeclared identifier: 'tpAutor' C:\Visage\Componentes\ACBr\Fontes\ACBrNFe2\ACBrNFeWebServices.pas(1181) Error: E2003 Undeclared identifier: 'verAplic' C:\Visage\Componentes\ACBr\Fontes\ACBrNFe2\ACBrNFeWebServices.pas(1181) Error: E2003 Undeclared identifier: 'verAplic' C:\Visage\Componentes\ACBr\Fontes\ACBrNFe2\ACBrNFeWebServices.pas(1182) Error: E2003 Undeclared identifier: 'dhEmi' C:\Visage\Componentes\ACBr\Fontes\ACBrNFe2\ACBrNFeWebServices.pas(1182) Error: E2003 Undeclared identifier: 'dhEmi' C:\Visage\Componentes\ACBr\Fontes\ACBrNFe2\ACBrNFeWebServices.pas(1183) Error: E2003 Undeclared identifier: 'tpNF' C:\Visage\Componentes\ACBr\Fontes\ACBrNFe2\ACBrNFeWebServices.pas(1183) Error: E2003 Undeclared identifier: 'tpNF' C:\Visage\Componentes\ACBr\Fontes\ACBrNFe2\ACBrNFeWebServices.pas(1184) Error: E2003 Undeclared identifier: 'IE' C:\Visage\Componentes\ACBr\Fontes\ACBrNFe2\ACBrNFeWebServices.pas(1184) Error: E2003 Undeclared identifier: 'IE' C:\Visage\Componentes\ACBr\Fontes\ACBrNFe2\ACBrNFeWebServices.pas(1186) Error: E2003 Undeclared identifier: 'dest' C:\Visage\Componentes\ACBr\Fontes\ACBrNFe2\ACBrNFeWebServices.pas(1186) Error: E2003 Undeclared identifier: 'dest' C:\Visage\Componentes\ACBr\Fontes\ACBrNFe2\ACBrNFeWebServices.pas(1187) Error: E2003 Undeclared identifier: 'dest' C:\Visage\Componentes\ACBr\Fontes\ACBrNFe2\ACBrNFeWebServices.pas(1187) Error: E2003 Undeclared identifier: 'dest' C:\Visage\Componentes\ACBr\Fontes\ACBrNFe2\ACBrNFeWebServices.pas(1188) Error: E2003 Undeclared identifier: 'dest' C:\Visage\Componentes\ACBr\Fontes\ACBrNFe2\ACBrNFeWebServices.pas(1188) Error: E2003 Undeclared identifier: 'dest' C:\Visage\Componentes\ACBr\Fontes\ACBrNFe2\ACBrNFeWebServices.pas(1189) Error: E2003 Undeclared identifier: 'dest' C:\Visage\Componentes\ACBr\Fontes\ACBrNFe2\ACBrNFeWebServices.pas(1189) Error: E2003 Undeclared identifier: 'dest' C:\Visage\Componentes\ACBr\Fontes\ACBrNFe2\ACBrNFeWebServices.pas(1191) Error: E2003 Undeclared identifier: 'vNF' C:\Visage\Componentes\ACBr\Fontes\ACBrNFe2\ACBrNFeWebServices.pas(1191) Error: E2003 Undeclared identifier: 'vNF' C:\Visage\Componentes\ACBr\Fontes\ACBrNFe2\ACBrNFeWebServices.pas(1192) Error: E2003 Undeclared identifier: 'vICMS' C:\Visage\Componentes\ACBr\Fontes\ACBrNFe2\ACBrNFeWebServices.pas(1192) Error: E2003 Undeclared identifier: 'vICMS' C:\Visage\Componentes\ACBr\Fontes\ACBrNFe2\ACBrNFeWebServices.pas(1193) Error: E2003 Undeclared identifier: 'vST' C:\Visage\Componentes\ACBr\Fontes\ACBrNFe2\ACBrNFeWebServices.pas(1193) Error: E2003 Undeclared identifier: 'vST' C:\Visage\Componentes\ACBr\Fontes\ACBrNFe2\ACBrNFeWebServices.pas(2913) Error: E2003 Undeclared identifier: 'XML' C:\Visage\Componentes\ACBr\Fontes\ACBrNFe2\ACBrNFeWebServices.pas(2913) Error: E2003 Undeclared identifier: 'XML' C:\Visage\Componentes\ACBr\Fontes\ACBrNFe2\ACBrNFe.pas(59) Fatal: F2063 Could not compile used unit '..\..\..\Fontes\ACBrNFe2\ACBrNFeWebServices.pas' Compilation failure C:\Visage\Componentes\ACBr\Fontes\ACBrNFSe\pnfsNFSeR.pas(926) Error: E2003 Undeclared identifier: 'tcDatVcto' C:\Visage\Componentes\ACBr\Fontes\ACBrNFSe\ACBrNFSeNotasFiscais.pas(16) Fatal: F2063 Could not compile used unit '..\..\..\Fontes\ACBrNFSe\pnfsNFSeR.pas' Compilation failure

Estou com o mesmo problema aqui em MT com o provedor ISSNET

Como faço para utilizar o GAVTeste para uma gaveta bematech ligada em uma impressora MP-4200 TH via USB

Boa tarde senhores. esta rotina abaixo esta certa para abrir a gaveta (usando uma ECF ou Não Fiscal)? Try If ACBrGAV1.Ativo then ACBrGAV1.Desativar; ACBrGAV1.Modelo := TACBrGAVModelo(Dtm.QueryGuicheModeloGaveta.AsInteger); If ACBrGAV1.Modelo = gavImpressoraECF then ACBrGAV1.ECF := ACBrECF1; If ACBrGAV1.Modelo <> gavImpressoraECF then ACBrGAV1.Porta := Dtm.QueryGuichePortaGaveta.AsString; ACBrGAV1.Ativar; Except on E: Exception do ShowMessage('Falha ao ativar a gaveta !' + #13 + 'Erro: ' + E.Message); end; Try ACBrGAV1.AbreGaveta; Except on E: Exception do ShowMessage('Falha ao abrir a gaveta !' + #13 + 'Erro: ' + E.Message); end;

Muito obrigado Italo. O que tu falou faz sentido sim. É que o pessoal aqui da empresa falou disso e eu achei estranho.

Bom dia. Um dúvida. No envio da cte não tenho que enviar o xml dos produtos juntos? Se tem como faço?

Não teria como instalar o componente sem ter esta versão? Pois tenho a 4.06

Boa tarde pessoal. Qual é a versão do QuickReport, FastReport e do FortesReport que estão utilizando para o componente de impressão da CTe?

Esta função já faz isto. Tu pode dar uma olhada nela ai se tu estiver com o teu componente do ACBr atualizado.

Me desculpe Jose Roberto eu que mandei errado. Mas se tu jogar esse que esta certo ainda sim vai dar o Erro 100 - QR Code Inválido. Estou enviando esses valores para a função NotaUtil.GetURLQRCode: AUF 51 AAmbiente taHomologacao AchNFe '51140516797878000130650010000000971000000972' AcDest '03694273190' AdhEmi 41778,358009 AvNF 5,5 AvICMS 0 AdigVal 'ieMby5l2mwyu23dp5KQbCng84B4=' AidToken '000001' AToken '7D1F47CA025246D9EA86A1D3824793F9' Estou me descabelando com isso.

segue ai http://homologacao.sefaz.mt.gov.br/nfce/consultanfce?chNFe=51140516797878000130650010000001071000001071&nVersao=100&tpAmb=2&cDest=04945839166&dhEmi=323031342d30352d32325431303a34333a31382d30343a3030&vNF=1.50&vICMS=0.00&digVal=4b36364848337664753147513565343644657245512f6e38556f773d&cIdToken=000001&cHashQRCode=http://homologacao.sefaz.mt.gov.br/nfce/consultanfce?chNFe=51140516797878000130650010000001071000001071&nVersao=100&tpAmb=2&cDest=04945839166&dhEmi=323031342D30352D32325431303A34333A31382D30343A3030&vNF=1.50&vICMS=0.00&digVal=4B36364848337664753147513565343644657245512F6E38556F773D&cIdToken=000001&cHashQRCode=37C461BF5282250B471B73313FE1CE6208765967

Jose Roberto. Dentro da função NotaUtil.GetURLQRCode e feito essa mudança de vírgula por ponto

Ninguém pode me ajudar com meu problema? Esta na página anterior.

André agora mudei o meu código para assim: 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 := NotaUtil.GetURLQRCode(NotaUtil.UFtoCUF(Trim(Dtm.QueryEmpresaEstado.AsString)), ACBrNFe1.Configuracoes.WebServices.Ambiente, vChave, TiraCaracterDocumento(Trim(QueryCupomCNPJ_RG.AsString)), QueryCupomDataHora.AsDateTime, QueryCupomValorTotal.AsFloat, QueryCupomValorICMS.AsFloat, QueryCupomDigVal.AsString, Dtm.QueryEmpresaIdToken1.AsString, Dtm.QueryEmpresaCodToken1.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; Estou enviando esses valores para a função NotaUtil.GetURLQRCode: AUF 51 AAmbiente taHomologacao AchNFe '51140516797878000130650010000000971000000972' AcDest '03694273190' AdhEmi 41778,358009 AvNF 5,5 AvICMS 0 AdigVal 'ieMby5l2mwyu23dp5KQbCng84B4=' AidToken '000001' AToken '7D1F47CA025246D9EA86A1D3824793F9' e ainda sim continua o Erro 100 - QR Code Inválido. Estou sem saber o que fazer.