OX100BTO - Criação de botões customizados na janela de opções da rotina Fechamento de OS Modelo 2.

Descrição

Este ponto de entrada permite a criação de botões customizados na janela de opções da rotina Fechamento de OS Modelo 2. A janela pode ser acessada através da tecla F10.

Observações

Exemplos

#include "Protheus.ch"

User Function OX100BTO()

Local aRetorno := {}

AADD( aRetorno , { "Funcao Teste", "U_PEMSGFEC()" } )

Return aRetorno

User Function PEMSGFEC()

MsgInfo("User Function PEMSGFEC")

Return

Preview

Veja também

Idioma

Português(Brasil)

Versões

Versões_Anteriores

Sistemas Operacionais Suportados

Todos

Compatível com as Bases de Dados

Todas

Updates

Parâmetros

Retorno

aRetorno - Matriz com duas colunas sendo:
1 - Texto que será exibido no botão criado.
2 - String com chamada da função que deve ser executado quando o botão for acionado.

Eventos de chamada do Ponto de Entrada

If aScan( aVetTTP , {|x| x[ATT_VETSEL] == .t. } ) == 0

    MsgAlert(STR0053) // "Selecionar um registro para faturamento"

    Return .f.

EndIf

aBotOpcoes := {}

AADD( aBotOpcoes , { STR0044 , 'OX100BOTOPC(01)' } ) // "Cliente"

AADD( aBotOpcoes , { STR0045 , 'OX100BOTOPC(02)' } ) // "Posicao Analitica dos Servicos"

If ExistBlock("OX100BTO")

    aAuxBotParc := ExecBlock("OX100BTO",.f.,.f.)

    If ValType(aAuxBotParc) == "A"

        For nCntFor := 1 to Len(aAuxBotParc)

            AADD( aBotOpcoes , aClone(aAuxBotParc[nCntFor]) )

        Next nCntFor

    EndIf

EndIf

nQtdeBot := Len(aBotOpcoes)    // Qtde de Botoes na Dialog

nDist    := 3    // Distancia entre os botoes

nAltura  := 12    // Altura de cada botao

nLinha   := 2    // Linha para atual para criar o botao

nLargura := 118    // Largura de cada botao

SetKey(VK_F10,{|| Nil })

Variáveis

Programa Fonte

OFIXX100.PRW