Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

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
languagejava
themeMidnight
titleExemplo
#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)