RH - Linha Protheus - GPE - Ponto de Entrada GPR280GV - Emissão de cheques no SIGAGPE

GPR280GV - Emissão de cheques no SIGAGPE ( [ ParamIXB ] ) --> 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.

Exemplos

#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)})