Histórico da Página
...
A rotina de apropriações (Não Cotas) pode ser executada através de uma customização, através do recurso de execauto.
Bloco de código | ||||||
---|---|---|---|---|---|---|
| ||||||
#INCLUDE "Protheus.ch"
User Function APR182()
Local aParam as Array
Local lContinua as Logical
/* O array aParam refere-se as 3 perguntas da rotina:
MV_PAR01: Data de Apropriação
MV_PAR02: Recalcula
MV_PAR03: Mostra Lançamento Contábil
*/
aParam := {}
lContinua := .T.
If !IsBlind() // se for executado com interface apresenta o pergunte
If Pergunte("AFI182A",.T.)
aAdd(aParam, {"MV_PAR01", MV_PAR01})
aAdd(aParam, {"MV_PAR02", MV_PAR02})
aAdd(aParam, {"MV_PAR03", MV_PAR03})
Else
lContinua := .F.
EndIf
Else
aAdd(aParam, {"MV_PAR01", dDataBase })
aAdd(aParam, {"MV_PAR02", 2})
aAdd(aParam, {"MV_PAR03", 2})
EndIf
If lContinua
MsExecAuto({|a, b| FINA182(a, b)}, .T., aParam)
EndIf
Return(Nil) |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas