quarta-feira, 15 de abril de 2009

Validação de CPF e CNPJ com Javascript - Delphi/Intraweb

Mais um da série ... (da séria série ...)
Ok, já fizemos vários artigos sobre como usar Javascript no Intraweb. Tenho gastado tempo registrando essa abordagem por vários motivos:

Um deles é (uma tecla que venho batendo bastante) a importância de buscar um equilíbrio, distribuído responsabilidades entre client-side e server-side (obviamente, me refiro ao contexto restrito os sistemas desenvolvidos para plataforma web). Um segundo motivo pode ser: “Como fazer isso, se eu uso Delphi/Intraweb?” Na medida em que essa é uma questão que considero possuir alguma relevância. Outro motivo, porem, trata sobre “Qual implicação, ou quais implicações, terei ao percorrer este caminho?” Tenho procurado, nos assuntos abordados, trazer alguns elementos que apontem para a responder a essa questão.
Justamente, esse último ponto, sobre as implicações, ou seja, falar sobre algumas vantagens e desvantagens, é um dos objetivos desse texto. No Intraweb existem certas particularidades ao se aplicar o Javascript, uma delas é o evento “onSubmit” do form definido numa página web. Veremos, então, sobre isso mais adiante.


Neste artigo pretendo mostrar também como podemos usar a passagem por parâmetro, de uma função Javascript, para a referência de um objeto “html” de um form no Intraweb. Seguindo a metodologia de ir do mais simples para o mais complexo, iniciaremos nossa parte prática com a criação de uma função para validação no lado cliente. Validação essa para a qual atribuiremos a responsabilidade de exemplificar esse uso de parâmetros, ao qual me referi, em Javascript, relacionado aos objetos Intraweb.
Quero usar um exemplo que seja prático, ordinário, para um cenário de sistemas de informação. Portanto, vamos criar uma função para validar CPF, uma outra para validar CNPJ e uma terceira função que vai opcionalmente validar CNPJ, CPF, ou os dois simultaneamente. Desta forma teremos uma função polivalente (a qual servirá para validar ambos os casos), cujo o processamento será realizado no lado do cliente.


Javascript para validar CNPJ, CPF no Delphi/Intraweb

Inicie um novo projeto Intraweb no Delphi, adicione no IWForm1 um IWEdit e três IWButtons. Em seguida, defina uma área de declarações de constantes e digite conforme ilustrado abaixo:


implementation

uses IWBaseForm;

{$R *.dfm}
const
AQuebraLinhaJsZN = #13;
AFncCriticaCIC =
' function CriticaCIC(ZnNumCic, ZnCnpjBool, ZnCpfBool){ ' + AQuebraLinhaJsZN +
' alert("www.estacaozn.blogspot.com verifica CPF/CNPJ");' + AQuebraLinhaJsZN +
' var CicValidoZn = false; ' + AQuebraLinhaJsZN +
' ' + AQuebraLinhaJsZN +
' if (ZnCnpjBool && !ZnCpfBool) { ' + AQuebraLinhaJsZN +
' if(!ZnVerificaCnpj(ZnNumCic)){ ' + AQuebraLinhaJsZN +
' alert("CNPJ Inválido"); ' + AQuebraLinhaJsZN +
' return false;} ' + AQuebraLinhaJsZN +
' } ' + AQuebraLinhaJsZN +
' else if (!ZnCnpjBool && ZnCpfBool){ ' + AQuebraLinhaJsZN +
' if (!ZnVerificaCPF(ZnNumCic)){ ' + AQuebraLinhaJsZN +
' alert("CPF inválido"); ' + AQuebraLinhaJsZN +
' return false; ' + AQuebraLinhaJsZN +
' ;} ' + AQuebraLinhaJsZN +
' } ' + AQuebraLinhaJsZN +
' else { ' + AQuebraLinhaJsZN +
' CicValidoZn = ZnVerificaCnpj(ZnNumCic); ' + AQuebraLinhaJsZN +
' if(CicValidoZn){ ' + AQuebraLinhaJsZN +
' return true;} ' + AQuebraLinhaJsZN +
' else{ ' + AQuebraLinhaJsZN +
' CicValidoZn = ZnVerificaCPF(ZnNumCic); ' + AQuebraLinhaJsZN +
' if(!CicValidoZn){ ' + AQuebraLinhaJsZN +
' alert("CIC Inválido") ' + AQuebraLinhaJsZN +
' return false;} ' + AQuebraLinhaJsZN +
' } ' + AQuebraLinhaJsZN +
' } ' + AQuebraLinhaJsZN +
' var ZnMsg = ""; ' + AQuebraLinhaJsZN +
' if (ZnCnpjBool && ZnCpfBool) { ' + AQuebraLinhaJsZN +
' ZnMsg = "CPJ ou CNPJ"; }' + AQuebraLinhaJsZN +
' if (ZnCnpjBool && !ZnCpfBool) { ' + AQuebraLinhaJsZN +
' ZnMsg = "CNPJ"; }' + AQuebraLinhaJsZN +
' if (!ZnCnpjBool && ZnCpfBool) { ' + AQuebraLinhaJsZN +
' ZnMsg = "CPF"; }' + AQuebraLinhaJsZN +
' alert("Valor Validado Ok, " +ZnMsg + ": " + ZnNumCic.value);' + AQuebraLinhaJsZN +
' return true;} ' + AQuebraLinhaJsZN;

AFncCriticaCPF =
' function ZnVerificaCPF (ZnCpfObj){ ' + AQuebraLinhaJsZN +
' var gmSort = new Array(ZnCpfObj.value.length); ' + AQuebraLinhaJsZN +
' for (i=0; i< ZnCpfObj.value.length; i++){gmSort[i] = ZnCpfObj.value.charAt(i);} ' + AQuebraLinhaJsZN +
' gmSort.sort(); ' + AQuebraLinhaJsZN +
' if (gmSort[0] == gmSort[gmSort.length -1]){ ' + AQuebraLinhaJsZN +
' alert("www.estacaozn.blogspot.com: Os números são iguais: " + ZnCpfObj.value); ' + AQuebraLinhaJsZN +
' return false; ' + AQuebraLinhaJsZN +
' } ' + AQuebraLinhaJsZN +
' ZnAuxCal = 0; ' + AQuebraLinhaJsZN +
' for (ZnCont = 0; ZnCont < 9; ZnCont ++) ' + AQuebraLinhaJsZN +
' ZnAuxCal += parseInt(ZnCpfObj.value.charAt(ZnCont)) * (10 - ZnCont); ' + AQuebraLinhaJsZN +
' DgVZn = 11 - (ZnAuxCal % 11); ' + AQuebraLinhaJsZN +
' if (DgVZn == 10 || DgVZn == 11) ' + AQuebraLinhaJsZN +
' DgVZn = 0; ' + AQuebraLinhaJsZN +
' if (DgVZn != parseInt(ZnCpfObj.value.charAt(9))) ' + AQuebraLinhaJsZN +
' return false; ' + AQuebraLinhaJsZN +
' ZnAuxCal = 0; ' + AQuebraLinhaJsZN +
' for (ZnCont = 0; ZnCont < 10; ZnCont ++) ' + AQuebraLinhaJsZN +
' ZnAuxCal += parseInt(ZnCpfObj.value.charAt(ZnCont)) * (11 - ZnCont); ' + AQuebraLinhaJsZN +
' DgVZn = 11 - (ZnAuxCal % 11); ' + AQuebraLinhaJsZN +
' if (DgVZn == 10 || DgVZn == 11) ' + AQuebraLinhaJsZN +
' DgVZn = 0; ' + AQuebraLinhaJsZN +
' if (DgVZn != parseInt(ZnCpfObj.value.charAt(10))){ ' + AQuebraLinhaJsZN +
' return false;} ' + AQuebraLinhaJsZN +
' //alert("O CPF INFORMADO É VÁLIDO."); ' + AQuebraLinhaJsZN +
' return true; ' + AQuebraLinhaJsZN +
'} ' + AQuebraLinhaJsZN;

