- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Regra fixa no SX1 - via ADVPL (ou aceita sugestões)
×
Linguagem de Programação ADVPL
Perguntas Regra fixa no SX1 - via ADVPL (ou aceita sugestões)
- Fborges
- Autor do Tópico
- Desconectado
- Membro Júnior
Menos
Mais
- Postagens: 28
- Obrigados Recebidos: 0
10 anos 4 horas atrás #26245
por Fborges
Regra fixa no SX1 - via ADVPL (ou aceita sugestões) foi criado 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
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.
- afppellegrini
- Desconectado
- Membro Iniciado
Menos
Mais
- Postagens: 16
- Obrigados Recebidos: 0
10 anos 3 horas atrás #26249
por afppellegrini
Respondido por afppellegrini no tópico Regra fixa no SX1 - via ADVPL (ou aceita sugestões)
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:
Espero ter ajudado!
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.
- admin
- Desconectado
- Administrador
Menos
Mais
- Postagens: 297
- Obrigados Recebidos: 21
10 anos 3 horas atrás #26251
por admin
Respondido por admin no tópico Regra fixa no SX1 - via ADVPL (ou aceita sugestões)
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.
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.
Por favor Acessar ou Registrar para participar da conversa.
- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Regra fixa no SX1 - via ADVPL (ou aceita sugestões)
Tempo para a criação da página:0.121 segundos