× Linguagem de Programação ADVPL

Perguntas [RESOLVIDO] EnchoiceBar versão 10/11

Mais
11 anos 7 meses atrás #12771 por arlindoneto
Srs. estou tendo problema de migração das telas customizadas da versão 10 para a versão 11.

Na versão 11 a enchoiceBar está ficando na parte inferior da tela. Eu gostaria que a a enchoiceBar ficasse na tela superior da tela.

Alguém teria alguma solução?

Por favor Acessar ou Registrar para participar da conversa.

Mais
11 anos 7 meses atrás #12772 por lalberto
Hum acho que por padrão o botão ações relacionadas fica em baixo merrmo.

manda um print da tela ai pra eu ver, e o comando da enchoicebar.

Abraços.

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.

Mais
11 anos 7 meses atrás - 11 anos 7 meses atrás #12773 por arlindoneto
Segue em anexo a imagem...

gostaria que a enchoiceBar ficasse na parte superior
	User Function LOJ25Inclui(cAlias, nRecNo, nOpc )
	Local nX
	Local nOpcA     := 0
	Local oMainWnd  := Nil
	Local aAlter    := Nil
	Local aAltera   := {}
	
	Private aTela   := {}
	Private aGets   := {}
	Private bCampo  := { |nField| Field(nField) }
	Private Inclui  := (nOpc == 3)
	Private Altera  := (nOpc == 4)
	Private cFilPC4 := (cAlias)->(XFILIAL(cAlias))
	Private aAcho   := { "PC4_GRUPO", "PC4_DESCRI", "PC4_VERBA", "NOUSER"}
	
	Private oDlg    := Nil
	Private oGet    := Nil
	Private aHeader := {}
	Private aCols   := {}
	Private nPD     := 1
	
	// Ajusta o tamanho dos campos
	For nX:=1 To Len(aAcho)
		aAcho[nX] := PADR(aAcho[nX],Len(SX3->X3_CAMPO))
	Next
	
	//+----------------
	//| Monta os aCols
	//+----------------
	MontaaCols(@aAltera,Inclui,nOpc)
	
	//+----------------------------------
	//| Inicia as variaveis para Enchoice
	//+----------------------------------
	dbSelectArea(cAlias1)
	dbSetOrder(1)
	dbGoTo(nRecNo)
	For nX:= 1 To FCount()
		M->&(Eval(bCampo,nX)) := If( Inclui , CriaVar(FieldName(nX),.T.), FieldGet(nX))
	Next nX
	
	DEFINE MSDIALOG oDlg TITLE cCadastro From 9,0 TO 40,95 OF oMainWnd
	
	EnChoice(cAlias, nRecNo, nOpc,,,,aAcho,aPos,, 3,,,,oDlg)
	
	oGet := MSGetDados():New(aPos[3]+3,aPos[2],aPos[3]+165,aPos[4],nOpc,"u_LOJ25LinOk()",,,.T.,aAlter,,,1000,,,,"u_LOJ25DelIt()",oDlg)
	
	ACTIVATE MSDIALOG oDlg CENTERED ON INIT EnchoiceBar(oDlg, {|| nOpcA := If( nOpc == 2 .Or. nOpc == 5 .Or. Obrigatorio(aGets,aTela).And.;
                                                              u_LOJ25TudOk(),1,0),;
                                                              If(nOpcA==1,oDlg:End(),) }, {||nOpcA:=0,oDlg:End()} )
 	
	If nOpc > 2
		If nOpcA == 1
			Begin Transaction
			LOJ25Grava(nOpc,nRecNo,aAltera)
			End Transaction
			
			If Inclui  // Se for Inclusão
				ConfirmSX8()
			Endif
		ElseIf Inclui  // Se for Inclusão
			RollBackSX8()
		Endif
	Endif
	
Return
Anexos:
Ultima edição: 11 anos 7 meses atrás por arlindoneto.

Por favor Acessar ou Registrar para participar da conversa.

Mais
11 anos 7 meses atrás #12774 por lalberto
Essa tela é sua ? customizada ?, manda a parte do fonte aonde vc executa a enchoicebar

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.

Mais
11 anos 7 meses atrás #12777 por arlindoneto
essa tela e customizada

Por favor Acessar ou Registrar para participar da conversa.

Mais
11 anos 7 meses atrás #12779 por de019
Respondido por de019 no tópico [RESOLVIDO] EnchoiceBar versão 10/11
Cara, vc vai ter q abrir o fonte e mudar a posição do enchoicerbar

Por favor Acessar ou Registrar para participar da conversa.

Tempo para a criação da página:0.102 segundos
Joomla templates by a4joomla