Como adicionar outras informações no F4 do Produto

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.

Dan Atilio (Daniel Atilio)
Especialista em Engenharia de Software pela FIB. Entusiasta de soluções Open Source. E blogueiro nas horas vagas.

2 Responses

  1. Isaac Araujo disse:

    Monstro do desenvolvimento esse Thalys.

  2. Leandro Jose Leite da Paixao disse:

    Top demais já estou ate pensando que vou add

Deixe uma resposta