Testez WINDEV Express sur vos bases de données

---

---

https://www.youtube.com/watch?v=bnLePe6HxsY

Transmitido ao vivo em 21 de jul de 2015

Vous découvrirez dans cette vidéo comment accéder à vos bases de données (Oracle, SQL Server, MySQL, ...) ,depuis WINDEV Express.

Windev - Curso - 27/... - EXTERN

---

VIDEO - CURSO WINDEV - EXTERN - 27/..

---

---

---

Blog - Curso Iniciante /1/... - Inicio
Blog - Curso Iniciante /2/... - Menu
Blog - Curso Iniciante /3/... Campos  
Blog - Curso Iniciante /4/... - Duvida/Style
Blog - Curso Iniciante /5/... - Menu
Blog - Curso Iniciante /6/... - Menu 2
Blog - Curso Iniciante /7/... - If / ShellExecute  
Blog - Curso Iniciante /8/... - ReturntoCapture 
Blog - Curso Iniciante /9/... - Info
Blog - Curso Iniciante /10/.. - DateSys - Now
Blog - Curso Iniciante /11/... - Criando Analise Agenda 
Blog - Curso Iniciante /12/... - Menu , Agenda
Blog - curso Iniciante /13/... - HreadSeek  
Blog - curso Iniciante /14/... - For Each - Percorrer Tabela 
Blog - Curso Iniciante /15/... - Query Consultas
Blog - Curso Iniciante /16/... - Tabela Relatorio
Blog - Curso Iniciante /17/... - Relatorio Criando 
Blog - Curso Iniciante /18/... - Relatorio Manual 
Blog - Curso Iniciante /19/.. - Menu Popup
Blog - Curso Iniciante /20/... - Data - Separar dia mes e ano
Blog - Curso Iniciante /21/... - Time - Separar hora/min/seg 
Blog - Curso Iniciante /22/... - Operadores
Blog - Curso Iniciante /23/... - String Igualdade 
Blog - Curso Iniciante /24/... - Switch / Case
Blog - Curso Iniciante /25/... - LOOP 
Blog - Curso Iniciante /26/... - FOR
Blog - Curso /27/... - Extern 
Blog - Curso /28/... - My 
Blog - Curso /29/... Procedures
Blog - Curso /30/... HSave  .. - Inclui Um Registro
Blog - Curso /31/... - Hsave - Altera um Registro
Blog - Curso /32/... - HDelete - Exclui Registro(s)
Blog - Curso /33/... - Relatorio
Blog - Curso /34/... - Dialog 
Blog - Curso /35/... - Input
blog - Curso /36/... - Combox 
Blog - Curso /37/... Combox Tabela 
Blog - Curso /38/... List Box
Blog - Curso /39/... - Analise Agenda/Ligacoes
Blog - Curso /40/... - Rad - Tabela Relacionada Agenda/Ligações
Blog - Curso /41/... - Tabela Relacionada Manual
Blog - Curso /42/... - Dica Tela/Code Separado
Blog - Curso /43/... - Mapa /1..
Blog - Curso /44/... - Mapa /2.. Imprime
Blog - Curso /45/... - Fechar Programa - EndPrograma()
Blog - Curso /46/... - Camera Habilita/Desabilita 
Blog - Curso /47/... - Tabela e Formulario - Configurar Cnpj
Blog - Curso /48/... - Camera - Tirar Uma Foto e Gravar Imagem
Blog - Curso /49/... - Reports e Queies - Instalacao
Blog - Curso /50/... Reports e Queies - Relatorio - Como Gerar 
Blog - Curso /51/... Pedidos/Orcamento 1/... Analise
Blog - Curso /52/... Pedidos/Orcamento 2/.. Analise Windev
Blog - Curso /53/... Pedidos/Orcamento 3/... Relacionamento
Blog - Curso /54/... Pedidos Orcamento 4/... Rad
Blog - Curso /55/... Pegar Quantidade e Codigo - Separador * 
Blog - Curso /56/... Pegar Retorno de Uma Tabela e colocar Campo 
Blog - Curso /57/... Xml - Ler Conteudo Tags e Importar Pedido
Blog - Curso /58/... Ini - Ler e Gravar 
Blog - Curso /59/... Pedidos Orcamento 5/... Inicio Digitacao Pedido
Blog - Curso /60/... Pedidos Orcamento 6/... Digitando Iten Pedido
Blog - Curso /61/... Pedidos orcamento 7/... Gravando Pedido e Itens   
Blog - Curso /62/... Pedido Orcamento 8/... Consulta cliente   
Blog - Curso /63/... Tabela - Ancorar Coluna
Blog - Curso /64/... Tabela - Esconder ou Mostrar Coluna 
Blog - Curso /65/... RSS 
Blog - Curso /66/... Pedido Orcamento 9/... Consulta Material
Blog - Curso /67/... Tabelas, Control F Pesquisa Toda Tabela /Contenha/Cor Fundo
Blog - Curso /68/... Pedidos Orcamento 10/... Planos - Condições Pagamento 
Blog - Curso /69/... - Calculadora dentro do Campo Valor 
Blog - Curso /70/... Mapa - Itinerario
Blog - Curso /71/... Tabela - Alterar Nome Coluna
Blog - Curso /72/... Botal Fazer Menu popup 
Blog - Curso /73/... Debug - Como Usar
Blog - Curso /74/... Tabela Alinhar Coluna Lado Esquerdo 
Blog - Curso /75/... Pedidos Orcamento 11/... Quantidade /Mascara/Mudar
Blog - Curso /76/... YesNo - Pergunta Se Deseja Eliminar 
Blog - Curso /77/... Select - Case - Query
Blog - Curso /78/... Pedido/Orcamento 12/... - Analise Cond.Pagto
Blog - Curso /79/... Campos - Como Alterar configuracao via Codigo
Blog - Curso /80/... Pedido/Orcamento 13/... - Tabela,Gerar Condicoes/Parcelas
Blog - Curso /81/... Configuracao Trocar Exe para Wdl ou outro 
Blog - Curso /82/... Utilitarios - PopUp - Aumento Precos Materiais 
Blog - Curso /82/... TableEnableFilter - Digita Nome e Filtra 
Blog - Curso /83/... TableEnableFilter - Digita Nome e Filtra 
Blog - Curso /84/... Dica Copiar Colar Texto Ou Imagen Pdf
Blog - Curso /85/... SElect Como Usar Wizard 
Blog - Curso /86/... Radio - Colocar tudo Mesma Linha
Blog - Curso /87/... Procedure - Melhoria Versao20 - Parametros
Blog - Curso /88/... Style - Tabela Como Alterar
Blog - Curso /89/... Style - Tab Como Alterar
Blog - Curso /90/... Pedido/Orcamento 14/... - Style - Mudando Botao Procura
Blog - Curso /91/... - Pedido/Orcamento 15/... - Pedido - Totalizar Colunas Tabela
Blog - Curso /92/... Backup - Hyperfile 
Blog - Curso /93/... Debug - STOP 
Blog - Curso /94/... Tabela - Alterar Cor da Coluna - Texto
Blog - Curso /95/... Select Max - Pegar o Numero Proxima Nota 
Blog - Curso /96/... Tabela Divisao de Muitas Colunas 
Blog - Curso /97/... Analise - Configurar Campo para Vir Automatico Combox 
Blog - Curso /98/... Tabela - Double click - Entrar direto Alteração do Cliente 
Blog - Curso /99/... Tabela MultiSeleção
Blog - Curso/100/... Tabela - TableMoveLine - Move Linha Baixou ou Cima
Blog - Curso/101/... TableAjust - Ajustar Tabela com Colunas
Blog - Curso/102/... TableSort - Ordem nas Colunas

