01. DADOS GERAIS
| Linha de Produto: | Microsiga Protheus® |
|---|
| Segmento: | Serviços |
|---|
| Módulo: | Gestão de Serviços |
|---|
| Função: | TECA910 |
|---|
| Ticket: | Não há. |
|---|
| Requisito/Story/Issue (informe o requisito relacionado) : | DSERSGS-5810 |
|---|
02. SITUAÇÃO/REQUISITO
Ponto de Entrada para exportação de Marcações, que é executado antes do envio/exclusão das marcações
03. SOLUÇÃO
Ponto de Entrada
| Descrição: | Microsiga Protheus® |
|---|
| Localização: | Serviços |
|---|
| Programa Fonte: | TECA910.PRW |
|---|
| Função: | At910Marca |
|---|
| Parâmetros | | Nome | Tipo | Descrição |
|---|
| aCabec | Array | Dados do Cabeçalho (Matrícula do Atendente) da rotina automática, de: aCabec[n, 01] - Nome do campo da Rotina Automática aCabec[n, 02] - Valor do campo da Rotina Automática | | aItens | Array | Dados dos itens da rotina automática, onde: aItens[n] - Item a ser inserido: Horários de Marcação do Atendente. Se n for ímpar é uma marcação de Entrada, caso contrário, será uma saída, onde: aItens[n][y, 01] - Nome do campo da Rotina Automática aItens[n][y, 02]- Valor do campo da Rotina Automática | | nOpc | Numérico | Opção de Execução da Rotina Automática, onde: 3 - Inclusão 5 - Exclusão | | cTpExp | Caractere | Conteúdo do parâmetro MV_GSOUT |
|
|---|
| Retorno: | | Nome | Tipo | Descrição | Obrigatório |
|---|
| aRet | Array | Retorno de Execução do Ponto de Entrada, onde aRet[1] -Dados do Cabeçalho (Matrícula do Atendente) da rotina automática, cuja estrutura é igual ao parametro de entrada aCabec aRet[2] - Dados dos itens da rotina automática, cuja estrutura é igual ao parametro de entrada aItens | Sim |
|
|---|
#INCLUDE "PROTHEUS.CH"
User Function At910Ma()
Local aRetInc := {{}, {}}
Local nC := 0
Local cMsg := ""
Local lRet := .F.
Local aCabec := {}
Local aItens := {}
If ValType(PARAMIXB) == "A" .AND. Len(PARAMIXB) >= 4 .AND. ValType(PARAMIXB[01]) == "A" .AND. ValType(PARAMIXB[02]) == "A"
aCabec := PARAMIXB[01]
aItens := PARAMIXB[02]
aAdd(aCabec, {"RA_UTESTE", "1"})
aAdd(aCabec, {"RA_UPROC", Date()})
For nC := 1 to Len(aItens)
aAdd(aItens[nC], {"P8_UTESTE", StrZero(nC)})
aAdd(aItens[nC], {"P8_UPROC", Date()})
Next nC
Else
cMsg := "Não enviados dados válidos referente às maracaoes"
EndIf
aRetInc[1] := aClone(aCabec)
aRetinc[2] := aClone(aItens)
Return aRetInc
Não há.
05. ASSUNTOS RELACIONADOS
