CalcEst – Obtendo o Saldo de um Produto

/*{Protheus.doc} User Function fCalcEst
(Essa função tem por finalidade mostrar a função CalcEst em ADVPL para obter o saldo de um produto.)
@?type  Function
@?author Adilio Costa
@?since 01/02/2025
@?version 1.0
@?Inscreva-se no Blog ProtheusAdvpl:
https://www.protheusadvpl.com.br
@?Inscreva-se no Canal ProtheusAdvpl:
https://www.youtube.com/protheusadvpl
@?Siga-nos no Instagram:
https://www.instagram.com/protheusadvpl
@?Conheça os Cursos e Formações do ProtheusAdvpl:
https://cursos-e-formacoes-protheusadvpl.gr-site.com/

|Se esse conteúdo foi útil pra você nos ajude divulgando
ele e nossas redes sociais!!|
*/

User Function fCalcEst()
	Local aArea     := FWGetArea()
	Local cProd  := "000000000000001"
    Local cLocal := "01"
    Local dData  := Date()
    Local aSalProd := {}
    Local nSalProd := 0
    Local nCustoMed := 0


    //Calculando o saldo do produto
	aSalProd := CalcEst(cProd,cLocal,dData)
    nSalProd := (aSalProd[1])
    nCustoMed := (aSalProd[8])

    FWAlertInfo("O saldo do produto "+cProd+" é:"+cValToChar(nSalProd)+" e seu custo médio:"+cValToChar(nCustoMed),"Função CalcEst")
	
    FWRestArea(aArea)
Return