Roteiro:

SVersão = 2;
Descrição do Objeto = "16076-70";
 
funçãoActHeader {
  NParte = 0;
  Público (
     // Em ambientes externos basta determinar o rosto
     // Diâmetro de uma superfície de trabalho para fixação
     // Material e peso de referência.
     Dn,DIÂMETRO_NOMINAL,
     massa,MASSA,
     sw0, @ MATERIAL,
     WP1, @ PLANO_DE_TRABALHO1
  );
  
  Protegido (seted, d, D, D1, D2, D3, D4, l, l1, L, tipo, tipo1);
  Mutável (Dn, WP1);
  OnDlgBeforeSelectParam = 1;
  MostrarQuandoSelPnt = 1;
  ContornoOnLine = 0;
};
 
função OnInitialization {
  LoadInCache (Dn, d, D, D1, D2, D3, D4, l, l1, L, massa);
  se (seted == ValorDesconhecido) {
     definido = 1;
     rZOorder = 100;
     // Na 6ª versão de todos os títulos em inglês
     // 1 = Implementação Ispolnenie1
     strDesignName = "Implementação 1";
     rd0 = 1;
     sw0 = 1;
    
     SelectInCache ("kFirst", "Dn", "~", 18);
  };
};
 
função SetGripPoint {
  NGrip = 1; // Um ​​identificador no ponto de inserção
  pntGrip0 = pntOrigin;
};
 
função OnMakeParameters {
  // Todas as strings localizáveis ​​especificam links de recursos
  // Começando com o cachorro.
  // Assim, eles serão exibidos dependendo de
  // O idioma atual do aplicativo.
  //
  strTheName = @ BLIND_GOST_16076_70;
  strTheType =ON_INTERNAL;
  strTheSubType =ON_INTERNAL;
  WP1 = Plano (pntOrigin + vecDirection * (0), vecDirection);
  
 
  se (rd0 == 0) tipo = "022";
  se (rd0 == 1) tipo = "012";
 
  se (sw0 == 1) tipo1 = "A"; senão tipo1 = "";
  
};
 
função OnDialog {
  LoadInCache (Dn, d, D, D1, D2, D3, D4, l, l1, L, massa);
  UniDialog (
     // Tipo de diálogo - que determina o diâmetro nominal
     // E peso de referência
     DBFLD, Dn,
     DBINF, massa,
     // Desempenho geral do Jackdaw
     BFLD, sw0,IMPLEMENTAÇÃO_COMUM,
     // Material Alternativo
     RÁDIO, rd0, @ STEEL_45, @ 12X18H9T__X18H9T_,
     // Essas opções afetam as especificações da string
     VER, "Vídeos");
};
 
função OnDialogChanged {
 
};
 
função OnChangeParameters {
  se ((Dn! = novo.Dn)) {
     LoadInCache (Dn, d, D, D1, D2, D3, D4, l, l1, L, massa);
     // Ao alterar o diâmetro da tabela, selecione o novo valor
     SelectInCache ("kFirst", "Dn", "~", novo.Dn);
  };
  Manipulado = OBJ_HANDLED;
  se ((Dn! = novo.Dn)) {
     Manipulado = OBJ_WARNING;
  };
  correção = 0;
  se (IsFixedParam (WP1)) {
     consertar = consertar + 1;
     vecXOld = vecDireção;
     vecDirection = Vetor (novo.WP1);
     pntOrigin = Ponto (new.WP1) - vecDirection * (0);
     restaurarBase(vecXOld, vecPlano, vecDireção);
  };
  se (fixar > 1) {
     Manipulado = OBJ_ERROR;
  };
};
 
função BeforeConnect {
  RedefinirÚltimaConstraint();
}
 
strPartName = @ SPHERE_CAP_ + Dn + "-" + tipo + tipo1 + @ _ GOST_16076_70;