Linha Microsiga Protheus

Árvore de páginas


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
NomeTipoDescriçã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

nOpcNumérico

Opção de Execução da Rotina Automática, onde:

3 - Inclusão

5 - Exclusão

cTpExpCaractereConteúdo do parâmetro MV_GSOUT
Retorno:
NomeTipoDescriçãoObrigatório
aRetArray

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

04. DEMAIS INFORMAÇÕES

Não há.

05. ASSUNTOS RELACIONADOS