Perguntas Criar Tela

Bom dia a todos,

Por favor, podem me ajudar?

É possível criar um tela para que um usuário possa alterar os parâmetros MV_ULMES, MV_DATAFIN e MV_DTBX?

Se sim, como fazer?

Mano este fonte altera o parametro: MV_DATAFIN
nome parametro: SB_ALTDTFI eu uso apenas para definir quais usuario vao ter acesso a esta rotina.


#Include "PROTHEUS.CH"
//

---

/*/{Protheus.doc} DtFinAlt
Description

@param xParam Parameter Description
@return xRet Return Description
@author -
@since 25/10/2013
/*/
//

---

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
// Funcao para montar a tela para alterar parametro "MV_DATAFIN"
// Criado em 10/2013 por Andre Sarraipa
//
// ³
// ³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ


User Function DtFinAlt()
Local Alterar
Local oGet1
Local cGet1 := Date()
Local oSay1
Local oSay2
Local Sair
Static oDlg

cGet1 := GETMV("MV_DATAFIN")

DEFINE MSDIALOG oDlg TITLE "Altera Data Inicio Mov Financeiro" FROM 000, 000 TO 500, 500 COLORS 0, 16777215 PIXEL

@ 102, 064 MSGET oGet1 VAR cGet1 SIZE 060, 010 OF oDlg COLORS 0, 16777215 PIXEL
@ 131, 064 BUTTON Alterar PROMPT "Alterar" SIZE 037, 012 OF oDlg PIXEL Action altdtfin(cGet1) //Of oDlg
@ 090, 064 SAY oSay1 PROMPT "Dt Inicio Mov Financeiro" SIZE 065, 007 OF oDlg COLORS 0, 16777215 PIXEL
@ 131, 131 BUTTON Sair PROMPT "Sair" SIZE 037, 012 OF oDlg PIXEL Action oDlg:End()
@ 165, 064 SAY oSay2 PROMPT "Esta rotina altera o parametro MV_DATAFIN, sera bloqueados todas as movimentações financeiras com data anterior a este parametro, " SIZE 144, 031 OF oDlg COLORS 0, 16777215 PIXEL




ACTIVATE MSDIALOG oDlg CENTERED

Return



//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
// Funcao para alterar o parametro "MV_DATAFIN"
// Criado em 10/2013 por Andre Sarraipa
// Alterado
// ³
// ³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ

Static Function altdtfin(dtfin)

Local cUsuarios := GetMV("SB_ALTDTFI") //DEFINE QUAIS USUARIO PODEM ALTERAR A DATA DE FECHAMENTO DO FINANCEIRO
local dattest := DTOS(dtfin)




//DEFINE QUAIS USUARIO PODEM ALTERAR A DATA DE FECHAMENTO DO FINANCEIRO

IF ( trim(__cUserID) $cUsuarios)


PUTMV("MV_DATAFIN",dattest)
MSGALERT("Alteracao efetuada","Nome empresa")


else
MSGALERT("Usuario sem permissao para usar esta rotina conforme parametro: SB_ALTDTFI !!!.","Nome da sua empresa")


endif



return

Muito obrigado André, era exatamente isso que eu precisava!! Vlw!!!

André Sarraipa escreveu: Mano este fonte altera o parametro: MV_DATAFIN
nome parametro: SB_ALTDTFI eu uso apenas para definir quais usuario vao ter acesso a esta rotina.


#Include "PROTHEUS.CH"
//

---

/*/{Protheus.doc} DtFinAlt
Description

@param xParam Parameter Description
@return xRet Return Description
@author -
@since 25/10/2013
/*/
//

---

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
// Funcao para montar a tela para alterar parametro "MV_DATAFIN"
// Criado em 10/2013 por Andre Sarraipa
//
// ³
// ³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ


User Function DtFinAlt()
Local Alterar
Local oGet1
Local cGet1 := Date()
Local oSay1
Local oSay2
Local Sair
Static oDlg

cGet1 := GETMV("MV_DATAFIN")

DEFINE MSDIALOG oDlg TITLE "Altera Data Inicio Mov Financeiro" FROM 000, 000 TO 500, 500 COLORS 0, 16777215 PIXEL

@ 102, 064 MSGET oGet1 VAR cGet1 SIZE 060, 010 OF oDlg COLORS 0, 16777215 PIXEL
@ 131, 064 BUTTON Alterar PROMPT "Alterar" SIZE 037, 012 OF oDlg PIXEL Action altdtfin(cGet1) //Of oDlg
@ 090, 064 SAY oSay1 PROMPT "Dt Inicio Mov Financeiro" SIZE 065, 007 OF oDlg COLORS 0, 16777215 PIXEL
@ 131, 131 BUTTON Sair PROMPT "Sair" SIZE 037, 012 OF oDlg PIXEL Action oDlg:End()
@ 165, 064 SAY oSay2 PROMPT "Esta rotina altera o parametro MV_DATAFIN, sera bloqueados todas as movimentações financeiras com data anterior a este parametro, " SIZE 144, 031 OF oDlg COLORS 0, 16777215 PIXEL




ACTIVATE MSDIALOG oDlg CENTERED

Return



//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
// Funcao para alterar o parametro "MV_DATAFIN"
// Criado em 10/2013 por Andre Sarraipa
// Alterado
// ³
// ³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ

Static Function altdtfin(dtfin)

Local cUsuarios := GetMV("SB_ALTDTFI") //DEFINE QUAIS USUARIO PODEM ALTERAR A DATA DE FECHAMENTO DO FINANCEIRO
local dattest := DTOS(dtfin)




//DEFINE QUAIS USUARIO PODEM ALTERAR A DATA DE FECHAMENTO DO FINANCEIRO

IF ( trim(__cUserID) $cUsuarios)


PUTMV("MV_DATAFIN",dattest)
MSGALERT("Alteracao efetuada","Nome empresa")


else
MSGALERT("Usuario sem permissao para usar esta rotina conforme parametro: SB_ALTDTFI !!!.","Nome da sua empresa")


endif



return

Pessoal, esta dando o seguinte erro abaixo alguem sabe o que causa o mesmo?