AFncCriticaCNPJ =
' function ZnVerificaCnpj(ZNObjInput){' + AQuebraLinhaJsZN +
' var ZnDigitos, ZnDg, ZnSum, ZnCount;' + AQuebraLinhaJsZN +
' var ZnResult, ZnPos, tamanho;' + AQuebraLinhaJsZN +
' var ZnAuxCNPJ = ZNObjInput.value.replace(/\D+/g, "");' + AQuebraLinhaJsZN +
'' + AQuebraLinhaJsZN +
' if (ZnAuxCNPJ.length != 14){' + AQuebraLinhaJsZN +
' ZNObjInput.focus();' + AQuebraLinhaJsZN +
' return false;' + AQuebraLinhaJsZN +
' }' + AQuebraLinhaJsZN +
' var gmSort = new Array(ZNObjInput.value.length); ' + AQuebraLinhaJsZN +
' for (i=0; i< ZNObjInput.value.length; i++){gmSort[i] = ZNObjInput.value.charAt(i);} ' + AQuebraLinhaJsZN +
' gmSort.sort(); ' + AQuebraLinhaJsZN +
' if (gmSort[0] == gmSort[gmSort.length -1]){ ' + AQuebraLinhaJsZN +
' alert("www.estacaozn.blogspot.com: Os números são iguais: " + ZNObjInput.value); ' + AQuebraLinhaJsZN +
' return false; ' + AQuebraLinhaJsZN +
' } ' + AQuebraLinhaJsZN +
'' + AQuebraLinhaJsZN +
' ZnAuxTamanho = ZnAuxCNPJ.length - 2' + AQuebraLinhaJsZN +
' ZnDigitos = ZnAuxCNPJ.substring(0,ZnAuxTamanho);' + AQuebraLinhaJsZN +
' ZnDg = ZnAuxCNPJ.substring(ZnAuxTamanho);' + AQuebraLinhaJsZN +
' ZnSum = 0;' + AQuebraLinhaJsZN +
' ZnPos = ZnAuxTamanho - 7;' + AQuebraLinhaJsZN +
' for (ZnCount = ZnAuxTamanho; ZnCount >= 1; ZnCount--){' + AQuebraLinhaJsZN +
' ZnSum += ZnDigitos.charAt(ZnAuxTamanho - ZnCount) * ZnPos--;' + AQuebraLinhaJsZN +
' if (ZnPos < 2)' + AQuebraLinhaJsZN +
' ZnPos = 9;' + AQuebraLinhaJsZN +
' }' + AQuebraLinhaJsZN +
' ZnResult = ZnSum % 11 < 2 ? 0 : 11 - ZnSum % 11;' + AQuebraLinhaJsZN +
' if (ZnResult != ZnDg.charAt(0)){' + AQuebraLinhaJsZN +
' ZNObjInput.focus();' + AQuebraLinhaJsZN +
' return false;' + AQuebraLinhaJsZN +
' }' + AQuebraLinhaJsZN +
'' + AQuebraLinhaJsZN +
' ZnAuxTamanho = ZnAuxTamanho + 1;' + AQuebraLinhaJsZN +
' ZnDigitos = ZnAuxCNPJ.substring(0,ZnAuxTamanho);' + AQuebraLinhaJsZN +
' ZnSum = 0;' + AQuebraLinhaJsZN +
' ZnPos = ZnAuxTamanho - 7;' + AQuebraLinhaJsZN +
' for (ZnCount = ZnAuxTamanho; ZnCount >= 1; ZnCount--){' + AQuebraLinhaJsZN +
' ZnSum += ZnDigitos.charAt(ZnAuxTamanho - ZnCount) * ZnPos--;' + AQuebraLinhaJsZN +
' if (ZnPos < 2)' + AQuebraLinhaJsZN +
' ZnPos = 9;}' + AQuebraLinhaJsZN +
'' + AQuebraLinhaJsZN +
' ZnResult = ZnSum % 11 < 2 ? 0 : 11 - ZnSum % 11;' + AQuebraLinhaJsZN +
' if (ZnResult != ZnDg.charAt(1)){' + AQuebraLinhaJsZN +
' ZNObjInput.focus();' + AQuebraLinhaJsZN +
' return false;}' + AQuebraLinhaJsZN +
' else {' + AQuebraLinhaJsZN +
' return true;' + AQuebraLinhaJsZN +
' }' + AQuebraLinhaJsZN +
' }' + AQuebraLinhaJsZN;


Dando continuidade, para usarmos o que acabamos de definir devemos usar as propriedades específicas dos componentes Intraweb destinadas a trabalhar com Javascript. Elas existem tanto no IWForm (Formulário Delphi para web), quanto nos controles, IWControls.


Evento OnCreate do IWFrom1:



procedure TIWForm1.IWAppFormCreate(Sender: TObject);
begin
(* Atribuindo a propriedade "JavaScript" do IWForm1 as
funções que serão processadas pelo browser*)
Self.JavaScript.Add('');
Self.JavaScript.Add(AFncCriticaCPF);
Self.JavaScript.Add('');
Self.JavaScript.Add(AFncCriticaCNPJ);
Self.JavaScript.Add('');
Self.JavaScript.Add(AFncCriticaCIC);
Self.JavaScript.Add('');
// O IWButton1 vai validar as duas opções CPF e CNPJ
IWButton1.Caption := 'Valida CPF e CNPJ';
IWButton1.Width := 200;
IWButton1.ExtraTagParams.Add(
Format('onClick=CriticaCIC(%s, %s, %s)', [UpperCase(IWEdit1.Name),
'true', 'true']));
//O IWButton2 vai validar apenas CPF
IWButton2.Caption := 'Valida CPF';
IWButton2.Width := 200;
IWButton2.ExtraTagParams.Add(
Format('onClick=CriticaCIC(%s, %s, %s)', [UpperCase(IWEdit1.Name),
'false', 'true']));
//O IWButton3 vai validar apenas CNPJ
IWButton3.Caption := 'Valida CNPJ';
IWButton3.Width := 200;
IWButton3.ExtraTagParams.Add(
Format('onClick=CriticaCIC(%s, %s, %s)', [UpperCase(IWEdit1.Name),
'true', 'false']));
end;


No trecho de código acima, podemos observar, comparando com os exemplos postados nos artigos anteriores, sobre Intraweb e Javascript, que o uso de parâmetros nas funções Javascript para referenciar os objetos do form (na página html), reduz sensivelmente a o número de linhas. Isso melhora a legibilidade do código, consequentimente aumenta a manutenibilidade do mesmo. Visto que, não precisamos usar o temperamental “document.all” (sensível a diversidade de navegadores). Também não precisamos mais do “document.forms[x]”, isso nos abstém da preocupação em referenciar o form específico (Lembra, no Intraweb 8, o framework pode criar vários forms na mesma página?). Obviamente, isso é possível porque a chamada a função esta sendo feita no mesmo form proprietário do objeto que está sendo passado como argumento. Em outras palavras: O objeto que está sendo passado como parâmetro na função critica CIC 2, está definido no mesmo form no qual a função esta sendo chamada.
Entretanto, infelizmente, essa abordagem pode encontrar limitações. Vejamos adiante ....

Sobre as funções de validação de CNPJ e CPF, não estou preocupado com a otimização da lógica que elas implementam. Basiei-me em alguns dos milhares de exemplos que podemos encontrar na web. Com certeza, fiz alguns ajustes. Mas nada que mereça grande atenção, embora elas funcionem corretamente, no sentido de serem eficientes em alcançarem o objetivo que se propõem. Reiterando, o propósito dessa parte do artigo é exemplificar como resolver via Javascript uma validação bastante necessária, uma situação comum, presumo, em muitos sistemas (desenvolvidos com Intraweb).


OnClick do IWButton chamar mais de uma função Javascript no evento “onSubmit” do form


Supondo que o IWButton, ou qualquer outro controle que seja, já possua uma chamada a uma função Javascript. Hipoteticamente, imagine um cenário onde o mesmo IWButton, que vai submeter o form da página web, precisa, no mesmo evento “OnClick”, validar o CIC e fazer qualquer outro tipo de validação.
Note que estou, propositalmente, construindo uma situação onde o click do botão está relacionado a ação de submeter o form da página web. Além disso, estamos trabalhando com um grau de complexidade onde você precisa (ou precisará) executar mais de um função em reposta ação do usuário clicar esse botão. O botão “Submit” (no caso, nosso IWButton1). Ora, grau de complexidade? Isso que você descreveu, Gerson, me parece tão comum! Concordo, é muito comum se você está trabalhando com outra tecnologia. No Intraweb, lamentavelmente isso não é trivial.
Então, prosseguindo, vejamos: Em primeiro lugar, vamos criar a segunda função (a qual será responsável por tornar o valor do IWEdit1 obrigatório). Ou seja, para submeter o form da página web, o usuário será obrigado a digitar algum valor no IWEdit1. Feito isso, teremos construído todos elementos necessários para a experiência que irá confirmar minha argumentação (assim espero ....). Portanto, na seção “const” (que definimos anteriormente) codificaremos, em forma de outra constante, a string com a função supracitada. Digite conforme ilustrado abaixo:




AFncValorRequerido =
' function ValorRequerido(){ ' + AQuebraLinhaJsZN +
' var ObjInput = document.getElementById("%s); ' + AQuebraLinhaJsZN +
' var AFriendlyName = "%s"; ' + AQuebraLinhaJsZN +
' if (ObjInput.value == ""){ ' + AQuebraLinhaJsZN +
' alert("É obrigatório o valor para o campo: " + AFriendlyName); ' + AQuebraLinhaJsZN +
' ObjInput.style.backgroundColor = "#FD88AA"; ' + AQuebraLinhaJsZN +
' ObjInput.focus(); ' + AQuebraLinhaJsZN +
' }' + AQuebraLinhaJsZN +
' else { ' + AQuebraLinhaJsZN +
' ObjInput.style.backgroundColor = "#FFFFFF"; ' + AQuebraLinhaJsZN +
' }' + AQuebraLinhaJsZN +
' }' + AQuebraLinhaJsZN;


Em seguida faremos uma pequena modificação na primeira função que criamos, “CriticaCIC”. No caso, ela é a segunda constante de definimos para o exemplo anterior, a “AFncCriticaCIC”. Espere, não é exatamente isso o que faremos. O que quero realmente fazer é copiar a constante “AFncCriticaCIC”, a partir disso, definir uma nova com o mesmo conteúdo. Porque, desta forma posso fazer as alterações que preciso, sem perder completamente o exemplo anterior. Logo, assim sendo, quem estiver acompanhando este artigo poderá facilmente testar e verificar a diferença entra as duas estratégias (“do grego, "Στρατηγικη"... ...no inglês, "strategy"... ...no francês, "stratégie"... ZzZzZzZzzzz...... ...Senhor leitor, o senhor está dormindo? Senhor leitor, tenha bondade..”. (Parafraseando Capitão Nascimento)

Prosseguindo (era brincadeira), retomemos: Criaremos então a nova constante a partir da cópia de “AFncCriticaCIC”:


AFncCriticaCIC2 =
' function CriticaCIC2(ZnCnpjBool, ZnCpfBool){ ' + AQuebraLinhaJsZN +
' var ZnNumCic = document.getElementById("%s); ' + AQuebraLinhaJsZN +
' alert("www.estacaozn.blogspot.com verifica CPF/CNPJ");' + AQuebraLinhaJsZN +
' var CicValidoZn = false; ' + AQuebraLinhaJsZN +
' ' + AQuebraLinhaJsZN +
' if (ZnCnpjBool && !ZnCpfBool) { ' + AQuebraLinhaJsZN +
' if(!ZnVerificaCnpj(ZnNumCic)){ ' + AQuebraLinhaJsZN +
' alert("CNPJ Inválido"); ' + AQuebraLinhaJsZN +
' return false;} ' + AQuebraLinhaJsZN +
' } ' + AQuebraLinhaJsZN +
' else if (!ZnCnpjBool && ZnCpfBool){ ' + AQuebraLinhaJsZN +
' if (!ZnVerificaCPF(ZnNumCic)){ ' + AQuebraLinhaJsZN +
' alert("CPF inválido"); ' + AQuebraLinhaJsZN +
' return false; ' + AQuebraLinhaJsZN +
' ;} ' + AQuebraLinhaJsZN +
' } ' + AQuebraLinhaJsZN +
' else { ' + AQuebraLinhaJsZN +
' CicValidoZn = ZnVerificaCnpj(ZnNumCic); ' + AQuebraLinhaJsZN +
' if(CicValidoZn){ ' + AQuebraLinhaJsZN +
' return true;} ' + AQuebraLinhaJsZN +
' else{ ' + AQuebraLinhaJsZN +
' CicValidoZn = ZnVerificaCPF(ZnNumCic); ' + AQuebraLinhaJsZN +
' if(!CicValidoZn){ ' + AQuebraLinhaJsZN +
' alert("CIC Inválido") ' + AQuebraLinhaJsZN +
' return false;} ' + AQuebraLinhaJsZN +
' } ' + AQuebraLinhaJsZN +
' } ' + AQuebraLinhaJsZN +
' var ZnMsg = ""; ' + AQuebraLinhaJsZN +
' if (ZnCnpjBool && ZnCpfBool) { ' + AQuebraLinhaJsZN +
' ZnMsg = "CPJ ou CNPJ"; }' + AQuebraLinhaJsZN +
' if (ZnCnpjBool && !ZnCpfBool) { ' + AQuebraLinhaJsZN +
' ZnMsg = "CNPJ"; }' + AQuebraLinhaJsZN +
' if (!ZnCnpjBool && ZnCpfBool) { ' + AQuebraLinhaJsZN +
' ZnMsg = "CPF"; }' + AQuebraLinhaJsZN +
' alert("Valor Validado Ok, " +ZnMsg + ": " + ZnNumCic.value);' + AQuebraLinhaJsZN +
' return true;} ' + AQuebraLinhaJsZN;

Essa nova versão da crítica de “CIC” possui um parâmetro a menos. Eu retirei o argumento referente ao objeto do form (input que recebe o valor digitado do suposto CIC). Já que decidimos não perder o que foi feito no exemplo anterior, vamos adicionar mais um IWButton. O IWButton4, servirá, nessa segunda parte do artigo, para chamar a nova critica CIC (o conteúdo da AFncCriticaCIC2). Feito isso, vamos acrescentar mais umas linhas de código no evento “OnCreate” do IWForm1.



(* segunda parte do artigo:
OnClick do IWButton chamar mais de uma função Javascript *)
IWEdit1.FriendlyName := 'CIC: "CNPJ" ou "CPF"';
Self.JavaScript.Add('//**************************************');
Self.JavaScript.Add('//segunda parte do artigo:' + #13 +
'// OnClick do IWButton chamar mais de uma função Javascript');
Self.JavaScript.Add(Format(AFncCriticaCIC2, [UpperCase(IWEdit1.Name)]));
Self.JavaScript.Add('');

Self.JavaScript.Add('');
Self.JavaScript.Add(Format(AFncValorRequerido, [UpperCase(IWEdit1.Name),
IWEdit1.FriendlyName]));
Self.JavaScript.Add('//*******www.estacaozn.blogspot.com**********');

IWButton4.Caption := 'Valor Obrigatório & Valida CIC';
IWButton4.Width := 360;
IWButton4.ScriptEvents.Add('onClick').EventCode.Add(
'ValorRequerido() && CriticaCIC(true, true)');


No Intraweb, chamar, efetivamente, no evento “onClick”, mais de um função pode ser feito declarando o nome das funções, juntamente com o operador lógico adequado, ao caso específico, na propriedade “ScriptEvent” do componente escolhido (No nosso caso o escolhido foi o TIWButton). Provavelmente, essa não deve ser a única forma de se fazer isso, essa é apenas uma (suponho ;-)). Especificamente a que eu encontrei no momento para alcançar meu objetivo.

Cabe registrar que, como alternativa, para propriedade “ExtraTagParams” existe um restrição. Só funciona se a ação não envolver o submit do form. Como posso ter certeza do acabei de afirmar?
Para exemplificar, respondendo a pergunta anterior, vamos submeter o form. Contudo, para isso, precisamos pelo menos processar algo no servidor. Com essa finalidade, codificaremos qualquer coisa dummy no evento OnClick do componente Delphi/Intraweb TIWButton4. Adicione um novo componente, um IWLabel, em seguida, acompanhe trecho de código abaixo:


procedure TIWForm1.IWButton4Click(Sender: TObject);
begin
IWLabel1.Font.Size := 16;
IWLabel1.Caption := Format('Valor digitado válido: %s', [IWEdit1.Text]); ;
end;


Veja, como o Intraweb monta a função que submete o form:


var IWLABEL1IWCL = null;
var IWBUTTON1IWCL = null;
var IWEDIT1IWCL = null;
var IWBUTTON2IWCL = null;
var IWBUTTON3IWCL = null;
var IWBUTTON4IWCL = null;
function IWBUTTON4_onclick(event) {
return ValorRequerido() && CriticaCIC2(true, true)
}

function IWBUTTON4_onclick0(event) {
return SubmitClickConfirm('IWBUTTON4','', true, '');
}

Ok, finalizamos! Podemos testar, F9 .. e manda ver ...
Prova dos Nove

Considero que terminamos o assunto aqui. Se por acaso você inda quer conferir o que eu afirmei acima prossiga:
Agora vamos testar se realmente, de fato, quando esta situação acontece, não é possível ter sucesso usando a propriedade “ExtraTagParams”.
Adicionaremos mais um IWButton, no meu exemplo esse será o IWButton5. Retornaremos ao evento “OnCreate” do IWForm1 (Unit1) e codificaremos a chamada ao Javascript de crítica de valor requerido e validação de CIC, na propriedade ExtraTagParams do último IWButton adicionado. Veja abaixo como ficou:



procedure TIWForm1.IWAppFormCreate(Sender: TObject);
begin
Self.JavaScript.Add('');
Self.JavaScript.Add(AFncCriticaCPF);
Self.JavaScript.Add('');
Self.JavaScript.Add(AFncCriticaCNPJ);
Self.JavaScript.Add('');
Self.JavaScript.Add(AFncCriticaCIC);
Self.JavaScript.Add('');
// O IWButton1 vai validar as duas opções CPF e CNPJ
IWButton1.Caption := 'Valida CPF e CNPJ';
IWButton1.Width := 200;
IWButton1.ExtraTagParams.Add(
Format('onClick=CriticaCIC(%s, %s, %s)', [UpperCase(IWEdit1.Name),
'true', 'true']));
//O IWButton2 vai validar apenas CPF
IWButton2.Caption := 'Valida CPF';
IWButton2.Width := 200;
IWButton2.ExtraTagParams.Add(
Format('onClick=CriticaCIC(%s, %s, %s)', [UpperCase(IWEdit1.Name),
'false', 'true']));
//O IWButton3 vai validar apenas CNPJ
IWButton3.Caption := 'Valida CNPJ';
IWButton3.Width := 200;
IWButton3.ExtraTagParams.Add(
Format('onClick=CriticaCIC(%s, %s, %s)', [UpperCase(IWEdit1.Name),
'true', 'false']));

(* segunda parte do artigo:
OnClick do IWButton chamar mais de uma função Javascript *)
IWEdit1.FriendlyName := 'CIC: CNPJ ou CPF';
Self.JavaScript.Add('//**************************************');
Self.JavaScript.Add('//segunda parte do artigo:' + #13 +
'// OnClick do IWButton chamar mais de uma função Javascript');
Self.JavaScript.Add(Format(AFncCriticaCIC2, [UpperCase(IWEdit1.Name)]));
Self.JavaScript.Add('');

Self.JavaScript.Add('');
Self.JavaScript.Add(Format(AFncValorRequerido, [UpperCase(IWEdit1.Name),
IWEdit1.FriendlyName]));
Self.JavaScript.Add('//*******www.estacaozn.blogspot.com**********');

