*****Esta Sentencia Permite verificar si ya existe el Procedimiento, en caso que así sea
*****lo elimina
if exists(select * from sysobjects WHERE name='sp_ejempl01')
begin
drop procedure sp_ejempl01
end
**********************************************************************
create procedure sp_ejempl01
@_cod_cli char(5)
as
declare @_num_fact as char(6),@_cod_emp as char(6),@_nombre varchar(40)
declare @_sub_total as numeric(6,2),@_igv as numeric(6,2),@_total as numeric(6,2)
declare @_contador as int
set nocount on
declare cFacturas cursor for
select num_fact,cod_emp,sub_total,igv,total from facturas
where cod_cli=@_cod_cli
open cFacturas
print ' Listado de Facturas por clientes '
print ' ---------------------------------'
print ' '
print 'Codigo'+'.........'+@_cod_cli
print ''
set @_contador=0
fetch next from cFacturas into @_num_fact,@_cod_emp,@_sub_total,@_igv,@_total
while (@@fetch_status=0)
begin
print @_num_fact+' '+@_cod_emp+' '+str(@_sub_total,6,2)+' '+str(@_igv,6,2)+' '+str(@_total,6,2)
set @_contador=@_contador+1
fetch next from cFacturas into @_num_fact,@_cod_emp,@_sub_total,@_igv,@_total
end
print ''
print 'Filas Procesadas'+'..............'+str(@_contador,6,0)
close cFacturas
deallocate cFacturas
set nocount off
*********para Ejecutar el Procedimiento se digita dicha sentencia
*********"C0002 viene hacer el Código del Cliente"
execute sp_ejempl01 "C0002"
Responsable : Tomas Eduardo ALCA Ojeda - Analista Programador
Mail : [email protected]
Mail : [email protected]