Sitef Pre Homologacao Seq. 20

[Hetosoft Sistemas]

- Código do supervisor deve estar
mascarado e validado

 

no form OnObetrCampo

 

procedure TForm5.Edit1KeyPress(Sender : TObject; var Key : char);
begin
   if Key in [#13,#8] then exit ;  { Enter e BackSpace, OK }

   if Operacao in [tcDouble, tcCMC7] then
      if not (Key in ['0'..'9', DecimalSeparator]) then    { Apenas números }
         Key := #0 ;

   if (TamanhoMaximo > 0) and (Length( Edit1.Text ) >= TamanhoMaximo) then
      Key := #0 ;
end;

 

tentei usar o status tcDouble, tcCMC7

para fazer mais ou menos assim

 

   if Operacao in [    TCADM     ] then
      Edit1.PasswordChar:=# else
      Edit1.PasswordChar:=#0;

 

mais qual seria o status quando chamado um ADM

 

Obrigado pela atencao?

 

 

 

[Daniel Simoes]

Você pode verificar pelo parâmetro: TipoCampo, se ele for  500 você pode abrir a sua própria janela de Senha
 

500 - Indica que o campo em questão é o código do supervisor. A automação, pode, se desejado, validar os dados coletados, deixando o fluxo da transação seguir normalmente caso seja um supervisor aceitável

[Hetosoft Sistemas]

Otimo,

O SiTEF Demo, nao valida a senha ne ?

 

onde eu vejo os tipo de campo, ex onde vc viu que tipocampo=500 é senha ? , obrigadoooo.

 

 

procedure TForm5TEFD.FormShow(Sender : TObject);
begin

   if TipoCampo=500 then
      Edit1.PasswordChar:='#' else
      Edit1.PasswordChar:=#0;

[Hetosoft Sistemas]

ex qual o tipocampo que representa digitar numero cartao 0000 0000 0000 0000 ?

[Hetosoft Sistemas]

Obrigado,esta no PDF

SiTef - Interface Simplificada com a aplicação(VRS-110).PDF

3.3.2 Tabela de valores para TipoCampo

 

 

 

   //Número do Cartão de Crédito Digitado
   if TipoCampo=512 then
   TamanhoMaximo := 16;

   //Digitar senha
   if TipoCampo=500 then
      Edit1.PasswordChar:='#' else
      Edit1.PasswordChar:=#0;

[Hetosoft Sistemas]

So a ultima duvida

 

O SiTEF Demo, nao valida a senha ne ?

[EMBarbosa]

hetoandrade,

Por favor, use a opção "Editar" logo abaixo dos seus posts ao invés de fazer vários posts em sequência. O que você fez, (postar vários posts em sequência com pouco tempo de um para o outro), é considerado inundar o tópico (ou fazer flood).

[Hetosoft Sistemas]

Desculpa, não sabia.,

eu pensava que era par aeditar o assunto, editar os testo do mesmo assunto,

blz, nao vai acontecer mais.

 

 

 

Pegunta

So a ultima duvida

 

O SiTEF Demo, nao valida a senha ne ?

Editado 5 Fevereiro, 2013 por hetoandrade

[Daniel Simoes]

Não valida, afinal, como ele acessaria o seu banco de dados ??

 

Ele apenas espera que vc responda se a digitação foi válida ou não, assim como qualquer outro campo...

[Hetosoft Sistemas]

onde fica a funcao que valida por exemplo que uma data e invida, para eu emplementar

meu codigo supervisor ?

[Daniel Simoes]

Por favor seja mais claro em seus questionamentos...

 

O que vc quer fazer ? ou,  O que vc não conseguiu fazer ?

 

Data Inválida você mesmo pode verificar não é mesmo ?? qual a dificuldade nisso ?

[Hetosoft Sistemas]

no form ObtemCampo

quando digitamos um venc ou datatrazacao

e for invalido ele avisa(mostra uma messagem) correto,

onde fica no fonte do acbr estas messagem de advertencia,

 

ex: quero fazer

if TipoCampo=500 then

   e edit1.text<>'03' then 

'senha invalida'

 

ex: vou colocar 03 como senha do supervisor.

[Daniel Simoes]

Você mesmo que exibe a mensagem.... dentro do evento:  ACBrTEFD.OnExibeMsg...

 

Ou seja, sempre que o ACBrTEFD quer mostrar algo ele chama esse evento...

[Hetosoft Sistemas]

quando eu digito no formulario ObtemCampo uma data invalida,

onde no codogo fonte fica a validacao ?

Editado 7 Fevereiro, 2013 por hetoandrade

[Daniel Simoes]

É o próprio SiTEF quem valida...