Arquivo - Estrutura

1
EXEMPLO DE PIVO,GRAFICO,ESTRUTURA
ROTINAS DIVERSAS
WIN_PIVO

_arquivos is Structure   
    representante_nome is string
    cidade_nome is string
    cliente_nome is string
    data_Venda is Date
    valor_Venda is currency

END
st_arquivo is _arquivos
garr_array is array of _arquivos

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

//st_arquivo is _arquivos
//garr_array is array of _arquivos
TableDeleteAll(TABLE_PIVO)

FOR EACH duplicata_pagar
    st_arquivo.representante_nome="AMARILDO"
    st_arquivo.cidade_nome="NOVO HAMBURGO"
    st_arquivo.cliente_nome="ASSS"
    st_arquivo.data_Venda=duplicata_pagar.data_vencimento
    st_arquivo.valor_Venda=duplicata_pagar.valor_titulo
    TableAddLine(TABLE_PIVO,st_arquivo.representante_nome,st_arquivo.cidade_nome,st_arquivo.cliente_nome,st_arquivo.data_Venda,st_arquivo.valor_Venda)
    ArrayAddLine(garr_array,st_arquivo)
END

TableDisplay(TABLE_PIVO)
PVTCalculateAll(PVT_NoName1)

Teclas Pressionada - como Descobrir Tecla

