if ((PIMA_ReceivedBlock.Type != CType_ResponseBlock) || (PIMA_ReceivedBlock.Code != PIMA_RESPONSE_OK))\r
{\r
ShowCommandError(PIMA_ReceivedBlock.Code, true);\r
if ((PIMA_ReceivedBlock.Type != CType_ResponseBlock) || (PIMA_ReceivedBlock.Code != PIMA_RESPONSE_OK))\r
{\r
ShowCommandError(PIMA_ReceivedBlock.Code, true);\r