IWButton4.Caption := 'Valor Obrigatório & Valida CIC';
IWButton4.Width := 360;
IWButton4.ScriptEvents.Add('onClick').EventCode.Add(
'return ValorRequerido() && CriticaCIC2(true, true)');

(* testando chamar duas funções Javascript na propriedade ExtraTagParams *)

IWButton5.ExtraTagParams.Add(
Format('onClick=return ValorRequerido() && CriticaCIC(%s, %s, %s)', [UpperCase(IWEdit1.Name),
'true', 'true']));
end;


O trecho que acabamos de digitar inicia com o comentário da linha 48. Note que fizemos a chamada semelhante ao IWButton4. Da forma como está agora, funciona perfeitamente. Mesmo que eu faça a chamada, no IWButton5, igualzinho a do IWButton4, funciona.


IWButton5.ExtraTagParams.Add(
Format('onClick=return ValorRequerido() && CriticaCIC2(true, true)',
[UpperCase(IWEdit1.Name)]));


Todavia, se eu envolver o IWButton5 no submit do form teremos fracasso. Babau! A vaca vai pro brejo.
Para conferir basta codificar qualquer coisa no evento “OnClick” do IWButton5. Isso irá forçar um submit para que esse código seja processado no servidor. Vou colocar uma dummy aqui ... veja:


procedure TIWForm1.IWButton5Click(Sender: TObject);
begin
IWLabel1.Caption := IWEdit1.Text;
WebApplication.ShowMessage('Se você esta codificando esse exemplo corretamente, '+
'essa mensagem nunca não vai ser exibida. Jamais será! Garanto (heheh ..).');
end;


O Intraweb tenta ter controle total de alguns eventos do objeto form da página html. Isso acontece de forma mais rigorosa no evento “onLoad”. Eu até entendo a razão deles fazerem isso, mas não a considero justificável, e justamente por isso discordo desse tipo de controle. Acho isso extremamente prejudicial ao desenvolvimento de sites, sistemas, serviços, web com o Intraweb. Ao mesmo tempo isso demonstra de forma muito clara o quanto esse framework é frágil e imaturo.

Abaixo, o código integral da Unit1, seguido do código da página html gerado pelo Intraweb:


unit Unit1;

interface

uses
Classes, SysUtils, IWAppForm, IWApplication, IWColor, IWTypes, IWCompEdit,
Controls, IWVCLBaseControl, IWBaseControl, IWBaseHTMLControl, IWControl,
IWCompButton, IWCompLabel;

type
TIWForm1 = class(TIWAppForm)
IWButton1: TIWButton;
IWEdit1: TIWEdit;
IWButton2: TIWButton;
IWButton3: TIWButton;
IWButton4: TIWButton;
IWLabel1: TIWLabel;
IWButton5: TIWButton;
procedure IWButton5Click(Sender: TObject);
procedure IWButton4Click(Sender: TObject);
procedure IWAppFormCreate(Sender: TObject);
public
end;

implementation


{$R *.dfm}
const
AQuebraLinhaJsZN = #13;
AFncCriticaCIC =
' function CriticaCIC(ZnNumCic, ZnCnpjBool, ZnCpfBool){ ' + AQuebraLinhaJsZN +
' alert("www.estacaozn.blogspot.com verifica CPF/CNPJ");' + AQuebraLinhaJsZN +
' var CicValidoZn = false; ' + AQuebraLinhaJsZN +
' ' + AQuebraLinhaJsZN +
' if (ZnCnpjBool && !ZnCpfBool) { ' + AQuebraLinhaJsZN +
' if(!ZnVerificaCnpj(ZnNumCic)){ ' + AQuebraLinhaJsZN +
' alert("CNPJ Inválido"); ' + AQuebraLinhaJsZN +
' return false;} ' + AQuebraLinhaJsZN +
' } ' + AQuebraLinhaJsZN +
' else if (!ZnCnpjBool && ZnCpfBool){ ' + AQuebraLinhaJsZN +
' if (!ZnVerificaCPF(ZnNumCic)){ ' + AQuebraLinhaJsZN +
' alert("CPF inválido"); ' + AQuebraLinhaJsZN +
' return false; ' + AQuebraLinhaJsZN +
' ;} ' + AQuebraLinhaJsZN +
' } ' + AQuebraLinhaJsZN +
' else { ' + AQuebraLinhaJsZN +
' CicValidoZn = ZnVerificaCnpj(ZnNumCic); ' + AQuebraLinhaJsZN +
' if(CicValidoZn){ ' + AQuebraLinhaJsZN +
' return true;} ' + AQuebraLinhaJsZN +
' else{ ' + AQuebraLinhaJsZN +
' CicValidoZn = ZnVerificaCPF(ZnNumCic); ' + AQuebraLinhaJsZN +
' if(!CicValidoZn){ ' + AQuebraLinhaJsZN +
' alert("CIC Inválido") ' + AQuebraLinhaJsZN +
' return false;} ' + AQuebraLinhaJsZN +
' } ' + AQuebraLinhaJsZN +
' } ' + AQuebraLinhaJsZN +
' var ZnMsg = ""; ' + AQuebraLinhaJsZN +
' if (ZnCnpjBool && ZnCpfBool) { ' + AQuebraLinhaJsZN +
' ZnMsg = "CPJ ou CNPJ"; }' + AQuebraLinhaJsZN +
' if (ZnCnpjBool && !ZnCpfBool) { ' + AQuebraLinhaJsZN +
' ZnMsg = "CNPJ"; }' + AQuebraLinhaJsZN +
' if (!ZnCnpjBool && ZnCpfBool) { ' + AQuebraLinhaJsZN +
' ZnMsg = "CPF"; }' + AQuebraLinhaJsZN +
' alert("Valor Validado Ok, " +ZnMsg + ": " + ZnNumCic.value);' + AQuebraLinhaJsZN +
' return true;} ' + AQuebraLinhaJsZN;

