Línea de producto: | Microsiga Protheus |
Segmento: | Serviços |
Módulo: | SIGAFIN - Financiero |
Función: | FA585Grava() - Función de grabación del proceso de solicitud de fondos |
Situación/Requisito: | Cliente solicita un punto de entrada después de la grabación de una solicitud de fondos para pagos de títulos tipo PA. |
Solución/Implementación: | Se implementó el punto de entrada FA585GRV en la función FA585Grava() , que permite que el usuario modifique los valores que se grabarán en la tabla FJA (Solicitud de fondos para PA). |
Llamados relacionados: | TVNVAZ |
Línea de producto: | Microsiga Protheus | ||||
Segmento: | Servicios | ||||
Módulo: | SIGAFIN - Financiero | ||||
Rutina: |
| ||||
Punto de entrada: | FA585GRV() | ||||
Llamados relacionados | TVHGO7 | ||||
Bases de datos: | Todas homologadas por el Protheus | ||||
Tablas utilizadas: | FJA - Solicitud de fondos para PA | ||||
Sistemas operativos: | Todos homologados por el Protheus |
El punto de entrada FA585GRV tiene como premisa permitir la modificación de los valores que se grabarán en la tabla FJA
Descripción: | El punto de entrada FA585GRV permite modificar los valores que se grabarán en la tabla 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 fuente: | FINA585 - Liberación de fondos para pagos PA | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Función: | FA585Grava() - Función de grabación del proceso de solicitud de fondos | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Devolución: |
|
Ejemplo:
#Include 'Protheus.ch'
User Function FA585GRV()
//Variables informadas 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]
//Atribuyendo nuevos valores a variables que se grabarán
Local cEstado := 'S'
Local nValor := 2000
Local cObs := 'Prueba PE FA585GRV'
If nOpc == 3
If MsgYesNo ("¿Desea continuar con la modificación de campos?","MODIFICA 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 y finaliza la operación
Else
Alert ("¡Grabación no modificada!")
EndIf
EndIf
Return
