Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Comentário: Migration of unmigrated content due to installation of a new plugin

Ponto de Entrada

Descrição:

Este ponto de entrada está localizado na rotina Abertura OS (OFIOM010). Sua funcionalidade permite que o usuário crie/atualize as opções do Ações Relacionadas do browse de inclusão de OS da rotina Orc. por Fases (OFIXA011).

Parâmetros:

aRet - Botões da Enchoice

Eventos:

/*

ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ

±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±

±±ÉÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍ»±±

±±ºPrograma ³OM010I ºAutor ³Fabio / Emilton º Data ³ 08/31/00 º±±

±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍ͹±±

±±ºDesc. ³Incluir ordem de servico º±±

±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹±±

±±ºUso ³ Oficina º±±

±±ÈÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ±±

±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±

ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß

*/

Function OM010I(cAlias,nReg,nOpc)

 

Local oDlgOSv, cNumOSv , aVetCampos := {} , cArqOsv

Local aCpoAltera := IIF( nOpc # 3 , {} , NIL )

Local oFont := TFont():New( "Courier New", 7, 15 ) // Sans Serif Courier

Local nRecnoVO1 := 0, nCntFor := 0, nOpca:=0

Local nCrrgVar := 0

Local aObjects := {} , aPosObj := {} , aInfo := {} , aSizeAut := MsAdvSize(.t.) // Variaveis para posicionamento de Tela

 

Private aCpoEnchoice :={}

Private nOpcE := 0 , nOpcG := 0 , aFicha := {} , aHeader:={} , cChaIntF := "" , cChaIntA := ""

Private oLbaFicha , lImportAge := .f.

Private cObsOS := "", nTamObs := 0, aCfgCpo := {}, cMostraAgr := "", cMostraSeq := ""

Private nLenaCols:=0

 

PRIVATE aRotina := { { ,"", , 3},;

{ ,"", , 3},;

{ ,"", , 3},;

{ ,"", , 4}}

 

Private lValCamp := .t.

Private aBotoes := { {"PESQUISA",{|| FG_OSONLINE() },STR0011} }

 

Private lVO1DATATE := .F.

Private lVO1HORTRI := ( VO1->(FieldPos("VO1_HORTRI")) <> 0 )

 

If lGarMut

AADD( aBotoes , { "LJPRECO" , { || OM010GMUT() } , STR0128 } ) // "Garantia mutua"

EndIf

 

If cMVMIL0006 == "JD" .AND. FindFunction("OFICJD01")

AADD( aBotoes , {"GET", { || OM010WS(2) } , STR0131 }) // "Consulta Inf. Garantia"

AADD( aBotoes , {"GET", { || OM010WS(3) } , STR0132 }) // "Consulta Plano Revisão/PMP"

EndIf

 

If cMVMIL0006 == "SCA" .AND. FindFunction("OFICSC01")

AADD( aBotoes , {"GLOBO", { || OM010WS(2) } , STR0097 }) // "Claw"

EndIf

 

If ExistBlock("INCBOT010")

aBotoes := ExecBlock("INCBOT010",.f.,.f.,{aBotoes})

EndIf

 

If Type("lAuto") == "U"

lAuto := .f.

EndIf

 

If nOpc == 4 .And. VO1->VO1_STATUS # "A"

if VO1->VO1_STATUS <> "F" .and. VO1->VO1_STATUS # "C"

DbSelectArea("SX3")

DbSetOrder(2)

If DbSeek("VO1_FATPAR")

if !Empty(SX3->X3_WHEN) .and. &(SX3->X3_WHEN) == .f. // Os campo VO1_FATPAR e VO1_LOJA So é permitido alteraçao quando a O.S. nao estiver mais aberta para os casos que os campos estirem abilitados no WHEN

Help(" ",1,"OSNABERTA")

Return

Endif

Endif

Else

Help(" ",1,"OSNABERTA")

Return

Endif

EndIf

Programa Fonte:

OFIOM010.PRW 

Função:

OM010  

Retorno:

aRet - Botões da Enchoice

 

Exemplo:

User Function INCBOT010()

 

aRet := ParamIxb[1]

 

aadd(aRet,{"FILTRO",{|| U_FUNCAO_X()},"Funcao X"})

 

Return(aRet)