#include "protheus.ch"

/*ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
ÉÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
ºPrograma  | MT250TOK    º Autor ³ Edelweis A.Felipe  º Data ³  25/03/2019º
ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹
ºDescricao ³CONTROLE DE APONTAMENTO                                        º
ºNAO PERMITE O APONTAMENTO DA OP CASO NÃO HAJA REQUISIÇÕES PARA O P.A.     º
ÈÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ                 
ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß*/


User Function MT250TOK()

LOCAL _LRET       := .T.
local _cFilC2     := xfilial("SC2")
Local _cOP        := alltrim(M->D3_OP)
local _cC2_OP     := SC2->C2_NUM + SC2->C2_ITEM + SC2->C2_SEQUEN
Local _cFilD3     := SD3->D3_FILIAL
Local _cRetTipo   := SD3->D3_TIPO
Local _cCodProd   := SD3->D3_COD     // PRODUTO PRODUZIDO
Local _cEstorno   := SD3->D3_ESTORNO
local _cDoc       := SD3->D3_DOC
Local cFuncStatic := ""

//verificaçao das OPs
dbselectarea("SC2")
dbsetorder(1)
dbgotop()
IF _cEstorno <> 'S'.AND. _cFilC2 = _cFilD3 .AND. _cOP <> _cC2_OP
	//IF dbseek(xfilial("SC2")+_cOP) 
    	_LRET := .F.
		MsgAlert("Não foram localizadas Requisição de insumos para esta OP "+_cOP+"!")
		MsgYesNo("Deseja apontar todos os insumos para a OP "+_cOP+ " antes de encerrá-la!", "Atenção")
		cFuncStatic := StaticCall(Mata241,Mata241,,,,)
	ELSE
	If SC2->C2_QUJE == C2_QUANT 
			_LRET := .F.
			IF dbseek(xfilial("SC2")+_cOP)//+_cFilD3+_cOP) 
				MsgAlert("Localizamos a Requisição "+_cDoc+" de insumos para esta OP "+_cOP+"!")
				MsgYesNo("Deseja apontar outros insumos para a OP "+_cOP+ " antes de encerrá-la!", "Atenção")
				cFuncStatic := StaticCall(Mata241,Mata241,,,,) 
		     ELSE
			    Msgalert("Deseja realmente encerrar esta OP?")
		    ENDIF
		//ENDIF	
	ENDIF
	//MsgAlert("Localizamos a Requisição "+_cDoc+" de insumos para esta OP "+_cOP+"!")
	//MsgYesNo("Deseja apontar outros insumos para a OP "+_cOP+ " antes de encerrá-la!", "Atenção")
	//cFuncStatic := StaticCall(Mata241,Mata241,'3')
ENDIF

RETURN(_LRET)