//--------------------------------------------------------------------------- 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 ); } }
//--------------------------------------------------------------------------- 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." );
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; }