AFncCriticaCPF =
' function ZnVerificaCPF (ZnCpfObj){ ' + AQuebraLinhaJsZN +
' var gmSort = new Array(ZnCpfObj.value.length); ' + AQuebraLinhaJsZN +
' for (i=0; i< ZnCpfObj.value.length; i++){gmSort[i] = ZnCpfObj.value.charAt(i);} ' + AQuebraLinhaJsZN +
' gmSort.sort(); ' + AQuebraLinhaJsZN +
' if (gmSort[0] == gmSort[gmSort.length -1]){ ' + AQuebraLinhaJsZN +
' alert("www.estacaozn.blogspot.com: Os números são iguais: " + ZnCpfObj.value); ' + AQuebraLinhaJsZN +
' return false; ' + AQuebraLinhaJsZN +
' } ' + AQuebraLinhaJsZN +
' ZnAuxCal = 0; ' + AQuebraLinhaJsZN +
' for (ZnCont = 0; ZnCont < 9; ZnCont ++) ' + AQuebraLinhaJsZN +
' ZnAuxCal += parseInt(ZnCpfObj.value.charAt(ZnCont)) * (10 - ZnCont); ' + AQuebraLinhaJsZN +
' DgVZn = 11 - (ZnAuxCal % 11); ' + AQuebraLinhaJsZN +
' if (DgVZn == 10 || DgVZn == 11) ' + AQuebraLinhaJsZN +
' DgVZn = 0; ' + AQuebraLinhaJsZN +
' if (DgVZn != parseInt(ZnCpfObj.value.charAt(9))) ' + AQuebraLinhaJsZN +
' return false; ' + AQuebraLinhaJsZN +
' ZnAuxCal = 0; ' + AQuebraLinhaJsZN +
' for (ZnCont = 0; ZnCont < 10; ZnCont ++) ' + AQuebraLinhaJsZN +
' ZnAuxCal += parseInt(ZnCpfObj.value.charAt(ZnCont)) * (11 - ZnCont); ' + AQuebraLinhaJsZN +
' DgVZn = 11 - (ZnAuxCal % 11); ' + AQuebraLinhaJsZN +
' if (DgVZn == 10 || DgVZn == 11) ' + AQuebraLinhaJsZN +
' DgVZn = 0; ' + AQuebraLinhaJsZN +
' if (DgVZn != parseInt(ZnCpfObj.value.charAt(10))){ ' + AQuebraLinhaJsZN +
' return false;} ' + AQuebraLinhaJsZN +
' //alert("O CPF INFORMADO É VÁLIDO."); ' + AQuebraLinhaJsZN +
' return true; ' + AQuebraLinhaJsZN +
'} ' + AQuebraLinhaJsZN;

AFncCriticaCNPJ =
' function ZnVerificaCnpj(ZNObjInput){' + AQuebraLinhaJsZN +
' var ZnDigitos, ZnDg, ZnSum, ZnCount;' + AQuebraLinhaJsZN +
' var ZnResult, ZnPos, tamanho;' + AQuebraLinhaJsZN +
' var ZnAuxCNPJ = ZNObjInput.value.replace(/\D+/g, "");' + AQuebraLinhaJsZN +
'' + AQuebraLinhaJsZN +
' if (ZnAuxCNPJ.length != 14){' + AQuebraLinhaJsZN +
' ZNObjInput.focus();' + AQuebraLinhaJsZN +
' return false;' + AQuebraLinhaJsZN +
' }' + AQuebraLinhaJsZN +
' var gmSort = new Array(ZNObjInput.value.length); ' + AQuebraLinhaJsZN +
' for (i=0; i< ZNObjInput.value.length; i++){gmSort[i] = ZNObjInput.value.charAt(i);} ' + AQuebraLinhaJsZN +
' gmSort.sort(); ' + AQuebraLinhaJsZN +
' if (gmSort[0] == gmSort[gmSort.length -1]){ ' + AQuebraLinhaJsZN +
' alert("www.estacaozn.blogspot.com: Os números são iguais: " + ZNObjInput.value); ' + AQuebraLinhaJsZN +
' return false; ' + AQuebraLinhaJsZN +
' } ' + AQuebraLinhaJsZN +
'' + AQuebraLinhaJsZN +
' ZnAuxTamanho = ZnAuxCNPJ.length - 2' + AQuebraLinhaJsZN +
' ZnDigitos = ZnAuxCNPJ.substring(0,ZnAuxTamanho);' + AQuebraLinhaJsZN +
' ZnDg = ZnAuxCNPJ.substring(ZnAuxTamanho);' + AQuebraLinhaJsZN +
' ZnSum = 0;' + AQuebraLinhaJsZN +
' ZnPos = ZnAuxTamanho - 7;' + AQuebraLinhaJsZN +
' for (ZnCount = ZnAuxTamanho; ZnCount >= 1; ZnCount--){' + AQuebraLinhaJsZN +
' ZnSum += ZnDigitos.charAt(ZnAuxTamanho - ZnCount) * ZnPos--;' + AQuebraLinhaJsZN +
' if (ZnPos < 2)' + AQuebraLinhaJsZN +
' ZnPos = 9;' + AQuebraLinhaJsZN +
' }' + AQuebraLinhaJsZN +
' ZnResult = ZnSum % 11 < 2 ? 0 : 11 - ZnSum % 11;' + AQuebraLinhaJsZN +
' if (ZnResult != ZnDg.charAt(0)){' + AQuebraLinhaJsZN +
' ZNObjInput.focus();' + AQuebraLinhaJsZN +
' return false;' + AQuebraLinhaJsZN +
' }' + AQuebraLinhaJsZN +
'' + AQuebraLinhaJsZN +
' ZnAuxTamanho = ZnAuxTamanho + 1;' + AQuebraLinhaJsZN +
' ZnDigitos = ZnAuxCNPJ.substring(0,ZnAuxTamanho);' + AQuebraLinhaJsZN +
' ZnSum = 0;' + AQuebraLinhaJsZN +
' ZnPos = ZnAuxTamanho - 7;' + AQuebraLinhaJsZN +
' for (ZnCount = ZnAuxTamanho; ZnCount >= 1; ZnCount--){' + AQuebraLinhaJsZN +
' ZnSum += ZnDigitos.charAt(ZnAuxTamanho - ZnCount) * ZnPos--;' + AQuebraLinhaJsZN +
' if (ZnPos < 2)' + AQuebraLinhaJsZN +
' ZnPos = 9;}' + AQuebraLinhaJsZN +
'' + AQuebraLinhaJsZN +
' ZnResult = ZnSum % 11 < 2 ? 0 : 11 - ZnSum % 11;' + AQuebraLinhaJsZN +
' if (ZnResult != ZnDg.charAt(1)){' + AQuebraLinhaJsZN +
' ZNObjInput.focus();' + AQuebraLinhaJsZN +
' return false;}' + AQuebraLinhaJsZN +
' else {' + AQuebraLinhaJsZN +
' return true;' + AQuebraLinhaJsZN +
' }' + AQuebraLinhaJsZN +
' }' + AQuebraLinhaJsZN;

AFncValorRequerido =
' function ValorRequerido(){ ' + AQuebraLinhaJsZN +
' var ObjInput = document.getElementById("%s"); ' + AQuebraLinhaJsZN +
' var AFriendlyName = "%s"; ' + AQuebraLinhaJsZN +
' if (ObjInput.value == ""){ ' + AQuebraLinhaJsZN +
' alert("É obrigatório o valor para o campo: " + AFriendlyName); ' + AQuebraLinhaJsZN +
' ObjInput.style.backgroundColor = "#FD88AA"; ' + AQuebraLinhaJsZN +
' ObjInput.focus(); ' + AQuebraLinhaJsZN +
' return false; ' + AQuebraLinhaJsZN +
' }' + AQuebraLinhaJsZN +
' else { ' + AQuebraLinhaJsZN +
' ObjInput.style.backgroundColor = "#FFFFFF"; ' + AQuebraLinhaJsZN +
' }' + AQuebraLinhaJsZN +
' return true;}' + AQuebraLinhaJsZN;

