Curinga Postado Março 21, 2005 Denunciar Share Postado Março 21, 2005 Pessoal, Gostaria de perguntar se algm sabe como validar INSCRIÇÃO ESTADUAL no DELPHI, já procurei, mas, não consigo encontra nada sobre o assunto, e as coisas que encontram ou são incompletas ou são de outras linguagens.Então fico agradecido e a espera de respota.Pessoal, mais uma vez valeu pela atenção... Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 s3c Postado Março 21, 2005 Denunciar Share Postado Março 21, 2005 Olá, visite: http://www.sintegra.gov.brClique em Serviços/Download.Baixe o arq DLL3.zip Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 CKorneLL Postado Março 21, 2005 Denunciar Share Postado Março 21, 2005 Você já entrou no site www.delphi.eti.br???Uma vez eu retirei de lá...CKorneLL!!! Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Tbaiano Postado Março 21, 2005 Denunciar Share Postado Março 21, 2005 Crie uma Unit e copie esse Código para ela:Salve e é só adicionar a seu form essa Unit e chamar a função assim:if Inscricao(Numeros, Estado) = True then ShowMessage('Número é Valido')Else ShowMessage('Número não é Valido');Não fui eu quem desenvolveu mas funciona com todos os estados...Qualquer coisa.Tbaiano. Unit Inscricoes; Interface uses Sysutils; Function Inscricao ( Inscricao, Tipo : String ) : Boolean; Function Mascara_Inscricao( Inscricao, Estado : String ) : String; Implementation { Inscrições __________________________________ } Function Inscricao( Inscricao, Tipo : String ) : Boolean; Var Contador : ShortInt; Casos : ShortInt; Digitos : ShortInt; Tabela_1 : String; Tabela_2 : String; Tabela_3 : String; Base_1 : String; Base_2 : String; Base_3 : String; Valor_1 : ShortInt; Soma_1 : Integer; Soma_2 : Integer; Erro_1 : ShortInt; Erro_2 : ShortInt; Erro_3 : ShortInt; Posicao_1 : string; Posicao_2 : String; Tabela : String; Rotina : String; Modulo : ShortInt; Peso : String; Digito : ShortInt; Resultado : String; Retorno : Boolean; Begin Try Tabela_1 := ' '; Tabela_2 := ' '; Tabela_3 := ' '; { } { } { Valores possiveis para os digitos (j) } { } { 0 a 9 = Somente o digito indicado. } { N = Numeros 0 1 2 3 4 5 6 7 8 ou 9 } { A = Numeros 1 2 3 4 5 6 7 8 ou 9 } { B = Numeros 0 3 5 7 ou 8 } { C = Numeros 4 ou 7 } { D = Numeros 3 ou 4 } { E = Numeros 0 ou 8 } { F = Numeros 0 1 ou 5 } { G = Numeros 1 7 8 ou 9 } { H = Numeros 0 1 2 ou 3 } { I = Numeros 0 1 2 3 ou 4 } { J = Numeros 0 ou 9 } { K = Numeros 1 2 3 ou 9 } { } { -------------------------------------------------------- } { } { Valores possiveis para as rotinas (d) e (g) } { } { A a E = Somente a Letra indicada. } { 0 = B e D } { 1 = C e E } { 2 = A e E } { } { -------------------------------------------------------- } { } { C T F R M P R M P } { A A A O O E O O E } { S M T T D S T D S } { } { a b c d e f g h i jjjjjjjjjjjjjj } { 0000000001111111111222222222233333333 } { 1234567890123456789012345678901234567 } IF Tipo = 'AC' Then Tabela_1 := '1.09.0.E.11.01. . . . 01NNNNNNX.14.00'; IF Tipo = 'AC' Then Tabela_2 := '2.13.0.E.11.02.E.11.01. 01NNNNNNNNNXY.13.14'; IF Tipo = 'AL' Then Tabela_1 := '1.09.0.0.11.01. . . . 24BNNNNNX.14.00'; IF Tipo = 'AP' Then Tabela_1 := '1.09.0.1.11.01. . . . 03NNNNNNX.14.00'; IF Tipo = 'AP' Then Tabela_2 := '2.09.1.1.11.01. . . . 03NNNNNNX.14.00'; IF Tipo = 'AP' Then Tabela_3 := '3.09.0.E.11.01. . . . 03NNNNNNX.14.00'; IF Tipo = 'AM' Then Tabela_1 := '1.09.0.E.11.01. . . . 0CNNNNNNX.14.00'; IF Tipo = 'BA' Then Tabela_1 := '1.08.0.E.10.02.E.10.03. NNNNNNYX.14.13'; IF Tipo = 'BA' Then Tabela_2 := '2.08.0.E.11.02.E.11.03. NNNNNNYX.14.13'; IF Tipo = 'CE' Then Tabela_1 := '1.09.0.E.11.01. . . . 0NNNNNNNX.14.13'; IF Tipo = 'DF' Then Tabela_1 := '1.13.0.E.11.02.E.11.01. 07DNNNNNNNNXY.13.14'; IF Tipo = 'ES' Then Tabela_1 := '1.09.0.E.11.01. . . . 0ENNNNNNX.14.00'; IF Tipo = 'GO' Then Tabela_1 := '1.09.1.E.11.01. . . . 1FNNNNNNX.14.00'; IF Tipo = 'GO' Then Tabela_2 := '2.09.0.E.11.01. . . . 1FNNNNNNX.14.00'; IF Tipo = 'MA' Then Tabela_1 := '1.09.0.E.11.01. . . . 12NNNNNNX.14.00'; IF Tipo = 'MT' Then Tabela_1 := '1.11.0.E.11.01. . . . NNNNNNNNNNX.14.00'; IF Tipo = 'MS' Then Tabela_1 := '1.09.0.E.11.01. . . . 28NNNNNNX.14.00'; IF Tipo = 'MG' Then Tabela_1 := '1.13.0.2.10.10.E.11.11. NNNNNNNNNNNXY.13.14'; IF Tipo = 'PA' Then Tabela_1 := '1.09.0.E.11.01. . . . 15NNNNNNX.14.00'; IF Tipo = 'PB' Then Tabela_1 := '1.09.0.E.11.01. . . . 16NNNNNNX.14.00'; IF Tipo = 'PR' Then Tabela_1 := '1.10.0.E.11.09.E.11.08. NNNNNNNNXY.13.14'; IF Tipo = 'PE' Then Tabela_1 := '1.14.1.E.11.07. . . .18ANNNNNNNNNNX.14.00'; IF Tipo = 'PI' Then Tabela_1 := '1.09.0.E.11.01. . . . 19NNNNNNX.14.00'; IF Tipo = 'RJ' Then Tabela_1 := '1.08.0.E.11.08. . . . GNNNNNNX.14.00'; IF Tipo = 'RN' Then Tabela_1 := '1.09.0.0.11.01. . . . 20HNNNNNX.14.00'; IF Tipo = 'RS' Then Tabela_1 := '1.10.0.E.11.01. . . . INNNNNNNNX.14.00'; IF Tipo = 'RO' Then Tabela_1 := '1.09.1.E.11.04. . . . ANNNNNNNX.14.00'; IF Tipo = 'RO' Then Tabela_2 := '2.14.0.E.11.01. . . .NNNNNNNNNNNNNX.14.00'; IF Tipo = 'RR' Then Tabela_1 := '1.09.0.D.09.05. . . . 24NNNNNNX.14.00'; IF Tipo = 'SC' Then Tabela_1 := '1.09.0.E.11.01. . . . NNNNNNNNX.14.00'; IF Tipo = 'SP' Then Tabela_1 := '1.12.0.D.11.12.D.11.13. NNNNNNNNXNNY.11.14'; IF Tipo = 'SP' Then Tabela_2 := '2.12.0.D.11.12. . . . NNNNNNNNXNNN.11.00'; IF Tipo = 'SE' Then Tabela_1 := '1.09.0.E.11.01. . . . NNNNNNNNX.14.00'; IF Tipo = 'TO' Then Tabela_1 := '1.11.0.E.11.06. . . . 29JKNNNNNNX.14.00'; IF Tipo = 'CNPJ' Then Tabela_1 := '1.14.0.E.11.21.E.11.22.NNNNNNNNNNNNXY.13.14'; IF Tipo = 'CPF' Then Tabela_1 := '1.11.0.E.11.31.E.11.32. NNNNNNNNNXY.13.14'; { Deixa somente os numeros } Base_1 := ''; For Contador := 1 TO 30 Do IF Pos( Copy( Inscricao, Contador, 1 ), '0123456789' ) <> 0 Then Base_1 := Base_1 + Copy( Inscricao, Contador, 1 ); { Repete 3x - 1 para cada caso possivel } Casos := 0; Erro_1 := 0; Erro_2 := 0; Erro_3 := 0; While Casos < 3 Do Begin Casos := Casos + 1; IF Casos = 1 Then Tabela := Tabela_1; IF Casos = 2 Then Erro_1 := Erro_3; IF Casos = 2 Then Tabela := Tabela_2; IF Casos = 3 Then Erro_2 := Erro_3; IF Casos = 3 Then Tabela := Tabela_3; Erro_3 := 0; IF Copy( Tabela, 1, 1 ) <> ' ' Then Begin { Verifica o Tamanho } IF Length( Trim( Base_1 ) ) <> ( StrToInt( Copy( Tabela, 3, 2 ) ) ) Then Erro_3 := 1; IF Erro_3 = 0 Then Begin { Ajusta o Tamanho } Base_2 := Copy( ' ' + Base_1, Length( ' ' + Base_1 ) - 13, 14 ); { Compara com valores possivel para cada uma da 14 posições } Contador := 0; While ( Contador < 14 ) AND ( Erro_3 = 0 ) Do Begin Contador := Contador + 1; Posicao_1 := Copy( Copy( Tabela, 24, 14 ), Contador, 1 ); Posicao_2 := Copy( Base_2 , Contador, 1 ); IF ( Posicao_1 = ' ' ) AND ( Posicao_2 <> ' ' ) Then Erro_3 := 1; IF ( Posicao_1 = 'N' ) AND ( Pos( Posicao_2, '0123456789' ) = 0 ) Then Erro_3 := 1; IF ( Posicao_1 = 'A' ) AND ( Pos( Posicao_2, '123456789' ) = 0 ) Then Erro_3 := 1; IF ( Posicao_1 = 'B' ) AND ( Pos( Posicao_2, '03578' ) = 0 ) Then Erro_3 := 1; IF ( Posicao_1 = 'C' ) AND ( Pos( Posicao_2, '47' ) = 0 ) Then Erro_3 := 1; IF ( Posicao_1 = 'D' ) AND ( Pos( Posicao_2, '34' ) = 0 ) Then Erro_3 := 1; IF ( Posicao_1 = 'E' ) AND ( Pos( Posicao_2, '08' ) = 0 ) Then Erro_3 := 1; IF ( Posicao_1 = 'F' ) AND ( Pos( Posicao_2, '015' ) = 0 ) Then Erro_3 := 1; IF ( Posicao_1 = 'G' ) AND ( Pos( Posicao_2, '1789' ) = 0 ) Then Erro_3 := 1; IF ( Posicao_1 = 'H' ) AND ( Pos( Posicao_2, '0123' ) = 0 ) Then Erro_3 := 1; IF ( Posicao_1 = 'I' ) AND ( Pos( Posicao_2, '01234' ) = 0 ) Then Erro_3 := 1; IF ( Posicao_1 = 'J' ) AND ( Pos( Posicao_2, '09' ) = 0 ) Then Erro_3 := 1; IF ( Posicao_1 = 'K' ) AND ( Pos( Posicao_2, '1239' ) = 0 ) Then Erro_3 := 1; IF ( Posicao_1 <> Posicao_2 ) AND ( Pos( Posicao_1, '0123456789' ) > 0 ) Then Erro_3 := 1; End; { Calcula os Digitos } Rotina := ' '; Digitos := 000; Digito := 000; While ( Digitos < 2 ) AND ( Erro_3 = 0 ) Do Begin Digitos := Digitos + 1; { Carrega peso } Peso := Copy( Tabela, 5 + ( Digitos * 8 ), 2 ); IF Peso <> ' ' Then Begin Rotina := Copy( Tabela, 0 + ( Digitos * 8 ), 1 ); Modulo := StrToInt( Copy( Tabela, 2 + ( Digitos * 8 ), 2 ) ); IF Peso = '01' Then Peso := '06.05.04.03.02.09.08.07.06.05.04.03.02.00'; IF Peso = '02' Then Peso := '05.04.03.02.09.08.07.06.05.04.03.02.00.00'; IF Peso = '03' Then Peso := '06.05.04.03.02.09.08.07.06.05.04.03.00.02'; IF Peso = '04' Then Peso := '00.00.00.00.00.00.00.00.06.05.04.03.02.00'; IF Peso = '05' Then Peso := '00.00.00.00.00.01.02.03.04.05.06.07.08.00'; IF Peso = '06' Then Peso := '00.00.00.09.08.00.00.07.06.05.04.03.02.00'; IF Peso = '07' Then Peso := '05.04.03.02.01.09.08.07.06.05.04.03.02.00'; IF Peso = '08' Then Peso := '08.07.06.05.04.03.02.07.06.05.04.03.02.00'; IF Peso = '09' Then Peso := '07.06.05.04.03.02.07.06.05.04.03.02.00.00'; IF Peso = '10' Then Peso := '00.01.02.01.01.02.01.02.01.02.01.02.00.00'; IF Peso = '11' Then Peso := '00.03.02.11.10.09.08.07.06.05.04.03.02.00'; IF Peso = '12' Then Peso := '00.00.01.03.04.05.06.07.08.10.00.00.00.00'; IF Peso = '13' Then Peso := '00.00.03.02.10.09.08.07.06.05.04.03.02.00'; IF Peso = '21' Then Peso := '05.04.03.02.09.08.07.06.05.04.03.02.00.00'; IF Peso = '22' Then Peso := '06.05.04.03.02.09.08.07.06.05.04.03.02.00'; IF Peso = '31' Then Peso := '00.00.00.10.09.08.07.06.05.04.03.02.00.00'; IF Peso = '32' Then Peso := '00.00.00.11.10.09.08.07.06.05.04.03.02.00'; { Multiplica } Base_3 := Copy( ( '0000000000000000' + Trim( Base_2 ) ), Length( ( '0000000000000000' + Trim( Base_2 ) ) ) - 13, 14 ); Soma_1 := 0; Soma_2 := 0; For Contador := 1 To 14 Do Begin Valor_1 := ( StrToInt( Copy( Base_3, Contador, 01 ) ) * StrToInt( Copy( Peso, Contador * 3 - 2, 2 ) ) ); Soma_1 := Soma_1 + Valor_1; IF Valor_1 > 9 Then Valor_1 := Valor_1 - 9; Soma_2 := Soma_2 + Valor_1; End; { Ajusta valor da soma } IF Pos( Rotina, 'A2' ) > 0 Then Soma_1 := Soma_2; IF Pos( Rotina, 'B0' ) > 0 Then Soma_1 := Soma_1 * 10; IF Pos( Rotina, 'C1' ) > 0 Then Soma_1 := Soma_1 + ( 5 + 4 * StrToInt( Copy( Tabela, 6, 1 ) ) ); { Calcula o Digito } IF Pos( Rotina, 'D0' ) > 0 Then Digito := Soma_1 Mod Modulo; IF Pos( Rotina, 'E12' ) > 0 Then Digito := Modulo - ( Soma_1 Mod Modulo); IF Digito < 10 Then Resultado := IntToStr( Digito ); IF Digito = 10 Then Resultado := '0'; IF Digito = 11 Then Resultado := Copy( Tabela, 6, 1 ); { Verifica o Digito } IF ( Copy( Base_2, StrToInt( Copy( Tabela, 36 + ( Digitos * 3 ), 2 ) ), 1 ) <> Resultado ) Then Erro_3 := 1; End; End; End; End; End; { Retorna o resultado da Verificação } Retorno := FALSE; IF ( Trim( Tabela_1 ) <> '' ) AND ( ERRO_1 = 0 ) Then Retorno := TRUE; IF ( Trim( Tabela_2 ) <> '' ) AND ( ERRO_2 = 0 ) Then Retorno := TRUE; IF ( Trim( Tabela_3 ) <> '' ) AND ( ERRO_3 = 0 ) Then Retorno := TRUE; IF Trim( Inscricao ) = 'ISENTO' Then Retorno := TRUE; Result := Retorno; Except Result := False; End; End; { Mascara_Inscricao __________________________________} Function Mascara_Inscricao( Inscricao, Estado : String ) : String; Var Mascara : String; Contador_1 : Integer; Contador_2 : Integer; Begin IF Estado = 'AC' Then Mascara := '**.***.***/***-**'; IF Estado = 'AL' Then Mascara := '*********'; IF Estado = 'AP' Then Mascara := '*********'; IF Estado = 'AM' Then Mascara := '**.***.***-*'; IF Estado = 'BA' Then Mascara := '******-**'; IF Estado = 'CE' Then Mascara := '********-*'; IF Estado = 'DF' Then Mascara := '***********-**'; IF Estado = 'ES' Then Mascara := '*********'; IF Estado = 'GO' Then Mascara := '**.***.***-*'; IF Estado = 'MA' Then Mascara := '*********'; IF Estado = 'MT' Then Mascara := '**********-*'; IF Estado = 'MS' Then Mascara := '*********'; IF Estado = 'MG' Then Mascara := '***.***.***/****'; IF Estado = 'PA' Then Mascara := '**-******-*'; IF Estado = 'PB' Then Mascara := '********-*'; IF Estado = 'PR' Then Mascara := '********-**'; IF Estado = 'PE' Then Mascara := '**.*.***.*******-*'; IF Estado = 'PI' Then Mascara := '*********'; IF Estado = 'RJ' Then Mascara := '**.***.**-*'; IF Estado = 'RN' Then Mascara := '**.***.***-*'; IF Estado = 'RS' Then Mascara := '***/*******'; IF Estado = 'RO' Then Mascara := '***.*****-*'; IF Estado = 'RR' Then Mascara := '********-*'; IF Estado = 'SC' Then Mascara := '***.***.***'; IF Estado = 'SP' Then Mascara := '***.***.***.***'; IF Estado = 'SE' Then Mascara := '*********-*'; IF Estado = 'TO' Then Mascara := '***********'; Contador_2 := 1; Result := ''; Mascara := Mascara + '****'; For Contador_1 := 1 To Length( Mascara ) Do Begin IF Copy( Mascara, Contador_1, 1 ) = '*' Then Result := Result + Copy( Inscricao, Contador_2, 1 ); IF Copy( Mascara, Contador_1, 1 ) <> '*' Then Result := Result + Copy( Mascara , Contador_1, 1 ); IF Copy( Mascara, Contador_1, 1 ) = '*' Then Contador_2 := Contador_2 + 1; End; Result := Trim( Result ); End; { Fim __________________________________ } End. Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 s3c Postado Março 21, 2005 Denunciar Share Postado Março 21, 2005 Olá Tbaiano, aquele arquivo DLL3.zip é uma dll que valida todas as IE e tem um exemplo em Delphi de como chamá-la. Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Tbaiano Postado Março 21, 2005 Denunciar Share Postado Março 21, 2005 Olha s3c, //Declaração de DLL caso for duas Index é 2. Function InscricaoEstadual(InsEst : String):ShortString; External 'dll3.dll' Index 1; Isso deve funcionar, você só tem que ver os parametros, quais são e seus nomes, você precisa declarar uma função assim e chama - la assim: procedure TForm1.Button1Click(Sender: TObject); begin Label1.Caption:= InscricaoEstadual(Edit1.text); end; Qualquer coisa,Tbaiano. Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 s3c Postado Março 21, 2005 Denunciar Share Postado Março 21, 2005 Ela já vem documentada em RoteiroUtilizDllInsc.doc. Tem uma função de validar a IE, onde você informa a Inscirção Estadual e a UF e ela retorna 0=válido >0=inválido. Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Curinga Postado Março 22, 2005 Autor Denunciar Share Postado Março 22, 2005 Pessoal, eu ainda não testei os códigos que vocês me passaram, mas desde já, agradeço a intenção.Vou testar, e assim que der certo eu retorno, OK?valeu pessoal, mais uma vez... Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Curinga Postado Março 23, 2005 Autor Denunciar Share Postado Março 23, 2005 Não deu CERTO... Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 s3c Postado Março 23, 2005 Denunciar Share Postado Março 23, 2005 você baixou a dll3.zip ?Viu sua documentação ? Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Curinga Postado Março 23, 2005 Autor Denunciar Share Postado Março 23, 2005 Sim, vi a documentação e não deu certo, da erro toda hora, se algm tiver um exemplo que tenha dado certo pra me arruma eu agradeço...Obrigado... Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 s3c Postado Março 23, 2005 Denunciar Share Postado Março 23, 2005 você compilou o programa Sinscdv.dpr que vem junto ?você informa a I.E. (só números) e a U.F. Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Curinga Postado Março 23, 2005 Autor Denunciar Share Postado Março 23, 2005 Sim, compilei, e copiei, tem um problema, ele diz que o numero que eu informo não é um numero inteiro, mas é, pois eu não to usando ponto nem nada...Esses codigos não tão dando certo... Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 s3c Postado Março 24, 2005 Denunciar Share Postado Março 24, 2005 Sim, compilei, e copiei, tem um problema, ele diz que o numero que eu informo não é um numero inteiro, mas é, pois eu não to usando ponto nem nada...Esses codigos não tão dando certo... Olá Curinga, não entendí direito.1-Baixe o arquivo DLL3.zip2-Decompacte-o em alguma pasta3-Clique no Sinscdv.dpr (O Delphi carregará o projeto)4-Clique em F9(aparecerá a tela de verificação do dígito da I.E.5-Preencha o campo "Inscrição" c/ o número da I.E. (sem pontos)6-Prencha o campo "UF"7-Clique no botão "Verificar"Só há dois tipos de mensagens: Inscrição válida ou Inscrição inválida. Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Curinga Postado Março 24, 2005 Autor Denunciar Share Postado Março 24, 2005 Eu fiz isso, você entra no DELPHI e compila o arquivo que vem com DLL3 e na hora de digitar a IE, (SEM PONTO NENHUM) ele acusa que "F' não é um número inteiro, da essa mensagem, eu não sei o q é q ta acontecendo...Tenho CERTEZA que ta certo... Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 s3c Postado Março 24, 2005 Denunciar Share Postado Março 24, 2005 Ele dá esse erro na hora que você digita ? Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Curinga Postado Março 24, 2005 Autor Denunciar Share Postado Março 24, 2005 Depois que eu mando calcular...você não tem nenhum exemplo de programa seu que tenha dado certo?, porque esse não dá... Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 s3c Postado Março 24, 2005 Denunciar Share Postado Março 24, 2005 Olá Curinga, no meu caso eu testei essa dll p/ UF="SP" e funcionou; só que eu não a utilizo porque ela não tem os fontes.Então eu faço o cálculo na mão e no momento só está p/ UF="SP".O cálculo é simples e você pode pegá-lo no próprio site: http://www.sintegra.gov.br/insc_est.htmlClique no Estado que você quer e a página mostra como calcular. Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Curinga Postado Março 25, 2005 Autor Denunciar Share Postado Março 25, 2005 beleza, vou ver como é o calculo e vo tenta faze de proprio punho.valeu cara, brigadão, precisando, estamos aí...valeu a todos... Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
Curinga
Pessoal,
Gostaria de perguntar se algm sabe como validar INSCRIÇÃO ESTADUAL no DELPHI, já procurei, mas, não consigo encontra nada sobre o assunto, e as coisas que encontram ou são incompletas ou são de outras linguagens.
Então fico agradecido e a espera de respota.
Pessoal, mais uma vez valeu pela atenção...
Link para o comentário
Compartilhar em outros sites
18 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.