GPR280GV - Emissão de cheques no SIGAGPE -- 92997

Para considerar o favorecido, ou seja, o beneficiário ao emitir o cheque através do SIGAGPE. 

GPER280.prx

GPR280GV - Emissão de cheques no SIGAGPE ( [ ParamIXB ] ) --> aRet

aRet(array_of_record)
• Elemento 1 - Tipo lógico onde:.T. - Prossegue com o processamento. .F. - Desconsidera o empregado/beneficiários.Elemento 2 - Tipo Array onde:Item 1 - Nome do favorecido/beneficiário / Item 5 - Valor / Demais itens - são reservados ao sistema.

O ponto de entrada é executado antes da gravação/impressão do cheque.

Este ponto deve retornar um array com 2 elementos. O primeiro elemento determina se o funcionário corrente deve ser considerado para o resto do processamento. Caso seja descartado, o registro do próximo funcionário será lido. O segundo elemento corresponde as informações do favorecido. Para essa rotina, somente o primeiro e o quinto item desse segundo elemento são considerados para a emissão do cheque. Caso o quinto item seja nulo, o cheque não é emitido para o favorecido correspondente.

#INCLUDE 'RWMAKE.CH'#INCLUDE 'PROTHEUS.CH'USER FUNCTION GPR280GV()           Local cFilPAR	:= ParamIXB[1,1]	//-- Filial da gravacao Local cCheqPAR	:= ParamIXB[1,2]	//-- Numero do cheque a ser gravadoLocal aBenefPAR	:= ParamIXB[1,3]	//-- Dados do Beneficiario 									//-- Elemento 1 - Nome do beneficiario									//-- Elemento 5 - Valor do cheque									//-- Demais elementos - reservados ao sistemaLocal cTipoPAR	:= ParamIXB[1,4] 	//-- "ADI" (adiantamento) / "FOL" (Folha) / "131" (1a Parcela 13o.)									//-- "132" (2a Parcela 13o.) / "FER" (Ferias) / "RES" (Rescisao) / "EXT" (Extras)Local cBancoPAR	:= ParamIXB[1,5] 	//-- BancoLocal cAgPAR	:= ParamIXB[1,6]	//-- AgenciaLocal cCCPAR	:= ParamIXB[1,7]	//-- Conta CorrenteLocal dDataPAR	:= ParamIXB[1,8]	//-- DataLocal cMatPAR	:= ParamIXB[1,9]	//-- Matricula do funcionario   Local nCntP		:= 0	Local lRet		:= .T.                   //-- Correspondencia das informacoes a serem gravadas na tabela SEF//cFilPAR 				=> SEF->EF_FILIAL//cCheqPAR 				=> SEF->EF_NUM //cTipoPAR 				=> SEF->EF_TIPO//cBancoPAR 			=> SEF->EF_BANCO //cAgPAR 				=> SEF->EF_AGENCIA//aBenefPAR[nCntP,1] 	=> SEF->EF_BENEF  //aBenefPAR[nCntP,5] 	=> SEF->EF_VALOR //cMatPAR 				=> SEF->EF_FORNECE//cCCPAR 				=> SEF->EF_CONTA //dDataPAR 				=> SEF->EF_DATA                //-- Desconsidera emissao de cheque com valor inferior a R$10,01//-- somente para esse beneficiarioFor nCntP := 1 To Len(aBenefPAR)   	//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿	//³ Verifica valor <= R$10,01									 ³	//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ	IF aBenefPAR[nCntP,5] < 10.01                                  		//-- O processo deve continuar apesar do ocorrido		lRet := .T.               		//-- Valores nulos nao sao impressos		aBenefPAR[nCntP,5] := 0.00		//-- Se necessario, chamar uma funcao para gravar um arquivo de ocorrencias		//-- indicando os beneficiarios que nao foram considerados e o motivo		//-- para tanto.		//-- U_FuncNoChq() 			EndifNext nCntP              Return({lRet,aClone(aBenefPAR)})