Função: TECA460 - Manutenção do Atendimento da O.S (ExecAuto)

Características do Requisito

Descrição

Função utilizada para incluir, alterar ou excluir o Atendimento da O.S via ExecAuto.

Exemplo:

#INCLUDE "PROTHEUS.CH"

User Function AutTEC460()

Local aCabec := {} //Array para o cabeçalho do atendimento
Local aItem := {} //Array auxiliar para os itens da O.S
Local aItens := {} //Array para o item da O.S
Local lRet := .F. //Retorno da função
Local nX := 0

Private lMsHelpAuto := .T. // Controle interno do ExecAuto
Private lMsErroAuto := .F. // Informa a ocorrência de erros no ExecAuto
Private lAutoErrNoFile := .T. // Loga Erros do Execauto na array
Private INCLUI := .T. // Variavel necessária para o ExecAuto identificar que se trata de uma inclusão
Private ALTERA := .F. // Variavel necessária para o ExecAuto identificar que se trata de uma inclusão

//Adiciona itens para o cabeçalho do Atendimento
aAdd(aCabec,{"AB9_NUMOS" ,"00000101", Nil }) // Numero da O.S + Item
aAdd(aCabec,{"AB9_SEQ" ,"01", Nil }) // Sequencia de Atendimento
aAdd(aCabec,{"AB9_CODTEC" ,"000001", Nil }) // Codigo do Técnico
aAdd(aCabec,{"AB9_DTCHEG" ,ddatabase, Nil }) // Data de Chegada
aAdd(aCabec,{"AB9_HRCHEG" ,"10:00", Nil }) // Hora de Chegada
aAdd(aCabec,{"AB9_DTSAID" ,ddatabase, Nil }) // Data de Saida
aAdd(aCabec,{"AB9_HRSAID" ,"11:00", Nil }) // Hora de Saida
aAdd(aCabec,{"AB9_DTINI" ,ddatabase, Nil }) // Data de Inicio
aAdd(aCabec,{"AB9_HRINI" ,"10:00", Nil }) // Hora de Inicio
aAdd(aCabec,{"AB9_DTFIM" ,ddatabase, Nil }) // Data de Fim
aAdd(aCabec,{"AB9_HRFIM" ,"11:00", Nil }) // Hora de Fim
aAdd(aCabec,{"AB9_CODPRB" ,"OCORR1", Nil }) // Codigo da Ocorrencia
aAdd(aCabec,{"AB9_TIPO" ,"1", Nil }) // Tipo(1= Encerrado,2=Aberta)
aAdd(aCabec,{"AB9_TOTFAT" ,"01:00", Nil }) // Horas Faturadas

For nX := 1 To 1
    aItem := {}
    //Itens do Atendimento da O.S
    aAdd(aItem, {"ABA_ITEM" ,"01", Nil}) // Item
    aAdd(aItem, {"ABA_CODPRO" ,"TESTE-TRWVCG-2 ", Nil}) // Cod. do Produto
    aAdd(aItem, {"ABA_QUANT" ,10, Nil}) // Quantidade usada
    aAdd(aItem, {"ABA_CODSER" ,"000001", Nil}) // Cod. do servico
    aAdd(aItens,aItem)
Next nX

//Executa ExecAuto
TECA460(aCabec,aItens,3) // 3-Incluir ; 4-Alterar ; 5-Excluir

If !lMsErroAuto
    lRet := .T.
Else
    MostraErro()
EndIf

aCabec := {}
aItem := {}
aItens := {}

Return ( lRet )