TKUPDFLH - Permite controlar a atualização de chamados associados.

Este ponto de entrada permite o controle sobre a atualização dos chamados associados por um mesmo registro de SLA.A chamada ocorrerá no momento da atualização de cada chamado (Tabela ADE) do relacionamento e, portanto, serão passados:- o código do chamado 'PAI';- o código do chamado 'FILHO'; e - o código do registro de SLA.

#include "rwmake.ch"User Function TKUPDFLH()Local lRet    := .T.
Local cCodPai := ParamIXB[1]Local cCodFil := ParamIXB[2]Local cRegSLA := ParamIXB[3]MsgBox( "SIGATMK:Ponto de Entrada TKUPDFLH." + CHR(13)+CHR(10) +;        " Validando Chamado Pai......: " + cCodPai + CHR(13)+CHR(10) +;        " Validando Chamado Filho....: " + cCodFil + CHR(13)+CHR(10) +;        " Validando: Registro de SLA.: " + cRegSLA )Return lRet // Function TKUPDFLH()

TMKA510.PRW

TKUPDFLH - Permite controlar a atualização de chamados associados. ( < cCodPai> , < cCodFilho> , < cRegSLA> ) --> lRet

lRet(logico)
• Permite atualizar .T. Não permite .F.

//Área de declaraçãoLocal bTKUpdFlh	:= {|Pai,Filho,RegSLA| If(ExistBlock("TKUPDFLH"),ExecBlock("TKUPDFLH",.F.,.F.,{Pai,Filho,RegSLA}),.T.)}Local cADECodPai	:= ADE->ADE_CODIGO//Área de processamentoIf ADE->(MsSeek(cFilADE+aFilhos[nX][2])) .AND. (ADE->ADE_REGSLA <> cCodSK5 .OR. lForce)	If Eval(bTKUpdFlh, cADECodPai, aFilhos[nX][2], ADE->ADE_REGSLA)		RecLock("ADE", .F.)  		If Empty(ADE->ADE_SLAANT)			REPLACE ADE->ADE_SLAANT WITH ADE->ADE_REGSLA		// Cod SLA original			If ADE->(FieldPos("ADE_FLSLAN")) > 0				REPLACE ADE->ADE_FLSLAN WITH cFilAnt			EndIf		EndIf		REPLACE ADE->ADE_REGSLA	WITH SK5->K5_CODIGO  			// Registro de SLA gerado		REPLACE ADE->ADE_DTEXPI	WITH SK5->K5_DTEXPIR			// Data para expirar o SLA		If TK510NewFields()			REPLACE ADE->ADE_SESLA	WITH SK5->K5_SEVE			// Severidade usada no chamado		Else			REPLACE ADE->ADE_SEVSLA	WITH SK5->K5_SEVERID			// Severidade usada no chamado				EndIf		If ADE->(FieldPos("ADE_HREXPI")) > 0			REPLACE ADE->ADE_HREXPI	WITH SK5->K5_HREXPIR		//Hora para expirar o SLA		EndIf		MsUnlock()			//Atualiza previsao da FNC		Tk510UpdFNC(ADE->ADE_FNC,ADE->ADE_FNCREV,ADE->ADE_DTEXPI)	EndIfEndIf