Jump to content

datilas

Membros
  • Content Count

    313
  • Joined

  • Last visited

  • Days Won

    1

datilas last won the day on June 29

datilas had the most liked content!

Community Reputation

68 Excellent

1 Follower

About datilas

  • Rank
    Membro Ativo
  • Birthday 03/05/1985

Profile Information

  • Sexo
    Masculino
  • Localização
    Cuiabá - MT

Recent Profile Visitors

1,235 profile views
  1. a unica coisa parecida com isso que conheço é o remoteapp do windows server
  2. 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
  3. 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
  4. 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
  5. 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
  6. 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
  7. datilas

    data

    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);
  8. exemplo de uso: Procedure TForm1.bCDPClick(Sender: TObject); Var sResposta: String; Begin If ACBrTEFD1.CDP('F', sResposta) Then sDigitado := sResposta; End;
  9. 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
  10. 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;
  11. 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
  12. ja tentou assim? dmFiscal.cdsNFSeTXT.AsString := Memo3.Text;
  13. 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
  14. 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.
×
×
  • Create New...