VIDEO COMO VER TECLA DIGITADA

http://doc.windev.com/en-US/?3014007&name=KeyPressed

EXTERN "KEYCONST.wl"

---

IF KeyPressed(VK_F5) THEN
    MyWindow..Plane=2
    ReturnToCapture(EDT_NomeMaterial)   
END

---

// C:\WINDEV 20\Personal\External
// Definition of constants used by Windows for the keyboard keys
// (especially _EVE.wparam in WM_KEYDOWN)
// The keys from [0] to [9] and from [A] to [Z] are identified by their ASCII code
// (charact("0")=0x30 - charact("9")=0x39) and (charact("A")=0x41 - charact("Z")=0x5A)
//  Check beside Microsoft (msdn.microsoft.com) for a full description of these constants


CONSTANT
  VK_LBUTTON =          0x01
  VK_RBUTTON =       0x02
  VK_CANCEL  =       0x03
  VK_MBUTTON =       0x04  

  VK_BACK    =       0x08
  VK_TAB     =       0x09

  VK_CLEAR   =       0x0C
  VK_RETURN  =       0x0D

  VK_SHIFT   =       0x10
  VK_CONTROL =       0x11
  VK_MENU    =       0x12
  VK_PAUSE   =       0x13
  VK_CAPITAL =       0x14

  VK_KANA    =       0x15
  VK_HANGUL  =       0x15
  VK_JUNJA   =       0x17
  VK_FINAL   =       0x18
  VK_HANJA   =       0x19
  VK_KANJI   =       0x19

  VK_ESCAPE  =       0x1B

  VK_CONVERT =       0x1C
  VK_NONCONVERT =    0x1D
  VK_ACCEPT  =       0x1E
  VK_MODECHANGE =    0x1F

  VK_SPACE =         0x20
  VK_PRIOR =         0x21
  VK_NEXT  =         0x22
  VK_END   =         0x23
  VK_HOME  =         0x24
  VK_LEFT  =         0x25
  VK_UP    =         0x26
  VK_RIGHT =         0x27
  VK_DOWN  =         0x28
  VK_SELECT=         0x29
  VK_PRINT =         0x2A
  VK_EXECUTE =       0x2B
  VK_SNAPSHOT=       0x2C
  VK_INSERT =        0x2D
  VK_DELETE =        0x2E
  VK_HELP  =         0x2F


  VK_LWIN =          0x5B
  VK_RWIN =          0x5C
  VK_APPS =          0x5D

  VK_NUMPAD0 =       0x60
  VK_NUMPAD1 =       0x61
  VK_NUMPAD2 =       0x62
  VK_NUMPAD3 =       0x63
  VK_NUMPAD4 =       0x64
  VK_NUMPAD5 =       0x65
  VK_NUMPAD6 =       0x66
  VK_NUMPAD7 =       0x67
  VK_NUMPAD8 =       0x68
  VK_NUMPAD9 =       0x69
  VK_MULTIPLY=       0x6A
  VK_ADD =           0x6B
  VK_SEPARATOR =     0x6C
  VK_SUBTRACT =      0x6D
  VK_DECIMAL=       0x6E
  VK_DIVIDE =        0x6F
  VK_F1 =            0x70
  VK_F2 =            0x71
  VK_F3 =            0x72
  VK_F4 =            0x73
  VK_F5 =            0x74
  VK_F6 =            0x75
  VK_F7 =            0x76
  VK_F8 =            0x77
  VK_F9 =            0x78
  VK_F10 =           0x79
  VK_F11 =           0x7A
  VK_F12 =           0x7B
  VK_F13 =           0x7C
  VK_F14 =           0x7D
  VK_F15 =           0x7E
  VK_F16 =           0x7F
  VK_F17 =           0x80
  VK_F18 =           0x81
  VK_F19 =           0x82
  VK_F20 =           0x83
  VK_F21 =           0x84
  VK_F22 =           0x85
  VK_F23 =           0x86
  VK_F24 =           0x87

  VK_NUMLOCK =       0x90
  VK_SCROLL =        0x91

  // These constants can only be used with KeyPressed() and
  // with the following APIs: GetAsyncKeyState() and GetKeyState().
  // These values are returned by no message or API. DON'T test them in WM_KEYDOWN.
  VK_LSHIFT  =       0xA0
  VK_RSHIFT  =       0xA1
  VK_LCONTROL =      0xA2
  VK_RCONTROL =      0xA3
  VK_LMENU   =       0xA4
  VK_RMENU   =       0xA5

  VK_PROCESSKEY =   0xE5

  VK_ATTN  =         0xF6
  VK_CRSEL =         0xF7
  VK_EXSEL =         0xF8
  VK_EREOF =         0xF9
  VK_PLAY  =         0xFA
  VK_ZOOM  =         0xFB
  VK_NONAME =        0xFC
  VK_PA1   =         0xFD
  VK_OEM_CLEAR =     0xFE

END

---

---

---

---

---

amarildo@matosinformatica.com.br

---

Windev Mobile - 23/... Menu - Layout - Receita Bolo -

---

---

---

VIDEO - WINDEV MOBILE - 23/..MENU

---

---

---

Blog - Windev Mobile - Instalaca - Android 1/...
Blog - Windev Mobile - Instalacao - Java 2/...
Blog - windev Mobile - MyExplorer 3/...
Blog - Windev Mobile - Android - Configurar Ansi 5/...
Blog - Windev Mobile - Layout - 6/.... 
Blog - Windev Mobile - Target_Code - 8/...
Blog - Windev Mobile - Agenda Cadastrar - 9/...
Blog - Windev Mobile - Agenda Mostrar - 10/...
Blog - Windev Mobile - Agenda Alterar - 11/...
Blog - Windev Mobile - Agenda Excluir - 12/...
Blog - Windev Mobile - HyperFile Error - 13/...
Blog - Windev Mobile -Tirar Foto - 14/... 
Blog - Windev Mobile - Pegar Foto Album - 15/...
Blog - Windev Mobile - hyperfil server - Acessar Rede/Could - Parte - 16/...
Blog - Windev Mobile - Query - Criar Consulta - Looper - Parte 17/...
Blog - Windev Mobile - Query - Tabela - Parte 18/...
Blog - Windev Mobile - Query - Filtro Acrescentar - Parte 19/...
Blog - Windev Mobile - Email - Parte 20/...
Blog - Windev Mobile - Analise Bolo Receita a/.. - Parte 21/...
Blog - Windev Mobile - Analise Bolo Receita b/... - Parte 22/...
Blog - Windev Mobile - Receita Bolo c/.. - Menu/Layout - Parte 23/...
Blog - Windev Mobile - Receita Bolo d/.. - Categoria - Parte 24/...
Blog - Widnev Mobile - Receita bolo e/.. - Categoria Altera/Exclui - Parte 25/...
Blog - Windev Mobile - 26/... - Receita Bolo - Combox Categoria
Blog - Windev Mobile - 27/.. - Receita Bolo - Tabela Bolo
Blog - Windev Mobile - 28/... - Xml - Retirar Conteudo Blog - Funcao
Blog - Windev Mobile - 29/... - Pdf - Ler Pdf Direto do Aparelho Android 
Blog - Windev Mobile - 30/... - Pdf - Ler Pdf Direto do Aparelho Android - Final 
Blog - Windev Mobile - 31/... - Looper - Criar Manual e Selecionar Informação

