× Linguagem de Programação ADVPL

Perguntas Regra fixa no SX1 - via ADVPL (ou aceita sugestões)

Mais
10 anos 4 horas atrás #26245 por Fborges
Boa tarde,

estou com uma necessidade na tela de faturamento.
Existe um parâmetro, no qual vc determina qual o faturamento mínimo, ou seja, após a aglutinação do pedido, se não atender o valor mínimo o sistema não fatura.

O que preciso é colocar uma validação nesse parâmetro do tipo - exemplo:
1 - Se for Fulano o faturamento mínimo tem que ser de R$ 500,00
2 - Se for Ciclano o faturamento mínimo tem que ser de R$ 1000,00

Alguém tem uma idéia.

Agradeço a ajuda.

Fernando

Por favor Acessar ou Registrar para participar da conversa.

Mais
10 anos 3 horas atrás #26249 por afppellegrini
Boa tarde Fernando Borges,
Você pode fazer isso posicionando na SX1 na pergunta que precisa e alterar o conteúdo através do Reclock.

Exemplo:
If __CUSERID == "000000"
   dbSelectArea( "SX1" )
   If dbSeek( cPerg + "01" ) //X1_GRUPO+X1_ORDEM
      RecLock( "SX1" , .F. )
         SX1->X1_CNT01 := 500
      MsUnlock()
   Endif
ElseIf __CUSERID == "000001"
   dbSelectArea( "SX1" )
   If dbSeek( cPerg + "01" ) //X1_GRUPO+X1_ORDEM
      RecLock( "SX1" , .F. )
         SX1->X1_CNT01 := 1000
      MsUnlock()
   Endif
Endif


Espero ter ajudado!

Por favor Acessar ou Registrar para participar da conversa.

Mais
10 anos 3 horas atrás #26251 por admin
Na tabela SX1 campo X1_VALID coloque:

Iif(__cUserId$'000000',MV_PAR10>500,MV_PAR10>1000)

Mas como Imagino que não irá caber todos os seus usuários será necessária a criação de uma função de validação, tipo:

User Function FatMin()
If __cUserId $ '000000*000230*000032*000223'
If MV_PAR10 < 500
Alert("Atenção O Faturamento deverá ser no minimo 500 reais")
Return .f.
Endif
Else
IF MV_PAR10 < 1000
Alert("Atenção O Faturamento deverá ser no minimo 1.000 reais")
Return .f.
Endif
Endif
Return .t.

e no campo X1_VALID coloque U_FatMin()


Não testei mas acho que funfa tenta ai ok.

:woohoo: :woohoo:

Por favor Acessar ou Registrar para participar da conversa.

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