Como determinar o peso e a cubagem ocupados em um endereço no WMS Protheus

Function WmsCalcEnd( <cArmazem>, <cEndereco>, [cIdUnitiz], [lDesconta] ) 
// .. Corpo da Função
Return aCalcEnd
 
// Exemplo de chamada, passando apenas o armazém e endereço
Local aCalcEnd := WmsCalcEnd('01','R010203')
 
// Exemplo de chamada, consultando apenas o peso e cubagem de um unitizador do endereço
Local aCalcEnd := WmsCalcEnd('01','R010203','UN00000001')
 
// Exemplo de chamada, consultando o peso e cubagem do endereço
// Descontando o peso e cubagem de um unitizador do endereço
Local aCalcEnd := WmsCalcEnd('01','R010203','UN00000001',.T.)