PEOA280B - Criação de Opções no Ações Relacionadas da Rotina de Check-List Oficina

Ponto de Entrada disponível, para efetuar a criação de Opções nas Ações Relacionadas da rotina de Check-List Oficina.

/*
ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
±±ÉÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍ»±±
±±ºPrograma ³ PEOA280B Autor ³ MIL º Data ³ 31/10/14 º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±ºDescricao ³ Ponto de Entrada para Criação de Opções nas Ações º±±
±±º ³ Relacionadas da Rotina de Check-List Oficina º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
*/
User Function PEOA280B()

Local aBotoes := \{ \{"BUDGETY", \{||.t.\}, OemToAnsi("PEOA280B")\} \}

MsgAlert("Ponto de Entrada PEOA280B executado com sucesso!","Atenção")

Return(aBotoes)

Português(Brasil)

Todas

Todos

Todas

nenhum

Array no formato \{ \{"BUDGETY", \{||OFIOR300()\}, OemToAnsi("Descricao")\} \}

Function OFIOA280I(cAlias1,nReg,nOpc)
//variaveis controle de janela
Local aObjects := \{\} , aPosObj := \{\} , aPosObjApon := \{\} , aInfo := \{\}
Local aSizeAut := MsAdvSize(.T.) // Tamanho Maximo da Janela (.t.=TOOLBAR,.f.=SEM TOOLBAR)
Local nCntFor := 0
Local cCadastro := STR0007 //"Checklist de Veiculos"
Local aButtons := nil
Local oDlgChk,oBtnAva
Local nOpcG
Local nOpcE
Local nOpcao := 0
Local aCpoEnchoice := \{\}
Local cLinOk := "OA280LINOK()", cTudoOk := "OA280TUDOK()", cFieldOk := "OA280FILOK()"
Local nwnk := 0
Private oEnchochk
Private nOpcX := nOpc
Private oGetDados1
Private aHeader := \{\}, aCols := \{\}
Private aTELA[0][0],aGETS[0]
Private oBtnNew
Private cCodigo := "" // esta variavel eh utilizada no filtro da consulta va0 para poder filtrar
// pelo codigo pai do item generico de checklist da avaliacao
Private atelas := \{\} // Controle de angulos de visualizacao de figuras
Private cCodIte := "" // vide cCodigo

If EXISTBLOCK("PEOA280B")
aButtons := ExecBlock("PEOA280B")
Else
aButtons := \{ \{"BUDGETY", \{||OFIOR300()\}, OemToAnsi(STR0008)\} \} //"Checklist do Veiculo" - Impressao do relatorio
Endif

RegToMeMory("VA8",Inclui)
nOpcG := nOpcX
nOpcE := nOpcX

OFIOA280.PRW