Windev - Curso Iniciante - 26/... - FOR

---

VIDEO - WINDEV CURSO INICIANTE - 26-FOR

---

---

---

Blog - Curso Iniciante /1/... - Inicio
Blog - Curso Iniciante /2/... - Menu
Blog - Curso Iniciante /3/... Campos  
Blog - Curso Iniciante /4/... - Duvida/Style
Blog - Curso Iniciante /5/... - Menu
Blog - Curso Iniciante /6/... - Menu 2
Blog - Curso Iniciante /7/... - If / ShellExecute  
Blog - Curso Iniciante /8/... - ReturntoCapture 
Blog - Curso Iniciante /9/... - Info
Blog - Curso Iniciante /10/.. - DateSys - Now
Blog - Curso Iniciante /11/... - Criando Analise Agenda 
Blog - Curso Iniciante /12/... - Menu , Agenda
Blog - curso Iniciante /13/... - HreadSeek  
Blog - curso Iniciante /14/... - For Each - Percorrer Tabela 
Blog - Curso Iniciante /15/... - Query Consultas
Blog - Curso Iniciante /16/... - Tabela Relatorio
Blog - Curso Iniciante /17/... - Relatorio Criando 
Blog - Curso Iniciante /18/... - Relatorio Manual 
Blog - Curso Iniciante /19/.. - Menu Popup
Blog - Curso Iniciante /20/... - Data - Separar dia mes e ano
Blog - Curso Iniciante /21/... - Time - Separar hora/min/seg 
Blog - Curso Iniciante /22/... - Operadores
Blog - Curso Iniciante /23/... - String Igualdade 
Blog - Curso Iniciante /24/... - Switch / Case
Blog - Curso Iniciante /25/... - LOOP 
Blog - Curso Iniciante /26/... - FOR
Blog - Curso /27/... - Extern 
Blog - Curso /28/... - My 
Blog - Curso /29/... Procedures
Blog - Curso /30/... HSave  .. - Inclui Um Registro
Blog - Curso /31/... - Hsave - Altera um Registro
Blog - Curso /32/... - HDelete - Exclui Registro(s)
Blog - Curso /33/... - Relatorio
Blog - Curso /34/... - Dialog 
Blog - Curso /35/... - Input
blog - Curso /36/... - Combox 
Blog - Curso /37/... Combox Tabela 
Blog - Curso /38/... List Box
Blog - Curso /39/... - Analise Agenda/Ligacoes
Blog - Curso /40/... - Rad - Tabela Relacionada Agenda/Ligações
Blog - Curso /41/... - Tabela Relacionada Manual
Blog - Curso /42/... - Dica Tela/Code Separado
Blog - Curso /43/... - Mapa /1..
Blog - Curso /44/... - Mapa /2.. Imprime
Blog - Curso /45/... - Fechar Programa - EndPrograma()
Blog - Curso /46/... - Camera Habilita/Desabilita 
Blog - Curso /47/... - Tabela e Formulario - Configurar Cnpj
Blog - Curso /48/... - Camera - Tirar Uma Foto e Gravar Imagem
Blog - Curso /49/... - Reports e Queies - Instalacao
Blog - Curso /50/... Reports e Queies - Relatorio - Como Gerar 
Blog - Curso /51/... Pedidos/Orcamento 1/... Analise
Blog - Curso /52/... Pedidos/Orcamento 2/.. Analise Windev
Blog - Curso /53/... Pedidos/Orcamento 3/... Relacionamento
Blog - Curso /54/... Pedidos Orcamento 4/... Rad
Blog - Curso /55/... Pegar Quantidade e Codigo - Separador * 
Blog - Curso /56/... Pegar Retorno de Uma Tabela e colocar Campo 
Blog - Curso /57/... Xml - Ler Conteudo Tags e Importar Pedido
Blog - Curso /58/... Ini - Ler e Gravar 
Blog - Curso /59/... Pedidos Orcamento 5/... Inicio Digitacao Pedido
Blog - Curso /60/... Pedidos Orcamento 6/... Digitando Iten Pedido
Blog - Curso /61/... Pedidos orcamento 7/... Gravando Pedido e Itens   
Blog - Curso /62/... Pedido Orcamento 8/... Consulta cliente   
Blog - Curso /63/... Tabela - Ancorar Coluna
Blog - Curso /64/... Tabela - Esconder ou Mostrar Coluna 
Blog - Curso /65/... RSS 
Blog - Curso /66/... Pedido Orcamento 9/... Consulta Material
Blog - Curso /67/... Tabelas, Control F Pesquisa Toda Tabela /Contenha/Cor Fundo
Blog - Curso /68/... Pedidos Orcamento 10/... Planos - Condições Pagamento 
Blog - Curso /69/... - Calculadora dentro do Campo Valor 
Blog - Curso /70/... Mapa - Itinerario
Blog - Curso /71/... Tabela - Alterar Nome Coluna
Blog - Curso /72/... Botal Fazer Menu popup 
Blog - Curso /73/... Debug - Como Usar
Blog - Curso /74/... Tabela Alinhar Coluna Lado Esquerdo 
Blog - Curso /75/... Pedidos Orcamento 11/... Quantidade /Mascara/Mudar
Blog - Curso /76/... YesNo - Pergunta Se Deseja Eliminar 
Blog - Curso /77/... Select - Case - Query
Blog - Curso /78/... Pedido/Orcamento 12/... - Analise Cond.Pagto
Blog - Curso /79/... Campos - Como Alterar configuracao via Codigo
Blog - Curso /80/... Pedido/Orcamento 13/... - Tabela,Gerar Condicoes/Parcelas
Blog - Curso /81/... Configuracao Trocar Exe para Wdl ou outro 
Blog - Curso /82/... Utilitarios - PopUp - Aumento Precos Materiais 
Blog - Curso /82/... TableEnableFilter - Digita Nome e Filtra 
Blog - Curso /83/... TableEnableFilter - Digita Nome e Filtra 
Blog - Curso /84/... Dica Copiar Colar Texto Ou Imagen Pdf
Blog - Curso /85/... SElect Como Usar Wizard 
Blog - Curso /86/... Radio - Colocar tudo Mesma Linha
Blog - Curso /87/... Procedure - Melhoria Versao20 - Parametros
Blog - Curso /88/... Style - Tabela Como Alterar
Blog - Curso /89/... Style - Tab Como Alterar
Blog - Curso /90/... Pedido/Orcamento 14/... - Style - Mudando Botao Procura
Blog - Curso /91/... - Pedido/Orcamento 15/... - Pedido - Totalizar Colunas Tabela
Blog - Curso /92/... Backup - Hyperfile 
Blog - Curso /93/... Debug - STOP 
Blog - Curso /94/... Tabela - Alterar Cor da Coluna - Texto
Blog - Curso /95/... Select Max - Pegar o Numero Proxima Nota 
Blog - Curso /96/... Tabela Divisao de Muitas Colunas 
Blog - Curso /97/... Analise - Configurar Campo para Vir Automatico Combox 
Blog - Curso /98/... Tabela - Double click - Entrar direto Alteração do Cliente 
Blog - Curso /99/... Tabela MultiSeleção
Blog - Curso/100/... Tabela - TableMoveLine - Move Linha Baixou ou Cima
Blog - Curso/101/... TableAjust - Ajustar Tabela com Colunas
Blog - Curso/102/... TableSort - Ordem nas Colunas

