Categorias

Máscara para o campo A1_INSCR de acordo com o estado do cliente

Imagem do avatar de
Publicado por Rodrigo Araujo

Máscara para o campo A1_INSCR de acordo com o estado do cliente.

User Function PicInsc(cEstado)
Local cMascara := ""
Do Case
     Case cEstado == "AC"
          cMascara := "@R 99.999.999/999-99"
     Case cEstado == "AL"
          cMascara := "@R 999.99999-9"
     Case cEstado == "AM"
          cMascara := "@R 999999999"
     Case cEstado == "AP"
          cMascara := "@R 999999999"
     Case cEstado == "BA"
          cMascara := "@R 999999-99"
     Case cEstado == "CE"
          cMascara := "@R 99999999-9"
     Case cEstado == "DF"
          cMascara := "@R 99999999/999-99"
        .
        .
        .
EndCase
cPict := cMascara + "%C"
Return( cPict )
Tags: