Delphi - Funcão Digito Verificador - Codigo do Cliente

[valdemirsc 0]

PREZADOS AMIGOS, BOA TARDE!

TENHO UMA FUNÇÃO DIGITO VERIFICADOR NO CODIGO DO CLIENTE QUE NAO ESTOU SABENDO CHAMAR NO EDIT PARA FUNCIONAR LOGO ABAIXO TENHO A FUNÇÃO MAS PRECISO SABER COMO FAÇO PARA QUE O EDIT RECEBA O VALOR DO CODIGO DO CLIENTE AUTOMATICAMENTE E FAÇA O CALCULO.

 

var

Form1: TForm1;

 

implementation

 

{$R *.dfm}

function DV11 (Matr : string):string;

{Cálculo pelo módulo 11 }

var

X, Cont, Soma, DV, NMatr : Integer;

begin

Cont := 5; Soma := 0;

For X:= 1 to 5 do

begin

NMatr:= StrToInt(Copy(Matr,Cont-4,1));

Soma := Soma + (NMatr * Cont);

Inc(Cont);

end;

DV := Soma mod 11;

If DV > 9 then DV := 11 - DV;

Result := IntToStr(DV);

end;

 

ME DESCULPE ALGUMA COISA NAO TENHO MUITA EXPERIENCIA E JA PROCUREI EM VARIOS LUGARES E NAO ENTENDI.

SE ALGUEM TER COMO ME AJUDAR AGRADECO. MEU E-MAIL valdemirsc@uol.com.br

[João Paulo Taraciuk 0]

Coloca dois Edits e um button no seu form, e no OnClick do Button chama a função assim:

 

Edit2.Text := Edit1.Text + DV11(Trim(Edit1.Text));

 

Da forma que está a função, deve ser colocado somente números e tem que ter 5 caracteres.

[valdemirsc 0]

beleza testei deu certo, so estou tentando verificar como coloco um traço - para separar o codigo verificardo tipo vem o numero do cliente automatico do BD interbase quando o dbeedit recebe ai gera conta e fica por exemplo 00114-7 ai o proximo codigo a ser cadastrado seria o 115 + dv = 00115-5 nao esta vindo com traço.

desde ja agradeço