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