Histórico da Página

Ponto de Entrada

Descrição:

Ponto de Entrada para adicionar opções na rotina Agrega e Desagrega.

Localização:

Atualizações \ MovAtendimento \ Agrega/desagrega (VEIXA040)

Eventos:

Function VEIXA040()
Local cQuery := ""
Local cSQLAlias := "SQLVDV"
Local aVDV := {}
Local oModelVFJ
Local cNamVVA := RetSQLName("VVA")
Local cNamVVG := RetSQLName("VVG")
If GetNewPar("MV_MIL0194","0") == "0" // TEMPORARIO - Utiliza Agrega/Desagrega ANTIGO - VEIXX040
//
cCadastro := STR0001 // Agrega/Desagrega no Equipamento
aRotina := {{STR0003, "VEIVC140(VV1->VV1_CHASSI, VV1->VV1_CHAINT)", 0, 2},; // Visualizar
{STR0004, "VEIXX040(1)", 0, 4}, ; // Agregar
{STR0005, "VEIXX040(2)", 0, 4}, ; // Desagregar
{STR0006, "VX040CANC()", 0, 5}, ; // Cancelar
{STR0007, "VEIC020(VV1->VV1_CHASSI)", 0, 4}} // Histórico Agrega/Desagrega

If ( ExistBlock("VX0400BT") ) // Ponto de entrada para adicionar botões na mbrowse na tela de orçamentos fases
aRotina := ExecBlock("VX0400BT",.f.,.f.,{aRotina})
EndIf



    DbSelectArea("VV1")
    DbSetOrder(1)
    mBrowse( 6, 1,22,75,"VV1",,,,,,,,,,,,,," VV1_SITVEI='0' AND VV1_GRASEV<>'6' AND VV1_FILENT='"+xFilial("VVF")+"' ")
    DbSelectArea("VV1")
    Return()
    //
EndIf

Programa Fonte:

VEIXA040.PRW

Função:

VEIXA040()

Parâmetros:

Nome	Tipo	Descrição
PARAMIXB	Array	Vetor que compõe as opções padrão do browse da rotina

Retorno:

Nome	Tipo	Descrição
aRotina	Array	Vetor que compõe as opções atualizadas pelo ponto de entrada do browse da rotina

Exemplo:

#Include 'Protheus.ch'


User Function VX040BT()
    aRot := PARAMIXB[1]

    aadd(aRot, {"Botao Teste", "u_BOTTESTE", 0, 1})
Return aRot

User Function BOTTESTE()
    MsgAlert('Botao de Teste Acionado!', 'Botao')
Return

Árvore de páginas

Versões comparadas

Versão antiga 12

Nova versão 13

Chave

Ponto de Entrada