FT325BTNAR - Opção personalizada na Publicação de Preço

Descrição

Permite a inclusão de uma opção no menu Ações Relacionadas da tela de Publicação de Preços, durante uma inclusão ou alteração.

Observações

Pode ser utilizado para inserir opções no menu de ações relacionadas com a finalidade de atender regras de negócio específicas.

Exemplos

//PE para criação de botão no menu Ações Relacionadas

User Function FT325BTNAR()

Local cDesc  := ""  //Descrição do botão criado no menu ações relacionadas

Local bExec  := {}  //Bloco de código que define a função acionada pelo botão

//Atribui os valores aos campos

cDesc := "Teste FT325BTNAR"

bExec := { |oView| U_TSTBtn() }

Return {cDesc, bExec}      //Retorna array com a descrição e o bloco de código

//Função de exemplo usada no PE FT325BTNAR

//Altera os dados dos campos da Publicação de Preços

User Function TSTBtn()

Local oModel        := FWModelActive()  //Cria objeto com model ativo

Local oModelSAX     := nil              //Cria objeto com estrutura da master

Local oModelSAY     := nil              //Cria objeto com estrutura da detail

//Ativa o model

oModel:Activate()

//Gera estrutura da Master e da Detail

oModelSAX    := oModel:GetModel("SAXMASTER")

oModelSAY    := oModel:GetModel("SAYDETAIL")

//Altera o valor dos campos em memória

oModelSAX:SetValue( "AX_DATAINI", dDataBase)

oModelSAX:SetValue( "AX_DESCRI", "Teste do PE FT325BTNAR" )

oModelSAX:SetValue( "AX_HORAINI", "08:00" )

oModelSAY:SetValue( "AY_PRODUTO", "0003" )

oModelSAY:SetValue( "AY_PRCSUG", 19.99 )

Return

Preview

Veja também

Idioma

Português(Brasil), Português(Portugal), Inglês, Espanhol

Versões

Microsiga Protheus10, Microsiga Protheus 11

Sistemas Operacionais Suportados

Todos

Compatível com as Bases de Dados

Todas

Updates

UPDFAT12

Parâmetros

Retorno

Eventos de chamada do Ponto de Entrada

Variáveis

Programa Fonte

MATA325.PRW