=======================================================
_CNPJ is string=EDT_cnpj
_Peso is 2-byte unsigned int
_Resto is 1-byte int
_Digito is 1-byte int
_Peso = _peso_calculo(_CNPJ[[1 TO 4]],2) + _peso_calculo(_CNPJ[[5 TO 12]],2)
// calculo do 1o digito verificador (posição 13)
_Resto = modulo(_Peso,11)
IF _Resto < 2 THEN
_Digito = 0
ELSE
_Digito = 11 - _Resto
END
_Peso = _peso_calculo(_CNPJ[[1 TO 5]],2) + _peso_calculo(_CNPJ[[6 TO 13]],2) // calculo do segundo 2 verificador (posição 14)
_Resto = modulo(_Peso,11)
IF _Resto < 2 THEN
_Digito = 0
ELSE
_Digito = 11 - _Resto
END
IF Asc(_CNPJ[[14]])-48 <> _Digito THEN
Info("CALCULO ERRADO")
ELSE
Info("CALCULO CERTO")
END
INTERNAL PROCEDURE _peso_calculo(pNro is string, _MenorPeso is int)
_Tam is int = Length(pNro)
_Peso_1 is 2-byte unsigned int = 0
FOR i=1 TO _Tam
_Peso_1 = _Peso_1 + (Asc(pNro[[i]]) -48) * (_Tam-i+_MenorPeso)
END
RESULT _Peso_1
END
Backup e Restore Projeto Windev - 001
Dicionario e Supecontrole - 002
Cd - CdEject CdList - Abre e Lista CD - 003
Dicionario e SuperControle - 004
Cnpj - Formatar com Pontos Barra Ifen - 005
Controlfindhighlight - Pesquizar Palavras entre edts - 006
Som - Emitir - Beep - 007
Valor Minimo e Maximo - MinValue / MaxValue - Dicas - 008
Vazio - Empty - Ver se combox,tabela,ou etc Esta Vazio - 009 - Dicas
Pdf - Ler Pdf com Active X - 010
Baixar Titulos Contas Receber - Dica - 011
Saldo Anterior Caixa - Como Calcular - Dica - 012
Anos - Mostrar Anos Pagamentos Recebimentos - Dica - 013
Mes Por Extenso - MonthNumberInAlpha - Dicas - 014
Clone Tabela - Meses com Varios Anos - Dicas - 015
Tecla Atalho - Control + Alt + Espaco - WinDev - dicas - 016/...
ControleCreate - Criar bloco Notas - Notes - WinDev - Dicas - 017/...
Alt - Static - Apertando Alt em Cima Static - Altera borda - Windev - Dicas 018/...
Guardar Valor - WinDev - Dicas 019/...
Pegar Quantidade/Valor/Codigo Cupom - WinDev - Dicas- 020
Consultar Alterar cliente e Procurar - WinDev - Dicas - 021Código - Consultar alterar Cliente e Procurar - WinDev dicas - 022
Grupos - Colocar Grupo e Deixar visivel ou Não - WinDev Dicas 023
Historio Erp 1/... - Analise- Segurança - WinDev Dicas 024
Historio Erp 2/... - Telas Iniciais - WinDev Dicas 025
Historio Erp 3/... - Analise- Alterações - WinDev Dicas 026
Historico Erp 4/Final - Empresa - Gravar Historioco - WinDev Dicas 027
Estilo Mudar Quando Chegar F2 - WinDev Dicas 028
Ajuda - Como Fazer String - WinDev Dicas 029 - Aula 1134
Cor do Campo - Quando Der Foco - Dicas 030 - Aula 1135
Tab trocar por enter - Dicas 031/... - Aula 1136
Save As - Copiar Windows Reports Dicas 032/... Aula 1161
EXE E WDL, NUM MESMO PROJETO - DICAS 033 / AULA 1183
InfoWithTimeout - DICAS 034 / AULA 1186
PLANOS - TREINAMENTO - DICAS 035 / AULA 1220
FONTES - ALTERAR EDT / STC -> DICAS 036 / AULA 1221
HINT - TEXTO EDIÇÃO QUANDO VAZIO - DICAS 037
F2 E CTRL F2 - DICAS 038 - AULA 1239
COMO NAO TRANCAR BANCOS GAS TECN - DICAS 039 AULA 1241
FAZER TABELA DE AJUDA - DICAS 040 AULA 1242
ELIMINAR ERROS WINDEV DICAS 041 AULA 1243
CNPJ VALIDO - DICAS 042 AULA 1251
ELIMINAR ERROS WINDEV DICAS 041 AULA 1243
CNPJ VALIDO - DICAS 042 AULA 1251