Exemplo n.º 1
0
 public override void afterAltera()
 {
     base.afterAltera();
     if (vTP_Modo == TTpModo.tm_Edit)
     {
         ID_Operador.Enabled = false;
         NM_Operador.Focus();
     }
 }
Exemplo n.º 2
0
        public override void afterNovo()
        {
            if ((vTP_Modo == TTpModo.tm_busca) || (vTP_Modo == TTpModo.tm_Standby))
            {
                BS_Operador.AddNew();
                base.afterNovo();
                if (!ID_Operador.Focus())
                {
                    ID_Operador.Focus();
                }
            }

            TCD_CadParamSys qtbParam = new TCD_CadParamSys();


            TpBusca[] vBusca = new TpBusca[0];
            Array.Resize(ref vBusca, vBusca.Length + 1);
            vBusca[vBusca.Length - 1].vNM_Campo = "a.NM_Campo";
            vBusca[vBusca.Length - 1].vOperador = "=";
            vBusca[vBusca.Length - 1].vVL_Busca = "'ID_OPERADOR'";

            Array.Resize(ref vBusca, vBusca.Length + 1);
            vBusca[vBusca.Length - 1].vNM_Campo = "a.ST_Auto";
            vBusca[vBusca.Length - 1].vOperador = "=";
            vBusca[vBusca.Length - 1].vVL_Busca = "1";

            Array.Resize(ref vBusca, vBusca.Length + 1);
            vBusca[vBusca.Length - 1].vNM_Campo = "a.Tamanho";
            vBusca[vBusca.Length - 1].vOperador = "=";
            vBusca[vBusca.Length - 1].vVL_Busca = "5";

            TList_CadParamSys busca = qtbParam.Select(vBusca, 0, "");

            if ((busca != null) && (busca.Count > 0))
            {
                ID_Operador.ST_PrimaryKey = false;
                ID_Operador.ST_NotNull    = false;

                NM_Operador.Focus();
                ID_Operador.Enabled = false;
            }
            else
            {
                ID_Operador.ST_PrimaryKey = true;
                ID_Operador.ST_NotNull    = true;
                ID_Operador.Enabled       = true;
            }
        }