Windev - Consulta Cadastro - 13/... Flexdocs

---

---

---

VIDEO - CONSULTA CADASTRO - 13/ FLEXDOCS

---

---

---

BLOG - FLEXDOCS - 1/...

 BLOG - FLEXDOCS - 2/... REGISTRAR

BLOG - FLEXDOCS - 3 /... IMPORTAR DLL 

BLOG - FLEXDOCS - 4/... - INSTANCIAR FLEXDOCS

BLOG - FLEXDOCS - 5/... - CERTIFICADO 

BLOG - FLEXDOCS - 6/... STATUS

BLOG - FLEXDOCS - 7/... - STATUS 2 CERTIFICADO

BLOG - FLEXDOCS - 8/... - STATUS 3

BLOG - FLEXDOCS - 9/... STATUS 4 

BLOG - FLEXDOCS - 10/... STATUS 5

BLOG - FLEXDOCS - 11/ STATUS 6 - 

BLOG - FLEXDOCS - 12/STATUS 7-FINAL

BLOG - FLEXDOCS - 13/CONSULTA CADASTRO 

BLOG - FLEXDOCS - 14/.. Cria Chave Nfe

BLOG - FLEXDOCS - 15/... - IDE

BLOG - FLEXDOCS - 16/... - EMITENTE

