PC Toledo

Código: Selecionar todos

	define splitbox parent janela
	
		define toolbarex toolbar_vnp15000 parent janela flat buttonsize 50,50;
		
        button button_incluir;
				caption 'Incluir';
				picture pict+"adicionar.bmp";
				action vnp11000_opc('inserir');
				
			button button_alterar;
				caption 'Alterar';
				picture pict+"alterar.bmp";
				action vnp11000_opc('alterar');
				
			button button_deletar;
				caption 'Deletar';
				picture pict+"lixo.bmp";
                action vnp11000_opc('deletar');
                
            button button_consultar;
				caption 'Consultar';
				picture pict+"consulta.bmp";
                action vnp11000_opc('consultar');
                separator;

            button button_bloqueio;
				caption 'Bloqueio';
				picture pict+"bloqueio.bmp";
                action vnp11000_opc('bloquear');
                separator;

            button button_desbloqueio;
				caption 'Desbloqueio';
				picture pict+"desbloqueio.bmp";
                action vnp11000_opc('desbloquear');
                separator;

            button button_historico;
				caption 'Histórico';
				picture pict+"historico.bmp";
                action vnp11000_opc('historico');
                separator;
                
            button button_buscar;
                caption 'Buscar';
                picture pict+"buscar.bmp";
                action busca('Buscar Cliente',600,'vnp11000_busca()');
                separator;

            button button_voltar;
				caption 'Voltar';
				picture pict+"voltar.bmp";
                action janela.release;
				
		end toolbar
                
    end splitbox