WORD	SERIAL_COM_SendDataToCom(WORD aSender, WORD aReceiver, WORD aCommand, WORD aDataLength, BYTE *aData)
{
 BYTE	data[2];
 WORD_VAL	wvTemp;

 if(UART_TxGetFreeSpace(DesElement.Resources.Port) < (aDataLength+8)){
  API_Error(aSender, ERR_SendDataToRS232_BUFF_FULL);
  return(ERR_SendDataToRS232_BUFF_FULL);
 }
 wvTemp.Val = aSender;
 data[0] = wvTemp.byte.HB;
 data[1] = wvTemp.byte.LB;
 UART_PutData(DesElement.Resources.Port, data, 2);
 wvTemp.Val = aReceiver;
 data[0] = wvTemp.byte.HB;
 data[1] = wvTemp.byte.LB;
 UART_PutData(DesElement.Resources.Port, data, 2);
 wvTemp.Val = aCommand;
 data[0] = wvTemp.byte.HB;
 data[1] = wvTemp.byte.LB;
 UART_PutData(DesElement.Resources.Port, data, 2);
 wvTemp.Val = aDataLength;
 data[0] = wvTemp.byte.HB;
 data[1] = wvTemp.byte.LB;
 UART_PutData(DesElement.Resources.Port, data, 2);
 UART_PutData(DesElement.Resources.Port, aData, aDataLength);
 return ERR_OK;
}