A classe TBaixaParcial é uma classe feita pela Totali para fazer cálculo de baixas entre listas de entrada e recurso.

Como Incluir a Classe no Código

Incluir classe TTUBaixaParcial em USES.
Incluir classe TTUItemBaixaParcialList, TTUItemBaixaParcial em USES após Implementation.
Instanciar a Classe. ex.: BaixaParcial: TBaixaParcial Instanciar a Classe. ex.: ItemAproveitados: TItemBaixaParcialList

Metodologia de Uso

Instanciar na procedure a TBaixaParcial para Entrada de Itens Disponíveis e Itens para Baixar e para Caucular, instanciar TItemBaixaParcialList para receber a lista de Itens Aproveitados da classe..

Var ItemAproveitados: TItemBaixaParcialList; BaixaParcial: TBaixaParcial;

O evento Create é feito de maneira simples.

BaixaParcial:= TBaixaParcial.Create;

Estas listas deverão ser alimentadas com:

BaixaParcial.AddNew(BaixaParcial.AddNew(pCodOri, pCodIdent, pPedDat, pQtdIte, pTipItem);

pCodOri  := Código de origem para vincular com a lista de Itens para Baixar.
pCodIdent:= Código de identificação do item para comparação.
pPedDat  := Data.
pQtdIte  := Quantidade Disponível.
pTipItem := Tipo de entrada - tpIteDisponivel, tpIteBaixar.

Chamar o evento Calcular() que retornará a Lista de Aproveitados preenchida com as baixas calculadas.

ItemAproveitados:= BaixaParcial.Calcular;