AFncCriticaCIC2 =
' function CriticaCIC2(ZnCnpjBool, ZnCpfBool){ ' + AQuebraLinhaJsZN +
' var ZnNumCic = document.getElementById("%s"); ' + AQuebraLinhaJsZN +
' alert("www.estacaozn.blogspot.com verifica CPF/CNPJ");' + AQuebraLinhaJsZN +
' var CicValidoZn = false; ' + AQuebraLinhaJsZN +
' ' + AQuebraLinhaJsZN +
' if (ZnCnpjBool && !ZnCpfBool) { ' + AQuebraLinhaJsZN +
' if(!ZnVerificaCnpj(ZnNumCic)){ ' + AQuebraLinhaJsZN +
' alert("CNPJ Inválido"); ' + AQuebraLinhaJsZN +
' return false;} ' + AQuebraLinhaJsZN +
' } ' + AQuebraLinhaJsZN +
' else if (!ZnCnpjBool && ZnCpfBool){ ' + AQuebraLinhaJsZN +
' if (!ZnVerificaCPF(ZnNumCic)){ ' + AQuebraLinhaJsZN +
' alert("CPF inválido"); ' + AQuebraLinhaJsZN +
' return false; ' + AQuebraLinhaJsZN +
' ;} ' + AQuebraLinhaJsZN +
' } ' + AQuebraLinhaJsZN +
' else { ' + AQuebraLinhaJsZN +
' CicValidoZn = ZnVerificaCnpj(ZnNumCic); ' + AQuebraLinhaJsZN +
' if(CicValidoZn){ ' + AQuebraLinhaJsZN +
' return true;} ' + AQuebraLinhaJsZN +
' else{ ' + AQuebraLinhaJsZN +
' CicValidoZn = ZnVerificaCPF(ZnNumCic); ' + AQuebraLinhaJsZN +
' if(!CicValidoZn){ ' + AQuebraLinhaJsZN +
' alert("CIC Inválido") ' + AQuebraLinhaJsZN +
' return false;} ' + AQuebraLinhaJsZN +
' } ' + AQuebraLinhaJsZN +
' } ' + AQuebraLinhaJsZN +
' var ZnMsg = ""; ' + AQuebraLinhaJsZN +
' if (ZnCnpjBool && ZnCpfBool) { ' + AQuebraLinhaJsZN +
' ZnMsg = "CPJ ou CNPJ"; }' + AQuebraLinhaJsZN +
' if (ZnCnpjBool && !ZnCpfBool) { ' + AQuebraLinhaJsZN +
' ZnMsg = "CNPJ"; }' + AQuebraLinhaJsZN +
' if (!ZnCnpjBool && ZnCpfBool) { ' + AQuebraLinhaJsZN +
' ZnMsg = "CPF"; }' + AQuebraLinhaJsZN +
' alert("Valor Validado Ok, " +ZnMsg + ": " + ZnNumCic.value);' + AQuebraLinhaJsZN +
' return true;} ' + AQuebraLinhaJsZN;

procedure TIWForm1.IWAppFormCreate(Sender: TObject);
begin
Self.JavaScript.Add('');
Self.JavaScript.Add(AFncCriticaCPF);
Self.JavaScript.Add('');
Self.JavaScript.Add(AFncCriticaCNPJ);
Self.JavaScript.Add('');
Self.JavaScript.Add(AFncCriticaCIC);
Self.JavaScript.Add('');
// O IWButton1 vai validar as duas opções CPF e CNPJ
IWButton1.Caption := 'Valida CPF e CNPJ';
IWButton1.Width := 200;
IWButton1.ExtraTagParams.Add(
Format('onClick=CriticaCIC(%s, %s, %s)', [UpperCase(IWEdit1.Name),
'true', 'true']));
//O IWButton2 vai validar apenas CPF
IWButton2.Caption := 'Valida CPF';
IWButton2.Width := 200;
IWButton2.ExtraTagParams.Add(
Format('onClick=CriticaCIC(%s, %s, %s)', [UpperCase(IWEdit1.Name),
'false', 'true']));
//O IWButton3 vai validar apenas CNPJ
IWButton3.Caption := 'Valida CNPJ';
IWButton3.Width := 200;
IWButton3.ExtraTagParams.Add(
Format('onClick=CriticaCIC(%s, %s, %s)', [UpperCase(IWEdit1.Name),
'true', 'false']));

(* segunda parte do artigo:
OnClick do IWButton chamar mais de uma função Javascript *)
IWEdit1.FriendlyName := 'CIC: CNPJ ou CPF';
Self.JavaScript.Add('//**************************************');
Self.JavaScript.Add('//segunda parte do artigo:' + #13 +
'// OnClick do IWButton chamar mais de uma função Javascript');
Self.JavaScript.Add(Format(AFncCriticaCIC2, [UpperCase(IWEdit1.Name)]));
Self.JavaScript.Add('');

Self.JavaScript.Add('');
Self.JavaScript.Add(Format(AFncValorRequerido, [UpperCase(IWEdit1.Name),
IWEdit1.FriendlyName]));
Self.JavaScript.Add('//*******www.estacaozn.blogspot.com**********');

IWButton4.Caption := 'Valor Obrigatório & Valida CIC';
IWButton4.Width := 360;
IWButton4.ScriptEvents.Add('onClick').EventCode.Add(
'return ValorRequerido() && CriticaCIC2(true, true)');

(* testando chamar duas funções Javascript na propriedade ExtraTagParams *)

(* IWButton5.ExtraTagParams.Add(
Format('onClick=return ValorRequerido() && CriticaCIC(%s, %s, %s)', [UpperCase(IWEdit1.Name),
'true', 'true'])); *)

IWButton5.ExtraTagParams.Add(
Format('onClick=return ValorRequerido() && CriticaCIC2(true, true)',
[UpperCase(IWEdit1.Name)]));
end;

procedure TIWForm1.IWButton4Click(Sender: TObject);
begin
IWLabel1.Font.Size := 16;
IWLabel1.Caption := Format('Valor digitado válido: %s', [IWEdit1.Text]); ;
end;

procedure TIWForm1.IWButton5Click(Sender: TObject);
begin
IWLabel1.Caption := IWEdit1.Text;
WebApplication.ShowMessage('Se você esta codificando esse exemplo corretamente, '+
'essa mensagem nunca não vai ser exibida. Jamais será! Garanto (heheh ..).');
end;
(* esse trecho para Intrweb 8*)
initialization
TIWForm1.SetAsMainForm;


Abaixo, trecho código Javascript gerado pelo Intraweb como resultado do processamento do que implementamos em Delphi.



function ZnVerificaCPF (ZnCpfObj){
var gmSort = new Array(ZnCpfObj.value.length);
for (i=0; i< ZnCpfObj.value.length; i++){gmSort[i] = ZnCpfObj.value.charAt(i);}
gmSort.sort();
if (gmSort[0] == gmSort[gmSort.length -1]){
alert("www.estacaozn.blogspot.com: Os números são iguais: " + ZnCpfObj.value);
return false;
}
ZnAuxCal = 0;
for (ZnCont = 0; ZnCont < 9; ZnCont ++)
ZnAuxCal += parseInt(ZnCpfObj.value.charAt(ZnCont)) * (10 - ZnCont);
DgVZn = 11 - (ZnAuxCal % 11);
if (DgVZn == 10 || DgVZn == 11)
DgVZn = 0;
if (DgVZn != parseInt(ZnCpfObj.value.charAt(9)))
return false;
ZnAuxCal = 0;
for (ZnCont = 0; ZnCont < 10; ZnCont ++)
ZnAuxCal += parseInt(ZnCpfObj.value.charAt(ZnCont)) * (11 - ZnCont);
DgVZn = 11 - (ZnAuxCal % 11);
if (DgVZn == 10 || DgVZn == 11)
DgVZn = 0;
if (DgVZn != parseInt(ZnCpfObj.value.charAt(10))){
return false;}
//alert("O CPF INFORMADO É VÁLIDO.");
return true;
}


function ZnVerificaCnpj(ZNObjInput){
var ZnDigitos, ZnDg, ZnSum, ZnCount;
var ZnResult, ZnPos, tamanho;
var ZnAuxCNPJ = ZNObjInput.value.replace(/\D+/g, "");

if (ZnAuxCNPJ.length != 14){
ZNObjInput.focus();
return false;
}
var gmSort = new Array(ZNObjInput.value.length);
for (i=0; i< ZNObjInput.value.length; i++){gmSort[i] = ZNObjInput.value.charAt(i);}
gmSort.sort();
if (gmSort[0] == gmSort[gmSort.length -1]){
alert("www.estacaozn.blogspot.com: Os números são iguais: " + ZNObjInput.value);
return false;
}

ZnAuxTamanho = ZnAuxCNPJ.length - 2
ZnDigitos = ZnAuxCNPJ.substring(0,ZnAuxTamanho);
ZnDg = ZnAuxCNPJ.substring(ZnAuxTamanho);
ZnSum = 0;
ZnPos = ZnAuxTamanho - 7;
for (ZnCount = ZnAuxTamanho; ZnCount >= 1; ZnCount--){
ZnSum += ZnDigitos.charAt(ZnAuxTamanho - ZnCount) * ZnPos--;
if (ZnPos < 2)
ZnPos = 9;
}
ZnResult = ZnSum % 11 < 2 ? 0 : 11 - ZnSum % 11;
if (ZnResult != ZnDg.charAt(0)){
ZNObjInput.focus();
return false;
}

ZnAuxTamanho = ZnAuxTamanho + 1;
ZnDigitos = ZnAuxCNPJ.substring(0,ZnAuxTamanho);
ZnSum = 0;
ZnPos = ZnAuxTamanho - 7;
for (ZnCount = ZnAuxTamanho; ZnCount >= 1; ZnCount--){
ZnSum += ZnDigitos.charAt(ZnAuxTamanho - ZnCount) * ZnPos--;
if (ZnPos < 2)
ZnPos = 9;}

ZnResult = ZnSum % 11 < 2 ? 0 : 11 - ZnSum % 11;
if (ZnResult != ZnDg.charAt(1)){
ZNObjInput.focus();
return false;}
else {
return true;
}
}


function CriticaCIC(ZnNumCic, ZnCnpjBool, ZnCpfBool){
alert("www.estacaozn.blogspot.com verifica CPF/CNPJ");
var CicValidoZn = false;

if (ZnCnpjBool && !ZnCpfBool) {
if(!ZnVerificaCnpj(ZnNumCic)){
alert("CNPJ Inválido");
return false;}
}
else if (!ZnCnpjBool && ZnCpfBool){
if (!ZnVerificaCPF(ZnNumCic)){
alert("CPF inválido");
return false;
;}
}
else {
CicValidoZn = ZnVerificaCnpj(ZnNumCic);
if(CicValidoZn){
return true;}
else{
CicValidoZn = ZnVerificaCPF(ZnNumCic);
if(!CicValidoZn){
alert("CIC Inválido")
return false;}
}
}
var ZnMsg = "";
if (ZnCnpjBool && ZnCpfBool) {
ZnMsg = "CPJ ou CNPJ"; }
if (ZnCnpjBool && !ZnCpfBool) {
ZnMsg = "CNPJ"; }
if (!ZnCnpjBool && ZnCpfBool) {
ZnMsg = "CPF"; }
alert("Valor Validado Ok, " +ZnMsg + ": " + ZnNumCic.value);
return true;}


//**************************************
//segunda parte do artigo:
// OnClick do IWButton chamar mais de uma função Javascript
function CriticaCIC2(ZnCnpjBool, ZnCpfBool){
var ZnNumCic = document.getElementById("IWEDIT1");
alert("www.estacaozn.blogspot.com verifica CPF/CNPJ");
var CicValidoZn = false;

if (ZnCnpjBool && !ZnCpfBool) {
if(!ZnVerificaCnpj(ZnNumCic)){
alert("CNPJ Inválido");
return false;}
}
else if (!ZnCnpjBool && ZnCpfBool){
if (!ZnVerificaCPF(ZnNumCic)){
alert("CPF inválido");
return false;
;}
}
else {
CicValidoZn = ZnVerificaCnpj(ZnNumCic);
if(CicValidoZn){
return true;}
else{
CicValidoZn = ZnVerificaCPF(ZnNumCic);
if(!CicValidoZn){
alert("CIC Inválido")
return false;}
}
}
var ZnMsg = "";
if (ZnCnpjBool && ZnCpfBool) {
ZnMsg = "CPJ ou CNPJ"; }
if (ZnCnpjBool && !ZnCpfBool) {
ZnMsg = "CNPJ"; }
if (!ZnCnpjBool && ZnCpfBool) {
ZnMsg = "CPF"; }
alert("Valor Validado Ok, " +ZnMsg + ": " + ZnNumCic.value);
return true;}



function ValorRequerido(){
var ObjInput = document.getElementById("IWEDIT1");
var AFriendlyName = "CIC: CNPJ ou CPF";
if (ObjInput.value == ""){
alert("É obrigatório o valor para o campo: " + AFriendlyName);
ObjInput.style.backgroundColor = "#FD88AA";
ObjInput.focus();
return false;
}
else {
ObjInput.style.backgroundColor = "#FFFFFF";
}
return true;}

//*******www.estacaozn.blogspot.com**********

function Validate() {
return true;
}



4 comentários:

  1. Estou começando a trabalhar com Delphi IntraWeb e gostei muito dos seus posts! Esse é um assunto muito difícil de achar na internet. Obrigada por postá-los e parabéns pelo site!!! =D

    ResponderExcluir
  2. Obrigado pelo feedback!
    Mesmo que esse conteúdo sirva apenas pra uma pessoa (o que não é caso), pra mim, já valeu.
    Tks!

    ResponderExcluir
  3. Muito bom o seu artigo
    Isso vale para muitos.

    ResponderExcluir
  4. Excelente,
    Estou sempre de olho no teu site para procurar assuntos sobre intraweb.
    Tks.
    Renato

    ResponderExcluir

 
BlogBlogs.Com.Br