BLOG - FLEXDOCS - 17/... - DESTINATARIO

BLOG - FLEXDOCS - 18/... - DESTINATARIO LOCAL ENTREGA

BLOG - FLEXDOCS - 19/... - DETALHE PRODUTO/A

BLOG - FLEXDOCS - 20/... DETALHE ICM

BLOG - FLEXDOCS - 21/... IMPOSTOS RESTANTES

---

Matos Função - Cnpj Validar

VIDEO - VALIDAR CPNJ

---------------------------------------------------------------------------------------------------------------------
IF matos_f_cnpj_validar(EDT_Id_inscricao_cnpj_cpf)=0 THEN
            Info("Cnpj Invalido")
            IMG_ok..Visible = False
            IMG_erro..Visible = True
            SetFocus(EDT_Id_inscricao_cnpj_cpf)
        ELSE
            IMG_ok..Visible = True
            IMG_erro..Visible = False
            SetFocus(EDT_CAD_Id_razao_social_nome)
        END

---------------------------------------------------------------------------------------------------------------------

 PROCEDURE matos_f_Soma_Com_Peso_Desc(pNro is string, _MenorPeso is int)
_Tam is int  = Length(pNro)
_Peso is 2-byte unsigned int = 0

FOR i=1 TO _Tam
           _Peso = _Peso + (Asc(pNro[[i]]) -48)  * (_Tam-i+_MenorPeso)
END
RESULT _Peso

---------------------------------------------------------------------------------------------------------------------
// (c) Matos Informatica - 26 02 2015
//  Summary:  retorna TRUE se o CNPJ está correto ou FALSE se está incorreto
// Syntax:
//[ <Result> = ] matos_f_cnpj_validar (<pCNPJ> is string)
//
// Parameters:
//    pCNPJ (ANSI string): número da inscrição CNPJ-MF
// Return Value:
//     boolean: TRUE se o CNPJ está correto ou FALSE se está incorreto
//  Matos 26 02 2015
PROCEDURE matos_f_cnpj_validar(pCNPJ is string)
_CNPJ      is string
_Peso      is 2-byte unsigned int
_Resto     is 1-byte int
_Digito    is 1-byte int
FOR i=1 _TO_ Length(pCNPJ)
       IF 47 < Asc(pCNPJ[[i]]) < 58 THEN _CNPJ+=pCNPJ[[i]]
END
IF Length(_CNPJ) <> 14 THEN RESULT False
// calculo do primeiro digito verificador (posição 13)
_Peso  = matos_f_Soma_Com_Peso_Desc(_CNPJ[[1 TO 4]],2) ...
       + matos_f_Soma_Com_Peso_Desc(_CNPJ[[5 TO 12]],2)
_Resto = modulo(_Peso,11)
IF _Resto < 2 THEN _Digito = 0 ELSE _Digito = 11 - _Resto
IF Asc(_CNPJ[[13]])-48 <> _Digito THEN RESULT False
// calculo do segundo digito verificador (posição 14)
_Peso  = matos_f_Soma_Com_Peso_Desc(_CNPJ[[1 TO 5]],2) ...
       + matos_f_Soma_Com_Peso_Desc(_CNPJ[[6 TO 13]],2) 
_Resto = modulo(_Peso,11)
IF _Resto < 2 THEN _Digito = 0 ELSE _Digito = 11 - _Resto
IF Asc(_CNPJ[[14]])-48 <> _Digito THEN RESULT False ELSE RESULT True

---

---

---

---

amarildo@matosinformatica.com.br

---