DT_INCBOT010_Criacao_de_opcoes_do_Acoes_Relacionadas_na_inclusao_de_OS_da_rotina_Orc_por_Fases

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).

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

Função:

OM010