testar sintaxe

[Amparo]

ola amigos

gostaria de saber se existe alguma função que teste uma expressão de comando para evitar erro no sistema, por exemplo
em uma tabela tenho os seguintes campos

CEP C 10
CREDITO N 14,4
DT_COMPRA D

preciso fazer uma filtro e é o usuário quem montara a expressão, ele vai ter o campo para escolher, os operadores para escolher, mas terá que digitar qual o resultado esperado.:

a variável contendo a expressão fica +/- assim:

CLIENTES->CEP = "04005000" .AND. CLIENTES->CREDITO >= 1500.00 .AND. CLIENTES->DT_COMPRA = CTOD("11/10/2018")
onde: 04005000, 1500.00 e 11/10/2018 serão digitados pelo usuário

nesta sintaxe vai rodar sem erro, suponhamos que o usuário não coloque o CEP estre aspas ou não coloque a data dentro CTOD ou mesmo dentro de CTOD sem as aspas, isso ocorrera em erro e consequentemente a saída do sistema, existe como testar esta sintaxe ou então uma rotina que apresente o erro mas não saia do sistema e volte para a function ou procedure que a chamou?

sera que alguém tem algum material para estudo?

desde já agradeço.

Amparo

[alxsts]

Olá!

gostaria de saber se existe alguma função que teste uma expressão de comando para evitar erro no sistema

Poderá ser usada a função Type()

existe como testar esta sintaxe ou então uma rotina que apresente o erro mas não saia do sistema e volte para a function ou procedure que a chamou?

Coloque o código dentro de um bloco BEGIN SEQUENCE...RECOVER...END SEQUENCE

Código: Selecionar todos

   PRIVATE cExpr    // ===> Type() Só funciona com variáveis PUBLIC ou PRIVATE
   LOCAL cType, GetList := {}

   CLS

   WHILE .T.
      BEGIN SEQUENCE
         cExpr := Space(255)
         @10,10 SAY "Digite a expressão:" GET cExpr PICT "@S40"
         READ
         
         IF LastKey() == K_ESC
            EXIT
         ENDIF
         
         cType := Type( cExpr )

         IF At( "U", cType ) > 0
            BREAK
         ELSE
            Exit
         ENDIF      

      RECOVER
         Alert( "Erro na expressão") 
         LOOP
      END SEQUENCE
   ENDDO      

[JoséQuintas]

Algumas opções:

- o usuário digitar o filtro, e fazer o teste evitando erro
- o usuário escolher campos, e fazer o filtro pelo programa
- filtros a vontade

Código: Selecionar todos

@ 0, 0 GET cComando VALID MacroType( cComando ) == "L"

FUNCTION MacroType( cExpression )

   LOCAL cType := "U", bBlock

   BEGIN SEQUENCE WITH __BreakBlock()
      bBlock := hb_MacroBlock( cExpression )
      cType  := ValType( Eval( bBlock ) )
   END SEQUENCE

   RETURN cType

O mais interessante pode ser colocar opções diversas, e até evitar erros com variáveis locais/etc.
E deste jeito vai poder ajustar os comandos pra DBF, SQL, etc.

Exemplo:

Código: Selecionar todos

         IF ! Empty( mAtivo )
            // Ativo = Ativo + Proposta
            mFiltro += iif( mAtivo == "A", " AND ( ESTADO NOT IN ( 'I', 'V', 'E' ) )", " AND ESTADO = " + StringSql( mAtivo ) )
         ENDIF
         mFiltro += iif( Empty( mEndereco ),      "", " AND " + MySqlEnderecoLike( mEndereco ) )
         mFiltro += iif( Empty( mClassi ),        "", " AND CLASSI = " + StringSql( mClassi ) )
         IF mMaisFiltros1 == "S"
            mFiltro += iif( mPrecoMin == 0,          "", " AND VALOR >= " + LTrim( Str( mPrecoMin ) ) )
            mFiltro += iif( mPrecoMax == 0,          "", " AND VALOR <= " + LTrim( Str( mPrecoMax ) ) )
            mFiltro += iif( Empty( mBairro ),        "", " AND BAIRRO LIKE " + StringSql( "%" + Trim( mBairro ) + "%" ) )
            mFiltro += iif( Empty( mRegiao ),        "", " AND REGIAO LIKE " + StringSql( "%" + Trim( mRegiao ) + "%" ) )
            mFiltro += iif( Empty( mCidade ),        "", " AND CIDADE LIKE " + StringSql( "%" + Trim( mCidade ) + "%" ) )
            IF ! Empty( mSetor )
               mFiltro += " AND ( "
               nTamanhoFiltro := Len( mFiltro )
               cnMySql:cSql := "SELECT * FROM HLBAIRRO WHERE BASETOR = " + StringSql( mSetor )
               cTmpFile := cnMySql:SqlToDbf()
               SELECT 0
               USE ( cTmpFile ) ALIAS temp
               DO WHILE ! Eof()
                  mFiltro += " BABAIRRO=" + StringSql( temp->baBairro ) + " OR "
                  SKIP
               ENDDO
               CLOSE DATABASES
               FErase( cTmpFile )
               IF nTamanhoFiltro == Len( mFiltro ) // pra completar o .OR.
                  mFiltro += "CODI = CODI"
               ELSE
                  mFiltro += "CODI <> CODI"
               ENDIF
               mFiltro += " )"
            ENDIF
         ENDIF
         IF mMaisFiltros2 == "S"
            mFiltro += iif( Empty( mDormitorioMin ), "", " AND DORMITORIO >= " + LTrim( Str( mDormitorioMin ) ) )
            mFiltro += iif( Empty( mDormitorioMax ), "", " AND DORMITORIO <= " + LTrim( Str( mDormitorioMax ) ) )
            mFiltro += iif( Empty( mVagasMin ),      "", " AND GARAGEM >= " + LTrim( Str( mVagasMin ) ) )
            mFiltro += iif( Empty( mVagasMax ),      "", " AND GARAGEM <= " + LTrim( Str( mVagasMax ) ) )
            mFiltro += iif( Empty( mDataMin ),       "", " AND DATAINC >= " + DateSql( mDataMin ) )
            mFiltro += iif( Empty( mDataMax ),       "", " AND DATAINC <= " + DateSql( mDataMax ) )
         ENDIF
         IF mMaisFiltros3 == "S"
            mFiltro += iif( Empty( mFinanciado ),    "", " AND FINANCIADO = " + StringSql( mFinanciado ) )
            mFiltro += iif( Empty( mCodC ),          "", " AND ( CODC=" + NumberSql( mCodc ) + " OR CODC2=" + NumberSql( mCodc ) + " OR CODC3=" + NumberSql( mCodc ) + " )" )
            mFiltro += iif( Empty( mNomePropriet ),  "", " AND PROPRNOME LIKE " + StringSql( "%" + Trim( mNomePropriet ) + "%" ) )
            mFiltro += iif( Empty( mIdadeMin ),      "", " AND IDADE >= " + LTrim( Str( mIdadeMin ) ) )
            mFiltro += iif( Empty( mIdadeMax ),      "", " AND IDADE <= " + LTrim( Str( mIdadeMax ) ) )
            mFiltro += iif( Empty( mExposicao ),     "", " AND EXPOSICAO = " + StringSql( mExposicao ) )
            mFiltro += iif( Empty( mPlaca ),         "", " AND " + iif( mPlaca == "N", "PLACA<>'S'", "PLACA=" + StringSql( mPlaca ) ) )
         ENDIF
      ENDIF
