Results 1 to 3 of 3

Thread: Mascara

  1. #1

    Default Mascara

    Poderiam me ajudar com esta questão.

    Quero que o Campo "IDENTIDADE" seja formatado assim:

    Se Tipo = "F" mascara = ###.###.###-##"
    Se tipo = "J" mascara = ##.###.###/####-##"

  2. #2
    Join Date
    Feb 2009
    Location
    Rio do Sul - SC
    Posts
    284

    Default Re: Mascara

    Code:
    Object oPessoadbComboForm is a dbComboForm
        Entry_Item ARQUIVO.PESSOA
    
        Set Location                 to 140 70
        Set Size                     to 12 60
        Set Label                    to "Pessoa:"
        Set Label_Col_Offset         to 2
        Set Label_Justification_Mode to JMode_Right
        Set Entry_State              to False
    
        Procedure OnChange
            Integer iPessoa
            
            Forward Send OnChange
            
            Get Field_Current_Value of (Server(Self)) Field ARQUIVO.PESSOA to iPessoa
            
            Set Form_Mask of (oCpfCnpjdbForm(Self)) to (If (iPessoa=C_PessoaJuridica,'##.###.###/####-##','###.###.###-##'))
        End_Procedure // OnChange
    End_Object // oPessoadbComboForm
    []'s
    Clayton Schirmer

  3. #3
    Join Date
    Jun 2011
    Location
    Brazil
    Posts
    55

    Default Re: Mascara

    Uso esta função desde os DF Caracter

    //-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-==-=-=-=-=-=-=-//
    // Função Get_MASCARA
    //
    // Sintaxe : Move (Get_Mascara(Mascara,Fonte)) TO Destino
    //
    // Onde : Mascara = mascara de edicao
    // : Fonte = variavel fonte
    // : Destino = variavel destino (String)
    //
    // Exemplo : Move (Get_MASCARA("(###) ###-####",FONTE) TO DESTINO
    //
    //-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-==-=-=-=-=-=-=-


    Function GetMascara Global String Masc# String sAux# Returns String
    Local Integer iCont# iLength
    Local String sLetra#
    Move (fRemoveChar(sAux#)) to sAux#
    Move (Length(Trim(sAux#))) to iLength
    For iCont# From 1 to iLength
    Move (Mid(sAux#,1,iCont#)) to sLetra#
    Replace '#' In Masc# With sLetra#
    Loop
    Function_Return Masc#
    End_Function
    José A Queiroz
    Teknodados Informática
    (19) 99741 3934
    queiroz@teknodados.com.br

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •