Empresa

Quality Code es un sello de calidad distintivo creado por Telura Technology, S.L. para indicar que el codigo de las aplicaciones cumplen con una serie de requisitos que le garantizan que si usted adquiere el código fuente estara en las mejores condiciones de identación, claridad, funcionalidad y con los comentarios aclaratorios necesarios.

Este sello garantiza que la aplicación que lleva este distintivo 
cumple con los siguientes requisitos de calidad:

IDENTACION
Codigo fuente bien organizado y tabulado para mejorar su lectura.

CLARIDAD
Codigo creado con la maxima claridad y simplicidad para su adecuada comprension posterior.

COMENTARIOS ACLARATORIOS
Comentarios en todas las líneas de codigo que necesiten aclaracion o para una rapida comprension del mismo.

FUNCIONALIDAD
Uso de Procedimientos y Funciones siempre que sea posible para estructurar adecuadamente el código fuente.

EJEMPLO de codigo CORRECTO:

Function TFRM_ALBARANES_REP_ENT.Inserta_Lineas_pedido : boolean;
Begin

   Result := False;

   Try

   // PRIMER REGISTRO
   TB_ALM_PEDIDOS_REP_LIN.First;

      While not TB_ALM_PEDIDOS_REP_LIN.eof do
      Begin

            WITH TB_ALM_ALBARANES_REP_ENT_LIN DO
            BEGIN
 
                  // PONEMOS TABLA DE LINEAS DE ALBARANES EN INSERCION
                  Insert;
 
                  // INSERTAMOS LAS LINEAS EN EL ALBARAN
                  FieldByName('ID_ALBARAN_REP_ENT_CAB').Value :=
                  TB_ALM_ALBARANES_REP_ENT_CAB.FieldByName('ID').Value;

                  FieldByName('ID_REPUESTO').Value :=
                  TB_ALM_PEDIDOS_REP_LIN.FieldByName('ID_REPUESTO').Value;

                  FieldByName('CANTIDAD').Value :=
                  TB_ALM_PEDIDOS_REP_LIN.FieldByName('CANTIDAD').Value;

                  FieldByName('PRECIO_SIN_IVA').Value :=
                  TB_ALM_PEDIDOS_REP_LIN.FieldByName('PRECIO_SIN_IVA').Value;

                  Post;

           END;

           // SIGUIENTE REGISTRO
           TB_ALM_PEDIDOS_REP_LIN.Next;

    End;

    // INSERCION CORRECTA
    Result := True;

    Except

      on E: Exception do
      Begin
         ShowMessage(E.Message);
         Result := False;
      End;

    End;

End;

EJEMPLO de codigo INCORRECTO: 

Function TFRM_ALBARANES_REP_ENT.Inserta_Lineas_pedido : boolean;
Begin
Result := False;
Try
TB_ALM_PEDIDOS_REP_LIN.First;
While not TB_ALM_PEDIDOS_REP_LIN.eof do
Begin
WITH TB_ALM_ALBARANES_REP_ENT_LIN DO
BEGIN
Insert;
FieldByName('ID_ALBARAN_REP_ENT_CAB').Value := TB_ALM_ALBARANES_REP_ENT_CAB.FieldByName('ID').Value;
FieldByName('ID_REPUESTO').Value := TB_ALM_PEDIDOS_REP_LIN.FieldByName('ID_REPUESTO').Value;
FieldByName('CANTIDAD').Value := TB_ALM_PEDIDOS_REP_LIN.FieldByName('CANTIDAD').Value;
FieldByName('PRECIO_SIN_IVA').Value := TB_ALM_PEDIDOS_REP_LIN.FieldByName('PRECIO_SIN_IVA').Value;
Post;