Taller de N capas ing. Alberto Moreno

CONEXIÓN CON ORACLE con capas

1.-Empleando las tablas de un sistema de ventas:

Fac_cabe, fac_Deta, artículos, Vendedor y Clientes

Se pide:

Taller de N capas ing. Alberto Moreno

Crear los procedimientos almacenados empleando cursores

create or replace package types

as

type cursortype is ref cursor;

end;

CREATE OR REPLACE PROCEDURE SPCLIENTE(tmp out

types.cursortype)

as

begin

open tmp for

select cli_cod, cli_nom from clientes;

end;

create or replace procedure spfactura(cod in

fac_cabe.cli_cod%type,iocursor out types.cursortype)

is

begin

open iocursor for

select

fc.fac_num,fc.fac_fec,sum(a.art_pre*fd.art_can) as monto

from articulos a,fac_cabe fc,fac_deta fd

where fc.fac_num=fd.fac_num and

a.art_cod=fd.art_cod and fc.cli_cod=cod

group by fc.fac_num,fc.fac_fec

order by fc.fac_num;

end ;

create or replace procedure spdetalle(num in

fac_deta.fac_num%type,iocursor out types.cursortype)

is

begin

open iocursor for

select

a.art_nom,a.art_pre,d.art_can,sum(a.art_pre*d.art_can) as

monto

from articulos a,fac_deta d

where a.art_cod=d.art_cod and d.fac_num=num

group by a.art_nom,a.art_pre,d.art_can

order by a.art_nom;

end ;

create or replace procedure sptable(cad in varchar,iocursor

out types.cursortype)

is

Taller de N capas ing. Alberto Moreno

begin

open iocursor for

select *

from &cad ;

end ;

2.- Ejemplo 2.- elaboración de una factura:

Al pulsar F5 debe mostrar una ventana de ayuda para elegir el producto deseado , colocando el

código , descripción y precio al otro formulario

Taller de N capas ing. Alberto Moreno

Para imprimir cualquier tipo de documento emplearemos el Printdocument