Linha Microsiga Protheus

Árvore de páginas

Ponto de entrada que permite alterar os registros a serem gravados na tabela FJA

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Serviços

Módulo:

SIGAFIN - Financeiro

Rotina:

Rotina

Nome Técnico

FINA585

Liberação de fundos para pagamentos PA    

Ponto de Entrada:

FA585GRV() 

Chamados Relacionados

TVHGO7

Banco(s) de Dados:

Todos homologados pelo Protheus

Tabelas Utilizadas:

FJA - Solicitação de Fundos para PA

Sistema(s) Operacional(is):

Todos homologados pelo Protheus

Descrição

O ponto de entrada FA585GRV tem como premissa permitir a alteração dos valores a serem gravados na tabela FJA

 

Ponto de Entrada

Descrição:

O ponto de entrada FA585GRV permite alterar os valores a serem gravados na tabela FJA

Eventos:

If lFa585Grv

ExecBlock("FA585GRV",.F.,.F.,{nOpc,cEstado,cCodigo,dData,nValor,cObs,cCodApr,cCodFav,cLoja,cCodNat,dDtPr,cMoedSol,cDest,cDestch,cCodResp,dDtOper,cObOper })

EndIf

Programa Fonte:

FINA585 - Liberação de fundos para pagamentos PA 

Função:

FA585Grava() - Função de gravação do processo de solicitação de fundos

Retorno:

Nome

Tipo

Descrição

Obrigatório

nOpc 

Numérico

Opção de operação ( Inclusão(3) / Alteração(4) / Exclusão(5) / Aprovação(8) / Reprovação(9) / Cancelamento(10) )

Não

cEstado

Caractere

Estado da solicitação

Não

cCodigo

Caractere

Código da solicitação

Não
dDataDataData de inclusão da solicitaçãoNão
nValorNuméricoValor da solicitaçãoNão
cObsCaractereObservação da inclusão da solicitaçãoNão
cCodAprCaractereCódigo do aprovador da solicitaçãoNão
cCodFavCaractereCódigo do favorecidoNão
cLojaCaractereLoja do favorecidoNão
cCodNatCaractereCódigo da naturezaNão
dDtPrDataData de previsão da solicitaçãoNão
cMoedSolCaractereMoeda utilizadaNão
cDestCaractereDestinatário da solicitaçãoNão
cDestchCaractereCUIT do destinatárioNão
cCodRespCaractereCódigo do responsávelNão
dDtOperDataData de operaçãoNão
cObOperCaractereCampo para observações, justificativas entre outras observaçõesNão

 

Exemplo:

#Include 'Protheus.ch'

User Function FA585GRV()

//Variáveis passadas como parâmetro

Local nOpc := paramixb[1]
Local cEstado := paramixb[2]
Local cCodigo := paramixb[3]
Local dData := paramixb[4]
Local nValor := paramixb[5]
Local cObs := paramixb[6]
Local cCodApr := paramixb[7]
Local cCodFav := paramixb[8]
Local cLoja := paramixb[9]
Local cCodNat := paramixb[10]
Local dDtPr := paramixb[11]
Local cMoedSol := paramixb[12]
Local cDest := paramixb[13]
Local cDestch := paramixb[14]
Local cCodResp := paramixb[15]
Local dDtOper := paramixb[16]
Local cObOper := paramixb[17]

//Atribuindo novos valores a variáveis a serem gravadas

Local cEstado := 'S'
Local nValor := 2000
Local cObs := 'Teste PE FA585GRV'
If nOpc == 3
If MsgYesNo ("Deseja prosseguir com a alteração de campos?","ALTERA CAMPO")
FJA->(dbSetOrder(1))
RecLock("FJA", .T.)
FJA->FJA_FILIAL := xFilial("FJA")
FJA->FJA_SOLFUN := '002'
FJA->FJA_DATA := dData
FJA->FJA_VALOR := nValor
FJA->FJA_OBSERV := cObs
FJA->FJA_CODAPR := cCodApr
FJA->FJA_FORNEC := cCodFav
FJA->FJA_LOJA := cLoja
FJA->FJA_ESTADO := cEstado
FJA->FJA_NATURE := cCodNat
FJA->FJA_DATAPR := dDtPr
FJA->FJA_DESTIN := cDest
FJA->FJA_CUIT := cDestch
FJA->FJA_MOEDA := cMoedSol
FJA->(MsUnLock()) //Confirma e finaliza a operacao
Else
Alert ("Gravação não alterada!")
EndIf
EndIf

Return