- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- [RESOLVIDO] Componentes desconfigurados
×
Linguagem de Programação ADVPL
Perguntas [RESOLVIDO] Componentes desconfigurados
- franciscpd
- Autor do Tópico
- Desconectado
- Membro Iniciado
Menos
Mais
- Postagens: 4
- Obrigados Recebidos: 0
7 anos 11 meses atrás - 7 anos 11 meses atrás #31458
por franciscpd
[RESOLVIDO] Componentes desconfigurados foi criado por franciscpd
Boa tarde, desenvolvi uma tela customizada, após aplicar patch no meu ambiente de testes a mesma funcionou perfeitamente, mas após aplicar o mesmo patch em produção as grids aparecem em tamanho minúsculo, conforme pode ser visto nas imagens:
Ambiente de teste:
Ambiente de produção:
Alguém já passou por algo parecido?
Ambiente de teste:
Ambiente de produção:
Alguém já passou por algo parecido?
Ultima edição: 7 anos 11 meses atrás por franciscpd. Razão: Resolução do problema.
Por favor Acessar ou Registrar para participar da conversa.
- admin
- Desconectado
- Administrador
Menos
Mais
- Postagens: 297
- Obrigados Recebidos: 21
- franciscpd
- Autor do Tópico
- Desconectado
- Membro Iniciado
Menos
Mais
- Postagens: 4
- Obrigados Recebidos: 0
7 anos 11 meses atrás #31464
por franciscpd
Respondido por franciscpd no tópico Componentes desconfigurados
Então amigo, estou utilizando a FWGetDialogSize(oMainWnd) mas para a MSDialog, o tamanho da TFolder está em toda a tela, agora não sei se o problema está ocorrendo com o FWLayer.
Segue o código da tela:
Local aCoors := FWGetDialogSize(oMainWnd)
Local aButtons := {}
Local oPanelM
Local oPanelMP
Local oPanelD
Local oPanelDP
Local oFWLayer
Local oFWLayerD
Local oPanelTotal
Local oTotalVenda
Local oTotalEstoq
Local oTotalMedia
Local oTotalQtdVe
Local oTotalCusto
Local oSay1, oSay2, oSay3, oSay4, oSay5
Processa({|| ExecutaConsultaSQL()}, "Aguarde...", "Obtendo dados...")
DEFINE MSDIALOG _oDlgPrinc TITLE 'Análise de Compra por Pedido' FROM aCoors[1], aCoors[2] TO aCoors[3], aCoors[4] PIXEL
_aTFolder := {'F11 - Principal', 'F12 - Detalhe'}
_oTFolder := TFolder():New(0, 0, _aTFolder,, _oDlgPrinc,,,, .T.,, 0, 0)
_oTFolder:Align := CONTROL_ALIGN_ALLCLIENT
_oTFolder:bSetOption := {|| Totaliza(_oTFolder:nOption)}
SetKey(VK_F11, {|| _oTFolder:SetOption(1)})
SetKey(VK_F12, {|| _oTFolder:SetOption(2)})
oFWLayer := FWLayer():New()
oFWLayer:Init(_oTFolder:aDialogs[1], .F., .T.)
// Define Painel Superior
oFWLayer:AddLine('UP', 58, .F. )
oFWLayer:AddCollumn('ALL', 100, .T., 'UP')
oPanelM := oFWLayer:GetColPanel('ALL', 'UP')
// Painel Inferior
oFWLayer:AddLine('DOWN', 42, .F.)
oFWLayer:AddCollumn('ALL', 100, .T., 'DOWN' )
oPanelD := oFWLayer:GetColPanel('ALL' , 'DOWN')
NewGridM(oPanelM)
NewGridD(oPanelD)
oFWLayerD := FWLayer():New()
oFWLayerD:Init(_oTFolder:aDialogs[2], .F., .T.)
// Define Painel Superior
oFWLayerD:AddLine('UP', 58, .F. )
oFWLayerD:AddCollumn('ALL', 100, .T., 'UP')
oPanelMP := oFWLayerD:GetColPanel('ALL', 'UP')
// Painel Inferior
oFWLayerD:AddLine('DOWN', 42, .F.)
oFWLayerD:AddCollumn('LEFT', 80, .T., 'DOWN' )
oFWLayerD:AddCollumn('RIGHT', 20, .T., 'DOWN' )
oPanelDP := oFWLayerD:GetColPanel('LEFT' , 'DOWN')
/*/
Totalização
/*/
oPanelTotal := oFWLayerD:GetColPanel('RIGHT' , 'DOWN')
@012, 013 SAY oSay1 PROMPT "Total Venda" OF oPanelTotal PIXEL
@010, 065 MSGET oTotalVenda VAR _nTVenda SIZE 45, 007 READONLY OF oPanelTotal COLORS 0, 16777215 PIXEL
@027, 013 SAY oSay2 PROMPT "Total Estoque" OF oPanelTotal PIXEL
@025, 065 MSGET oTotalEstoq VAR _nTEstq SIZE 45, 007 READONLY OF oPanelTotal COLORS 0, 16777215 PIXEL
@042, 013 SAY oSay3 PROMPT "Total M Mensal" OF oPanelTotal PIXEL
@040, 065 MSGET oTotalMedia VAR _nTMedi SIZE 45, 007 READONLY OF oPanelTotal COLORS 0, 16777215 PIXEL
@057, 013 SAY oSay4 PROMPT "Total Qtde Vend." OF oPanelTotal PIXEL
@055, 065 MSGET oTotalQtdVe VAR _nTVendi SIZE 45, 007 READONLY OF oPanelTotal COLORS 0, 16777215 PIXEL
@072, 013 SAY oSay5 PROMPT "Total Custo Atual" OF oPanelTotal PIXEL
@070, 065 MSGET oTotalCusto VAR _nTCusto SIZE 45, 007 PICTURE PesqPict("SB2", "B2_CM1") READONLY OF oPanelTotal COLORS 0, 16777215 PIXEL
NewGridMP(oPanelMP)
NewGridDP(oPanelDP)
SetRelation()
ACTIVATE MSDIALOG _oDlgPrinc CENTER ON INIT (EnchoiceBar(_oDlgPrinc,{||},{||_oDlgPrinc:End()},.F.,@aButtons,,'',.F.,.F.,.F.,.F.,.F.,'',))
SetKey(VK_F11, nil)
SetKey(VK_F12, nil)
Por favor Acessar ou Registrar para participar da conversa.
- lalberto
- Desconectado
- Administrador
Menos
Mais
- Postagens: 3676
- Obrigados Recebidos: 6
7 anos 11 meses atrás #31476
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 Componentes desconfigurados
Vc já debugou em ambos os ambientes ?
Verifique o conteudo em ambos do vetor aCoors
Verifique o conteudo em ambos do vetor aCoors
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.
- franciscpd
- Autor do Tópico
- Desconectado
- Membro Iniciado
Menos
Mais
- Postagens: 4
- Obrigados Recebidos: 0
7 anos 11 meses atrás #31478
por franciscpd
Respondido por franciscpd no tópico Componentes desconfigurados
Só consigo debugar em teste, em produção não consigo. Pois nosso servidor está no cloud da totvs.
Por favor Acessar ou Registrar para participar da conversa.
- lalberto
- Desconectado
- Administrador
Menos
Mais
- Postagens: 3676
- Obrigados Recebidos: 6
7 anos 11 meses atrás #31479
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 Componentes desconfigurados
Estranho tenho cliente em cloud e debugo normalmente.
mas então coloca um alert assim que abrir a janela
Alert(Str(aCoors[1]) + ' ' + Str(aCoors[2]) + ' ' + Str(aCoors[3]) + ' ' + Str(aCoors[4]))
mas então coloca um alert assim que abrir a janela
Alert(Str(aCoors[1]) + ' ' + Str(aCoors[2]) + ' ' + Str(aCoors[3]) + ' ' + Str(aCoors[4]))
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.
- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- [RESOLVIDO] Componentes desconfigurados
Tempo para a criação da página:0.193 segundos