Usando a função CnRejDoc para rejeitar documentos

#INCLUDE "PROTHEUS.CH"
#INCLUDE "FWMVCDEF.CH"

User Function RejDoc()
	Local cTipo  := "" //Informar o tipo do documento
	Local cNum	 := "" //Informar o número do documento
	Local cChave := xFilial("SCR") + cTipo + cNum
	Local cChaveRej := ""

	SCR->(DbSetOrder(3))//CR_FILIAL+CR_TIPO+CR_NUM+CR_APROV
	If SCR->(DbSeek(cChave))
		If SCR->CR_TIPO $ "CT|IC|RV|IR|MD|IM"
			CnRejDoc(SCR->CR_TIPO)
		Else
			/*
				Quando não for oriundo do GCT, utilizar a função MaAlcDoc, nesse caso é preciso informar o argumento cChaveRej para tipo ST e PC;
				ST = chave p/ índice 1 da tabela NNS 
				PC = chave p/ índice 1 da tabela SC7
			*/
			MaAlcDoc({SCR->CR_NUM,SCR->CR_TIPO,,SCR->CR_APROV,,SCR->CR_GRUPO,,,,dDataBase,"Observacao" }, dDataBase ,7,,,SCR->CR_ITGRP,,,,cChaveRej)
		EndIf
	EndIf
Return Nil