POM350AGE - Opções na Enchoice Bar da rotina de Agendamento OFIOM350.

Este ponto de entrada tem como finalidade a inclusao de opções na Enchoice Bar (barra superior) na rotina de Agendamento (OFIOM350) do módulo de Oficina, do Gestão de Concessionárias.

/*
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
±±ÚÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄ¿±±
±±³Funcao    ³   OM350  ³ Autor ³ Andre Luis Almeida    ³ Data ³ 12/01/10 ³±±
±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄ´±±
±±³Descricao ³ Trata Visualizacao, Inclusao, Alteracao e Cancelamento     ³±±
±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´±±
±±³ Uso      ³ Agendamento OFICINA                                        ³±±
±±ÀÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ±±
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
*/
Function OM350(cAlias,nReg,nOpc)
Local cNIdentif:= ""
Local bCampo   := { |nCPO| Field(nCPO) }
Local nCntFor  := 0
Local _ni       := 0
Local cEnchNView := "VSO_NUMOSV/VSO_NUMIDE/VSO_SEGMOD/VSO_DATREG/VSO_HORREG/VSO_FUNAGE/VSO_NOMAGE/VSO_NUMORC/VSO_DATFIN/VSO_HORFIN"
Local cGetDNView := "VST_CODIGO/VST_TIPO/VST_EXPPEC/VST_EXPSRV/VST_CODMAR"
Local aRetPossAge:= {}
Private aMemos := {{"VSO_OBSMEM","VSO_OBSERV"}}
Private oAuxEnchoice
Private oAuxGetDados
Private oAuxDlg
Private aNewBot := {{"PARAMETROS",{|| FS_FICHAIMP() } , STR0010 } ,; // Ficha Curricular do Veiculo
                    {"INSTRUME",{|| FS_VEIOS() } , STR0011 } ,; // Ordens de Servico do Veiculo
                    {"BMPVISUAL",{|| aRetPossAge := FS_POSSAGE(IIf(nOpc==3.or.nOpc==4,1,0)) , FS_ATUPOSS(aRetPossAge) } , STR0012 } ,; // Possiveis Agendas
                    {"CLOCK02",{|| FS_DTHRAGE(IIf(nOpc==3.or.nOpc==4,1,0)) } , STR0013 + " - <F7>"} } // Hrs Disponioveis
//
If ( ExistBlock("OM350ABT") )
    aNewBot := ExecBlock("OM350ABT",.f.,.f.,{aNewBot})
EndIf
If FindFunction("FM_NEWBOT")
    FM_NEWBOT("POM350AGE","aNewBot") // Ponto de Entrada de Manutencao da aNewBot - Definicao de Novos Botoes na EnchoiceBar
    // Exemplo de PE
    // Local aRet := {}
    //    aadd(aRet,{"FILTRO",{|| U_FS_teste1()},"BOTAO1"})
    //    return(aRet)                           
Endif

OFIOM350, POM350AGE

POM350AGE - Opções na Enchoice Bar da rotina de Agendamento OFIOM350. ( [ ] ) --> aRet

aRet(array_of_record)
• Retornara um array (vetor) com o novo botao adicionado na Enchoice Bar.

/*===============================================================================#################################################################################+----------+------------+-------+-----------------------+------+----------+####|Função    | POM350AGE  | Autor |  Otavio Favarelli     | Data | 19/11/10 |####+----------+------------+-------+-----------------------+------+----------+####|Descrição | Botoes na Enchoice Bar da rotina de Agendamento OFIOM350     |####+----------+--------------------------------------------------------------+####|Uso       | Oficina                                                      |####+----------+--------------------------------------------------------------+#################################################################################===============================================================================*/User Function POM350AGE()aRet := {}aadd(aRet,{"FILTRO",{|| U_FS_Teste1()},"TESTEO1"})Return(aRet)           /*===============================================================================#################################################################################+----------+------------+-------+-----------------------+------+----------+####|Função    | FS_TESTE1  | Autor |  Otavio Favarelli     | Data | 19/11/10 |####+----------+------------+-------+-----------------------+------+----------+####|Descrição | User Function de chamada para teste do ponto de entrada      |####+----------+--------------------------------------------------------------+####|Uso       | Oficina                                                      |####+----------+--------------------------------------------------------------+#################################################################################===============================================================================*/User Function FS_Teste1()MsgStop("Sucesso! Ponto de Entrada POM350AGE!")Return