User Function SaldoLote()                                                    

C1 = String com o codigo do produto
C2 = String com o local a ser pesquisado
C3 = String com o lote de Controle    
C4 = String com o Numero do lote       
L5 = Considera Empenho   
L6 = Considera Lotes Vencidos  
L7 = Considera saldo a classificar
D1 = Indica a data de referencia do saldo  
C5 = Codigo da Ordem de Producao                    
C6 = Considera que existe saldo caso venda de um P.V.  

nRetorno := SaldoLote(cProduto,cLocal,cLoteCTL,cNumLote,lBaixaEmp,lConsVenc,lConsClas,dDataRef,cOP,lSaldo,lEmpPrev)                                  


Return( Nil )