× Linguagem de Programação ADVPL

Perguntas [RESOLVIDO] Componentes desconfigurados

Mais
7 anos 11 meses atrás - 7 anos 11 meses atrás #31458 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?
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.

Mais
7 anos 11 meses atrás #31463 por admin
Respondido por admin no tópico Componentes desconfigurados
Cara nunca vi isso, os dois ambientes estão atualizados ?

Você está usando alguma função que captura tamanho da tela ?

Por favor Acessar ou Registrar para participar da conversa.

Mais
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.

Mais
7 anos 11 meses atrás #31476 por lalberto
Respondido por lalberto no tópico Componentes desconfigurados
Vc já debugou em ambos os ambientes ?

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.

Mais
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.

Mais
7 anos 11 meses atrás #31479 por lalberto
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]))

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.

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