Company

Quality Code is a hallmark of quality created by Telura Technology, S.L. to indicate that the code of the applications meet a series of requirements that will ensure that if you purchase the source code will be in the best conditions of indentation, clarity, funcionality and with the necessary explanatory comments.

This label guarantees that the application that takes this token
meets the following quality requirements:

INDENTATION
Well organized and tabulated source code to improve its reading.

CLARITY
Code created with maximum clarity and simplicity to your further understanding.

EXPLANATORY COMMENTS
Comments in all the lines of code that need clarification or for a quick understanding of it.

FUNCTIONALITY
Use of procedures and functions where possible to properly structure the source code.

EXAMPLE Correct Code:

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;

EXAMPLE Incorrect Code:

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;