× Linguagem de Programação ADVPL

Perguntas Gatilho-

Mais
11 anos 11 meses atrás #9317 por GRR
Gatilho- foi criado por GRR
Boa tarde Pessoal!!!

Preciso criar um gatilho que ao preencher o campo D1_ITEMCTA o mesmo preencha automaticamente o campo D1_CLVL.

Obrigado.
Anexos:

Por favor Acessar ou Registrar para participar da conversa.

Mais
11 anos 11 meses atrás #9320 por kanaamlrr
Respondido por kanaamlrr no tópico Re: Gatilho-
Mude sua regra para:


If(AllTrim(M->D1_ITEMCTA)$"1/2/3/4/5/6/7","1","")

Por favor Acessar ou Registrar para participar da conversa.

Mais
11 anos 11 meses atrás #9335 por GRR
Respondido por GRR no tópico Re: Gatilho-
Boa noite Kanaãm,

Isto funciona se fosse utilizado apenas esta regra.

Porém existe item contábil, por exemplo 33; que utiliza a "2". E como 3 $ em 33 o sistema está trazendo 1 ao invés de 2.

Abraço.

Por favor Acessar ou Registrar para participar da conversa.

Mais
11 anos 11 meses atrás #9337 por kanaamlrr
Respondido por kanaamlrr no tópico Re: Gatilho-
Poste qual regra você tem que utilizar.

Por favor Acessar ou Registrar para participar da conversa.

Mais
11 anos 11 meses atrás #9340 por GRR
Respondido por GRR no tópico Re: Gatilho-
Bom dia,

Se ITEM CONTÁBIL== 1,2,3,4,5,6,7 o gatilho deve preencher o campo classe de valor com 1.
Se ITEM CONTÁBIL== 8,9,10,11,12 o gatilho deve preencher o campo classe de valor com 2.
Se ITEM CONTÁBIL== 13,14,15,16 o gatilho deve preencher o campo classe de valor com 3.
Se ITEM CONTÁBIL== 17 o gatilho deve preencher o campo classe de valor com 4.
Se ITEM CONTÁBIL== 18,19,20,21,22,23,24,25 o gatilho deve preencher o campo classe de valor com 5.
Se ITEM CONTÁBIL== 26,27,28,29,30,31,32,33 o gatilho deve preencher o campo classe de valor com 6.
Se ITEM CONTÁBIL== 35 o gatilho deve preencher o campo classe de valor com 7.
Se ITEM CONTÁBIL== 34 o gatilho deve preencher o campo classe de valor com 8.

Abraço.

Por favor Acessar ou Registrar para participar da conversa.

Mais
11 anos 11 meses atrás #9342 por kanaamlrr
Respondido por kanaamlrr no tópico Re: Gatilho-
Se você apenas traduzir sua regra em uma função e inserir essa função na sua regra do gatilho irá funcionar corretamente.
User Function SuaFuncao()
Local cRet := ""

Do Case
   Case AllTrim(M->D1_ITEMCTA)$"1/2/3/4/5/6/7"
      cRet := "1" 
   Case AllTrim(M->D1_ITEMCTA)$"8/9/10/11/12"
      cRet := "2" 
   Case AllTrim(M->D1_ITEMCTA)$"13/14/15/16"
      cRet := "3" 
   Case AllTrim(M->D1_ITEMCTA)$"17"
      cRet := "4" 
   Case AllTrim(M->D1_ITEMCTA)$"18/19/20/21/22/23/24/25"
      cRet := "5"
   Case AllTrim(M->D1_ITEMCTA)$"26/27/28/29/30/31/32/33"
      cRet := "6"
   Case AllTrim(M->D1_ITEMCTA)$"35"
      cRet := "7"
   Case AllTrim(M->D1_ITEMCTA)$"34"
      cRet := "8"
End Case


Return cRet

Por favor Acessar ou Registrar para participar da conversa.

Tempo para a criação da página:0.114 segundos
Joomla templates by a4joomla