--32775-33299
--001 1 55
--pagos@arenaladventure.com


declare 
 vdocumento venfactura.documento%type:=32775;
 vdia       venfactura.dia%type;
begin
   select max(dia) into vdia
   from operacioncaja
   where cia='001'
   and   caja='001'
   and   cajero='001';
   while vdocumento<33300 
   loop 
      insert into venfactura
      (cia,sucursal,documento,tipo,caja,cajero,dia,linea,pago,fecha,
      vencimiento,porcdescuento,porcimpuesto,agenteventa,cliente,lista_precio,
      persona,moneda,tipocambio,cambiobase,autorizacion,clave,asiento,
      nombre,descripcion,otroscargos,referencia,estado,consignatario)
      values
      ('001','001',vdocumento,'001','001','001',vdia,'001',null,vdia,
      vdia+30,0,100,'001','001','001',
      null,'DL',1,485,null,null,null,
      'ANULADA',null,0,null,'N','001');

      insert into vendetfactura
      (cia,sucursal,documento,secuencia,lote,bodega,articulo,agenteventa,porcdescuento,
       medida,ccosto,cantidad,costo,precio,impuesto,impconsumo,totallinea,sucursalref,pedidoref,
       pdesc1,pdesc2,pdesc3,descripcion)
      values
      ('001','001',vdocumento,1,'001','001','001','001',0,
       'UND','0',1,0,55,0,0,55,null,null,
       0,0,0,null);
       vdocumento:=vdocumento+1;
     end loop;
     commit;
end;
/

      