...

cnMySQl:Execute( "SELECT * FROM IMOVEL WHERE " + mFiltro )

Note que neste caso as variáveis são usadas pra criar o filtro, mas o filtro não depende delas depois.

[Amparo]

ola amigos

obrigado pela ajuda, vou testar estas rotinas.

abraço

[alxsts]

Olá!

é o usuário quem montara a expressão,

- o usuário digitar o filtro, e fazer o teste evitando erro

Nem preciso dizer que, dependendo do que o usuário puder digitar, isto é um perigo...

ele vai ter o campo para escolher, os operadores para escolher

o usuário escolher campos, e fazer o filtro pelo programa

Esta forma sim, é segura.

mas terá que digitar qual o resultado esperado.

Isto eu não entendi...

Type  := ValType( Eval( bBlock ) )

E se o codeblock retornar NIL, como em:

Código: Selecionar todos

? Valtype( Eval( { || dbSelectArea( 'temp' ) } ) )

?

[JoséQuintas]

E se o codeblock retornar NIL, como em:

Ou vamos piorar....
Se o usuário digitar:

fErase( "arquivo" )
dbDelete()

Realmente...
Nunca se sabe como será o usuário, se ele não vai usar como ferramenta pra outras coisas.

[Amparo]

ola amigos

desculpe a demora ao responder mais vamos la

na tela de clientes em GRID tenho varias colunas como, CODIGO, CNPJ/CPF, CEP, NOME, LIMITE CREDITO e CONCEITO

o usuário quer que aparece em tela somente os clientes do CEP = 0400500 o CONCEITO = BOM e o LIMITE DE CREDITO = 500.00

como fica esta sintaxe:

SET FILTER TO CLIENTES->CEP = "0400500" .AND. CLIENTES->CONCEITO = "BOM" .AND. CLIENTES->LIM_CREDIT >= 500.00

A ideia é mostrar os campos existentes no grid e o usuário escolher o campo e os operadores e digitar o resultado esperado

ALXSTS, voce disse que não entendeu quando escrevi o resultado esperado, na verdade o resultado que eu quis dizer é quando ele escolhe o campo CEP o usuario deve digitar qual cep ele quer filtrar e assim por diante.

JoséQuintas, vc diz que é um perigo mas, todo o contudo digitado pelo usuário sera usado no comando SET FILTER TO &CONTEUDO_FILTRO.

entao aqui sempre vai vir um texto +- assim CLIENTES->CEP = ... ou CLIENTES->CEP $ ou CLIENTES->LIM_CREDIT >= ou = ou <=

o usuário nunca terá o campo livre para digitar, os operadores =,==,>,>=,<,<= !$, $ serão botoes que ele deve escolher como .OR. ou .AND. ou "(" ou ")" também sera botoes.

apos ele fazer toda essa escolha eu gostaria de testar a sintaxe antes de aplicar o resultado pois de tiver algum erro de expressão o sistema não aborte, apenas mostre que houve erro de expressão e volte no form do filtro.

em anexo tenho um print da tela não esta completa mas da uma ideia do que estou montando.

[JoséQuintas]

um fonte antigo de teste:

https://github.com/JoseQuintas/JoseQuin ... rclass.prg

Dá uma olhada no MediaMonkey de músicas, a criação de listas automáticas, é interessante.

[JoséQuintas]

[JoséQuintas]

Faltou uma nota: o gênero, é o gênero musical. Não se trata de homem, mulher, gay, lésbica, etc..... rs