xMATA681

#Include 'protheus.ch'
#Include 'parmtype.ch'
#Include "RestFul.CH"
#Include "TopConn.ch"
#include "rwmake.ch"
#include "tbiconn.ch"

User Function xMATA681()

	Local aVetor := {}
	Local dData  := CTOD('24/04/2018')
	Local oPeracao := "01"
	Local nOpc := 3 //inclusao
	Local cLogFile := "" //nome do arquivo de log a ser gravado
	Local aLog 	 := {}
	Local lRet := .F.
	Private lMsErroAuto := .F.// variável que define que o help deve ser gravado no arquivo de log e que as informações estão vindo à partir da rotina automática.
	Private lMsHelpAuto	:= .T.    // força a gravação das informações de erro em array para manipulação da gravação ao invés de gravar direto no arquivo temporário
	Private lAutoErrNoFile := .T.

	lMsErroAuto := .F.

	PREPARE ENVIRONMENT EMPRESA "01" FILIAL "01BRQ01" MODULO "PCP" TABLES "SH6"

	dData:=dDataBase
	aVetor := { {"H6_FILIAL"     ,"01BRQ01" ,NIL},;
		{"H6_OP"     ,"04951001001   " ,NIL},;
		{"H6_PRODUTO","999999         ",NIL},;
		{"H6_OPERAC" ,oPeracao         ,NIL},;
		{"H6_RECURSO","000054"         ,NIL},;
		{"H6_DTAPONT",dData            ,NIL},;
		{"H6_DATAINI",dData            ,NIL},;
		{"H6_HORAINI","19:11"          ,NIL},;
		{"H6_DATAFIN",dData            ,NIL},;
		{"H6_HORAFIN","19:20"          ,NIL},;
		{"H6_PT"     ,'T'              ,NIL},;
		{"H6_LOCAL"  ,"0001"             ,NIL},;
		{"H6_QTDPROD",1               ,NIL}}

	ConOut("[xMATA681] Inicio do MSEXECAUTO...")
	AutoGrLog(Replicate("-", 20))

    //chamada ExecAuto
	MSExecAuto({|v,x,y,z| MATA681(v,x,y,z)},"SH6",0,nOpc,aVetor)
	//MSExecAuto({|x| mata681(x)},aVetor)  // inclusão

	AutoGrLog(Replicate("-", 20))
	If lMsErroAuto
		cLogFile := "/workflow/web/webservice/webservice.log"		//função que retorna as informações de erro ocorridos durante o processo da rotina automática
		aLog := GetAutoGRLog()
			 //efetua o tratamento para validar se o arquivo de log já existe
		If !File(cLogFile)
			If (nHandle := MSFCreate(cLogFile,0)) <> -1
				lRet := .T.
			EndIf
		Else
			If (nHandle := FOpen(cLogFile,2)) <> -1
				FSeek(nHandle,0,2)
				lRet := .T.
			EndIf
		EndIf
		If	lRet
			 //grava as informações de log no arquivo especificado
			For nX := 1 To Len(aLog)
				FWrite(nHandle,aLog[nX]+CHR(13)+CHR(10))
			Next nX
			FClose(nHandle)
		EndIf
	EndIf
	If lMsErroAuto
		ConOut("[xMATA681] Erro na inclusao do apontamento...")
	else
		ConOut("[xMATA681] Inclusao de apontamento com sucesso...")
	Endif

	ConOut("[xMATA681] Fim do MSEXECAUTO...")

	RESET ENVIRONMENT
Return