Função: TECA460 - Manutenção do Atendimento da O.S (ExecAuto)
Características do Requisito
Linha de Produto: | Microsiga Protheus® | ||||
Segmento: | Serviços | ||||
Módulo: | Gestão de Serviços | ||||
Rotina: |
| ||||
País(es): | Todos | ||||
Banco(s) de Dados: | Todos | ||||
Tabelas utilizadas: | AB9 - Apontamento Atendimento | ||||
Sistema(s) operacional(is): | Windows/ Linux | ||||
Versões/Release: | 11.80 |
Descrição
Função utilizada para incluir, alterar ou excluir o Atendimento da O.S via ExecAuto.
Programa Fonte: | TECA460.PRX | ||||||||||||||||
Sintaxe: | TECA460 - Manutenção do Atendimento da O.S (ExecAuto) ( [ aCabec ] [ aItens ] [ nOpc ] ) | ||||||||||||||||
Parâmetros: |
| ||||||||||||||||
Retorno: |
|
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 )