TECA120 - Planos de manutenção x Rotina automatica (Execauto)

Descrição:

A rotina automática TECA120 permite efetuar a manutenção no Plano de manutenção

Sintaxe:

TECA120 - Rotina Automática de Orçamento (xAutoCab, xAutoItens, nOpcAuto )

Exemplos:

#Include "Protheus.ch"
#Include "tbiconn.ch"

User function MyTeca120()

Local aCabec := {}
Local aItens := {}
Local aItem := {}
Local nOPC := 4 //inclusão 4//alteração 5//exclusão

Private lMsErroAuto := .F.

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//| Abertura do ambiente |
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ

ConOut(Repl("-",80))

PREPARE ENVIRONMENT EMPRESA "T1" FILIAL "D MG 01"

aAdd(aCabec,{"AA8_PLANO" ,"000001" ,Nil})
aAdd(aCabec,{"AA8_DESC" ,"PLANO PADRAO" ,Nil})

aAdd(aItens,{"AA9_DESC    " ,"MANUTENCAO PREVENTIVA" ,Nil})
aAdd(aItens,{"AA9_UNIINI  " ,"1" ,Nil})
aAdd(aItens,{"AA9_INICIO  " ,1,Nil})
aAdd(aItens,{"AA9_UNIINT  " ,"2",Nil})
aAdd(aItens,{"AA9_INTERV  " ,1,Nil})
aAdd(aItens,{"AA9_QUANT   " ,12,Nil})
aAdd(aItens,{"AA9_TMPSRV  " ,"08:00",Nil})
aAdd(aItens,{"AA9_CODPRB  " ,"OC01",Nil})
aadd(aItem,aItens)

TECA120(aCabec,aItem,nOPC)

If !lMsErroAuto
    ConOut("Inclusao com sucesso! ")
Else
    ConOut("Erro na inclusao!")
EndIf
aCabec := {}
aItem := {}
aItens := {}

ConOut(Repl("-",80))

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//| Fechamento do ambiente |
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ

RESET ENVIRONMENT

Return

Idioma:

Português(Brasil)

Versões:

Microsiga_Protheus10_Microsiga_Protheus11_e_Microsiga_Protheus12

Sistemas Operacionais Suportados:

Todos

Compatível com as Bases de Dados:

Todas

Parâmetros:

xAutoCab => Array of Records (AA8)
xAutoItens => Array of Records (AA9)
nOpc => Numérico

Programa Fonte:

TECA120