Jump to content

datilas

Membros
  • Content Count

    308
  • Joined

  • Last visited

Community Reputation

63 Excellent

1 Follower

About datilas

  • Rank
    Membro Ativo
  • Birthday 03/05/1985

Profile Information

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

Recent Profile Visitors

1,189 profile views
  1. 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
  2. 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);
  3. exemplo de uso: Procedure TForm1.bCDPClick(Sender: TObject); Var sResposta: String; Begin If ACBrTEFD1.CDP('F', sResposta) Then sDigitado := sResposta; End;
  4. 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
  5. 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;
  6. 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
  7. ja tentou assim? dmFiscal.cdsNFSeTXT.AsString := Memo3.Text;
  8. 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
  9. 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.
  10. pra quem usa trial a unica forma é instalar manualmente os pacotes que vc precisa
  11. 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
  12. o ACBrInStore faz o trabalho de ler o codigo de barras através de mascaras da uma olhada no demo "...\Exemplos\ACBrDiversos\ACBrInStore\"
  13. o RLDetailGrid só funciona se houver um DataSet ativo e com registros linkado a um DataSource e por sua vez linkado ao RLReport
  14. 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;
×
×
  • Create New...