Willian Marques

André, nem acredito, era isso mesmo. E no SATTeste estava dando erro pois eu havia copiado o componente ACBrSat que estava em meu outro projeto substituindo o original, fazendo com que o método se desassociasse no componente. Foi muito burro de perceber que os metodos para pegar o codigo de ativacao e assinatura vinham de um evento do componente... Muito obrigado a todos que me responderam aqui, obrigado mesmo!

Copiei as funções procedure ACBrSAT1GetcodigoDeAtivacao(var Chave: AnsiString);begin Chave := '12345678';end; e a procedure onGetAssinatura, e coloquei em meu fonte. Não mexi na aba evento. Mas a questão é que mesmo no SATTeste esta dando erro, nao esta pegando o codigo de ativacao.

Sim Sérgio, isso eu consigo, o problema é só na hora da venda mesmo, na hora de enviar a venda.

Nem mesmo a assinatura da saindo nos XML's gerados. Parece que há alguma falha nas funções que pegam esses valores, pois não ta pegando os valores. AD20170525170209-869746-env.xml

Sergio nesse função ele não ta pegando nada, ta pegando em branco no result. function TACBrSAT.GetcodigoDeAtivacao: AnsiString; var AcodigoDeAtivacao: AnsiString; begin AcodigoDeAtivacao := ''; if Assigned(fsOnGetcodigoDeAtivacao) then fsOnGetcodigoDeAtivacao(AcodigoDeAtivacao); Result := AcodigoDeAtivacao; end; Suponha que é nesse função que ele pega o codigo de ativacao certo?

OK Wess, está rodando o SATTeste, mas o erro persiste: 'SAT bloqueado, codigo de ativacao incorreto';

Wess eu já fiz isso em ambas as procedures, vou tentar reinstalar aqui mas acho que esse não é o caso.

Olá Sergio, estou utilizando o XE10. O SATTeste não funciona aqui, pois as uses { ACBrSATMFe_integrador, pcnVFPe; } aparecem com o erro: Cannot Resolve Unit Name. Não sei como resolver.

Bom dia pessoal, estou tentando fazer uma venda aqui com o SAT TANCA SDK Development KIT e ja estou a três dias tentando resolver esse problema, por isso, peço muito a colaboração de vocês. Pelo o que eu entendi ele o ACBrSAT pega o codigo de ativação através da procedure TForm1.ACBrSAT1GetcodigoDeAtivacao, eu a coloque no meu form dessa forma: Declaração: procedure ACBrSAT1GetcodigoDeAtivacao(var Chave: AnsiString); Implementação: procedure TfrmVenda.ACBrSAT1GetcodigoDeAtivacao(var Chave: AnsiString); begin Chave := '12345678'; end; Porém quando debugo na função abaixo do componente, a variavel AcondigoDeAtivação não retorna nenhum valor para a função. //FUNÇÃO DO SAT function TACBrSAT.GetcodigoDeAtivacao: AnsiString; var AcodigoDeAtivacao: AnsiString; begin AcodigoDeAtivacao := ''; if Assigned(fsOnGetcodigoDeAtivacao) then fsOnGetcodigoDeAtivacao(AcodigoDeAtivacao); Result := AcodigoDeAtivacao; end; Gostaria de saber se estou implementando da forma certa, porque não consegui de forma alguma eliminar esse erro. No software da Tanca, ele está ativado normal, ja fiz o teste.

Resolvidooo!!!! Obrigado.

Galera, estou iniciando com o SAT que no meu sistema, mas estou me deparando com o seguinte erro que não consigo solucionar: 'dadosVenda' não foi informado. Estou trabalhando com o SAT da Tanca para desenvolvedores, ele ja esta ativado, está operacional, tudo certinho. Estou usando essa rotina: frmVenda.ACBrSAT1.CFe.IdentarXML := true; frmVenda.ACBrSAT1.CFe.TamanhoIdentacao := 3; // Trasnferindo Informações de Config para o CFe // frmVenda.ACBrSAT1.InicializaCFe; // Montando uma Venda // with frmVenda.ACBrSAT1.CFe do begin ide.numeroCaixa := 1; Dest.CNPJCPF := frmVenda.qPessoacpfcnpj.Value; Dest.xNome := frmVenda.qPessoanome.Value; Entrega.xLgr := frmVenda.qPessoaendereco.Value; Entrega.nro := frmVenda.qPessoanumero.AsString; Entrega.xCpl := ''; Entrega.xBairro := frmVenda.qPessoabairro.Value; Entrega.xMun := frmVenda.qPessoanomecidade.Value; Entrega.UF := frmVenda.qPessoauf.Value; TotalImpostoAprox := 0; while not frmVenda.qProdutoVenda.Eof do begin frmVenda.qProduto.Locate('codigoproduto', frmVenda.qProdutoVendacodigoproduto.AsString, []); with Det.Add do begin nItem := numeroItem; // Prod.cProd := 'ACBR001'; // Prod.cEAN := '6291041500213'; Prod.xProd := frmVenda.qProdutoVendadescricaovenda.Value; Prod.NCM := frmVenda.qProdutocodigoncm.Value; frmVenda.fabricado := frmVenda.qProdutofabricado.Value; DefineBuscaCFOP(frmVenda.fabricado); Prod.cfop := frmVenda.cfop; Prod.uCom := frmVenda.qProdutounidade.Value; Prod.qCom := frmVenda.qProdutoVendaquantidade.Value; Prod.vUnCom := frmVenda.qProdutoVendavalorunitario.Value; Prod.indRegra := irTruncamento; Prod.vDesc := frmVenda.qProdutoVendavalordescontounitario.Value; with Prod.obsFiscoDet.Add do begin xCampoDet := 'campo'; xTextoDet := 'texto'; end; TotalItem := RoundABNT((Prod.qCom * Prod.vUnCom) + Prod.vOutro - Prod.vDesc, -2); TotalGeral := TotalGeral + TotalItem; Imposto.vItem12741 := TotalItem * 0.12; Imposto.ICMS.orig := oeNacional; if (frmVenda.qProdutosubstituicaotributaria.Value = 1) then begin Imposto.ICMS.CSOSN := csosn500; end else begin Imposto.ICMS.CSOSN := csosn102; end; Imposto.ICMS.pICMS := 18; Imposto.PIS.CST := pis01; Imposto.PIS.vBC := TotalItem; Imposto.PIS.pPIS := 0.0065; Imposto.COFINS.CST := cof01; Imposto.COFINS.vBC := TotalItem; Imposto.COFINS.pCOFINS := 0.0065; // // Imposto.COFINSST.vBC := 87206.46; // Imposto.COFINSST.pCOFINS := 1.8457; infAdProd := 'Informacoes adicionais'; end; numeroItem := numeroItem + 1; frmVenda.qProdutoVenda.Next; end; Total.DescAcrEntr.vDescSubtot := 0; Total.vCFeLei12741 := TotalGeral; Pagto1 := RoundABNT(TotalGeral / 2, -2); with Pagto.Add do begin cMP := mpCartaodeCredito; vMP := Pagto1; end; with Pagto.Add do begin cMP := mpDinheiro; vMP := TotalGeral - Pagto1 + 100; end; InfAdic.infCpl := 'Acesse www.projetoacbr.com.br para obter mais;informações sobre o componente ACBrSAT;' + 'Precisa de um PAF-ECF homologado?;Conheça o DJPDV - www.djpdv.com.br'; end; ACBrSAT1.CFe.GerarXML(true); // True = Gera apenas as TAGs da aplicação ACBrSAT1.EnviarDadosVenda(memoResposta.Text); PrepararImpressao; ACBrSAT1.ImprimirExtratoResumido; { ACBrSAT1.ImprimirExtrato; ACBrSAT1.ImprimirExtratoResumido; } memoResposta.Lines.Add('Venda Gerada'); As configurações coloquei direto no componente, não sei se estou deixando de fazer algo, então por favor, se puderem me ajudar, sou novo com ACBR.

Obrigado André vou estuda-lo!

Aqui está do jeito que minha logo está saindo atualmente, coloquei essa logo do google só pra teste. Alguém pode me ajudar?

Olá Juliomar, vou anexar um PDF com uma NFE de exemplo onde ela tem o logo em cima da razão e endereço do emitente. Encontrei essa aqui na internet, só pra voce entender, o logo eu queria acima do ajeito que está aqui, em cima da razão social e do endereço. Desculpa pela demora de te responder. .

