23 respuestas en este tema

[giulichajari]

Lo de la estructura de fondo lo entiendo, es que yo ya tengo la base de datos, lo que te preguntaba es al terminar de agregar articulos cuando el cliente termino su compra...como inserto lo que tengo en la tabla, aunque fuera con el modelo tuyo o con el mio(de cualquier manera)?

Y de paso te muestro el codigo(de lo que vi en internet) en el boton agregar producto:

delphi

procedure TForm4.Button1Click(Sender: TObject);
begin
   if (GrillaProd.SelectedRows.Count=1) then
    begin
      ShowMessage('seleccione al menos un producto');
    end
    else
      if (Edit3.Text='') then
          begin
            ShowMessage('Especifique la cantidad a vender');
          end
 
      else
    begin
    //obtengo idprod para llenar ticket
      Form3.ZQuery1.ParamByName('idp').AsInteger:=GrillaProd.DataSource.DataSet.FieldByName('idproducto').AsInteger;
        with Form3.ClientDataSet1 do
          begin
            Open;
           Insert;
            FieldByName('cantidad').AsFloat:=StrToFloat(Edit3.Text);
            FieldByName('nombre').AsString:=ZQuery1.FieldByName('nombre').AsString;
 
            FieldByName('preciou').AsFloat:=ZQuery1.FieldByName('preciou').AsFloat;
            FieldByName('total').AsFloat:=((StrToFloat(Edit3.Text)) * (ZQuery1.FieldByName('preciou').AsFloat));
 
           if State in [dsEdit,dsInsert] then
              Post;
            if ChangeCount>0 then
              begin
                ApplyUpdates(0);
 
              end;
 
        end;
         Form3.StringGrid1.Cells[1,0]:=Form3.ClientDataSet1.FieldByName('totalticket').AsString;
       end;
end;

[cram]

giulichajari, más allá de ese código, te comento que lo único que debes hacer es traspasar como más te plazca los datos de esa tabla temporal a la base de datos permanente. Para esto podrías usar un ciclo para los detalles y una vez para la cabecera y totales.

El problema es que el tema trasciende la programación para llegar al análisis y es complicado si no se conoce lo que tienes hecho en detalle.

Una vez obtenido todos los datos de la factura:
1. Pasar los datos de la cabecera a la tabla de venta
2. Iniciar un ciclo que incluya las filas de la tabla temporal y los pase a las filas de la tabla de detalles de venta
3. Termine la transacción
Eso es todo.

Lo que sí te recomiendo al margen de todo este tema, es que no acostumbres utilizar los nombres automáticos para los objetos, en vez de esto pónle nombre a todo.

Por que no subes una impresión de pantalla, la definición de los datos, etc. y lo vemos, así te puedo ayudar.

Saludos

[giulichajari]

Tengo estas tablas:

sql

CREATE TABLE ticket(
idticket INTEGER NOT NULL PRIMARY KEY AUTO_INCREMENT,
numero INTEGER,
importe DECIMAL(10,2),
fechae DATE,
horae TIME,
idsucursal INTEGER,
FOREIGN KEY (idsucursal) REFERENCES sucursal(idsucursal)
);
CREATE TABLE categoria(
idcategoria INTEGER NOT NULL AUTO_INCREMENT PRIMARY KEY,
descripcion VARCHAR(100)
);
CREATE TABLE marca(
idmarca INTEGER NOT NULL AUTO_INCREMENT PRIMARY KEY,
descripcion VARCHAR(100)
);
CREATE TABLE producto(
idproducto INTEGER NOT NULL AUTO_INCREMENT PRIMARY KEY,
stock INTEGER,
idmarca INTEGER,
medida VARCHAR(20),
nombre VARCHAR(100),
preciou DECIMAL(10,2),
iva DECIMAL(3,2),
idcategoria INTEGER,
pedir bool,
FOREIGN KEY (idcategoria) REFERENCES categoria(idcategoria),
FOREIGN KEY (idmarca) REFERENCES marca(idmarca)
);
CREATE TABLE clientes(
idcliente INTEGER NOT NULL PRIMARY KEY AUTO_INCREMENT,
idpersona INTEGER,
CUIT INTEGER,
CUIL INTEGER,
FOREIGN KEY (idpersona) REFERENCES persona(idpersona)
);
CREATE TABLE cliticket(
idcliente INTEGER,
idticket INTEGER,
FOREIGN KEY (idticket) REFERENCES ticket(idticket),
FOREIGN KEY (idcliente) REFERENCES clientes(idcliente)
);
CREATE TABLE ventas(
idticket INTEGER,
idproducto INTEGER,
cantidad DECIMAL(10,2),
FOREIGN KEY (idproducto) REFERENCES producto(idproducto),
FOREIGN KEY (idticket) REFERENCES ticket(idticket)
);

Ticket tiene los datos unicos del ticket: numero importe, etc;
ventas tendra un registro para cada producto con su id de ticket,
y cliticket tiene el cliente asociado.

Y en el boton hacer ticket(cuando ya lo vamos a emitir tengo.)

delphi

procedure TForm3.Button4Click(Sender: TObject);
var
ticket:Isucursales1.Tticket;
venta:Isucursales1.Tventa;
 
 
begin
      ticket:=Isucursales1.Tticket.Create;
      venta:=Isucursales1.Tventa.Create;
 
 
                with ticket do
                  begin
                   numero:=ClientDataSet1.FieldByName('numero').AsInteger;
                   importe:=StrToFloat(StringGrid1.Cells[1,0]);
                     fechae:=DateToStr(Now());
                    horae:=TimeToStr(Now());
                         idsucursal:=1;
                  end;
                  GetIsucursales.hacerticket(ticket);
                while not Grillaticket.DataSource.DataSet.Eof do
                  begin
                     with venta do
                      begin
                        idproducto:=Grillaticket.DataSource.DataSet['idproducto'];
                        cantidad:=Grillaticket.DataSource.DataSet['cantidad'];
                        GetIsucursales.ventas(venta);
                      end;
                  end;
 
end;

Porque un error que me da esto es que me inserta un registro en la tabla productos..

[giulichajari]

Bueno, encontre en la web que podria tener un datamodule, y luego tener un Tclientdataset con su dataset provider correspondiente, es decir deberia tener uno para el ticket y otro para los productos por ejemplo. Pero lo que pasa es que en el problema que planteo, diseñe unas clases TRemotable, porque tengo un webservice, pero al utilizar insert y post en un clientdataset esto ya no es necesario. No se que me pueden decir..