Clipper On Line • Ver Tópico - Validar CNPJ e/ou CPF no HMG

Validar CNPJ e/ou CPF no HMG

Projeto MiniGui - Biblioteca visual para Harbour/xHarbour

Moderador: Moderadores

 

Validar CNPJ e/ou CPF no HMG

Mensagempor billy1943 » 21 Mai 2013 17:54

Estou gastando fosfato em um exemplo de HMG do Humberto Fornazier, chamado "CONTROL_FINANCIERO".
Não é muito complicado e estou aprendendo bastante com ele mas agora estou com a seguinte dúvida (sei que outras virão):

No cadastramento de clientes tem um campo caractere chamado TextCGC_CPF, e, também um campo lógico (LJuridica), e atualmente ele aceita qualquer valor digitado;

Quero validar o CNPJ ou CPF, basendo-me também no campo lógico, para acessar as funções, ou para CNPJ ou para CPF;
No preambulo da rotina constei:

#include "hmg.ch"
#xtranslate VALID <condition> [ MESSAGE <message> ] ;
=> ;
ON LOSTFOCUS _DoValid ( <condition> , <message> )


DEFINE WINDOW Novo_Cliente   ;
      AT 0,0         ;
      WIDTH  460      ;
      HEIGHT 446      ;
      TITLE cTitulo      ;
      MODAL         ;
      NOSIZE                

      DEFINE STATUSBAR      
         STATUSITEM "Manutenção no "+cTitulo
      END STATUSBAR

      @ 0,0 FRAME Dados_01 WIDTH 451 HEIGHT 175  FONT 'ARIAL'  SIZE 9

      @ 20,175 CHECKBOX Pessoa_Juridica ;
         CAPTION 'Jurídica' ;
         WIDTH 63 ;
         HEIGHT 30 ;
         VALUE lJuridica ;
         FONT 'ARIAL'  SIZE 9

      @030,250 LABEL Lb_CGC_CPF;
         VALUE 'CNPJ/CPF'   ;
         WIDTH 60   ;
         HEIGHT 30   ;
         FONT 'ARIAL' SIZE 9         

      @ 020,310 TEXTBOX TxtCGC_CPF;
         HEIGHT 25 ;
         WIDTH 130 ;
         FONT 'ARIAL' SIZE 9;
         TOOLTIP "Digite o CNPJ ou CPF do Cliente";
         MAXLENGTH 20 ;
         ON LOSTFOCUS CriaMascara();
         ON ENTER Novo_Cliente.TxtNOME.SetFocus ;
         VALID CONF_CNPJ(Novo_Cliente.TxtCGC_CPF,"") ;
                       MESSAGE ("CNPJ não confere !")



Do jeito que está acima, não compila e está dando o seguinte erro:

F_clientes.prg(177) Error E0030 Syntax error "syntax error at '@'"
O bom do computador é que ele resolve os problemas, sem nunca levantar nenhum.
Hoje atuo mais com Clipper 52E, e um pouquinho com XHarbour.
Avatar de usuário

billy1943
Usuário Nível 4

Usuário Nível 4
 
Mensagens: 570
Data de registro: 12 Mai 2009 17:33
Cidade/Estado: Bauru-SP
Curtiu: 1 vez
Mens.Curtidas: 21 vezes

Validar CNPJ e/ou CPF no HMG

Mensagempor billy1943 » 27 Jun 2013 11:32

Informo que tópico deste fórum abaixo informado, que versou sobre o mesmo assunto, está a solução apontada pelo nosso amigo
Pablo César.

http://www.pctoledo.com.br/forum/viewtopic.php?f=45&t=14279
O bom do computador é que ele resolve os problemas, sem nunca levantar nenhum.
Hoje atuo mais com Clipper 52E, e um pouquinho com XHarbour.
Avatar de usuário

billy1943
Usuário Nível 4

Usuário Nível 4
 
Mensagens: 570
Data de registro: 12 Mai 2009 17:33
Cidade/Estado: Bauru-SP
Curtiu: 1 vez
Mens.Curtidas: 21 vezes




Retornar para MiniGui

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 7 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro