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:
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.
Monstro do desenvolvimento esse Thalys.
Top demais já estou ate pensando que vou add