Perguntas CriaSX1

Boa tarde, a todos.

Estou usando a função CriaSX1 em um relatório, mas gostaria que os parâmetros de perguntas fossem por usuário, alguém pode me dar um help?

Ex:

Parâmetros:
Pedido de: 000109
Pedido até: 000109

assim que é preenchido as perguntas o sistema repete os dados deste pedido 000109 para todos os usuários.

Grato

Ola Renato


Eu realmente não entendi oque você quiz dizer .
quando um usuário emitir este relatório com esses parametros, você quer que o proximo usuário
que logar no sistema e for tirar o mesmo relatorio, ja tenha os parametros preenchidos iguais ao do ultimo que gerou ??

@.@

att

Boa tarde Willian,
Desculpe, se não expressei corretamente, mas respondendo sua pergunta seria exatamente o contrário, quando próximo usuário que logar no sistema e for tirar o mesmo relatório, que os parâmetros não sejam preenchidos iguais ao do ultimo que gerou. Isto é cada usuário tenha seus campos preenchidos nos parâmetros individuais. E não é isto que acontece.

Segue o bloco do fonte onde estou criando a CriaSX1:


Static Function CriaSX1(cGrpPerg)

Local aHelpPor := {} //help da pergunta

//Pedido de?
aHelpPor := {}
AADD(aHelpPor,"Indique a pedido inicial ")
AADD(aHelpPor,"a ser utilizad0. ")

PutSx1(cGrpPerg,"01","Pedido de?","a","a","MV_CH1","C",TamSX3("C7_NUM")[1],0,0,"G","","SC7","","","MV_PAR01","","","","","","","","","","","","","","","","",aHelpPor,{},{},"")

//Pedido ate?
aHelpPor := {}
AADD(aHelpPor,"Indique a pedido final ")
AADD(aHelpPor,"a ser utilizad0. ")

PutSx1(cGrpPerg,"02","Pedido ate?","a","a","MV_CH2","C",TamSX3("C7_NUM")[1],0,0,"G","","SC7","","","MV_PAR02","","","","","","","","","","","","","","","","",aHelpPor,{},{},"")

//Fornecedor de?
aHelpPor := {}
AADD(aHelpPor,"Indique o fornecedor inicial ")
AADD(aHelpPor,"a ser utilizado. ")

PutSx1(cGrpPerg,"03","Fornecedor de?","a","a","MV_CH3","C",TamSX3("A2_COD")[1],0,0,"G","","SA2","","","MV_PAR03","","","","","","","","","","","","","","","","",aHelpPor,{},{},"")

//Fornecedor Ate?
aHelpPor := {}
AADD(aHelpPor,"Indique o fornecedor final ")
AADD(aHelpPor,"a ser utilizado. ")

PutSx1(cGrpPerg,"04","Fornecedor ate?","a","a","MV_CH4","C",TamSX3("A2_COD")[1],0,0,"G","","SA2","","","MV_PAR04","","","","","","","","","","","","","","","","",aHelpPor,{},{},"")

//Dt. Emissao de?
aHelpPor := {}
AADD(aHelpPor,"Indique a data de emissao ")
AADD(aHelpPor,"inicial a ser utilizada. ")

PutSx1(cGrpPerg,"05","Dt. Emissao De?","a","a","MV_CH5","D",TamSX3("C7_EMISSAO")[1],0,0,"G","","","","","MV_PAR05","","","","","","","","","","","","","","","","",aHelpPor,{},{},"")

//Dt. Emissao ate?
aHelpPor := {}
AADD(aHelpPor,"Indique a data de emissao ")
AADD(aHelpPor,"final a ser utilizada. ")

PutSx1(cGrpPerg,"06","Dt. Emissao De?","a","a","MV_CH6","D",TamSX3("C7_EMISSAO")[1],0,0,"G","","","","","MV_PAR06","","","","","","","","","","","","","","","","",aHelpPor,{},{},"")

//Endereco Fiscal?
aHelpPor := {}
AADD(aHelpPor,"Indique o Endereco Fiscal ")
AADD(aHelpPor,"a ser utilizado. ")

PutSx1(cGrpPerg,"07","Endereco Fiscal?","a","a","MV_CH7","C",TamSX3("ZX1_CODIGO")[1],0,0,"G","","ZX1","","","MV_PAR07","","","","","","","","","","","","","","","","",aHelpPor,{},{},"")

//Endereco Entrega?
aHelpPor := {}
AADD(aHelpPor,"Indique o Endereco de Entrega")
AADD(aHelpPor,"a ser utilizado. ")

PutSx1(cGrpPerg,"08","Endereco Entrega?","a","a","MV_CH8","C",TamSX3("ZX1_CODIGO")[1],0,0,"G","","ZX1","","","MV_PAR08","","","","","","","","","","","","","","","","",aHelpPor,{},{},"")

//Endereco Entrega?
aHelpPor := {}
AADD(aHelpPor,"Indique o Nome do Comprador")

PutSx1(cGrpPerg,"09","Contato?","a","a","MV_CH9","C",30,0,0,"G","","","","","MV_PAR09","","","","","","","","","","","","","","","","",aHelpPor,{},{},"")

//Endereco Entrega?
aHelpPor := {}
AADD(aHelpPor,"Indique o Telfone do Comprador")

PutSx1(cGrpPerg,"10","Telefone?","a","a","MV_CHA","C",30,0,0,"G","","","","","MV_PAR10","","","","","","","","","","","","","","","","",aHelpPor,{},{},"")

//Endereco Entrega?
aHelpPor := {}
AADD(aHelpPor,"Indique o E-mail do Comprador")

PutSx1(cGrpPerg,"11","E-mail?","a","a","MV_CHB","C",50,0,0,"G","","","","","MV_PAR11","","","","","","","","","","","","","","","","",aHelpPor,{},{},"")


//Transportadora de?
aHelpPor := {}
AADD(aHelpPor,"Indique a Transportadora ")
AADD(aHelpPor,"a ser utilizado. ")

PutSx1(cGrpPerg,"12","Transportadora?","a","a","MV_CHC","C",TamSX3("A2_COD")[1],0,0,"G","","SA2","","","MV_PAR12","","","","","","","","","","","","","","","","",aHelpPor,{},{},"")


Return

Entendi !

O sr ja tentou criar o grupo de perguntas pelo configurador ? deletar a função criasx1 , e chamar somente o PERGUNTE("GRUPO",.F.) ?

ATT

Obrigado Willian,
Farei conforme sua dica!