DataFlex To delphi...

Question

Alguem saberia converter este c�digo em dataflex para delphi...[code:1:3f1f6faf92]MOVE V_PREST TO VI_PRESTMOVE 0 TO I?_TOTALMOVE 0 TO I?_I MOVE 0 TO I?_RESTO//CALCULO DO DIGITOIF VI_UNIMED NE 0 BEGIN ...

Paulo · Answer

N�o manjo nada de dataflex como muita gente por aqui, o que torna a sua resposta mais dif�cil. Agora se voc� dizer o que voc� realmente quer, passando informa��es chaves, fica mais f�cil voc� ter a resposta.

Sremulador · Answer

trata-se de uma verifica��o de digito verificador......

Toninhonunes · Answer

[quote:ee8539c0a6=�sremulador�]Alguem saberia converter este c�digo em dataflex para delphi...[code:1:ee8539c0a6]MOVE V_PREST TO VI_PRESTMOVE 0 TO I?_TOTALMOVE 0 TO I?_I MOVE 0 TO I?_RESTO//CALCULO DO DIGITOIF VI_UNIMED NE 0 BEGIN   FOR I?_I FROM 2 TO 8       MOD 10 FROM VI_UNIMED TO I?_RESTO       MOVE (I?_TOTAL + (I?_I * I?_RESTO))  TO I?_TOTAL       MOVE (VI_UNIMED / 10) TO VI_UNIMED   LOOPENDFOR I?_I FROM 2 TO 9    MOD 10 FROM VI_PREST TO I?_RESTO    MOVE (I?_TOTAL + (I?_I * I?_RESTO))  TO I?_TOTAL    MOVE (VI_PREST / 10) TO VI_PRESTLOOP// ..........................................................................MOD 11 FROM (I?_TOTAL * 10)  TO I?_RESTORIGHT I?_RESTO TO S?_DIGITO 1[/code:1:ee8539c0a6][/quote:ee8539c0a6]...

Sremulador · Answer

???...

Toninhonunes · Answer

[quote:0378d64f0e=�toninhonunes�][quote:0378d64f0e=�sremulador�]Alguem saberia converter este c�digo em dataflex para delphi...[code:1:0378d64f0e]MOVE V_PREST TO VI_PRESTMOVE 0 TO I?_TOTALMOVE 0 TO I?_I MOVE 0 TO I?_RESTO//CALCULO DO DIGITOIF VI_UNIMED NE 0 BEGIN   FOR I?_I FROM 2 TO 8       MOD 10 FROM VI_UNIMED TO I?_RESTO       MOVE (I?_TOTAL + (I?_I * I?_RESTO))  TO I?_TOTAL       MOVE (VI_UNIMED / 10) TO VI_UNIMED   LOOPENDFOR I?_I FROM 2 TO 9    MOD 10 FROM VI_PREST TO I?_RESTO    MOVE (I?_TOTAL + (I?_I * I?_RESTO))  TO I?_TOTAL    MOVE (VI_PREST / 10) TO VI_PRESTLOOP// ..........................................................................MOD 11 FROM (I?_TOTAL * 10)  TO I?_RESTORIGHT I?_RESTO TO S?_DIGITO 1[/code:1:0378d64f0e][/quote:0378d64f0e][/quote:0378d64f0e]Esse sistema de f�rum da devm�dia � p�ssimo, depois de ter digitado, perdi os dados, infelismente n�o poderei responder mais, esse neg�cio de prote��o s� faz atrapalhar, paci�ncia....

Sremulador · Answer

[quote:66fcff2def=�toninhonunes�][quote:66fcff2def=�sremulador�]Alguem saberia converter este c�digo em dataflex para delphi...

MOVE V_PREST TO VI_PREST
MOVE 0 TO I?_TOTAL
MOVE 0 TO I?_I 
MOVE 0 TO I?_RESTO

//CALCULO DO DIGITO

