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 (Daniel Atilio)
Cristão de ramificação protestante. Especialista em Engenharia de Software pela FIB, graduado em Banco de Dados pela FATEC Bauru e técnico em informática pelo CTI da Unesp. Entusiasta de soluções Open Source e blogueiro nas horas vagas. Autor e mantenedor do portal Terminal de Informação.

6 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

  3. Robson disse:

    Boa tarde.

    Obrigado pela dica, muito valiosa.
    Eu tentei aplicar em um campo customizado.
    B1_XFATOR
    que criamos, para cadastrarem o fator de conversão para chapas.
    Mas não está aparecendo.
    Tentei posicionar com M->
    e com SB1-> mas não traz a informação, e o produto em específico está com este campo informado.
    Alguém tem alguma dica?

    Obrigado

    • Boa noite Robson, tudo joia?

      No mesmo fonte, se você coloca por exemplo Alert(SB1->B1_XFATOR), ele traz a informação corretamente?

      Se sim, ai você precisa verificar então na criação do seu MSGET / TGET, talvez aumentando a largura ou as coordenadas de linha e coluna.

      Um grande abraço.

  4. Robson disse:

    Opa..Mestre..

    Consegui, deu boa da mesma forma que está no exemplo….Erro inocente meu, o produto não tinha a informação!
    Desculpa.

Deixe uma resposta

Terminal de Informação