Ir para conteúdo
  • Cadastre-se

datilas

Membros
  • Total de ítens

    301
  • Registro em

  • Última visita

Reputação

56 Excelente

1 Seguidor

Sobre datilas

  • Rank
    Membro Ativo
  • Data de Nascimento 05-03-1985

Profile Information

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

Últimos Visitantes

1.132 visualizações
  1. ja tentou assim? dmFiscal.cdsNFSeTXT.AsString := Memo3.Text;
  2. 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
  3. 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.
  4. pra quem usa trial a unica forma é instalar manualmente os pacotes que vc precisa
  5. 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
  6. o ACBrInStore faz o trabalho de ler o codigo de barras através de mascaras da uma olhada no demo "...\Exemplos\ACBrDiversos\ACBrInStore\"
  7. o RLDetailGrid só funciona se houver um DataSet ativo e com registros linkado a um DataSource e por sua vez linkado ao RLReport
  8. 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;
  9. 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.
  10. 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
  11. 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:
  12. muito obrigado pela resposta clara e objetiva. resolveu minha duvida
  13. 1-qual a diferença entre as contingencias SCAN , SVCRS , DEPEC? 2- como devo configurar o acbr para emitir nfe nesses modelos? 3-quais as informações adicionais obrigatórias para emitir esses documentos? 4-quando devo utilizar cada uma delas?
  14. MostrarPreview = false; e impressora tem que estar preenchido ai não aparece essa tela
×
×
  • Criar Novo...