Sello Quality Code
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;
Destacamos
- Desarrollos para SBC's Raspberry,Arduino,etc Telura Technology, S.L. ofrece la creacion de aplicaciones desarrolladas directamente en plataformas SBCs con el lenguaje OBJECT PASCAL Lazasus POO con buenos resultados para la integracion de varios tipos de placas... leer más >