Pular para o conteúdo
Início » Advpl FinNatRea

Advpl FinNatRea

    Tipo: Processamento e Planilha
    Retorna o valor realizado da Natureza.
    Sintaxe
    FinNatRea(cNatureza,dData1,dData2,nMoeda)
    Parâmetros
    cNatureza – Natureza a ser pesquisada
    dData1 – Data Inicial para cálculo
    dData2 – Data Final de cálculo
    nMoeda – Moeda de saída
    Exemplo
    FinNatRea(“R001”,CtoD(“01/01/98”),dDataBase,1)

    GUIA DE REFERÊNCIA RÁPIDA AdvPL

    23

    aAdd(aL,”+—————————————————————+”)
    aAdd(aL,”|XXXXXXXX Relatorio de Teste Pagina: XXXXX|”)
    aAdd(aL,”+————+————————————+————+”)
    aAdd(aL,”| CODIGO | DESCRICAO | PRECO |”)
    aAdd(aL,”+————+————————————+————+”)
    aAdd(aL,”| XXXXXXX | XXXXXXXXXXXXXXXXXXXXXX | XXXXXX |”)
    aAdd(aL,”+————+————————————+————+”)
    nLim:= 80 // Relatorio de 80 colunas
    nLi:= 60
    nPg:= 1
    dbSelectArea(“SB1”)
    dbGoTop()
    While !EOF()
    If nLi > 55
    nLi := 0
    FmtLin({},aL[1],,,@nLi,.T.,nLim)
    FmtLin({dDataBase,nPg},aL[2],,,@nLi,.T.,nLim)
    FmtLin({},aL[3],,,@nLi,.T.,nLim)
    FmtLin({},aL[4],,,@nLi,.T.,nLim)
    FmtLin({},aL[5],,,@nLi,.T.,nLim)
    nPg := nPg + 1
    Endif
    aDados := {}
    aAdd(aDados,Subs(B1_COD,1,7))
    aAdd(aDados,Subs(B1_DESC,1,22))