Ejemplo n.º 1
0
//---------------------------------------------------------------------------
void __fastcall TCPEmpresas::SpeedButton8Click( TObject*  Sender )
{
  CodEmpExcl = ( int ) PHDS1->GV( "Codigo", 0 );
  if( CodEmpExcl == vg.EmpresaAtual )
   {
    throw Exception( "Impossível. Empresa está em uso" );
   }

  HandleExcl = vg.RequerExclusividade( tdsPrincipal, false );
  if( HandleExcl == -1 )
   {
    throw Exception( "Impossível. Outro(s) Usuário(s) no sistema" );
   }

  try
   {
    if( PHDS1->Delete( true ) == true )
     {
      chdir( vg.DiretorioPrincipal.c_str() );
      if( DelTree( vg.DiretorioPrincipal + IntToStr( CodEmpExcl ) ) == false )
       {
        Bip();
        ShowMensagem( "Não foi possível deletar Sub-Diretório." );
       }
     }
   }

  __finally
   {
    vg.LimpaExclusividade( HandleExcl );
   }
}
Ejemplo n.º 2
0
//---------------------------------------------------------------------------
void __fastcall TCPEmpresas::SButton22Click( TObject*  Sender )
{
  int HandleExclusivo = vg.RequerExclusividade( tdsPrincipal, false );
  if( HandleExclusivo != -1 )
   {
    try
     {
      FRecEmp1 = new TFRecEmp1( this );
      Bip();
      if( ShowMensagemBox( "ATENÇÃO. Confirma Reconstrução?", "MENSAGEM",
          MB_ICONQUESTION | MB_YESNO | MB_DEFBUTTON2 ) != IDNO )
       {
        FRecEmp1->ShowModal();
        PHDS1->Refresh( true );
        PHDS1->Last();
       }
     }

    __finally
     {
      delete FRecEmp1;
      vg.LimpaExclusividade( HandleExclusivo );
     }
   }
  else
   {
    throw Exception( "Outro(s) Usuários(s) no sistema não permitem o uso desta opção." );
Ejemplo n.º 3
0
void TIM13_IRQHandler(void){
static uint32_t Counter = 0;
static uint32_t CounterUPD = 0;

static uint8_t FlagKBD_Repeat = 0;
 //TIM13->SR &= ~TIM_SR_UIF; //Сбрасываем флаг UIF

 switch (Counter){
  case 0:
    SetLineKbd(0); break;
  case 10:
    ReadLineKbd(0); break;
  case 20:
    SetLineKbd(1); break;
  case 30: 
    ReadLineKbd(1); break;
  case 40: 
    SetLineKbd(2); break;
  case 50: 
    ReadLineKbd(2); break;
  case 60:     
    SetLineKbd(3); break;
  case 70: 
    ReadLineKbd(3); break;
  case 80:     
    if(SolvePressedKeys()) {
      if(KB_Status.PRESSED){ 
      SOUND.CounterSound= 0; 
      SOUND.SoundPeriod = 200;
      CounterUPD = 0;
      }
      
      CounterUPD = 0;
      
      KBD_Handle(KB_Status.code);
   }
    else
      if(SOUND.CounterSound == SOUND.SoundPeriod){
         if(DISP.ReleaseTask && (Touch_Data.status == TOUCH_RELEASED) && (!DISP.ReleaseFlag)) DISP.ReleaseFlag++;//ReleaseFunction();
         
      }
    
    if((KB_Status.EVENT && KB_Status.PRESSED) &&((CounterUPD % 20) == 18))
    { 
      RESmutex_2 = 1;
    KBD_Handle(KB_Status.code);
    FlagKBD_Repeat =1;
    CounterUPD = 0;
    }
    if((!KB_Status.PRESSED) && (Touch_Data.status == TOUCH_RELEASED)){
      RESmutex_2 = 0;
      CounterUPD = 0;
    }
    if(KB_Status.EVENT && !KB_Status.PRESSED && FlagKBD_Repeat)
      {KBD_Handle(KB_Status.code); FlagKBD_Repeat =0;}
    if((CounterUPD % 20) == 18){
      RESmutex_2 = 1;
      if (RateChange  == 1){
        UpDownRate(1);  
        UpdateScreen = 1;
      }
      if (RateChange  == 2) {
        UpDownRate(0);
        UpdateScreen = 1;
      }
      
     CounterUPD = 0; 
     
    }
    CounterUPD++;
    break;

  
}  
 if (SOUND.CounterSound < SOUND.SoundPeriod) {
  // if(KB_Status.PRESSED)
   Bip(SOUND.CounterSound%2); 
   SOUND.CounterSound++;
 }

 Counter++;
 Counter%=100; 
 

 return;
}