IF VI_UNIMED NE 0 BEGIN
   FOR I?_I FROM 2 TO 8
       MOD 10 FROM VI_UNIMED TO I?_RESTO
       MOVE (I?_TOTAL + (I?_I * I?_RESTO))  TO I?_TOTAL
       MOVE (VI_UNIMED / 10) TO VI_UNIMED
   LOOP
END

FOR I?_I FROM 2 TO 9
    MOD 10 FROM VI_PREST TO I?_RESTO
    MOVE (I?_TOTAL + (I?_I * I?_RESTO))  TO I?_TOTAL
    MOVE (VI_PREST / 10) TO VI_PREST
LOOP
// ..........................................................................

MOD 11 FROM (I?_TOTAL * 10)  TO I?_RESTO
RIGHT I?_RESTO TO S?_DIGITO 1

[/quote:66fcff2def]

Esse sistema de f�rum da devm�dia � p�ssimo, depois de ter digitado, perdi os dados, infelismente n�o poderei responder mais, esse neg�cio de prote��o s� faz atrapalhar, paci�ncia.[/quote:66fcff2def]

ptz :cry: , fico no aguardo amigo, obrigado

Marcoslondrina · Answer

Faz muito tempo que n�o mexo com dataflex, mas o c�digo deve ser esse:

VI_PREST := V_PREST;
I?_TOTAL := 0;
I?_I := 0;
I?_RESTO := 0;

//CALCULO DO DIGITO

IF VI_UNIMED <> 0 THEN BEGIN
FOR I?_I := 2 TO 8 DO BEGIN
I?_RESTO := VI_UNIMED MOD 10;
I?_TOTAL := (I?_TOTAL + (I?_I * I?_RESTO));
VI_UNIMED := (VI_UNIMED / 10);
END;
END ;

FOR I?_I := 2 TO 9 DO BEGIN
I?_RESTO := VI_PREST MOD 10;
I?_TOTAL := (I?_TOTAL + (I?_I * I?_RESTO));
VI_PREST := (VI_PREST / 10);
END;
// ..........................................................................

I?_RESTO := (I?_TOTAL * 10) MOD 11;
S?_DIGITO := StrUtils(I?_RESTO, 1);

Obs: N�o testei o c�digo.

Marcos.

Martins · Answer

[quote:91619fb2ce=�sremulador�]trata-se de uma verifica��o de digito verificador...[/quote:91619fb2ce]Digito verificador de que?...

Sremulador · Answer

[quote:c6447d481f=�Martins�][quote:c6447d481f=�sremulador�]trata-se de uma verifica��o de digito verificador...[/quote:c6447d481f]Digito verificador de que?[/quote:c6447d481f]do crm, ptz  :cry:...

Sremulador · Answer

Acabei fazendo assim, mas n�o deu certo :(

Function FFcrm(V_PREST: String): String;
var
I_TOTAL, I_I, I_RESTO, VI_PREST: integer;

begin
VI_PREST := StrToInt(V_PREST);
I_TOTAL := 0;
I_I := 0;
I_RESTO := 0;

//CALCULO DO DIGITO

IF VI_UNIMED <> 0 THEN BEGIN
FOR I?_I := 2 TO 8 DO BEGIN
I?_RESTO := VI_UNIMED MOD 10;
I?_TOTAL := (I?_TOTAL + (I?_I * I?_RESTO));
VI_UNIMED := (VI_UNIMED / 10);
END;
END ;

FOR I_I := 2 TO 9 DO BEGIN
I_RESTO := VI_PREST MOD 10;
I_TOTAL := (I_TOTAL + (I_I * I_RESTO));
VI_PREST := (VI_PREST div 10);
END;
// ..........................................................................

I_RESTO := (I_TOTAL * 10) MOD 11;
Result := RightStr (Inttostr(I_RESTO), 1);
end;

era pra retornar 9 e acabou retornando 5

F�rum DataFlex To delphi... #347496