Boa tarde galera! Preciso muito de um help, agraço a atenção de todos desde já! Não estou conseguindo deixar a logomarca em cima, na identificação, somente na posição em que se encontra no PDF que anexei. Segue o código: ACBrNFeDANFeRL1.Logo := *** CAMINHO DA LOGO ***; ACBrNFeDANFeRL1.LogoemCima := true; ACBrNFeDANFeRL1.Logo := *** CAMINHO DA LOGO ***; ACBrNFeDANFeRL1.LogoemCima := true Já tentei diversas formas, e no momento é o código acima que estou usando, mas não está alterando em nada. pdf.pdf

Mais uma vez muito obrigado JNPace, era isso mesmo, já consegui emitir! Tudo certo, tópico encerrado.

Obrigado pela resposta JNPace! Pelo o que eu entendi então, pra fazer devolução referenciando uma NF-e comum, basta somente informar a chave certo? Estou seguindo fielmente o exemplo de NFe do ACBr. Pela minha lógica postada acima estou fazendo da seguinte forma: if (devolucao = true) then begin with NotaF.nfe.Ide.NFref.Add do begin refNFe := qVendachavenfe.Value; // NFe Eletronica end; end; Agora está dando um erro de CFOP, vou resolver aqui essa questão e já dou um retorno pra informar se deu certo ou não a emissão dessa NFe de devolucão. Muito obrigado.

Boa noite galera, preciso muito de uma ajuda com nfe referenciada, já para começar bem o ano... Já eliminei todos os erros relacionado aos campos de referência, estou fazendo da seguinte forma: if (devolucao = true) then begin Referenciada := NotaF.nfe.Ide.NFref.Add; Referenciada.refNFe := qVendachavenfe.Value; // NFe Eletronica Referenciada.RefNF.cUF := 35; // | Referenciada.RefNF.AAMM := FormatDateTime('yymm', qVendadatavenda.AsDateTime); Referenciada.RefNF.CNPJ := frmMenu.qEmpresacnpj.Value; // | Referenciada.RefNF.Modelo := 01; // |- NFe Modelo 1/1A Referenciada.RefNF.Serie := 001; // | Referenciada.RefNF.nNF := qVendanumeronfe.Value; end; ERRO APRESENTADO: Falha na validação dos dados da nota: 393 Element '{http://www.portalfiscal.inf.br/nfe}refNF' is unexpected according to content model of parent element '{http://www.portalfiscal.inf.br/nfe}NFref'. Não entendo o que possa estar ocorrendo, pois a finalidade está certa: NotaF.nfe.Ide.finNFe := fnDevolucao;

Ok, já estou salvando, obrigado BigWings

Bom dia galera, estou com uma dúvida, estou começando agora com o desenvolvimento de NFe e gostaria de saber se o camp cNF é obrigatório em ambiente de producao, pois em ambiente de homologação sei que não preciso informar, pois é gerado um número da NFe "aleatório".

Boa tarde pessoal, gostaria de uma pequena ajuda. Estou com problema em minha unit, onde tento declarar as mesma variáveis do projeto/exemplo no ACBr NFe com trunk 2 para gerar uma NFe. Fiz um teste criando uma outra unit com os mesmos componentes e codigo do projeto/exemplo do ACBr e ele compila normal, porém quando tento usar tais variáveis em minha unit da erro. Segue abaixo: var NotaF: NotaFiscal; Produto: TDetCollectionItem; Servico: TDetCollectionItem; Volume: TVolCollectionItem; Duplicata: TDupCollectionItem; ObsComplementar: TobsContCollectionItem; obsFisco: TobsFiscoCollectionItem; Referenciada: TNFrefCollectionItem; DI: TDICollectionItem; Adicao: TAdiCollectionItem; Medicamento: TMedCollectionItem; arma: TArmaCollectionItem; Reboque: TreboqueCollectionItem; Lacre: TLacresCollectionItem; ProcReferenciado: TprocRefCollectionItem; Em minhas uses tenho as mesmas declarados no projeto/exemplo do ACBr NFe. Problema já resolvido, obrigado a todos que tiveram a intenção de ajudar!