Linha Microsiga Protheus

Árvore de páginas

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:
NomeTipoDescrição

PARAMIXB

Array

Vetor que compõe as opções padrão do browse da rotina

Retorno:
NomeTipoDescriçã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