Acionar o F4 do Produto em uma Customização | Ti Responde 036

No vídeo de hoje, vamos demonstrar em como acionar aquela tela do F4 do cadastro de produtos em uma customização.

Hoje, a dúvida foi feita pelo grande Cesar, onde ele perguntou em como poderia acionar a tela do F4 do Produto em uma customização.

Com isso em mente, fiz um vídeo explicando como acionar a função padrão em uma customização.

E abaixo o código fonte desenvolvido para exemplificar:

//Bibliotecas
#Include "TOTVS.ch"

/*/{Protheus.doc} User Function zVid0036
Função para abrir a tela do "F4" do Produto
@type  Function
@author Atilio
@since 10/05/2022
/*/

User Function zVid0036(cCodProd)
    Local aArea    := FWGetArea()
    Default cCodProd := ""

    DbSelectArea('SB1')
    SB1->(DbSetOrder(1)) // B1_FILIAL + B1_COD

    //Se conseguir posicionar no produto
    If SB1->(DbSeek(FWxFilial('SB1') + cCodProd))
        MaViewSB2(SB1->B1_COD)
    EndIf

    FWRestArea(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.

4 Responses

  1. JJ disse:

    não precisa de um “SB1->(DbCloseArea())”?
    o que muda colocar ou nao?

  2. Carlos Henderson Boas disse:

    E como coloco está tela de consulta no sistema? Como faço p abrir ela? Ou colocar no menu?

Deixe uma resposta

Terminal de Informação