Ponto-de-Entrada: GPR280GV - Emissão de cheques no SIGAGPE
Abrangências: | Microsiga Protheus 10 |
Versões: | Microsiga Protheus 10 |
Compatível Países: | Todos |
Sistemas Operacionais: | Todos |
Compatível às Bases de Dados: | Todos |
Idiomas: | Português (Brasil) , Português (Portugal) , Espanhol , Inglês |
Descrição:
Para considerar o favorecido, ou seja, o beneficiário ao emitir o cheque através do SIGAGPE.
Programa Fonte
GPER280.prx
Sintaxe
GPR280GV - Emissão de cheques no SIGAGPE ( [ ParamIXB ] ) --> aRet
Parâmetros:
Nome | Tipo | Descrição | Default | Obrigatório | Referência | ||||||||||||
ParamIXB | Array of Record | ParamIXB[1,1] => Filial da gravação /ParamIXB[1,2] => Número do cheque a ser gravado /ParamIXB[1,3] => Dados do Beneficiário. Elemento 1 - Nome do beneficiário. Elemento 5 - Valor do cheque. Demais elementos - reservados ao sistema. /ParamIXB[1,4] =>"ADI" (adiantamento) / "FOL" (Folha) / "131" (1a Parcela 13o.) / "132" (2a Parcela 13o.) / "FER" (Ferias) / "RES" (Rescisao) / "EXT" (Extras) / ParamIXB[1,5] => Banco / ParamIXB[1,6] => Agência / ParamIXB[1,7] => Conta Corrente / ParamIXB[1,8] => Data / ParamIXB[1,9] => Matrícula do funcionário / |
Retorno
-
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.
Observações
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)})
Variáveis
Nome | Tipo | Escopo | Pode Alterar | descrição | ||||||||||
Array of Record | Global | Não |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas