pesoPartida.prg

*
* pesoPartida()
* Regresa el peso de la partida, segun las necesidades de Tomason
* Algunos Campos Especiales
*	Arts.PESO2  Peso de X unidades del Articulo
*   Arts.PXPESO Cantidad de articulos que equivalen al peso indicado en Arts.PESO2
* Ejemplo:
*   Arts.PXPESO = 100
*   Arts.PESO2 = 4.123
* Significa 100 unidades del articulo, pesan 4.123 Kgs
*
function pesoPartida()

	* Si vendieron por KG
	if movim.UNIDAD=='KGS'
		return movim.CANT
	endif

	* Si vendieron por Pieza
	* Peso por unidad = Arts.PESO2 / Arts.PXPESO
	if movim.UNIDAD=='PZ'
		return movim.CANT * Arts.PESO2 / Arts.PXPESO
	endif

	* En caso que se desee vender por bolsa
	* Aqui si ocupamos las equivalencias
	* pasame mas datos de ejemplo de los casos que se presentan


	* Comando para posicionar la tabla de Unidades en el registro asociado a la partida
	=seek(Movim.NUMART+Movim.UNIDAD,'Unidades','ArtUni')


return 0