Facturlinex busca colaboradores

[el-mono]

Este excelente proyecto de gestion desarrollado en Lazarus (version 2.0) esta buscando como dice el titulo gente que quiera colaborar en este proyecto para darle el impulso que necesita para hacerlo masivo. Aqui les dejo toda la nota para que el que quiera se ponga en contacto con ellos:

http://sourceforge.net/apps/phpbb/fa....php?f=9&t=557

Espero que este proyecto sea apoyado ya que es un muy buen sistema de gestion.

[Casimiro Notevi]

Estupendo, gracias por avisarnos.

[[rretamar]]

Gracias por la información. Le daré una mirada.

[[ElKurgan]]

Gracias por la Info

Un saludo

[mamcx]

Hace un tiempo pense en meterme a colaborar como desarrollador en ese proyecto...

Pero con perlas como esta, es claro que es una patada:

http://facturlinex.svn.sourceforge.n...35&view=markup

Código Delphi [-]
procedure TFFacturar.BitBtn2Click(Sender: TObject);
var
  TxtQ: String;
begin
  { TODO 1 -oNicolas -cFacturar : Hay que ver la suma de los albaranes y comprobar el minimo a facturar
  }
  if (Edit1.Text='') or (Edit2.Text='') then exit;
  if ComboBox4.Text='' then exit;
  SerieABorrar:='TODAS LAS SERIES';// Me quedo con la serie para borrar albaranes facturados
  if ComboBox4.Text<>'TODAS LAS SERIES' then
    begin
     if not dbSeries.Locate('SF1',ComboBox4.Text,[]) then
       begin showmessage('La serie activa no existe.'); exit; end;
     SerieABorrar:=dbSeries.FieldByName('SF0').AsString;// Me quedo con la serie para borrar albaranes facturados
    end;
  //------------- Albaranes
  TxtQ:='SELECT *,MID(AC11,1,250) as ANOTAS,C1 FROM albac'+Tienda+',clientes'+
        ' WHERE AC0=C0 AND AC0>='+Edit1.Text+' AND AC0<='+Edit2.Text+
        ' AND AC1>="'+FormatDateTime('yyyy/mm/dd',StrToDate(Edit7.Text))+'"'+
        ' AND AC1<="'+FormatDateTime('yyyy/mm/dd',StrToDate(Edit8.Text))+'"';
  if ComboBox4.Text<>'TODAS LAS SERIES' then TxtQ:=TxtQ+' AND AC2="'+dbSeries.FieldByName('SF0').AsString+'"';
  if Edit5.Text<>'' then TxtQ:=TxtQ+' AND C10='+Edit5.Text;
  if RadioButton2.Checked then TxtQ:=TxtQ+' AND AC10="S"';//---- Los marcados
  if RadioButton3.Checked then TxtQ:=TxtQ+' AND AC10="N"';//---- Sin Marcar
  TxtQ:=TxtQ+' ORDER BY AC0,AC1';
  dbAlbacc.Active:=False; dbAlbacc.Sql.Text:=TxtQ; dbAlbacc.Active:=True;
  dbAlbacc.First;
  //------------- Facturas a realizar
  TxtQ:='SELECT AC0,COUNT(AC3),SUM(AC4),SUM(AC4),SUM(AC5),SUM(AC8),SUM(AC9),C1 FROM albac'+Tienda+',clientes'+
        ' WHERE AC0=C0 AND AC0>='+Edit1.Text+' AND AC0<='+Edit2.Text+
        ' AND AC1>="'+FormatDateTime('yyyy/mm/dd',StrToDate(Edit7.Text))+'"'+
        ' AND AC1<="'+FormatDateTime('yyyy/mm/dd',StrToDate(Edit8.Text))+'"';
  if ComboBox4.Text<>'TODAS LAS SERIES' then TxtQ:=TxtQ+' AND AC2="'+dbSeries.FieldByName('SF0').AsString+'"';
  if Edit5.Text<>'' then TxtQ:=TxtQ+' AND C10='+Edit5.Text;
  if RadioButton2.Checked then TxtQ:=TxtQ+' AND AC10="S"';//---- Los marcados
  if RadioButton3.Checked then TxtQ:=TxtQ+' AND AC10="N"';//---- Sin Marcar
  TxtQ:=TxtQ+' GROUP BY AC0 ORDER BY AC0';
  dbMuestraf.Active:=False; dbMuestraf.Sql.Text:=TxtQ; dbMuestraf.Active:=True;
  dbMuestraf.First;
  //------------------- Sumas
  TxtQ:='SELECT SUM(AC4),SUM(AC5),SUM(AC8),SUM(AC9) FROM albac'+Tienda+',clientes'+
        ' WHERE AC0=C0 AND AC0>='+Edit1.Text+' AND AC0<='+Edit2.Text+
        ' AND AC1>="'+FormatDateTime('yyyy/mm/dd',StrToDate(Edit7.Text))+'"'+
        ' AND AC1<="'+FormatDateTime('yyyy/mm/dd',StrToDate(Edit8.Text))+'"';
  if ComboBox4.Text<>'TODAS LAS SERIES' then TxtQ:=TxtQ+' AND AC2="'+dbSeries.FieldByName('SF0').AsString+'"';
  if Edit5.Text<>'' then TxtQ:=TxtQ+' AND C10='+Edit5.Text;
  if RadioButton2.Checked then TxtQ:=TxtQ+' AND AC10="S"';//---- Los marcados
  if RadioButton3.Checked then TxtQ:=TxtQ+' AND AC10="N"';//---- Sin Marcar
  dbSumas.Active:=False; dbSumas.Sql.Text:=TxtQ; dbSumas.Active:=True;
  dbSumas.First;
  StaticText4.Caption:=IntToStr(dbAlbacc.RecordCount);//-------- N. Albaranes.
  StaticText5.Caption:=IntToStr(dbMuestraf.RecordCount);//-------- N. Facturas
  StaticText2.Caption:=dbSumas.Fields[0].AsString;//--------- N. Lineas.
  StaticText3.Caption:=FormatFloat('0.00',dbSumas.Fields[1].AsFloat);//--------- N. Articulos.
  StaticText7.Caption:=FormatFloat('0.00',dbSumas.Fields[2].AsFloat);//--------- Importe
  StaticText8.Caption:=FormatFloat('0.00',dbSumas.Fields[3].AsFloat);//--------- Importe + impuestos
  dbSumas.Active:=False;
  if dbAlbacc.RecordCount>0 then BitBtn3.Enabled:=True;
end;

Si, asi se llaman los campos: AC0,AC1 y demas.

Un proyecto asi debe morir, no recibir ayuda. Habria que refactorizar demasiado para tener algo estable.

[Casimiro Notevi]

Ya hace algunos años que vi el código fuente porque es un proyecto open source, al principio me pareció extraño, pero tampoco es para tanto, es cuestión de tener la estructura de las tablas y el significado de cada campo.
Sólo por ese motivo no creo que deba ser llevado a la silla eléctrica
Es más, facturlinex, contalinex, etc. se inició por un proyecto de la Junta de Extremadura (España) para promocionar el software libre junto a la distro Linex (que es la que se entrega en los colegios, universidades, etc. de esa comunidad autonómica), y además querían que llegase a las empresas, por eso se decidió hacer esos programas de gestión. Con Linex y con esos programas se ha intentado ahorrar mucho dinero para los ciudadanos al no tener que pagar a microsoft por licencias. Y ha recibido algunos premios nacionales e internacionales.
Cierto que nada es perfecto, también hay cosas "malas" en todo esto, teniendo en cuenta que lo promovió un "ente" político.

[el-mono]

mamcx hombre si bien es entendible tu punto de vista sobre el código, pero dejarlo morir.... no me parece. Me interesa tu opinión ya que veo tenes mucha experiencia y creo seria un gran aporte a este proyecto tu opinión.

Ahora te hago una pregunta... alguna vez te pusiste en contacto con los desarrolladores de este proyecto y les planteaste tu visión sobre el código y porque esta de esa forma ?

Desde mi punto de vista creo es un proyecto que merece ser ayudado ya que es muy meritorio haberlo desarrollado sobre Lazarus que particularmente es un IDE que me gusta bastante y demuestra lo que se puede hacer con el.

[mamcx]

Empezado por el-mono

mamcx hombre si bien es entendible tu punto de vista sobre el código, pero dejarlo morir.... no me parece.

Pues si hacen el proceso de refactorizar el codigo es dejarlo morir como esta... para renacer como algo nuevo.

No me contacte con ellos. Pero ya que preguntas me imagino que no puedo ser unico, y de hecho es asi:

http://sourceforge.net/apps/mediawik..._Base_de_Datos

Asi que por lo menos están pensando cambiar eso....

El problema que tienen es el de todos: Tiempo. Y como luce la información, prefieren ir haciendo las cosa sobre la marcha que hacer el arreglo de una.

Y como se hace en un caso de estos?

Toca darle muerte a esa linea de código y solo hacerle corrección de errores graves, iniciar una nueva y seguir con eso.

Una lastima que les haya tomado tiempo, o mejor dicho, que lo estén buscando cuando ya no tengo tiempo .

P.D. Eso pasa por criticar en base a la memoria y no a lo que pasa ahora ...