PC Toledo

Código: Selecionar todos

...
...

Private cp_, cp_titu, cp_masc, cp_crit, cp_when, cp_help, cp_cmd

SEPARA(br_w:getcolumn(br_w:colpos):cargo) //Separa o conteúdo da string de cargo em variáveis

@ y_,x_ GET &cp_. //Campo a Getar 

...
...

   /*
   Sintaxe: SEPARA( <ExpC> )
   Funcao.: Separa atributos de campos da coluna da consulta
   ExpC = atributos (nome do campo/mascara/titulo/validacao)
   Retorna: NIL
   */
STATIC FUNC SEPARA(cp_atr)
   cp_ =PARSE(@cp_atr,"³")           // conteudo
   cp_masc=PARSE(@cp_atr,"³")        // mascara
   cp_titu=PARSE(@cp_atr,"³")        // titulo
   cp_when=PARSE(@cp_atr,"³")        // pre-validacao
   cp_crit=PARSE(@cp_atr,"³")        // validacao (critica)
   cp_help=PARSE(@cp_atr,"³")        // help do campo
   cp_cmd =PARSE(@cp_atr,"³")        // comando especial
   tp_cp= TYPE(cp_)                  // tipo da coluna
   IF tp_cp="UI"                     // se tipo indefinido
      tp_cp = VALTYPE(cp_)           // tenta pegar o conteudo do campo
      IF tp_cp = "UI"              // se ainda continua indefinido
         tp_cp="C"                 // forca caracter
      ENDIF
   ENDIF
   RETU NIL