Clipper On Line • Ver Tópico - Validar CNPJ e/ou CPF no HMG
Mudar para estilo Clássico
Projeto MiniGui - Biblioteca visual para Harbour/xHarbour
Postar uma resposta

Validar CNPJ e/ou CPF no HMG

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:

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


Código:
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 '@'"

Validar CNPJ e/ou CPF no HMG

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
Postar uma resposta