datilas

tente usar: Memo1.Text := RESTResponse1.JSONText;

com acbr não consegui no android, mas consegui seguindo esse tutorial: http://portal.tdevrocks.com.br/2017/01/28/impressao-em-mini-impressora-bluetooth/

a unica coisa parecida com isso que conheço é o remoteapp do windows server

Resposta: 1- Exatamente isso o "1" seria o digito verificador ele pode ser fixo caso ele não seja valido o ACBrValidador vai gerar um digito valido pra vc 2- O ACBrInStore é um componente para ler e decodificar codigo de barras de balanças da uma olha da nos demos: Exemplos\ACBrDiversos\ACBrInStore

estou respondendo aqui uma pergunta do usuario @doidopb do link pois não sou usario sac não posso responder la. no caso do produto ID = 150 TOTAL = 10,50 a barra seria "201500001050" mas como só tem 12 caracteres vamos adicionar o "1" no final ficando assim "2015000010501" agora vai o codigo: Var sMinhaBarra: String; Begin sMinhaBarra := '2015000010501'; ACBrValidador1.TipoDocto := docGTIN; ACBrValidador1.ExibeDigitoCorreto := True; ACBrValidador1.Documento := sMinhaBarra; If Not ACBrValidador1.Validar Then sMinhaBarra := Copy(sMinhaBarra, 1, 12) + ACBrValidador1.DigitoCalculado; End; assim vc pode gerar seu próprio código de barras matematicamente valido e aceito para ser lido com "ACBrInStore1" que é ótimo para essa situação

https://developers.mercadolivre.com.br/pt_br/categorizacao-de-produtos https://developers-forum.mercadolibre.com/topic/1675-delphi-7-token-autenticação/ esses links podem te ajudar. eu fiz essa integração uma vez, tive muito trabalho por falta de material mas hoje em dia a documentação deles ta muito boa

tente isso pois a forma de autenticação é a mesma. eu consegui usando esse link (tambem uso woocommerce assim) : https://developers-forum.mercadolibre.com/topic/1675-delphi-7-token-autenticação/ vc ja fez o cadastro para poder utilizar a api do ifood. é necessário enviar um email com seus dados para ter acesso a api fora isso é só seguir o link acima

a paygo não devolve "NFCeSAT.CNPJCredenciadora" vc vai ter obter essa informação de outra forma. e aqui ".NFCeSAT.Autorizacao" altera para ".CodigoAutorizacaoTransacao" leia aqui: mas vc tambem pode usar o BIN do cartão para retornar a bandeira, existe alguns exemplos na internet

Procedure TForm1.Button1Click(Sender: TObject); Const sDataRecebida = '2019-04-20'; Begin Edit1.Text := Copy(sDataRecebida, 9, 2) + '.' + Copy(sDataRecebida, 6, 2) + '.' + Copy(sDataRecebida, 1, 4); End; resultado 20.04.2019 se quiser troque o "." por "/" para ficar 20/04/2019 depois use SeuDataSet.FieldByName('seucampo').AsDateTime := StrToDate(Edit1.Text);

exemplo de uso: Procedure TForm1.bCDPClick(Sender: TObject); Var sResposta: String; Begin If ACBrTEFD1.CDP('F', sResposta) Then sDigitado := sResposta; End;

acabei de incluir a captura de dados usando paygo. gostaria de saber se é possível incluir no acbr. caso não esteja no padrão acbr por favor me informar para que eu possa alterar, ou eu vou ter que fazer a alteração toda vez que eu atualizar o acbr no manual esta assim 006-000 Entidade Cliente a1 Forma de identificação do Cliente: F: CPF J: CNPJ X: Outro identificador, gerenciado pelo estabelecimento. testei apenas com a PayGo no momento não posso testar com outros GP. ACBrTEFD.zip

editado

Const sMeuValor = '2019-04-02T07:30:37'; Begin Edit1.Text := copy(sMeuValor, 1, Pos('T', sMeuValor) - 1); Edit2.Text := copy(sMeuValor, Pos('T', sMeuValor) + 1, length(sMeuValor)); End;

eu uso o DBCtrlGrid exatamente como vc esta usando, eu defino a propriedade RowCount = 7 e não tenho esse problema de mudar o tamanho, o que acontece é que quando passa de 7 linhas ele aparece o scroll fora isso finciona normal tenta colocar ele em cima de um panel e definir Align = alClient no DBCtrlGrid

ja tentou assim? dmFiscal.cdsNFSeTXT.AsString := Memo3.Text;

aqui alem da propriedade ModeloTEF eu guardo o nome do gp (PAYGO,SITEF,CAPPTA etc) dai pra frente varios if's assim eu consegui resolver: vBandeira: String; If PAYGO Then vBandeira := ACBrTEFD1.RespostasPendentes[ACBrTEFD1.RespostasPendentes.Count - 1].LeInformacao(748).AsString Else If CAPPTA Then vBandeira := ACBrTEFD1.RespostasPendentes[ACBrTEFD1.RespostasPendentes.Count - 1].LeInformacao(040).AsString; e depois quando vai gerar a nota If Pos('VISA', AnsiUpperCase(vBandeira)) > 0 Then Result := bcVisa Else If (Pos('MASTER', AnsiUpperCase(vBandeira)) > 0) Or Pos('MAESTRO', AnsiUpperCase(vBandeira)) > 0 Then Result := bcMasterCard

eu gostaria de propor para os administradores do fórum, para que quem não for usuário SAC não possa abrir um novo tópico na parte do SAC, mas possa responder, pois vejo algumas dividas no SAC que eu e outros usuários do fórum poderiam responder mas ficamos impedidos pois não podemos nem responder a um tópico. é só uma sugestão. se falei besteira desculpe-me.

pra quem usa trial a unica forma é instalar manualmente os pacotes que vc precisa

esse erro é com relação ao ssl use as dll's que estão na pasta : "...DLLs\OpenSSL\1.0.2.13' ou mais atual se houver

o ACBrInStore faz o trabalho de ler o codigo de barras através de mascaras da uma olhada no demo "...\Exemplos\ACBrDiversos\ACBrInStore\"

o RLDetailGrid só funciona se houver um DataSet ativo e com registros linkado a um DataSource e por sua vez linkado ao RLReport

Ja tentou assim? Var i: Integer; aValor:Real; Begin //pega a ultima operação aValor := ACBrTEFD1.RespostasPendentes[ACBrTEFD1.RespostasPendentes.Count - 1].Saque; For I := 0 To ACBrTEFD1.RespostasPendentes.Count - 1 Do Begin //varre todas as operação aValor := ACBrTEFD1.RespostasPendentes[i].Saque; End;

Debugando percebi que ACBRTef1.CancelarTransacoesPendentes; só faz o cancelamento se o estado da ecf for livre então No evento ACBrTEFD1ComandaECF tive que colocar case Operacao of opeCancelaCupom: EstadoSimulado := tpsLivre; End; assim resolveu meu problema de cancelar todos os cartões muito obrigado.

esta assim ACBRTef1.MutiplosCartoes := True; ACBRTef1.NumeroMaximodeCartoes := 0; fiz a verificação essas propriedades não mudam durante o processo como faço pra saber se as transações ainda estão pendentes? pois a unica transação que cancela em ACBRTef1.CancelarTransacoesPendentes é a ultima as outras não cancela

no caso de uma venda onde 3 pessoas dividem a conta cada um passa um cartão, se por algum motivo precisar cancelar toda a transação eu uso ACBRTef1.CancelarTransacoesPendentes mas esta cancelando apenas a operação do ultimo cartão passado as opções estão assim: ACBRTef1.AutoEfetuarPagamento := False; ACBRTef1.AutoFinalizarCupom := False; o que estou fazendo errado? qual seria o procedimento correto: