quarta-feira, 30 de agosto de 2017

AULA 1251 WINDEV DICAS 42 CNPJ VALIDO

























=======================================================



_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











Teste

Teste
teste