Sérgio Assunção

Se possível anexe a rotina que você desenvolveu... talvez assim, seja mais fácil receber qualquer ajuda.

@biniva Realmente existe um problema com o SDK da Tanca e o suporte técnico alegou que é com a Sefaz. Já liguei umas 3 vezes e a orientação é para mantermos o aparelho conectado. O meu aqui esta com mais de 30 dias com o led laranja piscando. Talvez o @Cristiano Abbud tenha uma informação mais concreta.

Esse conteúdo fica em um memo no relatório. Teria como você anexar uma imagem do DANFE nessas condições. @hleorj talvez um ajuste na fonte resolva.

@lincoln Apaga o arquivo SATTeste.res da pasta e abra o projeto novamente.

Você está usando um aparelho de homologação. Se eu não me engano essa consulta pelo webservice só funciona para o modo produção.

Eu não tenho muita pratica com o ACBrPrinter, talvez o @Celso possa ajudar.

Exatamente.

Você está falando do cupom NFC-e, correto ?

Tentou fazer os testes usando o demo SATTeste.exe ? Lembre-se que o tipo usado para o GerSat é o satdinamico_cdecl

Não é isso amigo... Veja... unit UCARREGARDADOS; interface uses Windows, Messages, SysUtils, Classes ...

Verifique se você instalou o driver corretamente, e após isso faça uma consulta do status pelo software de ativação antes mesmo de tentar ativar.

No componente PosPrinter na Porta, coloque: tcp:IP_DA_IMPRESSORA:9100

Você está usando qual componente de impressão ?

Você ja consegue "pingar" o IP dela ? Se você usa o componente EscPos, basta você selecionar o modelo ppEscBematech e na porta tcp:IP_DA_IMPRESSORA

@w.suetake Tente cMP=03

Com isso eu consigo fazer uma consulta com até 4 palavras em um mesmo edit.

Eu faço dessa forma ... talvez ajude if Key=13 then begin ListBox.Items := Separar(eConsulta.Text,' '); qProdutos.Close; qProdutos.SQL.Text := 'select * from PRODUTOS where DESCRICAO like :vD1'; qProdutos.ParamByName('vD1').AsString := '%'+ListBox.Items.Strings[0]+'%'; if Listbox.Items.Count >= 2 then begin qProdutos.SQL.Add('and DESCRICAO like :vD2'); qProdutos.ParamByName('vD2').AsString := '%'+ListBox.Items.Strings[1]+'%'; end; if Listbox.Items.Count >= 3 then begin qProdutos.SQL.Add('and DESCRICAO like :vD3'); qProdutos.ParamByName('vD3').AsString := '%'+ListBox.Items.Strings[2]+'%'; end; if Listbox.Items.Count >= 4 then begin qProdutos.SQL.Add('and DESCRICAO like :vD4'); qProdutos.ParamByName('vD4').AsString := '%'+ListBox.Items.Strings[3]+'%'; end; qProdutos.SQL.Add('order by DESCRICAO'); qProdutos.Open; end; function Separar(Text: String; Break: Char): TStringList; var I: Integer; Pal: String; begin Result := TStringList.Create; if (Length(Text) = 0) or (Break = '') then Result.Add(Text) else for I := 1 to Length(Text) do if Text[I] = break then begin Result.Add(Pal); Pal := ''; end else Pal := Pal+Text[I]; if Pal <> '' then Result.Add(Pal); end;

Você vai ter que fazer uma consulta separando as strings pelo espaço (' ').

Veja o erro: ACBr_NFeDanfeFR.dpk(90) Fatal: E2202 Required package 'fs21' not found Compilation failure Erro ao compilar o pacote "ACBr_NFeDanfeFR.dpk". Você não tem o Fast Report instalado e marcou pacotes que usam. Instale o Fast ou desmarque os pacotes que contém o FR no que vai dar certo.

Faça a instalação usando o instalador, marque a opção para remover os arquivos antigos e a opção para copiar todas as dlls para pasta system. Se não der certo, anexe o log gerado pela instalador.

Você esta tentando instalar manualmente ? O seu Delphi é trial ?

Você tem que indicar o arquivo .ini referente ao provedor que você vai usar. (Veja a pasta ArqINI).

Desconto Total: 19,93 Desconto Total Fracionado: 19,92 Diferença: 0,01 Você tem que adicionar esse 0,01 no desconto de um dos itens. Aconselho que seja feito no item de maior valor.

Talvez o seu Delphi 7 não tenha sido registrado nas variáveis de ambiente do Windows.

Faça os testes usando o SATTeste (exemplo fornecido na pasta exemplos), e reporte aqui os resultados.