- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Trocar as respostas dos parâmetros (SX1)....
×
Linguagem de Programação ADVPL
Perguntas Trocar as respostas dos parâmetros (SX1)....
- lalberto
-
- Desconectado
- Administrador
-
Menos
Mais
- Postagens: 3676
- Obrigados Recebidos: 6
10 anos 11 meses atrás #19098
por lalberto
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Respondido por lalberto no tópico Trocar as respostas dos parâmetros (SX1)....
Marcelo segue um exemplo que comigo funciona:
// Se o Usuario Logado for Um vendedor, então coloca o codigo dele no parametro MV_PAR05
If SA3->(dbSetOrder(7), dbSeek(xFilial("SA3")+__cUserID))
Dbselectarea("SX1")
DbsetOrder(1)
Dbseek(cPerg+"05")
Reclock("SX1",.F.)
SX1->X1_CNT01:=SA3->A3_COD
SX1->(MsUnlock())
Endif
Pergunte(cPerg,.f.)
// Se o Usuario Logado for Um vendedor, então coloca o codigo dele no parametro MV_PAR05
If SA3->(dbSetOrder(7), dbSeek(xFilial("SA3")+__cUserID))
Dbselectarea("SX1")
DbsetOrder(1)
Dbseek(cPerg+"05")
Reclock("SX1",.F.)
SX1->X1_CNT01:=SA3->A3_COD
SX1->(MsUnlock())
Endif
Pergunte(cPerg,.f.)
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Por favor Acessar ou Registrar para participar da conversa.
- mbrigagao
- Autor do Tópico
- Desconectado
- Membro Platina
-
Menos
Mais
- Postagens: 350
- Obrigados Recebidos: 1
10 anos 11 meses atrás #19102
por mbrigagao
Respondido por mbrigagao no tópico Trocar as respostas dos parâmetros (SX1)....
Luiz,
Tentei da maneira que vc me passou, porém também não funcionou. No SX1 o conteúdo até atualiza, mas não reflete a alteração quando o usuário abre novamente os parâmetros.
Por exemplo: o parâmetro MV_PAR01 deve vir sempre com "SIM", então o usuário vai lá e muda para "NAO" , executa a rotina e ao final do processo a rotina deveria voltar o parâmetro para "SIM". Isso acontece no SX1, porém quando o usuário abre a rotina novamente o parâmetro está com "NAO" (ultima alteração do usuário").
Acho que tem relação com o perfil de usuário... sei lá....
Alguém conhece uma forma de modificar o SX1 do usuário que está logado ?
Tentei da maneira que vc me passou, porém também não funcionou. No SX1 o conteúdo até atualiza, mas não reflete a alteração quando o usuário abre novamente os parâmetros.
Por exemplo: o parâmetro MV_PAR01 deve vir sempre com "SIM", então o usuário vai lá e muda para "NAO" , executa a rotina e ao final do processo a rotina deveria voltar o parâmetro para "SIM". Isso acontece no SX1, porém quando o usuário abre a rotina novamente o parâmetro está com "NAO" (ultima alteração do usuário").
Acho que tem relação com o perfil de usuário... sei lá....
Alguém conhece uma forma de modificar o SX1 do usuário que está logado ?
Por favor Acessar ou Registrar para participar da conversa.
- kaciorrm
- Desconectado
- Membro Sénior
-
Menos
Mais
- Postagens: 55
- Obrigados Recebidos: 1
10 anos 11 meses atrás #19119
por kaciorrm
Respondido por kaciorrm no tópico Trocar as respostas dos parâmetros (SX1)....
Bom tarde,
As respostas dos usuários são salvas no profile do usuário segue uma função onde preencho os parâmetros do usuário antes que ele abra os mesmos. Você pode colocar como no final e alterar para sim.
As respostas dos usuários são salvas no profile do usuário segue uma função onde preencho os parâmetros do usuário antes que ele abra os mesmos. Você pode colocar como no final e alterar para sim.
Static Function SCHGETNF()
Local aArea := GetArea()
Local aPROFALIASArea := PROFALIAS->(GetArea())
DbSelectArea("PROFALIAS")
DbsetOrder(1)
If DbSeek(CUSERNAME+SPACE(15-LEN(cuSERNAME))+"LJR130 "+"PERGUNTE "+"MV_PAR ")
RecLock("PROFALIAS",.F.)
PROFALIAS->P_DEFS:="C#G#"+SF2->F2_DOC+_CR+_LF+"C#G#"+SF2->F2_SERIE+_CR+_LF+"C#G#"+SF2->F2_CLIENTE+_CR+_LF+"C#G#"+SF2->F2_LOJA
PROFALIAS->(Msunlock())
EndIf
RestArea(aPROFALIASArea)
RestArea(aArea)
ReturnPor favor Acessar ou Registrar para participar da conversa.
- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Trocar as respostas dos parâmetros (SX1)....
Tempo para a criação da página:0.128 segundos