Possuo customizações em projetos da empresa que utilizam a gravação e criação de registros na SX1 e pesquisando aqui no fórum vi que não se pode mais utilizar a função PutSX1 ou inserir registros diretamente e que o recomendado é utilizar o Configurador para criar os perguntes. Existe uma função padrão para criar os registros na SX1 que possa ser usada diretamente no código ?
Utilização de função padrão para gravação da SX1
- Você vai ver essas setas em qualquer página de pergunta. Com elas, você pode dizer se uma pergunta ou uma resposta foram relevantes ou não.
- Edite sua pergunta ou resposta caso queira alterar ou adicionar detalhes.
- Caso haja alguma dúvida sobre a pergunta, adicione um comentário. O espaço de respostas deve ser utilizado apenas para responder a pergunta.
- Se o autor da pergunta marcar uma resposta como solucionada, esta marca aparecerá.
- Clique aqui para mais detalhes sobre o funcionamento do TOTVS DevForum!
3 respostas
-
Olá Jefferson,
Não existe nenhuma função para gravação do SX1, o mesmo precisa ser feito via Configurador.
Hoje o Configurador também conta com a gestão de ambientes que pode lhe auxiliar na criação do SX1 para ambiente de homologação e produção:
https://tdn.totvs.com/pages/releaseview.action?pageId=235327972
-
-
Bom dia,
As rotinas de inserir na SX1 foram descontinuadas, mas se você não quiser inserir manualmente no configurador ou customizar uma função de inserção eu aconselharia no "padrão" a começar a utilização do PARAMBOX que no resumo eles viram também MV_PAR01, MV_PAR02, MV_PAR03 e etc..
-
-
Bom dia
Eu sempre criei uma função estática para criar/inserir as perguntas no SX1. Criando uma função padrão basta vc só preencher corretamente os campos e voce tem uma função pro resto da vida.
Segue exemplo. Espero que ajude.
Static Function AjustaSX1(_cPer)
Local i, j Private cAlias:=Alias(),aRegs := {}
aRegs := {}
If _cPer = "FINMIS0001"
AADD(aRegs,{_cPer,"01","Filial de ?"," ?"," ?","mv_ch1","C",04,0,0,"G",' ',"mv_par01","","","","","","","","","","","","","","","","","","","","","","","","","",""}) AADD(aRegs,{_cPer,"02","Filial ate ?"," ?"," ?","mv_ch2","C",04,0,0,"G",'naovazio',"mv_par02","","","","","","","","","","","","","","","","","","","","","","","","","",""}) AADD(aRegs,{_cPer,"03","Emissão de ?"," ?"," ?","mv_ch3","D",08,0,0,"G",'naovazio',"mv_par03","","","","","","","","","","","","","","","","","","","","","","","","","",""}) AADD(aRegs,{_cPer,"04","Emissao até ?"," ?"," ?","mv_ch4","D",08,0,0,"G",'naovazio',"mv_par04","","","","","","","","","","","","","","","","","","","","","","","","","",""}) AADD(aRegs,{_cPer,"05","Cliente de ?"," ?"," ?","mv_ch5","C",06,0,0,"G",' ',"mv_par05","","","","","","","","","","","","","","","","","","","","","","","","","SA1",""}) AADD(aRegs,{_cPer,"06","Cliente até ?"," ?"," ?","mv_ch6","C",06,0,0,"G",'naovazio',"mv_par06","","","","","","","","","","","","","","","","","","","","","","","","","SA1",""}) AADD(aRegs,{_cPer,"07","Loja de ?"," ?"," ?","mv_ch7","C",02,0,0,"G",' ',"mv_par07","","","","","","","","","","","","","","","","","","","","","","","","","",""}) AADD(aRegs,{_cPer,"08","Loja ate ?"," ?"," ?","mv_ch8","C",02,0,0,"G",'naovazio',"mv_par08","","","","","","","","","","","","","","","","","","","","","","","","","",""}) AADD(aRegs,{_cPer,"09","Vencimento de ?"," ?"," ?","mv_ch9","D",08,0,0,"G",'naovazio',"mv_par09","","","","","","","","","","","","","","","","","","","","","","","","","",""}) AADD(aRegs,{_cPer,"10","Vencimento ate ?"," ?"," ?","mv_cha","D",08,0,0,"G",'naovazio',"mv_par10","","","","","","","","","","","","","","","","","","","","","","","","","",""}) //AADD(aRegs,{_cPer,"11","Re-Compra ?"," ?"," ?","mv_chb","N",01,0,0,"C",' ',"mv_par11","Não","","","","","Sim","","","","","","","","","","","","","","","","","","","",""}) //AADD(aRegs,{_cPer,"12","Num Processo ?"," ?"," ?","mv_chc","C",01,0,0,"G",' ',"mv_par12","","","","","","","","","","","","","","","","","","","","","","","","","SZ9",""}) ElseIf _cPer = "FINMIS1TPM"
AADD(aRegs,{_cPer,"01","Filial ?"," "," ","mv_chb","C",04,0,0,"G",' ',"mv_par01","","","","","","","","","","","","","","","","","","","","","","","","","",""}) AADD(aRegs,{_cPer,"02","Prefixo ?"," "," ","mv_chc","C",03,0,0,"G",' ',"mv_par02","","","","","","","","","","","","","","","","","","","","","","","","","SE1",""}) AADD(aRegs,{_cPer,"03","Titulo ?"," "," ","mv_chd","C",09,0,0,"G",' ',"mv_par03","","","","","","","","","","","","","","","","","","","","","","","","","",""}) AADD(aRegs,{_cPer,"04","Parcela ?"," "," ","mv_che","C",02,0,0,"G",' ',"mv_par04","","","","","","","","","","","","","","","","","","","","","","","","","",""}) ElseIf _cPer = "FINMIS1TPN"
AADD(aRegs,{_cPer,"01","Total de Juros ?"," "," ","mv_chf","N",10,2,0,"G",' ',"mv_par01","","","","","","","","","","","","","","","","","","","","","","","","","",""}) AADD(aRegs,{_cPer,"02","Historico(50 C )?"," "," ","mv_chg","C",50,0,0,"G",' ',"mv_par02","","","","","","","","","","","","","","","","","","","","","","","","","",""}) ElseIf _cPer = "FINMIS1DEL"
AADD(aRegs,{_cPer,"01","Filial de ?"," ?"," ?","mv_chh","C",04,0,0,"G",' ',"mv_par01","","","","","","","","","","","","","","","","","","","","","","","","","",""}) AADD(aRegs,{_cPer,"02","Num Processo ?"," ?"," ?","mv_chi","C",09,0,0,"G",' ',"mv_par02","","","","","","","","","","","","","","","","","","","","","","","","","SZ9",""}) ElseIf _cPer = "FINMIS1TIT"
AADD(aRegs,{_cPer,"01","Num Processo ?"," ?"," ?","mv_chj","C",09,0,0,"G",'naovazio',"mv_par01","","","","","","","","","","","","","","","","","","","","","","","","","SZ9",""}) AADD(aRegs,{_cPer,"02","Filial do tiulo?"," "," ","mv_chk","C",04,0,0,"G",'naovazio',"mv_par02","","","","","","","","","","","","","","","","","","","","","","","","","",""}) AADD(aRegs,{_cPer,"03","Prefixo ?"," "," ","mv_chl","C",03,0,0,"G",'naovazio',"mv_par03","","","","","","","","","","","","","","","","","","","","","","","","","SE1",""}) AADD(aRegs,{_cPer,"04","Titulo ?"," "," ","mv_chm","C",09,0,0,"G",'naovazio',"mv_par04","","","","","","","","","","","","","","","","","","","","","","","","","",""}) AADD(aRegs,{_cPer,"05","Parcela ?"," "," ","mv_chn","C",02,0,0,"G",' ',"mv_par05","","","","","","","","","","","","","","","","","","","","","","","","","",""}) Endif
DbSelectArea("SX1")DbSetOrder(1) DbGotop()
For I:=1 to Len(aRegs) If !DBSeek(_cPer+aRegs[i,2])
RecLock("SX1",.T.) Else
RecLock("SX1",.F.) Endif
For j:=1 to Len(aRegs[i])
FieldPut(j,aRegs[i,j]) Next MsUnlock() Next
DBSelectArea(cAlias)
Return
-
A ParamBox pode ser utilizada em customizações? Me parece que não é aconselhável seu uso, mas utilizo em diversas rotinas, acho bem mais fácil que a Pergunte().
— Marcos Bispo Abrahão 04 de Sep de 2020 -
Parambox altera algumas variáveis em memoria como as MV_PARXX, em teoria o seu uso é somente interno da TOTVS, mas se você compreende a função e não ficar chamando parambox dentro de pontos de entrada eu particularmente não vejo problema.
— Maike Ramos de Oliveira 04 de Sep de 2020 -
Obrigado Maike, assim vou usar com menos peso na consciência.
— Marcos Bispo Abrahão 04 de Sep de 2020 -
Obrigado pessoal pelas dicas !
— Jefferson Barea Cantão 04 de Sep de 2020
-