- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- [RESOLVIDO] EnchoiceBar versão 10/11
×
Linguagem de Programação ADVPL
Perguntas [RESOLVIDO] EnchoiceBar versão 10/11
- arlindoneto
- Autor do Tópico
- Desconectado
- Membro Júnior
Menos
Mais
- Postagens: 31
- Obrigados Recebidos: 0
11 anos 7 meses atrás #12771
por arlindoneto
[RESOLVIDO] EnchoiceBar versão 10/11 foi criado 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?
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.
- lalberto
- Desconectado
- Administrador
Menos
Mais
- Postagens: 3676
- Obrigados Recebidos: 6
11 anos 7 meses atrás #12772
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 [RESOLVIDO] EnchoiceBar versão 10/11
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.
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.
- arlindoneto
- Autor do Tópico
- Desconectado
- Membro Júnior
Menos
Mais
- Postagens: 31
- Obrigados Recebidos: 0
11 anos 7 meses atrás - 11 anos 7 meses atrás #12773
por arlindoneto
Respondido por arlindoneto no tópico [RESOLVIDO] EnchoiceBar versão 10/11
Segue em anexo a imagem...
gostaria que a enchoiceBar ficasse na parte superior
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
Ultima edição: 11 anos 7 meses atrás por arlindoneto.
Por favor Acessar ou Registrar para participar da conversa.
- lalberto
- Desconectado
- Administrador
Menos
Mais
- Postagens: 3676
- Obrigados Recebidos: 6
11 anos 7 meses atrás #12774
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 [RESOLVIDO] EnchoiceBar versão 10/11
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.
- arlindoneto
- Autor do Tópico
- Desconectado
- Membro Júnior
Menos
Mais
- Postagens: 31
- Obrigados Recebidos: 0
11 anos 7 meses atrás #12777
por arlindoneto
Respondido por arlindoneto no tópico [RESOLVIDO] EnchoiceBar versão 10/11
essa tela e customizada
Por favor Acessar ou Registrar para participar da conversa.
- de019
- Desconectado
- Membro Sénior
Menos
Mais
- Postagens: 66
- Obrigados Recebidos: 0
- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- [RESOLVIDO] EnchoiceBar versão 10/11
Tempo para a criação da página:0.102 segundos