Hoje vamos demonstrar em como adicionar outras informações no F4 do Produto.

Para quem já precisou adicionar informações ao pressionar F4 na tela de produtos, o grande Thalys Juvenal ( LinkedIn ) gentilmente disponibilizou um exemplo de ponto de entrada para fazer isso.

No caso, é redimensionado a tela e é adicionado o Ponto de Pedido (Estoque Mínimo), o Lote Econômico e o Lote Mínimo.

Abaixo um print do resultado:

Tela acionada pelo F4 no cadastro de Produtos

Abaixo o código fonte desenvolvido:

//Bibliotecas
#Include "TOTVS.ch"

User Function MTGRDVW()
	Local aArea := GetArea()

	//Aumenta a altura da dialog do F4
    ParamIXB[3]:nHeight := 565

	//Adiciona o Get de Ponto de Pedido
    @ 225,007 SAY RetTitle("B1_EMIN ") of @PARAMIXB[3] PIXEL 
    @ 224,075 MsGet SB1->B1_EMIN of @PARAMIXB[3] PIXEL SIZE 070,009 When .F.
	
	//Adiciona o Get de Lote Economico
    @ 240,007 SAY RetTitle("B1_LE ") of @PARAMIXB[3] PIXEL 
    @ 239,075 MsGet SB1->B1_LE of @PARAMIXB[3] PIXEL SIZE 070,009 When .F.
	
	//Adiciona o Get de Lote Minimo
    @ 255,007 SAY RetTitle("B1_LM ") of @PARAMIXB[3] PIXEL 
    @ 254,075 MsGet SB1->B1_LM of @PARAMIXB[3] PIXEL SIZE 070,009 When .F.
    
	RestArea(aArea)
Return

Bom pessoal, por hoje é só.

Abraços e até a próxima.

Tags: AdvPLProtheus