Como Generar Dos Ordenes automaticamente segun la cantidad de lineas

[webmasterplc]

Buenos dias estoy desarrollando un sistema de Laboratorios clinicos, la duda que tengo es la siguiente:
La orden de examenes no son fiscales por lo que se imoprimen en formas sin ningun tipo de membrete y muchaqs veces un mismo paciente tiene hasta 30 examenes pero En el formato de factura solo caben 11 lineas y cuando voy a emitir la fatura solo llamo el numero de orden o historia y se trae los items, pero cuando pasa de 11 me imorime en dos numeros de controles la misma facura y en venezuela eso no es legal, cada factura hoja debe llevar un numero diferente la oregunta es como hago para que el istema me divida la factura, si son 19 que el genere una factura con 11 lineas por ejemplo la factura 45 y luego automaticamente genere otra factura con los item que quedan osea la 46.

[ecfisa]

Hola webmasterplc.

• ¿ Estas imprimiendo mediante un reporteador o directamente en la impresora ?
• ¿ Que base de datos estas usando ?
• ¿ Con que controles data aware te conectas a ella ?
• ¿ Cuál es, en líneas generales, la sentencia/s SQL que estas usando para generar la factura ?

Saludos

[webmasterplc]

Ok imprimo mediante reporteador Fast Report
Uso Mysql
me conecto con MyDac
y este es el codigo que uso para generar la factura

Código Delphi [-]
procedure TformTotalizar.btn4Click(Sender: TObject); 
var   
  pfactura,npfactura:Integer; 
begin 
  with datos.sqsetup do       
  begin       
    SQL.Clear;       
    SQL.Add('Select * From setup');       
    ExecSQL;       
    pfactura:= FieldByName('pfactura').AsInteger;       
  end; 
  npfactura:= pfactura+1;  
  with datos.sqsetup do       
  begin       
    SQL.Clear;       
    SQL.Add('Update setup');       
    SQL.Add('set pfactura=:npfactura');       
    ParamByName('npfactura').AsInteger:=npfactura;       
    ExecSQL;       end; //Datos de factura 
    with datos.tfacturas do     
    begin     
      Close;     
      if Active=False then Active:=True;     
      Insert;     
      Append;     
      FieldByname('fact_numero').AsInteger := pfactura;     
      FieldByname('fact_fecha').AsDateTime := Now;     
      FieldByname('fact_ncontrol').AsString := edtncontrol.Text;     
      FieldByname('fact_codigohistoria').AsString := edthistoria.Text;     
      FieldByname('fact_nombre').AsString := edtrazonsocial.Text;     
      FieldByname('fact_codigocliente').AsString := codigocliente;     
      FieldByname('fact_rif').AsString := edtrif.Text;     
      FieldByname('fact_exento').AsCurrency := totalfactura;     
      FieldByname('fact_total').AsCurrency := totalfactura;     
      FieldByname('fact_direccion').AsString:= edtdireccion.Text;     
      FieldByname('fact_paciente').AsString:= edtpaciente.Text;     
      Post;     
   end;

[webmasterplc]

coloco el codigo dentro de las etiquetas delphi y me queda asi

[ecfisa]

Empezado por webmasterplc

coloco el codigo dentro de las etiquetas delphi y me queda asi

No te preocupes no es tu culpa, es un problema que se provoca con la previsualización cuando se utiliza la interfaz mejorada (WYSIWYG).

Ya corregí el código en tu mensaje.

Saludos

[[duilioisola]]

Supongo que el SQL debería traer 11 registros imprimir y luego buscar los siguientes 11.

Inicias un bucle con una variable con valor 0 (cero).
Ejecutas el SQL select first 11 skip (11 * :bucle) id_a from examenes order by examen
incrementas el valor del bucle
Ejecutas nuevamente el SQL. Te devolverá los primeros 11 habiendo saltado 11
Y repites esto tantas veces sea necesario hasta que no recibas registros.

Código Delphi [-]
bucle := 0;
repeat
   Facturas.SQL.Text := 'select first 11 skip (11 * :bucle) id_a from examenes order by examen'
   Facturas.Param.ByName['BUCLE'].AsInteger := bucle;
   Facturas.Open;

   if not Facturas.EOF then
      // Imprimir
until Facturas.EOF;

[webmasterplc]

Buenas estoy realizando una consulta para traer registros de 11 en 11 para eso tenego un contador pero cuando ejecuto la consulta me da un error que adjuntare en el mensaje, el codigo para realizarlo es el siguiente.

Código Delphi [-]
var
 Count: Integer;

procedure Tformfacturar.BringEleven(var Count: Integer);
begin
  Count:=0;
  datos.sqfacturas.Close;
  datos.sqfacturas.SQL.Text:='SELECT * FROM dhistoria LIMIT :NUM * 11, 11';
  datos.sqfacturas.ParamByName('NUM').AsInteger:=Count;
  datos.sqfacturas.Open;
  if not datos.sqfacturas.IsEmpty then
  begin
    // :: Aqui lo que quieras hacer con los 11 registros obtenidos
    while not datos.sqfacturas.Eof do
    begin
      Lst1.Items.Add(datos.sqfacturas.FieldByName('nhistoria').AsString);
      datos.sqfacturas.Next;
    end;
    // ::
    Inc(Count);
  end
  else Count:= -1
end;

el procedimiento lo llamo desde un boton

Código Delphi [-]
if Count <> -1 then
  begin
    BringEleven(Count);
  end;
end;

[Casimiro Notevi]

No crees un nuevo tema para seguir con lo mismo. He unido ambos hilos. Gracias por tu colaboración.
http://www.clubdelphi.com/foros/guiaestilo.php

[webmasterplc]

Discume tome una sugerencia de la respuesta anterior

[Casimiro Notevi]

Es que en el mensaje que has puesto, no preguntas nada, se te ha olvidado

En fin, que está claro que es el mismo tema, que no has sabido solucionarlo, pero está muy claro, tan solo tienes que "traducir" esa instrucción sql al lenguaje que use mysql, para ello debes consultar la documentación del mismo. Como ya te ha explicado y aconsejado ecfisa.

[ecfisa]

Empezado por webmasterplc

Buenas estoy realizando una consulta para traer registros de 11 en 11 para eso tenego un contador pero cuando ejecuto la consulta me da un error que adjuntare en el mensaje, el codigo para realizarlo es el siguiente.

Código Delphi [-]
var
 Count: Integer;

procedure Tformfacturar.BringEleven(var Count: Integer);
begin
  Count:=0;   <<== AQUI !
  ...
end;

el procedimiento lo llamo desde un boton

Código Delphi [-]
if Count <> -1 then
  begin
    BringEleven(Count);
  end;
end;

Hola webmasterplc.

Mas allá de la sentecia SQL, en la que no te puedo ayudar por mi desconocimiento en MySQL, inicializando la variable Count al inicio del procedimiento BringEleven siempre te devolverá los primeros 11 registros.

Fijate que en el mensaje #8 la inicializo en su declaración:

Código Delphi [-]
implementation

var
  Count: Integer = 0;
...

También aprovecho a aclarar, que mi sugerencia fué que preguntaras en el foro MySQL solamente sobre como usar LIMIT en la función SQL para que devuelva de a once registros, pero no que replantearas toda la problemática expuesta en este hilo.

Saludos

[webmasterplc]

Ok ho Gracias y disculpa el mal entendido voy a seguir tratando

[webmasterplc]

Y se paso los registros de la consulta a un array y luego los voy incluyedo en la tabla en memoria de 11 en 11 seria posible?

[webmasterplc]

Bueno le sumo 11 al count y si funciona no se si sea lo mas opcitmo pero el codigo lo deje asi

Código Delphi [-]
procedure Tformfacturar.BringEleven(var Count: Integer);
begin

  datos.sqfacturas.Close;
  datos.sqfacturas.SQL.Text:='SELECT * FROM dhistoria WHERE nhistoria = :historia LIMIT :NUM , 11';
  datos.sqfacturas.ParamByName('NUM').AsInteger:=Count;
  datos.sqfacturas.ParamByName('historia').AsInteger:=StrToInt(ethistoria.Caption);
  datos.sqfacturas.Open;
  if not datos.sqfacturas.IsEmpty then
  begin
    // :: Aqui lo que quieras hacer con los 11 registros obtenidos
    while not datos.sqfacturas.Eof do
    begin
      Lst1.Items.Add(datos.sqfacturas.FieldByName('codigo').AsString);
      datos.sqfacturas.Next;
    end;
    // ::
    Count:=Count + 11;
  end
  else Count:= -1