PC Plus SuperCD 58/supercd58.iso/Toma nota/Control-Ges/SQL/7.x/SPS.sql

Text (UTF-16) | 2001-12-07 | 1016.8 KB | 15,844 lines

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[albaran_u]') and OBJECTPROPERTY(id, N'IsTrigger') = 1)
drop trigger [dbo].[albaran_u]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[albaran_d]') and OBJECTPROPERTY(id, N'IsTrigger') = 1)
drop trigger [dbo].[albaran_d]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[albaran_i]') and OBJECTPROPERTY(id, N'IsTrigger') = 1)
drop trigger [dbo].[albaran_i]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[albpro_u]') and OBJECTPROPERTY(id, N'IsTrigger') = 1)
drop trigger [dbo].[albpro_u]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[albpro_d]') and OBJECTPROPERTY(id, N'IsTrigger') = 1)
drop trigger [dbo].[albpro_d]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[albpro_i]') and OBJECTPROPERTY(id, N'IsTrigger') = 1)
drop trigger [dbo].[albpro_i]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[alclpar_iu]') and OBJECTPROPERTY(id, N'IsTrigger') = 1)
drop trigger [dbo].[alclpar_iu]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[alctec_iu]') and OBJECTPROPERTY(id, N'IsTrigger') = 1)
drop trigger [dbo].[alctec_iu]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[articulo_d]') and OBJECTPROPERTY(id, N'IsTrigger') = 1)
drop trigger [dbo].[articulo_d]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[articulo_i]') and OBJECTPROPERTY(id, N'IsTrigger') = 1)
drop trigger [dbo].[articulo_i]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[articulo_u]') and OBJECTPROPERTY(id, N'IsTrigger') = 1)
drop trigger [dbo].[articulo_u]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[cambiar_i]') and OBJECTPROPERTY(id, N'IsTrigger') = 1)
drop trigger [dbo].[cambiar_i]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[cambios_u]') and OBJECTPROPERTY(id, N'IsTrigger') = 1)
drop trigger [dbo].[cambios_u]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[cambios_i]') and OBJECTPROPERTY(id, N'IsTrigger') = 1)
drop trigger [dbo].[cambios_i]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[clientes_i]') and OBJECTPROPERTY(id, N'IsTrigger') = 1)
drop trigger [dbo].[clientes_i]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[clientes_u]') and OBJECTPROPERTY(id, N'IsTrigger') = 1)
drop trigger [dbo].[clientes_u]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[clientes_d]') and OBJECTPROPERTY(id, N'IsTrigger') = 1)
drop trigger [dbo].[clientes_d]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[cm_doc_i]') and OBJECTPROPERTY(id, N'IsTrigger') = 1)
drop trigger [dbo].[cm_doc_i]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[cobros_d]') and OBJECTPROPERTY(id, N'IsTrigger') = 1)
drop trigger [dbo].[cobros_d]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[cobros_i]') and OBJECTPROPERTY(id, N'IsTrigger') = 1)
drop trigger [dbo].[cobros_i]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[cobros_u]') and OBJECTPROPERTY(id, N'IsTrigger') = 1)
drop trigger [dbo].[cobros_u]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[compra_d]') and OBJECTPROPERTY(id, N'IsTrigger') = 1)
drop trigger [dbo].[compra_d]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[compra_i]') and OBJECTPROPERTY(id, N'IsTrigger') = 1)
drop trigger [dbo].[compra_i]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[compra_u]') and OBJECTPROPERTY(id, N'IsTrigger') = 1)
drop trigger [dbo].[compra_u]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[entalb_i]') and OBJECTPROPERTY(id, N'IsTrigger') = 1)
drop trigger [dbo].[entalb_i]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[entrada_d]') and OBJECTPROPERTY(id, N'IsTrigger') = 1)
drop trigger [dbo].[entrada_d]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[entrada_i]') and OBJECTPROPERTY(id, N'IsTrigger') = 1)
drop trigger [dbo].[entrada_i]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[entrada_u]') and OBJECTPROPERTY(id, N'IsTrigger') = 1)
drop trigger [dbo].[entrada_u]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[facalb_i]') and OBJECTPROPERTY(id, N'IsTrigger') = 1)
drop trigger [dbo].[facalb_i]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[factura_d]') and OBJECTPROPERTY(id, N'IsTrigger') = 1)
drop trigger [dbo].[factura_d]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[factura_i]') and OBJECTPROPERTY(id, N'IsTrigger') = 1)
drop trigger [dbo].[factura_i]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[factura_u]') and OBJECTPROPERTY(id, N'IsTrigger') = 1)
drop trigger [dbo].[factura_u]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[haz_deu_i]') and OBJECTPROPERTY(id, N'IsTrigger') = 1)
drop trigger [dbo].[haz_deu_i]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[linalbp_d]') and OBJECTPROPERTY(id, N'IsTrigger') = 1)
drop trigger [dbo].[linalbp_d]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[linalbp_u]') and OBJECTPROPERTY(id, N'IsTrigger') = 1)
drop trigger [dbo].[linalbp_u]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[linalbp_i]') and OBJECTPROPERTY(id, N'IsTrigger') = 1)
drop trigger [dbo].[linalbp_i]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[lindeu2_d]') and OBJECTPROPERTY(id, N'IsTrigger') = 1)
drop trigger [dbo].[lindeu2_d]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[lindeu2_i]') and OBJECTPROPERTY(id, N'IsTrigger') = 1)
drop trigger [dbo].[lindeu2_i]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[lindeu2_u]') and OBJECTPROPERTY(id, N'IsTrigger') = 1)
drop trigger [dbo].[lindeu2_u]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[lindeud_d]') and OBJECTPROPERTY(id, N'IsTrigger') = 1)
drop trigger [dbo].[lindeud_d]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[lindeud_i]') and OBJECTPROPERTY(id, N'IsTrigger') = 1)
drop trigger [dbo].[lindeud_i]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[lindeud_U]') and OBJECTPROPERTY(id, N'IsTrigger') = 1)
drop trigger [dbo].[lindeud_U]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[lineaalb_d]') and OBJECTPROPERTY(id, N'IsTrigger') = 1)
drop trigger [dbo].[lineaalb_d]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[lineaalb_i]') and OBJECTPROPERTY(id, N'IsTrigger') = 1)
drop trigger [dbo].[lineaalb_i]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[lineaalb_u]') and OBJECTPROPERTY(id, N'IsTrigger') = 1)
drop trigger [dbo].[lineaalb_u]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[lineacom_d]') and OBJECTPROPERTY(id, N'IsTrigger') = 1)
drop trigger [dbo].[lineacom_d]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[lineacom_i]') and OBJECTPROPERTY(id, N'IsTrigger') = 1)
drop trigger [dbo].[lineacom_i]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[lineacom_u]') and OBJECTPROPERTY(id, N'IsTrigger') = 1)
drop trigger [dbo].[lineacom_u]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[lineaent_d]') and OBJECTPROPERTY(id, N'IsTrigger') = 1)
drop trigger [dbo].[lineaent_d]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[lineaent_i]') and OBJECTPROPERTY(id, N'IsTrigger') = 1)
drop trigger [dbo].[lineaent_i]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[lineaent_u]') and OBJECTPROPERTY(id, N'IsTrigger') = 1)
drop trigger [dbo].[lineaent_u]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[lineafac_d]') and OBJECTPROPERTY(id, N'IsTrigger') = 1)
drop trigger [dbo].[lineafac_d]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[lineafac_i]') and OBJECTPROPERTY(id, N'IsTrigger') = 1)
drop trigger [dbo].[lineafac_i]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[lineafac_u]') and OBJECTPROPERTY(id, N'IsTrigger') = 1)
drop trigger [dbo].[lineafac_u]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[lineaofe_d]') and OBJECTPROPERTY(id, N'IsTrigger') = 1)
drop trigger [dbo].[lineaofe_d]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[lineaofe_i]') and OBJECTPROPERTY(id, N'IsTrigger') = 1)
drop trigger [dbo].[lineaofe_i]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[lineaofe_u]') and OBJECTPROPERTY(id, N'IsTrigger') = 1)
drop trigger [dbo].[lineaofe_u]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[lineaped_i]') and OBJECTPROPERTY(id, N'IsTrigger') = 1)
drop trigger [dbo].[lineaped_i]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[lineaped_u]') and OBJECTPROPERTY(id, N'IsTrigger') = 1)
drop trigger [dbo].[lineaped_u]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[lineaped_d]') and OBJECTPROPERTY(id, N'IsTrigger') = 1)
drop trigger [dbo].[lineaped_d]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[lineapla_d]') and OBJECTPROPERTY(id, N'IsTrigger') = 1)
drop trigger [dbo].[lineapla_d]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[lineapla_i]') and OBJECTPROPERTY(id, N'IsTrigger') = 1)
drop trigger [dbo].[lineapla_i]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[LINEAPLA_u]') and OBJECTPROPERTY(id, N'IsTrigger') = 1)
drop trigger [dbo].[LINEAPLA_u]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[linsal_d]') and OBJECTPROPERTY(id, N'IsTrigger') = 1)
drop trigger [dbo].[linsal_d]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[linsal_i]') and OBJECTPROPERTY(id, N'IsTrigger') = 1)
drop trigger [dbo].[linsal_i]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[linsal_u]') and OBJECTPROPERTY(id, N'IsTrigger') = 1)
drop trigger [dbo].[linsal_u]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[lmovimi_d]') and OBJECTPROPERTY(id, N'IsTrigger') = 1)
drop trigger [dbo].[lmovimi_d]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[lmovimi_i]') and OBJECTPROPERTY(id, N'IsTrigger') = 1)
drop trigger [dbo].[lmovimi_i]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[lmovimi_u]') and OBJECTPROPERTY(id, N'IsTrigger') = 1)
drop trigger [dbo].[lmovimi_u]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[menulof_d]') and OBJECTPROPERTY(id, N'IsTrigger') = 1)
drop trigger [dbo].[menulof_d]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[menulof_i]') and OBJECTPROPERTY(id, N'IsTrigger') = 1)
drop trigger [dbo].[menulof_i]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[menulof_u]') and OBJECTPROPERTY(id, N'IsTrigger') = 1)
drop trigger [dbo].[menulof_u]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[menuof_u]') and OBJECTPROPERTY(id, N'IsTrigger') = 1)
drop trigger [dbo].[menuof_u]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[movimi_u]') and OBJECTPROPERTY(id, N'IsTrigger') = 1)
drop trigger [dbo].[movimi_u]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[ofertas_i]') and OBJECTPROPERTY(id, N'IsTrigger') = 1)
drop trigger [dbo].[ofertas_i]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[ofertas_u]') and OBJECTPROPERTY(id, N'IsTrigger') = 1)
drop trigger [dbo].[ofertas_u]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[pagos_d]') and OBJECTPROPERTY(id, N'IsTrigger') = 1)
drop trigger [dbo].[pagos_d]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[pagos_i]') and OBJECTPROPERTY(id, N'IsTrigger') = 1)
drop trigger [dbo].[pagos_i]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[pagos_u]') and OBJECTPROPERTY(id, N'IsTrigger') = 1)
drop trigger [dbo].[pagos_u]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[pedido_d]') and OBJECTPROPERTY(id, N'IsTrigger') = 1)
drop trigger [dbo].[pedido_d]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[pedido_i]') and OBJECTPROPERTY(id, N'IsTrigger') = 1)
drop trigger [dbo].[pedido_i]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[pedido_u]') and OBJECTPROPERTY(id, N'IsTrigger') = 1)
drop trigger [dbo].[pedido_u]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[proveedo_d]') and OBJECTPROPERTY(id, N'IsTrigger') = 1)
drop trigger [dbo].[proveedo_d]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[proveedo_i]') and OBJECTPROPERTY(id, N'IsTrigger') = 1)
drop trigger [dbo].[proveedo_i]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[proveedo_u]') and OBJECTPROPERTY(id, N'IsTrigger') = 1)
drop trigger [dbo].[proveedo_u]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[salidas_u]') and OBJECTPROPERTY(id, N'IsTrigger') = 1)
drop trigger [dbo].[salidas_u]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_haz_deuda]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[sp_haz_deuda]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_linea_ped]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[sp_linea_ped]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_mete_albfact]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[sp_mete_albfact]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_suma_riesgo]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[sp_suma_riesgo]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_finaliza_pro]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[sp_finaliza_pro]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_haz_deu2]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[sp_haz_deu2]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_linea_ped_pro]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[sp_linea_ped_pro]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_mete_AlbPEnt]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[sp_mete_AlbPEnt]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_resuma]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[sp_resuma]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_riesgo_cli]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[sp_riesgo_cli]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_xxx_stock]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[sp_xxx_stock]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_xxx_stockresrv]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[sp_xxx_stockresrv]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_aj_a_imp]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[sp_aj_a_imp]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_aj_venc]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[sp_aj_venc]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_cm_doc]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[sp_cm_doc]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_cob_auto]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[sp_cob_auto]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_cuanto_reservo]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[sp_cuanto_reservo]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_imputa_cobro]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[sp_imputa_cobro]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_imputa_pago]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[sp_imputa_pago]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pag_auto]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[sp_pag_auto]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_pon_aniadidos]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[sp_pon_aniadidos]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_resumap]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[sp_resumap]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_riesgo_pro]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[sp_riesgo_pro]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_suma_borra]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[sp_suma_borra]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_suma_deuda]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[sp_suma_deuda]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_tar_pv]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[sp_tar_pv]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_xxx_calcula2]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[sp_xxx_calcula2]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_xxx_calcular]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[sp_xxx_calcular]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_xxx_calimp]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[sp_xxx_calimp]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_xxx_da_linea]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[sp_xxx_da_linea]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_xxx_da_numero]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[sp_xxx_da_numero]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_xxx_entra_stock]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[sp_xxx_entra_stock]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_xxx_ponmsg]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[sp_xxx_ponmsg]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_xxx_quitamsg]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[sp_xxx_quitamsg]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_xxx_stockpedi]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[sp_xxx_stockpedi]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_xxx_tipo_iva]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[sp_xxx_tipo_iva]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_aj_venc1]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[sp_aj_venc1]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_xxx_da_linea_SRv]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[sp_xxx_da_linea_SRv]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_xxx_da_num_srv]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[sp_xxx_da_num_srv]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[VLINEAFAC]') and OBJECTPROPERTY(id, N'IsView') = 1)
drop view [dbo].[VLINEAFAC]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[Dflt_menuclin_nodia]') and OBJECTPROPERTY(id, N'IsDefault') = 1)
drop default [dbo].[Dflt_menuclin_nodia]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[Dflt_menuclin_noplato]') and OBJECTPROPERTY(id, N'IsDefault') = 1)
drop default [dbo].[Dflt_menuclin_noplato]
GO






/****** Object:  Default dbo.Dflt_menuclin_nodia    Script Date: 18/5/01 12:57:33 ******/
/****** Object:  Default dbo.Dflt_menuclin_nodia    Script Date: 3/5/01 9:24:09 ******/
/****** Object:  Default dbo.Dflt_menuclin_nodia    Script Date: 19/2/01 11:29:32 ******/
/****** Object:  Default dbo.Dflt_menuclin_nodia    Script Date: 14/12/00 12:24:15 ******/
/****** Object:  Default dbo.Dflt_menuclin_nodia    Script Date: 26/9/00 13:21:38 ******/
/****** Object:  Default dbo.Dflt_menuclin_nodia    Script Date: 26/6/00 14:55:39 ******/
/****** Object:  Default dbo.Dflt_menuclin_nodia    Script Date: 24/3/2000 10:07:55 ******/
/****** Object:  Default dbo.Dflt_menuclin_nodia    Script Date: 23/3/2000 15:31:00 ******/
/****** Object:  Default dbo.Dflt_menuclin_nodia    Script Date: 23/3/2000 11:24:50 ******/
/****** Object:  Default dbo.Dflt_menuclin_nodia    Script Date: 16/3/2000 12:07:54 ******/
/****** Object:  Default dbo.Dflt_menuclin_nodia    Script Date: 2/3/2000 8:26:01 ******/
CREATE DEFAULT Dflt_menuclin_nodia AS 1








GO

/****** Object:  Default dbo.Dflt_menuclin_noplato    Script Date: 18/5/01 12:57:33 ******/
/****** Object:  Default dbo.Dflt_menuclin_noplato    Script Date: 3/5/01 9:24:09 ******/
/****** Object:  Default dbo.Dflt_menuclin_noplato    Script Date: 19/2/01 11:29:32 ******/
/****** Object:  Default dbo.Dflt_menuclin_noplato    Script Date: 14/12/00 12:24:15 ******/
/****** Object:  Default dbo.Dflt_menuclin_noplato    Script Date: 26/9/00 13:21:38 ******/
/****** Object:  Default dbo.Dflt_menuclin_noplato    Script Date: 26/6/00 14:55:39 ******/
/****** Object:  Default dbo.Dflt_menuclin_noplato    Script Date: 24/3/2000 10:07:55 ******/
/****** Object:  Default dbo.Dflt_menuclin_noplato    Script Date: 23/3/2000 15:31:00 ******/
/****** Object:  Default dbo.Dflt_menuclin_noplato    Script Date: 23/3/2000 11:24:50 ******/
/****** Object:  Default dbo.Dflt_menuclin_noplato    Script Date: 16/3/2000 12:07:54 ******/
/****** Object:  Default dbo.Dflt_menuclin_noplato    Script Date: 2/3/2000 8:26:01 ******/
CREATE DEFAULT Dflt_menuclin_noplato AS 1








GO


SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO







/****** Object:  View dbo.VLINEAFAC    Script Date: 18/5/01 12:58:20 ******/
/****** Object:  View dbo.VLINEAFAC    Script Date: 2/3/2000 8:30:20 ******/
CREATE VIEW VLINEAFAC AS
SELECT lineafac.*,factura.cliente,factura.comercial
    FROM lineafac (INDEX=lineafac_unique),factura  (INDEX=FACTURA_UNIQUE)
    WHERE
    factura.empresa= lineafac.empresa
    AND factura.serie=lineafac.serie AND factura.numero=lineafac.numero








GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO




CREATE PROCEDURE sp_aj_venc1
  @fecha DATETIME, @dia1 FLOAT, @dia2 FLOAT, @dia3 FLOAT, @dia4 FLOAT,
  @resultado DATETIME OUT
AS
DECLARE @dia  FLOAT
DECLARE @mes  FLOAT
DECLARE @ano  FLOAT
DECLARE @d_r  FLOAT
DECLARE @m_r  FLOAT

DECLARE @a_r  FLOAT
DECLARE @d_x  FLOAT
DECLARE @dx   CHAR(2)
DECLARE @mx   CHAR(2)
DECLARE @ax   CHAR(4)
DECLARE @fx   CHAR(10)
DECLARE @bisiesto BIT
DECLARE @resto    INT
DECLARE @msg CHAR(255)
DECLARE @pasadoDeRosca INT

SELECT @pasadoDeRosca=0
SELECT @resultado=@fecha
SELECT @dia=DATEPART(day,@fecha)
SELECT @mes=DATEPART(month,@fecha)
SELECT @ano=DATEPART(year,@fecha)
SELECT @d_r=@dia
SELECT @m_r=@mes
SELECT @a_r=@ano
/*
SELECT 'EN AJ_VENC FECHA'=@FECHA,dia=@dia,mes=@mes,ano=@ano,dia1=@dia1,dia2=@dia2,dia3=@dia3,dia4=@dia4
*/
SELECT @d_x=@d_r
IF @dia4<>0
    BEGIN
    IF @dia<=@dia1
        SELECT @d_x=@dia1
    ELSE
        BEGIN
        IF @dia<=@dia2
            SELECT @d_x=@dia2
        ELSE
            BEGIN
            IF @dia<=@dia3

                SELECT @d_x=@dia3
            ELSE
                IF @dia<=@dia4
                    SELECT @d_x=@dia4
                ELSE
                    SELECT @pasadoDeRosca=1
            END
        END
    END
ELSE
    BEGIN
    IF @dia3<>0
        BEGIN
        IF @dia<=@dia1
            SELECT @d_x=@dia1
        ELSE
            BEGIN
            IF @dia<=@dia2
                SELECT @d_x=@dia2
            ELSE
                BEGIN
                IF @dia<=@dia3
                    SELECT @d_x=@dia3
                ELSE
                    SELECT @pasadoDeRosca=1
                END
            END
        END
    ELSE
        BEGIN
        IF @dia2<>0
            BEGIN
            IF @dia<=@dia1
                SELECT @d_x=@dia1
            ELSE
                BEGIN
                IF @dia<=@dia2
                    SELECT @d_x=@dia2
                ELSE
                    SELECT @pasadoDeRosca=1
                END
            END
        ELSE
            BEGIN
            IF @dia1<>0
                IF @dia<=@dia1
                    SELECT @d_x=@dia1
                ELSE
                    SELECT @pasadoDeRosca=1
            END
        END
    END
SELECT @d_r=@d_x
/*
SELECT 'EN AJ_VENC dia ajustado'=@d_r
*/

IF @pasadoDeRosca=1
    SELECT @d_r=@dia1

IF @d_r<@dia
    BEGIN
    SELECT @m_r=@m_r+1
    IF @m_r>12
        BEGIN
        SELECT @m_r=1
        SELECT @a_r=@a_r+1
        END
    END
SELECT @bisiesto=0
SELECT @resto=@a_r-(CONVERT(int,@a_r/4)*4)
IF @resto=0
    SELECT @bisiesto=1
IF @d_r=31
    BEGIN
    IF @m_r=4 OR @m_r=6 OR @m_r=9 OR @m_r=11
        SELECT @d_r=30
    IF @m_r=2
        BEGIN
        SELECT @d_r=28
        IF @bisiesto=1
            SELECT @d_r=29
        END
    END
/**************************************************************************

* LO SIGUIENTE ES PARA CONTROLAR SI HAN PUESTO UNA FECHA DE PAGO 29..30
* Y EL MES ES FEBRERO --> SE PASA AL 1 DE MARZO
**************************************************************************/
IF @m_r=2 AND @m_r=30
    BEGIN
    SELECT @m_r=3
    SELECT @d_r=1
    END
IF @m_r=2 AND @m_r=30
    BEGIN
    SELECT @m_r=3
    SELECT @d_r=1
    END
SELECT @dx=CONVERT(CHAR(2),@d_r)
SELECT @mx=CONVERT(char(2),@m_r)
SELECT @ax=CONVERT(char(4),@a_r)
SELECT @dx=LTRIM(RTRIM(@dx))
SELECT @mx=LTRIM(RTRIM(@mx))
SELECT @ax=LTRIM(RTRIM(@ax))
SET DATEFORMAT mdy
SELECT @fx=@mx+'/'+@dx+'/'+@ax
SELECT @resultado=CONVERT(datetime,@fx)
/*
SELECT 'EN AJ_VENC dia REUSLTADO'=@resultado

*/








GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO






/****** Object:  Stored Procedure dbo.sp_xxx_da_linea_SRv    Script Date: 18/5/01 12:58:20 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_da_linea_SRv    Script Date: 3/5/01 9:24:47 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_da_linea_SRv    Script Date: 19/2/01 11:30:17 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_da_linea_SRv    Script Date: 14/12/00 12:25:04 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_da_linea_SRv    Script Date: 26/9/00 13:23:06 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_da_linea_SRv    Script Date: 26/6/00 14:56:44 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_da_linea_SRv    Script Date: 26/6/00 9:03:28 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_da_linea_SRv    Script Date: 24/3/2000 10:08:29 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_da_linea_SRv    Script Date: 23/3/2000 15:31:29 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_da_linea_SRv    Script Date: 23/3/2000 11:25:16 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_da_linea_SRv    Script Date: 16/3/2000 12:08:27 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_da_linea_SRv    Script Date: 2/3/2000 8:30:20 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_da_linea_SRv    Script Date: 24/6/99 13:59:38 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_da_linea_SRv    Script Date: 7/6/99 11:50:37 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_da_linea_SRv    Script Date: 1/6/99 12:01:59 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_da_linea_SRv    Script Date: 1/6/99 9:54:57 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_da_linea_SRv    Script Date: 19/5/99 12:02:25 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_da_linea_SRv    Script Date: 7/5/99 12:50:04 ******/
CREATE PROCEDURE sp_xxx_da_linea_SRv
    @fichero CHAR(10),@empresa CHAR(4), @serie CHAR(2), @numero FLOAT, @result FLOAT OUTPUT
AS
DECLARE @n   FLOAT
DECLARE @max FLOAT
SELECT @fichero=LOWER(@fichero)
SELECT @max=1
EXEC sp_xxx_da_linea @fichero,@empresa,@serie,@numero
IF @fichero='lineafac'
    SELECT @max=linea FROM cgZcfg.dbo.xxxnumlfac WHERE empresa=@empresa AND serie=@serie
IF @fichero='lineaalb'
    SELECT @max=linea FROM cgZcfg.dbo.xxxnumlalb WHERE empresa=@empresa AND serie=@serie
IF @fichero='lineaent'
    SELECT @max=linea FROM cgZcfg.dbo.xxxnumlent WHERE empresa=@empresa AND serie=@serie
IF @max=NULL
    SELECT @max=0
SELECT @result=@max
RETURN








GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO






/****** Object:  Stored Procedure dbo.sp_xxx_da_num_srv    Script Date: 18/5/01 12:58:20 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_da_num_srv    Script Date: 3/5/01 9:24:47 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_da_num_srv    Script Date: 19/2/01 11:30:17 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_da_num_srv    Script Date: 14/12/00 12:25:04 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_da_num_srv    Script Date: 26/9/00 13:23:06 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_da_num_srv    Script Date: 26/6/00 14:56:44 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_da_num_srv    Script Date: 26/6/00 9:03:28 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_da_num_srv    Script Date: 24/3/2000 10:08:29 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_da_num_srv    Script Date: 23/3/2000 15:31:29 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_da_num_srv    Script Date: 23/3/2000 11:25:16 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_da_num_srv    Script Date: 16/3/2000 12:08:27 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_da_num_srv    Script Date: 2/3/2000 8:30:20 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_da_num_srv    Script Date: 24/6/99 13:59:38 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_da_num_srv    Script Date: 7/6/99 11:50:37 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_da_num_srv    Script Date: 1/6/99 12:01:59 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_da_num_srv    Script Date: 1/6/99 9:54:58 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_da_num_srv    Script Date: 19/5/99 12:02:25 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_da_num_srv    Script Date: 7/5/99 12:50:04 ******/
CREATE PROCEDURE sp_xxx_da_num_srv
    @fichero CHAR(10),@empresa CHAR(4), @serie CHAR(2), @result FLOAT OUTPUT
AS
DECLARE @n   FLOAT
DECLARE @max FLOAT
SELECT @fichero=LOWER(@fichero)
SELECT @max=1
EXEC sp_xxx_da_numero @fichero,@empresa,@serie
IF @fichero='cobros'
    SELECT @max=numero FROM cgZcfg.dbo.xxxnumcob WHERE empresa=@empresa
IF @fichero='pagos'
    SELECT @max=numero FROM cgZcfg.dbo.xxxnumpag WHERE empresa=@empresa
IF @max=NULL
    SELECT @max=0
SELECT @result=@max
RETURN








GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO






/****** Object:  Stored Procedure dbo.sp_aj_a_imp    Script Date: 18/5/01 12:58:20 ******/
/****** Object:  Stored Procedure dbo.sp_aj_a_imp    Script Date: 3/5/01 9:24:47 ******/
/****** Object:  Stored Procedure dbo.sp_aj_a_imp    Script Date: 19/2/01 11:30:17 ******/
/****** Object:  Stored Procedure dbo.sp_aj_a_imp    Script Date: 14/12/00 12:25:04 ******/
/****** Object:  Stored Procedure dbo.sp_aj_a_imp    Script Date: 26/9/00 13:23:07 ******/
/****** Object:  Stored Procedure dbo.sp_aj_a_imp    Script Date: 26/6/00 14:56:44 ******/
/****** Object:  Stored Procedure dbo.sp_aj_a_imp    Script Date: 26/6/00 9:03:28 ******/
/****** Object:  Stored Procedure dbo.sp_aj_a_imp    Script Date: 24/3/2000 10:08:29 ******/
/****** Object:  Stored Procedure dbo.sp_aj_a_imp    Script Date: 23/3/2000 15:31:29 ******/
/****** Object:  Stored Procedure dbo.sp_aj_a_imp    Script Date: 23/3/2000 11:25:16 ******/
/****** Object:  Stored Procedure dbo.sp_aj_a_imp    Script Date: 16/3/2000 12:08:27 ******/
/****** Object:  Stored Procedure dbo.sp_aj_a_imp    Script Date: 2/3/2000 8:30:20 ******/
/****** Object:  Stored Procedure dbo.sp_aj_a_imp    Script Date: 24/6/99 13:59:38 ******/
/****** Object:  Stored Procedure dbo.sp_aj_a_imp    Script Date: 7/6/99 11:50:36 ******/
/****** Object:  Stored Procedure dbo.sp_aj_a_imp    Script Date: 1/6/99 12:01:58 ******/
/****** Object:  Stored Procedure dbo.sp_aj_a_imp    Script Date: 1/6/99 9:54:57 ******/
/****** Object:  Stored Procedure dbo.sp_aj_a_imp    Script Date: 19/5/99 12:02:24 ******/
/****** Object:  Stored Procedure dbo.sp_aj_a_imp    Script Date: 7/5/99 12:49:55 ******/
CREATE PROCEDURE sp_aj_a_imp
    @importe        FLOAT,  @en_euro   BIT,
    @empresa        CHAR(4),
    @dto_c          FLOAT,  @dto_rec   FLOAT,    @dto_p  FLOAT,
    @total_sumas    FLOAT,
    @total_recargos FLOAT,
    @gasto1         FLOAT,  @gasto2    FLOAT,   @gasto3   FLOAT,  @gasto4   FLOAT,
    @gasto5         FLOAT,  @gasto6    FLOAT,   @gasto7   FLOAT,  @gasto8   FLOAT,
    @gasto9         FLOAT,  @gasto10   FLOAT,
    @arancelt       FLOAT,
    @resultado      FLOAT OUTPUT


AS
DECLARE @tipo_inter   FLOAT
DECLARE @tipo_dto     FLOAT
DECLARE @factor       FLOAT

DECLARE @prop         FLOAT
DECLARE @redondeo     FLOAT
DECLARE @factorx      FLOAT
DECLARE @sy_c1        FLOAT
DECLARE @sy_c2        FLOAT
DECLARE @cascada      BIT
DECLARE @por          BIT
DECLARE @rep1         BIT
DECLARE @rep2         BIT
DECLARE @rep3         BIT
DECLARE @rep4         BIT
DECLARE @rep5         BIT
DECLARE @rep6         BIT
DECLARE @rep7         BIT
DECLARE @rep8         BIT
DECLARE @rep9         BIT
DECLARE @rep10        BIT
DECLARE @reparancel   BIT
SELECT @sy_c1=sy_c1, @sy_c2=sy_c2 FROM sistemad WHERE id=1
SELECT @cascada=cascada,@por=por,
    @rep1=rep1,@rep2=rep2,
    @rep3=rep3,@rep4=rep4,
    @rep5=rep5,@rep6=rep6,
    @rep7=rep7,@rep8=rep8,
    @rep9=rep9,@rep10=rep10,
    @reparancel=reparancel
    FROM empresa WHERE empresa=@empresa
SELECT @redondeo=0
SELECT @factorx = @sy_c1
IF @en_euro=1
    SELECT @redondeo=2, @factorx=@sy_c2
IF @cascada=1
    SELECT @tipo_inter = (((@dto_c-100)/100)*@dto_rec)+@dto_c
ELSE
    SELECT @tipo_inter = @dto_c - @dto_rec
IF @cascada=1
    SELECT @tipo_dto = (((100-@tipo_inter)/100)*@dto_p)+@tipo_inter
ELSE
    SELECT @tipo_dto = @dto_p+@tipo_inter
SELECT @factor = 1-(@tipo_dto/100)
SELECT @resultado = @importe*@factor
IF @total_sumas=0
    SELECT @prop = 0
ELSE
    SELECT @prop = @importe/@total_sumas
IF @por=1
    SELECT @resultado=@resultado+(@total_recargos*@prop)
IF @rep1=1
    SELECT @resultado=@resultado+(@gasto1 *@prop)
IF @rep2=1
    SELECT @resultado=@resultado+(@gasto2 *@prop)
IF @rep3=1
    SELECT @resultado=@resultado+(@gasto3 *@prop)
IF @rep4=1
    SELECT @resultado=@resultado+(@gasto4 *@prop)
IF @rep5=1
    SELECT @resultado=@resultado+(@gasto5 *@prop)
IF @rep6=1
    SELECT @resultado=@resultado+(@gasto6 *@prop)
IF @rep7=1
    SELECT @resultado=@resultado+(@gasto7 *@prop)
IF @rep8=1
    SELECT @resultado=@resultado+(@gasto8 *@prop)
IF @rep9=1
    SELECT @resultado=@resultado+(@gasto9 *@prop)
IF @rep10=1
IF @reparancel=1
    SELECT @resultado=@resultado+(@arancelt*@prop)
SELECT @resultado=ROUND(@resultado,@redondeo)
/**************************************************************************************
update xxxmsg
    set mensajec = 'dentro de aj_a_i, resultado y prop: ' + CONVERT(CHAR(10),@resultado) +' - '+ CONVERT(CHAR(10),@prop)
    where sp_id = @@spid
**************************************************************************************/








GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO




CREATE PROCEDURE sp_aj_venc
  @fecha DATETIME, @dia1 FLOAT, @dia2 FLOAT, @dia3 FLOAT, @dia4 FLOAT,
  @resultado DATETIME OUT,@vaca1 DATETIME ='',@vaca2 DATETIME =''
AS
DECLARE @dia  FLOAT
DECLARE @mes  FLOAT
DECLARE @ano  FLOAT
DECLARE @d_r  FLOAT
DECLARE @m_r  FLOAT
DECLARE @a_r  FLOAT
DECLARE @d_x  FLOAT
DECLARE @dx   CHAR(2)
DECLARE @mx   CHAR(2)
DECLARE @ax   CHAR(4)
DECLARE @fx   CHAR(10)
DECLARE @bisiesto BIT
DECLARE @resto    INT
DECLARE @msg CHAR(255)
DECLARE @conVacaciones INT
DECLARE @diaVaca1   INT
DECLARE @mesVaca1   INT
DECLARE @anoVaca1   INT
DECLARE @diaVaca2   INT
DECLARE @mesVaca2   INT
DECLARE @anoVaca2   INT
DECLARE @fechaVaca1 DATETIME
DECLARE @fechaVaca2 DATETIME
DECLARE @vuelta     DATETIME

EXECUTE sp_aj_venc1 @fecha,@dia1,@dia2,@dia3,@dia4,@vuelta OUT


set dateformat dmy
/*
select 'como primera aproximacion la fecha ajsuada es ',@vuelta
*/
SELECT @resultado=@vuelta
SELECT @dia=DATEPART(day,@vuelta)
SELECT @mes=DATEPART(month,@vuelta)
SELECT @ano=DATEPART(year,@vuelta)
SELECT @diaVaca1=DATEPART(day,@vaca1)
SELECT @mesVaca1=DATEPART(month,@vaca1)
SELECT @anoVaca1=DATEPART(year,@vaca1)
SELECT @diaVaca2=DATEPART(day,@vaca2)
SELECT @mesVaca2=DATEPART(month,@vaca2)
SELECT @anoVaca2=DATEPART(year,@vaca2)

IF @anoVaca1=1900
    SELECT @conVacaciones=0
ELSE
    BEGIN
/*
select 'que lo sepas',@vaca1,@vaca2
*/
    SELECT @conVacaciones=1
    SET DATEFORMAT mdy
    SELECT @dx=CONVERT(CHAR(2),@diaVaca1)
    SELECT @mx=CONVERT(char(2),@mesVaca1)
    SELECT @ax=CONVERT(char(4),@ano)
    SELECT @dx=LTRIM(RTRIM(@dx))
    SELECT @mx=LTRIM(RTRIM(@mx))
    SELECT @ax=LTRIM(RTRIM(@ax))
/*
select 'inicio vacaciones en partes: dia',@dx,'mes ',@mx,'ano',@ax
*/
    SET DATEFORMAT mdy
    SELECT @fx=@mx+'/'+@dx+'/'+@ax
    SELECT @fechaVaca1=CONVERT(datetime,@fx)

    SELECT @dx=CONVERT(CHAR(2),@diaVaca2)
    SELECT @mx=CONVERT(char(2),@mesVaca2)
    SELECT @ax=CONVERT(char(4),@ano)
    SELECT @dx=LTRIM(RTRIM(@dx))
    SELECT @mx=LTRIM(RTRIM(@mx))
    SELECT @ax=LTRIM(RTRIM(@ax))
/*
select 'fin vacaciones en partes: dia',@dx,'mes ',@mx,'ano',@ax
*/
    SET DATEFORMAT mdy
    SELECT @fx=@mx+'/'+@dx+'/'+@ax
    SELECT @fechaVaca2=CONVERT(datetime,@fx)

    set dateformat dmy
/*
    SELECT 'LAS VACACIONES EMPIEZAN EN ',@FECHAVACA1,' Y TERMINAN EN ',@FECHAVACA2
*/
    IF @resultado>=@fechaVaca1 AND @resultado<=@FechaVaca2
        BEGIN
/*
        select 'dentro de las vacaciones'
*/
        SELECT @fecha=@fechaVaca2+1
        EXECUTE sp_aj_venc1 @fecha,@dia1,@dia2,@dia3,@dia4,@vuelta OUT
        SELECT @resultado=@vuelta
        END
    END
/*
SELECT 'EN AJ_VENC dia REUSLTADO'=@resultado
*/


GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO






/****** Object:  Stored Procedure dbo.sp_cm_doc    Script Date: 18/5/01 12:58:20 ******/
/****** Object:  Stored Procedure dbo.sp_cm_doc    Script Date: 3/5/01 9:24:47 ******/
/****** Object:  Stored Procedure dbo.sp_cm_doc    Script Date: 19/2/01 11:30:17 ******/
/****** Object:  Stored Procedure dbo.sp_cm_doc    Script Date: 14/12/00 12:25:05 ******/
/****** Object:  Stored Procedure dbo.sp_cm_doc    Script Date: 26/9/00 13:23:07 ******/
/****** Object:  Stored Procedure dbo.sp_cm_doc    Script Date: 26/6/00 14:56:44 ******/
/****** Object:  Stored Procedure dbo.sp_cm_doc    Script Date: 26/6/00 9:03:28 ******/
/****** Object:  Stored Procedure dbo.sp_cm_doc    Script Date: 24/3/2000 10:08:29 ******/
/****** Object:  Stored Procedure dbo.sp_cm_doc    Script Date: 23/3/2000 15:31:29 ******/
/****** Object:  Stored Procedure dbo.sp_cm_doc    Script Date: 23/3/2000 11:25:16 ******/
/****** Object:  Stored Procedure dbo.sp_cm_doc    Script Date: 16/3/2000 12:08:27 ******/
/****** Object:  Stored Procedure dbo.sp_cm_doc    Script Date: 2/3/2000 8:30:20 ******/
/****** Object:  Stored Procedure dbo.sp_cm_doc    Script Date: 24/6/99 13:59:38 ******/
/****** Object:  Stored Procedure dbo.sp_cm_doc    Script Date: 7/6/99 11:50:36 ******/
/****** Object:  Stored Procedure dbo.sp_cm_doc    Script Date: 1/6/99 12:01:58 ******/
/****** Object:  Stored Procedure dbo.sp_cm_doc    Script Date: 1/6/99 9:54:57 ******/
/****** Object:  Stored Procedure dbo.sp_cm_doc    Script Date: 19/5/99 12:02:24 ******/
/****** Object:  Stored Procedure dbo.sp_cm_doc    Script Date: 7/5/99 12:49:56 ******/

CREATE PROCEDURE sp_cm_doc
  @fichero CHAR(10),@en_euro BIT, @empresa CHAR(4), @serie CHAR(2), @numero FLOAT
AS
DECLARE @sy_c1     FLOAT
DECLARE @sy_c2     FLOAT
DECLARE @esprovee  BIT
DECLARE @esdivisa  BIT
DECLARE @nuevocam  FLOAT
DECLARE @factor    FLOAT
DECLARE @redondeo  FLOAT
DECLARE @lredondeo  FLOAT
DECLARE @divisa    CHAR(10)
DECLARE @cambio    FLOAT
SELECT @fichero=RTRIM(LTRIM(LOWER(@fichero)))
DECLARE sss CURSOR FOR SELECT sy_c1,sy_c2 FROM sistemad WHERE id=1
OPEN sss
FETCH NEXT FROM sss INTO @sy_c1, @sy_c2
CLOSE sss
DEALLOCATE sss
SELECT @factor=@sy_c1,@redondeo=0,@lredondeo=4
IF @en_euro=1
    SELECT @factor=@sy_c2,@redondeo=2,@lredondeo=6
SELECT @esprovee=0,@esdivisa=1
IF @fichero='pagos'
    SELECT @esprovee=1
IF @fichero='compra'
    SELECT @esprovee=1
IF @fichero='albpro'
    SELECT @esprovee=1
IF @fichero='entrada'
    SELECT @esprovee=1
/**************************************************************************************
**************************************************************************************/
IF @fichero='cobros'
    BEGIN
    UPDATE cobros SET importe_c=ROUND(importe_c*@factor,@redondeo),en_euro=@en_euro
        WHERE empresa=@empresa AND numero=@numero
    RETURN
    END
IF @fichero='salidas'
    BEGIN
    RETURN
    END
IF @fichero='pagos'
    BEGIN
    RETURN
    END
/**************************************************************************************
**************************************************************************************/
IF @esprovee=1
BEGIN
/* crear la variable nuevocam
el factor y el redondeo hay que aplicarlos dependiendo de not esdivisa
*/
IF @fichero='compra'
    BEGIN
    SELECT @divisa=divisa,@cambio=cambio FROM compra
        WHERE empresa=@empresa AND serie=@serie AND numero=@numero
    SELECT @nuevocam=@cambio
    SELECT @nuevocam=@cambio*@sy_c1
    IF @en_euro=1
        SELECT @nuevocam=@cambio*@sy_c2
    IF @divisa=''
        BEGIN
        UPDATE lineacom SET a_pre=ROUND(a_pre*@factor,@lredondeo),en_euro=@en_euro,
            a_pre_s=ROUND(a_pre_s*@factor,@lredondeo),
            a_tot_l=ROUND(a_tot_l*@factor,@lredondeo)
            WHERE empresa=@empresa AND serie=@serie AND numero=@numero
        UPDATE lineacom SET precio=a_pre,
            precio_sin=a_pre_s,total_l=a_tot_l
            WHERE empresa=@empresa AND serie=@serie AND numero=@numero
        UPDATE compra   SET en_euro=@en_euro,
            a_rec1=ROUND(a_rec1*@factor,@redondeo),

            a_rec2=ROUND(a_rec2*@factor,@redondeo),
            a_rec3=ROUND(a_rec3*@factor,@redondeo),
            a_rec4=ROUND(a_rec4*@factor,@redondeo)
            WHERE empresa=@empresa AND serie=@serie AND numero=@numero
        END
    ELSE
         BEGIN
        UPDATE lineacom SET precio=a_pre*@nuevocam,
            precio_sin=a_pre_s*@nuevocam,total_l=a_tot_l*@nuevocam
            WHERE empresa=@empresa AND serie=@serie AND numero=@numero
        UPDATE compra   SET en_euro=@en_euro,
            cambio=@nuevocam
            WHERE empresa=@empresa AND serie=@serie AND numero=@numero
        END
    END
IF @fichero='albpro'
    BEGIN
    SELECT @divisa=divisa,@cambio=cambio FROM albpro
        WHERE empresa=@empresa AND serie=@serie AND numero=@numero
    SELECT @nuevocam=@cambio

    SELECT @nuevocam=@cambio*@sy_c1
    IF @en_euro=1
        SELECT @nuevocam=@cambio*@sy_c2
    IF @divisa=''
        BEGIN
        UPDATE linalbp SET a_pre=ROUND(a_pre*@factor,@lredondeo),en_euro=@en_euro,
            a_pre_s=ROUND(a_pre_s*@factor,@lredondeo),
            a_tot_l=ROUND(a_tot_l*@factor,@lredondeo)
            WHERE empresa=@empresa AND serie=@serie AND numero=@numero
        UPDATE linalbp SET precio=a_pre,
            precio_sin=a_pre_s,total_l=a_tot_l
            WHERE empresa=@empresa AND serie=@serie AND numero=@numero
        UPDATE albpro  SET en_euro=@en_euro,
            a_rec1=ROUND(a_rec1*@factor,@redondeo),
            a_rec2=ROUND(a_rec2*@factor,@redondeo),
            a_rec3=ROUND(a_rec3*@factor,@redondeo),
            a_rec4=ROUND(a_rec4*@factor,@redondeo)
            WHERE empresa=@empresa AND serie=@serie AND numero=@numero
        END
    ELSE
         BEGIN
        UPDATE linalbp SET precio=a_pre*@nuevocam,
            precio_sin=a_pre_s*@nuevocam,total_l=a_tot_l*@nuevocam
            WHERE empresa=@empresa AND serie=@serie AND numero=@numero
        UPDATE albpro  SET en_euro=@en_euro,
            cambio=@nuevocam
            WHERE empresa=@empresa AND serie=@serie AND numero=@numero
        END
    END
IF @fichero='entrada'
    BEGIN
    SELECT @divisa=divisa,@cambio=cambio FROM entrada
        WHERE empresa=@empresa AND serie=@serie AND numero=@numero
    SELECT @nuevocam=@cambio
    SELECT @nuevocam=@cambio*@sy_c1
    IF @en_euro=1
        SELECT @nuevocam=@cambio*@sy_c2
    IF @divisa=''

        BEGIN
        UPDATE lineaent SET a_pre=ROUND(a_pre*@factor,@lredondeo),en_euro=@en_euro,
            a_pre_s=ROUND(a_pre_s*@factor,@lredondeo),
            a_tot_l=ROUND(a_tot_l*@factor,@lredondeo)
            WHERE empresa=@empresa AND serie=@serie AND numero=@numero
        UPDATE lineaent SET precio=a_pre,
            precio_sin=a_pre_s,total_l=a_tot_l
            WHERE empresa=@empresa AND serie=@serie AND numero=@numero
        UPDATE entrada  SET en_euro=@en_euro,

            a_rec1=ROUND(a_rec1*@factor,@redondeo),
            a_rec2=ROUND(a_rec2*@factor,@redondeo),
            a_rec3=ROUND(a_rec3*@factor,@redondeo),
            a_rec4=ROUND(a_rec4*@factor,@redondeo)
            WHERE empresa=@empresa AND serie=@serie AND numero=@numero
        END
    ELSE
         BEGIN
        UPDATE lineaent SET precio=a_pre*@nuevocam,
            precio_sin=a_pre_s*@nuevocam,total_l=a_tot_l*@nuevocam
            WHERE empresa=@empresa AND serie=@serie AND numero=@numero
        UPDATE entrada  SET en_euro=@en_euro,
            cambio=@nuevocam
            WHERE empresa=@empresa AND serie=@serie AND numero=@numero
        END
    END
EXEC sp_resumap @fichero,@empresa,@serie,@numero
IF @fichero='entrada'
    EXEC sp_haz_deu2 @empresa,@serie,@numero
RETURN
END
/**************************************************************************************
ES DE CLIENTE
**************************************************************************************/
IF @fichero='ofertas'
    BEGIN
    UPDATE lineaofe SET precio=ROUND(precio*@factor,@lredondeo),en_euro=@en_euro,
        precio_sin=ROUND(precio_sin*@factor,@lredondeo),
        total_l=ROUND(total_l*@factor,@lredondeo)
        WHERE empresa=@empresa AND serie=@serie AND numero=@numero
    UPDATE ofertas  SET en_euro=@en_euro,
        recargo1=ROUND(recargo1*@factor,@redondeo),
        recargo2=ROUND(recargo2*@factor,@redondeo),
        recargo3=ROUND(recargo3*@factor,@redondeo),
        recargo4=ROUND(recargo4*@factor,@redondeo)
        WHERE empresa=@empresa AND serie=@serie AND numero=@numero
    END
IF @fichero='pedido'
    BEGIN
    UPDATE lineaped SET precio=ROUND(precio*@factor,@lredondeo),en_euro=@en_euro,
        precio_sin=ROUND(precio_sin*@factor,@lredondeo),
        total_l=ROUND(total_l*@factor,@lredondeo)
        WHERE empresa=@empresa AND serie=@serie AND numero=@numero
    UPDATE pedido   SET en_euro=@en_euro,
        recargo1=ROUND(recargo1*@factor,@redondeo),
        recargo2=ROUND(recargo2*@factor,@redondeo),
        recargo3=ROUND(recargo3*@factor,@redondeo),
        recargo4=ROUND(recargo4*@factor,@redondeo)

        WHERE empresa=@empresa AND serie=@serie AND numero=@numero
    END
IF @fichero='albaran'

    BEGIN
    UPDATE lineaalb SET precio=ROUND(precio*@factor,@lredondeo),en_euro=@en_euro,
        precio_sin=ROUND(precio_sin*@factor,@lredondeo),
        total_l=ROUND(total_l*@factor,@lredondeo)
        WHERE empresa=@empresa AND serie=@serie AND numero=@numero
    UPDATE albaran  SET en_euro=@en_euro,
        recargo1=ROUND(recargo1*@factor,@redondeo),
        recargo2=ROUND(recargo2*@factor,@redondeo),
        recargo3=ROUND(recargo3*@factor,@redondeo),
        recargo4=ROUND(recargo4*@factor,@redondeo)
        WHERE empresa=@empresa AND serie=@serie AND numero=@numero
    END
IF @fichero='factura'
    BEGIN
    UPDATE lineafac SET precio=ROUND(precio*@factor,@lredondeo),en_euro=@en_euro,
        precio_sin=ROUND(precio_sin*@factor,@lredondeo),
        total_l=ROUND(total_l*@factor,@lredondeo)
        WHERE empresa=@empresa AND serie=@serie AND numero=@numero
    UPDATE factura  SET en_euro=@en_euro,
        recargo1=ROUND(recargo1*@factor,@redondeo),
        recargo2=ROUND(recargo2*@factor,@redondeo),
        recargo3=ROUND(recargo3*@factor,@redondeo),
        recargo4=ROUND(recargo4*@factor,@redondeo)
        WHERE empresa=@empresa AND serie=@serie AND numero=@numero
    END
IF @fichero='plantill'
    BEGIN
    UPDATE lineapla SET precio=ROUND(precio*@factor,@lredondeo),en_euro=@en_euro,
        precio_sin=ROUND(precio_sin*@factor,@lredondeo),
        total_l=ROUND(total_l*@factor,@lredondeo)
        WHERE empresa=@empresa AND serie=@serie AND numero=@numero
    UPDATE plantill SET en_euro=@en_euro,
        recargo1=ROUND(recargo1*@factor,@redondeo),
        recargo2=ROUND(recargo2*@factor,@redondeo),
        recargo3=ROUND(recargo3*@factor,@redondeo),
        recargo4=ROUND(recargo4*@factor,@redondeo)
        WHERE empresa=@empresa AND serie=@serie AND numero=@numero
    END
EXEC sp_resuma @fichero,@empresa,@serie,@numero
IF @fichero='factura'
    EXEC sp_haz_deuda @empresa,@serie,@numero








GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO






/****** Object:  Stored Procedure dbo.sp_cob_auto    Script Date: 18/5/01 12:58:20 ******/
/****** Object:  Stored Procedure dbo.sp_cob_auto    Script Date: 3/5/01 9:24:47 ******/
/****** Object:  Stored Procedure dbo.sp_cob_auto    Script Date: 19/2/01 11:30:17 ******/
/****** Object:  Stored Procedure dbo.sp_cob_auto    Script Date: 14/12/00 12:25:05 ******/
/****** Object:  Stored Procedure dbo.sp_cob_auto    Script Date: 26/9/00 13:23:07 ******/
/****** Object:  Stored Procedure dbo.sp_cob_auto    Script Date: 26/6/00 14:56:44 ******/
/****** Object:  Stored Procedure dbo.sp_cob_auto    Script Date: 26/6/00 9:03:28 ******/
/****** Object:  Stored Procedure dbo.sp_cob_auto    Script Date: 24/3/2000 10:08:29 ******/
/****** Object:  Stored Procedure dbo.sp_cob_auto    Script Date: 23/3/2000 15:31:29 ******/
/****** Object:  Stored Procedure dbo.sp_cob_auto    Script Date: 23/3/2000 11:25:16 ******/
/****** Object:  Stored Procedure dbo.sp_cob_auto    Script Date: 16/3/2000 12:08:27 ******/
/****** Object:  Stored Procedure dbo.sp_cob_auto    Script Date: 2/3/2000 8:30:20 ******/
/****** Object:  Stored Procedure dbo.sp_cob_auto    Script Date: 24/6/99 13:59:38 ******/
/****** Object:  Stored Procedure dbo.sp_cob_auto    Script Date: 7/6/99 11:50:36 ******/
/****** Object:  Stored Procedure dbo.sp_cob_auto    Script Date: 1/6/99 12:01:58 ******/
/****** Object:  Stored Procedure dbo.sp_cob_auto    Script Date: 1/6/99 9:54:57 ******/
/****** Object:  Stored Procedure dbo.sp_cob_auto    Script Date: 19/5/99 12:02:24 ******/
/****** Object:  Stored Procedure dbo.sp_cob_auto    Script Date: 7/5/99 12:49:56 ******/
CREATE PROCEDURE sp_cob_auto
  @empresa CHAR(4), @serie CHAR(2), @factura FLOAT, @cliente CHAR(10),
  @importe FLOAT, @dias DATETIME, @recibido CHAR(1),@en_euro BIT
AS
DECLARE @imp_ant FLOAT
DECLARE @tipo1   CHAR(1)
DECLARE @tipo2   CHAR(1)
DECLARE @numero  FLOAT
DECLARE @mensaje CHAR(255)
SELECT @tipo1='F'
IF @recibido='S'
    SELECT @tipo1='E'
/*print 'en conbro automatico'*/
IF EXISTS (SELECT * FROM cobros WHERE empresa = @empresa AND serie=@serie AND factura=@factura
    AND dias=@dias AND automatico='S')
    BEGIN
    SELECT @imp_ant=importe_c FROM cobros
        WHERE empresa = @empresa AND serie=@serie AND factura=@factura
        AND dias=@dias AND automatico='S'
    UPDATE cobros SET importe_c=@importe
        WHERE empresa = @empresa AND serie=@serie AND factura=@factura
        AND dias=@dias AND automatico='S'
    EXEC sp_riesgo_cli @empresa,@cliente,@tipo1,@imp_ant,@en_euro
    UPDATE factura SET pagado=pagado-@imp_ant
        WHERE empresa = @empresa AND serie=@serie AND numero=@factura
    SELECT @mensaje='Modificado el cobro automatico del efecto de '+CONVERT(char(10),@dias,103)+
        ' a un importe de '+CONVERT(CHAR(10),@importe)
    EXEC sp_xxx_ponmsg @mensaje
    END
ELSE
    BEGIN
    EXEC sp_xxx_da_num_srv 'cobros', @empresa, '', @numero OUTPUT
    INSERT INTO cobros
        (empresa,numero,serie,factura,
        dias,fecha,importe_c,
        cliente,enlazado,
        cuenta,automatico,
        en_euro) VALUES
        (@empresa,@numero,@serie,@factura,
        @dias,@dias,@importe,
        @cliente,'N',
        '570','S',
        @en_euro)
    SELECT @mensaje='Creado cobro automatico del efecto de '+CONVERT(char(10),@dias,103)+

        ' por importe de '+CONVERT(CHAR(10),@importe)
    EXEC sp_xxx_ponmsg @mensaje
    END
UPDATE lindeud SET pagado_l=importe
    WHERE empresa = @empresa AND serie=@serie AND numero=@factura AND dias=@dias
UPDATE factura SET pagado=pagado+@importe
    WHERE empresa = @empresa AND serie=@serie AND numero=@factura
SELECT @importe=-@importe
EXEC sp_riesgo_cli @empresa,@cliente,@tipo1,@importe,@en_euro








GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO






/****** Object:  Stored Procedure dbo.sp_cuanto_reservo    Script Date: 18/5/01 12:58:20 ******/
/****** Object:  Stored Procedure dbo.sp_cuanto_reservo    Script Date: 3/5/01 9:24:47 ******/
/****** Object:  Stored Procedure dbo.sp_cuanto_reservo    Script Date: 19/2/01 11:30:17 ******/
/****** Object:  Stored Procedure dbo.sp_cuanto_reservo    Script Date: 14/12/00 12:25:05 ******/
/****** Object:  Stored Procedure dbo.sp_cuanto_reservo    Script Date: 26/9/00 13:23:07 ******/
/****** Object:  Stored Procedure dbo.sp_cuanto_reservo    Script Date: 26/6/00 14:56:45 ******/
/****** Object:  Stored Procedure dbo.sp_cuanto_reservo    Script Date: 26/6/00 9:03:28 ******/
/****** Object:  Stored Procedure dbo.sp_cuanto_reservo    Script Date: 24/3/2000 10:08:29 ******/
/****** Object:  Stored Procedure dbo.sp_cuanto_reservo    Script Date: 23/3/2000 15:31:29 ******/
/****** Object:  Stored Procedure dbo.sp_cuanto_reservo    Script Date: 23/3/2000 11:25:16 ******/
/****** Object:  Stored Procedure dbo.sp_cuanto_reservo    Script Date: 16/3/2000 12:08:27 ******/
/****** Object:  Stored Procedure dbo.sp_cuanto_reservo    Script Date: 2/3/2000 8:30:20 ******/
/****** Object:  Stored Procedure dbo.sp_cuanto_reservo    Script Date: 24/6/99 13:59:38 ******/
/****** Object:  Stored Procedure dbo.sp_cuanto_reservo    Script Date: 7/6/99 11:50:36 ******/
/****** Object:  Stored Procedure dbo.sp_cuanto_reservo    Script Date: 1/6/99 12:01:58 ******/
/****** Object:  Stored Procedure dbo.sp_cuanto_reservo    Script Date: 1/6/99 9:54:57 ******/
/****** Object:  Stored Procedure dbo.sp_cuanto_reservo    Script Date: 19/5/99 12:02:24 ******/
/****** Object:  Stored Procedure dbo.sp_cuanto_reservo    Script Date: 7/5/99 12:49:57 ******/
CREATE PROCEDURE sp_cuanto_reservo
    @empresa CHAR(4), @raiz CHAR(16), @talla CHAR(2), @color CHAR(2),
    @cantidad FLOAT,
    @hay_quereservar BIT OUTPUT,@almacen CHAR(4) OUTPUT, @reservado FLOAT OUTPUT
AS
DECLARE @sys_rsv     CHAR(4)
DECLARE @sys_negativo    BIT
DECLARE @stock        FLOAT
DECLARE @posible    FLOAT
DECLARE @mensaje        CHAR(255)
DECLARE @alm2           CHAR(4)
SELECT @hay_quereservar=0
SELECT @sys_rsv=(SELECT reservar FROM empresa WHERE empresa=@empresa)
IF @sys_rsv<>'' AND @sys_rsv<>NULL
    BEGIN
    SELECT @sys_negativo=(SELECT negativo FROM empresa WHERE empresa=@empresa)
    IF @sys_negativo=0
        BEGIN
        IF EXISTS(SELECT stock FROM exist WHERE empresa=@empresa AND raiz=@raiz AND
        talla=@talla AND color=@color AND almacen=@sys_rsv)
            BEGIN
            SELECT @stock=(SELECT stock FROM exist WHERE empresa=@empresa AND raiz=@raiz AND
            talla=@talla AND color=@color AND almacen=@sys_rsv)
            SELECT @posible=0
            IF @stock>@posible
                SELECT @posible=@stock
            IF @cantidad<@posible
                SELECT @posible=@cantidad
            END
        ELSE
            BEGIN
            SELECT @posible=0
            END
        END
    ELSE
        BEGIN
        SELECT @posible=@cantidad
        END
    IF @posible<>0
        SELECT @hay_quereservar=1
    END
IF @hay_quereservar=1
    BEGIN
    SELECT @reservado=@posible
    SELECT @alm2=LTRIM(RTRIM(@almacen))
    IF @alm2=''
        SELECT @almacen=@sys_rsv
    IF @alm2=NULL
        SELECT @almacen=@sys_rsv
    SELECT @mensaje='Se reservan automaticamente '+
        LTRIM(RTRIM(CONVERT(CHAR(10),@reservado)))+' unidades del almacen '+@almacen+'.'
    EXEC sp_xxx_ponmsg @mensaje
    END








GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO






/****** Object:  Stored Procedure dbo.sp_imputa_cobro    Script Date: 18/5/01 12:58:20 ******/
/****** Object:  Stored Procedure dbo.sp_imputa_cobro    Script Date: 3/5/01 9:24:47 ******/
/****** Object:  Stored Procedure dbo.sp_imputa_cobro    Script Date: 19/2/01 11:30:17 ******/
/****** Object:  Stored Procedure dbo.sp_imputa_cobro    Script Date: 14/12/00 12:25:05 ******/
/****** Object:  Stored Procedure dbo.sp_imputa_cobro    Script Date: 26/9/00 13:23:07 ******/
/****** Object:  Stored Procedure dbo.sp_imputa_cobro    Script Date: 26/6/00 14:56:45 ******/
/****** Object:  Stored Procedure dbo.sp_imputa_cobro    Script Date: 26/6/00 9:03:29 ******/
/****** Object:  Stored Procedure dbo.sp_imputa_cobro    Script Date: 24/3/2000 10:08:29 ******/
/****** Object:  Stored Procedure dbo.sp_imputa_cobro    Script Date: 23/3/2000 15:31:29 ******/
/****** Object:  Stored Procedure dbo.sp_imputa_cobro    Script Date: 23/3/2000 11:25:16 ******/
/****** Object:  Stored Procedure dbo.sp_imputa_cobro    Script Date: 16/3/2000 12:08:27 ******/
/****** Object:  Stored Procedure dbo.sp_imputa_cobro    Script Date: 2/3/2000 8:30:20 ******/
/****** Object:  Stored Procedure dbo.sp_imputa_cobro    Script Date: 24/6/99 13:59:38 ******/
/****** Object:  Stored Procedure dbo.sp_imputa_cobro    Script Date: 7/6/99 11:50:36 ******/
/****** Object:  Stored Procedure dbo.sp_imputa_cobro    Script Date: 1/6/99 12:01:58 ******/
/****** Object:  Stored Procedure dbo.sp_imputa_cobro    Script Date: 1/6/99 9:54:57 ******/
/****** Object:  Stored Procedure dbo.sp_imputa_cobro    Script Date: 19/5/99 12:02:24 ******/
/****** Object:  Stored Procedure dbo.sp_imputa_cobro    Script Date: 7/5/99 12:49:58 ******/
CREATE PROCEDURE sp_imputa_cobro
    @empresa CHAR(4), @serie CHAR(2), @factura FLOAT, @dias DATETIME,
    @cliente CHAR(10),
    @importe FLOAT, @en_euro BIT
AS
DECLARE @mensaje            CHAR(255)
DECLARE @redondeo           FLOAT
DECLARE @factor             FLOAT
DECLARE @sy_c1              FLOAT
DECLARE @sy_c2              FLOAT
DECLARE @en_euro_factura    BIT
DECLARE @importe_corregido  FLOAT
DECLARE @recibido           CHAR(1)
DECLARE @tipo               CHAR(1)
IF @empresa = NULL
    RETURN
IF @factura = NULL
    RETURN
IF @factura = 0
    RETURN
DECLARE sss CURSOR FOR SELECT sy_c1,sy_c2 FROM sistemad WHERE id=1
OPEN sss
FETCH NEXT FROM sss INTO @sy_c1, @sy_c2
CLOSE sss
DEALLOCATE sss
SELECT @redondeo=0
SELECT @factor  =@sy_c2
IF @en_euro=1
    BEGIN
    SELECT @redondeo=2
    SELECT @factor  =@sy_c1
    END
DECLARE fff CURSOR FOR SELECT en_euro FROM factura
    WHERE empresa=@empresa AND serie=@serie AND numero=@factura
OPEN fff
FETCH NEXT FROM fff INTO @en_euro_factura
CLOSE fff
DEALLOCATE fff
IF @en_euro_factura=NULL
    SELECT @en_euro_factura=0
SELECT @importe_corregido=@importe
IF @en_euro<>@en_euro_factura
    SELECT @importe_corregido=ROUND(@importe*@factor,@redondeo)
UPDATE factura SET pagado=pagado+@importe_corregido
    WHERE empresa=@empresa AND serie=@serie AND numero=@factura
UPDATE lindeud SET pagado_l=pagado_l+@importe_corregido
    WHERE empresa=@empresa AND serie=@serie AND numero=@factura AND dias=@dias
DECLARE ddd CURSOR FOR SELECT recibido FROM lindeud
    WHERE empresa=@empresa AND serie=@serie AND numero=@factura AND dias=@dias
OPEN ddd
FETCH NEXT FROM ddd INTO @recibido
CLOSE ddd
DEALLOCATE ddd
IF @recibido=NULL
    SELECT @recibido='N'
SELECT @tipo='F'
IF @recibido='S'
    SELECT @tipo='E'
SELECT @importe=-@importe
EXEC sp_riesgo_cli @empresa,@cliente,@tipo,@importe,@en_euro
RETURN








GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO






/****** Object:  Stored Procedure dbo.sp_imputa_pago    Script Date: 18/5/01 12:58:20 ******/
/****** Object:  Stored Procedure dbo.sp_imputa_pago    Script Date: 3/5/01 9:24:47 ******/
/****** Object:  Stored Procedure dbo.sp_imputa_pago    Script Date: 19/2/01 11:30:17 ******/
/****** Object:  Stored Procedure dbo.sp_imputa_pago    Script Date: 14/12/00 12:25:05 ******/
/****** Object:  Stored Procedure dbo.sp_imputa_pago    Script Date: 26/9/00 13:23:07 ******/
/****** Object:  Stored Procedure dbo.sp_imputa_pago    Script Date: 26/6/00 14:56:45 ******/
/****** Object:  Stored Procedure dbo.sp_imputa_pago    Script Date: 26/6/00 9:03:29 ******/
/****** Object:  Stored Procedure dbo.sp_imputa_pago    Script Date: 24/3/2000 10:08:29 ******/
/****** Object:  Stored Procedure dbo.sp_imputa_pago    Script Date: 23/3/2000 15:31:29 ******/
/****** Object:  Stored Procedure dbo.sp_imputa_pago    Script Date: 23/3/2000 11:25:16 ******/

/****** Object:  Stored Procedure dbo.sp_imputa_pago    Script Date: 16/3/2000 12:08:27 ******/
/****** Object:  Stored Procedure dbo.sp_imputa_pago    Script Date: 2/3/2000 8:30:20 ******/
/****** Object:  Stored Procedure dbo.sp_imputa_pago    Script Date: 24/6/99 13:59:38 ******/
/****** Object:  Stored Procedure dbo.sp_imputa_pago    Script Date: 7/6/99 11:50:36 ******/
/****** Object:  Stored Procedure dbo.sp_imputa_pago    Script Date: 1/6/99 12:01:58 ******/
/****** Object:  Stored Procedure dbo.sp_imputa_pago    Script Date: 1/6/99 9:54:57 ******/
/****** Object:  Stored Procedure dbo.sp_imputa_pago    Script Date: 19/5/99 12:02:24 ******/
/****** Object:  Stored Procedure dbo.sp_imputa_pago    Script Date: 7/5/99 12:49:58 ******/
CREATE PROCEDURE sp_imputa_pago
    @empresa CHAR(4), @serie CHAR(2), @tfNumero FLOAT, @dias DATETIME,
    @cliente CHAR(10),
    @importe FLOAT, @en_euro BIT
AS
DECLARE @mensaje            CHAR(255)
DECLARE @redondeo           FLOAT
DECLARE @factor             FLOAT
DECLARE @sy_c1              FLOAT
DECLARE @sy_c2              FLOAT
DECLARE @en_euro_entrada    BIT
DECLARE @importe_corregido  FLOAT
DECLARE @recibido           CHAR(1)
DECLARE @tipo               CHAR(1)
IF @empresa = NULL
    RETURN
IF @tfNumero = NULL
    RETURN
DECLARE sss CURSOR FOR SELECT sy_c1,sy_c2 FROM sistemad WHERE id=1
OPEN sss
FETCH NEXT FROM sss INTO @sy_c1, @sy_c2
CLOSE sss
DEALLOCATE sss
SELECT @redondeo=0
SELECT @factor  =@sy_c2
IF @en_euro=1
    BEGIN
        SELECT @redondeo=2
        SELECT @factor  =@sy_c1
    END
SELECT @en_euro_entrada = (SELECT en_euro
                                                        FROM entrada
                                                        WHERE empresa=@empresa AND serie=@serie AND numero=@tfNumero)
IF @en_euro_entrada = NULL
    SELECT @en_euro_entrada = 0
SELECT @importe_corregido = @importe
IF @en_euro<>@en_euro_entrada
    SELECT @importe_corregido = ROUND(@importe*@factor, @redondeo)
UPDATE entrada SET pagado = pagado + @importe_corregido
    WHERE empresa=@empresa AND serie=@serie AND numero=@tfNumero
UPDATE lindeu2 SET pagado_l = pagado_l + @importe_corregido
    WHERE empresa=@empresa AND serie=@serie AND numero=@tfNumero AND dias=@dias
SELECT @recibido = (SELECT recibido
                                            FROM lindeu2
                                            WHERE empresa=@empresa AND serie=@serie AND numero=@tfNumero AND dias = @dias)
IF @recibido = NULL
    SELECT @recibido='N'
SELECT @tipo = 'F'
IF @recibido = 'S'
    SELECT @tipo = 'E'
SELECT @importe = -@importe
EXEC sp_riesgo_pro @empresa,@cliente,@tipo,@importe,@en_euro








GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO






/****** Object:  Stored Procedure dbo.sp_pag_auto    Script Date: 18/5/01 12:58:20 ******/
/****** Object:  Stored Procedure dbo.sp_pag_auto    Script Date: 3/5/01 9:24:47 ******/
/****** Object:  Stored Procedure dbo.sp_pag_auto    Script Date: 19/2/01 11:30:17 ******/
/****** Object:  Stored Procedure dbo.sp_pag_auto    Script Date: 14/12/00 12:25:05 ******/
/****** Object:  Stored Procedure dbo.sp_pag_auto    Script Date: 26/9/00 13:23:12 ******/
/****** Object:  Stored Procedure dbo.sp_pag_auto    Script Date: 26/6/00 14:56:46 ******/
/****** Object:  Stored Procedure dbo.sp_pag_auto    Script Date: 26/6/00 9:03:29 ******/
/****** Object:  Stored Procedure dbo.sp_pag_auto    Script Date: 24/3/2000 10:08:30 ******/
/****** Object:  Stored Procedure dbo.sp_pag_auto    Script Date: 23/3/2000 15:31:29 ******/
/****** Object:  Stored Procedure dbo.sp_pag_auto    Script Date: 23/3/2000 11:25:16 ******/
/****** Object:  Stored Procedure dbo.sp_pag_auto    Script Date: 16/3/2000 12:08:27 ******/
/****** Object:  Stored Procedure dbo.sp_pag_auto    Script Date: 2/3/2000 8:30:20 ******/
/****** Object:  Stored Procedure dbo.sp_pag_auto    Script Date: 24/6/99 13:59:38 ******/
/****** Object:  Stored Procedure dbo.sp_pag_auto    Script Date: 7/6/99 11:50:37 ******/
/****** Object:  Stored Procedure dbo.sp_pag_auto    Script Date: 1/6/99 12:01:58 ******/
/****** Object:  Stored Procedure dbo.sp_pag_auto    Script Date: 1/6/99 9:54:57 ******/
/****** Object:  Stored Procedure dbo.sp_pag_auto    Script Date: 19/5/99 12:02:24 ******/
/****** Object:  Stored Procedure dbo.sp_pag_auto    Script Date: 7/5/99 12:50:00 ******/
CREATE PROCEDURE sp_pag_auto
  @empresa CHAR(4), @serie CHAR(2), @factura FLOAT, @cliente CHAR(10),
  @importe FLOAT, @dias DATETIME, @recibido CHAR(1),@en_euro BIT
AS
DECLARE @imp_ant FLOAT
DECLARE @tipo1   CHAR(1)
DECLARE @tipo2   CHAR(1)
DECLARE @numero  FLOAT
DECLARE @mensaje CHAR(255)
SELECT @tipo1='F'
IF @recibido='S'
    SELECT @tipo1='E'
/*print 'En pago automatico'*/
IF EXISTS (SELECT * FROM pagos WHERE empresa = @empresa AND serie=@serie AND factura=@factura
    AND dias=@dias AND automatico='S')
    BEGIN
    SELECT @imp_ant=importe_c FROM pagos
        WHERE empresa = @empresa AND serie=@serie AND factura=@factura
        AND dias=@dias AND automatico='S'
    UPDATE pagos SET importe_c=@importe
        WHERE empresa = @empresa AND serie=@serie AND factura=@factura
        AND dias=@dias AND automatico='S'
    EXEC sp_riesgo_pro @empresa,@cliente,@tipo1,@imp_ant,@en_euro
    UPDATE entrada SET pagado=pagado-@imp_ant
        WHERE empresa = @empresa AND serie=@serie AND numero=@factura
    SELECT @mensaje='Modificado el pago automatico del efecto de '+CONVERT(char(10),@dias,103)+
        ' a un importe de '+CONVERT(CHAR(10),@importe)
    EXEC sp_xxx_ponmsg @mensaje
    END
ELSE
    BEGIN
    EXEC sp_xxx_da_num_srv 'pagos', @empresa, '', @numero OUTPUT

/*select 'numero de pago '=@numero*/
    INSERT INTO pagos
        (empresa,numero,serie,factura,
        dias,fecha,importe_c,
        cliente,enlazado,
        cuenta,automatico,
        en_euro) VALUES
        (@empresa,@numero,@serie,@factura,
        @dias,@dias,@importe,
        @cliente,'N',

        '570','S',
        @en_euro)
    SELECT @mensaje='Creado pago automatico del efecto de '+CONVERT(char(10),@dias,103)+
        ' por importe de '+CONVERT(CHAR(10),@importe)
    EXEC sp_xxx_ponmsg @mensaje
    END
UPDATE lindeu2 SET pagado_l=importe
    WHERE empresa = @empresa AND serie=@serie AND numero=@factura AND dias=@dias
UPDATE entrada SET pagado=pagado+@importe
    WHERE empresa = @empresa AND serie=@serie AND numero=@factura
SELECT @importe=-@importe
EXEC sp_riesgo_pro @empresa,@cliente,@tipo1,@importe,@en_euro








GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO






/****** Object:  Stored Procedure dbo.sp_pon_aniadidos    Script Date: 18/5/01 12:58:20 ******/
/****** Object:  Stored Procedure dbo.sp_pon_aniadidos    Script Date: 3/5/01 9:24:47 ******/
/****** Object:  Stored Procedure dbo.sp_pon_aniadidos    Script Date: 19/2/01 11:30:17 ******/
CREATE PROCEDURE sp_pon_aniadidos AS
DECLARE @empresa    CHAR(4)
DECLARE @codigo     char(10)
DECLARE @riesgo_l   FLOAT
DECLARE @madre      CHAR(10)
DECLARE @tipomad    FLOAT
DECLARE @kit        CHAR(1)
DECLARE @raiz       CHAR(16)
DECLARE @talla      CHAR(2)
DECLARE @color      CHAR(2)

DECLARE cursor_cli CURSOR FOR SELECT empresa,codigo,riesgo_l,madre,tipomad
    FROM clientes
OPEN cursor_cli FETCH NEXT FROM cursor_cli INTO @empresa,@codigo,@riesgo_l,@madre,@tipomad
WHILE (@@fetch_status <> -1)
  BEGIN
  IF (@@fetch_status <> -2)
     BEGIN
     INSERT INTO cli2 (empresa,codigo) VALUES (@empresa,@codigo)
     UPDATE cli2 SET riesgo_l=@riesgo_l,madre=@madre,tipomad=@tipomad
    WHERE empresa=@empresa AND codigo=@codigo
     END
     FETCH NEXT FROM cursor_cli INTO @empresa,@codigo,@riesgo_l,@madre,@tipomad
  END
CLOSE cursor_cli
DEALLOCATE cursor_cli


DECLARE cursor_pro CURSOR FOR SELECT empresa,codigo,riesgo_l
    FROM proveedo
OPEN cursor_pro FETCH NEXT FROM cursor_pro INTO @empresa,@codigo,@riesgo_l
WHILE (@@fetch_status <> -1)
  BEGIN
  IF (@@fetch_status <> -2)
     BEGIN
     INSERT INTO pro2 (empresa,codigo) VALUES (@empresa,@codigo)
     UPDATE pro2 SET riesgo_l=@riesgo_l
    WHERE empresa=@empresa AND codigo=@codigo
     END
  FETCH NEXT FROM cursor_pro INTO @empresa,@codigo,@riesgo_l
  END
CLOSE cursor_pro
DEALLOCATE cursor_pro


DECLARE cursor_art CURSOR FOR SELECT empresa,raiz,talla,color,kit
    FROM articulo
OPEN cursor_art FETCH NEXT FROM cursor_art INTO @empresa,@raiz,@talla,@color,@kit
WHILE (@@fetch_status <> -1)
  BEGIN
  IF (@@fetch_status <> -2)
     BEGIN
     INSERT INTO arti2 (empresa,raiz,talla,color) VALUES (@empresa,@raiz,@talla,@color)
     UPDATE arti2 SET kit=@kit
    WHERE empresa=@empresa AND raiz=@raiz AND talla=@talla AND color=@color
     END
  FETCH NEXT FROM cursor_art INTO @empresa,@raiz,@talla,@color,@kit
  END
CLOSE cursor_art
DEALLOCATE cursor_art








GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO






/****** Object:  Stored Procedure dbo.sp_resumap    Script Date: 18/5/01 12:58:20 ******/
/****** Object:  Stored Procedure dbo.sp_resumap    Script Date: 3/5/01 9:24:48 ******/
/****** Object:  Stored Procedure dbo.sp_resumap    Script Date: 19/2/01 11:30:18 ******/
/****** Object:  Stored Procedure dbo.sp_resumap    Script Date: 14/12/00 12:25:06 ******/
CREATE PROCEDURE sp_resumap
  @fichero CHAR(10),@empresa CHAR(4), @serie CHAR(2), @numero FLOAT
AS
DECLARE @s1   FLOAT
DECLARE @s2   FLOAT
DECLARE @s3   FLOAT
DECLARE @s4   FLOAT
DECLARE @raiz    CHAR(16)
DECLARE @talla   CHAR(2)

DECLARE @color   CHAR(2)
DECLARE @tipo_iva FLOAT
DECLARE @total_l  FLOAT
DECLARE @tipoiva    INT
DECLARE @cliente        CHAR(10)
DECLARE @fecha   DATETIME
DECLARE @suma1   FLOAT
DECLARE @suma2   FLOAT
DECLARE @suma3   FLOAT
DECLARE @suma4   FLOAT

DECLARE @a_suma1   FLOAT
DECLARE @a_suma2   FLOAT
DECLARE @a_suma3   FLOAT
DECLARE @a_suma4   FLOAT
DECLARE @recargo1   FLOAT
DECLARE @recargo2   FLOAT
DECLARE @recargo3   FLOAT
DECLARE @recargo4   FLOAT
DECLARE @a_rec1   FLOAT
DECLARE @a_rec2   FLOAT
DECLARE @a_rec3   FLOAT
DECLARE @a_rec4   FLOAT
DECLARE @dto1    FLOAT
DECLARE @dto2    FLOAT
DECLARE @dto3    FLOAT
DECLARE @dto4    FLOAT
DECLARE @a_dto1    FLOAT
DECLARE @a_dto2    FLOAT
DECLARE @a_dto3    FLOAT
DECLARE @a_dto4    FLOAT
DECLARE @base1   FLOAT
DECLARE @base2   FLOAT
DECLARE @base3   FLOAT
DECLARE @base4   FLOAT
DECLARE @a_base1   FLOAT
DECLARE @a_base2   FLOAT
DECLARE @a_base3   FLOAT
DECLARE @a_base4   FLOAT
DECLARE @iva1    FLOAT
DECLARE @iva2    FLOAT
DECLARE @iva3    FLOAT
DECLARE @iva4    FLOAT
DECLARE @a_iva1    FLOAT
DECLARE @a_iva2    FLOAT
DECLARE @a_iva3    FLOAT
DECLARE @a_iva4    FLOAT
DECLARE @re1    FLOAT
DECLARE @re2    FLOAT
DECLARE @re3    FLOAT
DECLARE @re4    FLOAT
DECLARE @a_re1    FLOAT
DECLARE @a_re2    FLOAT
DECLARE @a_re3    FLOAT
DECLARE @a_re4    FLOAT
DECLARE @dto_c   FLOAT
DECLARE @dto_p   FLOAT
DECLARE @dto_rec FLOAT
DECLARE @p_reten FLOAT

DECLARE @rec_fin FLOAT
DECLARE @en_euro BIT
DECLARE @total   FLOAT
DECLARE @a_total   FLOAT
DECLARE @impret FLOAT
DECLARE @a_impret FLOAT
DECLARE @importe FLOAT
DECLARE @codigo  CHAR(10)
DECLARE @tipo    CHAR(1)
DECLARE @tabla   FLOAT
DECLARE @cantidad FLOAT
DECLARE @almacen CHAR(4)
DECLARE @albaran FLOAT
DECLARE @pedido FLOAT
DECLARE @linea INT
DECLARE @cambio  FLOAT
DECLARE @divisa  CHAR(10)
DECLARE @RETURNMESSAGE CHAR(200)
SELECT @fichero=RTRIM(LTRIM(LOWER(@fichero)))
SELECT @s1=0,@s2=0,@s3=0,@s4=0
IF @fichero='compra'
    BEGIN
    DECLARE sss CURSOR FOR SELECT a_tot_l,articulo.tipo_iva
        FROM lineacom,articulo
        WHERE lineacom.empresa=@empresa AND lineacom.serie=@serie
            AND lineacom.numero=@numero
            AND articulo.empresa=@empresa AND articulo.raiz=lineacom.raiz
            AND articulo.talla=lineacom.talla AND articulo.color=lineacom.color
    SELECT @codigo = cliente, @importe=total,
        @dto_c=dto_c,@dto_p=dto_p,@dto_rec=dto_rec,@fecha=fecha,
        @a_suma1=a_suma1,@a_suma2=a_suma2,@a_suma3=a_suma3,@a_suma4=a_suma4,
        @suma1=suma1,@suma2=suma2,@suma3=suma3,@suma4=suma4,
        @a_rec1=a_rec1,@a_rec2=a_rec2,@a_rec3=a_rec3,@a_rec4=a_rec4,
        @recargo1=recargo1,@recargo2=recargo2,@recargo3=recargo3,@recargo4=recargo4,
        @en_euro = en_euro,@p_reten=retencion,@cambio=cambio,@divisa=divisa,
        @a_total =a_total
        FROM compra
        WHERE empresa=@empresa AND serie=@serie AND numero=@numero
    END
IF @fichero='albpro'
    BEGIN
    DECLARE sss CURSOR FOR SELECT a_tot_l,articulo.tipo_iva
        FROM linalbp,articulo
        WHERE linalbp.empresa=@empresa AND linalbp.serie=@serie
            AND linalbp.numero=@numero
            AND articulo.empresa=@empresa AND articulo.raiz=linalbp.raiz
            AND articulo.talla=linalbp.talla AND articulo.color=linalbp.color
    SELECT @codigo = proveedo, @importe=total,
        @dto_c=dto_c,@dto_p=dto_p,@dto_rec=dto_rec,@fecha=fecha,
        @a_suma1=a_suma1,@a_suma2=a_suma2,@a_suma3=a_suma3,@a_suma4=a_suma4,
        @suma1=suma1,@suma2=suma2,@suma3=suma3,@suma4=suma4,
        @a_rec1=a_rec1,@a_rec2=a_rec2,@a_rec3=a_rec3,@a_rec4=a_rec4,
        @recargo1=recargo1,@recargo2=recargo2,@recargo3=recargo3,@recargo4=recargo4,
        @en_euro = en_euro,@p_reten=retencion,@cambio=cambio,@divisa=divisa,
        @a_total =a_total
        FROM albpro
        WHERE empresa=@empresa AND serie=@serie AND numero=@numero
    END
IF @fichero='entrada'
    BEGIN
    DECLARE sss CURSOR FOR SELECT a_tot_l,articulo.tipo_iva
        FROM lineaent,articulo
        WHERE lineaent.empresa=@empresa AND lineaent.serie=@serie
            AND lineaent.numero=@numero
            AND articulo.empresa=@empresa AND articulo.raiz=lineaent.raiz
            AND articulo.talla=lineaent.talla AND articulo.color=lineaent.color
    SELECT @codigo = cliente, @importe=total,
        @dto_c=dto_c,@dto_p=dto_p,@dto_rec=dto_rec,@fecha=fecha,
        @a_suma1=a_suma1,@a_suma2=a_suma2,@a_suma3=a_suma3,@a_suma4=a_suma4,
        @suma1=suma1,@suma2=suma2,@suma3=suma3,@suma4=suma4,
        @a_rec1=a_rec1,@a_rec2=a_rec2,@a_rec3=a_rec3,@a_rec4=a_rec4,
        @recargo1=recargo1,@recargo2=recargo2,@recargo3=recargo3,@recargo4=recargo4,
        @en_euro = en_euro,@p_reten=retencion,@cambio=cambio,@divisa=divisa,
        @a_total =a_total
        FROM entrada
        WHERE empresa=@empresa AND serie=@serie AND numero=@numero
    END
/********************************************************************/
OPEN sss
FETCH NEXT FROM sss INTO @total_l,@tipo_iva
WHILE (@@fetch_status <> -1)
    BEGIN
    IF (@@fetch_status <> -2)
        BEGIN
        IF @tipo_iva=NULL
            SELECT @tipo_iva=1
        IF @tipo_iva>4
            SELECT @tipo_iva=1
        IF @tipo_iva<1
            SELECT @tipo_iva=1
        IF @total_l= NULL
            SELECT @total_l=0

        IF @tipo_iva=1
            SELECT @s1=@s1+@total_l
        IF @tipo_iva=2
            SELECT @s2=@s2+@total_l
        IF @tipo_iva=3
            SELECT @s3=@s3+@total_l
        IF @tipo_iva=4
            SELECT @s4=@s4+@total_l
        END
    FETCH NEXT FROM sss INTO @total_l,@tipo_iva
    END
CLOSE sss
DEALLOCATE sss
SELECT @a_suma1=@s1,@a_suma2=@s2,@a_suma3=@s3,@a_suma4=@s4
SELECT @s1,@s2,@s3,@s4
EXEC sp_xxx_calcula2 @empresa,@serie, @codigo, @fecha,
    @dto_c,@dto_p,@dto_rec,
    @s1,@s2,@s3,@s4,
    @a_rec1,@a_rec2,@a_rec3,@a_rec4,
    @p_reten,@divisa,@cambio,@en_euro,
    @a_dto1  OUTPUT,@a_dto2  OUTPUT,@a_dto3  OUTPUT,@a_dto4  OUTPUT,
    @a_base1 OUTPUT,@a_base2 OUTPUT,@a_base3 OUTPUT,@a_base4 OUTPUT,
    @a_iva1  OUTPUT,@a_iva2  OUTPUT,@a_iva3  OUTPUT,@a_iva4  OUTPUT,
    @a_re1   OUTPUT,@a_re2   OUTPUT,@a_re3   OUTPUT,@a_re4   OUTPUT,
    @a_impret OUTPUT, @a_total OUTPUT,
    @suma1  OUTPUT,@suma2   OUTPUT,@suma3 OUTPUT,@suma4 OUTPUT,
    @dto1 OUTPUT,@dto2 OUTPUT,@dto3 OUTPUT,@dto4 OUTPUT,
    @base1 OUTPUT,@base2 OUTPUT,@base3 OUTPUT,@base4 OUTPUT,
    @iva1 OUTPUT,@iva2 OUTPUT,@iva3 OUTPUT,@iva4 OUTPUT,
    @re1 OUTPUT,@re2 OUTPUT,@re3 OUTPUT,@re4 OUTPUT,
    @recargo1 OUTPUT ,@recargo2 OUTPUT ,@recargo3 OUTPUT ,@recargo4 OUTPUT,
    @impret  OUTPUT,@total OUTPUT
IF @fichero='compra'
    UPDATE compra
        SET a_suma1=@a_suma1,a_suma2=@a_suma2,a_suma3=@a_suma3, a_suma4=@a_suma4,

        a_dto1=@a_dto1,a_dto2=@a_dto2,a_dto3=@a_dto3,a_dto4=@a_dto4,
        a_base1=@a_base1,a_base2=@a_base2,a_base3=@a_base3,a_base4=@a_base4,
        a_iva1=@a_iva1,a_iva2=@a_iva2,a_iva3=@a_iva3,a_iva4=@a_iva4,
        a_re1=@a_re1,a_re2=@a_re2,a_re3=@a_re3,a_re4=@a_re4,
        a_impret = @a_impret, a_total = @a_total ,
        suma1=@suma1,suma2=@suma2,suma3=@suma3, suma4=@suma4,
        recargo1=@recargo1,recargo2=@recargo2,recargo3=@recargo3,recargo4=@recargo4,
        dto1=@dto1,dto2=@dto2,dto3=@dto3,dto4=@dto4,
        base1=@base1,base2=@base2,base3=@base3,base4=@base4,
        iva1=@iva1,iva2=@iva2,iva3=@iva3,iva4=@iva4,
        re1=@re1,re2=@re2,re3=@re3,re4=@re4,
        impret = @impret, total = @total
    WHERE empresa=@empresa AND serie=@serie AND numero=@numero
IF @fichero='albpro'
    UPDATE albpro
        SET a_suma1=@a_suma1,a_suma2=@a_suma2,a_suma3=@a_suma3, a_suma4=@a_suma4,
        a_dto1=@a_dto1,a_dto2=@a_dto2,a_dto3=@a_dto3,a_dto4=@a_dto4,
        a_base1=@a_base1,a_base2=@a_base2,a_base3=@a_base3,a_base4=@a_base4,
        a_iva1=@a_iva1,a_iva2=@a_iva2,a_iva3=@a_iva3,a_iva4=@a_iva4,
        a_re1=@a_re1,a_re2=@a_re2,a_re3=@a_re3,a_re4=@a_re4,
        a_impret = @a_impret, a_total = @a_total ,
        suma1=@suma1,suma2=@suma2,suma3=@suma3, suma4=@suma4,
        recargo1=@recargo1,recargo2=@recargo2,recargo3=@recargo3,recargo4=@recargo4,
        dto1=@dto1,dto2=@dto2,dto3=@dto3,dto4=@dto4,
        base1=@base1,base2=@base2,base3=@base3,base4=@base4,
        iva1=@iva1,iva2=@iva2,iva3=@iva3,iva4=@iva4,
        re1=@re1,re2=@re2,re3=@re3,re4=@re4,
        impret = @impret, total = @total
    WHERE empresa=@empresa AND serie=@serie AND numero=@numero
IF @fichero='entrada'
    UPDATE entrada
        SET a_suma1=@a_suma1,a_suma2=@a_suma2,a_suma3=@a_suma3, a_suma4=@a_suma4,
        a_dto1=@a_dto1,a_dto2=@a_dto2,a_dto3=@a_dto3,a_dto4=@a_dto4,
        a_base1=@a_base1,a_base2=@a_base2,a_base3=@a_base3,a_base4=@a_base4,
        a_iva1=@a_iva1,a_iva2=@a_iva2,a_iva3=@a_iva3,a_iva4=@a_iva4,
        a_re1=@a_re1,a_re2=@a_re2,a_re3=@a_re3,a_re4=@a_re4,
        a_impret = @a_impret, a_total = @a_total ,
        suma1=@suma1,suma2=@suma2,suma3=@suma3, suma4=@suma4,
        recargo1=@recargo1,recargo2=@recargo2,recargo3=@recargo3,recargo4=@recargo4,
        dto1=@dto1,dto2=@dto2,dto3=@dto3,dto4=@dto4,
        base1=@base1,base2=@base2,base3=@base3,base4=@base4,
        iva1=@iva1,iva2=@iva2,iva3=@iva3,iva4=@iva4,
        re1=@re1,re2=@re2,re3=@re3,re4=@re4,
        impret = @impret, total = @total
    WHERE empresa=@empresa AND serie=@serie AND numero=@numero








GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO






/****** Object:  Stored Procedure dbo.sp_riesgo_pro    Script Date: 18/5/01 12:58:20 ******/
/****** Object:  Stored Procedure dbo.sp_riesgo_pro    Script Date: 3/5/01 9:24:48 ******/
/****** Object:  Stored Procedure dbo.sp_riesgo_pro    Script Date: 19/2/01 11:30:18 ******/
/****** Object:  Stored Procedure dbo.sp_riesgo_pro    Script Date: 14/12/00 12:25:06 ******/
/****** Object:  Stored Procedure dbo.sp_riesgo_pro    Script Date: 26/9/00 13:23:12 ******/
/****** Object:  Stored Procedure dbo.sp_riesgo_pro    Script Date: 26/6/00 14:56:47 ******/
/****** Object:  Stored Procedure dbo.sp_riesgo_pro    Script Date: 26/6/00 9:03:30 ******/
/****** Object:  Stored Procedure dbo.sp_riesgo_pro    Script Date: 24/3/2000 10:08:30 ******/
/****** Object:  Stored Procedure dbo.sp_riesgo_pro    Script Date: 23/3/2000 15:31:29 ******/
/****** Object:  Stored Procedure dbo.sp_riesgo_pro    Script Date: 23/3/2000 11:25:16 ******/
/****** Object:  Stored Procedure dbo.sp_riesgo_pro    Script Date: 16/3/2000 12:08:27 ******/
/****** Object:  Stored Procedure dbo.sp_riesgo_pro    Script Date: 2/3/2000 8:30:20 ******/
/****** Object:  Stored Procedure dbo.sp_riesgo_pro    Script Date: 24/6/99 13:59:38 ******/
/****** Object:  Stored Procedure dbo.sp_riesgo_pro    Script Date: 7/6/99 11:50:37 ******/
/****** Object:  Stored Procedure dbo.sp_riesgo_pro    Script Date: 1/6/99 12:01:59 ******/
/****** Object:  Stored Procedure dbo.sp_riesgo_pro    Script Date: 1/6/99 9:54:57 ******/
/****** Object:  Stored Procedure dbo.sp_riesgo_pro    Script Date: 19/5/99 12:02:25 ******/
/****** Object:  Stored Procedure dbo.sp_riesgo_pro    Script Date: 7/5/99 12:50:01 ******/
CREATE PROCEDURE sp_riesgo_pro
    @empresa CHAR(4), @codigo CHAR(10), @tipo CHAR(1),
    @importe FLOAT, @en_euro BIT
AS
DECLARE @defecto    CHAR(1)
DECLARE @riesgo_pf      FLOAT
DECLARE @riesgo_f       FLOAT
DECLARE @riesgo_ef      FLOAT
DECLARE @riesgo_t       FLOAT
DECLARE @riesgo_l       FLOAT
DECLARE @mensaje        CHAR(255)
DECLARE @codigo_inicial CHAR(10)
IF @empresa = NULL
    RETURN
IF NOT EXISTS(SELECT * FROM pro2 WHERE empresa=@empresa AND codigo=@codigo)
    INSERT INTO pro2 (empresa,codigo) VALUES (@empresa,@codigo)
SELECT @codigo_inicial=@codigo
SELECT @defecto = defecto FROM empresa WHERE empresa = @empresa
IF @defecto = 'E' AND @en_euro = 0
    SELECT @importe = @importe * (SELECT sy_c2 FROM sistemad WHERE id=1)
IF @defecto = 'P' AND @en_euro = 1
    SELECT @importe = @importe * (SELECT sy_c1 FROM sistemad WHERE id=1)
SELECT @riesgo_pf=riesgo_pf,@riesgo_f=riesgo_f,@riesgo_ef=riesgo_ef
    FROM pro2
    WHERE empresa=@empresa AND codigo=@codigo

IF @tipo='P'
    SELECT @riesgo_pf=@riesgo_pf+@importe
IF @tipo='F'
    SELECT @riesgo_f =@riesgo_f +@importe
IF @tipo='E'
    SELECT @riesgo_ef=@riesgo_ef+@importe
SELECT @riesgo_t=@riesgo_pf+@riesgo_f+@riesgo_ef
UPDATE pro2 SET riesgo_pf=@riesgo_pf,riesgo_f=@riesgo_f,
        riesgo_ef=@riesgo_ef,riesgo_t=@riesgo_t
        WHERE empresa=@empresa AND codigo=@codigo
IF @riesgo_l<>0
    BEGIN
    IF @riesgo_t>@riesgo_l
        BEGIN
        SELECT @mensaje=@codigo_inicial+' supera el riesgo'
        EXEC sp_xxx_PONmsg @mensaje
        END
    END
RETURN








GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO






/****** Object:  Stored Procedure dbo.sp_suma_borra    Script Date: 18/5/01 12:58:20 ******/
/****** Object:  Stored Procedure dbo.sp_suma_borra    Script Date: 3/5/01 9:24:48 ******/
/****** Object:  Stored Procedure dbo.sp_suma_borra    Script Date: 19/2/01 11:30:18 ******/
/****** Object:  Stored Procedure dbo.sp_suma_borra    Script Date: 14/12/00 12:25:06 ******/
/****** Object:  Stored Procedure dbo.sp_suma_borra    Script Date: 26/9/00 13:23:12 ******/
/****** Object:  Stored Procedure dbo.sp_suma_borra    Script Date: 26/6/00 14:56:47 ******/
/****** Object:  Stored Procedure dbo.sp_suma_borra    Script Date: 26/6/00 9:03:30 ******/
/****** Object:  Stored Procedure dbo.sp_suma_borra    Script Date: 24/3/2000 10:08:30 ******/
/****** Object:  Stored Procedure dbo.sp_suma_borra    Script Date: 23/3/2000 15:31:29 ******/
/****** Object:  Stored Procedure dbo.sp_suma_borra    Script Date: 23/3/2000 11:25:16 ******/
/****** Object:  Stored Procedure dbo.sp_suma_borra    Script Date: 16/3/2000 12:08:27 ******/
/****** Object:  Stored Procedure dbo.sp_suma_borra    Script Date: 2/3/2000 8:30:20 ******/
/****** Object:  Stored Procedure dbo.sp_suma_borra    Script Date: 24/6/99 13:59:38 ******/
/****** Object:  Stored Procedure dbo.sp_suma_borra    Script Date: 7/6/99 11:50:37 ******/
/****** Object:  Stored Procedure dbo.sp_suma_borra    Script Date: 1/6/99 12:01:59 ******/
/****** Object:  Stored Procedure dbo.sp_suma_borra    Script Date: 1/6/99 9:54:57 ******/
/****** Object:  Stored Procedure dbo.sp_suma_borra    Script Date: 19/5/99 12:02:25 ******/
/****** Object:  Stored Procedure dbo.sp_suma_borra    Script Date: 7/5/99 12:50:02 ******/
CREATE PROCEDURE sp_suma_borra
    @fichero   CHAR(8),
    @empresa   CHAR(4)
AS
IF @fichero='cli2'
    UPDATE cli2
        SET riesgo_pf=0,riesgo_f=0,riesgo_ef=0,riesgo_t=0
        WHERE empresa=@empresa
IF @fichero='pro2'
    UPDATE pro2
        SET riesgo_pf=0,riesgo_f=0,riesgo_ef=0,riesgo_t=0
        WHERE empresa=@empresa
RETURN








GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO






/****** Object:  Stored Procedure dbo.sp_suma_deuda    Script Date: 18/5/01 12:58:20 ******/
/****** Object:  Stored Procedure dbo.sp_suma_deuda    Script Date: 3/5/01 9:24:48 ******/
/****** Object:  Stored Procedure dbo.sp_suma_deuda    Script Date: 19/2/01 11:30:18 ******/
/****** Object:  Stored Procedure dbo.sp_suma_deuda    Script Date: 14/12/00 12:25:06 ******/
/****** Object:  Stored Procedure dbo.sp_suma_deuda    Script Date: 26/9/00 13:23:12 ******/
/****** Object:  Stored Procedure dbo.sp_suma_deuda    Script Date: 26/6/00 14:56:47 ******/
/****** Object:  Stored Procedure dbo.sp_suma_deuda    Script Date: 26/6/00 9:03:30 ******/
/****** Object:  Stored Procedure dbo.sp_suma_deuda    Script Date: 24/3/2000 10:08:30 ******/
/****** Object:  Stored Procedure dbo.sp_suma_deuda    Script Date: 23/3/2000 15:31:29 ******/
/****** Object:  Stored Procedure dbo.sp_suma_deuda    Script Date: 23/3/2000 11:25:16 ******/
/****** Object:  Stored Procedure dbo.sp_suma_deuda    Script Date: 16/3/2000 12:08:27 ******/
/****** Object:  Stored Procedure dbo.sp_suma_deuda    Script Date: 2/3/2000 8:30:20 ******/
/****** Object:  Stored Procedure dbo.sp_suma_deuda    Script Date: 24/6/99 13:59:38 ******/
/****** Object:  Stored Procedure dbo.sp_suma_deuda    Script Date: 7/6/99 11:50:37 ******/
/****** Object:  Stored Procedure dbo.sp_suma_deuda    Script Date: 1/6/99 12:01:59 ******/
/****** Object:  Stored Procedure dbo.sp_suma_deuda    Script Date: 1/6/99 9:54:57 ******/
/****** Object:  Stored Procedure dbo.sp_suma_deuda    Script Date: 19/5/99 12:02:25 ******/
/****** Object:  Stored Procedure dbo.sp_suma_deuda    Script Date: 7/5/99 12:50:02 ******/
CREATE PROCEDURE sp_suma_deuda
    @fichero   CHAR(8),
    @empresa   CHAR(4)
AS
DECLARE @importe_cobro    FLOAT
DECLARE @en_euro_cobro    BIT
DECLARE @en_euro_factura  BIT
DECLARE @sy_c1            FLOAT
DECLARE @sy_c2            FLOAT
DECLARE @serie            CHAR(2)
DECLARE @numero           FLOAT
DECLARE @dias             DATETIME
DECLARE @importe_ajustado FLOAT
IF @fichero='lindeud'
    BEGIN
    UPDATE factura SET pagado  =0 WHERE empresa=@empresa
    UPDATE lindeud SET pagado_l=0 WHERE empresa=@empresa
    DECLARE sumccc CURSOR FOR SELECT importe_c,en_euro,serie,factura,dias
        FROM cobros WHERE empresa=@empresa

    END
ELSE
    BEGIN
    UPDATE entrada SET pagado  =0 WHERE empresa=@empresa
    UPDATE lindeu2 SET pagado_l=0 WHERE empresa=@empresa
    DECLARE sumccc CURSOR FOR SELECT importe_c,en_euro,serie,factura,dias
        FROM pagos WHERE empresa=@empresa
    END
SELECT @sy_c1=sy_c1,@sy_c2=sy_c2 FROM sistemad WHERE id=1
OPEN sumccc
FETCH NEXT FROM sumccc INTO @importe_cobro,@en_euro_cobro,@serie,@numero,@dias
WHILE (@@fetch_status <> -1)
    BEGIN
    IF (@@fetch_status <> -2)
        BEGIN
        SELECT @importe_ajustado=@importe_cobro
        /************factura***********/
        IF @fichero='lindeud'
            SELECT @en_euro_factura=en_euro FROM factura
                WHERE empresa=@empresa AND serie=@serie AND numero=@numero
        ELSE
            SELECT @en_euro_factura=en_euro FROM entrada
                WHERE empresa=@empresa AND serie=@serie AND numero=@numero
        IF @en_euro_cobro<>@en_euro_factura
            BEGIN
            IF @en_euro_factura=1
                SELECT @importe_ajustado=ROUND(@importe_cobro*@sy_c2,2)
            ELSE
                SELECT @importe_ajustado=ROUND(@importe_cobro*@sy_c1,0)
            END
        IF @fichero='lindeud'
            UPDATE factura SET pagado=pagado+@importe_ajustado
                WHERE empresa=@empresa AND serie=@serie AND numero=@numero
        ELSE
            UPDATE entrada SET pagado=pagado+@importe_ajustado
                WHERE empresa=@empresa AND serie=@serie AND numero=@numero
        /*****************vencimiento*******************/
        IF @fichero='lindeud'
            SELECT @en_euro_factura=en_euro FROM lindeud
                WHERE empresa=@empresa AND serie=@serie AND numero=@numero
                    AND dias=@dias
        ELSE
            SELECT @en_euro_factura=en_euro FROM lindeu2
                WHERE empresa=@empresa AND serie=@serie AND numero=@numero
                    AND dias=@dias
        IF @en_euro_cobro<>@en_euro_factura
            BEGIN
            IF @en_euro_factura=1
                SELECT @importe_ajustado=ROUND(@importe_cobro*@sy_c2,2)

            ELSE
                SELECT @importe_ajustado=ROUND(@importe_cobro*@sy_c1,0)
            END
        IF @fichero='lindeud'
            UPDATE lindeud SET pagado_l=pagado_l+@importe_ajustado
                WHERE empresa=@empresa AND serie=@serie AND numero=@numero
                    AND dias=@dias
        ELSE

            UPDATE lindeu2 SET pagado_l=pagado_l+@importe_ajustado
                WHERE empresa=@empresa AND serie=@serie AND numero=@numero
                    AND dias=@dias
        FETCH NEXT FROM sumccc INTO @importe_cobro,@en_euro_cobro,@serie,@numero,@dias
        END
    END
CLOSE sumccc
DEALLOCATE sumccc








GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO






/****** Object:  Stored Procedure dbo.sp_tar_pv    Script Date: 18/5/01 12:58:20 ******/
/****** Object:  Stored Procedure dbo.sp_tar_pv    Script Date: 3/5/01 9:24:48 ******/
/****** Object:  Stored Procedure dbo.sp_tar_pv    Script Date: 19/2/01 11:30:19 ******/
/****** Object:  Stored Procedure dbo.sp_tar_pv    Script Date: 14/12/00 12:25:07 ******/
/****** Object:  Stored Procedure dbo.sp_tar_pv    Script Date: 26/9/00 13:23:13 ******/
/****** Object:  Stored Procedure dbo.sp_tar_pv    Script Date: 26/6/00 14:56:47 ******/
/****** Object:  Stored Procedure dbo.sp_tar_pv    Script Date: 26/6/00 9:03:30 ******/
/****** Object:  Stored Procedure dbo.sp_tar_pv    Script Date: 24/3/2000 10:08:30 ******/
/****** Object:  Stored Procedure dbo.sp_tar_pv    Script Date: 23/3/2000 15:31:29 ******/
/****** Object:  Stored Procedure dbo.sp_tar_pv    Script Date: 23/3/2000 11:25:16 ******/
/****** Object:  Stored Procedure dbo.sp_tar_pv    Script Date: 16/3/2000 12:08:27 ******/
/****** Object:  Stored Procedure dbo.sp_tar_pv    Script Date: 2/3/2000 8:30:20 ******/
/****** Object:  Stored Procedure dbo.sp_tar_pv    Script Date: 24/6/99 13:59:38 ******/
/****** Object:  Stored Procedure dbo.sp_tar_pv    Script Date: 7/6/99 11:50:37 ******/
/****** Object:  Stored Procedure dbo.sp_tar_pv    Script Date: 1/6/99 12:01:59 ******/
/****** Object:  Stored Procedure dbo.sp_tar_pv    Script Date: 1/6/99 9:54:57 ******/
/****** Object:  Stored Procedure dbo.sp_tar_pv    Script Date: 19/5/99 12:02:25 ******/
/****** Object:  Stored Procedure dbo.sp_tar_pv    Script Date: 7/5/99 12:50:03 ******/

CREATE PROCEDURE sp_tar_pv
    @empresa CHAR(4),
    @tarifa  FLOAT,
    @raiz    CHAR(16),

    @talla   CHAR(2),
    @color   CHAR(2),
    @cliente CHAR(10),
    @en_euro BIT
AS
DECLARE @precio            FLOAT
DECLARE @seguir_buscando    BIT
DECLARE @tarifa_actual        FLOAT

DECLARE @linea_actual        FLOAT
DECLARE @dto_linea              FLOAT
DECLARE @sr_linea               BIT
DECLARE @redondeo_linea         FLOAT
DECLARE @tar_dfto               FLOAT
DECLARE @dto_dfto               FLOAT
DECLARE @precio_linea           FLOAT
DECLARE @en_euro_base           BIT
DECLARE @prec_coste             FLOAT
DECLARE @p_venta1               FLOAT
DECLARE @p_venta2               FLOAT
DECLARE @p_venta3               FLOAT
DECLARE @p_venta4               FLOAT
DECLARE @en_euro_df         BIT
DECLARE @venta1                 CHAR(1)
DECLARE @venta2                 CHAR(1)

DECLARE @venta3                 CHAR(1)
DECLARE @venta4                 CHAR(1)
DECLARE @tarifa_inicio          FLOAT
DECLARE @especial               BIT
DECLARE @en_euro_x              BIT
DECLARE @dto_o_neto             CHAR(1)
DECLARE @precio_x               FLOAT
DECLARE @dto_x                  FLOAT
DECLARE @tarifa_x               FLOAT
DECLARE @mensaje                CHAR(255)
DECLARE @catego                 CHAR(10)
DECLARE @familia                CHAR(10)
DECLARE @sr_x                   BIT
DECLARE @redondeo_x             FLOAT
DECLARE @pp                     FLOAT
DECLARE @sy_c1                  FLOAT
DECLARE @sy_c2                  FLOAT
DECLARE @resultado              FLOAT
DECLARE @final                  DECIMAL(20,8)
DELETE tar_xx WHERE sp_id=@@spid
SELECT @tarifa_actual=@tarifa,@seguir_buscando=1,@linea_actual=1,
    @en_euro_base=0
WHILE @seguir_buscando=1
    BEGIN
    SELECT @tarifa_inicio=@tarifa_actual
    SELECT @dto_dfto=dto_dfto,@tar_dfto=tar_dfto,
        @sr_linea=sr,@redondeo_linea=redondeo,@especial=especial
        FROM tarifa WHERE empresa=@empresa AND numero=@tarifa_actual
    SELECT @dto_linea=@dto_dfto,@precio_linea=0
SELECT @mensaje='00000000tarifa_actual '+convert(char(10),@tarifa_actual)
print @mensaje
    IF @tarifa_actual<0 OR @tarifa_actual=5
        SELECT @precio_linea=0,@dto_linea=0,@seguir_buscando=0
    IF @tarifa_actual>=0  AND @tarifa_actual<=4
        BEGIN
        SELECT @dto_linea=0
        SELECT @seguir_buscando=0
        SELECT @prec_coste=prec_coste,@en_euro_df=en_eurodf,
            @p_venta1=p_venta1,@p_venta2=p_venta2,
            @p_venta3=p_venta3,@p_venta4=p_venta4
            FROM articulo
            WHERE empresa=@empresa AND raiz=@raiz AND talla=@talla AND color=@color
        SELECT @venta1=venta1,
            @venta2=venta2,
            @venta3=venta3,
            @venta4=venta4
            FROM empresa WHERE empresa=@empresa
        SELECT @precio_linea=@p_venta1
        IF @venta1='E'
            SELECT @en_euro_base=0
        IF @tarifa_actual=0
            SELECT @precio_linea=@prec_coste,@en_euro_base=@en_euro_df
        IF @tarifa_actual=2
            BEGIN
            SELECT @precio_linea=@p_venta2
            IF @venta2='E'
                SELECT @en_euro_base=0
            END
        IF @tarifa_actual=3
            BEGIN
            SELECT @precio_linea=@p_venta3
            IF @venta3='E'
                SELECT @en_euro_base=0
            END
        IF @tarifa_actual=4
            BEGIN
            SELECT @precio_linea=@p_venta4
            IF @venta4='E'
                SELECT @en_euro_base=0
            END
        END
    IF @tarifa_actual>5
        BEGIN
SELECT @mensaje='tarifa_actual '+convert(char(10),@tarifa_actual)
print @mensaje
        IF @especial=1
            BEGIN
print 'especial'
            IF EXISTS(SELECT * FROM tari_vac WHERE empresa=@empresa AND numero=@tarifa_actual AND t_raiz=@raiz AND t_talla=@talla  AND t_color=@color AND cliente=@cliente)
                BEGIN
print 'existe tarivac'
                SELECT @en_euro_x=en_euro,@dto_o_neto=dto_o_neto,
                    @precio_x=precio,@dto_x=dto,
                    @tarifa_x=tar_bas
                    FROM tari_vac
                    WHERE empresa=@empresa AND numero=@tarifa_actual
                    AND t_raiz=@raiz AND t_talla=@talla
                    AND t_color=@color AND cliente=@cliente
                IF @dto_o_neto='N'
                    SELECT @precio_linea=@precio_x,@dto_linea=0,@seguir_buscando=0
                ELSE
                    SELECT @dto_linea=@dto_x,@tarifa_actual=@tarifa_x
                END
            ELSE
                BEGIN
                /* NO HAY FICHA DE CONDICONES ESPECIALES CLIENTE ARTICULO*/
print 'no existe tarivac'
                SELECT @catego=catego,@familia=familia
                    FROM articulo
                    WHERE empresa=@empresa AND raiz=@raiz AND talla=@talla AND color=@color
                IF EXISTS(SELECT * FROM tari_vc WHERE empresa=@empresa AND numero=@tarifa_actual AND catego=@catego)
                    BEGIN
                    SELECT @dto_x=dto,@tarifa_x=tar_base
                        FROM tari_vc
                        WHERE empresa=@empresa AND numero=@tarifa_actual
                        AND catego=@catego
                    SELECT @dto_linea=@dto_x,@tarifa_actual=@tarifa_x
                    END
                ELSE
                    /* NO HAY FICHA POR CATEGORIA*/
                    BEGIN
                    IF EXISTS(SELECT * FROM tari_vf WHERE empresa=@empresa AND numero=@tarifa_actual AND familia=@familia)
                        BEGIN
                        SELECT @dto_x=dto,@tarifa_x=tar_base
                            FROM tari_vf
                            WHERE empresa=@empresa AND numero=@tarifa_actual
                            AND familia=@familia
                        SELECT @dto_linea=@dto_x,@tarifa_actual=@tarifa_x
                        END
                    ELSE
                        /*VALORES POR DEFECTO DE CABECERA*/
                        SELECT @dto_linea=@dto_dfto,@tarifa_actual=@tar_dfto
                    END /*no hay fciha por categoria*/
                END /*no hay ficha por cliente articulo*/
            END /*especuial*/
        ELSE
            /*NO ESPECIAL*/
            BEGIN
PRINT 'NO ESPECIAL'
            IF EXISTS(SELECT * FROM tari_var WHERE empresa=@empresa AND raiz=@raiz AND talla=@talla AND color=@color)
                BEGIN
                SELECT @en_euro_x=en_euro,@dto_o_neto=dto_o_neto,
                    @precio_x=precio,@dto_x=dto,
                    @tarifa_x=tar_bas
                    FROM tari_var
                    WHERE empresa=@empresa AND numero=@tarifa_actual
                    AND raiz=@raiz AND talla=@talla
                    AND color=@color
                IF @dto_o_neto='N'
                    SELECT @precio_linea=@precio_x,@dto_linea=0,@seguir_buscando=0
                ELSE
                    SELECT @dto_linea=@dto_x,@tarifa_actual=@tarifa_x
                END
            ELSE
                BEGIN
                /*VALORES POR DEFECTO DE CABECERA*/
                SELECT @dto_linea=@dto_dfto,@tarifa_actual=@tar_dfto
                END
            END /*NO ESPECIAL*/
        END /*TARIFA >5*/
    IF @tarifa_actual=NULL
        SELECT @tarifa_actual=5,@especial=0,@dto_linea=0,@sr_linea=0,
            @redondeo_linea=0,@precio_linea=0
    INSERT tar_xx (sp_id,sp_linea,
        dto,precio,tarifa_x,sr,redondeo)
        VALUES
        (@@SPID,@linea_actual,
        @dto_linea,@precio_linea,@tarifa_inicio,@sr_linea,@redondeo_linea)
    SELECT @linea_actual=@linea_actual+1
    IF @linea_actual>10
        SELECT @seguir_buscando=0
    END
/****************************************************************************/
DECLARE cc CURSOR FOR SELECT precio,dto,sr,redondeo
    FROM tar_xx  WHERE sp_id= @@SPID ORDER BY SP_linea DESC
OPEN cc
SELECT @resultado=0
PRINT '__________________________'
FETCH NEXT FROM cc  INTO @precio_x, @dto_x, @sr_x, @redondeo_x
WHILE (@@fetch_status <> -1)
    BEGIN
    IF (@@fetch_status <> -2)

        BEGIN
        IF @precio_x<>0
            SELECT @resultado=@precio_x
        ELSE
            BEGIN
            SELECT @pp=@resultado*@dto_x/100
            SELECT @resultado=@resultado-@pp
            END
        IF @sr_x=1
            SELECT @resultado=ROUND(@resultado,@redondeo_x)
select @MENSAJE=' '+CONVERT(CHAR(10),@PRECIO_X)+CONVERT(CHAR(10),@DTO_X)+'--->'+CONVERT(CHAR(10),@resultado)
PRINT @MENSAJE
        FETCH NEXT FROM cc  INTO @precio_x, @dto_x, @sr_x, @redondeo_x
        END
    END
CLOSE cc
DEALLOCATE cc
IF @en_euro<>@en_euro_base
    BEGIN
    SELECT @sy_c1=sy_c1,@sy_c2=sy_c2 FROM sistemad WHERE id=1
    IF @en_euro=1
        SELECT @resultado=@resultado*@sy_c2
    ELSE
        SELECT @resultado=@resultado*@sy_c1
    END
SELECT @final=@resultado
SELECT 'Resultado'=@final
RETURN








GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO






/****** Object:  Stored Procedure dbo.sp_xxx_calcula2    Script Date: 18/5/01 12:58:21 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_calcula2    Script Date: 3/5/01 9:24:48 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_calcula2    Script Date: 19/2/01 11:30:19 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_calcula2    Script Date: 14/12/00 12:25:07 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_calcula2    Script Date: 26/9/00 13:23:15 ******/
CREATE PROCEDURE sp_xxx_calcula2
    @empresa CHAR(4),@serie CHAR(2),@codigo CHAR(10),@fecha DATETIME,
    @dto_c FLOAT,@dto_p FLOAT,@dto_rec FLOAT,
    @a_suma1 FLOAT,@a_suma2 FLOAT,@a_suma3 FLOAT,@a_suma4 FLOAT,
    @a_rec1 FLOAT,@a_rec2 FLOAT,@a_rec3 FLOAT,@a_rec4 FLOAT,
    @irpf  FLOAT,@divisa CHAR(10), @cambio FLOAT,@en_euro BIT,
    @a_dto1  FLOAT OUTPUT,@a_dto2  FLOAT OUTPUT,@a_dto3  FLOAT OUTPUT,@a_dto4  FLOAT OUTPUT,
    @a_base1 FLOAT OUTPUT,@a_base2 FLOAT OUTPUT,@a_base3 FLOAT OUTPUT,@a_base4 FLOAT OUTPUT,
    @a_iva1  FLOAT OUTPUT,@a_iva2  FLOAT OUTPUT,@a_iva3  FLOAT OUTPUT,@a_iva4  FLOAT OUTPUT,
    @a_re1   FLOAT OUTPUT,@a_re2   FLOAT OUTPUT,@a_re3   FLOAT OUTPUT,@a_re4   FLOAT OUTPUT,
    @a_impret FLOAT OUTPUT, @a_total FLOAT OUTPUT,
    @tOsuma1 FLOAT OUTPUT,@tOsuma2 FLOAT OUTPUT,@tOsuma3 FLOAT OUTPUT,@tOsuma4 FLOAT OUTPUT,
    @dto1  FLOAT OUTPUT,@dto2  FLOAT OUTPUT,@dto3  FLOAT OUTPUT,@dto4  FLOAT OUTPUT,
    @base1 FLOAT OUTPUT,@base2 FLOAT OUTPUT,@base3 FLOAT OUTPUT,@base4 FLOAT OUTPUT,
    @iva1  FLOAT OUTPUT,@iva2  FLOAT OUTPUT,@iva3  FLOAT OUTPUT,@iva4  FLOAT OUTPUT,

    @re1   FLOAT OUTPUT,@re2   FLOAT OUTPUT,@re3   FLOAT OUTPUT,@re4   FLOAT OUTPUT,
    @recargo1   FLOAT OUTPUT,@recargo2   FLOAT OUTPUT,@recargo3   FLOAT OUTPUT,@recargo4   FLOAT OUTPUT,
    @impret FLOAT OUTPUT, @total FLOAT OUTPUT
AS
DECLARE @tipo_dto   FLOAT
DECLARE @tipo_inter FLOAT
DECLARE @i1         FLOAT
DECLARE @i2         FLOAT
DECLARE @i3         FLOAT
DECLARE @i4         FLOAT
DECLARE @r1         FLOAT
DECLARE @r2         FLOAT
DECLARE @r3         FLOAT
DECLARE @r4         FLOAT
DECLARE @fecha1     DATETIME
DECLARE @fecha2     DATETIME
DECLARE @cascada    BIT
DECLARE @letra      CHAR(1)
DECLARE @redondeo   FLOAT
DECLARE @redondeo_nacional FLOAT
DECLARE @Casia_total  FLOAT
DECLARE @tabla         FLOAT
DECLARE @recargo    CHAR(1)

DECLARE @rec        BIT
SELECT @tabla = tipoiva, @rec = recargo, @cascada = cascada
    FROM empresa
    WHERE empresa = @empresa
SELECT @tabla= tipoiva FROM proveedo WHERE empresa=@empresa AND codigo=@codigo
IF @tabla=NULL SELECT @tabla=1
IF @rec=0
    SELECT @recargo='N'
ELSE
    SELECT @recargo='S'
IF @en_euro=1
    BEGIN
    SELECT @redondeo=2,@redondeo_nacional=2
    END
ELSE
    BEGIN
    SELECT @redondeo=0,@redondeo_nacional=0
    END
IF @divisa<>''
    SELECT @redondeo=(SELECT redondeo FROM divisa WHERE empresa=@empresa AND codigo=@divisa)
SELECT @tipo_inter=(((@dto_c-100)/100)*@dto_rec)+@dto_c
SELECT @tipo_dto  =(((100-@tipo_inter)/100)*@dto_p)+@tipo_inter
IF @cascada=0
    SELECT @tipo_dto=@dto_c+@dto_p-@dto_rec
SELECT  @a_dto1=ROUND(@a_suma1*@tipo_dto/100, @redondeo),
    @a_dto2=ROUND(@a_suma2*@tipo_dto/100, @redondeo),

    @a_dto3=ROUND(@a_suma3*@tipo_dto/100, @redondeo),
    @a_dto4=ROUND(@a_suma4*@tipo_dto/100, @redondeo)
SELECT  @a_base1=ROUND(@a_suma1-@a_dto1+@a_rec1, @redondeo),
    @a_base2=ROUND(@a_suma2-@a_dto2+@a_rec2, @redondeo),
    @a_base3=ROUND(@a_suma3-@a_dto3+@a_rec3, @redondeo),
    @a_base4=ROUND(@a_suma4-@a_dto4+@a_rec4, @redondeo)
SELECT @a_impret = (@a_base1 + @a_base2 + @a_base3 + @a_base4) * @irpf/100
IF @tabla=NULL SELECT @tabla=1
IF @tabla<1 SELECT @tabla=1
IF @tabla>4 SELECT @tabla=1
SELECT @i1=0,@i2=0,@i3=0,@i4=0,@r1=0,@r2=0,@r3=0,@r4=0
/*
DECLARE s CURSOR FOR SELECT fecha_iva1,fecha_iva2 FROM sistemad WHERE id=1
OPEN s
FETCH NEXT FROM s INTO @fecha1,@fecha2
CLOSE s
DEALLOCATE s
*/
SELECT @fecha1 = fecha_iva1, @fecha2 = fecha_iva2 FROM sistemad WHERE id=1
IF @fecha>=@fecha1
    BEGIN
    IF @tabla=1
        DECLARE s CURSOR FOR SELECT iva1_a,iva2_a,iva3_a,iva4_a,
            rec1_a,rec2_a,rec3_a,rec4_a FROM sistemad WHERE id=1
    IF @tabla=2
        DECLARE s CURSOR FOR SELECT iva1_b,iva2_b,iva3_b,iva4_b,
            rec1_b,rec2_b,rec3_b,rec4_b FROM sistemad WHERE id=1
    IF @tabla=3
        DECLARE s CURSOR FOR SELECT iva1_c,iva2_c,iva3_c,iva4_c,
            rec1_c,rec2_c,rec3_c,rec4_c FROM sistemad WHERE id=1
    IF @tabla=4
        DECLARE s CURSOR FOR SELECT iva1_d,iva2_d,iva3_d,iva4_d,
            rec1_d,rec2_d,rec3_d,rec4_d FROM sistemad WHERE id=1
    END
IF @fecha<@fecha1
    BEGIN
    IF @tabla=1
        DECLARE s CURSOR FOR SELECT iva1_a_ant,iva2_a_ant,iva3_a_ant,iva4_a_ant,
            rec1_a_ant,rec2_a_ant,rec3_a_ant,rec4_a_ant FROM sistemad WHERE id=1
    IF @tabla=2
        DECLARE s CURSOR FOR SELECT iva1_b_ant,iva2_b_ant,iva3_b_ant,iva4_b_ant,
            rec1_b_ant,rec2_b_ant,rec3_b_ant,rec4_b_ant FROM sistemad WHERE id=1
    IF @tabla=3
        DECLARE s CURSOR FOR SELECT iva1_c_ant,iva2_c_ant,iva3_c_ant,iva4_c_ant,
            rec1_c_ant,rec2_c_ant,rec3_c_ant,rec4_c_ant FROM sistemad WHERE id=1
    IF @tabla=4
        DECLARE s CURSOR FOR SELECT iva1_d_ant,iva2_d_ant,iva3_d_ant,iva4_d_ant,
            rec1_d_ant,rec2_d_ant,rec3_d_ant,rec4_d_ant FROM sistemad WHERE id=1
    END
IF @fecha>=@fecha2
    BEGIN
    OPEN s
    FETCH NEXT FROM s INTO @i1,@i2,@i3,@i4,@r1,@r2,@r3,@r4
    CLOSE s
    DEALLOCATE s
    END
IF @fecha<@fecha2
    SELECT @i1=0,@i2=0,@i3=0,@i4=0,@r1=0,@r2=0,@r3=0,@r4=0
SELECT @letra=CHAR(ASCII(@serie))
IF @letra='*'
    SELECT @i1=0,@i2=0,@i3=0,@i4=0,@r1=0,@r2=0,@r3=0,@r4=0
IF @recargo ='N'
    SELECT @r1=0, @r2=0,@r3=0,@r4=0
SELECT @a_iva1=ROUND(@a_base1*@i1/100, @redondeo),
    @a_iva2=ROUND(@a_base2*@i2/100, @redondeo),

    @a_iva3=ROUND(@a_base3*@i3/100, @redondeo),
    @a_iva4=ROUND(@a_base4*@i4/100, @redondeo)
SELECT @a_re1=ROUND(@a_base1*@r1/100, @redondeo),
    @a_re2=ROUND(@a_base2*@r2/100, @redondeo),
    @a_re3=ROUND(@a_base3*@r3/100, @redondeo),
    @a_re4=ROUND(@a_base4*@r4/100, @redondeo)
SELECT @Casia_total = @a_base1 + @a_base2 + @a_base3 + @a_base4 +
    @a_iva1 + @a_iva2 + @a_iva3 + @a_iva4 +
    @a_re1 + @a_re2 + @a_re3 + @a_re4 -
    @a_impret
SELECT @a_total = @Casia_total
SELECT @redondeo=0
IF @en_euro=1
    SELECT @redondeo=2
SELECT    @tOsuma1       =     (@a_suma1     *@cambio          ),
    @tOsuma2       =     (@a_suma2     *@cambio          ),
    @tOsuma3       =     (@a_suma3     *@cambio          ),
    @tOsuma4       =     (@a_suma4     *@cambio          )
SELECT    @dto1          =ROUND(@a_dto1      *@cambio,@redondeo),
    @dto2          =ROUND(@a_dto2      *@cambio,@redondeo),
    @dto3          =ROUND(@a_dto3      *@cambio,@redondeo),
    @dto4          =ROUND(@a_dto4      *@cambio,@redondeo)
SELECT    @base1         =ROUND(@a_base1     *@cambio,@redondeo),
    @base2         =ROUND(@a_base2     *@cambio,@redondeo),
    @base3         =ROUND(@a_base3     *@cambio,@redondeo),
    @base4         =ROUND(@a_base4     *@cambio,@redondeo)
SELECT    @iva1          =ROUND(@a_iva1      *@cambio,@redondeo),
    @iva2          =ROUND(@a_iva2      *@cambio,@redondeo),
    @iva3          =ROUND(@a_iva3      *@cambio,@redondeo),
    @iva4          =ROUND(@a_iva4      *@cambio,@redondeo)
SELECT    @re1           =ROUND(@a_re1       *@cambio,@redondeo),
    @re2           =ROUND(@a_re2       *@cambio,@redondeo),
    @re3           =ROUND(@a_re3       *@cambio,@redondeo),
    @re4           =ROUND(@a_re4       *@cambio,@redondeo)
SELECT    @recargo1      =ROUND(@a_rec1      *@cambio,@redondeo),
    @recargo2      =ROUND(@a_rec2      *@cambio,@redondeo),
    @recargo3      =ROUND(@a_rec3      *@cambio,@redondeo),
    @recargo4      =ROUND(@a_rec4      *@cambio,@redondeo)
SELECT    @impret        =ROUND(@a_impret    *@cambio,@redondeo)
SELECT    @total         =ROUND(@a_total     *@cambio,@redondeo)
/*
update xxxmsg set mensajec = 'bases: ' + CONVERT(CHAR(10),@a_base1) + CONVERT(CHAR(10),@a_base2) + CONVERT(CHAR(10),@a_base3) + CONVERT(CHAR(10),@a_base4) where sp_id = 19
update xxxmsg set mensajec = '¿Y salio de calcular2????' where sp_id = 20
*/








GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO






/****** Object:  Stored Procedure dbo.sp_xxx_calcular    Script Date: 18/5/01 12:58:21 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_calcular    Script Date: 3/5/01 9:24:48 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_calcular    Script Date: 19/2/01 11:30:19 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_calcular    Script Date: 14/12/00 12:25:07 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_calcular    Script Date: 26/9/00 13:23:15 ******/
CREATE PROCEDURE sp_xxx_calcular
    @empresa CHAR(4),@serie CHAR(2),@codigo CHAR(10),@fecha DATETIME,
    @dto_c FLOAT,@dto_p FLOAT,@dto_rec FLOAT,
    @suma1 FLOAT,@suma2 FLOAT,@suma3 FLOAT,@suma4 FLOAT,
    @recargo1 FLOAT,@recargo2 FLOAT,@recargo3 FLOAT,@recargo4 FLOAT,
    @irpf  FLOAT,@rec_fin FLOAT,@en_euro BIT,
    @dto1  FLOAT OUTPUT,@dto2  FLOAT OUTPUT,@dto3  FLOAT OUTPUT,@dto4  FLOAT OUTPUT,
    @base1 FLOAT OUTPUT,@base2 FLOAT OUTPUT,@base3 FLOAT OUTPUT,@base4 FLOAT OUTPUT,
    @iva1  FLOAT OUTPUT,@iva2  FLOAT OUTPUT,@iva3  FLOAT OUTPUT,@iva4  FLOAT OUTPUT,
    @re1   FLOAT OUTPUT,@re2   FLOAT OUTPUT,@re3   FLOAT OUTPUT,@re4   FLOAT OUTPUT,
    @imp_ret FLOAT OUTPUT, @total FLOAT OUTPUT
AS
DECLARE @tipo_dto   FLOAT
DECLARE @tipo_inter FLOAT
DECLARE @i1         FLOAT
DECLARE @i2         FLOAT
DECLARE @i3         FLOAT

DECLARE @i4         FLOAT
DECLARE @r1         FLOAT
DECLARE @r2         FLOAT
DECLARE @r3         FLOAT
DECLARE @r4         FLOAT
DECLARE @fecha1     DATETIME
DECLARE @fecha2     DATETIME
DECLARE @cascada    BIT
DECLARE @letra      CHAR(1)
DECLARE @redondeo   FLOAT
DECLARE @CasiTotal  FLOAT
DECLARE @tabla         FLOAT
DECLARE @recargo    CHAR(1)
DECLARE @TRAZA      CHAR(255)
SELECT @tabla = tipoiva, @recargo = recargo
    FROM clientes
    WHERE empresa = @empresa AND codigo = @codigo
IF @en_euro=1
    BEGIN
    SELECT @redondeo=2
    END
ELSE
    BEGIN
    SELECT @redondeo=0
    END
SELECT @tipo_inter=(((@dto_c-100)/100)*@dto_rec)+@dto_c
SELECT @tipo_dto  =(((100-@tipo_inter)/100)*@dto_p)+@tipo_inter
SELECT @cascada=cascada FROM empresa WHERE empresa=@empresa
IF @cascada=0
    SELECT @tipo_dto=@dto_c+@dto_p-@dto_rec

SELECT @dto1=ROUND(@suma1*@tipo_dto/100, @redondeo),
    @dto2=ROUND(@suma2*@tipo_dto/100, @redondeo),
    @dto3=ROUND(@suma3*@tipo_dto/100, @redondeo),
    @dto4=ROUND(@suma4*@tipo_dto/100, @redondeo)
SELECT @base1=ROUND(@suma1-@dto1+@recargo1,@redondeo),
    @base2=ROUND(@suma2-@dto2+@recargo2,@redondeo),
    @base3=ROUND(@suma3-@dto3+@recargo3,@redondeo),
    @base4=ROUND(@suma4-@dto4+@recargo4,@redondeo)
SELECT @imp_ret = (@base1 + @base2 + @base3 + @base4) * @irpf/100
IF @tabla=NULL SELECT @tabla=1
IF @tabla<1 SELECT @tabla=1
IF @tabla>4 SELECT @tabla=1
SELECT @i1=0,@i2=0,@i3=0,@i4=0,@r1=0,@r2=0,@r3=0,@r4=0
SELECT @fecha1=fecha_iva1,@fecha2=fecha_iva2  FROM sistemad WHERE id=1
IF @fecha>=@fecha1
    BEGIN
    IF @tabla=1
        DECLARE s CURSOR FOR SELECT iva1_a,iva2_a,iva3_a,iva4_a,
            rec1_a,rec2_a,rec3_a,rec4_a FROM sistemad WHERE id=1
    IF @tabla=2
        DECLARE s CURSOR FOR SELECT iva1_b,iva2_b,iva3_b,iva4_b,
            rec1_b,rec2_b,rec3_b,rec4_b FROM sistemad WHERE id=1
    IF @tabla=3
        DECLARE s CURSOR FOR SELECT iva1_c,iva2_c,iva3_c,iva4_c,
            rec1_c,rec2_c,rec3_c,rec4_c FROM sistemad WHERE id=1
    IF @tabla=4
        DECLARE s CURSOR FOR SELECT iva1_d,iva2_d,iva3_d,iva4_d,
            rec1_d,rec2_d,rec3_d,rec4_d FROM sistemad WHERE id=1
    END
IF @fecha<@fecha1
    BEGIN
    IF @tabla=1
        DECLARE s CURSOR FOR SELECT iva1_a_ant,iva2_a_ant,iva3_a_ant,iva4_a_ant,
            rec1_a_ant,rec2_a_ant,rec3_a_ant,rec4_a_ant FROM sistemad WHERE id=1
    IF @tabla=2
        DECLARE s CURSOR FOR SELECT iva1_b_ant,iva2_b_ant,iva3_b_ant,iva4_b_ant,
            rec1_b_ant,rec2_b_ant,rec3_b_ant,rec4_b_ant FROM sistemad WHERE id=1
    IF @tabla=3
        DECLARE s CURSOR FOR SELECT iva1_c_ant,iva2_c_ant,iva3_c_ant,iva4_c_ant,
            rec1_c_ant,rec2_c_ant,rec3_c_ant,rec4_c_ant FROM sistemad WHERE id=1
    IF @tabla=4
        DECLARE s CURSOR FOR SELECT iva1_d_ant,iva2_d_ant,iva3_d_ant,iva4_d_ant,
            rec1_d_ant,rec2_d_ant,rec3_d_ant,rec4_d_ant FROM sistemad WHERE id=1
    END
/*IF @fecha>=@fecha2
    BEGIN*/
    OPEN s
    FETCH NEXT FROM s INTO @i1,@i2,@i3,@i4,@r1,@r2,@r3,@r4
    CLOSE s
    DEALLOCATE s
/*
    END
*/
IF @fecha<@fecha2
    SELECT @i1=0,@i2=0,@i3=0,@i4=0,@r1=0,@r2=0,@r3=0,@r4=0
SELECT @letra=CHAR(ASCII(@serie))
IF @letra='*'
    SELECT @i1=0,@i2=0,@i3=0,@i4=0,@r1=0,@r2=0,@r3=0,@r4=0
IF @recargo ='N'
    SELECT @r1=0, @r2=0,@r3=0,@r4=0
SELECT @iva1=ROUND(@base1*@i1/100, @redondeo),
    @iva2=ROUND(@base2*@i2/100, @redondeo),
    @iva3=ROUND(@base3*@i3/100, @redondeo),
    @iva4=ROUND(@base4*@i4/100, @redondeo)
SELECT @re1=ROUND(@base1*@r1/100, @redondeo),
    @re2=ROUND(@base2*@r2/100, @redondeo),
    @re3=ROUND(@base3*@r3/100, @redondeo),
    @re4=ROUND(@base4*@r4/100, @redondeo)
SELECT @CasiTotal = @base1 + @base2 + @base3 + @base4 +
    @iva1 + @iva2 + @iva3 + @iva4 +

    @re1 + @re2 + @re3 + @re4 -
    @imp_ret
SELECT @total = @CasiTotal + @CasiTotal * @rec_fin/100








GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO






/****** Object:  Stored Procedure dbo.sp_xxx_calimp    Script Date: 18/5/01 12:58:21 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_calimp    Script Date: 3/5/01 9:24:48 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_calimp    Script Date: 19/2/01 11:30:20 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_calimp    Script Date: 14/12/00 12:25:08 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_calimp    Script Date: 26/9/00 13:23:16 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_calimp    Script Date: 26/6/00 14:56:48 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_calimp    Script Date: 26/6/00 9:03:31 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_calimp    Script Date: 24/3/2000 10:08:30 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_calimp    Script Date: 23/3/2000 15:31:29 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_calimp    Script Date: 23/3/2000 11:25:16 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_calimp    Script Date: 16/3/2000 12:08:27 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_calimp    Script Date: 2/3/2000 8:30:20 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_calimp    Script Date: 24/6/99 13:59:38 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_calimp    Script Date: 7/6/99 11:50:37 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_calimp    Script Date: 1/6/99 12:01:59 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_calimp    Script Date: 1/6/99 9:54:57 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_calimp    Script Date: 19/5/99 12:02:25 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_calimp    Script Date: 7/5/99 12:50:04 ******/
CREATE PROCEDURE sp_xxx_calimp
    @empresa CHAR(4),@total  FLOAT,@en_euro BIT,
    @base1    FLOAT, @base2  FLOAT,@base3   FLOAT,@base4 FLOAT,
    @a_base1  FLOAT, @a_base2 FLOAT,@a_base3   FLOAT,@a_base4 FLOAT,
    @fecha    DATETIME,@proveedo CHAR(10),
    @tarancel FLOAT,
    @arancel1 FLOAT OUTPUT,@arancel2 FLOAT OUTPUT,
    @arancel3 FLOAT OUTPUT,@arancel4 FLOAT OUTPUT,
    @arancelt FLOAT OUTPUT,@arancel  FLOAT OUTPUT,
    @c_aduana FLOAT,
    @estad1   FLOAT OUTPUT,  @estad2   FLOAT OUTPUT,@estad3    FLOAT OUTPUT,@estad4 FLOAT OUTPUT,
    @estadt   FLOAT OUTPUT,
    @gasto1   FLOAT,  @gasto2   FLOAT,
    @gasto3   FLOAT,  @gasto4   FLOAT,
    @gasto5   FLOAT,  @gasto6   FLOAT,
    @gasto7   FLOAT,  @gasto8   FLOAT,
    @gasto9   FLOAT,  @gasto10  FLOAT,
    @iva_n1   FLOAT OUTPUT,  @iva_n2   FLOAT OUTPUT,
    @iva_n3   FLOAT OUTPUT,  @iva_n4   FLOAT OUTPUT,
    @iva_a1   FLOAT OUTPUT,  @iva_a2   FLOAT OUTPUT,
    @iva_a3   FLOAT OUTPUT,  @iva_a4   FLOAT OUTPUT,
    @totalg   FLOAT OUTPUT
AS
DECLARE @i1         FLOAT
DECLARE @i2         FLOAT
DECLARE @i3         FLOAT
DECLARE @i4         FLOAT
DECLARE @fecha1     DATETIME
DECLARE @fecha2     DATETIME
DECLARE @redondeo   FLOAT
DECLARE @tabla         FLOAT
DECLARE @t_a1       FLOAT
DECLARE @t_a2       FLOAT
DECLARE @t_a3       FLOAT
DECLARE @t_a4       FLOAT
DECLARE @t_a5       FLOAT
DECLARE @t_a6       FLOAT
DECLARE @t_a7       FLOAT
DECLARE @t_a8       FLOAT
DECLARE @t_a9       FLOAT
DECLARE @t_a10      FLOAT
DECLARE @t_na1      FLOAT
DECLARE @t_na2      FLOAT
DECLARE @t_na3      FLOAT
DECLARE @t_na4      FLOAT
DECLARE @t_na5      FLOAT
DECLARE @t_na6      FLOAT
DECLARE @t_na7      FLOAT
DECLARE @t_na8      FLOAT
DECLARE @t_na9      FLOAT
DECLARE @t_na10     FLOAT
DECLARE @ve1        FLOAT
DECLARE @ve2        FLOAT
DECLARE @ve3        FLOAT
DECLARE @ve4        FLOAT
DECLARE @ve5        FLOAT
DECLARE @ve6        FLOAT
DECLARE @ve7        FLOAT
DECLARE @ve8        FLOAT
DECLARE @ve9        FLOAT
DECLARE @ve10       FLOAT
DECLARE @bn1        FLOAT
DECLARE @bn2        FLOAT
DECLARE @bn3        FLOAT
DECLARE @bn4        FLOAT
DECLARE @bn5        FLOAT
DECLARE @bn6        FLOAT
DECLARE @bn7        FLOAT
DECLARE @bn8        FLOAT
DECLARE @bn9        FLOAT
DECLARE @bn10       FLOAT
DECLARE @ba1        FLOAT

DECLARE @ba2        FLOAT
DECLARE @ba3        FLOAT
DECLARE @ba4        FLOAT
DECLARE @ba5        FLOAT
DECLARE @ba6        FLOAT
DECLARE @ba7        FLOAT
DECLARE @ba8        FLOAT
DECLARE @ba9        FLOAT
DECLARE @ba10       FLOAT
SELECT @tabla = tipoiva2
    FROM proveedo
    WHERE empresa = @empresa AND codigo = @proveedo
IF @en_euro=1
    SELECT @redondeo=2
ELSE
    SELECT @redondeo=0
IF @tabla=NULL SELECT @tabla=1
IF @tabla<1 SELECT @tabla=1
IF @tabla>4 SELECT @tabla=1
SELECT @i1=0,@i2=0,@i3=0,@i4=0
DECLARE s CURSOR FOR SELECT fecha_iva1,fecha_iva2 FROM sistemad WHERE id=1
OPEN s
FETCH NEXT FROM s INTO @fecha1,@fecha2
CLOSE s
DEALLOCATE s
IF @fecha>=@fecha1
    BEGIN
    IF @tabla=1
        DECLARE s CURSOR FOR SELECT iva1_a,iva2_a,iva3_a,iva4_a
            FROM sistemad  WHERE id=1
    IF @tabla=2
        DECLARE s CURSOR FOR SELECT iva1_b,iva2_b,iva3_b,iva4_b
            FROM sistemad WHERE id=1
    IF @tabla=3
        DECLARE s CURSOR FOR SELECT iva1_c,iva2_c,iva3_c,iva4_c
            FROM sistemad WHERE id=1
    IF @tabla=4
        DECLARE s CURSOR FOR SELECT iva1_d,iva2_d,iva3_d,iva4_d
            FROM sistemad WHERE id=1
    END
IF @fecha<@fecha1
    BEGIN
    IF @tabla=1
        DECLARE s CURSOR FOR SELECT iva1_a_ant,iva2_a_ant,iva3_a_ant,iva4_a_ant
            FROM sistemad WHERE id=1
    IF @tabla=2
        DECLARE s CURSOR FOR SELECT iva1_b_ant,iva2_b_ant,iva3_b_ant,iva4_b_ant
            FROM sistemad WHERE id=1
    IF @tabla=3
        DECLARE s CURSOR FOR SELECT iva1_c_ant,iva2_c_ant,iva3_c_ant,iva4_c_ant
            FROM sistemad WHERE id=1
    IF @tabla=4
        DECLARE s CURSOR FOR SELECT iva1_d_ant,iva2_d_ant,iva3_d_ant,iva4_d_ant
            FROM sistemad WHERE id=1
    END
IF @fecha>=@fecha2
    BEGIN
    OPEN s
    FETCH NEXT FROM s INTO @i1,@i2,@i3,@i4
    CLOSE s
    DEALLOCATE s
    END
IF @fecha<@fecha2
    SELECT @i1=0,@i2=0,@i3=0,@i4=0
IF @tarancel=1
    SELECT    @arancel1=ROUND(@base1*@arancel/100,@redondeo),
        @arancel2=ROUND(@base2*@arancel/100,@redondeo),
        @arancel3=ROUND(@base3*@arancel/100,@redondeo),
        @arancel4=ROUND(@base4*@arancel/100,@redondeo)
IF @tarancel=2
    SELECT    @arancel1=ROUND(@arancelt*@base1/@total,@redondeo),
        @arancel2=ROUND(@arancelt*@base2/@total,@redondeo),
        @arancel3=ROUND(@arancelt*@base3/@total,@redondeo),
        @arancel4=ROUND(@arancelt*@base4/@total,@redondeo)
IF @tarancel=3
    BEGIN
    SELECT @arancelt=@arancel1+@arancel2+@arancel3+@arancel4
    SELECT @arancel =@arancelt/@total*100
    END
SELECT    @t_a1 =t_a1 ,@t_a2 =t_a2 ,@t_a3 =t_a3 ,@t_a4 =t_a4 ,@t_a5 =t_a5,
    @t_a6 =t_a6 ,@t_a7 =t_a7 ,@t_a8 =t_a8 ,@t_a9 =t_a9 ,@t_a10=t_a10,
    @t_na1=t_na1,@t_na2=t_na2,@t_na3=t_na3,@t_na4=t_na4,@t_na5 =t_na5,
    @t_na6=t_na6,@t_na7=t_na7,@t_na8=t_na8,@t_na9=t_na9,@t_na10=t_na10,
    @ve1=ve1    ,@ve2=ve2    ,@ve3=ve3    ,@ve4=ve4    ,@ve5=ve5    ,
    @ve6=ve6    ,@ve7=ve7    ,@ve8=ve8    ,@ve9=ve9    ,@ve10=ve10
    FROM empresa WHERE empresa=@empresa
SELECT    @estad1=@a_base1*@c_aduana,
    @estad2=@a_base2*@c_aduana,
    @estad3=@a_base3*@c_aduana,
    @estad4=@a_base4*@c_aduana
IF @ve1=1
    BEGIN
    IF (@t_a1 =1) OR (@t_na1 =1)
        SELECT @estad1=@estad1+@gasto1
    IF (@t_a1 =2) OR (@t_na1 =2)
        SELECT @estad2=@estad2+@gasto1
    IF (@t_a1 =3) OR (@t_na1 =3)
        SELECT @estad3=@estad3+@gasto1
    IF (@t_a1 =4) OR (@t_na1 =4)
        SELECT @estad4=@estad4+@gasto1
    END
IF @ve2=1
    BEGIN
    IF (@t_a2 =1) OR (@t_na2 =1)
        SELECT @estad1=@estad1+@gasto2
    IF (@t_a2 =2) OR (@t_na2 =2)
        SELECT @estad2=@estad2+@gasto2
    IF (@t_a2 =3) OR (@t_na2 =3)
        SELECT @estad3=@estad3+@gasto2
    IF (@t_a2 =4) OR (@t_na2 =4)
        SELECT @estad4=@estad4+@gasto2
    END
IF @ve3=1
    BEGIN
    IF (@t_a3 =1) OR (@t_na3 =1)
        SELECT @estad1=@estad1+@gasto3
    IF (@t_a3 =2) OR (@t_na3 =2)
        SELECT @estad2=@estad2+@gasto3
    IF (@t_a3 =3) OR (@t_na3 =3)
        SELECT @estad3=@estad3+@gasto3
    IF (@t_a3 =4) OR (@t_na3 =4)
        SELECT @estad4=@estad4+@gasto3
    END
IF @ve4=1
    BEGIN
    IF (@t_a4 =1) OR (@t_na4 =1)
        SELECT @estad1=@estad1+@gasto4
    IF (@t_a4 =2) OR (@t_na4 =2)
        SELECT @estad2=@estad2+@gasto4
    IF (@t_a4 =3) OR (@t_na4 =3)
        SELECT @estad3=@estad3+@gasto4
    IF (@t_a4 =4) OR (@t_na4 =4)
        SELECT @estad4=@estad4+@gasto4
    END
IF @ve5=1
    BEGIN
    IF (@t_a5 =1) OR (@t_na5 =1)
        SELECT @estad1=@estad1+@gasto5
    IF (@t_a5 =2) OR (@t_na5 =2)
        SELECT @estad2=@estad2+@gasto5
    IF (@t_a5 =3) OR (@t_na5 =3)
        SELECT @estad3=@estad3+@gasto5
    IF (@t_a5 =4) OR (@t_na5 =4)
        SELECT @estad4=@estad4+@gasto5
    END
IF @ve6=1
    BEGIN
    IF (@t_a6 =1) OR (@t_na6 =1)
        SELECT @estad1=@estad1+@gasto6
    IF (@t_a6 =2) OR (@t_na6 =2)
        SELECT @estad2=@estad2+@gasto6
    IF (@t_a6 =3) OR (@t_na6 =3)
        SELECT @estad3=@estad3+@gasto6
    IF (@t_a6 =4) OR (@t_na6 =4)
        SELECT @estad4=@estad4+@gasto6
    END
IF @ve7=1
    BEGIN
    IF (@t_a7 =1) OR (@t_na7 =1)
        SELECT @estad1=@estad1+@gasto7
    IF (@t_a7 =2) OR (@t_na7 =2)
        SELECT @estad2=@estad2+@gasto7
    IF (@t_a7 =3) OR (@t_na7 =3)
        SELECT @estad3=@estad3+@gasto7

    IF (@t_a7 =4) OR (@t_na7 =4)
        SELECT @estad4=@estad4+@gasto7
    END
IF @ve8=1
    BEGIN
    IF (@t_a8 =1) OR (@t_na8 =1)
        SELECT @estad1=@estad1+@gasto8
    IF (@t_a8 =2) OR (@t_na8 =2)
        SELECT @estad2=@estad2+@gasto8
    IF (@t_a8 =3) OR (@t_na8 =3)
        SELECT @estad3=@estad3+@gasto8
    IF (@t_a8 =4) OR (@t_na8 =4)
        SELECT @estad4=@estad4+@gasto8
    END
IF @ve9=1
    BEGIN
    IF (@t_a9 =1) OR (@t_na9 =1)
        SELECT @estad1=@estad1+@gasto9
    IF (@t_a9 =2) OR (@t_na9 =2)
        SELECT @estad2=@estad2+@gasto9
    IF (@t_a9 =3) OR (@t_na9 =3)
        SELECT @estad3=@estad3+@gasto9
    IF (@t_a9 =4) OR (@t_na9 =4)
        SELECT @estad4=@estad4+@gasto9
    END
IF @ve10=1
    BEGIN
    IF (@t_a10=1) OR (@t_na10=1)
        SELECT @estad1=@estad1+@gasto10
    IF (@t_a10=2) OR (@t_na10=2)
        SELECT @estad2=@estad2+@gasto10
    IF (@t_a10=3) OR (@t_na10=3)
        SELECT @estad3=@estad3+@gasto10
    IF (@t_a10=4) OR (@t_na10=4)
        SELECT @estad4=@estad4+@gasto10
    END
SELECT @estadt=@estad1+@estad2+@estad3+@estad4
SELECT    @bn1=0,@bn2=0,@bn3=0,@bn4=0,@bn5=0,@bn6=0,@bn7=0,@bn8=0,@bn9=0,@bn10=0
SELECT    @ba1=0,@ba2=0,@ba3=0,@ba4=0,@ba5=0,@ba6=0,@ba7=0,@ba8=0,@ba9=0,@ba10=0
IF @t_na1 =1
    SELECT @bn1 =@bn1 +@gasto1
IF @t_na2 =1
    SELECT @bn1 =@bn1 +@gasto2
IF @t_na3 =1
    SELECT @bn1 =@bn1 +@gasto3
IF @t_na4 =1
    SELECT @bn1 =@bn1 +@gasto4
IF @t_na5 =1
    SELECT @bn1 =@bn1 +@gasto5
IF @t_na6 =1
    SELECT @bn1 =@bn1 +@gasto6
IF @t_na7 =1
    SELECT @bn1 =@bn1 +@gasto7
IF @t_na8 =1
    SELECT @bn1 =@bn1 +@gasto8
IF @t_na9 =1
    SELECT @bn1 =@bn1 +@gasto9
IF @t_na10=1
    SELECT @bn1 =@bn1 +@gasto10
IF @t_na1 =2
    SELECT @bn2 =@bn2 +@gasto1
IF @t_na2 =2
    SELECT @bn2 =@bn2 +@gasto2
IF @t_na3 =2
    SELECT @bn2 =@bn2 +@gasto3
IF @t_na4 =2
    SELECT @bn2 =@bn2 +@gasto4
IF @t_na5 =2
    SELECT @bn2 =@bn2 +@gasto5
IF @t_na6 =2
    SELECT @bn2 =@bn2 +@gasto6
IF @t_na7 =2
    SELECT @bn2 =@bn2 +@gasto7
IF @t_na8 =2
    SELECT @bn2 =@bn2 +@gasto8
IF @t_na9 =2
    SELECT @bn2 =@bn2 +@gasto9
IF @t_na10=2
    SELECT @bn2 =@bn2 +@gasto10
IF @t_na1 =3
    SELECT @bn3 =@bn3 +@gasto1
IF @t_na2 =3
    SELECT @bn3 =@bn3 +@gasto2
IF @t_na3 =3
    SELECT @bn3 =@bn3 +@gasto3
IF @t_na4 =3
    SELECT @bn3 =@bn3 +@gasto4
IF @t_na5 =3
    SELECT @bn3 =@bn3 +@gasto5
IF @t_na6 =3
    SELECT @bn3 =@bn3 +@gasto6
IF @t_na7 =3
    SELECT @bn3 =@bn3 +@gasto7
IF @t_na8 =3
    SELECT @bn3 =@bn3 +@gasto8
IF @t_na9 =3
    SELECT @bn3 =@bn3 +@gasto9
IF @t_na10=3
    SELECT @bn3 =@bn3 +@gasto10
IF @t_na1 =4
    SELECT @bn4 =@bn4 +@gasto1
IF @t_na2 =4
    SELECT @bn4 =@bn4 +@gasto2
IF @t_na3 =4
    SELECT @bn4 =@bn4 +@gasto3
IF @t_na4 =4
    SELECT @bn4 =@bn4 +@gasto4
IF @t_na5 =4
    SELECT @bn4 =@bn4 +@gasto5
IF @t_na6 =4
    SELECT @bn4 =@bn4 +@gasto6
IF @t_na7 =4
    SELECT @bn4 =@bn4 +@gasto7
IF @t_na8 =4
    SELECT @bn4 =@bn4 +@gasto8
IF @t_na9 =4
    SELECT @bn4 =@bn4 +@gasto9
IF @t_na10=4
    SELECT @bn4 =@bn4 +@gasto10
SELECT    @iva_n1=ROUND(@bn1*@i1/100,@redondeo),
    @iva_n2=ROUND(@bn2*@i2/100,@redondeo),
    @iva_n3=ROUND(@bn3*@i3/100,@redondeo),
    @iva_n4=ROUND(@bn4*@i4/100,@redondeo)
/*
select 'bn1'=@bn1,@iva_n1,@i1
select 'bn2'=@bn2,@iva_n2,@i2
select 'bn3'=@bn3,@iva_n3,@i3
select 'bn4'=@bn4,@iva_n4,@i4
*/
IF @t_a1 =1
    SELECT @ba1 =@ba1 +@gasto1
IF @t_a2 =1
    SELECT @ba1 =@ba1 +@gasto2
IF @t_a3 =1
    SELECT @ba1 =@ba1 +@gasto3
IF @t_a4 =1
    SELECT @ba1 =@ba1 +@gasto4
IF @t_a5 =1
    SELECT @ba1 =@ba1 +@gasto5
IF @t_a6 =1
    SELECT @ba1 =@ba1 +@gasto6
IF @t_a7 =1
    SELECT @ba1 =@ba1 +@gasto7
IF @t_a8 =1
    SELECT @ba1 =@ba1 +@gasto8
IF @t_a9 =1
    SELECT @ba1 =@ba1 +@gasto9
IF @t_a10=1
    SELECT @ba1 =@ba1 +@gasto10
IF @t_a1 =2
    SELECT @ba2 =@ba2 +@gasto1
IF @t_a2 =2
    SELECT @ba2 =@ba2 +@gasto2
IF @t_a3 =2
    SELECT @ba2 =@ba2 +@gasto3
IF @t_a4 =2
    SELECT @ba2 =@ba2 +@gasto4
IF @t_a5 =2
    SELECT @ba2 =@ba2 +@gasto5
IF @t_a6 =2
    SELECT @ba2 =@ba2 +@gasto6
IF @t_a7 =2
    SELECT @ba2 =@ba2 +@gasto7
IF @t_a8 =2
    SELECT @ba2 =@ba2 +@gasto8
IF @t_a9 =2
    SELECT @ba2 =@ba2 +@gasto9
IF @t_a10=2
    SELECT @ba2 =@ba2 +@gasto10
IF @t_na1 =3
    SELECT @ba3 =@ba3 +@gasto1
IF @t_na2 =3
    SELECT @ba3 =@ba3 +@gasto2
IF @t_na3 =3
    SELECT @ba3 =@ba3 +@gasto3
IF @t_na4 =3
    SELECT @ba3 =@ba3 +@gasto4
IF @t_na5 =3
    SELECT @ba3 =@ba3 +@gasto5
IF @t_na6 =3
    SELECT @ba3 =@ba3 +@gasto6
IF @t_na7 =3
    SELECT @ba3 =@ba3 +@gasto7
IF @t_na8 =3
    SELECT @ba3 =@ba3 +@gasto8
IF @t_na9 =3
    SELECT @ba3 =@ba3 +@gasto9
IF @t_na10=3
    SELECT @ba3 =@ba3 +@gasto10
IF @t_na1 =4
    SELECT @ba4 =@ba4 +@gasto1
IF @t_na2 =4
    SELECT @ba4 =@ba4 +@gasto2
IF @t_na3 =4
    SELECT @ba4 =@ba4 +@gasto3
IF @t_na4 =4
    SELECT @ba4 =@ba4 +@gasto4
IF @t_na5 =4
    SELECT @ba4 =@ba4 +@gasto5
IF @t_na6 =4
    SELECT @ba4 =@ba4 +@gasto6
IF @t_na7 =4
    SELECT @ba4 =@ba4 +@gasto7
IF @t_na8 =4
    SELECT @ba4 =@ba4 +@gasto8
IF @t_na9 =4
    SELECT @ba4 =@ba4 +@gasto9
IF @t_na10=4
    SELECT @ba4 =@ba4 +@gasto10
SELECT    @ba1=@ba1+@estad1+@arancel1,
    @ba2=@ba2+@estad2+@arancel2,
    @ba3=@ba3+@estad3+@arancel3,
    @ba4=@ba4+@estad4+@arancel4
SELECT    @iva_a1=ROUND(@ba1*@i1/100,@redondeo),
    @iva_a2=ROUND(@ba2*@i2/100,@redondeo),
    @iva_a3=ROUND(@ba3*@i3/100,@redondeo),
    @iva_a4=ROUND(@ba4*@i4/100,@redondeo)
SELECT @totalg=@total+@iva_a1+@iva_a2+@iva_a3+@iva_a4+@iva_n1+@iva_n2+@iva_n3+@iva_n4+
    @gasto1+@gasto2+@gasto3+@gasto4+@gasto5+@gasto6+@gasto7+@gasto8+@gasto9+@gasto10+
    @arancelt








GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO






/****** Object:  Stored Procedure dbo.sp_xxx_da_linea    Script Date: 18/5/01 12:58:21 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_da_linea    Script Date: 3/5/01 9:24:48 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_da_linea    Script Date: 19/2/01 11:30:20 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_da_linea    Script Date: 14/12/00 12:25:08 ******/
CREATE PROCEDURE sp_xxx_da_linea
    @fichero CHAR(10),@empresa CHAR(4), @serie CHAR(2), @numero FLOAT
AS
DECLARE @n   FLOAT
DECLARE @max FLOAT
SELECT @fichero=LOWER(@fichero)
SELECT @max=1
IF @fichero='lineaofe'
    BEGIN
    UPDATE cgZcfg.dbo.xxxnumlofe SET linea=@max WHERE empresa=@empresa AND serie=@serie
    SELECT @n=@@ROWCOUNT
    IF @n=0    INSERT INTO cgZcfg.dbo.xxxnumlofe (empresa,serie,linea) VALUES (@empresa,@serie,1)
    END
IF @fichero='lineafac'
    BEGIN
    UPDATE cgZcfg.dbo.xxxnumlfac SET linea=@max WHERE empresa=@empresa AND serie=@serie
    SELECT @n=@@ROWCOUNT
    IF @n=0    INSERT INTO cgZcfg.dbo.xxxnumlfac (empresa,serie,linea) VALUES (@empresa,@serie,1)

    END
IF @fichero='lineaalb'
    BEGIN
    UPDATE cgZcfg.dbo.xxxnumlalb SET linea=@max WHERE empresa=@empresa AND serie=@serie
    SELECT @n=@@ROWCOUNT
    IF @n=0    INSERT INTO cgZcfg.dbo.xxxnumlalb (empresa,serie,linea) VALUES (@empresa,@serie,1)
    END
IF @fichero='lineaped'
    BEGIN
    UPDATE cgZcfg.dbo.xxxnumlped SET linea=@max WHERE empresa=@empresa AND serie=@serie
    SELECT @n=@@ROWCOUNT
    IF @n=0    INSERT INTO cgZcfg.dbo.xxxnumlped (empresa,serie,linea) VALUES (@empresa,@serie,1)
    END
IF @fichero='lineapla'
    BEGIN
    UPDATE cgZcfg.dbo.xxxnumlpla SET linea=@max WHERE empresa=@empresa AND serie=@serie
    SELECT @n=@@ROWCOUNT
    IF @n=0    INSERT INTO cgZcfg.dbo.xxxnumlpla (empresa,serie,linea) VALUES (@empresa,@serie,1)
    END
IF @fichero='lineacom'
    BEGIN
    UPDATE cgZcfg.dbo.xxxnumlcom SET linea=@max WHERE empresa=@empresa AND serie=@serie
    SELECT @n=@@ROWCOUNT
    IF @n=0    INSERT INTO cgZcfg.dbo.xxxnumlcom (empresa,serie,linea) VALUES (@empresa,@serie,1)
    END
IF @fichero='linalbp'
    BEGIN
    UPDATE cgZcfg.dbo.xxxnumlalbp SET linea=@max WHERE empresa=@empresa AND serie=@serie
    SELECT @n=@@ROWCOUNT
    IF @n=0    INSERT INTO cgZcfg.dbo.xxxnumlalbp (empresa,serie,linea) VALUES (@empresa,@serie,1)
    END
IF @fichero='lineaent'
    BEGIN
    UPDATE cgZcfg.dbo.xxxnumlent SET linea=@max WHERE empresa=@empresa AND serie=@serie
    SELECT @n=@@ROWCOUNT
    IF @n=0    INSERT INTO cgZcfg.dbo.xxxnumlent (empresa,serie,linea) VALUES (@empresa,@serie,1)
    END
IF @fichero='linsal'
    BEGIN
    UPDATE cgZcfg.dbo.xxxnumlsal SET linea=@max WHERE empresa=@empresa AND serie=@serie
    SELECT @n=@@ROWCOUNT
    IF @n=0    INSERT INTO cgZcfg.dbo.xxxnumlsal (empresa,serie,linea) VALUES (@empresa,@serie,1)
    END
IF @fichero='lmovimi'
    BEGIN
    UPDATE cgZcfg.dbo.xxxnumlmov SET linea=@max WHERE empresa=@empresa AND serie=@serie
    SELECT @n=@@ROWCOUNT
    IF @n=0    INSERT INTO cgZcfg.dbo.xxxnumlmov (empresa,serie,linea) VALUES (@empresa,@serie,1)
    END
IF @fichero='menuclin'
    BEGIN
    UPDATE cgZcfg.dbo.xxxnumlmen SET linea=@max WHERE empresa=@empresa AND serie=@serie
    SELECT @n=@@ROWCOUNT
    IF @n=0    INSERT INTO cgZcfg.dbo.xxxnumlmen (empresa,serie,linea) VALUES (@empresa,@serie,1)
    END
IF @fichero='menulof'
    BEGIN
    UPDATE cgZcfg.dbo.xxxnumlmof SET linea=@max WHERE empresa=@empresa AND serie=@serie
    SELECT @n=@@ROWCOUNT
    IF @n=0    INSERT INTO cgZcfg.dbo.xxxnumlmof (empresa,serie,linea) VALUES (@empresa,@serie,1)
    END
IF @fichero='menulnec'
    BEGIN
    UPDATE cgZcfg.dbo.xxxnumlnec SET linea=@max WHERE empresa=@empresa AND serie=@serie
    SELECT @n=@@ROWCOUNT
    IF @n=0    INSERT INTO cgZcfg.dbo.xxxnumlnec (empresa,serie,linea) VALUES (@empresa,@serie,1)
    END
SELECT @max=NULL
IF @fichero='lineaofe'
    BEGIN
    SELECT @max=MAX(linea) FROM lineaofe WHERE empresa=@empresa AND serie=@serie AND numero=@numero
    SELECT @max=@max+9
    SELECT @max=ISNULL(@max,9)
    END
IF @fichero='lineaped'
    SELECT @max=MAX(linea) FROM lineaped WHERE empresa=@empresa AND serie=@serie AND numero=@numero
IF @fichero='lineaalb'
    SELECT @max=MAX(linea) FROM lineaalb WHERE empresa=@empresa AND serie=@serie AND numero=@numero
IF @fichero='lineafac'
    SELECT @max=MAX(linea) FROM lineafac WHERE empresa=@empresa AND serie=@serie AND numero=@numero
IF @fichero='lineapla'
    SELECT @max=MAX(linea) FROM lineapla WHERE empresa=@empresa AND serie=@serie AND numero=@numero
IF @fichero='lineacom'
    SELECT @max=MAX(linea) FROM lineacom WHERE empresa=@empresa AND serie=@serie AND numero=@numero
IF @fichero='linalbp'
    SELECT @max=MAX(linea) FROM linalbp  WHERE empresa=@empresa AND serie=@serie AND numero=@numero
IF @fichero='lineaent'
    SELECT @max=MAX(linea) FROM lineaent WHERE empresa=@empresa AND serie=@serie AND numero=@numero
IF @fichero='lmovimi'
    SELECT @max=MAX(linea) FROM lmovimi  WHERE empresa=@empresa AND numero=@numero
IF @fichero='linsal'
    SELECT @max=MAX(linea) FROM linsal   WHERE empresa=@empresa AND numero=@numero
IF @fichero='menuclin'
    SELECT @max=MAX(linea) FROM menuclin WHERE empresa=@empresa AND numero=@numero
IF @fichero='menulof'
    SELECT @max=MAX(linea) FROM menulof  WHERE empresa=@empresa AND numero=@numero
IF @fichero='menulnec'
    SELECT @max=MAX(linea) FROM menulnec WHERE empresa=@empresa AND numero=@numero
SELECT @max=(CASE WHEN @max IS NULL THEN 1 ELSE @max+1 END)
IF @fichero='lineaofe'
    UPDATE cgZcfg.dbo.xxxnumlofe SET linea=@max WHERE empresa=@empresa AND serie=@serie
IF @fichero='lineafac'
    UPDATE cgZcfg.dbo.xxxnumlfac SET linea=@max WHERE empresa=@empresa AND serie=@serie
IF @fichero='lineaalb'
    UPDATE cgZcfg.dbo.xxxnumlalb SET linea=@max WHERE empresa=@empresa AND serie=@serie
IF @fichero='lineaped'
    UPDATE cgZcfg.dbo.xxxnumlped SET linea=@max WHERE empresa=@empresa AND serie=@serie
IF @fichero='lineapla'
    UPDATE cgZcfg.dbo.xxxnumlpla SET linea=@max WHERE empresa=@empresa AND serie=@serie
IF @fichero='lineacom'
    UPDATE cgZcfg.dbo.xxxnumlcom SET linea=@max WHERE empresa=@empresa AND serie=@serie
IF @fichero='linalbp'
    UPDATE cgZcfg.dbo.xxxnumlalbp SET linea=@max WHERE empresa=@empresa AND serie=@serie
IF @fichero='lineaent'
    UPDATE cgZcfg.dbo.xxxnumlent SET linea=@max WHERE empresa=@empresa AND serie=@serie
IF @fichero='lmovimi'
    UPDATE cgZcfg.dbo.xxxnumlmov SET linea=@max WHERE empresa=@empresa AND serie=@serie
IF @fichero='linsal'
    UPDATE cgZcfg.dbo.xxxnumlsal SET linea=@max WHERE empresa=@empresa AND serie=@serie
IF @fichero='menuclin'
    UPDATE cgZcfg.dbo.xxxnumlmen SET linea=@max WHERE empresa=@empresa AND serie=@serie
IF @fichero='menulof'
    UPDATE cgZcfg.dbo.xxxnumlmof SET linea=@max WHERE empresa=@empresa AND serie=@serie
IF @fichero='menulnec'
    UPDATE cgZcfg.dbo.xxxnumlnec SET linea=@max WHERE empresa=@empresa AND serie=@serie
SELECT 'numero'=@max
RETURN








GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO






/****** Object:  Stored Procedure dbo.sp_xxx_da_numero    Script Date: 18/5/01 12:58:21 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_da_numero    Script Date: 3/5/01 9:24:48 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_da_numero    Script Date: 19/2/01 11:30:20 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_da_numero    Script Date: 14/12/00 12:25:08 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_da_numero    Script Date: 26/9/00 13:23:17 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_da_numero    Script Date: 26/6/00 14:56:48 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_da_numero    Script Date: 26/6/00 9:03:32 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_da_numero    Script Date: 24/3/2000 10:08:30 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_da_numero    Script Date: 23/3/2000 15:31:29 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_da_numero    Script Date: 23/3/2000 11:25:17 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_da_numero    Script Date: 16/3/2000 12:08:27 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_da_numero    Script Date: 2/3/2000 8:30:20 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_da_numero    Script Date: 24/6/99 13:59:38 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_da_numero    Script Date: 7/6/99 11:50:37 ******/
CREATE PROCEDURE sp_xxx_da_numero
    @fichero CHAR(10),@empresa CHAR(4), @serie CHAR(2)
AS
DECLARE @n   FLOAT
DECLARE @max FLOAT
DECLARE @cadena  VARCHAR(255)
SELECT @fichero=LOWER(@fichero)
IF @fichero='' BEGIN
/*
   SELECT 'numero'=1
*/
   RETURN
   END
SELECT @max=1
IF  @fichero='consulta'
    BEGIN
    UPDATE cgZcfg.dbo.xxxnumcon SET numero=1  WHERE empresa=@empresa AND serie=@serie
    SELECT @n=@@ROWCOUNT
    IF @n=0    INSERT INTO cgZcfg.dbo.xxxnumcon (empresa,serie,numero) VALUES (@empresa,@serie,1)
    END
IF  @fichero='cuadre'
    BEGIN
    UPDATE cgZcfg.dbo.xxxnumcua SET numero=1 WHERE empresa=@empresa AND serie=@serie
    SELECT @n=@@ROWCOUNT
    IF @n=0    INSERT INTO cgZcfg.dbo.xxxnumcua (empresa,serie,numero) VALUES (@empresa,@serie,1)
    END
IF  @fichero='ofertas'
    BEGIN
    UPDATE cgZcfg.dbo.xxxnumofe SET numero=1 WHERE empresa=@empresa AND serie=@serie
    SELECT @n=@@ROWCOUNT
    IF @n=0    INSERT INTO cgZcfg.dbo.xxxnumofe (empresa,serie,numero) VALUES (@empresa,@serie,1)
    END
IF  @fichero='factura'
    BEGIN
    UPDATE cgZcfg.dbo.xxxnumfac SET numero=1 WHERE empresa=@empresa AND serie=@serie
    SELECT @n=@@ROWCOUNT
    IF @n=0    INSERT INTO cgZcfg.dbo.xxxnumfac (empresa,serie,numero) VALUES (@empresa,@serie,1)
    END
IF  @fichero='albaran'
    BEGIN
    UPDATE cgZcfg.dbo.xxxnumalb SET numero=1 WHERE empresa=@empresa AND serie=@serie
    SELECT @n=@@ROWCOUNT
    IF @n=0    INSERT INTO cgZcfg.dbo.xxxnumalb (empresa,serie,numero) VALUES (@empresa,@serie,1)
    END
IF  @fichero='pedido'
    BEGIN
    UPDATE cgZcfg.dbo.xxxnumped SET numero=1 WHERE empresa=@empresa AND serie=@serie
    SELECT @n=@@ROWCOUNT
    IF @n=0    INSERT INTO cgZcfg.dbo.xxxnumped (empresa,serie,numero) VALUES (@empresa,@serie,1)
    END
IF  @fichero='plantill'
    BEGIN
    UPDATE cgZcfg.dbo.xxxnumpla SET numero=1 WHERE empresa=@empresa AND serie=@serie
    SELECT @n=@@ROWCOUNT
    IF @n=0    INSERT INTO cgZcfg.dbo.xxxnumpla (empresa,serie,numero) VALUES (@empresa,@serie,1)
    END
IF  @fichero='cobros'
    BEGIN
    UPDATE cgZcfg.dbo.xxxnumcob SET numero=1 WHERE empresa=@empresa AND serie=@serie
    SELECT @n=@@ROWCOUNT
    IF @n=0    INSERT INTO cgZcfg.dbo.xxxnumcob (empresa,serie,numero) VALUES (@empresa,@serie,1)
    END
IF  @fichero='compra'
    BEGIN
    UPDATE cgZcfg.dbo.xxxnumcom SET numero=1 WHERE empresa=@empresa AND serie=@serie
    SELECT @n=@@ROWCOUNT
    IF @n=0    INSERT INTO cgZcfg.dbo.xxxnumcom (empresa,serie,numero) VALUES (@empresa,@serie,1)
    END
IF  @fichero='albpro'
    BEGIN
    UPDATE cgZcfg.dbo.xxxnumalbp SET numero=1 WHERE empresa=@empresa AND serie=@serie
    SELECT @n=@@ROWCOUNT
    IF @n=0    INSERT INTO cgZcfg.dbo.xxxnumalbp (empresa,serie,numero) VALUES (@empresa,@serie,1)
    END
IF  @fichero='entrada'
    BEGIN
    UPDATE cgZcfg.dbo.xxxnument SET numero=1 WHERE empresa=@empresa AND serie=@serie
    SELECT @n=@@ROWCOUNT
    IF @n=0    INSERT INTO cgZcfg.dbo.xxxnument (empresa,serie,numero) VALUES (@empresa,@serie,1)
    END
IF  @fichero='pagos'
    BEGIN
    UPDATE cgZcfg.dbo.xxxnumpag SET numero=1 WHERE empresa=@empresa
    SELECT @n=@@ROWCOUNT
    IF @n=0    INSERT INTO cgZcfg.dbo.xxxnumpag (empresa,serie,numero) VALUES (@empresa,@serie,1)
    END
IF  @fichero='movimi'
    BEGIN
    UPDATE cgZcfg.dbo.xxxnummov SET numero=1 WHERE empresa=@empresa AND serie=@serie
    SELECT @n=@@ROWCOUNT
    IF @n=0    INSERT INTO cgZcfg.dbo.xxxnummov (empresa,serie,numero) VALUES (@empresa,@serie,1)
    END
IF  @fichero='salidas'
    BEGIN
    UPDATE cgZcfg.dbo.xxxnumsal SET numero=1 WHERE empresa=@empresa AND serie=@serie
    SELECT @n=@@ROWCOUNT
    IF @n=0    INSERT INTO cgZcfg.dbo.xxxnumsal (empresa,serie,numero) VALUES (@empresa,@serie,1)
    END
IF  @fichero='historic'
    BEGIN
    UPDATE cgZcfg.dbo.xxxnumhist SET numero=1 WHERE empresa=@empresa AND serie=@serie
    SELECT @n=@@ROWCOUNT
    IF @n=0    INSERT INTO cgZcfg.dbo.xxxnumhist (empresa,serie,numero) VALUES (@empresa,@serie,1)
    END
IF  @fichero='menucmd'
    BEGIN
    UPDATE cgZcfg.dbo.xxxnummen SET numero=1 WHERE empresa=@empresa AND serie=@serie
    SELECT @n=@@ROWCOUNT
    IF @n=0    INSERT INTO cgZcfg.dbo.xxxnummen (empresa,serie,numero) VALUES (@empresa,@serie,1)
    END
IF  @fichero='menuof'
    BEGIN
    UPDATE cgZcfg.dbo.xxxnummof SET numero=1 WHERE empresa=@empresa AND serie=@serie
    SELECT @n=@@ROWCOUNT
    IF @n=0    INSERT INTO cgZcfg.dbo.xxxnummof (empresa,serie,numero) VALUES (@empresa,@serie,1)
    END
IF  @fichero='menunec'
    BEGIN
    UPDATE cgZcfg.dbo.xxxnumnec SET numero=1 WHERE empresa=@empresa AND serie=@serie
    SELECT @n=@@ROWCOUNT
    IF @n=0    INSERT INTO cgZcfg.dbo.xxxnumnec (empresa,serie,numero) VALUES (@empresa,@serie,1)
    END
IF  @fichero='of_cab'
    BEGIN
    UPDATE cgZcfg.dbo.xxxnumof SET numero=1 WHERE empresa=@empresa AND serie=@serie
    SELECT @n=@@ROWCOUNT
    IF @n=0    INSERT INTO cgZcfg.dbo.xxxnumof (empresa,serie,numero) VALUES (@empresa,@serie,1)
    END
SELECT @max=NULL
IF @fichero='consulta'
    SELECT @max=MAX(numero) FROM consulta
IF @fichero='cuadre'
    SELECT @max=MAX(numero) FROM cuadre   WHERE empresa=@empresa
IF @fichero='ofertas'
    SELECT @max=MAX(numero) FROM ofertas  WHERE empresa=@empresa AND serie=@serie
IF @fichero='pedido'
    SELECT @max=MAX(numero) FROM pedido   WHERE empresa=@empresa AND serie=@serie
IF @fichero='albaran'
    SELECT @max=MAX(numero) FROM albaran  WHERE empresa=@empresa AND serie=@serie
IF @fichero='factura'
    SELECT @max=MAX(numero) FROM factura  WHERE empresa=@empresa AND serie=@serie
IF @fichero='plantill'

    SELECT @max=MAX(numero) FROM plantill WHERE empresa=@empresa AND serie=@serie
IF @fichero='cobros'
    SELECT @max=MAX(numero) FROM cobros   WHERE empresa=@empresa
IF @fichero='compra'
    SELECT @max=MAX(numero) FROM compra   WHERE empresa=@empresa AND serie=@serie
IF @fichero='albpro'
    SELECT @max=MAX(numero) FROM albpro   WHERE empresa=@empresa AND serie=@serie
IF @fichero='entrada'
    SELECT @max=MAX(numero) FROM entrada  WHERE empresa=@empresa AND serie=@serie
IF @fichero='pagos'
    SELECT @max=MAX(numero) FROM pagos    WHERE empresa=@empresa
IF @fichero='movimi'
    SELECT @max=MAX(numero) FROM movimi   WHERE empresa=@empresa
IF @fichero='salidas'
    SELECT @max=MAX(numero) FROM salidas  WHERE empresa=@empresa
IF @fichero='historic'
    SELECT @max=MAX(numero) FROM historic WHERE empresa=@empresa
IF @fichero='menucmd'
    SELECT @max=MAX(numero) FROM menucmd  WHERE empresa=@empresa
IF @fichero='menuof'
    SELECT @max=MAX(numero) FROM menuof   WHERE empresa=@empresa
IF @fichero='menunec'
    SELECT @max=MAX(numero) FROM menunec  WHERE empresa=@empresa
IF @fichero='of_cab'
    SELECT @max=MAX(numero) FROM of_cab  WHERE empresa=@empresa AND serie=@serie
SELECT @max=(CASE WHEN @max IS NULL THEN 1 ELSE @max+1 END)
IF  @fichero='consulta'
    UPDATE cgZcfg.dbo.xxxnumcon SET numero=@max WHERE empresa=@empresa
IF  @fichero='cuadre'
    UPDATE cgZcfg.dbo.xxxnumcua SET numero=@max WHERE empresa=@empresa
IF  @fichero='ofertas'
    UPDATE cgZcfg.dbo.xxxnumofe SET numero=@max WHERE empresa=@empresa AND serie=@serie
IF  @fichero='factura'
    UPDATE cgZcfg.dbo.xxxnumfac SET numero=@max WHERE empresa=@empresa AND serie=@serie
IF  @fichero='albaran'
    UPDATE cgZcfg.dbo.xxxnumalb SET numero=@max WHERE empresa=@empresa AND serie=@serie
IF  @fichero='pedido'
    UPDATE cgZcfg.dbo.xxxnumped SET numero=@max WHERE empresa=@empresa AND serie=@serie
IF  @fichero='plantill'
    UPDATE cgZcfg.dbo.xxxnumpla SET numero=@max WHERE empresa=@empresa AND serie=@serie
IF  @fichero='cobros'
    UPDATE cgZcfg.dbo.xxxnumcob SET numero=@max WHERE empresa=@empresa AND serie=@serie
IF  @fichero='compra'
    UPDATE cgZcfg.dbo.xxxnumcom SET numero=@max WHERE empresa=@empresa AND serie=@serie
IF  @fichero='albpro'
    UPDATE cgZcfg.dbo.xxxnumalbp SET numero=@max WHERE empresa=@empresa AND serie=@serie

IF  @fichero='entrada'
    UPDATE cgZcfg.dbo.xxxnument SET numero=@max WHERE empresa=@empresa AND serie=@serie
IF  @fichero='pagos'
    UPDATE cgZcfg.dbo.xxxnumpag SET numero=@max WHERE empresa=@empresa AND serie=@serie
IF  @fichero='movimi'
    UPDATE cgZcfg.dbo.xxxnummov SET numero=@max WHERE empresa=@empresa AND serie=@serie
IF  @fichero='salidas'
    UPDATE cgZcfg.dbo.xxxnumsal SET numero=@max WHERE empresa=@empresa AND serie=@serie
IF  @fichero='historic'
    UPDATE cgZcfg.dbo.xxxnumhist SET numero=@max WHERE empresa=@empresa AND serie=@serie
IF  @fichero='menucmd'
    UPDATE cgZcfg.dbo.xxxnummen SET numero=@max WHERE empresa=@empresa AND serie=@serie
IF  @fichero='menumof'
    UPDATE cgZcfg.dbo.xxxnummof SET numero=@max WHERE empresa=@empresa AND serie=@serie
IF  @fichero='menunec'
    UPDATE cgZcfg.dbo.xxxnumnec SET numero=@max WHERE empresa=@empresa AND serie=@serie
IF  @fichero='of_cab'
    UPDATE cgZcfg.dbo.xxxnumof SET numero=@max WHERE empresa=@empresa AND serie=@serie
SELECT NUMERO=@max
RETURN








GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO






/****** Object:  Stored Procedure dbo.sp_xxx_entra_stock    Script Date: 18/5/01 12:58:21 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_entra_stock    Script Date: 3/5/01 9:24:48 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_entra_stock    Script Date: 19/2/01 11:30:20 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_entra_stock    Script Date: 14/12/00 12:25:08 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_entra_stock    Script Date: 26/9/00 13:23:17 ******/
CREATE PROCEDURE sp_xxx_entra_stock
    @raiz     CHAR(16),@talla CHAR(2),@color CHAR(2),
    @almacen  CHAR(4), @empresa CHAR(4),
    @cantidad FLOAT,   @total   FLOAT,@en_euro BIT,
    @poner_articulo BIT,@divisa CHAR(10), @precio FLOAT
AS
DECLARE @sy_c1     FLOAT
DECLARE @sy_c2     FLOAT
DECLARE @defecto   CHAR(1)
DECLARE @sy_ca     CHAR(1)
DECLARE @en_euro2  BIT
DECLARE @e_vidap   FLOAT
DECLARE @e_vidau   FLOAT
DECLARE @ult_coste FLOAT
DECLARE @costemed  FLOAT
DECLARE @mensaje   CHAR(255)
/*
SELECT @mensaje='R'+@raiz+' '+convert(char(3),@cantidad)+'.'
select @mensaje=@mensaje+'total '+convert(char(10),@total)
exec sp_xxx_ponmsg @mensaje
*/
IF @cantidad=0 OR @cantidad=NULL
    RETURN
SELECT @sy_c1=sy_c1,@sy_c2=sy_c2    FROM sistemad WHERE id=1
SELECT @defecto=defecto,@sy_ca=coste_a  FROM empresa WHERE empresa=@empresa
IF @en_euro=1 AND @defecto='P'
    SELECT @total=@total*@sy_c1
IF @en_euro=0 AND @defecto='E'
    SELECT @total=@total*@sy_c2
IF NOT EXISTS (SELECT * FROM exist WHERE empresa = @empresa AND almacen = @almacen
        AND raiz = @raiz AND talla = @talla AND color = @color)
    BEGIN
    SELECT @en_euro2=0
    IF @defecto='E'
        SELECT @en_euro2=1
    INSERT INTO exist (empresa, raiz, talla, color, almacen, stock_rese, stock,
        stock_min, stock_ini, stock_pedi, stock_max, ubicacion, en_euro, clav_1)
        VALUES (@empresa, @raiz, @talla, @color, @almacen, 0, 0, 0, 0, 0, 0, '', @en_euro2, @empresa+@raiz+@talla+@color+@almacen)
    END
UPDATE exist SET stock=stock+@cantidad
    WHERE empresa = @empresa AND almacen = @almacen
    AND raiz = @raiz AND talla = @talla AND color = @color
SELECT @ult_coste=0
IF @cantidad<>0
    SELECT @ult_coste=@total/@cantidad
UPDATE arti2 SET e_vidau=e_vidau+@cantidad,e_vidap=e_vidap+@total,
        ult_coste=@ult_coste
        WHERE empresa = @empresa
        AND raiz = @raiz AND talla = @talla AND color = @color
SELECT @e_vidap=e_vidap,@e_vidau=e_vidau
    FROM arti2
    WHERE empresa = @empresa
    AND raiz = @raiz AND talla = @talla AND color = @color
/*
SELECT @mensaje='EP'+convert(char(10),@E_VIDAP)
exec sp_xxx_ponmsg @mensaje
*/
SELECT @costemed=0
IF @e_vidau=0
    SELECT @e_vidap=0,@costemed=0
ELSE
    SELECT @costemed=@e_vidap/@e_vidau
/*
SELECT @mensaje='->EP'+convert(char(10),@E_VIDAP)
exec sp_xxx_ponmsg @mensaje
*/
UPDATE arti2 SET e_vidap=@e_vidap,costemed=@costemed
    WHERE empresa = @empresa
    AND raiz = @raiz AND talla = @talla AND color = @color
IF @poner_articulo=1
    BEGIN
    SELECT @en_euro2=en_eurodf FROM articulo

        WHERE empresa=@empresa AND raiz=@raiz
        AND talla=@talla AND @color=color
    IF @en_euro<>@en_euro2 AND @divisa=''
        BEGIN
        IF @en_euro2=1
            SELECT @precio=@precio*@sy_c2
        IF @en_euro2=0
            SELECT @precio=@precio*@sy_c1
        END
    UPDATE articulo SET prec_coste=@precio,divisa=@divisa
        WHERE empresa=@empresa AND raiz=@raiz
        AND talla=@talla AND @color=color
    END








GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO






/****** Object:  Stored Procedure dbo.sp_xxx_ponmsg    Script Date: 18/5/01 12:58:21 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_ponmsg    Script Date: 3/5/01 9:24:48 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_ponmsg    Script Date: 19/2/01 11:30:20 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_ponmsg    Script Date: 14/12/00 12:25:08 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_ponmsg    Script Date: 26/9/00 13:23:17 ******/
CREATE PROCEDURE sp_xxx_ponmsg
@mm CHAR(200)
AS
DECLARE @id int
DECLARE @n  int
DECLARE @mensaje CHAR(255)
SELECT @id=@@spid
SELECT @mensaje=mensaje FROM xxxmsg WHERE sp_id=@id
SELECT @mensaje=(CASE WHEN @mensaje IS NULL THEN @MM ELSE RTRIM(LTRIM(@mensaje))+CHAR(13)+@MM END)
UPDATE xxxmsg SET mensaje=@mensaje WHERE sp_id=@id
SELECT @n=@@ROWCOUNT
IF @n=0
    BEGIN
    INSERT xxxmsg (sp_id,mensaje) VALUES (@id,@MM)
    END
RETURN








GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO






/****** Object:  Stored Procedure dbo.sp_xxx_quitamsg    Script Date: 18/5/01 12:58:21 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_quitamsg    Script Date: 3/5/01 9:24:48 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_quitamsg    Script Date: 19/2/01 11:30:20 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_quitamsg    Script Date: 14/12/00 12:25:08 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_quitamsg    Script Date: 26/9/00 13:23:17 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_quitamsg    Script Date: 26/6/00 14:56:49 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_quitamsg    Script Date: 26/6/00 9:03:32 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_quitamsg    Script Date: 24/3/2000 10:08:30 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_quitamsg    Script Date: 23/3/2000 15:31:29 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_quitamsg    Script Date: 23/3/2000 11:25:17 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_quitamsg    Script Date: 16/3/2000 12:08:28 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_quitamsg    Script Date: 2/3/2000 8:30:20 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_quitamsg    Script Date: 24/6/99 13:59:38 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_quitamsg    Script Date: 7/6/99 11:50:37 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_quitamsg    Script Date: 1/6/99 12:01:59 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_quitamsg    Script Date: 1/6/99 9:54:58 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_quitamsg    Script Date: 19/5/99 12:02:25 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_quitamsg    Script Date: 7/5/99 12:50:04 ******/
CREATE PROCEDURE sp_xxx_quitamsg AS
DECLARE @id int
DECLARE @n  int
SELECT @id=@@spid
UPDATE xxxmsg SET mensaje=NULL WHERE sp_id=@id
SELECT @n=@@ROWCOUNT
IF @n=0
    BEGIN
    INSERT xxxmsg (sp_id,mensaje) VALUES (@id,NULL)
    END
RETURN








GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO






/****** Object:  Stored Procedure dbo.sp_xxx_stockpedi    Script Date: 18/5/01 12:58:21 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_stockpedi    Script Date: 3/5/01 9:24:49 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_stockpedi    Script Date: 19/2/01 11:30:20 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_stockpedi    Script Date: 14/12/00 12:25:08 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_stockpedi    Script Date: 26/9/00 13:23:19 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_stockpedi    Script Date: 26/6/00 14:56:49 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_stockpedi    Script Date: 26/6/00 9:03:32 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_stockpedi    Script Date: 24/3/2000 10:08:30 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_stockpedi    Script Date: 23/3/2000 15:31:29 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_stockpedi    Script Date: 23/3/2000 11:25:17 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_stockpedi    Script Date: 16/3/2000 12:08:28 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_stockpedi    Script Date: 2/3/2000 8:30:20 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_stockpedi    Script Date: 24/6/99 13:59:38 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_stockpedi    Script Date: 7/6/99 11:50:37 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_stockpedi    Script Date: 1/6/99 12:01:59 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_stockpedi    Script Date: 1/6/99 9:54:58 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_stockpedi    Script Date: 19/5/99 12:02:25 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_stockpedi    Script Date: 7/5/99 12:50:05 ******/
CREATE PROCEDURE sp_xxx_stockpedi
    @empresa CHAR(4), @raiz CHAR(16), @talla CHAR(2), @color CHAR(2),
    @cantidad FLOAT, @almacen CHAR(4)
AS
DECLARE @en_euro        BIT
DECLARE @defecto        CHAR(1)
DECLARE @msg            CHAR(255)
/*
EXECUTE SP_XXX_PONMSG 'EL ARTICULO'
EXECUTE SP_XXX_PONMSG @RAIZ
select @MSG='TALLA '+@TALLA+'.'
EXECUTE SP_XXX_PONMSG @MSG
select @MSG='COLOR '+@COLOR+'.'
EXECUTE SP_XXX_PONMSG @MSG
EXECUTE SP_XXX_PONMSG 'ALMACEN'
EXECUTE SP_XXX_PONMSG @ALMACEN
EXECUTE SP_XXX_PONMSG 'empresa'
EXECUTE SP_XXX_PONMSG @empresa
EXECUTE SP_XXX_PONMSG 'CANTIDAD'
sELECT @msg=convert(char (10) ,@cantidad )
EXECUTE SP_XXX_PONMSG @msg
*/
IF NOT EXISTS (SELECT * FROM exist WHERE empresa=@empresa AND almacen=@almacen AND raiz=@raiz AND talla=@talla AND color=@color)
    BEGIN
    SELECT @defecto=(SELECT defecto FROM empresa WHERE empresa=@empresa)
    SELECT @en_euro=0

    IF @defecto='E'
        SELECT @en_euro=1
/*
    EXECUTE SP_XXX_PONMSG 'creo ficha de existencias'
*/
    INSERT INTO exist (empresa, raiz, talla, color, almacen,
        stock_rese, stock,
        stock_min, stock_ini, stock_pedi, stock_max,
        ubicacion, en_euro, clav_1)
        VALUES (@empresa, @raiz, @talla, @color, @almacen,
        0, 0,
        0, 0, 0, 0,
        '', @en_euro, @empresa+@raiz+@talla+@color+@almacen)
/*
    EXECUTE SP_XXX_PONMSG 'POR DIOS QUE LA HE CREADO'
*/
    END
/*
EXECUTE SP_XXX_PONMSG 'ACTUALIZO EXISRENCIAS'
*/
UPDATE exist SET stock_pedi = stock_pedi + @cantidad
    WHERE empresa = @empresa AND almacen = @almacen AND
    raiz = @raiz AND talla = @talla AND color = @color








GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO






/****** Object:  Stored Procedure dbo.sp_xxx_tipo_iva    Script Date: 18/5/01 12:58:21 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_tipo_iva    Script Date: 3/5/01 9:24:49 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_tipo_iva    Script Date: 19/2/01 11:30:20 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_tipo_iva    Script Date: 14/12/00 12:25:08 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_tipo_iva    Script Date: 26/9/00 13:23:19 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_tipo_iva    Script Date: 26/6/00 14:56:50 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_tipo_iva    Script Date: 26/6/00 9:03:32 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_tipo_iva    Script Date: 24/3/2000 10:08:30 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_tipo_iva    Script Date: 23/3/2000 15:31:29 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_tipo_iva    Script Date: 23/3/2000 11:25:17 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_tipo_iva    Script Date: 16/3/2000 12:08:28 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_tipo_iva    Script Date: 2/3/2000 8:30:20 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_tipo_iva    Script Date: 24/6/99 13:59:38 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_tipo_iva    Script Date: 7/6/99 11:50:37 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_tipo_iva    Script Date: 1/6/99 12:01:59 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_tipo_iva    Script Date: 1/6/99 9:54:58 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_tipo_iva    Script Date: 19/5/99 12:02:25 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_tipo_iva    Script Date: 7/5/99 12:50:05 ******/
CREATE PROCEDURE sp_xxx_tipo_iva
@tabla  FLOAT, @tipo  FLOAT,@fecha DATETIME,@t FLOAT OUTPUT,@r FLOAT OUTPUT
AS
DECLARE @resultado FLOAT
DECLARE @iva1 FLOAT
DECLARE @iva2  FLOAT
DECLARE @iva3  FLOAT
DECLARE @iva4  FLOAT
DECLARE @rec1 FLOAT
DECLARE @rec2  FLOAT
DECLARE @rec3  FLOAT
DECLARE @rec4  FLOAT
DECLARE @fecha1     DATETIME
DECLARE @fecha2     DATETIME
SELECT @t=0
SELECT @r=0
DECLARE s CURSOR FOR SELECT fecha_iva1,fecha_iva2 FROM sistemad WHERE id=1
OPEN s
FETCH NEXT FROM s INTO @fecha1,@fecha2
CLOSE s
DEALLOCATE s
IF @fecha<@fecha2
    RETURN
IF @tabla<1 SELECT @tabla=1
IF @tabla>4 SELECT @tabla=1
IF @fecha>=@fecha1
    BEGIN

    IF @tabla=1
        DECLARE s CURSOR FOR SELECT iva1_a,iva2_a,iva3_a,iva4_a,rec1_a,rec2_a,rec3_a,rec4_a FROM sistemad WHERE id=1
    IF @tabla=2
        DECLARE s CURSOR FOR SELECT iva1_b,iva2_b,iva3_b,iva4_b,rec1_b,rec2_b,rec3_b,rec4_b FROM sistemad WHERE id=1
    IF @tabla=3
        DECLARE s CURSOR FOR SELECT iva1_c,iva2_c,iva3_c,iva4_c,rec1_c,rec2_c,rec3_c,rec4_c FROM sistemad WHERE id=1
    IF @tabla=4
        DECLARE s CURSOR FOR SELECT iva1_d,iva2_d,iva3_d,iva4_d,rec1_d,rec2_d,rec3_d,rec4_d FROM sistemad WHERE id=1
    END

IF @fecha<@fecha1
    BEGIN
    IF @tabla=1
        DECLARE s CURSOR FOR SELECT iva1_a_ant,iva2_a_ant,iva3_a_ant,iva4_a_ant,rec1_a_ant,rec2_a_ant,rec3_a_ant,rec4_a_ant FROM sistemad WHERE id=1
    IF @tabla=2
        DECLARE s CURSOR FOR SELECT iva1_b_ant,iva2_b_ant,iva3_b_ant,iva4_b_ant,rec1_b_ant,rec2_b_ant,rec3_b_ant,rec4_b_ant FROM sistemad WHERE id=1
    IF @tabla=3
        DECLARE s CURSOR FOR SELECT iva1_c_ant,iva2_c_ant,iva3_c_ant,iva4_c_ant,rec1_c_ant,rec2_c_ant,rec3_c_ant,rec4_c_ant FROM sistemad WHERE id=1
    IF @tabla=4
        DECLARE s CURSOR FOR SELECT iva1_d_ant,iva2_d_ant,iva3_d_ant,iva4_d_ant,rec1_d_ant,rec2_d_ant,rec3_d_ant,rec4_d_ant FROM sistemad WHERE id=1
    END
OPEN s
FETCH NEXT FROM s INTO @iva1,@iva2,@iva3,@iva4,@rec1,@rec2,@rec3,@rec4
CLOSE s
DEALLOCATE s
IF @tipo<1 SELECT @tipo=1
IF @tipo>4 SELECT @tipo=1
IF @tipo=1 SELECT @t=@iva1
IF @tipo=2 SELECT @t=@iva2
IF @tipo=3 SELECT @t=@iva3
IF @tipo=4 SELECT @t=@iva4
IF @tipo=1 SELECT @r=@rec1
IF @tipo=2 SELECT @r=@rec2
IF @tipo=3 SELECT @r=@rec3
IF @tipo=4 SELECT @r=@rec4
RETURN








GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO







CREATE  PROCEDURE sp_finaliza_pro
    @fichero CHAR(10), @empresa CHAR(4), @serie CHAR(2), @numero FLOAT
AS
DECLARE @este_proveedor CHAR(10)
DECLARE @prov_habitual  CHAR(10)
DECLARE @en_euro        BIT
DECLARE @dto_c          FLOAT
DECLARE @dto_rec        FLOAT
DECLARE @dto_p          FLOAT
DECLARE @total_sumas    FLOAT
DECLARE @total_recargos FLOAT
DECLARE @gasto1         FLOAT
DECLARE @gasto2         FLOAT
DECLARE @gasto3         FLOAT
DECLARE @gasto4         FLOAT
DECLARE @gasto5         FLOAT
DECLARE @gasto6         FLOAT

DECLARE @gasto7         FLOAT
DECLARE @gasto8         FLOAT
DECLARE @gasto9         FLOAT
DECLARE @gasto10        FLOAT
DECLARE @arancelt       FLOAT
DECLARE @resultado      FLOAT
DECLARE @pedido         FLOAT
DECLARE @divisa         CHAR(10)
DECLARE @raiz           CHAR(16)
DECLARE @uar            CHAR(16)
DECLARE @talla          CHAR(2)
DECLARE @uat            CHAR(2)
DECLARE @color          CHAR(2)
DECLARE @uac            CHAR(2)
DECLARE @almacen        CHAR(4)
DECLARE @ua             CHAR(4)
DECLARE @cantidad       FLOAT
DECLARE @uc             FLOAT
DECLARE @total_l        FLOAT
DECLARE @a_pre          FLOAT
DECLARE @up             FLOAT
DECLARE @xtotal         FLOAT
DECLARE @ajustado       FLOAT
DECLARE @linea          FLOAT

DECLARE @mensaje        CHAR(255)
DECLARE @en_principio_poner_art      BIT
DECLARE @mirar_proveedor BIT
DECLARE @ajusta_art     CHAR(1)
DECLARE @poner_articulo  BIT


SELECT @en_principio_poner_art=0
SELECT @ajusta_art='N'
SELECT @mirar_proveedor=0
/*
EXEC SP_XXX_PONMSG 'EN FIN PRO'
*/
IF @fichero = 'albpro'
    BEGIN
    SELECT @ajusta_art=coste_a,@mirar_proveedor=mirar_pdft  FROM empresa WHERE empresa=@empresa
    SELECT    @en_euro=en_euro,@dto_c=dto_c,@dto_rec=dto_rec,@dto_p=dto_p,
        @total_sumas = suma1+suma2+suma3+suma4,
        @total_recargos=recargo1+recargo2+recargo3+recargo4,
        @gasto1=gasto1 ,@gasto2=gasto2,
        @gasto3=gasto3 ,@gasto4 =gasto4 ,
        @gasto5=gasto5 ,@gasto6 =gasto6 ,
        @gasto7=gasto7 ,@gasto8 =gasto8 ,
        @gasto9=gasto9 ,@gasto10=gasto10,
        @arancelt=arancelt,@pedido=pedido,
        @divisa=divisa,@este_proveedor=proveedo
        FROM albpro
        WHERE empresa=@empresa AND serie=@serie AND numero=@numero
    DECLARE ll CURSOR FOR SELECT
        raiz,talla,color,cantidad,almacen,
        uar, uat,  uac,  uc,      ua,     up,
        total_l,a_pre,linea
        FROM linalbp
        WHERE empresa=@empresa AND serie=@serie AND numero=@numero
    END
IF @fichero = 'entrada'
    BEGIN
    SELECT @ajusta_art=coste_f,@mirar_proveedor=mirar_pdft  FROM empresa WHERE empresa=@empresa
    SELECT    @en_euro=en_euro,@dto_c=dto_c,@dto_rec=dto_rec,@dto_p=dto_p,
        @total_sumas=suma1+suma2+suma3+suma4,
        @total_recargos=recargo1+recargo2+recargo3+recargo4,
        @gasto1=gasto1 ,@gasto2=gasto2,
        @gasto3=gasto3 ,@gasto4 =gasto4 ,
        @gasto5=gasto5 ,@gasto6 =gasto6 ,
        @gasto7=gasto7 ,@gasto8 =gasto8 ,
        @gasto9=gasto9 ,@gasto10=gasto10,
        @arancelt=arancelt,@pedido=pedido,
        @divisa=divisa,@este_proveedor=cliente
        FROM entrada
        WHERE empresa=@empresa AND serie=@serie AND numero=@numero
    DECLARE ll CURSOR FOR SELECT
            raiz,talla,color,cantidad,almacen,
            uar, uat, uac, uc, ua, up,
            total_l, a_pre,linea
        FROM lineaent
        WHERE empresa=@empresa AND serie=@serie AND numero=@numero
    END
IF @ajusta_art='S'
    SELECT @en_principio_poner_art=1
OPEN ll
FETCH NEXT FROM ll INTO @raiz,@talla,@color,@cantidad,@almacen,
    @uar,@uat,@uac,@uc,@ua,@up,
    @total_l,@a_pre,@linea
WHILE (@@fetch_status <> -1)
    BEGIN
    IF (@@fetch_status <> -2)
        BEGIN
        SELECT @uc = -@uc
        SELECT @xtotal = @uc * @up
        EXECUTE sp_xxx_entra_stock @uar,@uat,@uac,@ua,
            @empresa,@uc,@xtotal,@en_euro,
            0,'',@up
/************* aqui es donde hay que hacer el calculo de prorrateo con sp_aj_a_imp ************/
        EXECUTE sp_aj_a_imp
            @total_l, @en_euro,
            @empresa,
            @dto_c, @dto_rec, @dto_p,
            @total_sumas,
            @total_recargos,
            @gasto1, @gasto2, @gasto3, @gasto4, @gasto5,
            @gasto6, @gasto7, @gasto8, @gasto9, @gasto10,
            @arancelt,
            @resultado OUTPUT
        SELECT @ajustado = @resultado
/*
    SELECT @mensaje='fp '+str(@linea)+@raiz
    execute sp_xxx_ponmsg @mensaje
*/

/*************************************************************************************/
        IF @en_principio_poner_art=0
            SELECT @poner_articulo=0
        ELSE     BEGIN
            IF @mirar_proveedor=0
                SELECT @poner_articulo=1
            ELSE    BEGIN
                SELECT @prov_habitual=provee_cod FROM articulo
                    WHERE empresa=@empresa AND raiz=@raiz
                    AND talla=@talla AND color=@color
                IF @prov_habitual=@este_proveedor
                    SELECT @poner_articulo=1
                ELSE
                    SELECT @poner_articulo=0
                END
            END
        EXECUTE sp_xxx_entra_stock @raiz,@talla,@color,@almacen,
            @empresa,@cantidad,@ajustado,@en_euro,
            @poner_articulo,@divisa,@a_pre
        END
    IF @fichero='albpro'
        UPDATE linalbp SET uc = cantidad,
                up = CASE WHEN (cantidad=0) THEN 0 ELSE (@ajustado/cantidad) END,
                ua=almacen , uar=raiz, uat=talla, uac=color

            WHERE empresa=@empresa AND serie=@serie AND numero=@numero AND linea = @linea
            AND linea=@linea
    IF @fichero='entrada'
        UPDATE lineaent    SET uc=cantidad,up=CASE WHEN (cantidad=0) THEN 0 ELSE (@ajustado/cantidad) END,
                ua=almacen, uar=raiz, uat=talla, uac=color
            WHERE empresa=@empresa AND serie=@serie AND numero=@numero AND linea = @linea
            AND linea=@linea
    FETCH NEXT FROM ll INTO @raiz,@talla,@color,@cantidad,@almacen,
        @uar,@uat,@uac,@uc,@ua,@up,
        @total_l,@a_pre,@linea
    END
CLOSE ll
DEALLOCATE ll
/*
EXEC SP_XXX_PONMSG 'EN FIN PRO FIN'
*/









GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO



/***********************************************
ahora en provedor
************************************************/


CREATE   PROCEDURE sp_haz_deu2
  @empresa CHAR(4), @serie CHAR(2), @numero FLOAT
AS
DECLARE @mensaje    CHAR(255)
DECLARE @en_euro    BIT
DECLARE @fp         CHAR(4)
DECLARE @redondeo   FLOAT
DECLARE @cliente    CHAR(10)
DECLARE @porcentaje FLOAT
DECLARE @dias       FLOAT
DECLARE @recibido   CHAR(1)
DECLARE @cobrado    CHAR(1)
DECLARE @descrip    CHAR(40)
DECLARE @total      FLOAT
DECLARE @importe    FLOAT
DECLARE @fecha      DATETIME
DECLARE @fechav     DATETIME
DECLARE @fecha2     DATETIME
DECLARE @diasx      DATETIME
DECLARE @fechamaxr  DATETIME
DECLARE @fecharec   DATETIME
DECLARE @fechades   DATETIME
DECLARE @automatico CHAR(1)
DECLARE @cli_auto   CHAR(10)
DECLARE @enlazado   CHAR(1)
DECLARE @fecha_r    DATETIME
DECLARE @sofotopon  DATETIME
DECLARE @diasmax    FLOAT
DECLARE @dia1       FLOAT
DECLARE @dia2       FLOAT
DECLARE @dia3       FLOAT
DECLARE @dia4       FLOAT
DECLARE @quitar     FLOAT
DECLARE @maximo     DATETIME
DECLARE @sumalin    FLOAT
DECLARE @ultimo_automatico BIT
DECLARE @diferencia FLOAT
DECLARE @ic         FLOAT
DECLARE @dc         DATETIME
DECLARE @rc         CHAR(1)
DECLARE @tc         CHAR(1)
DECLARE @ec         BIT
DECLARE @sy_c1      FLOAT
DECLARE @sy_c2      FLOAT
IF EXISTS (SELECT * FROM lindeu2
        WHERE empresa = @empresa AND serie=@serie
            AND numero=@numero AND automatico<>'S'
            AND (recibido='S' OR devuelto='S')
          )
      BEGIN
      EXEC sp_xxx_PONmsg 'Hay efectos enviados o devueltos. No se ha recalculado la deuda'
      RETURN
      END
IF EXISTS (SELECT * FROM pagos
        WHERE empresa = @empresa AND serie=@serie
            AND factura=@numero AND automatico<>'S'
          )
      BEGIN
      EXEC sp_xxx_PONmsg 'Hay pagos de la factura. No se ha recalculado la deuda'
      RETURN
      END
IF EXISTS (SELECT * FROM pagos
        WHERE empresa = @empresa AND serie=@serie
            AND factura=@numero AND automatico='S' AND ENLAZADO='S'
          )
      BEGIN
      EXEC sp_xxx_PONmsg 'Hay pagos. No se ha recalculado la deuda, ni se ha alterado el pago'
      RETURN
      END
/****************************************************************************
*****************************************************************************
****** A PATIR DE AQUI YA NO HAY IMPEDIMENTO PARA REGENERAR LA DEUDA ********
****************************************************************************/
DECLARE facfac CURSOR FOR SELECT pago,en_euro,cliente,total,fecha
    FROM entrada WHERE empresa=@empresa AND serie=@serie AND numero=@numero
OPEN facfac
FETCH NEXT FROM facfac INTO @fp,@en_euro,@cliente,@total,@fecha
CLOSE facfac
DEALLOCATE facfac
SELECT @redondeo=0
IF @en_euro=1
    SELECT @redondeo=2
/*
select 'forma pago'=@fp,'cliente '=@cliente,'en_euro'=@en_euro,'redondeo '=@redondeo,'total'=@total
*/
DECLARE clicli CURSOR FOR SELECT pago1,pago2,pago3,pago4
    FROM empresa WHERE empresa=@empresa
OPEN clicli
FETCH NEXT FROM clicli INTO @dia1,@dia2,@dia3,@dia4
CLOSE clicli
DEALLOCATE clicli
/*
select dia1=@dia1,dia2=@dia2,dia3=@dia3,dia4=@dia4
*/
/**************************************************************************
*** DESHACER LAS IMPUTACIONES EN PAGOS Y EFECTOS ENVIADOS
**************************************************************************/
SELECT @sy_c1=(SELECT sy_c1 FROM sistemad WHERE id=1)
SELECT @sy_c2=(SELECT sy_c2 FROM sistemad WHERE id=1)
DECLARE lc CURSOR FOR SELECT pagos.importe_c, pagos.dias, lindeu2.recibido, pagos.en_euro
    FROM pagos, lindeu2
    WHERE pagos.empresa=@empresa AND pagos.serie=@serie AND pagos.factura=@numero
        AND lindeu2.empresa=@empresa AND lindeu2.serie=@serie AND lindeu2.numero=@numero
        AND lindeu2.dias=pagos.dias
OPEN lc
FETCH NEXT FROM lc INTO @ic,@dc,@rc,@ec
WHILE (@@fetch_status <> -1)
  BEGIN
  IF (@@fetch_status <> -2)
     BEGIN
    /*DESHACER*/
     SELECT @tc='E'
     IF @rc='N'
    SELECT @tc='F'
/*
SELECT 'EL PAGO '=@IC,' DIAS '=@DC
*/
     EXECUTE sp_riesgo_pro @empresa, @cliente, @tc, @ic, @ec
     IF @en_euro<>@ec
    BEGIN
    IF @ec=1
        SELECT @ic=ROUND(@ic*@sy_c2,0)
    ELSE
        SELECT @ic=ROUND(@ic*@sy_c1,2)
    END
     UPDATE entrada SET pagado=pagado-@ic
    WHERE empresa=@empresa AND serie=@serie AND numero=@numero
     END
  FETCH NEXT FROM lc INTO @ic,@dc,@rc,@ec
  END
CLOSE lc
DEALLOCATE lc
DELETE pagos WHERE empresa=@empresa AND factura=@numero AND serie=@serie
DECLARE lind CURSOR FOR SELECT recibido,importe
    FROM lindeu2
    WHERE empresa=@empresa AND serie=@serie AND numero=@numero
        AND recibido='S'
OPEN lind
FETCH NEXT FROM lind INTO @recibido,@importe
WHILE (@@fetch_status <> -1)
  BEGIN
  IF (@@fetch_status <> -2)
     BEGIN
    /*DESHACER*/
     SELECT @quitar=-@importe
     EXECUTE sp_riesgo_pro @empresa, @cliente, 'F', @importe,@en_euro
     EXECUTE sp_riesgo_pro @empresa, @cliente, 'E', @quitar,@en_euro
     END
  FETCH NEXT FROM lind INTO @recibido,@importe
  END
CLOSE lind
DEALLOCATE lind
DELETE lindeu2 WHERE empresa=@empresa AND numero=@numero AND serie=@serie
/**************************************************************************
* RECREAR LA DEUDA
**************************************************************************/
SELECT @sofotopon=CONVERT(DATETIME,'12/12/9999')
SELECT @maximo   =CONVERT(DATETIME,'01/01/1800')
SELECT @ultimo_automatico=1
SELECT @sumalin  =0
DECLARE linfp CURSOR FOR SELECT porcentaje,dias,recibido,
    cobrado,descrip,diasmax
    FROM linpago WHERE empresa=@empresa AND numero=@fp
OPEN linfp
FETCH NEXT FROM linfp INTO @porcentaje,@dias,@recibido,
    @cobrado,@descrip,@diasmax
WHILE (@@fetch_status <> -1)
  BEGIN
  IF (@@fetch_status <> -2)
     BEGIN
     IF @recibido<>'S'
    SELECT @recibido='N'
SELECT @porcentaje,@dias,@recibido,@cobrado,@descrip
     SELECT @importe=ROUND(@total*@porcentaje/100,@redondeo)
     SELECT @fecha2=dateadd(day,@dias,@fecha)
     EXEC SP_AJ_VENC @fecha2,@dia1,@dia2,@dia3,@dia4,@fechav OUT
SELECT @importe,@fechav
     SELECT @fechamaxr=dateadd(day,@diasmax,@fecha)

     SELECT @automatico=@recibido
     SELECT @cli_auto=@cliente
     IF @recibido='S'

    SELECT @fecharec=@fecha
     ELSE
    SELECT @fecharec=@sofotopon
     INSERT INTO lindeu2
            (empresa,serie,numero,
            porcentaje,
            dias,
            fechamaxr,
            importe,pagado_l,
            descripcio,recibido,
            automatico,cli_auto,fecharec,en_euro,
            fechades,
            memo)
            VALUES
            (@empresa,@serie,@numero,
            @porcentaje,
            @fechav,
            @fechamaxr,
            @importe,0,
            @descrip,@recibido,
            @recibido,@cliente,@fecharec,@en_euro,
            @sofotopon,
            '')
     IF @recibido='S'
    BEGIN
    SELECT @quitar=-@importe
    EXECUTE sp_riesgo_pro @empresa, @cliente, 'F', @quitar,@en_euro
    EXECUTE sp_riesgo_pro @empresa, @cliente, 'E', @importe,@en_euro

    END
     IF @cobrado='S'
    BEGIN
    SELECT @quitar=@QUITAR
    EXECUTE sp_pag_auto @empresa,@serie,@numero,@cliente,@importe,@fechav,@recibido,@en_euro
    END
     SELECT @sumalin=@sumalin+@importe
     IF @fechav>@maximo
    BEGIN
    SELECT @maximo=@fechav
    SELECT @ultimo_automatico=0
    IF @cobrado='S'
        SELECT @ultimo_automatico=1
    END
     END
  FETCH NEXT FROM linfp INTO @porcentaje,@dias,@recibido,
    @cobrado,@descrip,@diasmax
  END
CLOSE linfp
DEALLOCATE linfp
SELECT @diferencia=@total-@sumalin
IF @diferencia<>0
    BEGIN
    UPDATE lindeu2 SET importe=importe+@diferencia
        WHERE empresa=@empresa AND serie=@serie AND dias=@fechav
    DECLARE lind CURSOR FOR SELECT recibido,importe
        FROM lindeu2
        WHERE empresa=@empresa AND serie=@serie AND dias=@fechav
    OPEN lind
    FETCH NEXT FROM lind INTO @recibido,@importe
    CLOSE lind

    DEALLOCATE lind
    IF @recibido='S'
        BEGIN
        SELECT @quitar=-@diferencia
        EXECUTE sp_riesgo_pro @empresa, @cliente, 'F', @quitar,@en_euro
        EXECUTE sp_riesgo_pro @empresa, @cliente, 'E', @diferencia,@en_euro
        END
    IF @ultimo_automatico=1
        BEGIN
        SELECT @quitar=@QUITAR
        EXECUTE sp_pag_auto @empresa,@serie,@numero,@cliente,@importe,@maximo,@recibido,@en_euro
        END
    END










GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO






/****** Object:  Stored Procedure dbo.sp_linea_ped_pro    Script Date: 18/5/01 12:58:21 ******/
/****** Object:  Stored Procedure dbo.sp_linea_ped_pro    Script Date: 3/5/01 9:24:49 ******/
/****** Object:  Stored Procedure dbo.sp_linea_ped_pro    Script Date: 19/2/01 11:30:21 ******/
/****** Object:  Stored Procedure dbo.sp_linea_ped_pro    Script Date: 14/12/00 12:25:09 ******/
/****** Object:  Stored Procedure dbo.sp_linea_ped_pro    Script Date: 26/9/00 13:23:20 ******/
/****** Object:  Stored Procedure dbo.sp_linea_ped_pro    Script Date: 26/6/00 14:56:50 ******/
/****** Object:  Stored Procedure dbo.sp_linea_ped_pro    Script Date: 26/6/00 9:03:32 ******/
/****** Object:  Stored Procedure dbo.sp_linea_ped_pro    Script Date: 24/3/2000 10:08:30 ******/
/****** Object:  Stored Procedure dbo.sp_linea_ped_pro    Script Date: 23/3/2000 15:31:29 ******/
/****** Object:  Stored Procedure dbo.sp_linea_ped_pro    Script Date: 23/3/2000 11:25:17 ******/
/****** Object:  Stored Procedure dbo.sp_linea_ped_pro    Script Date: 16/3/2000 12:08:28 ******/
/****** Object:  Stored Procedure dbo.sp_linea_ped_pro    Script Date: 2/3/2000 8:30:20 ******/
CREATE PROCEDURE sp_linea_ped_pro
  @empresa CHAR(4), @serie CHAR(2), @numero FLOAT, @linea INT, @cantidad FLOAT
AS
DECLARE @cantidadx FLOAT
DECLARE @mensaje CHAR(255)
DECLARE @raiz       CHAR(16)

DECLARE @talla      CHAR(2)
DECLARE @color      CHAR(2)
DECLARE @desreservar  FLOAT
DECLARE @almacen      CHAR(4)
UPDATE lineacom SET servido = servido + @cantidad
    WHERE empresa = @empresa AND serie = @serie AND numero = @numero AND linea = @linea

IF @@ROWCOUNT=0
    RETURN
SELECT @raiz=raiz, @talla=talla,@color=color, @almacen=almacen
    FROM lineacom
    WHERE empresa = @empresa AND serie = @serie AND numero = @numero AND linea = @linea

SELECT @cantidad=-@cantidad
EXECUTE sp_xxx_stockpedi @empresa,@raiz,@talla,@color,@cantidad,@almacen








GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO


CREATE  PROCEDURE sp_mete_AlbPEnt
  @empresaF CHAR(4), @serieF CHAR(2), @numeroF FLOAT, @numeroA FLOAT
AS
DECLARE @lineaA FLOAT
DECLARE @lineaF FLOAT
DECLARE @num_ant_albaran FLOAT
DECLARE @factura_proveedo CHAR(10)
DECLARE @albaran_proveedo CHAR(10)
DECLARE @albaran_total    FLOAT
DECLARE @albaran_en_euro  FLOAT
DECLARE @factura_total_ant FLOAT
DECLARE @factura_total_nuevo FLOAT
DECLARE @a_imputar         FLOAT
DECLARE @en_euro           BIT
SELECT @num_ant_albaran = (SELECT albaran FROM entrada
      WHERE empresa = @empresaF AND serie = @serieF AND numero = @numeroF)
IF @num_ant_albaran <> 0 AND @num_ant_albaran <> @numeroA
  UPDATE entrada SET albaran = 9999999999
    WHERE empresa = @empresaF AND serie = @serieF AND numero = @numeroF
ELSE
  UPDATE entrada SET albaran = @numeroA
    WHERE empresa = @empresaF AND serie = @serieF AND numero = @numeroF
SELECT @albaran_proveedo = proveedo,
        @albaran_total = -total, @albaran_en_euro = en_euro
    FROM albpro
    WHERE empresa = @empresaF AND serie = @serieF AND numero = @numeroA
DECLARE cLineasAlb CURSOR FOR
    SELECT linalbp.linea FROM linalbp
        WHERE linalbp.empresa=@empresaF AND linalbp.serie = @serieF
            AND linalbp.numero = @numeroA
OPEN cLineasAlb
FETCH NEXT FROM cLineasAlb INTO @lineaA
WHILE (@@fetch_status <> -1)
    BEGIN
    IF (@@fetch_status <> -2)
        BEGIN
        EXECUTE sp_xxx_da_linea_srv 'lineaent', @empresaF, @serieF, @numeroF, @lineaF OUTPUT
/*
PRINT 'LA TRAZA '
SELECT @LINEAF
*/
        INSERT INTO lineaent
            (centrol,ccl,empresa, serie, numero, linea, raiz, talla, color, descripcio, precio,
            cantidad, almacen, dto, precio_sin, total_l, memo, foto, sonido, albaran,
            lineaalb, lineaped, A_PRE, A_PRE_S, A_TOT_L, largo, ancho, alto, en_euro)
            SELECT centrol,ccl,empresa, serie, numero = @numeroF, linea = @lineaF, raiz, talla, color,
                    descripcio, precio, cantidad, almacen, dto, precio_sin, total_l, memo, foto, sonido,
                    albaran = @numeroA, linalbp = @lineaA, lineaped, A_PRE, A_PRE_S, A_TOT_L, largo, ancho, alto, en_euro empresa
                FROM linalbp
                WHERE empresa = @empresaF AND serie = @serieF AND numero = @numeroA AND linea = @lineaA
        UPDATE linalbp SET lineafac = @lineaF
            WHERE empresa = @empresaF AND serie = @serieF
                AND numero = @numeroA AND linea = @lineaA

        FETCH NEXT FROM cLineasAlb INTO @lineaA
      END
    END
CLOSE cLineasAlb
DEALLOCATE cLineasAlb
EXECUTE sp_riesgo_pro @empresaF, @albaran_proveedo, 'P', @albaran_total, @albaran_en_euro
UPDATE albpro SET factura = @numeroF, seriefac = @serieF
        WHERE empresa = @empresaF AND serie = @serieF AND numero = @numeroA
/*resumar la entrada*/
SELECT @factura_total_ant=total, @factura_proveedo=cliente, @en_euro=en_euro
    FROM entrada
    WHERE empresa=@empresaF AND serie=@serieF AND numero=@numeroF
EXEC sp_resumap 'entrada', @empresaF, @serieF, @numeroF
SELECT @factura_total_nuevo = total

    FROM entrada
    WHERE empresa=@empresaF AND serie=@serieF AND numero=@numeroF
SELECT @a_imputar = @factura_total_nuevo - @factura_total_ant
EXECUTE sp_riesgo_pro @empresaF, @factura_proveedo, 'F', @a_imputar, @en_euro









GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO



CREATE PROCEDURE sp_resuma
  @fichero CHAR(10),@empresa CHAR(4), @serie CHAR(2), @numero FLOAT
AS
DECLARE @s1   FLOAT
DECLARE @s2   FLOAT
DECLARE @s3   FLOAT

DECLARE @s4   FLOAT
DECLARE @raiz    CHAR(16)
DECLARE @talla   CHAR(2)
DECLARE @color   CHAR(2)
DECLARE @tipo_iva FLOAT
DECLARE @total_l  FLOAT
DECLARE @tipoiva    INT
DECLARE @cliente        CHAR(10)
DECLARE @fecha   DATETIME
DECLARE @suma1   FLOAT
DECLARE @suma2   FLOAT
DECLARE @suma3   FLOAT
DECLARE @suma4   FLOAT
DECLARE @recargo1   FLOAT
DECLARE @recargo2   FLOAT
DECLARE @recargo3   FLOAT
DECLARE @recargo4   FLOAT
DECLARE @dto1    FLOAT
DECLARE @dto2    FLOAT
DECLARE @dto3    FLOAT
DECLARE @dto4    FLOAT
DECLARE @base1   FLOAT
DECLARE @base2   FLOAT
DECLARE @base3   FLOAT

DECLARE @base4   FLOAT
DECLARE @iva1    FLOAT
DECLARE @iva2    FLOAT
DECLARE @iva3    FLOAT
DECLARE @iva4    FLOAT
DECLARE @re1    FLOAT
DECLARE @re2    FLOAT
DECLARE @re3    FLOAT
DECLARE @re4    FLOAT
DECLARE @dto_c   FLOAT
DECLARE @dto_p   FLOAT
DECLARE @dto_rec FLOAT
DECLARE @p_reten FLOAT
DECLARE @rec_fin FLOAT
DECLARE @en_euro BIT
DECLARE @total   FLOAT
DECLARE @imp_ret FLOAT
DECLARE @importe FLOAT
DECLARE @codigo  CHAR(10)
DECLARE @tipo    CHAR(1)
DECLARE @tabla   FLOAT
DECLARE @cantidad FLOAT
DECLARE @almacen CHAR(4)
DECLARE @albaran FLOAT
DECLARE @pedido FLOAT
DECLARE @linea INT
DECLARE @RETURNMESSAGE CHAR(200)
SELECT @fichero=RTRIM(LTRIM(LOWER(@fichero)))
SELECT @s1=0,@s2=0,@s3=0,@s4=0
IF @fichero='salidas'
    BEGIN

    DECLARE sss CURSOR FOR SELECT SUM(cantidad*precio),0,0,0
        FROM linsal
        WHERE empresa=@empresa AND numero=@numero
    FETCH NEXT FROM sss INTO @s1, @s2,@s3,@s4
    CLOSE sss
    DEALLOCATE sss
    UPDATE salidas SET total=@s1+@s2+@s3+@s4
    RETURN
    END
/******************************************************************************************
******************************************************************************************/
IF @fichero='ofertas'
    BEGIN
    DECLARE sss CURSOR FOR SELECT total_l,articulo.tipo_iva
        FROM lineaofe,articulo
        WHERE lineaofe.empresa=@empresa AND lineaofe.serie=@serie
            AND lineaofe.numero=@numero
            AND articulo.empresa=@empresa AND articulo.raiz=lineaofe.raiz
            AND articulo.talla=lineaofe.talla AND articulo.color=lineaofe.color
            AND lineaofe.suma<>'N'
    SELECT @codigo = cliente, @importe=total,
        @dto_c=dto_c,@dto_p=dto_p,@dto_rec=dto_rec,@fecha=fecha,
        @suma1=suma1,@suma2=suma2,@suma3=suma3,@suma4=suma4,
        @recargo1=recargo1,@recargo2=recargo2,@recargo3=recargo3,@recargo4=recargo4,
        @p_reten = p_reten, @rec_fin=rec_fin, @en_euro = en_euro
        FROM ofertas
        WHERE empresa=@empresa AND serie=@serie AND numero=@numero
    END
IF @fichero='plantill'
    BEGIN
    DECLARE sss CURSOR FOR SELECT total_l,articulo.tipo_iva
        FROM lineapla,articulo
        WHERE lineapla.empresa=@empresa AND lineapla.serie=@serie
            AND lineapla.numero=@numero
            AND articulo.empresa=@empresa AND articulo.raiz=lineapla.raiz
            AND articulo.talla=lineapla.talla AND articulo.color=lineapla.color
    SELECT @codigo = cliente, @importe=total,
        @dto_c=dto_c,@dto_p=dto_p,@dto_rec=dto_rec,@fecha=fecha,
        @suma1=suma1,@suma2=suma2,@suma3=suma3,@suma4=suma4,
        @recargo1=recargo1,@recargo2=recargo2,@recargo3=recargo3,@recargo4=recargo4,
        @p_reten = p_reten, @rec_fin=rec_fin, @en_euro = en_euro
        FROM plantill
        WHERE empresa=@empresa AND serie=@serie AND numero=@numero
    END
IF @fichero='pedido'
    BEGIN
    DECLARE sss CURSOR FOR SELECT total_l,articulo.tipo_iva
        FROM lineaped,articulo
        WHERE lineaped.empresa=@empresa AND lineaped.serie=@serie
            AND lineaped.numero=@numero
            AND articulo.empresa=@empresa AND articulo.raiz=lineaped.raiz
            AND articulo.talla=lineaped.talla AND articulo.color=lineaped.color
    SELECT @codigo = cliente, @importe=total,
        @dto_c=dto_c,@dto_p=dto_p,@dto_rec=dto_rec,@fecha=fecha,
        @suma1=suma1,@suma2=suma2,@suma3=suma3,@suma4=suma4,
        @recargo1=recargo1,@recargo2=recargo2,@recargo3=recargo3,@recargo4=recargo4,
        @p_reten = p_reten, @rec_fin=rec_fin, @en_euro = en_euro
        FROM pedido
        WHERE empresa=@empresa AND serie=@serie AND numero=@numero
    END
IF @fichero='albaran'
    BEGIN
    DECLARE sss CURSOR FOR SELECT total_l,articulo.tipo_iva
        FROM lineaalb,articulo
        WHERE lineaalb.empresa=@empresa AND lineaalb.serie=@serie
            AND lineaalb.numero=@numero
            AND articulo.empresa=@empresa AND articulo.raiz=lineaalb.raiz
            AND articulo.talla=lineaalb.talla AND articulo.color=lineaalb.color
    SELECT @codigo = cliente, @importe=total,
        @dto_c=dto_c,@dto_p=dto_p,@dto_rec=dto_rec,@fecha=fecha,
        @suma1=suma1,@suma2=suma2,@suma3=suma3,@suma4=suma4,
        @recargo1=recargo1,@recargo2=recargo2,@recargo3=recargo3,@recargo4=recargo4,
        @p_reten = p_reten, @rec_fin=rec_fin, @en_euro = en_euro
        FROM albaran
        WHERE empresa=@empresa AND serie=@serie AND numero=@numero
    END
IF @fichero='factura'
    BEGIN
    DECLARE sss CURSOR FOR SELECT total_l,articulo.tipo_iva
        FROM lineafac,articulo
        WHERE lineafac.empresa=@empresa AND lineafac.serie=@serie
            AND lineafac.numero=@numero
            AND articulo.empresa=@empresa AND articulo.raiz=lineafac.raiz
            AND articulo.talla=lineafac.talla AND articulo.color=lineafac.color
    SELECT @codigo = cliente, @importe=total,
        @dto_c=dto_c,@dto_p=dto_p,@dto_rec=dto_rec,@fecha=fecha,
        @suma1=suma1,@suma2=suma2,@suma3=suma3,@suma4=suma4,
        @recargo1=recargo1,@recargo2=recargo2,@recargo3=recargo3,@recargo4=recargo4,
        @p_reten = p_reten, @rec_fin=rec_fin, @en_euro = en_euro
        FROM factura
        WHERE empresa=@empresa AND serie=@serie AND numero=@numero
    END
OPEN sss
FETCH NEXT FROM sss INTO @total_l,@tipo_iva
WHILE (@@fetch_status <> -1)
    BEGIN
    IF (@@fetch_status <> -2)
        BEGIN
        IF @tipo_iva=NULL
            SELECT @tipo_iva=1
        IF @tipo_iva>4
            SELECT @tipo_iva=1
        IF @tipo_iva<1
            SELECT @tipo_iva=1
        IF @total_l= NULL
            SELECT @total_l=0

        IF @tipo_iva=1
            SELECT @s1=@s1+@total_l
        IF @tipo_iva=2
            SELECT @s2=@s2+@total_l
        IF @tipo_iva=3
            SELECT @s3=@s3+@total_l
        IF @tipo_iva=4
            SELECT @s4=@s4+@total_l
        END
    FETCH NEXT FROM sss INTO @total_l,@tipo_iva
    END
CLOSE sss
DEALLOCATE sss
EXEC sp_xxx_calcular @empresa,@serie, @codigo,@fecha,
    @dto_c,@dto_p,@dto_rec,
    @s1,@s2,@s3,@s4,
    @recargo1,@recargo2,@recargo3,@recargo4, @p_reten, @rec_fin, @en_euro,
    @dto1 OUTPUT,@dto2 OUTPUT,@dto3 OUTPUT,@dto4 OUTPUT,
    @base1 OUTPUT,@base2 OUTPUT,@base3 OUTPUT,@base4 OUTPUT,
    @iva1 OUTPUT,@iva2 OUTPUT,@iva3 OUTPUT,@iva4 OUTPUT,
    @re1 OUTPUT,@re2 OUTPUT,@re3 OUTPUT,@re4 OUTPUT, @imp_ret OUTPUT, @total OUTPUT
IF @fichero='ofertas'
    UPDATE ofertas SET suma1=@s1,suma2=@s2,suma3=@s3, suma4=@s4,
        dto1=@dto1,dto2=@dto2,dto3=@dto3,dto4=@dto4,
        base1=@base1,base2=@base2,base3=@base3,base4=@base4,
        iva1=@iva1,iva2=@iva2,iva3=@iva3,iva4=@iva4,
        re1=@re1,re2=@re2,re3=@re3,re4=@re4, imp_ret = @imp_ret, total = @total
    WHERE empresa=@empresa AND serie=@serie AND numero=@numero
IF @fichero='plantill'
    UPDATE plantill SET suma1=@s1,suma2=@s2,suma3=@s3, suma4=@s4,
        dto1=@dto1,dto2=@dto2,dto3=@dto3,dto4=@dto4,
        base1=@base1,base2=@base2,base3=@base3,base4=@base4,
        iva1=@iva1,iva2=@iva2,iva3=@iva3,iva4=@iva4,
        re1=@re1,re2=@re2,re3=@re3,re4=@re4, imp_ret = @imp_ret, total = @total
    WHERE empresa=@empresa AND serie=@serie AND numero=@numero
IF @fichero='albaran'
    UPDATE albaran SET suma1=@s1,suma2=@s2,suma3=@s3, suma4=@s4,
        dto1=@dto1,dto2=@dto2,dto3=@dto3,dto4=@dto4,
        base1=@base1,base2=@base2,base3=@base3,base4=@base4,
        iva1=@iva1,iva2=@iva2,iva3=@iva3,iva4=@iva4,
        re1=@re1,re2=@re2,re3=@re3,re4=@re4, imp_ret = @imp_ret, total = @total
    WHERE empresa=@empresa AND serie=@serie AND numero=@numero
IF @fichero='pedido'
    UPDATE pedido SET suma1=@s1,suma2=@s2,suma3=@s3, suma4=@s4,
        dto1=@dto1,dto2=@dto2,dto3=@dto3,dto4=@dto4,
        base1=@base1,base2=@base2,base3=@base3,base4=@base4,
        iva1=@iva1,iva2=@iva2,iva3=@iva3,iva4=@iva4,
        re1=@re1,re2=@re2,re3=@re3,re4=@re4, imp_ret = @imp_ret, total = @total
    WHERE empresa=@empresa AND serie=@serie AND numero=@numero
IF @fichero='factura'
    UPDATE factura SET suma1=@s1,suma2=@s2,suma3=@s3, suma4=@s4,
        dto1=@dto1,dto2=@dto2,dto3=@dto3,dto4=@dto4,
        base1=@base1,base2=@base2,base3=@base3,base4=@base4,
        iva1=@iva1,iva2=@iva2,iva3=@iva3,iva4=@iva4,
        re1=@re1,re2=@re2,re3=@re3,re4=@re4, imp_ret = @imp_ret, total = @total
    WHERE empresa=@empresa AND serie=@serie AND numero=@numero


GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO






/****** Object:  Stored Procedure dbo.sp_riesgo_cli    Script Date: 18/5/01 12:58:21 ******/
/****** Object:  Stored Procedure dbo.sp_riesgo_cli    Script Date: 3/5/01 9:24:49 ******/
CREATE PROCEDURE sp_riesgo_cli
    @empresa CHAR(4), @codigo CHAR(10), @tipo CHAR(1),
    @importe FLOAT, @en_euro BIT
AS
DECLARE @madre        CHAR(10)
DECLARE @tipomad    FLOAT
DECLARE @defecto    CHAR(1)
DECLARE @riesgo_pf      FLOAT
DECLARE @riesgo_f       FLOAT
DECLARE @riesgo_ef      FLOAT
DECLARE @riesgo_t       FLOAT
DECLARE @riesgo_l       FLOAT
DECLARE @mensaje        CHAR(255)
DECLARE @codigo_inicial CHAR(10)
IF @empresa = NULL
    RETURN
SELECT @codigo_inicial=@codigo
DECLARE clicli CURSOR FOR SELECT madre,tipomad,riesgo_pf,riesgo_f,riesgo_ef,riesgo_t,riesgo_l
    FROM cli2 WHERE empresa=@empresa AND codigo=@codigo
OPEN clicli
FETCH NEXT FROM clicli INTO @madre,@tipomad,@riesgo_pf,@riesgo_f,@riesgo_ef,@riesgo_t,@riesgo_l
CLOSE clicli
IF @tipomad=3
    BEGIN
      SELECT @codigo=@madre
      OPEN clicli
      FETCH NEXT FROM clicli INTO @madre,@tipomad,@riesgo_pf,@riesgo_f,@riesgo_ef,@riesgo_t,@riesgo_l
      CLOSE clicli
    END
SELECT @defecto = defecto FROM empresa WHERE empresa = @empresa
IF @defecto = 'E' AND @en_euro = 0

    SELECT @importe = @importe * (SELECT sy_c2 FROM sistemad)
IF @defecto = 'P' AND @en_euro = 1
    SELECT @importe = @importe * (SELECT sy_c1 FROM sistemad)

IF @tipo='P'
    SELECT @riesgo_pf=@riesgo_pf+@importe
IF @tipo='F'
    SELECT @riesgo_f =@riesgo_f +@importe
IF @tipo='E'
    SELECT @riesgo_ef=@riesgo_ef+@importe
SELECT @riesgo_t=@riesgo_pf+@riesgo_f+@riesgo_ef
UPDATE cli2 SET riesgo_pf=@riesgo_pf,riesgo_f=@riesgo_f,
        riesgo_ef=@riesgo_ef,riesgo_t=@riesgo_t
        WHERE empresa=@empresa AND codigo=@codigo
DEALLOCATE clicli
IF @riesgo_l<>0
    BEGIN
    IF @riesgo_t>@riesgo_l
        BEGIN
        SELECT @mensaje='El cliente ' + @codigo_inicial+ ' supera el importe máximo de riesgo permitido'
        EXEC sp_xxx_PONmsg @mensaje
        END
    END
RETURN






GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO




CREATE PROCEDURE sp_xxx_stock
    @empresa CHAR(4),
    @raiz CHAR(16), @talla CHAR(2), @color CHAR(2),
    @cantidad FLOAT, @almacen CHAR(4)
AS
DECLARE @comp_raiz    CHAR(16)
DECLARE @comp_talla    CHAR(2)
DECLARE @comp_color    CHAR(2)
DECLARE @kit        CHAR(1)
DECLARE @ss             FLOAT
DECLARE @msg            CHAR(255)
DECLARE @cant_original  FLOAT
DECLARE @defecto        CHAR(1)
DECLARE @en_euro        BIT
DECLARE @mensaje        CHAR(255)
DECLARE @servicio        BIT
SELECT @cant_original=@cantidad
SELECT @KIT=kit FROM arti2 WHERE empresa = @empresa AND raiz = @raiz AND talla = @talla AND color = @color
SELECT @kit=ISNULL(@kit,' ')
/*
SELECT @mensaje='---> KIT'+@KIT+'.'
exec sp_xxx_ponmsg @mensaje
*/
IF @KIT <> 'K'
    BEGIN
    SELECT @servicio=servicio FROM articulo WHERE empresa=@empresa AND raiz = @raiz AND talla = @talla AND color = @color
    SELECT @servicio=ISNULL(@servicio,0)
    IF @servicio=1
        RETURN
    IF NOT EXISTS (SELECT * FROM exist WHERE empresa = @empresa AND almacen = @almacen
            AND raiz = @raiz AND talla = @talla AND color = @color)
        BEGIN
        SELECT @defecto=(SELECT defecto FROM empresa WHERE empresa=@empresa)
        SELECT @en_euro=0
        IF @defecto='E'
            SELECT @en_euro=1
        INSERT INTO exist (empresa, raiz, talla, color, almacen, stock_rese, stock,
            stock_min, stock_ini, stock_pedi, stock_max, ubicacion, en_euro, clav_1)
            VALUES (@empresa, @raiz, @talla, @color, @almacen, 0, 0, 0, 0, 0, 0, '', 0, @empresa+@raiz+@talla+@color+@almacen)
        END
    UPDATE exist SET stock = stock - @cantidad
        WHERE empresa = @empresa AND almacen = @almacen AND
            raiz = @raiz AND talla = @talla AND color = @color
    IF (@cantidad>0) AND (SELECT stock FROM exist WHERE empresa = @empresa
            AND almacen = @almacen AND raiz = @raiz AND talla = @talla AND color = @color) < 0
        BEGIN
        SELECT @msg='No hay STOCK del articulo '+@raiz
        EXEC sp_xxx_PONmsg @msg
        END
    UPDATE arti2 SET e_vidau = e_vidau - @cantidad, e_vidap = costemed * e_vidau
        WHERE empresa = @empresa AND raiz = @raiz AND talla = @talla AND color = @color
    END
ELSE
    BEGIN
    DECLARE componentes CURSOR FOR SELECT comp_raiz, comp_talla, comp_color, cantidad
        FROM linkit2 WHERE empresa = @empresa
        AND raiz = @raiz AND talla = @talla AND color = @color
    OPEN componentes
    FETCH NEXT FROM componentes INTO @comp_raiz, @comp_talla, @comp_color, @cantidad
    WHILE (@@fetch_status <> -1)
        BEGIN
        IF (@@fetch_status <> -2)
            BEGIN
            SELECT @servicio=servicio FROM articulo WHERE empresa=@empresa AND raiz = @comp_raiz AND talla = @comp_talla AND color = @comp_color
            SELECT @servicio=ISNULL(@servicio,0)
            IF @servicio=0
                BEGIN
                IF NOT EXISTS (SELECT * FROM exist WHERE empresa = @empresa AND almacen = @almacen
                                  AND raiz = @comp_raiz AND talla = @comp_talla AND color = @comp_color)
                    BEGIN
                    SELECT @defecto=(SELECT defecto FROM empresa WHERE empresa=@empresa)
                    SELECT @en_euro=0
                    IF @defecto='E'
                        SELECT @en_euro=1
                    INSERT INTO exist (empresa, raiz, talla, color, almacen, stock_rese, stock,
                                   stock_min, stock_ini, stock_pedi, stock_max, ubicacion, en_euro, clav_1)
                        VALUES (@empresa, @comp_raiz, @comp_talla, @comp_color, @almacen, 0,
                            -@cantidad*@cant_original, 0, 0, 0, 0, '', 0, @empresa+@comp_raiz+@comp_talla+@comp_color+@almacen)
                    END
                ELSE
                    BEGIN
                    UPDATE exist SET stock = stock - (@cantidad *@cant_original)
                        WHERE empresa = @empresa AND almacen = @almacen
                            AND raiz = @comp_raiz AND talla = @comp_talla AND color = @comp_color
                    UPDATE arti2 SET e_vidau = e_vidau - @cantidad, e_vidap = costemed * e_vidau
                        WHERE empresa = @empresa AND raiz = @comp_raiz AND talla = @comp_talla AND color = @comp_color
                    END
                IF (@cantidad>0) AND (SELECT stock FROM exist WHERE empresa = @empresa
                         AND almacen = @almacen AND raiz = @comp_raiz AND talla = @comp_talla AND color = @comp_color) < 0
                    BEGIN
                    SELECT @msg='No hay STOCK del articulo '+@comp_raiz
                    EXEC sp_xxx_PONmsg @msg
                    END
                END
            FETCH NEXT FROM componentes INTO @comp_raiz, @comp_talla, @comp_color, @cantidad
            END
        END
    CLOSE componentes
    DEALLOCATE componentes
    END
RETURN



GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO






/****** Object:  Stored Procedure dbo.sp_xxx_stockresrv    Script Date: 18/5/01 12:58:21 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_stockresrv    Script Date: 3/5/01 9:24:49 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_stockresrv    Script Date: 19/2/01 11:30:21 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_stockresrv    Script Date: 14/12/00 12:25:09 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_stockresrv    Script Date: 26/9/00 13:23:19 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_stockresrv    Script Date: 26/6/00 14:56:51 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_stockresrv    Script Date: 26/6/00 9:03:33 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_stockresrv    Script Date: 24/3/2000 10:08:30 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_stockresrv    Script Date: 23/3/2000 15:31:29 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_stockresrv    Script Date: 23/3/2000 11:25:17 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_stockresrv    Script Date: 16/3/2000 12:08:28 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_stockresrv    Script Date: 2/3/2000 8:30:20 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_stockresrv    Script Date: 24/6/99 13:59:38 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_stockresrv    Script Date: 7/6/99 11:50:37 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_stockresrv    Script Date: 1/6/99 12:01:59 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_stockresrv    Script Date: 1/6/99 9:54:58 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_stockresrv    Script Date: 19/5/99 12:02:25 ******/
/****** Object:  Stored Procedure dbo.sp_xxx_stockresrv    Script Date: 7/5/99 12:50:05 ******/
CREATE PROCEDURE sp_xxx_stockresrv
    @empresa CHAR(4), @raiz CHAR(16), @talla CHAR(2), @color CHAR(2), @cantidad FLOAT, @almacen CHAR(4)
AS
DECLARE @comp_raiz    CHAR(16)
DECLARE @comp_talla    CHAR(2)
DECLARE @comp_color    CHAR(2)
DECLARE @kit        CHAR(1)
DECLARE @ss         FLOAT
DECLARE @en_euro        BIT
DECLARE @defecto        CHAR(1)
DECLARE @mensaje        CHAR(255)
DECLARE @cant_original  FLOAT
SELECT @cant_original=@cantidad
SELECT @KIT=kit FROM articulo WHERE empresa = @empresa AND raiz = @raiz AND talla = @talla AND color = @color
IF @KIT <> 'K'
BEGIN
  IF NOT EXISTS (SELECT * FROM exist WHERE empresa = @empresa AND almacen = @almacen
       AND raiz = @raiz AND talla = @talla AND color = @color)
        BEGIN
        SELECT @defecto=(SELECT defecto FROM empresa WHERE empresa=@empresa)
        SELECT @en_euro=0
        IF @defecto='E'
            SELECT @en_euro=1
        INSERT INTO exist (empresa, raiz, talla, color, almacen, stock_rese, stock,
            stock_min, stock_ini, stock_pedi, stock_max, ubicacion, en_euro, clav_1)
            VALUES (@empresa, @raiz, @talla, @color, @almacen, 0, 0, 0, 0, 0, 0, '', @en_euro, @empresa+@raiz+@talla+@color+@almacen)
        END
  UPDATE exist SET stock = stock - @cantidad, stock_rese = stock_rese + @cantidad
    WHERE empresa = @empresa AND almacen = @almacen AND
            raiz = @raiz AND talla = @talla AND color = @color
  IF (SELECT stock FROM exist WHERE empresa = @empresa
        AND almacen = @almacen AND raiz = @raiz AND talla = @talla AND color = @color) < 0
    BEGIN
      SELECT @mensaje='No hay stock del articulo '+@raiz+@talla+@color
      EXEC sp_xxx_PONmsg @mensaje
    END
END
ELSE
BEGIN
  DECLARE componentes CURSOR FOR SELECT comp_raiz, comp_talla, comp_color, cantidad
    FROM linkit2 WHERE empresa = @empresa
            AND raiz = @raiz AND talla = @talla AND color = @color
  OPEN componentes
  FETCH NEXT FROM componentes INTO @comp_raiz, @comp_talla, @comp_color, @cantidad
  WHILE (@@fetch_status <> -1)
  BEGIN
    IF (@@fetch_status <> -2)
      IF NOT EXISTS (SELECT * FROM exist WHERE empresa = @empresa AND almacen = @almacen
                      AND raiz = @comp_raiz AND talla = @comp_talla AND color = @comp_color)
        BEGIN
        SELECT @defecto=(SELECT defecto FROM empresa WHERE empresa=@empresa)
        SELECT @en_euro=0
        IF @defecto='E'
            SELECT @en_euro=1
        INSERT INTO exist (empresa, raiz, talla, color, almacen, stock_rese, stock,
            stock_min, stock_ini, stock_pedi, stock_max, ubicacion, en_euro, clav_1)
            VALUES (@empresa, @comp_raiz, @comp_talla, @comp_color, @almacen, @cantidad*@cant_original, -@cantidad*@cant_original,
            0, 0, 0, 0, '', @en_euro, @empresa+@comp_raiz+@comp_talla+@comp_color+@almacen)
        END
      ELSE
        BEGIN
          UPDATE exist SET stock = stock - (@cantidad*@cant_original),
             stock_rese = stock_rese + (@cantidad*@cant_original)
            WHERE empresa = @empresa AND almacen = @almacen
            AND raiz = @comp_raiz AND talla = @comp_talla AND color = @comp_color
          IF (SELECT stock FROM exist WHERE empresa = @empresa
              AND almacen = @almacen AND raiz = @comp_raiz AND talla = @comp_talla AND color = @comp_color) < 0
          BEGIN
          SELECT @mensaje='No hay stock del articulo '+@comp_raiz+@comp_talla+@comp_color
          EXEC sp_xxx_PONmsg @mensaje
          END
        END
/* ------------------------------  TRAZA --------------------------------------------
DECLARE @@returnmessage    varchar(255)
SELECT @@returnmessage = 'En linkit2 de reseva: ' + @comp_raiz + RTRIM(CONVERT(char(30), @cantidad)) + '.'
PRINT @@returnmessage
 ------------------------------  TRAZA --------------------------------------------*/
    FETCH NEXT FROM componentes INTO @comp_raiz, @comp_talla, @comp_color, @cantidad
  END
  CLOSE componentes
  DEALLOCATE componentes
END








GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO





CREATE  PROCEDURE sp_haz_deuda
  @empresa CHAR(4), @serie CHAR(2), @numero FLOAT
AS
DECLARE @mensaje    CHAR(255)
DECLARE @en_euro    BIT
DECLARE @fp         CHAR(4)
DECLARE @redondeo   FLOAT
DECLARE @cliente    CHAR(10)
DECLARE @porcentaje FLOAT
DECLARE @dias       FLOAT
DECLARE @recibido   CHAR(1)
DECLARE @cobrado    CHAR(1)
DECLARE @descrip    CHAR(40)
DECLARE @total      FLOAT
DECLARE @importe    FLOAT
DECLARE @fecha      DATETIME
DECLARE @fechav     DATETIME
DECLARE @fecha2     DATETIME
DECLARE @diasx      DATETIME
DECLARE @fechamaxr  DATETIME
DECLARE @fecharec   DATETIME
DECLARE @fechades   DATETIME
DECLARE @automatico CHAR(1)
DECLARE @cli_auto   CHAR(10)
DECLARE @enlazado   CHAR(1)
DECLARE @fecha_r    DATETIME
DECLARE @sofotopon  DATETIME
DECLARE @diasmax    FLOAT
DECLARE @dia1       FLOAT
DECLARE @dia2       FLOAT
DECLARE @dia3       FLOAT
DECLARE @dia4       FLOAT
DECLARE @vaca1      DATETIME
DECLARE @vaca2      DATETIME
DECLARE @quitar     FLOAT
DECLARE @maximo     DATETIME
DECLARE @sumalin    FLOAT
DECLARE @ultimo_automatico BIT
DECLARE @diferencia FLOAT
DECLARE @ic         FLOAT
DECLARE @dc         DATETIME
DECLARE @rc         CHAR(1)
DECLARE @tc         CHAR(1)
DECLARE @ec         BIT
DECLARE @sy_c1      FLOAT
DECLARE @sy_c2      FLOAT
IF EXISTS (SELECT * FROM lindeud
        WHERE empresa = @empresa AND serie=@serie
            AND numero=@numero AND automatico<>'S'
            AND (recibido='S' OR devuelto='S')
          )
      BEGIN
      EXEC sp_xxx_PONmsg 'Hay efectos recibidos o devueltos. No se ha recalculado la deuda'
      RETURN
      END
IF EXISTS (SELECT * FROM cobros
        WHERE empresa = @empresa AND serie=@serie
            AND factura=@numero AND automatico<>'S'
          )
      BEGIN
      EXEC sp_xxx_PONmsg 'Hay cobros de la factura. No se ha recalculado la deuda'
      RETURN
      END
IF EXISTS (SELECT * FROM cobros
        WHERE empresa = @empresa AND serie=@serie
            AND factura=@numero AND automatico='S' AND enlazado='S'
          )
      BEGIN
      EXEC sp_xxx_PONmsg 'Hay cobros contabilizados. No se ha recalculado la deuda, ni se ha alterado el cobro'
      RETURN
      END
/****************************************************************************
*****************************************************************************
****** A PATIR DE AQUI YA NO HAY IMPEDIMENTO PARA REGENERAR LA DEUDA ********
****************************************************************************/
DECLARE facfac CURSOR FOR SELECT pago,en_euro,cliente,total,fecha
    FROM factura WHERE empresa=@empresa AND serie=@serie AND numero=@numero
OPEN facfac
FETCH NEXT FROM facfac INTO @fp,@en_euro,@cliente,@total,@fecha
CLOSE facfac

DEALLOCATE facfac
SELECT @redondeo=0
IF @en_euro=1
    SELECT @redondeo=2
/*
select 'forma pago'=@fp,'cliente '=@cliente,'en_euro'=@en_euro,'redondeo '=@redondeo
*/
DECLARE clicli CURSOR FOR SELECT pago1,pago2,pago3,pago4,vaca1,vaca2
    FROM clientes WHERE empresa=@empresa AND codigo=@cliente
OPEN clicli
FETCH NEXT FROM clicli INTO @dia1,@dia2,@dia3,@dia4,@vaca1,@vaca2
CLOSE clicli
DEALLOCATE clicli
/*
select dia1=@dia1,dia2=@dia2,dia3=@dia3,dia4=@dia4
*/
/**************************************************************************
*** DESHACER LAS IMPUTACIONES EN COBROS Y EFECTOS RECIBIDOS
**************************************************************************/
SELECT @sy_c1=(SELECT sy_c1 FROM sistemad WHERE id=1)
SELECT @sy_c2=(SELECT sy_c2 FROM sistemad WHERE id=1)
DECLARE lc CURSOR FOR SELECT cobros.importe_c, cobros.dias, lindeud.recibido, cobros.en_euro
    FROM cobros, lindeud
    WHERE cobros.empresa=@empresa AND cobros.serie=@serie AND cobros.factura=@numero
        AND lindeud.empresa=@empresa AND lindeud.serie=@serie AND lindeud.numero=@numero
        AND lindeud.dias=cobros.dias
OPEN lc
FETCH NEXT FROM lc INTO @ic,@dc,@rc,@ec
WHILE (@@fetch_status <> -1)
  BEGIN
  IF (@@fetch_status <> -2)
     BEGIN
    /*DESHACER*/
     SELECT @tc='E'
     IF @rc='N'
    SELECT @tc='F'
/*
SELECT 'EL COBRO '=@IC,' DIAS '=@DC
*/
     EXECUTE sp_riesgo_cli @empresa, @cliente, @tc, @ic, @ec
     IF @en_euro<>@ec
    BEGIN
    IF @ec=1
        SELECT @ic=ROUND(@ic*@sy_c2,0)
    ELSE
        SELECT @ic=ROUND(@ic*@sy_c1,2)
    END
     UPDATE factura SET pagado=pagado-@ic
    WHERE empresa=@empresa AND serie=@serie AND numero=@numero

     END
  FETCH NEXT FROM lc INTO @ic,@dc,@rc,@ec
  END
CLOSE lc
DEALLOCATE lc
DELETE cobros  WHERE empresa=@empresa AND factura=@numero AND serie=@serie
DECLARE lind CURSOR FOR SELECT recibido,importe
    FROM lindeud
    WHERE empresa=@empresa AND serie=@serie AND numero=@numero
        AND recibido='S'
OPEN lind
FETCH NEXT FROM lind INTO @recibido,@importe
WHILE (@@fetch_status <> -1)
  BEGIN
  IF (@@fetch_status <> -2)
     BEGIN
    /*DESHACER*/
     SELECT @quitar=-@importe
     EXECUTE sp_riesgo_cli @empresa, @cliente, 'F', @importe,@en_euro
     EXECUTE sp_riesgo_cli @empresa, @cliente, 'E', @quitar,@en_euro
     END
  FETCH NEXT FROM lind INTO @recibido,@importe
  END
CLOSE lind
DEALLOCATE lind
DELETE lindeud WHERE empresa=@empresa AND numero=@numero AND serie=@serie
/**************************************************************************
* RECREAR LA DEUDA
**************************************************************************/
SELECT @sofotopon=CONVERT(DATETIME,'12/12/9999')

SELECT @maximo   =CONVERT(DATETIME,'01/01/1800')
SELECT @ultimo_automatico=1
SELECT @sumalin  =0
DECLARE linfp CURSOR FOR SELECT porcentaje,dias,recibido,
    cobrado,descrip,diasmax
    FROM linpago WHERE empresa=@empresa AND numero=@fp
OPEN linfp
FETCH NEXT FROM linfp INTO @porcentaje,@dias,@recibido,
    @cobrado,@descrip,@diasmax
WHILE (@@fetch_status <> -1)
  BEGIN
  IF (@@fetch_status <> -2)
     BEGIN
     IF @recibido<>'S'
    SELECT @recibido='N'
/*
     SELECT @porcentaje,@dias,@recibido,@cobrado,@descrip
*/
     SELECT @importe=ROUND(@total*@porcentaje/100,@redondeo)
     SELECT @fecha2=dateadd(day,@dias,@fecha)
     EXEC SP_AJ_VENC @fecha2,@dia1,@dia2,@dia3,@dia4,@fechav OUT,@vaca1,@vaca2
     SELECT @fechamaxr=dateadd(day,@diasmax,@fecha)
     SELECT @automatico=@recibido
     SELECT @cli_auto=@cliente
     IF @recibido='S'
    SELECT @fecharec=@fecha
     ELSE
    SELECT @fecharec=@sofotopon
     INSERT INTO lindeud
            (empresa,serie,numero,
            porcentaje,
            dias,
            fechamaxr,
            importe,pagado_l,
            descripcio,recibido,
            automatico,cli_auto,fecharec,en_euro,
            fechades,fecha_r,
            memo)
            VALUES
            (@empresa,@serie,@numero,

            @porcentaje,
            @fechav,
            @fechamaxr,
            @importe,0,
            @descrip,@recibido,
            @recibido,@cliente,@fecharec,@en_euro,
            @sofotopon,@sofotopon,
            '')
     IF @recibido='S'
    BEGIN
    SELECT @quitar=-@importe
    EXECUTE sp_riesgo_cli @empresa, @cliente, 'F', @quitar,@en_euro
    EXECUTE sp_riesgo_cli @empresa, @cliente, 'E', @importe,@en_euro
    END
     IF @cobrado='S'
    BEGIN
    SELECT @quitar=@QUITAR
    EXECUTE sp_cob_auto @empresa,@serie,@numero,@cliente,@importe,@fechav,@recibido,@en_euro
    END
     SELECT @sumalin=@sumalin+@importe
     IF @fechav>@maximo
    BEGIN
    SELECT @maximo=@fechav
    SELECT @ultimo_automatico=0
    IF @cobrado='S'
        SELECT @ultimo_automatico=1
    END
     END
  FETCH NEXT FROM linfp INTO @porcentaje,@dias,@recibido,
    @cobrado,@descrip,@diasmax
  END
CLOSE linfp
DEALLOCATE linfp
SELECT @diferencia=@total-@sumalin
IF @diferencia<>0
    BEGIN
    UPDATE lindeud SET importe=importe+@diferencia
        WHERE empresa=@empresa AND serie=@serie AND dias=@fechav
    DECLARE lind CURSOR FOR SELECT recibido,importe
        FROM lindeud
        WHERE empresa=@empresa AND serie=@serie AND dias=@fechav
    OPEN lind
    FETCH NEXT FROM lind INTO @recibido,@importe
    CLOSE lind
    DEALLOCATE lind
    IF @recibido='S'
        BEGIN
        SELECT @quitar=-@diferencia
        EXECUTE sp_riesgo_cli @empresa, @cliente, 'F', @quitar,@en_euro
        EXECUTE sp_riesgo_cli @empresa, @cliente, 'E', @diferencia,@en_euro
        END
    IF @ultimo_automatico=1
        BEGIN
        SELECT @quitar=@QUITAR
        EXECUTE sp_cob_auto @empresa,@serie,@numero,@cliente,@importe,@maximo,@recibido,@en_euro
        END
    END









GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO






/****** Object:  Stored Procedure dbo.sp_linea_ped    Script Date: 18/5/01 12:58:21 ******/
/****** Object:  Stored Procedure dbo.sp_linea_ped    Script Date: 3/5/01 9:24:49 ******/
/****** Object:  Stored Procedure dbo.sp_linea_ped    Script Date: 19/2/01 11:30:21 ******/
/****** Object:  Stored Procedure dbo.sp_linea_ped    Script Date: 14/12/00 12:25:09 ******/
/****** Object:  Stored Procedure dbo.sp_linea_ped    Script Date: 26/9/00 13:23:20 ******/
/****** Object:  Stored Procedure dbo.sp_linea_ped    Script Date: 26/6/00 14:56:51 ******/
/****** Object:  Stored Procedure dbo.sp_linea_ped    Script Date: 26/6/00 9:03:33 ******/
/****** Object:  Stored Procedure dbo.sp_linea_ped    Script Date: 24/3/2000 10:08:30 ******/
/****** Object:  Stored Procedure dbo.sp_linea_ped    Script Date: 23/3/2000 15:31:29 ******/
/****** Object:  Stored Procedure dbo.sp_linea_ped    Script Date: 23/3/2000 11:25:17 ******/
/****** Object:  Stored Procedure dbo.sp_linea_ped    Script Date: 16/3/2000 12:08:28 ******/
/****** Object:  Stored Procedure dbo.sp_linea_ped    Script Date: 2/3/2000 8:30:20 ******/
CREATE PROCEDURE sp_linea_ped
  @empresa CHAR(4), @serie CHAR(2), @numero FLOAT, @linea INT, @cantidad FLOAT
AS
DECLARE @cantidadAnt FLOAT
DECLARE @servido FLOAT
DECLARE @mensaje CHAR(255)
DECLARE @reservado  FLOAT
DECLARE @raiz       CHAR(16)
DECLARE @talla      CHAR(2)
DECLARE @color      CHAR(2)
DECLARE @desreservar  FLOAT
DECLARE @almacen      CHAR(4)
UPDATE lineaped SET servido = servido + @cantidad
  WHERE empresa = @empresa AND serie = @serie AND numero = @numero AND linea = @linea
IF @@ROWCOUNT=0
    RETURN
SELECT @cantidadAnt = cantidad, @servido = servido,
    @reservado=reservado,@raiz=raiz,@talla=talla,@color=color,
    @almacen=almacen
    FROM lineaped
    WHERE empresa = @empresa AND serie = @serie AND numero = @numero AND linea = @linea
IF @servido>@cantidadAnt
    BEGIN
    SELECT @mensaje='La Cantidad servida de '+@raiz+@talla+@color+' es SUPERIOR a la pedida'
    EXEC sp_xxx_PONmsg @mensaje
    END
IF @reservado<>0
    BEGIN
    SELECT @desreservar=@reservado
    IF @desreservar>@cantidad
        SELECT @desreservar=@cantidad
    UPDATE lineaped SET reservado= reservado- @desreservar
        WHERE empresa = @empresa AND serie = @serie
            AND numero = @numero AND linea = @linea
    SELECT @desreservar=-@desreservar
    EXEC sp_xxx_stockresrv @empresa,@raiz,@talla,@color,@desreservar,@almacen
    END








GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO





CREATE  PROCEDURE sp_mete_albfact
  @empresaF CHAR(4), @serieF CHAR(2), @numeroF FLOAT, @numeroA FLOAT
AS
DECLARE @lineaA FLOAT
DECLARE @lineaF FLOAT
DECLARE @num_ant_albaran FLOAT
DECLARE @factura_cliente  CHAR(10)
DECLARE @albaran_cliente  CHAR(10)
DECLARE @albaran_total    FLOAT
DECLARE @albaran_en_euro  FLOAT
DECLARE @factura_total_ant FLOAT
DECLARE @factura_total_nuevo FLOAT
DECLARE @a_imputar           FLOAT
DECLARE @en_euro             BIT
DECLARE @l_costem          FLOAT
SELECT @num_ant_albaran=(SELECT albaran FROM factura
      WHERE empresa = @empresaF AND serie = @serieF AND numero = @numeroF)
IF @num_ant_albaran<>0 AND @num_ant_albaran<>@numeroA
  UPDATE factura SET albaran = 9999999999
    WHERE empresa = @empresaF AND serie = @serieF AND numero = @numeroF
ELSE
  UPDATE factura SET albaran = @numeroA
    WHERE empresa = @empresaF AND serie = @serieF AND numero = @numeroF
SELECT @albaran_cliente=cliente,
        @albaran_total = -total, @albaran_en_euro=en_euro
    FROM albaran
    WHERE empresa=@empresaF AND serie = @serieF AND numero =@numeroA
DECLARE cLineasAlb CURSOR FOR
    SELECT lineaalb.linea
        FROM lineaalb
        WHERE lineaalb.empresa=@empresaF AND lineaalb.serie = @serieF
            AND lineaalb.numero = @numeroA
OPEN cLineasAlb
FETCH NEXT FROM cLineasAlb INTO @lineaA
WHILE (@@fetch_status <> -1)
  BEGIN
    IF (@@fetch_status <> -2)
    BEGIN
    EXECUTE sp_xxx_da_linea_srv 'lineafac', @empresaF, @serieF, @numeroF, @lineaF OUTPUT
    INSERT INTO lineafac
        (ccl,centrol,empresa, serie, numero, linea, raiz, talla, color, descripcio,
        tarifa_l, precio,
        cantidad, almacen, dto, precio_sin, total_l, memo, foto, sonido, albaran,
        lineaalb, lineaped, largo, ancho, alto, en_euro, comis_l,l_costem)
    SELECT ccl,centrol,empresa, serie, numero = @numeroF, linea = @lineaF, raiz, talla, color,
        descripcio, tarifa_l, precio,
        cantidad, almacen, dto, precio_sin, total_l, memo, foto, sonido,
        albaran = @numeroA,
        lineaalb = @lineaA, lineaped, largo, ancho, alto, en_euro empresa, comis_l = 0,l_costem
              FROM lineaalb
              WHERE empresa = @empresaF AND serie = @serieF AND numero = @numeroA AND linea = @lineaA
    UPDATE lineaalb SET lineafac = @lineaF
            WHERE empresa = @empresaF AND serie = @serieF
        AND numero = @numeroA AND linea = @lineaA

    FETCH NEXT FROM cLineasAlb INTO @lineaA
    END
  END
CLOSE cLineasAlb
DEALLOCATE cLineasAlb
EXECUTE sp_riesgo_cli @empresaF, @albaran_cliente, 'P', @albaran_total, @albaran_en_euro
UPDATE albaran SET factura= @numeroF,seriefac=@serieF
        WHERE empresa = @empresaF AND serie = @serieF AND numero = @numeroA
/*resumar la factura*/
SELECT @factura_total_ant=total,
    @factura_cliente=cliente,@en_euro=en_euro
    FROM factura
    WHERE empresa=@empresaF AND serie=@serieF AND numero=@numeroF
EXEC sp_resuma 'factura',@empresaF, @serieF,@numeroF
SELECT @factura_total_nuevo=total
    FROM factura
    WHERE empresa=@empresaF AND serie=@serieF AND numero=@numeroF
SELECT @a_imputar=@factura_total_nuevo-@factura_total_ant
EXECUTE sp_riesgo_cli @empresaF, @factura_cliente, 'F', @a_imputar, @en_euro









GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO






/****** Object:  Stored Procedure dbo.sp_suma_riesgo    Script Date: 18/5/01 12:58:21 ******/
/****** Object:  Stored Procedure dbo.sp_suma_riesgo    Script Date: 3/5/01 9:24:49 ******/
/****** Object:  Stored Procedure dbo.sp_suma_riesgo    Script Date: 19/2/01 11:30:21 ******/
/****** Object:  Stored Procedure dbo.sp_suma_riesgo    Script Date: 14/12/00 12:25:09 ******/
/****** Object:  Stored Procedure dbo.sp_suma_riesgo    Script Date: 26/9/00 13:23:20 ******/
/****** Object:  Stored Procedure dbo.sp_suma_riesgo    Script Date: 26/6/00 14:56:50 ******/
/****** Object:  Stored Procedure dbo.sp_suma_riesgo    Script Date: 26/6/00 9:03:33 ******/
/****** Object:  Stored Procedure dbo.sp_suma_riesgo    Script Date: 24/3/2000 10:08:30 ******/
/****** Object:  Stored Procedure dbo.sp_suma_riesgo    Script Date: 23/3/2000 15:31:29 ******/
/****** Object:  Stored Procedure dbo.sp_suma_riesgo    Script Date: 23/3/2000 11:25:17 ******/

/****** Object:  Stored Procedure dbo.sp_suma_riesgo    Script Date: 16/3/2000 12:08:28 ******/
/****** Object:  Stored Procedure dbo.sp_suma_riesgo    Script Date: 2/3/2000 8:30:20 ******/
/****** Object:  Stored Procedure dbo.sp_suma_riesgo    Script Date: 24/6/99 13:59:38 ******/
/****** Object:  Stored Procedure dbo.sp_suma_riesgo    Script Date: 7/6/99 11:50:37 ******/
/****** Object:  Stored Procedure dbo.sp_suma_riesgo    Script Date: 1/6/99 12:01:59 ******/
/****** Object:  Stored Procedure dbo.sp_suma_riesgo    Script Date: 1/6/99 9:54:57 ******/
/****** Object:  Stored Procedure dbo.sp_suma_riesgo    Script Date: 19/5/99 12:02:25 ******/
/****** Object:  Stored Procedure dbo.sp_suma_riesgo    Script Date: 7/5/99 12:50:03 ******/
CREATE PROCEDURE sp_suma_riesgo
    @fichero   CHAR(8),
    @empresa   CHAR(4)
AS
DECLARE @cliente   CHAR(10)
DECLARE @total     FLOAT
DECLARE @totalx    FLOAT
DECLARE @en_euro   BIT
DECLARE @euro      INT
DECLARE @tipo      CHAR(1)
DECLARE @recibido  CHAR(1)
EXECUTE sp_suma_borra @fichero,@empresa
IF @fichero='cli2'
    BEGIN
    DECLARE sumalb CURSOR FOR SELECT cliente,convert(int,en_euro),SUM(total)
        FROM albaran
        WHERE empresa=@empresa AND factura=0
        GROUP BY cliente,convert(int,en_euro)
    DECLARE sumfaac CURSOR FOR SELECT cliente,convert(int,en_euro),SUM(total)
        FROM factura
        WHERE empresa=@empresa
        GROUP BY cliente,convert(int,en_euro)
    DECLARE sumdeu CURSOR FOR SELECT factura.cliente,convert(int,lindeud.en_euro),SUM(lindeud.importe)
        FROM lindeud,factura
        WHERE lindeud.empresa=@empresa AND lindeud.recibido='S'
            AND factura.empresa=lindeud.empresa AND factura.serie=lindeud.serie
            AND factura.numero=lindeud.numero
        GROUP BY factura.cliente,convert(int,lindeud.en_euro)
    DECLARE sumcob1 CURSOR FOR SELECT cobros.cliente,convert(int,cobros.en_euro),SUM(cobros.importe_c)
        FROM cobros,lindeud
        WHERE cobros.empresa=@empresa
            AND lindeud.empresa=cobros.empresa AND lindeud.serie=cobros.serie
            AND lindeud.numero=cobros.factura AND lindeud.dias=cobros.dias
            AND lindeud.recibido='S'
        GROUP BY cobros.cliente,convert(int,cobros.en_euro)
    DECLARE sumcob2 CURSOR FOR SELECT cobros.cliente,convert(int,cobros.en_euro),SUM(cobros.importe_c)
        FROM cobros,lindeud
        WHERE cobros.empresa=@empresa
            AND lindeud.empresa=cobros.empresa AND lindeud.serie=cobros.serie
            AND lindeud.numero=cobros.factura AND lindeud.dias=cobros.dias
            AND lindeud.recibido<>'S'
        GROUP BY cobros.cliente,convert(int,cobros.en_euro)
    END
ELSE
    BEGIN
    DECLARE sumalb CURSOR FOR SELECT proveedo,convert(int,en_euro),SUM(total)
        FROM albpro
        WHERE empresa=@empresa AND factura=0
        GROUP BY proveedo,convert(int,en_euro)
    DECLARE sumfaac CURSOR FOR SELECT cliente,convert(int,en_euro),SUM(total)
        FROM entrada
        WHERE empresa=@empresa
        GROUP BY cliente,convert(int,en_euro)
    DECLARE sumdeu CURSOR FOR SELECT entrada.cliente,convert(int,lindeu2.en_euro),SUM(lindeu2.importe)
        FROM lindeu2,entrada
        WHERE lindeu2.empresa=@empresa AND lindeu2.recibido='S'
            AND entrada.empresa=lindeu2.empresa AND entrada.serie=lindeu2.serie
            AND entrada.numero =lindeu2.numero
        GROUP BY entrada.cliente,convert(int,lindeu2.en_euro)
    DECLARE sumcob1 CURSOR FOR SELECT pagos.cliente,convert(int,pagos.en_euro),SUM(pagos.importe_c)
        FROM pagos,lindeu2
        WHERE pagos.empresa=@empresa
            AND lindeu2.empresa=pagos.empresa AND lindeu2.serie=pagos.serie
            AND lindeu2.numero =pagos.factura AND lindeu2.dias =pagos.dias
            AND lindeu2.recibido='S'
        GROUP BY pagos.cliente,convert(int,pagos.en_euro)
    DECLARE sumcob2 CURSOR FOR SELECT pagos.cliente,convert(int,pagos.en_euro),SUM(pagos.importe_c)
        FROM pagos,lindeu2
        WHERE pagos.empresa=@empresa
            AND lindeu2.empresa=pagos.empresa AND lindeu2.serie=pagos.serie
            AND lindeu2.numero =pagos.factura AND lindeu2.dias =pagos.dias
            AND lindeu2.recibido<>'S'
        GROUP BY pagos.cliente,convert(int,pagos.en_euro)
    END
OPEN sumalb
FETCH NEXT FROM sumalb INTO @cliente,@euro, @total
WHILE (@@fetch_status <> -1)
    BEGIN
    IF (@@fetch_status <> -2)
        BEGIN
        SELECT @en_euro=CONVERT(bit,@euro)
        IF @fichero='cli2'
            EXECUTE sp_riesgo_cli @empresa,@cliente,'P',@total,@en_euro
        ELSE
            EXECUTE sp_riesgo_pro @empresa,@cliente,'P',@total,@en_euro
        FETCH NEXT FROM sumalb INTO @cliente,@euro, @total
        END
    END
CLOSE sumalb
DEALLOCATE sumalb
OPEN sumfaac
FETCH NEXT FROM sumfaac INTO @cliente,@euro, @total
WHILE (@@fetch_status <> -1)
    BEGIN
    IF (@@fetch_status <> -2)
        BEGIN
        SELECT @en_euro=CONVERT(bit,@euro)
        IF @fichero='cli2'
            EXECUTE sp_riesgo_cli @empresa,@cliente,'F',@total,@en_euro

        ELSE
            EXECUTE sp_riesgo_pro @empresa,@cliente,'F',@total,@en_euro
        FETCH NEXT FROM sumfaac INTO @cliente,@euro, @total
        END
    END
CLOSE sumfaac
DEALLOCATE sumfaac
OPEN sumdeu
FETCH NEXT FROM sumdeu INTO @cliente,@euro, @total
WHILE (@@fetch_status <> -1)
    BEGIN
    IF (@@fetch_status <> -2)
        BEGIN
        SELECT @en_euro=CONVERT(bit,@euro)
        IF @fichero='cli2'
            BEGIN
            SELECT @totalx=-@total
            EXECUTE sp_riesgo_cli @empresa,@cliente,'F',@totalx,@en_euro
            EXECUTE sp_riesgo_cli @empresa,@cliente,'E',@total ,@en_euro
            END
        ELSE
            BEGIN
            SELECT @totalx=-@total
            EXECUTE sp_riesgo_pro @empresa,@cliente,'F',@totalx,@en_euro
            EXECUTE sp_riesgo_pro @empresa,@cliente,'E',@total ,@en_euro
            END
        FETCH NEXT FROM sumdeu INTO @cliente,@euro, @total
        END
    END
CLOSE sumdeu
DEALLOCATE sumdeu
OPEN sumcob1
FETCH NEXT FROM sumcob1 INTO @cliente,@euro, @total
WHILE (@@fetch_status <> -1)
    BEGIN
    IF (@@fetch_status <> -2)
        BEGIN
        SELECT @en_euro=CONVERT(bit,@euro)
        IF @fichero='cli2'
            BEGIN
            SELECT @totalx=-@total
            EXECUTE sp_riesgo_cli @empresa,@cliente,'E',@totalx,@en_euro
            END
        ELSE
            BEGIN
            SELECT @totalx=-@total
            EXECUTE sp_riesgo_pro @empresa,@cliente,'E',@total ,@en_euro
            END
        FETCH NEXT FROM sumcob1 INTO @cliente,@euro, @total
        END
    END
CLOSE sumcob1
DEALLOCATE sumcob1
OPEN sumcob2
FETCH NEXT FROM sumcob2 INTO @cliente,@euro, @total
WHILE (@@fetch_status <> -1)
    BEGIN
    IF (@@fetch_status <> -2)
        BEGIN
        SELECT @en_euro=CONVERT(bit,@euro)
        IF @fichero='cli2'
            BEGIN
            SELECT @totalx=-@total
            EXECUTE sp_riesgo_cli @empresa,@cliente,'F',@totalx,@en_euro
            END
        ELSE
            BEGIN
            SELECT @totalx=-@total
            EXECUTE sp_riesgo_pro @empresa,@cliente,'F',@total ,@en_euro
            END
        FETCH NEXT FROM sumcob2 INTO @cliente,@euro, @total
        END

    END
CLOSE sumcob2
DEALLOCATE sumcob2
RETURN








GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO






/****** Object:  Trigger dbo.albaran_u    Script Date: 18/5/01 12:58:22 ******/
/****** Object:  Trigger dbo.albaran_u    Script Date: 3/5/01 9:24:50 ******/
/****** Object:  Trigger dbo.albaran_u    Script Date: 19/2/01 11:30:22 ******/
/****** Object:  Trigger dbo.albaran_u    Script Date: 14/12/00 12:25:09 ******/
/****** Object:  Trigger dbo.albaran_u    Script Date: 26/9/00 13:23:30 ******/
/****** Object:  Trigger dbo.albaran_u    Script Date: 26/6/00 14:56:59 ******/
/****** Object:  Trigger dbo.albaran_u    Script Date: 26/6/00 9:03:34 ******/
/****** Object:  Trigger dbo.albaran_u    Script Date: 24/3/2000 10:08:31 ******/
/****** Object:  Trigger dbo.albaran_u    Script Date: 23/3/2000 15:31:29 ******/
/****** Object:  Trigger dbo.albaran_u    Script Date: 23/3/2000 11:25:17 ******/
/****** Object:  Trigger dbo.albaran_u    Script Date: 16/3/2000 12:08:28 ******/
/****** Object:  Trigger dbo.albaran_u    Script Date: 2/3/2000 8:30:20 ******/
/****** Object:  Trigger dbo.albaran_u    Script Date: 24/6/99 16:21:01 ******/
/****** Object:  Trigger dbo.albaran_u    Script Date: 1/6/99 13:16:15 ******/
CREATE TRIGGER albaran_u ON dbo.ALBARAN
FOR UPDATE
AS
DECLARE @empresa CHAR(4)
DECLARE @serie   CHAR(2)
DECLARE @numero  FLOAT
DECLARE @fecha   DATETIME
DECLARE @suma1   FLOAT
DECLARE @suma2   FLOAT
DECLARE @suma3   FLOAT
DECLARE @suma4   FLOAT
DECLARE @recargo1   FLOAT
DECLARE @recargo2   FLOAT
DECLARE @recargo3   FLOAT
DECLARE @recargo4   FLOAT
DECLARE @dto1    FLOAT
DECLARE @dto2    FLOAT
DECLARE @dto3    FLOAT
DECLARE @dto4    FLOAT
DECLARE @base1   FLOAT
DECLARE @base2   FLOAT
DECLARE @base3   FLOAT
DECLARE @base4   FLOAT
DECLARE @iva1    FLOAT
DECLARE @iva2    FLOAT
DECLARE @iva3    FLOAT
DECLARE @iva4    FLOAT
DECLARE @re1    FLOAT
DECLARE @re2    FLOAT
DECLARE @re3    FLOAT
DECLARE @re4    FLOAT
DECLARE @dto_c   FLOAT
DECLARE @dto_p   FLOAT
DECLARE @dto_rec FLOAT
DECLARE @p_reten FLOAT
DECLARE @rec_fin FLOAT
DECLARE @en_euro BIT
DECLARE @total   FLOAT
DECLARE @imp_ret FLOAT
DECLARE @importe FLOAT
DECLARE @codigo  CHAR(10)
DECLARE @tipo    CHAR(1)
DECLARE @factura FLOAT
/* recoger los datos de deleted => desimputarlos del riesgo*/
SELECT @empresa = empresa, @codigo = cliente, @tipo = 'P', @importe = -total,
    @en_euro = en_euro,@factura=factura
    FROM DELETED
IF @factura=0
    EXECUTE sp_riesgo_cli @empresa, @codigo, @tipo, @importe, @en_euro
SELECT @empresa=empresa,@serie=serie,@numero=numero,@codigo = cliente,
     @dto_c=dto_c,@dto_p=dto_p,@dto_rec=dto_rec,@fecha=fecha,
     @suma1=suma1,@suma2=suma2,@suma3=suma3,@suma4=suma4,
     @recargo1=recargo1,@recargo2=recargo2,@recargo3=recargo3,@recargo4=recargo4,
     @p_reten = p_reten, @rec_fin=rec_fin, @en_euro = en_euro,
     @factura=factura
    FROM INSERTED
EXECUTE sp_xxx_calcular @empresa,@serie, @codigo, @fecha,
        @dto_c,@dto_p,@dto_rec,
        @suma1,@suma2,@suma3,@suma4,
        @recargo1,@recargo2,@recargo3,@recargo4, @p_reten, @rec_fin, @en_euro,
        @dto1 OUTPUT,@dto2 OUTPUT,@dto3 OUTPUT,@dto4 OUTPUT,
        @base1 OUTPUT,@base2 OUTPUT,@base3 OUTPUT,@base4 OUTPUT,
        @iva1 OUTPUT,@iva2 OUTPUT,@iva3 OUTPUT,@iva4 OUTPUT,
        @re1 OUTPUT,@re2 OUTPUT,@re3 OUTPUT,@re4 OUTPUT, @imp_ret OUTPUT, @total OUTPUT
UPDATE albaran SET dto1=@dto1,dto2=@dto2,dto3=@dto3,dto4=@dto4,
        base1=@base1,base2=@base2,base3=@base3,base4=@base4,
        iva1=@iva1,iva2=@iva2,iva3=@iva3,iva4=@iva4,
        re1=@re1,re2=@re2,re3=@re3,re4=@re4, imp_ret = @imp_ret, total = @total
    WHERE empresa=@empresa AND serie=@serie AND numero=@numero
/*imputarlos los nuevos valores al riesgo */
IF @factura=0
    EXECUTE sp_riesgo_cli @empresa, @codigo, 'P', @total, @en_euro








GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO






/****** Object:  Trigger dbo.albaran_d    Script Date: 18/5/01 12:58:22 ******/
/****** Object:  Trigger dbo.albaran_d    Script Date: 3/5/01 9:24:49 ******/
/****** Object:  Trigger dbo.albaran_d    Script Date: 19/2/01 11:30:22 ******/
/****** Object:  Trigger dbo.albaran_d    Script Date: 14/12/00 12:25:09 ******/
/****** Object:  Trigger dbo.albaran_d    Script Date: 26/9/00 13:23:30 ******/
/****** Object:  Trigger dbo.albaran_d    Script Date: 26/6/00 14:56:57 ******/
/****** Object:  Trigger dbo.albaran_d    Script Date: 26/6/00 9:03:34 ******/
/****** Object:  Trigger dbo.albaran_d    Script Date: 24/3/2000 10:08:31 ******/
/****** Object:  Trigger dbo.albaran_d    Script Date: 23/3/2000 15:31:29 ******/
/****** Object:  Trigger dbo.albaran_d    Script Date: 23/3/2000 11:25:17 ******/
/****** Object:  Trigger dbo.albaran_d    Script Date: 16/3/2000 12:08:28 ******/
/****** Object:  Trigger dbo.albaran_d    Script Date: 2/3/2000 8:30:20 ******/
/****** Object:  Trigger dbo.albaran_d    Script Date: 24/6/99 16:21:01 ******/
/****** Object:  Trigger dbo.albaran_d    Script Date: 1/6/99 13:16:15 ******/
CREATE TRIGGER albaran_d ON dbo.ALBARAN
FOR DELETE
AS
DECLARE @empresa CHAR(4)
DECLARE @importe FLOAT
DECLARE @codigo  CHAR(10)
DECLARE @tipo    CHAR(1)
DECLARE @en_euro BIT
DECLARE @factura FLOAT
/* recoger los datos de deleted => desimputarlos del riesgo*/
SELECT @empresa = empresa, @codigo = cliente, @tipo = 'P', @importe = -total,
    @en_euro=en_euro,@factura=factura
    FROM DELETED
IF @factura=0
    EXECUTE sp_riesgo_cli @empresa, @codigo, @tipo, @importe,@en_euro








GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO






/****** Object:  Trigger dbo.albaran_i    Script Date: 18/5/01 12:58:22 ******/
/****** Object:  Trigger dbo.albaran_i    Script Date: 3/5/01 9:24:50 ******/
/****** Object:  Trigger dbo.albaran_i    Script Date: 19/2/01 11:30:22 ******/
/****** Object:  Trigger dbo.albaran_i    Script Date: 14/12/00 12:25:09 ******/
/****** Object:  Trigger dbo.albaran_i    Script Date: 26/9/00 13:23:30 ******/
/****** Object:  Trigger dbo.albaran_i    Script Date: 26/6/00 14:56:58 ******/
/****** Object:  Trigger dbo.albaran_i    Script Date: 26/6/00 9:03:34 ******/
/****** Object:  Trigger dbo.albaran_i    Script Date: 24/3/2000 10:08:31 ******/
/****** Object:  Trigger dbo.albaran_i    Script Date: 23/3/2000 15:31:29 ******/
/****** Object:  Trigger dbo.albaran_i    Script Date: 23/3/2000 11:25:17 ******/
/****** Object:  Trigger dbo.albaran_i    Script Date: 16/3/2000 12:08:28 ******/
/****** Object:  Trigger dbo.albaran_i    Script Date: 2/3/2000 8:30:20 ******/
/****** Object:  Trigger dbo.albaran_i    Script Date: 24/6/99 16:21:01 ******/
/****** Object:  Trigger dbo.albaran_i    Script Date: 1/6/99 13:16:15 ******/
CREATE TRIGGER albaran_i ON dbo.ALBARAN
FOR INSERT
AS
DECLARE @empresa CHAR(4)
DECLARE @serie   CHAR(2)
DECLARE @numero  FLOAT
DECLARE @fecha   DATETIME
DECLARE @suma1   FLOAT
DECLARE @suma2   FLOAT
DECLARE @suma3   FLOAT
DECLARE @suma4   FLOAT
DECLARE @recargo1   FLOAT
DECLARE @recargo2   FLOAT
DECLARE @recargo3   FLOAT
DECLARE @recargo4   FLOAT
DECLARE @dto1    FLOAT
DECLARE @dto2    FLOAT
DECLARE @dto3    FLOAT
DECLARE @dto4    FLOAT
DECLARE @base1   FLOAT
DECLARE @base2   FLOAT
DECLARE @base3   FLOAT
DECLARE @base4   FLOAT
DECLARE @iva1    FLOAT
DECLARE @iva2    FLOAT
DECLARE @iva3    FLOAT
DECLARE @iva4    FLOAT
DECLARE @re1    FLOAT
DECLARE @re2    FLOAT
DECLARE @re3    FLOAT
DECLARE @re4    FLOAT
DECLARE @dto_c   FLOAT
DECLARE @dto_p   FLOAT
DECLARE @dto_rec FLOAT
DECLARE @p_reten FLOAT
DECLARE @rec_fin FLOAT
DECLARE @en_euro BIT
DECLARE @total   FLOAT
DECLARE @imp_ret FLOAT
DECLARE @importe FLOAT
DECLARE @codigo  CHAR(10)
DECLARE @tipo    CHAR(1)
DECLARE @factura FLOAT
SELECT @empresa=empresa,@serie=serie,@numero=numero,@codigo = cliente,
     @dto_c=dto_c,@dto_p=dto_p,@dto_rec=dto_rec,@fecha=fecha,
     @suma1=suma1,@suma2=suma2,@suma3=suma3,@suma4=suma4,
     @recargo1=recargo1,@recargo2=recargo2,@recargo3=recargo3,@recargo4=recargo4,
     @p_reten = p_reten, @rec_fin=rec_fin, @en_euro = en_euro,
     @factura=factura
    FROM INSERTED
EXEC sp_xxx_calcular @empresa,@serie, @codigo, @fecha,
    @dto_c,@dto_p,@dto_rec,
    @suma1,@suma2,@suma3,@suma4,
    @recargo1,@recargo2,@recargo3,@recargo4, @p_reten, @rec_fin, @en_euro,
    @dto1 OUTPUT,@dto2 OUTPUT,@dto3 OUTPUT,@dto4 OUTPUT,
    @base1 OUTPUT,@base2 OUTPUT,@base3 OUTPUT,@base4 OUTPUT,
    @iva1 OUTPUT,@iva2 OUTPUT,@iva3 OUTPUT,@iva4 OUTPUT,
    @re1 OUTPUT,@re2 OUTPUT,@re3 OUTPUT,@re4 OUTPUT, @imp_ret OUTPUT, @total OUTPUT
UPDATE albaran SET dto1=@dto1,dto2=@dto2,dto3=@dto3,dto4=@dto4,
        base1=@base1,base2=@base2,base3=@base3,base4=@base4,
        iva1=@iva1,iva2=@iva2,iva3=@iva3,iva4=@iva4,
        re1=@re1,re2=@re2,re3=@re3,re4=@re4, imp_ret = @imp_ret, total = @total
    WHERE empresa=@empresa AND serie=@serie AND numero=@numero
/*imputarlos los nuevos valores al riesgo */
IF @factura=0
    EXECUTE sp_riesgo_cli @empresa, @codigo, 'P', @total, @en_euro








GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO










/****** Object:  Trigger dbo.albpro_u    Script Date: 23/3/01 12:32:16 ******/
/****** Object:  Trigger dbo.albpro_u    Script Date: 14/12/00 12:25:12 ******/
CREATE TRIGGER albpro_u ON dbo.ALBPRO
FOR UPDATE
AS
DECLARE @empresa     CHAR(4)
DECLARE @serie         CHAR(2)
DECLARE @numero     FLOAT
DECLARE @raiz         CHAR(16)
DECLARE @talla         CHAR(2)
DECLARE @color         CHAR(2)
DECLARE @total_l     FLOAT
DECLARE @tipoiva    INT
DECLARE @cliente        CHAR(10)
DECLARE @fecha   DATETIME
DECLARE @a_suma1   FLOAT
DECLARE @a_suma2   FLOAT
DECLARE @a_suma3   FLOAT
DECLARE @a_suma4   FLOAT
DECLARE @a_rec1   FLOAT
DECLARE @a_rec2   FLOAT
DECLARE @a_rec3   FLOAT
DECLARE @a_rec4   FLOAT
DECLARE @a_dto1    FLOAT
DECLARE @a_dto2    FLOAT
DECLARE @a_dto3    FLOAT
DECLARE @a_dto4    FLOAT
DECLARE @a_base1   FLOAT
DECLARE @a_base2   FLOAT
DECLARE @a_base3   FLOAT
DECLARE @a_base4   FLOAT
DECLARE @a_iva1    FLOAT
DECLARE @a_iva2    FLOAT
DECLARE @a_iva3    FLOAT
DECLARE @a_iva4    FLOAT
DECLARE @a_re1    FLOAT
DECLARE @a_re2    FLOAT
DECLARE @a_re3    FLOAT
DECLARE @a_re4    FLOAT
DECLARE @dto_c   FLOAT
DECLARE @dto_p   FLOAT
DECLARE @dto_rec FLOAT
DECLARE @p_reten FLOAT
DECLARE @en_euro BIT
DECLARE @a_total   FLOAT
DECLARE @a_impret FLOAT
DECLARE @suma1   FLOAT
DECLARE @suma2   FLOAT
DECLARE @suma3   FLOAT
DECLARE @suma4   FLOAT
DECLARE @recargo1   FLOAT
DECLARE @recargo2   FLOAT
DECLARE @recargo3   FLOAT
DECLARE @recargo4   FLOAT
DECLARE @dto1    FLOAT
DECLARE @dto2    FLOAT
DECLARE @dto3    FLOAT
DECLARE @dto4    FLOAT
DECLARE @base1   FLOAT
DECLARE @base2   FLOAT
DECLARE @base3   FLOAT
DECLARE @base4   FLOAT
DECLARE @iva1    FLOAT
DECLARE @iva2    FLOAT
DECLARE @iva3    FLOAT
DECLARE @iva4    FLOAT
DECLARE @re1    FLOAT
DECLARE @re2    FLOAT
DECLARE @re3    FLOAT
DECLARE @re4    FLOAT
DECLARE @total   FLOAT
DECLARE @imp_ret FLOAT
DECLARE @divisa  CHAR(10)
DECLARE @cambio  FLOAT
DECLARE @importe FLOAT
DECLARE @codigo  CHAR(10)
DECLARE @tipo    CHAR(1)
DECLARE @tabla   FLOAT
DECLARE @cantidad FLOAT
DECLARE @almacen CHAR(4)
DECLARE @linea INT
DECLARE @RETURNMESSAGE CHAR(200)
DECLARE @cambio_ant    FLOAT
DECLARE @factura       FLOAT
/***************************************
***************************************/
SELECT    @cambio_ant=cambio,
    @empresa = empresa, @serie = serie, @numero = numero,
    @codigo = proveedo, @importe=-total,
    @dto_c=dto_c,@dto_p=dto_p,@dto_rec=dto_rec,@fecha=fecha,
    @a_suma1=a_suma1,@a_suma2=a_suma2,@a_suma3=a_suma3,@a_suma4=a_suma4,
    @a_rec1=a_rec1,@a_rec2=a_rec2,@a_rec3=a_rec3,@a_rec4=a_rec4,
    @p_reten = retencion, @en_euro = en_euro, @divisa=divisa,
    @factura=factura
    FROM deleted
IF @factura=0
    EXECUTE sp_riesgo_pro @empresa,@codigo,'P',@importe,@en_euro
/***************************************
***************************************/
SELECT    @cambio = cambio,
    @empresa = empresa, @serie = serie, @numero = numero,
    @codigo = proveedo, @importe = -total,
    @dto_c=dto_c,@dto_p=dto_p,@dto_rec=dto_rec,@fecha=fecha,
    @a_suma1=a_suma1,@a_suma2=a_suma2,@a_suma3=a_suma3,@a_suma4=a_suma4,
    @a_rec1=a_rec1,@a_rec2=a_rec2,@a_rec3=a_rec3,@a_rec4=a_rec4,
    @p_reten = retencion, @en_euro = en_euro, @divisa=divisa,
    @factura=factura
    FROM INSERTED
IF @cambio <> @cambio_ant
    BEGIN
    EXEC sp_xxx_ponmsg 'Contravalores Recalculados'

    UPDATE linalbp
        SET precio = a_pre * @cambio, precio_sin = a_pre_s * @cambio, total_l = a_tot_l * @cambio
        WHERE empresa=@empresa AND serie=@serie AND numero=@numero
/*    EXECUTE sp_resumap 'albpro',@empresa,@serie,@numero*/
/*************************
update xxxmsg set mensajec = 'bases: ' + CONVERT(CHAR(10),@a_base1) + CONVERT(CHAR(10),@a_base2) + CONVERT(CHAR(10),@a_base3) + CONVERT(CHAR(10),@a_base4) where sp_id = 19
*************************/
    EXECUTE sp_finaliza_pro 'albpro', @empresa, @serie, @numero
    END
EXEC sp_xxx_calcula2 @empresa,@serie,@codigo, @fecha,
    @dto_c,@dto_p,@dto_rec,
    @a_suma1,@a_suma2,@a_suma3,@a_suma4,
    @a_rec1,@a_rec2,@a_rec3,@a_rec4, @p_reten, @divisa,@cambio, @en_euro,
    @a_dto1 OUTPUT,@a_dto2 OUTPUT,@a_dto3 OUTPUT,@a_dto4 OUTPUT,
    @a_base1 OUTPUT,@a_base2 OUTPUT,@a_base3 OUTPUT,@a_base4 OUTPUT,
    @a_iva1 OUTPUT,@a_iva2 OUTPUT,@a_iva3 OUTPUT,@a_iva4 OUTPUT,
    @a_re1 OUTPUT,@a_re2 OUTPUT,@a_re3 OUTPUT,@a_re4 OUTPUT,
    @a_impret OUTPUT, @a_total OUTPUT,
    @suma1   OUTPUT,@suma2     OUTPUT,@suma3    OUTPUT,@suma4    OUTPUT,
    @dto1    OUTPUT,@dto2      OUTPUT,@dto3     OUTPUT,@dto4     OUTPUT,
    @base1   OUTPUT,@base2     OUTPUT,@base3    OUTPUT,@base4    OUTPUT,
    @iva1    OUTPUT,@iva2      OUTPUT,@iva3     OUTPUT,@iva4     OUTPUT,
    @re1     OUTPUT,@re2       OUTPUT,@re3      OUTPUT,@re4      OUTPUT,
    @recargo1 OUTPUT,@recargo2 OUTPUT,@recargo3 OUTPUT,@recargo4 OUTPUT,
    @imp_ret OUTPUT, @total    OUTPUT
UPDATE albpro SET a_suma1=@a_suma1,a_suma2=@a_suma2,a_suma3=@a_suma3, a_suma4=@a_suma4,
        a_dto1=@a_dto1,a_dto2=@a_dto2,a_dto3=@a_dto3,a_dto4=@a_dto4,
        a_base1=@a_base1,a_base2=@a_base2,a_base3=@a_base3,a_base4=@a_base4,
        a_iva1=@a_iva1,a_iva2=@a_iva2,a_iva3=@a_iva3,a_iva4=@a_iva4,
        a_re1=@a_re1,a_re2=@a_re2,a_re3=@a_re3,a_re4=@a_re4,
        a_impret = @a_impret, a_total = @a_total ,
        suma1=@suma1,suma2=@suma2,suma3=@suma3, suma4=@suma4,
        recargo1=@recargo1,recargo2=@recargo2,recargo3=@recargo3,recargo4=@recargo4,
        dto1=@dto1,dto2=@dto2,dto3=@dto3,dto4=@dto4,
        base1=@base1,base2=@base2,base3=@base3,base4=@base4,
        iva1=@iva1,iva2=@iva2,iva3=@iva3,iva4=@iva4,
        re1=@re1,re2=@re2,re3=@re3,re4=@re4,
        impret = @imp_ret, total = @total
    WHERE empresa=@empresa AND serie=@serie AND numero=@numero
IF @factura=0
    EXECUTE sp_riesgo_pro @empresa,@codigo,'P',@total,@en_euro
/*************************
update xxxmsg set mensajec = 'bases: ' + CONVERT(CHAR(10),@a_base1) + CONVERT(CHAR(10),@a_base2) + CONVERT(CHAR(10),@a_base3) + CONVERT(CHAR(10),@a_base4) where sp_id = 19
*************************/










GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO






/****** Object:  Trigger dbo.albpro_d    Script Date: 18/5/01 12:58:22 ******/
/****** Object:  Trigger dbo.albpro_d    Script Date: 3/5/01 9:24:50 ******/
/****** Object:  Trigger dbo.albpro_d    Script Date: 19/2/01 11:30:22 ******/
/****** Object:  Trigger dbo.albpro_d    Script Date: 14/12/00 12:25:09 ******/
CREATE TRIGGER albpro_d ON dbo.ALBPRO
FOR DELETE
AS
DECLARE @empresa     CHAR(4)
DECLARE @serie         CHAR(2)
DECLARE @numero     FLOAT
DECLARE @raiz         CHAR(16)
DECLARE @talla         CHAR(2)
DECLARE @color         CHAR(2)
DECLARE @total_l     FLOAT
DECLARE @tipoiva    INT
DECLARE @cliente        CHAR(10)
DECLARE @fecha   DATETIME
DECLARE @a_suma1   FLOAT
DECLARE @a_suma2   FLOAT
DECLARE @a_suma3   FLOAT
DECLARE @a_suma4   FLOAT
DECLARE @a_rec1   FLOAT
DECLARE @a_rec2   FLOAT
DECLARE @a_rec3   FLOAT
DECLARE @a_rec4   FLOAT
DECLARE @a_dto1    FLOAT
DECLARE @a_dto2    FLOAT
DECLARE @a_dto3    FLOAT
DECLARE @a_dto4    FLOAT
DECLARE @a_base1   FLOAT
DECLARE @a_base2   FLOAT
DECLARE @a_base3   FLOAT
DECLARE @a_base4   FLOAT
DECLARE @a_iva1    FLOAT
DECLARE @a_iva2    FLOAT

DECLARE @a_iva3    FLOAT
DECLARE @a_iva4    FLOAT
DECLARE @a_re1    FLOAT
DECLARE @a_re2    FLOAT
DECLARE @a_re3    FLOAT
DECLARE @a_re4    FLOAT
DECLARE @dto_c   FLOAT
DECLARE @dto_p   FLOAT
DECLARE @dto_rec FLOAT
DECLARE @p_reten FLOAT
DECLARE @en_euro BIT
DECLARE @a_total   FLOAT
DECLARE @a_impret FLOAT
DECLARE @suma1   FLOAT
DECLARE @suma2   FLOAT
DECLARE @suma3   FLOAT
DECLARE @suma4   FLOAT
DECLARE @recargo1   FLOAT
DECLARE @recargo2   FLOAT
DECLARE @recargo3   FLOAT
DECLARE @recargo4   FLOAT
DECLARE @dto1    FLOAT
DECLARE @dto2    FLOAT
DECLARE @dto3    FLOAT
DECLARE @dto4    FLOAT
DECLARE @base1   FLOAT
DECLARE @base2   FLOAT
DECLARE @base3   FLOAT
DECLARE @base4   FLOAT
DECLARE @iva1    FLOAT
DECLARE @iva2    FLOAT

DECLARE @iva3    FLOAT
DECLARE @iva4    FLOAT
DECLARE @re1    FLOAT
DECLARE @re2    FLOAT
DECLARE @re3    FLOAT
DECLARE @re4    FLOAT
DECLARE @total   FLOAT
DECLARE @imp_ret FLOAT
DECLARE @divisa  CHAR(10)
DECLARE @cambio  FLOAT
DECLARE @importe FLOAT
DECLARE @codigo  CHAR(10)
DECLARE @tipo    CHAR(1)
DECLARE @tabla   FLOAT
DECLARE @cantidad FLOAT
DECLARE @almacen CHAR(4)
DECLARE @linea INT
DECLARE @factura  FLOAT
DECLARE @RETURNMESSAGE CHAR(200)
/***************************************
*** IMPUTAR LO NUEVO *******************
***************************************/
SELECT @empresa = empresa, @serie = serie, @numero = numero,
    @codigo = proveedo, @importe=-total,
     @dto_c=dto_c,@dto_p=dto_p,@dto_rec=dto_rec,@fecha=fecha,
     @a_suma1=a_suma1,@a_suma2=a_suma2,@a_suma3=a_suma3,@a_suma4=a_suma4,
     @a_rec1=a_rec1,@a_rec2=a_rec2,@a_rec3=a_rec3,@a_rec4=a_rec4,
     @p_reten = retencion, @en_euro = en_euro, @cambio=cambio,@divisa=divisa,
     @factura=factura
    FROM INSERTED
IF @factura=0
    EXECUTE sp_riesgo_pro @empresa,@codigo,'P',@importe,@en_euro








GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO






/****** Object:  Trigger dbo.albpro_i    Script Date: 18/5/01 12:58:22 ******/
/****** Object:  Trigger dbo.albpro_i    Script Date: 3/5/01 9:24:50 ******/
/****** Object:  Trigger dbo.albpro_i    Script Date: 19/2/01 11:30:22 ******/
/****** Object:  Trigger dbo.albpro_i    Script Date: 14/12/00 12:25:10 ******/
CREATE TRIGGER albpro_i ON dbo.ALBPRO
FOR INSERT
AS
DECLARE @empresa     CHAR(4)
DECLARE @serie         CHAR(2)
DECLARE @numero     FLOAT
DECLARE @raiz         CHAR(16)
DECLARE @talla         CHAR(2)
DECLARE @color         CHAR(2)
DECLARE @total_l     FLOAT
DECLARE @tipoiva    INT
DECLARE @cliente        CHAR(10)
DECLARE @fecha   DATETIME
DECLARE @a_suma1   FLOAT
DECLARE @a_suma2   FLOAT
DECLARE @a_suma3   FLOAT
DECLARE @a_suma4   FLOAT
DECLARE @a_rec1   FLOAT
DECLARE @a_rec2   FLOAT
DECLARE @a_rec3   FLOAT
DECLARE @a_rec4   FLOAT
DECLARE @a_dto1    FLOAT
DECLARE @a_dto2    FLOAT
DECLARE @a_dto3    FLOAT
DECLARE @a_dto4    FLOAT
DECLARE @a_base1   FLOAT
DECLARE @a_base2   FLOAT
DECLARE @a_base3   FLOAT
DECLARE @a_base4   FLOAT
DECLARE @a_iva1    FLOAT
DECLARE @a_iva2    FLOAT

DECLARE @a_iva3    FLOAT
DECLARE @a_iva4    FLOAT
DECLARE @a_re1    FLOAT
DECLARE @a_re2    FLOAT
DECLARE @a_re3    FLOAT
DECLARE @a_re4    FLOAT
DECLARE @dto_c   FLOAT
DECLARE @dto_p   FLOAT
DECLARE @dto_rec FLOAT
DECLARE @p_reten FLOAT
DECLARE @en_euro BIT
DECLARE @a_total   FLOAT
DECLARE @a_impret FLOAT
DECLARE @suma1   FLOAT
DECLARE @suma2   FLOAT
DECLARE @suma3   FLOAT
DECLARE @suma4   FLOAT
DECLARE @recargo1   FLOAT
DECLARE @recargo2   FLOAT
DECLARE @recargo3   FLOAT
DECLARE @recargo4   FLOAT
DECLARE @dto1    FLOAT
DECLARE @dto2    FLOAT
DECLARE @dto3    FLOAT
DECLARE @dto4    FLOAT
DECLARE @base1   FLOAT
DECLARE @base2   FLOAT
DECLARE @base3   FLOAT
DECLARE @base4   FLOAT
DECLARE @iva1    FLOAT
DECLARE @iva2    FLOAT

DECLARE @iva3    FLOAT
DECLARE @iva4    FLOAT
DECLARE @re1    FLOAT
DECLARE @re2    FLOAT
DECLARE @re3    FLOAT
DECLARE @re4    FLOAT
DECLARE @total   FLOAT
DECLARE @imp_ret FLOAT
DECLARE @divisa  CHAR(10)
DECLARE @cambio  FLOAT
DECLARE @importe FLOAT
DECLARE @codigo  CHAR(10)
DECLARE @tipo    CHAR(1)
DECLARE @tabla   FLOAT
DECLARE @cantidad FLOAT
DECLARE @almacen CHAR(4)
DECLARE @linea INT
DECLARE @factura  FLOAT
DECLARE @RETURNMESSAGE CHAR(200)
/***************************************
*** IMPUTAR LO NUEVO *******************
***************************************/
SELECT @empresa = empresa, @serie = serie, @numero = numero,
    @codigo = proveedo, @importe=-total,
     @dto_c=dto_c,@dto_p=dto_p,@dto_rec=dto_rec,@fecha=fecha,
     @a_suma1=a_suma1,@a_suma2=a_suma2,@a_suma3=a_suma3,@a_suma4=a_suma4,
     @a_rec1=a_rec1,@a_rec2=a_rec2,@a_rec3=a_rec3,@a_rec4=a_rec4,
     @p_reten = retencion, @en_euro = en_euro, @cambio=cambio,@divisa=divisa,
     @factura=factura
    FROM INSERTED
EXEC sp_xxx_calcula2 @empresa,@serie,@codigo, @fecha,
    @dto_c,@dto_p,@dto_rec,
    @a_suma1,@a_suma2,@a_suma3,@a_suma4,
    @a_rec1,@a_rec2,@a_rec3,@a_rec4, @p_reten, @divisa,@cambio, @en_euro,
    @a_dto1 OUTPUT,@a_dto2 OUTPUT,@a_dto3 OUTPUT,@a_dto4 OUTPUT,
    @a_base1 OUTPUT,@a_base2 OUTPUT,@a_base3 OUTPUT,@a_base4 OUTPUT,
    @a_iva1 OUTPUT,@a_iva2 OUTPUT,@a_iva3 OUTPUT,@a_iva4 OUTPUT,
    @a_re1 OUTPUT,@a_re2 OUTPUT,@a_re3 OUTPUT,@a_re4 OUTPUT,
    @a_impret OUTPUT, @a_total OUTPUT,
    @suma1   OUTPUT,@suma2     OUTPUT,@suma3    OUTPUT,@suma4    OUTPUT,
    @dto1    OUTPUT,@dto2      OUTPUT,@dto3     OUTPUT,@dto4     OUTPUT,
    @base1   OUTPUT,@base2     OUTPUT,@base3    OUTPUT,@base4    OUTPUT,
    @iva1    OUTPUT,@iva2      OUTPUT,@iva3     OUTPUT,@iva4     OUTPUT,
    @re1     OUTPUT,@re2       OUTPUT,@re3      OUTPUT,@re4      OUTPUT,
    @recargo1 OUTPUT,@recargo2 OUTPUT,@recargo3 OUTPUT,@recargo4 OUTPUT,
    @imp_ret OUTPUT, @total    OUTPUT
UPDATE albpro SET a_suma1=@a_suma1,a_suma2=@a_suma2,a_suma3=@a_suma3, a_suma4=@a_suma4,
        a_dto1=@a_dto1,a_dto2=@a_dto2,a_dto3=@a_dto3,a_dto4=@a_dto4,
        a_base1=@a_base1,a_base2=@a_base2,a_base3=@a_base3,a_base4=@a_base4,
        a_iva1=@a_iva1,a_iva2=@a_iva2,a_iva3=@a_iva3,a_iva4=@a_iva4,
        a_re1=@a_re1,a_re2=@a_re2,a_re3=@a_re3,a_re4=@a_re4,
        a_impret = @a_impret, a_total = @a_total ,
        suma1=@suma1,suma2=@suma2,suma3=@suma3, suma4=@suma4,
        recargo1=@recargo1,recargo2=@recargo2,recargo3=@recargo3,recargo4=@recargo4,
        dto1=@dto1,dto2=@dto2,dto3=@dto3,dto4=@dto4,
        base1=@base1,base2=@base2,base3=@base3,base4=@base4,
        iva1=@iva1,iva2=@iva2,iva3=@iva3,iva4=@iva4,
        re1=@re1,re2=@re2,re3=@re3,re4=@re4,
        impret = @imp_ret, total = @total

    WHERE empresa=@empresa AND serie=@serie AND numero=@numero
SELECT @importe=@importe+@total
IF @factura=0
    EXECUTE sp_riesgo_pro @empresa,@codigo,'P',@importe,@en_euro








GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO



CREATE TRIGGER alclpar_iu ON dbo.ALCLPAR
FOR INSERT,UPDATE
AS
DECLARE @empresa CHAR(4)
DECLARE @cliente CHAR(10)
DECLARE @ano     CHAR(4)
DECLARE @mes     CHAR(2)
DECLARE @dia     CHAR(2)
DECLARE @cla_cli CHAR(14)
DECLARE @c_fecha CHAR(10)
DECLARE @fecha   DATETIME

SELECT @empresa=empresa,@cliente=cliente,@ano=ano,@mes=mes,@dia=dia
    FROM INSERTED

SELECT @cla_cli=@empresa+@cliente
set dateformat ymd
SELECT @c_fecha=@ano+"/"+@mes+"/"+@dia
SELECT @fecha=@c_fecha


/*
SELECT @dia,@mes,@ano,@c_fecha,@fecha

*/



UPDATE alclpar SET cla_cli=@cla_cli,fecha=@fecha
    WHERE @empresa=empresa AND @cliente=cliente AND @ano=ano AND @mes=mes AND @dia=dia









GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO






/****** Object:  Trigger dbo.alctec_iu    Script Date: 18/5/01 12:58:21 ******/
/****** Object:  Trigger dbo.alctec_iu    Script Date: 3/5/01 9:24:49 ******/
/****** Object:  Trigger dbo.alctec_iu    Script Date: 19/2/01 11:30:21 ******/
/****** Object:  Trigger dbo.alctec_iu    Script Date: 14/12/00 12:25:09 ******/
/****** Object:  Trigger dbo.alctec_iu    Script Date: 26/9/00 13:23:21 ******/
/****** Object:  Trigger dbo.alctec_iu    Script Date: 26/6/00 14:56:52 ******/
/****** Object:  Trigger dbo.alctec_iu    Script Date: 26/6/00 9:03:33 ******/
/****** Object:  Trigger dbo.alctec_iu    Script Date: 24/3/2000 10:08:30 ******/
/****** Object:  Trigger dbo.alctec_iu    Script Date: 23/3/2000 15:31:29 ******/
CREATE TRIGGER alctec_iu ON dbo.ALCTEC
FOR INSERT,UPDATE
AS
DECLARE @empresa CHAR(4)
DECLARE @cliente CHAR(10)

DECLARE @cla_cli CHAR(14)
SELECT @empresa=empresa,@cliente=cliente
    FROM INSERTED
SELECT @cla_cli=@empresa+@cliente
UPDATE alctec SET cla_cli=@cla_cli
    WHERE @empresa=empresa AND cliente=@cliente








GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO






/****** Object:  Trigger dbo.articulo_d    Script Date: 18/5/01 12:58:21 ******/
/****** Object:  Trigger dbo.articulo_d    Script Date: 3/5/01 9:24:49 ******/
/****** Object:  Trigger dbo.articulo_d    Script Date: 19/2/01 11:30:21 ******/
/****** Object:  Trigger dbo.articulo_d    Script Date: 14/12/00 12:25:09 ******/
/****** Object:  Trigger dbo.articulo_d    Script Date: 26/9/00 13:23:21 ******/
/****** Object:  Trigger dbo.articulo_d    Script Date: 26/6/00 14:56:52 ******/
/****** Object:  Trigger dbo.articulo_d    Script Date: 26/6/00 9:03:33 ******/
/****** Object:  Trigger dbo.articulo_d    Script Date: 24/3/2000 10:08:30 ******/
/****** Object:  Trigger dbo.articulo_d    Script Date: 23/3/2000 15:31:29 ******/
/****** Object:  Trigger dbo.articulo_d    Script Date: 23/3/2000 11:25:17 ******/
/****** Object:  Trigger dbo.articulo_d    Script Date: 16/3/2000 12:08:28 ******/
/****** Object:  Trigger dbo.articulo_d    Script Date: 2/3/2000 8:30:20 ******/
/****** Object:  Trigger dbo.articulo_d    Script Date: 24/6/99 16:21:01 ******/
/****** Object:  Trigger dbo.articulo_d    Script Date: 1/6/99 13:16:16 ******/
CREATE TRIGGER articulo_d ON articulo
FOR DELETE
AS
DECLARE @raiz  char(16)
DECLARE @talla char(2)
DECLARE @color char(2)
DECLARE @empresa char(4)
DECLARE @descrip char(40)
DECLARE @kit     char(1)
SELECT @raiz=raiz,@talla=talla,@color=color,@empresa=empresa,@kit=kit FROM deleted
DELETE arti2 WHERE empresa=@empresa AND raiz=@raiz AND talla=@talla AND color=@color
/*
DELETE cod_art WHERE empresa=@empresa AND raiz=@raiz AND talla=@talla AND color=@color
*/








GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO






/****** Object:  Trigger dbo.articulo_i    Script Date: 18/5/01 12:58:21 ******/
/****** Object:  Trigger dbo.articulo_i    Script Date: 3/5/01 9:24:49 ******/
/****** Object:  Trigger dbo.articulo_i    Script Date: 19/2/01 11:30:21 ******/
/****** Object:  Trigger dbo.articulo_i    Script Date: 14/12/00 12:25:09 ******/
/****** Object:  Trigger dbo.articulo_i    Script Date: 26/9/00 13:23:21 ******/
/****** Object:  Trigger dbo.articulo_i    Script Date: 26/6/00 14:56:53 ******/
/****** Object:  Trigger dbo.articulo_i    Script Date: 26/6/00 9:03:33 ******/
/****** Object:  Trigger dbo.articulo_i    Script Date: 24/3/2000 10:08:30 ******/
/****** Object:  Trigger dbo.articulo_i    Script Date: 23/3/2000 15:31:29 ******/
/****** Object:  Trigger dbo.articulo_i    Script Date: 23/3/2000 11:25:17 ******/
/****** Object:  Trigger dbo.articulo_i    Script Date: 16/3/2000 12:08:28 ******/
/****** Object:  Trigger dbo.articulo_i    Script Date: 2/3/2000 8:30:20 ******/
/****** Object:  Trigger dbo.articulo_i    Script Date: 24/6/99 16:21:01 ******/
/****** Object:  Trigger dbo.articulo_i    Script Date: 1/6/99 13:16:16 ******/
CREATE TRIGGER articulo_i ON dbo.articulo
FOR INSERT
AS
DECLARE @empresa char(4)
DECLARE @raiz  char(16)
DECLARE @talla char(2)
DECLARE @color char(2)
DECLARE @barras char(13)
DECLARE @referencia CHAR(20)
DECLARE @raiz2  char(16)
DECLARE @talla2 char(2)
DECLARE @color2 char(2)
DECLARE @descrip2 char(20)
DECLARE @descrip char(20)
DECLARE @kit     char(1)
DECLARE @kit2   char(1)
SELECT @raiz=raiz,@talla=talla,@color=color,@empresa=empresa,@kit=kit,
    @referencia=referencia,@barras=barras FROM inserted
SELECT @raiz2=@raiz+'                ',@talla2=@talla+'  ',@color2=@color+'  ',@kit2=@kit+' ', @descrip2=@descrip+'                                                                 '
/*
UPDATE articulo SET ind_codigo=@raiz2+@talla2+@color2,ind_descrip=@descrip2+@raiz2+@talla2+@color2 WHERE empresa=@empresa AND raiz=@raiz AND talla=@talla AND color=@color
*/
INSERT INTO arti2 (empresa,raiz,talla,color,kit,e_vidap,e_vidau,costemed) VALUES (@empresa,@raiz,@talla,@color,@kit,0,0,0)
/*
DELETE cod_art WHERE empresa=@empresa AND raiz=@raiz AND talla=@talla AND color=@color
INSERT INTO cod_art (empresa,codigo,tipo_cod,raiz,talla,color,descripcio) VALUES (@empresa,@raiz2+@talla2+@color2,'C',@raiz,@talla,@color,@descrip)
IF @descrip<>''
    INSERT INTO cod_art (empresa,codigo,tipo_cod,raiz,talla,color,descripcio) VALUES (@empresa,@descrip2,'D',@raiz,@talla,@color,@descrip)
IF @barras<>''
    INSERT INTO cod_art (empresa,codigo,tipo_cod,raiz,talla,color,descripcio) VALUES (@empresa,@barras,'B',@raiz,@talla,@color,@descrip)
IF @referencia<>''
    INSERT INTO cod_art (empresa,codigo,tipo_cod,raiz,talla,color,descripcio) VALUES (@empresa,@referencia,'R',@raiz,@talla,@color,@descrip)
*/
return








GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO






/****** Object:  Trigger dbo.articulo_u    Script Date: 18/5/01 12:58:21 ******/
/****** Object:  Trigger dbo.articulo_u    Script Date: 3/5/01 9:24:49 ******/
/****** Object:  Trigger dbo.articulo_u    Script Date: 19/2/01 11:30:21 ******/
/****** Object:  Trigger dbo.articulo_u    Script Date: 14/12/00 12:25:09 ******/
/****** Object:  Trigger dbo.articulo_u    Script Date: 26/9/00 13:23:21 ******/
/****** Object:  Trigger dbo.articulo_u    Script Date: 26/6/00 14:56:53 ******/
/****** Object:  Trigger dbo.articulo_u    Script Date: 26/6/00 9:03:33 ******/
/****** Object:  Trigger dbo.articulo_u    Script Date: 24/3/2000 10:08:30 ******/
/****** Object:  Trigger dbo.articulo_u    Script Date: 23/3/2000 15:31:29 ******/
/****** Object:  Trigger dbo.articulo_u    Script Date: 23/3/2000 11:25:17 ******/
/****** Object:  Trigger dbo.articulo_u    Script Date: 16/3/2000 12:08:28 ******/
/****** Object:  Trigger dbo.articulo_u    Script Date: 2/3/2000 8:30:20 ******/
/****** Object:  Trigger dbo.articulo_u    Script Date: 24/6/99 16:21:01 ******/
/****** Object:  Trigger dbo.articulo_u    Script Date: 1/6/99 13:16:16 ******/
CREATE TRIGGER articulo_u ON dbo.articulo
FOR UPDATE
AS
DECLARE @empresa char(4)
DECLARE @raiz  char(16)
DECLARE @talla char(2)
DECLARE @color char(2)
DECLARE @barras char(13)
DECLARE @referencia CHAR(20)
DECLARE @raiz2  char(16)
DECLARE @talla2 char(2)
DECLARE @color2 char(2)
DECLARE @descrip2 char(250)
DECLARE @descrip char(250)
DECLARE @kit     char(1)
DECLARE @kit2   char(1)
SELECT @raiz=raiz,@talla=talla,@color=color,@empresa=empresa,
    @kit=kit,
    @referencia=referencia,@barras=barras FROM inserted
SELECT @raiz2=@raiz+'                ',@talla2=@talla+'  ',
    @color2=@color+'  ',@kit2=@kit+' ',
    @descrip2=@descrip+'                                                                 '
/*
UPDATE articulo SET ind_codigo=@raiz2+@talla2+@color2,ind_descrip=@descrip2+@raiz2+@talla2+@color2 WHERE empresa=@empresa AND raiz=@raiz AND talla=@talla AND color=@color
*/
UPDATE arti2 SET kit=@kit  WHERE empresa=@empresa AND raiz=@raiz AND talla=@talla AND color=@color
/*
DELETE cod_art WHERE empresa=@empresa AND raiz=@raiz AND talla=@talla AND color=@color
INSERT INTO cod_art (empresa,codigo,tipo_cod,raiz,talla,color,descripcio) VALUES (@empresa,@raiz2+@talla2+@color2,'C',@raiz,@talla,@color,@descrip)
IF LTRIM(RTRIM(@descrip))<>''
INSERT INTO cod_art (empresa,codigo,tipo_cod,raiz,talla,color,descripcio) VALUES (@empresa,@descrip2,'D',@raiz,@talla,@color,@descrip)
IF LTRIM(RTRIM(@barras))<>''
    INSERT INTO cod_art (empresa,codigo,tipo_cod,raiz,talla,color,descripcio) VALUES (@empresa,@barras,'B',@raiz,@talla,@color,@descrip)
IF LTRIM(RTRIM(@referencia))<>''
    INSERT INTO cod_art (empresa,codigo,tipo_cod,raiz,talla,color,descripcio) VALUES (@empresa,@referencia,'R',@raiz,@talla,@color,@descrip)
*/
return








GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO










/****** Object:  Trigger dbo.cambiar_i    Script Date: 23/3/01 12:32:16 ******/
/****** Object:  Trigger dbo.cambiar_i    Script Date: 14/12/00 12:25:12 ******/
/****** Object:  Trigger dbo.cambiar_i    Script Date: 26/9/00 13:23:21 ******/
/****** Object:  Trigger dbo.cambiar_i    Script Date: 26/6/00 14:57:06 ******/
/****** Object:  Trigger dbo.cambiar_i    Script Date: 26/6/00 9:03:35 ******/
/****** Object:  Trigger dbo.cambiar_i    Script Date: 24/3/2000 10:08:32 ******/
/****** Object:  Trigger dbo.cambiar_i    Script Date: 23/3/2000 15:31:30 ******/
/****** Object:  Trigger dbo.cambiar_i    Script Date: 23/3/2000 11:25:18 ******/
/****** Object:  Trigger dbo.cambiar_i    Script Date: 16/3/2000 12:08:29 ******/
/****** Object:  Trigger dbo.cambiar_i    Script Date: 2/3/2000 8:30:21 ******/
/****** Object:  Trigger dbo.cambiar_i    Script Date: 24/6/99 16:21:01 ******/
/****** Object:  Trigger dbo.cambiar_i    Script Date: 1/6/99 13:16:16 ******/
CREATE TRIGGER cambiar_i ON dbo.CAMBIAR
FOR INSERT
AS
DECLARE @empresa         CHAR(4)
DECLARE @serie           CHAR(2)
DECLARE @numero          FLOAT
DECLARE @fichero         CHAR(10)
DECLARE @num_albaran     FLOAT
DECLARE @mensaje         CHAR(255)
/*EXEC SP_XXX_PONMSG 'Estoy en Cambiar, al principio'*/
SELECT @fichero=LOWER(@fichero)
SELECT @empresa=empresa, @serie=serie, @numero=numero, @fichero=fich
    FROM inserted
IF @fichero='factura'
    EXEC sp_haz_deuda @empresa,@serie,@numero
IF @fichero='albpro'
    EXEC sp_finaliza_pro 'albpro', @empresa, @serie, @numero
IF @fichero='entrada'
    BEGIN
    SELECT @num_albaran=albaran FROM entrada
        WHERE empresa = @empresa AND
            serie = @serie AND
            numero = @numero
/*
    SELECT @mensaje='num_alb '+STR(@num_albaran)
    EXEC sp_xxx_ponmsg @mensaje
*/
    IF @num_albaran=0
        EXEC sp_finaliza_pro 'entrada', @empresa, @serie, @numero -- si albaran = 0
    EXECUTE sp_haz_deu2 @empresa, @serie, @numero
    END
/*EXEC SP_XXX_PONMSG 'Estoy en Cambiar, al final'*/










GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO






/****** Object:  Trigger dbo.cambios_u    Script Date: 18/5/01 12:58:21 ******/
/****** Object:  Trigger dbo.cambios_u    Script Date: 3/5/01 9:24:49 ******/
/****** Object:  Trigger dbo.cambios_u    Script Date: 19/2/01 11:30:21 ******/
/****** Object:  Trigger dbo.cambios_u    Script Date: 14/12/00 12:25:09 ******/
/****** Object:  Trigger dbo.cambios_u    Script Date: 26/9/00 13:23:21 ******/
/****** Object:  Trigger dbo.cambios_u    Script Date: 26/6/00 14:56:54 ******/
/****** Object:  Trigger dbo.cambios_u    Script Date: 26/6/00 9:03:33 ******/
/****** Object:  Trigger dbo.cambios_u    Script Date: 24/3/2000 10:08:31 ******/
/****** Object:  Trigger dbo.cambios_u    Script Date: 23/3/2000 15:31:29 ******/
/****** Object:  Trigger dbo.cambios_u    Script Date: 23/3/2000 11:25:17 ******/
/****** Object:  Trigger dbo.cambios_u    Script Date: 16/3/2000 12:08:28 ******/
/****** Object:  Trigger dbo.cambios_u    Script Date: 2/3/2000 8:30:20 ******/
/****** Object:  Trigger dbo.cambios_u    Script Date: 24/6/99 16:21:01 ******/
/****** Object:  Trigger dbo.cambios_u    Script Date: 1/6/99 13:16:16 ******/
CREATE TRIGGER cambios_u ON dbo.cambios
FOR UPDATE
AS
DECLARE @empresa char(4)
DECLARE @codigo char(10)
DECLARE @fecha datetime
DECLARE @fechas char(8)
SELECT  @empresa=empresa,@codigo=codigo,@fecha=fecha,@fecha=fecha FROM inserted
SELECT @fechas=CONVERT(char(8),@fecha,112)
/*el 112 es fecha en formato yyyymmdd*/
UPDATE cambios SET clav_1=@codigo+@fechas WHERE empresa=@empresa AND codigo=@codigo AND fecha=@fecha








GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO






/****** Object:  Trigger dbo.cambios_i    Script Date: 18/5/01 12:58:21 ******/
/****** Object:  Trigger dbo.cambios_i    Script Date: 3/5/01 9:24:49 ******/
/****** Object:  Trigger dbo.cambios_i    Script Date: 19/2/01 11:30:21 ******/
/****** Object:  Trigger dbo.cambios_i    Script Date: 14/12/00 12:25:09 ******/
/****** Object:  Trigger dbo.cambios_i    Script Date: 26/9/00 13:23:21 ******/
/****** Object:  Trigger dbo.cambios_i    Script Date: 26/6/00 14:56:53 ******/
/****** Object:  Trigger dbo.cambios_i    Script Date: 26/6/00 9:03:33 ******/
/****** Object:  Trigger dbo.cambios_i    Script Date: 24/3/2000 10:08:31 ******/
/****** Object:  Trigger dbo.cambios_i    Script Date: 23/3/2000 15:31:29 ******/
/****** Object:  Trigger dbo.cambios_i    Script Date: 23/3/2000 11:25:17 ******/
/****** Object:  Trigger dbo.cambios_i    Script Date: 16/3/2000 12:08:28 ******/
/****** Object:  Trigger dbo.cambios_i    Script Date: 2/3/2000 8:30:20 ******/
/****** Object:  Trigger dbo.cambios_i    Script Date: 24/6/99 16:21:01 ******/
/****** Object:  Trigger dbo.cambios_i    Script Date: 1/6/99 13:16:16 ******/
CREATE TRIGGER cambios_i ON dbo.cambios
FOR INSERT
AS
DECLARE @empresa char(4)
DECLARE @codigo char(10)
DECLARE @fecha datetime
DECLARE @fechas  char(8)
DECLARE @mes  char(3)
SELECT @empresa=empresa,@codigo=codigo,@fecha=fecha FROM inserted
SELECT @fechas=CONVERT(char(8),@fecha,112)
/*el 112 es fecha en formato yyyymmdd*/
UPDATE cambios SET clav_1=@codigo+@fechas WHERE empresa=@empresa AND codigo=@codigo AND fecha=@fecha








GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO






/****** Object:  Trigger dbo.clientes_i    Script Date: 18/5/01 12:58:21 ******/
/****** Object:  Trigger dbo.clientes_i    Script Date: 3/5/01 9:24:49 ******/
/****** Object:  Trigger dbo.clientes_i    Script Date: 19/2/01 11:30:21 ******/
/****** Object:  Trigger dbo.clientes_i    Script Date: 14/12/00 12:25:09 ******/
/****** Object:  Trigger dbo.clientes_i    Script Date: 26/9/00 13:23:21 ******/
/****** Object:  Trigger dbo.clientes_i    Script Date: 26/6/00 14:56:55 ******/
/****** Object:  Trigger dbo.clientes_i    Script Date: 26/6/00 9:03:33 ******/
CREATE TRIGGER clientes_i ON dbo.clientes
FOR INSERT
AS
DECLARE @empresa char(4)
DECLARE @codigo char(10)
DECLARE @nombre char(40)
DECLARE @anexo  char(40)
DECLARE @madre CHAR(10)
DECLARE @limite  FLOAT
DECLARE @tipomad FLOAT
DECLARE @cc      CHAR(20)
SELECT  @empresa=empresa,@codigo=codigo,@nombre=nombre,@anexo=anexo,@madre=madre, @tipomad=tipomad,@limite=riesgo_l FROM inserted
INSERT INTO cli2 (empresa,codigo,riesgo_pf,riesgo_f,riesgo_ef,tipomad,madre,riesgo_l) VALUES (@empresa,@codigo,0,0,0,@tipomad,@madre,@limite)
INSERT INTO cod_cli (empresa,cc,nombre,anexo,tipo_cod,codigo)
    VALUES (@empresa,@codigo,@nombre,@anexo,'C',@codigo)
IF NOT (LTRIM(RTRIM(@nombre))='')
    BEGIN
    SELECT @cc=@nombre
    INSERT INTO cod_cli (empresa,cc,nombre,anexo,tipo_cod,codigo)
        VALUES (@empresa,@cc,@nombre,@anexo,'N',@codigo)
    END
IF NOT (LTRIM(RTRIM(@anexo))='')
    BEGIN
    SELECT @cc=@anexo
    INSERT INTO cod_cli (empresa,cc,nombre,anexo,tipo_cod,codigo)
        VALUES (@empresa,@cc,@nombre,@anexo,'X',@codigo)
    END








GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO






/****** Object:  Trigger dbo.clientes_u    Script Date: 18/5/01 12:58:21 ******/
/****** Object:  Trigger dbo.clientes_u    Script Date: 3/5/01 9:24:49 ******/
/****** Object:  Trigger dbo.clientes_u    Script Date: 19/2/01 11:30:21 ******/
/****** Object:  Trigger dbo.clientes_u    Script Date: 14/12/00 12:25:09 ******/
/****** Object:  Trigger dbo.clientes_u    Script Date: 26/9/00 13:23:21 ******/
/****** Object:  Trigger dbo.clientes_u    Script Date: 26/6/00 14:56:55 ******/
/****** Object:  Trigger dbo.clientes_u    Script Date: 26/6/00 9:03:33 ******/
CREATE TRIGGER clientes_u ON dbo.clientes
FOR UPDATE
AS
DECLARE @empresa char(4)
DECLARE @codigo char(10)
DECLARE @nombre char(40)
DECLARE @anexo  char(40)
DECLARE @madre CHAR(10)
DECLARE @tipomad FLOAT
DECLARE @limite  FLOAT
DECLARE @cc      CHAR(20)
DECLARE @cx      CHAR(10)
SELECT  @empresa=empresa,@codigo=codigo,
    @nombre=nombre,@anexo=anexo,@madre=madre,
    @tipomad=tipomad,@limite=riesgo_l FROM inserted
UPDATE cli2 SET tipomad=@tipomad, madre=@madre,riesgo_l=@limite WHERE empresa=@empresa AND codigo=@codigo
DELETE  cod_cli WHERE empresa=@empresa AND codigo=@codigo AND tipo_cod<>'C'
/*
INSERT INTO cod_cli (empresa,cc,nombre,anexo,tipo_cod,codigo)
    VALUES (@empresa,@codigo,@nombre,@anexo,'C',@codigo)
*/
UPDATE cod_cli SET nombre=@nombre,anexo=@anexo WHERE empresa=@empresa AND codigo=@codigo AND tipo_cod='C'
IF NOT (LTRIM(RTRIM(@nombre))='')
    BEGIN
    SELECT @cc=@nombre
    SELECT @cx=@codigo
    INSERT INTO cod_cli (empresa,cc,nombre,anexo,tipo_cod,codigo)
        VALUES (@empresa,@cc,@nombre,@anexo,'N',@cx)
    END
IF NOT (LTRIM(RTRIM(@anexo))='')
    BEGIN
    SELECT @cc=@anexo
    SELECT @cx=@codigo
    INSERT INTO cod_cli (empresa,cc,nombre,anexo,tipo_cod,codigo)
        VALUES (@empresa,@cc,@nombre,@anexo,'X',@cx)
    END








GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO






/****** Object:  Trigger dbo.clientes_d    Script Date: 18/5/01 12:58:21 ******/
/****** Object:  Trigger dbo.clientes_d    Script Date: 3/5/01 9:24:49 ******/
/****** Object:  Trigger dbo.clientes_d    Script Date: 19/2/01 11:30:21 ******/
/****** Object:  Trigger dbo.clientes_d    Script Date: 14/12/00 12:25:09 ******/
/****** Object:  Trigger dbo.clientes_d    Script Date: 26/9/00 13:23:21 ******/
/****** Object:  Trigger dbo.clientes_d    Script Date: 26/6/00 14:56:54 ******/
/****** Object:  Trigger dbo.clientes_d    Script Date: 26/6/00 9:03:33 ******/
CREATE TRIGGER clientes_d ON dbo.clientes
FOR DELETE
AS
DECLARE @empresa char(4)
DECLARE @codigo char(10)
SELECT  @empresa=empresa,@codigo=codigo FROM deleted
DELETE  cli2 WHERE empresa=@empresa AND codigo=@codigo
DELETE cod_cli WHERE empresa=@empresa AND codigo=@codigo








GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO






/****** Object:  Trigger dbo.cm_doc_i    Script Date: 18/5/01 12:58:22 ******/
/****** Object:  Trigger dbo.cm_doc_i    Script Date: 3/5/01 9:24:50 ******/
/****** Object:  Trigger dbo.cm_doc_i    Script Date: 19/2/01 11:30:22 ******/
/****** Object:  Trigger dbo.cm_doc_i    Script Date: 14/12/00 12:25:10 ******/
/****** Object:  Trigger dbo.cm_doc_i    Script Date: 26/9/00 13:23:31 ******/
/****** Object:  Trigger dbo.cm_doc_i    Script Date: 26/6/00 14:56:59 ******/
/****** Object:  Trigger dbo.cm_doc_i    Script Date: 26/6/00 9:03:34 ******/
/****** Object:  Trigger dbo.cm_doc_i    Script Date: 24/3/2000 10:08:31 ******/
/****** Object:  Trigger dbo.cm_doc_i    Script Date: 23/3/2000 15:31:29 ******/
/****** Object:  Trigger dbo.cm_doc_i    Script Date: 23/3/2000 11:25:17 ******/
/****** Object:  Trigger dbo.cm_doc_i    Script Date: 16/3/2000 12:08:28 ******/
/****** Object:  Trigger dbo.cm_doc_i    Script Date: 2/3/2000 8:30:20 ******/
/****** Object:  Trigger dbo.cm_doc_i    Script Date: 24/6/99 16:21:01 ******/
/****** Object:  Trigger dbo.cm_doc_i    Script Date: 1/6/99 13:16:16 ******/
CREATE TRIGGER cm_doc_i ON dbo.CM_DOC
FOR INSERT
AS
DECLARE @fich CHAR(10)
DECLARE @en_euro         BIT
DECLARE @empresa         CHAR(4)
DECLARE @serie           CHAR(2)
DECLARE @numero          FLOAT
SELECT @fich=fich, @en_euro=en_euro,@empresa=empresa,@serie=serie,@numero=numero
    FROM inserted
EXEC sp_cm_doc @fich,@en_euro,@empresa,@serie,@numero








GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO






/****** Object:  Trigger dbo.cobros_d    Script Date: 18/5/01 12:58:22 ******/
/****** Object:  Trigger dbo.cobros_d    Script Date: 3/5/01 9:24:50 ******/
/****** Object:  Trigger dbo.cobros_d    Script Date: 19/2/01 11:30:22 ******/
/****** Object:  Trigger dbo.cobros_d    Script Date: 14/12/00 12:25:10 ******/
/****** Object:  Trigger dbo.cobros_d    Script Date: 26/9/00 13:23:31 ******/
/****** Object:  Trigger dbo.cobros_d    Script Date: 26/6/00 14:57:00 ******/
/****** Object:  Trigger dbo.cobros_d    Script Date: 26/6/00 9:03:34 ******/
/****** Object:  Trigger dbo.cobros_d    Script Date: 24/3/2000 10:08:31 ******/
/****** Object:  Trigger dbo.cobros_d    Script Date: 23/3/2000 15:31:29 ******/
/****** Object:  Trigger dbo.cobros_d    Script Date: 23/3/2000 11:25:17 ******/
/****** Object:  Trigger dbo.cobros_d    Script Date: 16/3/2000 12:08:28 ******/
/****** Object:  Trigger dbo.cobros_d    Script Date: 2/3/2000 8:30:20 ******/
/****** Object:  Trigger dbo.cobros_d    Script Date: 24/6/99 16:21:01 ******/
/****** Object:  Trigger dbo.cobros_d    Script Date: 1/6/99 13:16:16 ******/
CREATE TRIGGER cobros_d ON dbo.cobros
FOR DELETE
AS
DECLARE @empresa    CHAR(4)
DECLARE @serie      CHAR(2)
DECLARE @factura    FLOAT
DECLARE @dias       DATETIME
DECLARE @cliente    CHAR(10)
DECLARE @importe    FLOAT
DECLARE @en_euro    BIT
/* recoger los datos de deleted */
SELECT @empresa = empresa, @serie=serie, @factura=factura, @dias=dias,
    @dias=dias,@cliente=cliente,@en_euro=en_euro,@importe=-importe_c
    FROM DELETED
EXECUTE sp_imputa_cobro  @empresa,@serie,@factura,@dias,@cliente,@importe,@en_euro
RETURN








GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO






/****** Object:  Trigger dbo.cobros_i    Script Date: 18/5/01 12:58:22 ******/
/****** Object:  Trigger dbo.cobros_i    Script Date: 3/5/01 9:24:50 ******/
/****** Object:  Trigger dbo.cobros_i    Script Date: 19/2/01 11:30:22 ******/
/****** Object:  Trigger dbo.cobros_i    Script Date: 14/12/00 12:25:10 ******/
/****** Object:  Trigger dbo.cobros_i    Script Date: 26/9/00 13:23:31 ******/
/****** Object:  Trigger dbo.cobros_i    Script Date: 26/6/00 14:57:00 ******/
/****** Object:  Trigger dbo.cobros_i    Script Date: 26/6/00 9:03:34 ******/
/****** Object:  Trigger dbo.cobros_i    Script Date: 24/3/2000 10:08:31 ******/
/****** Object:  Trigger dbo.cobros_i    Script Date: 23/3/2000 15:31:29 ******/
/****** Object:  Trigger dbo.cobros_i    Script Date: 23/3/2000 11:25:17 ******/
/****** Object:  Trigger dbo.cobros_i    Script Date: 16/3/2000 12:08:28 ******/
/****** Object:  Trigger dbo.cobros_i    Script Date: 2/3/2000 8:30:20 ******/
/****** Object:  Trigger dbo.cobros_i    Script Date: 24/6/99 16:21:01 ******/
/****** Object:  Trigger dbo.cobros_i    Script Date: 1/6/99 13:16:16 ******/
CREATE TRIGGER cobros_i ON dbo.cobros
FOR INSERT
AS
DECLARE @empresa    CHAR(4)
DECLARE @serie      CHAR(2)
DECLARE @factura    FLOAT
DECLARE @dias       DATETIME
DECLARE @cliente    CHAR(10)
DECLARE @importe    FLOAT
DECLARE @en_euro    BIT
/* recoger los datos de deleted */
SELECT @empresa = empresa, @serie=serie, @factura=factura, @dias=dias,
    @dias=dias,@cliente=cliente,@en_euro=en_euro,@importe=importe_c
    FROM INSERTED
EXECUTE sp_imputa_cobro  @empresa,@serie,@factura,@dias,@cliente,@importe,@en_euro
RETURN








GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO






/****** Object:  Trigger dbo.cobros_u    Script Date: 18/5/01 12:58:22 ******/
/****** Object:  Trigger dbo.cobros_u    Script Date: 3/5/01 9:24:50 ******/
/****** Object:  Trigger dbo.cobros_u    Script Date: 19/2/01 11:30:22 ******/
/****** Object:  Trigger dbo.cobros_u    Script Date: 14/12/00 12:25:10 ******/
/****** Object:  Trigger dbo.cobros_u    Script Date: 26/9/00 13:23:31 ******/
/****** Object:  Trigger dbo.cobros_u    Script Date: 26/6/00 14:57:00 ******/
/****** Object:  Trigger dbo.cobros_u    Script Date: 26/6/00 9:03:34 ******/
/****** Object:  Trigger dbo.cobros_u    Script Date: 24/3/2000 10:08:31 ******/
/****** Object:  Trigger dbo.cobros_u    Script Date: 23/3/2000 15:31:29 ******/
/****** Object:  Trigger dbo.cobros_u    Script Date: 23/3/2000 11:25:17 ******/
/****** Object:  Trigger dbo.cobros_u    Script Date: 16/3/2000 12:08:28 ******/
/****** Object:  Trigger dbo.cobros_u    Script Date: 2/3/2000 8:30:20 ******/
/****** Object:  Trigger dbo.cobros_u    Script Date: 24/6/99 16:21:01 ******/
/****** Object:  Trigger dbo.cobros_u    Script Date: 1/6/99 13:16:16 ******/
CREATE TRIGGER cobros_u ON dbo.cobros
FOR UPDATE
AS
DECLARE @empresa    CHAR(4)
DECLARE @serie      CHAR(2)
DECLARE @factura    FLOAT
DECLARE @dias       DATETIME
DECLARE @cliente    CHAR(10)
DECLARE @importe    FLOAT
DECLARE @en_euro    BIT
/* recoger los datos de deleted */
SELECT @empresa = empresa, @serie=serie, @factura=factura, @dias=dias,
    @dias=dias,@cliente=cliente,@en_euro=en_euro,@importe=-importe_c
    FROM DELETED
EXECUTE sp_imputa_cobro  @empresa,@serie,@factura,@dias,@cliente,@importe,@en_euro
/* recoger los datos de deleted */
SELECT @empresa = empresa, @serie=serie, @factura=factura, @dias=dias,
    @dias=dias,@cliente=cliente,@en_euro=en_euro,@importe=importe_c
    FROM INSERTED
EXECUTE sp_imputa_cobro  @empresa,@serie,@factura,@dias,@cliente,@importe,@en_euro
RETURN








GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO






/****** Object:  Trigger dbo.compra_d    Script Date: 18/5/01 12:58:22 ******/
/****** Object:  Trigger dbo.compra_d    Script Date: 3/5/01 9:24:49 ******/
/****** Object:  Trigger dbo.compra_d    Script Date: 19/2/01 11:30:21 ******/
/****** Object:  Trigger dbo.compra_d    Script Date: 14/12/00 12:25:09 ******/
CREATE TRIGGER compra_d ON dbo.COMPRA
FOR DELETE
AS
DECLARE @empresa     CHAR(4)
DECLARE @serie         CHAR(2)
DECLARE @numero     FLOAT
SELECT @empresa = empresa, @serie = serie, @numero = numero
    FROM deleted
UPDATE albpro SET albpro.pedido = 0
    WHERE albpro.empresa= @empresa
        AND albpro.pedido= @numero
        AND albpro.serie= @serie
/******************************************************************************
DO METE_ERR WITH 'El pedido se corresponde con el albaran nº ' + albpro.serie +'/'+STR(albpro.numero)
*********************************************************************************/
UPDATE entrada SET entrada.pedido = 0
    WHERE entrada.empresa= @empresa
        AND entrada.pedido= @numero
        AND serie= @serie
/******************************************************************************
DO METE_ERR WITH 'El pedido se corresponde con la factura nº '+entrada.serie+'/'+STR(entrada.numero)
*********************************************************************************/








GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO






/****** Object:  Trigger dbo.compra_i    Script Date: 18/5/01 12:58:22 ******/
/****** Object:  Trigger dbo.compra_i    Script Date: 3/5/01 9:24:50 ******/
/****** Object:  Trigger dbo.compra_i    Script Date: 19/2/01 11:30:22 ******/
/****** Object:  Trigger dbo.compra_i    Script Date: 14/12/00 12:25:09 ******/
CREATE TRIGGER compra_i ON dbo.COMPRA
FOR INSERT
AS
DECLARE @empresa     CHAR(4)
DECLARE @serie         CHAR(2)
DECLARE @numero     FLOAT
DECLARE @raiz         CHAR(16)
DECLARE @talla         CHAR(2)
DECLARE @color         CHAR(2)
DECLARE @total_l     FLOAT
DECLARE @tipoiva    INT
DECLARE @cliente        CHAR(10)
DECLARE @fecha   DATETIME
DECLARE @a_suma1   FLOAT
DECLARE @a_suma2   FLOAT
DECLARE @a_suma3   FLOAT
DECLARE @a_suma4   FLOAT
DECLARE @a_rec1   FLOAT
DECLARE @a_rec2   FLOAT
DECLARE @a_rec3   FLOAT
DECLARE @a_rec4   FLOAT
DECLARE @a_dto1    FLOAT
DECLARE @a_dto2    FLOAT
DECLARE @a_dto3    FLOAT
DECLARE @a_dto4    FLOAT
DECLARE @a_base1   FLOAT
DECLARE @a_base2   FLOAT
DECLARE @a_base3   FLOAT
DECLARE @a_base4   FLOAT
DECLARE @a_iva1    FLOAT
DECLARE @a_iva2    FLOAT

DECLARE @a_iva3    FLOAT
DECLARE @a_iva4    FLOAT
DECLARE @a_re1    FLOAT
DECLARE @a_re2    FLOAT
DECLARE @a_re3    FLOAT
DECLARE @a_re4    FLOAT
DECLARE @dto_c   FLOAT
DECLARE @dto_p   FLOAT
DECLARE @dto_rec FLOAT
DECLARE @p_reten FLOAT
DECLARE @en_euro BIT
DECLARE @a_total   FLOAT
DECLARE @a_impret FLOAT
DECLARE @suma1   FLOAT
DECLARE @suma2   FLOAT
DECLARE @suma3   FLOAT
DECLARE @suma4   FLOAT
DECLARE @recargo1   FLOAT
DECLARE @recargo2   FLOAT
DECLARE @recargo3   FLOAT
DECLARE @recargo4   FLOAT
DECLARE @dto1    FLOAT
DECLARE @dto2    FLOAT
DECLARE @dto3    FLOAT
DECLARE @dto4    FLOAT
DECLARE @base1   FLOAT
DECLARE @base2   FLOAT
DECLARE @base3   FLOAT
DECLARE @base4   FLOAT
DECLARE @iva1    FLOAT
DECLARE @iva2    FLOAT

DECLARE @iva3    FLOAT
DECLARE @iva4    FLOAT
DECLARE @re1    FLOAT
DECLARE @re2    FLOAT
DECLARE @re3    FLOAT
DECLARE @re4    FLOAT
DECLARE @total   FLOAT
DECLARE @imp_ret FLOAT
DECLARE @divisa  CHAR(10)
DECLARE @cambio  FLOAT
DECLARE @importe FLOAT
DECLARE @codigo  CHAR(10)
DECLARE @tipo    CHAR(1)
DECLARE @tabla   FLOAT
DECLARE @cantidad FLOAT
DECLARE @almacen CHAR(4)
DECLARE @linea INT
DECLARE @RETURNMESSAGE CHAR(200)
/***************************************
*** IMPUTAR LO NUEVO *******************
***************************************/
SELECT @empresa = empresa, @serie = serie, @numero = numero,
    @codigo = cliente, @importe=-total,
     @dto_c=dto_c,@dto_p=dto_p,@dto_rec=dto_rec,@fecha=fecha,
     @a_suma1=a_suma1,@a_suma2=a_suma2,@a_suma3=a_suma3,@a_suma4=a_suma4,
     @a_rec1=a_rec1,@a_rec2=a_rec2,@a_rec3=a_rec3,@a_rec4=a_rec4,
     @p_reten = retencion, @en_euro = en_euro, @cambio=cambio,@divisa=divisa
    FROM INSERTED
EXEC sp_xxx_calcula2 @empresa,@serie,@codigo, @fecha,
    @dto_c,@dto_p,@dto_rec,
    @a_suma1,@a_suma2,@a_suma3,@a_suma4,
    @a_rec1,@a_rec2,@a_rec3,@a_rec4, @p_reten, @divisa,@cambio, @en_euro,
    @a_dto1 OUTPUT,@a_dto2 OUTPUT,@a_dto3 OUTPUT,@a_dto4 OUTPUT,
    @a_base1 OUTPUT,@a_base2 OUTPUT,@a_base3 OUTPUT,@a_base4 OUTPUT,
    @a_iva1 OUTPUT,@a_iva2 OUTPUT,@a_iva3 OUTPUT,@a_iva4 OUTPUT,
    @a_re1 OUTPUT,@a_re2 OUTPUT,@a_re3 OUTPUT,@a_re4 OUTPUT,
    @a_impret OUTPUT, @a_total OUTPUT,
    @suma1   OUTPUT,@suma2     OUTPUT,@suma3    OUTPUT,@suma4    OUTPUT,
    @dto1    OUTPUT,@dto2      OUTPUT,@dto3     OUTPUT,@dto4     OUTPUT,
    @base1   OUTPUT,@base2     OUTPUT,@base3    OUTPUT,@base4    OUTPUT,
    @iva1    OUTPUT,@iva2      OUTPUT,@iva3     OUTPUT,@iva4     OUTPUT,
    @re1     OUTPUT,@re2       OUTPUT,@re3      OUTPUT,@re4      OUTPUT,
    @recargo1 OUTPUT,@recargo2 OUTPUT,@recargo3 OUTPUT,@recargo4 OUTPUT,

    @imp_ret OUTPUT, @total    OUTPUT
UPDATE compra SET a_suma1=@a_suma1,a_suma2=@a_suma2,a_suma3=@a_suma3, a_suma4=@a_suma4,
        a_dto1=@a_dto1,a_dto2=@a_dto2,a_dto3=@a_dto3,a_dto4=@a_dto4,
        a_base1=@a_base1,a_base2=@a_base2,a_base3=@a_base3,a_base4=@a_base4,
        a_iva1=@a_iva1,a_iva2=@a_iva2,a_iva3=@a_iva3,a_iva4=@a_iva4,
        a_re1=@a_re1,a_re2=@a_re2,a_re3=@a_re3,a_re4=@a_re4,
        a_impret = @a_impret, a_total = @a_total ,
        suma1=@suma1,suma2=@suma2,suma3=@suma3, suma4=@suma4,
        recargo1=@recargo1,recargo2=@recargo2,recargo3=@recargo3,recargo4=@recargo4,
        dto1=@dto1,dto2=@dto2,dto3=@dto3,dto4=@dto4,
        base1=@base1,base2=@base2,base3=@base3,base4=@base4,
        iva1=@iva1,iva2=@iva2,iva3=@iva3,iva4=@iva4,
        re1=@re1,re2=@re2,re3=@re3,re4=@re4,
        impret = @imp_ret, total = @total
    WHERE empresa=@empresa AND serie=@serie AND numero=@numero








GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO






/****** Object:  Trigger dbo.compra_u    Script Date: 18/5/01 12:58:22 ******/
/****** Object:  Trigger dbo.compra_u    Script Date: 3/5/01 9:24:50 ******/
/****** Object:  Trigger dbo.compra_u    Script Date: 19/2/01 11:30:22 ******/
/****** Object:  Trigger dbo.compra_u    Script Date: 14/12/00 12:25:10 ******/
CREATE TRIGGER compra_u ON dbo.COMPRA
FOR UPDATE
AS
DECLARE @empresa     CHAR(4)
DECLARE @serie         CHAR(2)
DECLARE @numero     FLOAT
DECLARE @raiz         CHAR(16)
DECLARE @talla         CHAR(2)
DECLARE @color         CHAR(2)
DECLARE @total_l     FLOAT
DECLARE @tipoiva    INT
DECLARE @cliente        CHAR(10)
DECLARE @fecha   DATETIME
DECLARE @a_suma1   FLOAT
DECLARE @a_suma2   FLOAT
DECLARE @a_suma3   FLOAT
DECLARE @a_suma4   FLOAT
DECLARE @a_rec1   FLOAT
DECLARE @a_rec2   FLOAT
DECLARE @a_rec3   FLOAT
DECLARE @a_rec4   FLOAT
DECLARE @a_dto1    FLOAT
DECLARE @a_dto2    FLOAT
DECLARE @a_dto3    FLOAT
DECLARE @a_dto4    FLOAT
DECLARE @a_base1   FLOAT
DECLARE @a_base2   FLOAT
DECLARE @a_base3   FLOAT
DECLARE @a_base4   FLOAT
DECLARE @a_iva1    FLOAT
DECLARE @a_iva2    FLOAT

DECLARE @a_iva3    FLOAT
DECLARE @a_iva4    FLOAT
DECLARE @a_re1    FLOAT
DECLARE @a_re2    FLOAT
DECLARE @a_re3    FLOAT
DECLARE @a_re4    FLOAT
DECLARE @dto_c   FLOAT
DECLARE @dto_p   FLOAT
DECLARE @dto_rec FLOAT
DECLARE @p_reten FLOAT
DECLARE @en_euro BIT
DECLARE @a_total   FLOAT
DECLARE @a_impret FLOAT
DECLARE @suma1   FLOAT
DECLARE @suma2   FLOAT
DECLARE @suma3   FLOAT
DECLARE @suma4   FLOAT
DECLARE @recargo1   FLOAT
DECLARE @recargo2   FLOAT
DECLARE @recargo3   FLOAT
DECLARE @recargo4   FLOAT
DECLARE @dto1    FLOAT
DECLARE @dto2    FLOAT
DECLARE @dto3    FLOAT
DECLARE @dto4    FLOAT
DECLARE @base1   FLOAT
DECLARE @base2   FLOAT
DECLARE @base3   FLOAT
DECLARE @base4   FLOAT
DECLARE @iva1    FLOAT
DECLARE @iva2    FLOAT

DECLARE @iva3    FLOAT
DECLARE @iva4    FLOAT
DECLARE @re1    FLOAT
DECLARE @re2    FLOAT
DECLARE @re3    FLOAT
DECLARE @re4    FLOAT
DECLARE @total   FLOAT
DECLARE @imp_ret FLOAT
DECLARE @divisa  CHAR(10)
DECLARE @cambio  FLOAT
DECLARE @importe FLOAT
DECLARE @codigo  CHAR(10)
DECLARE @tipo    CHAR(1)
DECLARE @tabla   FLOAT
DECLARE @cantidad FLOAT
DECLARE @almacen CHAR(4)
DECLARE @linea INT
DECLARE @RETURNMESSAGE CHAR(200)
DECLARE @cambio_ant    FLOAT
/***************************************
*** IMPUTAR LO NUEVO *******************
***************************************/
SELECT @empresa = empresa, @serie = serie, @numero = numero,
    @codigo = cliente, @importe=-total,
     @dto_c=dto_c,@dto_p=dto_p,@dto_rec=dto_rec,@fecha=fecha,
     @a_suma1=a_suma1,@a_suma2=a_suma2,@a_suma3=a_suma3,@a_suma4=a_suma4,
     @a_rec1=a_rec1,@a_rec2=a_rec2,@a_rec3=a_rec3,@a_rec4=a_rec4,
     @p_reten = retencion, @en_euro = en_euro, @cambio=cambio,@divisa=divisa
    FROM INSERTED
SELECT @cambio_ant = cambio
    FROM DELETED
IF @cambio<>@cambio_ant
    BEGIN
    EXEC sp_xxx_ponmsg 'Contravalores Recalculados'
    UPDATE lineacom SET precio=a_pre*@cambio,
        precio_sin=a_pre_s*@cambio,
        total_l   =a_tot_l*@cambio
        WHERE empresa=@empresa AND serie=@serie AND numero=@numero
    END
EXEC sp_xxx_calcula2 @empresa,@serie, @codigo,@fecha,
    @dto_c,@dto_p,@dto_rec,
    @a_suma1,@a_suma2,@a_suma3,@a_suma4,
    @a_rec1,@a_rec2,@a_rec3,@a_rec4, @p_reten, @divisa,@cambio, @en_euro,
    @a_dto1 OUTPUT,@a_dto2 OUTPUT,@a_dto3 OUTPUT,@a_dto4 OUTPUT,
    @a_base1 OUTPUT,@a_base2 OUTPUT,@a_base3 OUTPUT,@a_base4 OUTPUT,
    @a_iva1 OUTPUT,@a_iva2 OUTPUT,@a_iva3 OUTPUT,@a_iva4 OUTPUT,
    @a_re1 OUTPUT,@a_re2 OUTPUT,@a_re3 OUTPUT,@a_re4 OUTPUT,
    @a_impret OUTPUT, @a_total OUTPUT,
    @suma1   OUTPUT,@suma2     OUTPUT,@suma3    OUTPUT,@suma4    OUTPUT,
    @dto1    OUTPUT,@dto2      OUTPUT,@dto3     OUTPUT,@dto4     OUTPUT,
    @base1   OUTPUT,@base2     OUTPUT,@base3    OUTPUT,@base4    OUTPUT,
    @iva1    OUTPUT,@iva2      OUTPUT,@iva3     OUTPUT,@iva4     OUTPUT,
    @re1     OUTPUT,@re2       OUTPUT,@re3      OUTPUT,@re4      OUTPUT,

    @recargo1 OUTPUT,@recargo2 OUTPUT,@recargo3 OUTPUT,@recargo4 OUTPUT,
    @imp_ret OUTPUT, @total    OUTPUT
UPDATE compra SET a_suma1=@a_suma1,a_suma2=@a_suma2,a_suma3=@a_suma3, a_suma4=@a_suma4,
        a_dto1=@a_dto1,a_dto2=@a_dto2,a_dto3=@a_dto3,a_dto4=@a_dto4,
        a_base1=@a_base1,a_base2=@a_base2,a_base3=@a_base3,a_base4=@a_base4,
        a_iva1=@a_iva1,a_iva2=@a_iva2,a_iva3=@a_iva3,a_iva4=@a_iva4,
        a_re1=@a_re1,a_re2=@a_re2,a_re3=@a_re3,a_re4=@a_re4,
        a_impret = @a_impret, a_total = @a_total ,
        suma1=@suma1,suma2=@suma2,suma3=@suma3, suma4=@suma4,
        recargo1=@recargo1,recargo2=@recargo2,recargo3=@recargo3,recargo4=@recargo4,
        dto1=@dto1,dto2=@dto2,dto3=@dto3,dto4=@dto4,
        base1=@base1,base2=@base2,base3=@base3,base4=@base4,
        iva1=@iva1,iva2=@iva2,iva3=@iva3,iva4=@iva4,
        re1=@re1,re2=@re2,re3=@re3,re4=@re4,
        impret = @imp_ret, total = @total
    WHERE empresa=@empresa AND serie=@serie AND numero=@numero








GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO






/****** Object:  Trigger dbo.entalb_i    Script Date: 18/5/01 12:58:22 ******/
/****** Object:  Trigger dbo.entalb_i    Script Date: 3/5/01 9:24:50 ******/
/****** Object:  Trigger dbo.entalb_i    Script Date: 19/2/01 11:30:22 ******/
/****** Object:  Trigger dbo.entalb_i    Script Date: 14/12/00 12:25:10 ******/
/****** Object:  Trigger dbo.entalb_i    Script Date: 26/9/00 13:23:31 ******/
/****** Object:  Trigger dbo.entalb_i    Script Date: 26/6/00 14:57:01 ******/
/****** Object:  Trigger dbo.entalb_i    Script Date: 26/6/00 9:03:34 ******/
/****** Object:  Trigger dbo.entalb_i    Script Date: 24/3/2000 10:08:31 ******/
/****** Object:  Trigger dbo.entalb_i    Script Date: 23/3/2000 15:31:29 ******/
/****** Object:  Trigger dbo.entalb_i    Script Date: 23/3/2000 11:25:17 ******/
/****** Object:  Trigger dbo.entalb_i    Script Date: 16/3/2000 12:08:28 ******/
/****** Object:  Trigger dbo.entalb_i    Script Date: 2/3/2000 8:30:20 ******/
/****** Object:  Trigger dbo.entalb_i    Script Date: 24/6/99 16:21:01 ******/
/****** Object:  Trigger dbo.entalb_i    Script Date: 1/6/99 13:16:15 ******/
CREATE TRIGGER entalb_i ON dbo.ENTALB
FOR INSERT
AS
DECLARE @empresa         CHAR(4)
DECLARE @serie           CHAR(2)
DECLARE @numero          FLOAT
DECLARE @numeroa         FLOAT
SELECT @empresa=empresa, @serie=serie, @numero=numero, @numeroa=numeroa
    FROM inserted
EXEC sp_mete_AlbPEnt @empresa, @serie, @numero, @numeroa








GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO






/****** Object:  Trigger dbo.entrada_d    Script Date: 18/5/01 12:58:22 ******/
/****** Object:  Trigger dbo.entrada_d    Script Date: 3/5/01 9:24:50 ******/
/****** Object:  Trigger dbo.entrada_d    Script Date: 19/2/01 11:30:22 ******/
/****** Object:  Trigger dbo.entrada_d    Script Date: 14/12/00 12:25:10 ******/
CREATE TRIGGER entrada_d ON dbo.ENTRADA
FOR DELETE
AS
DECLARE @empresa CHAR(4)
DECLARE @total   FLOAT
DECLARE @codigo  CHAR(10)
DECLARE @serie   CHAR(2)
DECLARE @numero  FLOAT
DECLARE @tipo    CHAR(1)
DECLARE @en_euro BIT
DECLARE @ic      FLOAT
DECLARE @dc      DATETIME
DECLARE @rc      CHAR(1)
DECLARE @ec      BIT
DECLARE @tc      CHAR(1)
DECLARE @sy_c1   FLOAT
DECLARE @sy_c2   FLOAT
DECLARE @recibido  CHAR(1)
DECLARE @importe   FLOAT
DECLARE @ALBARAN   FLOAT
DECLARE @quitar    FLOAT
DECLARE @ALBARAN_cliente CHAR(10)
DECLARE @total_ALBPRO   FLOAT
DECLARE @en_euro_ALBPRO BIT
DECLARE @numero_ALBPRO  FLOAT
DECLARE @serie_ALBPRO   CHAR(2)
/* recoger los datos de deleted => desimputarlos del riesgo*/
SELECT @empresa = empresa, @serie=serie,
    @numero=numero,
    @codigo = cliente, @tipo = 'F', @total = -total,@en_euro=en_euro,
    @ALBARAN=albaran
    FROM DELETED
SELECT @sy_c1=(SELECT sy_c1 FROM sistemad WHERE id=1)
SELECT @sy_c2=(SELECT sy_c2 FROM sistemad WHERE id=1)
DECLARE lc CURSOR FOR SELECT PAGOS.importe_c, PAGOS.dias, LINDEU2.recibido, PAGOS.en_euro
    FROM PAGOS, LINDEU2
    WHERE PAGOS.empresa=@empresa AND PAGOS.serie=@serie AND PAGOS.factura=@numero
        AND LINDEU2.empresa=@empresa AND LINDEU2.serie=@serie AND LINDEU2.numero=@numero
        AND LINDEU2.dias=PAGOS.dias
OPEN lc
FETCH NEXT FROM lc INTO @ic,@dc,@rc,@ec
WHILE (@@fetch_status <> -1)
  BEGIN
  IF (@@fetch_status <> -2)
     BEGIN
    /*DESHACER*/
     SELECT @tc='E'
     IF @rc='N'
    SELECT @tc='F'
     EXECUTE sp_RIESGO_PRO @empresa, @codigo, @tc, @ic, @ec
     END
  FETCH NEXT FROM lc INTO @ic,@dc,@rc,@ec
  END
CLOSE lc
DEALLOCATE lc
DELETE PAGOS  WHERE empresa=@empresa AND factura=@numero AND serie=@serie
DECLARE lind CURSOR FOR SELECT importe
    FROM LINDEU2
    WHERE empresa=@empresa AND serie=@serie AND numero=@numero
        AND recibido='S'
OPEN lind
FETCH NEXT FROM lind INTO @importe
WHILE (@@fetch_status <> -1)
  BEGIN
  IF (@@fetch_status <> -2)
     BEGIN
    /*DESHACER*/
     SELECT @quitar=-@importe
     EXECUTE sp_RIESGO_PRO @empresa, @codigo, 'F', @importe,@en_euro
     EXECUTE sp_RIESGO_PRO @empresa, @codigo, 'E', @quitar,@en_euro
     END
  FETCH NEXT FROM lind INTO @importe
  END
CLOSE lind
DEALLOCATE lind
DELETE LINDEU2 WHERE empresa=@empresa AND numero=@numero AND serie=@serie
EXECUTE sp_RIESGO_PRO @empresa, @codigo, 'F', @total,@en_euro
DECLARE aa CURSOR FOR SELECT total,proveedo,en_euro,numero,serie
    FROM ALBPRO
    WHERE empresa=@empresa AND seriefac=@serie AND factura=@numero
OPEN aa
FETCH NEXT FROM aa INTO @total_ALBPRO,@ALBARAN_CLIENTE,
    @en_euro_ALBPRO,@numero_ALBPRO,@serie_ALBPRO
WHILE (@@fetch_status <> -1)
  BEGIN
  IF (@@fetch_status <> -2)
     BEGIN
     EXECUTE sp_RIESGO_PRO @empresa, @ALBARAN_CLIENTE, 'P', @total_ALBPRO,@en_euro_ALBPRO
     UPDATE ALBPRO SET factura=0,seriefac=''
    WHERE empresa=@empresa AND serie=@serie_ALBPRO AND numero=@numero_ALBPRO
     END
  FETCH NEXT FROM aa INTO @total_ALBPRO,@ALBARAN_CLIENTE,
    @en_euro_ALBPRO,@numero_ALBPRO,@serie_ALBPRO
  END
CLOSE aa
DEALLOCATE aa
RETURN








GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO










/****** Object:  Trigger dbo.entrada_i    Script Date: 23/3/01 12:32:14 ******/
/****** Object:  Trigger dbo.entrada_i    Script Date: 14/12/00 12:25:10 ******/
CREATE TRIGGER entrada_i ON dbo.ENTRADA
FOR INSERT
AS
DECLARE @empresa     CHAR(4)
DECLARE @serie         CHAR(2)
DECLARE @numero     FLOAT
DECLARE @raiz         CHAR(16)
DECLARE @talla         CHAR(2)
DECLARE @color         CHAR(2)
DECLARE @total_l     FLOAT
DECLARE @tipoiva    INT
DECLARE @cliente        CHAR(10)
DECLARE @fecha   DATETIME
DECLARE @a_suma1   FLOAT
DECLARE @a_suma2   FLOAT
DECLARE @a_suma3   FLOAT
DECLARE @a_suma4   FLOAT
DECLARE @a_rec1   FLOAT
DECLARE @a_rec2   FLOAT
DECLARE @a_rec3   FLOAT
DECLARE @a_rec4   FLOAT
DECLARE @a_dto1    FLOAT
DECLARE @a_dto2    FLOAT
DECLARE @a_dto3    FLOAT
DECLARE @a_dto4    FLOAT
DECLARE @a_base1   FLOAT
DECLARE @a_base2   FLOAT
DECLARE @a_base3   FLOAT
DECLARE @a_base4   FLOAT
DECLARE @a_iva1    FLOAT
DECLARE @a_iva2    FLOAT
DECLARE @a_iva3    FLOAT
DECLARE @a_iva4    FLOAT
DECLARE @a_re1    FLOAT
DECLARE @a_re2    FLOAT
DECLARE @a_re3    FLOAT
DECLARE @a_re4    FLOAT
DECLARE @dto_c   FLOAT
DECLARE @dto_p   FLOAT
DECLARE @dto_rec FLOAT
DECLARE @p_reten FLOAT
DECLARE @en_euro BIT
DECLARE @a_total   FLOAT
DECLARE @a_impret FLOAT
DECLARE @suma1   FLOAT
DECLARE @suma2   FLOAT
DECLARE @suma3   FLOAT
DECLARE @suma4   FLOAT
DECLARE @recargo1   FLOAT
DECLARE @recargo2   FLOAT
DECLARE @recargo3   FLOAT
DECLARE @recargo4   FLOAT
DECLARE @dto1    FLOAT
DECLARE @dto2    FLOAT
DECLARE @dto3    FLOAT
DECLARE @dto4    FLOAT
DECLARE @base1   FLOAT
DECLARE @base2   FLOAT
DECLARE @base3   FLOAT
DECLARE @base4   FLOAT
DECLARE @iva1    FLOAT
DECLARE @iva2    FLOAT
DECLARE @iva3    FLOAT
DECLARE @iva4    FLOAT
DECLARE @re1    FLOAT
DECLARE @re2    FLOAT
DECLARE @re3    FLOAT
DECLARE @re4    FLOAT
DECLARE @total   FLOAT
DECLARE @imp_ret FLOAT
DECLARE @divisa  CHAR(10)
DECLARE @cambio  FLOAT
DECLARE @importe FLOAT
DECLARE @codigo  CHAR(10)
DECLARE @tipo    CHAR(1)
DECLARE @tabla   FLOAT
DECLARE @cantidad FLOAT
DECLARE @almacen CHAR(4)
DECLARE @linea INT
DECLARE @albaran  FLOAT
DECLARE @RETURNMESSAGE CHAR(200)
/***************************************
*** IMPUTAR LO NUEVO *******************
***************************************/
SELECT @empresa = empresa, @serie = serie, @numero = numero,
    @codigo = cliente, @importe=-total,
     @dto_c=dto_c,@dto_p=dto_p,@dto_rec=dto_rec,@fecha=fecha,
     @a_suma1=a_suma1,@a_suma2=a_suma2,@a_suma3=a_suma3,@a_suma4=a_suma4,
     @a_rec1=a_rec1,@a_rec2=a_rec2,@a_rec3=a_rec3,@a_rec4=a_rec4,
     @p_reten = retencion, @en_euro = en_euro, @cambio=cambio,@divisa=divisa,
     @albaran=albaran
    FROM INSERTED
EXEC sp_xxx_calcula2 @empresa,@serie, @codigo,@fecha,
    @dto_c,@dto_p,@dto_rec,
    @a_suma1,@a_suma2,@a_suma3,@a_suma4,
    @a_rec1,@a_rec2,@a_rec3,@a_rec4, @p_reten, @divisa,@cambio, @en_euro,
    @a_dto1 OUTPUT,@a_dto2 OUTPUT,@a_dto3 OUTPUT,@a_dto4 OUTPUT,
    @a_base1 OUTPUT,@a_base2 OUTPUT,@a_base3 OUTPUT,@a_base4 OUTPUT,
    @a_iva1 OUTPUT,@a_iva2 OUTPUT,@a_iva3 OUTPUT,@a_iva4 OUTPUT,
    @a_re1 OUTPUT,@a_re2 OUTPUT,@a_re3 OUTPUT,@a_re4 OUTPUT,
    @a_impret OUTPUT, @a_total OUTPUT,
    @suma1   OUTPUT,@suma2     OUTPUT,@suma3    OUTPUT,@suma4    OUTPUT,
    @dto1    OUTPUT,@dto2      OUTPUT,@dto3     OUTPUT,@dto4     OUTPUT,
    @base1   OUTPUT,@base2     OUTPUT,@base3    OUTPUT,@base4    OUTPUT,
    @iva1    OUTPUT,@iva2      OUTPUT,@iva3     OUTPUT,@iva4     OUTPUT,
    @re1     OUTPUT,@re2       OUTPUT,@re3      OUTPUT,@re4      OUTPUT,
    @recargo1 OUTPUT,@recargo2 OUTPUT,@recargo3 OUTPUT,@recargo4 OUTPUT,
    @imp_ret OUTPUT, @total    OUTPUT
UPDATE entrada SET a_suma1=@a_suma1,a_suma2=@a_suma2,a_suma3=@a_suma3, a_suma4=@a_suma4,
        a_dto1=@a_dto1,a_dto2=@a_dto2,a_dto3=@a_dto3,a_dto4=@a_dto4,
        a_base1=@a_base1,a_base2=@a_base2,a_base3=@a_base3,a_base4=@a_base4,
        a_iva1=@a_iva1,a_iva2=@a_iva2,a_iva3=@a_iva3,a_iva4=@a_iva4,
        a_re1=@a_re1,a_re2=@a_re2,a_re3=@a_re3,a_re4=@a_re4,
        a_impret = @a_impret, a_total = @a_total ,
        suma1=@suma1,suma2=@suma2,suma3=@suma3, suma4=@suma4,
        recargo1=@recargo1,recargo2=@recargo2,recargo3=@recargo3,recargo4=@recargo4,
        dto1=@dto1,dto2=@dto2,dto3=@dto3,dto4=@dto4,
        base1=@base1,base2=@base2,base3=@base3,base4=@base4,
        iva1=@iva1,iva2=@iva2,iva3=@iva3,iva4=@iva4,
        re1=@re1,re2=@re2,re3=@re3,re4=@re4,
        impret = @imp_ret, total = @total
    WHERE empresa=@empresa AND serie=@serie AND numero=@numero
SELECT @importe=@importe+@total
EXECUTE sp_riesgo_pro @empresa,@codigo,'F',@importe,@en_euro










GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO










/****** Object:  Trigger dbo.entrada_u    Script Date: 23/3/01 12:32:16 ******/
/****** Object:  Trigger dbo.entrada_u    Script Date: 14/12/00 12:25:12 ******/
CREATE TRIGGER entrada_u ON dbo.ENTRADA
FOR UPDATE
AS
DECLARE @empresa     CHAR(4)
DECLARE @serie         CHAR(2)
DECLARE @numero     FLOAT
DECLARE @raiz         CHAR(16)
DECLARE @talla         CHAR(2)
DECLARE @color         CHAR(2)
DECLARE @total_l     FLOAT
DECLARE @tipoiva    INT
DECLARE @cliente        CHAR(10)
DECLARE @fecha   DATETIME
DECLARE @a_suma1   FLOAT
DECLARE @a_suma2   FLOAT
DECLARE @a_suma3   FLOAT
DECLARE @a_suma4   FLOAT
DECLARE @a_rec1   FLOAT
DECLARE @a_rec2   FLOAT
DECLARE @a_rec3   FLOAT
DECLARE @a_rec4   FLOAT
DECLARE @a_dto1    FLOAT
DECLARE @a_dto2    FLOAT
DECLARE @a_dto3    FLOAT
DECLARE @a_dto4    FLOAT
DECLARE @a_base1   FLOAT
DECLARE @a_base2   FLOAT
DECLARE @a_base3   FLOAT
DECLARE @a_base4   FLOAT
DECLARE @a_iva1    FLOAT
DECLARE @a_iva2    FLOAT
DECLARE @a_iva3    FLOAT
DECLARE @a_iva4    FLOAT
DECLARE @a_re1    FLOAT
DECLARE @a_re2    FLOAT
DECLARE @a_re3    FLOAT
DECLARE @a_re4    FLOAT
DECLARE @dto_c   FLOAT
DECLARE @dto_p   FLOAT
DECLARE @dto_rec FLOAT
DECLARE @p_reten FLOAT
DECLARE @en_euro BIT
DECLARE @a_total   FLOAT
DECLARE @a_impret FLOAT
DECLARE @suma1   FLOAT
DECLARE @suma2   FLOAT
DECLARE @suma3   FLOAT
DECLARE @suma4   FLOAT
DECLARE @recargo1   FLOAT
DECLARE @recargo2   FLOAT
DECLARE @recargo3   FLOAT
DECLARE @recargo4   FLOAT
DECLARE @dto1    FLOAT
DECLARE @dto2    FLOAT
DECLARE @dto3    FLOAT
DECLARE @dto4    FLOAT
DECLARE @base1   FLOAT
DECLARE @base2   FLOAT
DECLARE @base3   FLOAT
DECLARE @base4   FLOAT
DECLARE @iva1    FLOAT
DECLARE @iva2    FLOAT
DECLARE @iva3    FLOAT
DECLARE @iva4    FLOAT
DECLARE @re1    FLOAT
DECLARE @re2    FLOAT
DECLARE @re3    FLOAT
DECLARE @re4    FLOAT
DECLARE @total   FLOAT
DECLARE @imp_ret FLOAT
DECLARE @divisa  CHAR(10)
DECLARE @cambio  FLOAT
DECLARE @importe FLOAT
DECLARE @codigo  CHAR(10)
DECLARE @tipo    CHAR(1)
DECLARE @tabla   FLOAT
DECLARE @cantidad FLOAT
DECLARE @almacen CHAR(4)
DECLARE @linea INT
DECLARE @RETURNMESSAGE CHAR(200)
DECLARE @cambio_ant    FLOAT
DECLARE @albaran    FLOAT
/***************************************
***************************************/
SELECT    @cambio_ant = cambio,
    @empresa = empresa, @serie = serie, @numero = numero,
    @codigo = cliente, @importe = -total,
    @dto_c=dto_c,@dto_p=dto_p,@dto_rec=dto_rec,@fecha=fecha,
    @a_suma1=a_suma1,@a_suma2=a_suma2,@a_suma3=a_suma3,@a_suma4=a_suma4,
    @a_rec1=a_rec1,@a_rec2=a_rec2,@a_rec3=a_rec3,@a_rec4=a_rec4,
    @p_reten = retencion, @en_euro = en_euro, @divisa=divisa,
    @albaran=albaran
    FROM deleted
EXECUTE sp_riesgo_pro @empresa,@codigo,'F',@importe,@en_euro
/***************************************
***************************************/
SELECT    @cambio = cambio,
    @empresa = empresa, @serie = serie, @numero = numero,
    @codigo = cliente, @importe=-total,
    @dto_c=dto_c,@dto_p=dto_p,@dto_rec=dto_rec,@fecha=fecha,
    @a_suma1=a_suma1,@a_suma2=a_suma2,@a_suma3=a_suma3,@a_suma4=a_suma4,
    @a_rec1=a_rec1,@a_rec2=a_rec2,@a_rec3=a_rec3,@a_rec4=a_rec4,
    @p_reten = retencion, @en_euro = en_euro, @divisa=divisa,
    @albaran=albaran
    FROM INSERTED
IF @cambio <> @cambio_ant
    BEGIN
    EXEC sp_xxx_ponmsg 'Contravalores Recalculados'
    UPDATE lineaent SET precio = a_pre*@cambio,
            precio_sin = a_pre_s*@cambio,
            total_l = a_tot_l*@cambio
        WHERE empresa=@empresa AND serie=@serie AND numero=@numero
/*    EXECUTE sp_resumap      'entrada',@empresa,@serie,@numero*/
    EXECUTE sp_finaliza_pro 'entrada',@empresa,@serie,@numero
    END
EXEC sp_xxx_calcula2 @empresa,@serie, @codigo,@fecha,
    @dto_c,@dto_p,@dto_rec,
    @a_suma1,@a_suma2,@a_suma3,@a_suma4,
    @a_rec1,@a_rec2,@a_rec3,@a_rec4, @p_reten, @divisa,@cambio, @en_euro,
    @a_dto1 OUTPUT,@a_dto2 OUTPUT,@a_dto3 OUTPUT,@a_dto4 OUTPUT,
    @a_base1 OUTPUT,@a_base2 OUTPUT,@a_base3 OUTPUT,@a_base4 OUTPUT,
    @a_iva1 OUTPUT,@a_iva2 OUTPUT,@a_iva3 OUTPUT,@a_iva4 OUTPUT,
    @a_re1 OUTPUT,@a_re2 OUTPUT,@a_re3 OUTPUT,@a_re4 OUTPUT,
    @a_impret OUTPUT, @a_total OUTPUT,
    @suma1   OUTPUT,@suma2     OUTPUT,@suma3    OUTPUT,@suma4    OUTPUT,
    @dto1    OUTPUT,@dto2      OUTPUT,@dto3     OUTPUT,@dto4     OUTPUT,
    @base1   OUTPUT,@base2     OUTPUT,@base3    OUTPUT,@base4    OUTPUT,
    @iva1    OUTPUT,@iva2      OUTPUT,@iva3     OUTPUT,@iva4     OUTPUT,
    @re1     OUTPUT,@re2       OUTPUT,@re3      OUTPUT,@re4      OUTPUT,
    @recargo1 OUTPUT,@recargo2 OUTPUT,@recargo3 OUTPUT,@recargo4 OUTPUT,
    @imp_ret OUTPUT, @total    OUTPUT
UPDATE entrada SET a_suma1=@a_suma1,a_suma2=@a_suma2,a_suma3=@a_suma3, a_suma4=@a_suma4,
        a_dto1=@a_dto1,a_dto2=@a_dto2,a_dto3=@a_dto3,a_dto4=@a_dto4,
        a_base1=@a_base1,a_base2=@a_base2,a_base3=@a_base3,a_base4=@a_base4,
        a_iva1=@a_iva1,a_iva2=@a_iva2,a_iva3=@a_iva3,a_iva4=@a_iva4,
        a_re1=@a_re1,a_re2=@a_re2,a_re3=@a_re3,a_re4=@a_re4,
        a_impret = @a_impret, a_total = @a_total ,
        suma1=@suma1,suma2=@suma2,suma3=@suma3, suma4=@suma4,
        recargo1=@recargo1,recargo2=@recargo2,recargo3=@recargo3,recargo4=@recargo4,
        dto1=@dto1,dto2=@dto2,dto3=@dto3,dto4=@dto4,
        base1=@base1,base2=@base2,base3=@base3,base4=@base4,
        iva1=@iva1,iva2=@iva2,iva3=@iva3,iva4=@iva4,
        re1=@re1,re2=@re2,re3=@re3,re4=@re4,
        impret = @imp_ret, total = @total
    WHERE empresa=@empresa AND serie=@serie AND numero=@numero
EXECUTE sp_riesgo_pro @empresa,@codigo,'F',@total,@en_euro










GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO










/****** Object:  Trigger dbo.facalb_i    Script Date: 23/3/01 12:32:16 ******/
/****** Object:  Trigger dbo.facalb_i    Script Date: 14/12/00 12:25:10 ******/
/****** Object:  Trigger dbo.facalb_i    Script Date: 26/9/00 13:23:32 ******/
/****** Object:  Trigger dbo.facalb_i    Script Date: 26/6/00 14:57:01 ******/
/****** Object:  Trigger dbo.facalb_i    Script Date: 26/6/00 9:03:35 ******/
/****** Object:  Trigger dbo.facalb_i    Script Date: 24/3/2000 10:08:31 ******/
/****** Object:  Trigger dbo.facalb_i    Script Date: 23/3/2000 15:31:29 ******/
/****** Object:  Trigger dbo.facalb_i    Script Date: 23/3/2000 11:25:17 ******/
/****** Object:  Trigger dbo.facalb_i    Script Date: 16/3/2000 12:08:28 ******/
/****** Object:  Trigger dbo.facalb_i    Script Date: 2/3/2000 8:30:20 ******/
/****** Object:  Trigger dbo.facalb_i    Script Date: 24/6/99 16:21:01 ******/
/****** Object:  Trigger dbo.facalb_i    Script Date: 1/6/99 13:16:16 ******/
CREATE TRIGGER facalb_i ON dbo.FACALB
FOR INSERT
AS
DECLARE @empresa         CHAR(4)
DECLARE @serie           CHAR(2)
DECLARE @numero          FLOAT
DECLARE @numeroa         FLOAT
SELECT @empresa=empresa,@serie=serie,@numero=numero,@numeroa=numeroa
    FROM inserted
EXEC sp_mete_albfact @empresa,@serie,@numero,@numeroa










GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO






/****** Object:  Trigger dbo.factura_d    Script Date: 18/5/01 12:58:22 ******/
/****** Object:  Trigger dbo.factura_d    Script Date: 3/5/01 9:24:50 ******/
/****** Object:  Trigger dbo.factura_d    Script Date: 19/2/01 11:30:22 ******/
/****** Object:  Trigger dbo.factura_d    Script Date: 14/12/00 12:25:10 ******/
/****** Object:  Trigger dbo.factura_d    Script Date: 26/9/00 13:23:32 ******/
/****** Object:  Trigger dbo.factura_d    Script Date: 26/6/00 14:57:01 ******/
/****** Object:  Trigger dbo.factura_d    Script Date: 26/6/00 9:03:35 ******/
/****** Object:  Trigger dbo.factura_d    Script Date: 24/3/2000 10:08:31 ******/
/****** Object:  Trigger dbo.factura_d    Script Date: 23/3/2000 15:31:29 ******/
/****** Object:  Trigger dbo.factura_d    Script Date: 23/3/2000 11:25:17 ******/
/****** Object:  Trigger dbo.factura_d    Script Date: 16/3/2000 12:08:28 ******/
CREATE TRIGGER factura_d ON dbo.FACTURA
FOR DELETE
AS
DECLARE @empresa CHAR(4)
DECLARE @total   FLOAT
DECLARE @codigo  CHAR(10)
DECLARE @serie   CHAR(2)
DECLARE @numero  FLOAT
DECLARE @tipo    CHAR(1)
DECLARE @en_euro BIT
DECLARE @ic      FLOAT
DECLARE @dc      DATETIME
DECLARE @rc      CHAR(1)
DECLARE @ec      BIT
DECLARE @tc      CHAR(1)
DECLARE @sy_c1   FLOAT
DECLARE @sy_c2   FLOAT
DECLARE @recibido  CHAR(1)
DECLARE @importe   FLOAT
DECLARE @albaran   FLOAT
DECLARE @quitar    FLOAT
DECLARE @albaran_cliente CHAR(10)
DECLARE @total_albaran   FLOAT
DECLARE @en_euro_albaran BIT
DECLARE @numero_albaran  FLOAT
DECLARE @serie_albaran   CHAR(2)
/* recoger los datos de deleted => desimputarlos del riesgo*/
SELECT @empresa = empresa, @serie=serie,
    @numero=numero,
    @codigo = cliente, @tipo = 'F', @total = -total,@en_euro=en_euro,
    @albaran=albaran
    FROM DELETED
SELECT @sy_c1=(SELECT sy_c1 FROM sistemad WHERE id=1)
SELECT @sy_c2=(SELECT sy_c2 FROM sistemad WHERE id=1)
DECLARE lc CURSOR FOR SELECT cobros.importe_c, cobros.dias, lindeud.recibido, cobros.en_euro
    FROM cobros, lindeud
    WHERE cobros.empresa=@empresa AND cobros.serie=@serie AND cobros.factura=@numero
        AND lindeud.empresa=@empresa AND lindeud.serie=@serie AND lindeud.numero=@numero
        AND lindeud.dias=cobros.dias
OPEN lc
FETCH NEXT FROM lc INTO @ic,@dc,@rc,@ec
WHILE (@@fetch_status <> -1)
  BEGIN
  IF (@@fetch_status <> -2)
     BEGIN
    /*DESHACER*/
     SELECT @tc='E'
     IF @rc='N'
    SELECT @tc='F'
     EXECUTE sp_riesgo_cli @empresa, @codigo, @tc, @ic, @ec
     END
  FETCH NEXT FROM lc INTO @ic,@dc,@rc,@ec
  END
CLOSE lc
DEALLOCATE lc
DELETE cobros  WHERE empresa=@empresa AND factura=@numero AND serie=@serie
DECLARE lind CURSOR FOR SELECT importe
    FROM lindeud
    WHERE empresa=@empresa AND serie=@serie AND numero=@numero
        AND recibido='S'
OPEN lind
FETCH NEXT FROM lind INTO @importe
WHILE (@@fetch_status <> -1)
  BEGIN
  IF (@@fetch_status <> -2)
     BEGIN
    /*DESHACER*/
     SELECT @quitar=-@importe
     EXECUTE sp_riesgo_cli @empresa, @codigo, 'F', @importe,@en_euro
     EXECUTE sp_riesgo_cli @empresa, @codigo, 'E', @quitar,@en_euro
     END
  FETCH NEXT FROM lind INTO @importe
  END
CLOSE lind
DEALLOCATE lind
DELETE lindeud WHERE empresa=@empresa AND numero=@numero AND serie=@serie
EXECUTE sp_riesgo_cli @empresa, @codigo, 'F', @total,@en_euro
DECLARE aa CURSOR FOR SELECT total,cliente,en_euro,numero,serie
    FROM albaran
    WHERE empresa=@empresa AND seriefac=@serie AND factura=@numero
OPEN aa
FETCH NEXT FROM aa INTO @total_albaran,@albaran_cliente,
    @en_euro_albaran,@numero_albaran,@serie_albaran
WHILE (@@fetch_status <> -1)
  BEGIN
  IF (@@fetch_status <> -2)
     BEGIN
     EXECUTE sp_riesgo_cli @empresa, @albaran_cliente, 'P', @total_albaran,@en_euro_albaran
     UPDATE albaran SET factura=0,seriefac=''
    WHERE empresa=@empresa AND serie=@serie_albaran AND numero=@numero_albaran
     END
  FETCH NEXT FROM aa INTO @total_albaran,@albaran_cliente,
    @en_euro_albaran,@numero_albaran,@serie_albaran

  END
CLOSE aa
DEALLOCATE aa
RETURN








GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO










/****** Object:  Trigger dbo.factura_i    Script Date: 23/3/01 12:32:14 ******/
/****** Object:  Trigger dbo.factura_i    Script Date: 14/12/00 12:25:10 ******/
/****** Object:  Trigger dbo.factura_i    Script Date: 26/9/00 13:23:32 ******/
/****** Object:  Trigger dbo.factura_i    Script Date: 26/6/00 14:57:02 ******/
/****** Object:  Trigger dbo.factura_i    Script Date: 26/6/00 9:03:35 ******/
/****** Object:  Trigger dbo.factura_i    Script Date: 24/3/2000 10:08:31 ******/
/****** Object:  Trigger dbo.factura_i    Script Date: 23/3/2000 15:31:29 ******/
/****** Object:  Trigger dbo.factura_i    Script Date: 23/3/2000 11:25:17 ******/
/****** Object:  Trigger dbo.factura_i    Script Date: 16/3/2000 12:08:28 ******/
CREATE TRIGGER factura_i ON dbo.FACTURA
FOR INSERT
AS
DECLARE @empresa CHAR(4)
DECLARE @serie   CHAR(2)

DECLARE @numero  FLOAT
DECLARE @fecha   DATETIME
DECLARE @suma1   FLOAT
DECLARE @suma2   FLOAT
DECLARE @suma3   FLOAT
DECLARE @suma4   FLOAT
DECLARE @recargo1   FLOAT
DECLARE @recargo2   FLOAT
DECLARE @recargo3   FLOAT
DECLARE @recargo4   FLOAT

DECLARE @dto1    FLOAT
DECLARE @dto2    FLOAT
DECLARE @dto3    FLOAT
DECLARE @dto4    FLOAT
DECLARE @base1   FLOAT
DECLARE @base2   FLOAT
DECLARE @base3   FLOAT
DECLARE @base4   FLOAT
DECLARE @iva1    FLOAT
DECLARE @iva2    FLOAT
DECLARE @iva3    FLOAT
DECLARE @iva4    FLOAT
DECLARE @re1    FLOAT
DECLARE @re2    FLOAT
DECLARE @re3    FLOAT
DECLARE @re4    FLOAT
DECLARE @dto_c   FLOAT
DECLARE @dto_p   FLOAT
DECLARE @dto_rec FLOAT
DECLARE @p_reten FLOAT
DECLARE @rec_fin FLOAT
DECLARE @en_euro BIT
DECLARE @total   FLOAT
DECLARE @imp_ret FLOAT
DECLARE @importe FLOAT
DECLARE @codigo  CHAR(10)
DECLARE @tipo    CHAR(1)
DECLARE @p_com   FLOAT
DECLARE @imp_com FLOAT
DECLARE @redondeo FLOAT
SELECT @empresa=empresa,@serie=serie,@numero=numero,@codigo = cliente,
    @dto_c=dto_c,@dto_p=dto_p,@dto_rec=dto_rec,@fecha=fecha,
    @suma1=suma1,@suma2=suma2,@suma3=suma3,@suma4=suma4,
    @recargo1=recargo1,@recargo2=recargo2,@recargo3=recargo3,@recargo4=recargo4,
    @p_reten = p_reten, @rec_fin=rec_fin, @en_euro = en_euro,@p_com=p_com FROM INSERTED
EXEC sp_xxx_calcular @empresa,@serie, @codigo, @fecha,
    @dto_c,@dto_p,@dto_rec,
    @suma1,@suma2,@suma3,@suma4,
    @recargo1,@recargo2,@recargo3,@recargo4, @p_reten, @rec_fin, @en_euro,
    @dto1 OUTPUT,@dto2 OUTPUT,@dto3 OUTPUT,@dto4 OUTPUT,
    @base1 OUTPUT,@base2 OUTPUT,@base3 OUTPUT,@base4 OUTPUT,
    @iva1 OUTPUT,@iva2 OUTPUT,@iva3 OUTPUT,@iva4 OUTPUT,
    @re1 OUTPUT,@re2 OUTPUT,@re3 OUTPUT,@re4 OUTPUT, @imp_ret OUTPUT, @total OUTPUT
IF @en_euro=1
    BEGIN
    SELECT @redondeo=2
    END
ELSE
    BEGIN
    SELECT @redondeo=0
    END
SELECT @imp_com=ROUND((@base1+@base2+@base3+@base4)*@p_com/100,@redondeo)
UPDATE factura SET dto1=@dto1,dto2=@dto2,dto3=@dto3,dto4=@dto4,
        base1=@base1,base2=@base2,base3=@base3,base4=@base4,
        iva1=@iva1,iva2=@iva2,iva3=@iva3,iva4=@iva4,
        re1=@re1,re2=@re2,re3=@re3,re4=@re4, imp_ret = @imp_ret, total = @total,
        imp_com=@imp_com
    WHERE empresa=@empresa AND serie=@serie AND numero=@numero
/*imputarlos los nuevos valores al riesgo */
EXECUTE sp_riesgo_cli @empresa, @codigo, 'F', @total, @en_euro










GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO










/****** Object:  Trigger dbo.factura_u    Script Date: 23/3/01 12:32:14 ******/
/****** Object:  Trigger dbo.factura_u    Script Date: 14/12/00 12:25:10 ******/
/****** Object:  Trigger dbo.factura_u    Script Date: 26/9/00 13:23:32 ******/
/****** Object:  Trigger dbo.factura_u    Script Date: 26/6/00 14:57:02 ******/
/****** Object:  Trigger dbo.factura_u    Script Date: 26/6/00 9:03:35 ******/
/****** Object:  Trigger dbo.factura_u    Script Date: 24/3/2000 10:08:31 ******/
/****** Object:  Trigger dbo.factura_u    Script Date: 23/3/2000 15:31:29 ******/
/****** Object:  Trigger dbo.factura_u    Script Date: 23/3/2000 11:25:17 ******/
/****** Object:  Trigger dbo.factura_u    Script Date: 16/3/2000 12:08:28 ******/
CREATE TRIGGER factura_u ON dbo.FACTURA
FOR UPDATE
AS
DECLARE @empresa CHAR(4)
DECLARE @serie   CHAR(2)

DECLARE @numero  FLOAT
DECLARE @fecha   DATETIME
DECLARE @suma1   FLOAT
DECLARE @suma2   FLOAT
DECLARE @suma3   FLOAT
DECLARE @suma4   FLOAT
DECLARE @recargo1   FLOAT
DECLARE @recargo2   FLOAT
DECLARE @recargo3   FLOAT
DECLARE @recargo4   FLOAT

DECLARE @dto1    FLOAT
DECLARE @dto2    FLOAT
DECLARE @dto3    FLOAT
DECLARE @dto4    FLOAT
DECLARE @base1   FLOAT
DECLARE @base2   FLOAT
DECLARE @base3   FLOAT
DECLARE @base4   FLOAT
DECLARE @iva1    FLOAT
DECLARE @iva2    FLOAT
DECLARE @iva3    FLOAT
DECLARE @iva4    FLOAT
DECLARE @re1    FLOAT
DECLARE @re2    FLOAT
DECLARE @re3    FLOAT
DECLARE @re4    FLOAT
DECLARE @dto_c   FLOAT
DECLARE @dto_p   FLOAT
DECLARE @dto_rec FLOAT
DECLARE @p_reten FLOAT
DECLARE @rec_fin FLOAT
DECLARE @en_euro BIT
DECLARE @total   FLOAT
DECLARE @imp_ret FLOAT
DECLARE @importe FLOAT
DECLARE @codigo  CHAR(10)
DECLARE @tipo    CHAR(1)
DECLARE @p_com   FLOAT
DECLARE @imp_com FLOAT
DECLARE @redondeo FLOAT
/* recoger los datos de deleted => desimputarlos del riesgo*/
SELECT @empresa = empresa, @codigo = cliente, @tipo = 'F', @importe = -total,@en_euro = en_euro
    FROM DELETED
EXECUTE sp_riesgo_cli @empresa, @codigo, @tipo, @importe, @en_euro
SELECT @empresa=empresa,@serie=serie,@numero=numero,@codigo = cliente,
    @dto_c=dto_c,@dto_p=dto_p,@dto_rec=dto_rec,@fecha=fecha,
    @suma1=suma1,@suma2=suma2,@suma3=suma3,@suma4=suma4,
    @recargo1=recargo1,@recargo2=recargo2,@recargo3=recargo3,@recargo4=recargo4,
    @p_reten = p_reten, @rec_fin=rec_fin, @en_euro = en_euro,@p_com=p_com FROM INSERTED
EXEC sp_xxx_calcular @empresa,@serie, @codigo, @fecha,
    @dto_c,@dto_p,@dto_rec,
    @suma1,@suma2,@suma3,@suma4,
    @recargo1,@recargo2,@recargo3,@recargo4, @p_reten, @rec_fin, @en_euro,
    @dto1 OUTPUT,@dto2 OUTPUT,@dto3 OUTPUT,@dto4 OUTPUT,
    @base1 OUTPUT,@base2 OUTPUT,@base3 OUTPUT,@base4 OUTPUT,
    @iva1 OUTPUT,@iva2 OUTPUT,@iva3 OUTPUT,@iva4 OUTPUT,
    @re1 OUTPUT,@re2 OUTPUT,@re3 OUTPUT,@re4 OUTPUT, @imp_ret OUTPUT, @total OUTPUT
IF @en_euro=1
    BEGIN
    SELECT @redondeo=2
    END
ELSE
    BEGIN
    SELECT @redondeo=0
    END
SELECT @imp_com=(@base1+@base2+@base3+@base4)*@p_com/100
UPDATE factura SET dto1=@dto1,dto2=@dto2,dto3=@dto3,dto4=@dto4,
        base1=@base1,base2=@base2,base3=@base3,base4=@base4,
        iva1=@iva1,iva2=@iva2,iva3=@iva3,iva4=@iva4,
        re1=@re1,re2=@re2,re3=@re3,re4=@re4, imp_ret = @imp_ret, total = @total,
        imp_com=@imp_com
    WHERE empresa=@empresa AND serie=@serie AND numero=@numero
/*imputarlos los nuevos valores al riesgo */
EXECUTE sp_riesgo_cli @empresa, @codigo, 'F', @total, @en_euro
RETURN










GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO










/****** Object:  Trigger dbo.haz_deu_i    Script Date: 23/3/01 12:32:16 ******/
/****** Object:  Trigger dbo.haz_deu_i    Script Date: 14/12/00 12:25:12 ******/
/****** Object:  Trigger dbo.haz_deu_i    Script Date: 26/9/00 13:23:21 ******/
/****** Object:  Trigger dbo.haz_deu_i    Script Date: 26/6/00 14:57:07 ******/
/****** Object:  Trigger dbo.haz_deu_i    Script Date: 26/6/00 9:03:36 ******/
/****** Object:  Trigger dbo.haz_deu_i    Script Date: 24/3/2000 10:08:32 ******/
/****** Object:  Trigger dbo.haz_deu_i    Script Date: 23/3/2000 15:31:30 ******/
/****** Object:  Trigger dbo.haz_deu_i    Script Date: 23/3/2000 11:25:18 ******/
/****** Object:  Trigger dbo.haz_deu_i    Script Date: 16/3/2000 12:08:29 ******/
/****** Object:  Trigger dbo.haz_deu_i    Script Date: 2/3/2000 8:30:21 ******/
/****** Object:  Trigger dbo.haz_deu_i    Script Date: 24/6/99 16:21:01 ******/
/****** Object:  Trigger dbo.haz_deu_i    Script Date: 1/6/99 13:16:16 ******/
CREATE TRIGGER haz_deu_i ON dbo.HAZ_DEU
FOR INSERT
AS
DECLARE @empresa         CHAR(4)
DECLARE @serie           CHAR(2)
DECLARE @numero          FLOAT
SELECT @empresa=empresa,@serie=serie,@numero=numero
    FROM inserted
EXEC sp_haz_deuda  @empresa,@serie,@numero










GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO










/****** Object:  Trigger dbo.linalbp_d    Script Date: 23/3/01 12:32:16 ******/
/****** Object:  Trigger dbo.linalbp_d    Script Date: 14/12/00 12:25:12 ******/
CREATE TRIGGER linalbp_d ON dbo.LINALBP
FOR DELETE
AS
DECLARE @empresa     CHAR(4)
DECLARE @serie         CHAR(2)
DECLARE @numero     FLOAT
DECLARE @raiz         CHAR(16)
DECLARE @talla         CHAR(2)
DECLARE @color         CHAR(2)
DECLARE @total_l     FLOAT
DECLARE @tipoiva    INT
DECLARE @cliente        CHAR(10)
DECLARE @precio         FLOAT
DECLARE @ajustado       FLOAT
DECLARE @fecha   DATETIME
DECLARE @a_suma1   FLOAT
DECLARE @a_suma2   FLOAT
DECLARE @a_suma3   FLOAT
DECLARE @a_suma4   FLOAT
DECLARE @a_rec1   FLOAT
DECLARE @a_rec2   FLOAT
DECLARE @a_rec3   FLOAT
DECLARE @a_rec4   FLOAT
DECLARE @a_dto1    FLOAT
DECLARE @a_dto2    FLOAT
DECLARE @a_dto3    FLOAT
DECLARE @a_dto4    FLOAT
DECLARE @a_base1   FLOAT
DECLARE @a_base2   FLOAT
DECLARE @a_base3   FLOAT
DECLARE @a_base4   FLOAT
DECLARE @a_iva1    FLOAT
DECLARE @a_iva2    FLOAT
DECLARE @a_iva3    FLOAT
DECLARE @a_iva4    FLOAT
DECLARE @a_re1    FLOAT
DECLARE @a_re2    FLOAT
DECLARE @a_re3    FLOAT
DECLARE @a_re4    FLOAT
DECLARE @dto_c   FLOAT
DECLARE @dto_p   FLOAT
DECLARE @dto_rec FLOAT
DECLARE @p_reten FLOAT
DECLARE @en_euro BIT
DECLARE @a_total   FLOAT
DECLARE @a_impret FLOAT
DECLARE @suma1   FLOAT
DECLARE @suma2   FLOAT
DECLARE @suma3   FLOAT
DECLARE @suma4   FLOAT
DECLARE @recargo1   FLOAT
DECLARE @recargo2   FLOAT
DECLARE @recargo3   FLOAT
DECLARE @recargo4   FLOAT
DECLARE @dto1    FLOAT
DECLARE @dto2    FLOAT
DECLARE @dto3    FLOAT
DECLARE @dto4    FLOAT
DECLARE @base1   FLOAT
DECLARE @base2   FLOAT
DECLARE @base3   FLOAT
DECLARE @base4   FLOAT
DECLARE @iva1    FLOAT
DECLARE @iva2    FLOAT
DECLARE @iva3    FLOAT
DECLARE @iva4    FLOAT
DECLARE @re1    FLOAT
DECLARE @re2    FLOAT
DECLARE @re3    FLOAT
DECLARE @re4    FLOAT
DECLARE @total   FLOAT
DECLARE @imp_ret FLOAT
DECLARE @divisa  CHAR(10)
DECLARE @cambio  FLOAT
DECLARE @importe FLOAT
DECLARE @codigo  CHAR(10)
DECLARE @tipo    CHAR(1)
DECLARE @tabla   FLOAT
DECLARE @cantidad FLOAT
DECLARE @almacen CHAR(4)
DECLARE @linea INT
DECLARE @lineaped  FLOAT
DECLARE @factura   FLOAT
DECLARE @pedido    FLOAT
DECLARE @RETURNMESSAGE CHAR(200)
DECLARE @uc        FLOAT
DECLARE @xtotal    FLOAT
DECLARE @up        FLOAT
DECLARE @uar       CHAR(16)
DECLARE @uat       CHAR(2)
DECLARE @uac       CHAR(2)
DECLARE @ua        CHAR(4)
DECLARE @mensaje   CHAR(255)
DECLARE @serpedcli CHAR(2)
DECLARE @numpedcli FLOAT
DECLARE @linpedcli FLOAT
/***************************************
*** IMPUTAR LO NUEVO *******************
***************************************/
SELECT @empresa = empresa, @serie = serie, @numero = numero,
        @raiz = raiz, @talla = talla, @color = color,
        @total_l = a_tot_l, @cantidad = -cantidad, @almacen = almacen,
        @precio=precio,@lineaped=lineaped,
        @uar=uar,@uat=uat,@uac=uac,@ua=ua,
        @uc=uc,@up=up
    FROM DELETED
SELECT @codigo = proveedo, @importe=-total,
     @dto_c=dto_c,@dto_p=dto_p,@dto_rec=dto_rec,@fecha=fecha,
     @a_suma1=a_suma1,@a_suma2=a_suma2,@a_suma3=a_suma3,@a_suma4=a_suma4,
     @a_rec1=a_rec1,@a_rec2=a_rec2,@a_rec3=a_rec3,@a_rec4=a_rec4,
     @p_reten = retencion, @en_euro = en_euro, @cambio=cambio,@divisa=divisa,
     @factura = factura,@pedido=pedido
    FROM albpro
    WHERE empresa=@empresa AND serie=@serie AND numero=@numero
SELECT @tipoiva = (SELECT tipo_iva FROM articulo
            WHERE empresa = @empresa AND raiz = @raiz AND talla = @talla AND color = @color)
IF @tipoiva = 1
    SELECT @a_suma1=@a_suma1-@total_l
IF @tipoiva = 2
    SELECT @a_suma2=@a_suma2-@total_l
IF @tipoiva = 3
    SELECT @a_suma3=@a_suma3-@total_l
IF @tipoiva = 4
    SELECT @a_suma4=@a_suma4-@total_l
EXEC sp_xxx_calcula2 @empresa,@serie, @codigo,@fecha,
    @dto_c,@dto_p,@dto_rec,
    @a_suma1,@a_suma2,@a_suma3,@a_suma4,

    @a_rec1,@a_rec2,@a_rec3,@a_rec4, @p_reten, @divisa,@cambio, @en_euro,
    @a_dto1 OUTPUT,@a_dto2 OUTPUT,@a_dto3 OUTPUT,@a_dto4 OUTPUT,
    @a_base1 OUTPUT,@a_base2 OUTPUT,@a_base3 OUTPUT,@a_base4 OUTPUT,
    @a_iva1 OUTPUT,@a_iva2 OUTPUT,@a_iva3 OUTPUT,@a_iva4 OUTPUT,
    @a_re1 OUTPUT,@a_re2 OUTPUT,@a_re3 OUTPUT,@a_re4 OUTPUT,
    @a_impret OUTPUT, @a_total OUTPUT,
    @suma1   OUTPUT,@suma2     OUTPUT,@suma3    OUTPUT,@suma4    OUTPUT,
    @dto1    OUTPUT,@dto2      OUTPUT,@dto3     OUTPUT,@dto4     OUTPUT,
    @base1   OUTPUT,@base2     OUTPUT,@base3    OUTPUT,@base4    OUTPUT,
    @iva1    OUTPUT,@iva2      OUTPUT,@iva3     OUTPUT,@iva4     OUTPUT,
    @re1     OUTPUT,@re2       OUTPUT,@re3      OUTPUT,@re4      OUTPUT,
    @recargo1 OUTPUT,@recargo2 OUTPUT,@recargo3 OUTPUT,@recargo4 OUTPUT,
    @imp_ret OUTPUT, @total    OUTPUT
UPDATE albpro   SET a_suma1=@a_suma1,a_suma2=@a_suma2,a_suma3=@a_suma3, a_suma4=@a_suma4,
        a_dto1=@a_dto1,a_dto2=@a_dto2,a_dto3=@a_dto3,a_dto4=@a_dto4,
        a_base1=@a_base1,a_base2=@a_base2,a_base3=@a_base3,a_base4=@a_base4,
        a_iva1=@a_iva1,a_iva2=@a_iva2,a_iva3=@a_iva3,a_iva4=@a_iva4,
        a_re1=@a_re1,a_re2=@a_re2,a_re3=@a_re3,a_re4=@a_re4,
        a_impret = @a_impret, a_total = @a_total ,
        suma1=@suma1,suma2=@suma2,suma3=@suma3, suma4=@suma4,
        recargo1=@recargo1,recargo2=@recargo2,recargo3=@recargo3,recargo4=@recargo4,
        dto1=@dto1,dto2=@dto2,dto3=@dto3,dto4=@dto4,
        base1=@base1,base2=@base2,base3=@base3,base4=@base4,
        iva1=@iva1,iva2=@iva2,iva3=@iva3,iva4=@iva4,
        re1=@re1,re2=@re2,re3=@re3,re4=@re4,
        impret = @imp_ret, total = @total
    WHERE empresa=@empresa AND serie=@serie AND numero=@numero
SELECT @importe=@importe+@total
IF @factura=0
    EXECUTE sp_riesgo_pro @empresa,@codigo,'P',@importe,@en_euro
IF @pedido<>0
    BEGIN
    EXECUTE sp_linea_ped_pro @empresa,@serie,@pedido,@lineaped,@cantidad
    SELECT @serpedcli=serpedcli,@numpedcli=numpedcli
        FROM compra
        WHERE empresa=@empresa AND serie=@serie AND numero=@pedido
    IF @numpedcli<>0
        BEGIN
        SELECT @linpedcli=linpedcli

            FROM lineacom
            WHERE empresa=@empresa AND serie=@serie AND numero=@pedido AND linea=@lineaped
        UPDATE lineaped SET recibida=recibida+@cantidad
            WHERE empresa=@empresa AND serie=@serpedcli AND numero=@numpedcli
            AND linea=@linpedcli
        END
    END
SELECT @uc=-@uc
SELECT @xtotal=@uc*@up
/*
SELECT @mensaje='a1 '+convert(char(10),@up)
*/
EXECUTE SP_XXX_PONMSG @mensaje
EXECUTE sp_xxx_entra_stock @uar,@uat,@uac,@ua,
        @empresa,@uc,@xtotal,@en_euro,
        0,'',@up










GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO











/****** Object:  Trigger dbo.linalbp_u    Script Date: 23/3/01 12:32:16 ******/
/****** Object:  Trigger dbo.linalbp_u    Script Date: 14/12/00 12:25:13 ******/
CREATE TRIGGER linalbp_u ON dbo.LINALBP
FOR UPDATE
AS
DECLARE @empresa     CHAR(4)
DECLARE @serie         CHAR(2)
DECLARE @numero     FLOAT
DECLARE @raiz         CHAR(16)
DECLARE @talla         CHAR(2)
DECLARE @color         CHAR(2)
DECLARE @total_l     FLOAT
DECLARE @tipoiva    INT
DECLARE @cliente        CHAR(10)
DECLARE @precio         FLOAT
DECLARE @ajustado       FLOAT
DECLARE @fecha   DATETIME
DECLARE @a_suma1   FLOAT
DECLARE @a_suma2   FLOAT
DECLARE @a_suma3   FLOAT
DECLARE @a_suma4   FLOAT
DECLARE @a_rec1   FLOAT
DECLARE @a_rec2   FLOAT
DECLARE @a_rec3   FLOAT
DECLARE @a_rec4   FLOAT
DECLARE @a_dto1    FLOAT
DECLARE @a_dto2    FLOAT
DECLARE @a_dto3    FLOAT
DECLARE @a_dto4    FLOAT
DECLARE @a_base1   FLOAT
DECLARE @a_base2   FLOAT
DECLARE @a_base3   FLOAT
DECLARE @a_base4   FLOAT
DECLARE @a_iva1    FLOAT
DECLARE @a_iva2    FLOAT
DECLARE @a_iva3    FLOAT
DECLARE @a_iva4    FLOAT
DECLARE @a_re1    FLOAT
DECLARE @a_re2    FLOAT
DECLARE @a_re3    FLOAT
DECLARE @a_re4    FLOAT
DECLARE @dto_c   FLOAT
DECLARE @dto_p   FLOAT
DECLARE @dto_rec FLOAT
DECLARE @p_reten FLOAT
DECLARE @en_euro BIT
DECLARE @a_total   FLOAT
DECLARE @a_impret FLOAT
DECLARE @suma1   FLOAT
DECLARE @suma2   FLOAT
DECLARE @suma3   FLOAT
DECLARE @suma4   FLOAT
DECLARE @recargo1   FLOAT
DECLARE @recargo2   FLOAT
DECLARE @recargo3   FLOAT
DECLARE @recargo4   FLOAT
DECLARE @dto1    FLOAT
DECLARE @dto2    FLOAT
DECLARE @dto3    FLOAT
DECLARE @dto4    FLOAT
DECLARE @base1   FLOAT
DECLARE @base2   FLOAT
DECLARE @base3   FLOAT
DECLARE @base4   FLOAT
DECLARE @iva1    FLOAT
DECLARE @iva2    FLOAT
DECLARE @iva3    FLOAT
DECLARE @iva4    FLOAT
DECLARE @re1    FLOAT
DECLARE @re2    FLOAT
DECLARE @re3    FLOAT
DECLARE @re4    FLOAT
DECLARE @total   FLOAT
DECLARE @imp_ret FLOAT
DECLARE @divisa  CHAR(10)
DECLARE @cambio  FLOAT
DECLARE @importe FLOAT
DECLARE @codigo  CHAR(10)
DECLARE @tipo    CHAR(1)
DECLARE @tabla   FLOAT
DECLARE @cantidad FLOAT
DECLARE @almacen CHAR(4)
DECLARE @linea INT
DECLARE @lineaped  FLOAT
DECLARE @factura   FLOAT
DECLARE @pedido    FLOAT
DECLARE @RETURNMESSAGE CHAR(200)
DECLARE @serpedcli CHAR(2)
DECLARE @numpedcli FLOAT
DECLARE @linpedcli FLOAT
DECLARE @difcantidad FLOAT
DECLARE @contador FLOAT
DECLARE @contador_articulo FLOAT


/***************************************
*** IMPUTAR LO NUEVO *******************
***************************************/
SELECT @empresa = empresa, @serie = serie, @numero = numero,
        @raiz = raiz, @talla = talla, @color = color,
        @total_l = a_tot_l, @cantidad = -cantidad, @almacen = almacen,
        @precio=precio,@lineaped=lineaped
    FROM DELETED
SELECT @difcantidad=@cantidad
SELECT @codigo = proveedo, @importe=-total,
     @dto_c=dto_c,@dto_p=dto_p,@dto_rec=dto_rec,@fecha=fecha,
     @a_suma1=a_suma1,@a_suma2=a_suma2,@a_suma3=a_suma3,@a_suma4=a_suma4,
     @a_rec1=a_rec1,@a_rec2=a_rec2,@a_rec3=a_rec3,@a_rec4=a_rec4,
     @p_reten = retencion, @en_euro = en_euro, @cambio=cambio,@divisa=divisa,
     @factura = factura,@pedido=pedido
    FROM albpro
    WHERE empresa=@empresa AND serie=@serie AND numero=@numero
IF @factura=0
    EXECUTE sp_riesgo_pro @empresa,@codigo,'P',@importe,@en_euro
IF @pedido<>0
    EXECUTE sp_linea_ped_pro @empresa,@serie,@pedido,@lineaped,@cantidad
SELECT @tipoiva = (SELECT tipo_iva FROM articulo
            WHERE empresa = @empresa AND raiz = @raiz AND talla = @talla AND color = @color)
IF @tipoiva = 1
    SELECT @a_suma1=@a_suma1-@total_l
IF @tipoiva = 2
    SELECT @a_suma2=@a_suma2-@total_l
IF @tipoiva = 3
    SELECT @a_suma3=@a_suma3-@total_l
IF @tipoiva = 4
    SELECT @a_suma4=@a_suma4-@total_l
/********************************************************************/
SELECT @empresa = empresa, @serie = serie, @numero = numero,
        @raiz = raiz, @talla = talla, @color = color,
        @total_l = a_tot_l, @cantidad = cantidad, @almacen = almacen,
        @precio=precio,@lineaped=lineaped,
        @contador=centrada
    FROM INSERTED
SELECT @difcantidad=@difcantidad+@cantidad
SELECT @tipoiva = (SELECT tipo_iva FROM articulo
            WHERE empresa = @empresa AND raiz = @raiz AND talla = @talla AND color = @color)
IF @tipoiva = 1
    SELECT @a_suma1=@a_suma1+@total_l
IF @tipoiva = 2
    SELECT @a_suma2=@a_suma2+@total_l
IF @tipoiva = 3
    SELECT @a_suma3=@a_suma3+@total_l
IF @tipoiva = 4
    SELECT @a_suma4=@a_suma4+@total_l
EXEC sp_xxx_calcula2 @empresa,@serie,@codigo, @fecha,
    @dto_c,@dto_p,@dto_rec,
    @a_suma1,@a_suma2,@a_suma3,@a_suma4,
    @a_rec1,@a_rec2,@a_rec3,@a_rec4, @p_reten, @divisa,@cambio, @en_euro,
    @a_dto1 OUTPUT,@a_dto2 OUTPUT,@a_dto3 OUTPUT,@a_dto4 OUTPUT,
    @a_base1 OUTPUT,@a_base2 OUTPUT,@a_base3 OUTPUT,@a_base4 OUTPUT,
    @a_iva1 OUTPUT,@a_iva2 OUTPUT,@a_iva3 OUTPUT,@a_iva4 OUTPUT,
    @a_re1 OUTPUT,@a_re2 OUTPUT,@a_re3 OUTPUT,@a_re4 OUTPUT,
    @a_impret OUTPUT, @a_total OUTPUT,
    @suma1   OUTPUT,@suma2     OUTPUT,@suma3    OUTPUT,@suma4    OUTPUT,
    @dto1    OUTPUT,@dto2      OUTPUT,@dto3     OUTPUT,@dto4     OUTPUT,
    @base1   OUTPUT,@base2     OUTPUT,@base3    OUTPUT,@base4    OUTPUT,
    @iva1    OUTPUT,@iva2      OUTPUT,@iva3     OUTPUT,@iva4     OUTPUT,
    @re1     OUTPUT,@re2       OUTPUT,@re3      OUTPUT,@re4      OUTPUT,
    @recargo1 OUTPUT,@recargo2 OUTPUT,@recargo3 OUTPUT,@recargo4 OUTPUT,
    @imp_ret OUTPUT, @total    OUTPUT
UPDATE albpro SET a_suma1=@a_suma1,a_suma2=@a_suma2,a_suma3=@a_suma3, a_suma4=@a_suma4,
        a_dto1=@a_dto1,a_dto2=@a_dto2,a_dto3=@a_dto3,a_dto4=@a_dto4,
        a_base1=@a_base1,a_base2=@a_base2,a_base3=@a_base3,a_base4=@a_base4,
        a_iva1=@a_iva1,a_iva2=@a_iva2,a_iva3=@a_iva3,a_iva4=@a_iva4,
        a_re1=@a_re1,a_re2=@a_re2,a_re3=@a_re3,a_re4=@a_re4,
        a_impret = @a_impret, a_total = @a_total ,
        suma1=@suma1,suma2=@suma2,suma3=@suma3, suma4=@suma4,
        recargo1=@recargo1,recargo2=@recargo2,recargo3=@recargo3,recargo4=@recargo4,
        dto1=@dto1,dto2=@dto2,dto3=@dto3,dto4=@dto4,

        base1=@base1,base2=@base2,base3=@base3,base4=@base4,
        iva1=@iva1,iva2=@iva2,iva3=@iva3,iva4=@iva4,
        re1=@re1,re2=@re2,re3=@re3,re4=@re4,
        impret = @imp_ret, total = @total
    WHERE empresa=@empresa AND serie=@serie AND numero=@numero
IF @factura=0
    EXECUTE sp_riesgo_pro @empresa,@codigo,'P',@total,@en_euro
IF @pedido<>0
    BEGIN
    EXECUTE sp_linea_ped_pro @empresa,@serie,@pedido,@lineaped,@cantidad
    SELECT @serpedcli=serpedcli,@numpedcli=numpedcli
        FROM compra
        WHERE empresa=@empresa AND serie=@serie AND numero=@pedido
    IF @numpedcli<>0
        BEGIN
        SELECT @linpedcli=linpedcli
            FROM lineacom
            WHERE empresa=@empresa AND serie=@serie AND numero=@pedido AND linea=@lineaped
        UPDATE lineaped SET recibida=recibida+@difcantidad
            WHERE empresa=@empresa AND serie=@serpedcli AND numero=@numpedcli
            AND linea=@linpedcli
        END
    END
/*************************
update xxxmsg set mensajec = 'bases: ' + CONVERT(CHAR(10),@a_base1) + CONVERT(CHAR(10),@a_base2) + CONVERT(CHAR(10),@a_base3) + CONVERT(CHAR(10),@a_base4) where sp_id = 19
*************************/



IF @contador<>0 AND @cantidad>0
    BEGIN
    SELECT @contador_articulo=@contador+@cantidad
    UPDATE articulo SET centrada=@contador_articulo WHERE empresa=@empresa AND raiz=@raiz AND talla=@talla AND color=@color
        AND centrada<@contador_articulo
    END











GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO
















/****** Object:  Trigger dbo.linalbp_i    Script Date: 23/3/01 12:32:16 ******/
/****** Object:  Trigger dbo.linalbp_i    Script Date: 14/12/00 12:25:12 ******/
CREATE TRIGGER linalbp_i ON dbo.LINALBP
FOR INSERT
AS
DECLARE @empresa     CHAR(4)
DECLARE @serie         CHAR(2)
DECLARE @numero     FLOAT
DECLARE @raiz         CHAR(16)
DECLARE @talla         CHAR(2)
DECLARE @color         CHAR(2)
DECLARE @total_l     FLOAT
DECLARE @tipoiva    INT
DECLARE @cliente        CHAR(10)
DECLARE @precio         FLOAT
DECLARE @ajustado       FLOAT
DECLARE @fecha   DATETIME
DECLARE @a_suma1   FLOAT
DECLARE @a_suma2   FLOAT
DECLARE @a_suma3   FLOAT
DECLARE @a_suma4   FLOAT
DECLARE @a_rec1   FLOAT
DECLARE @a_rec2   FLOAT
DECLARE @a_rec3   FLOAT
DECLARE @a_rec4   FLOAT
DECLARE @a_dto1    FLOAT
DECLARE @a_dto2    FLOAT
DECLARE @a_dto3    FLOAT
DECLARE @a_dto4    FLOAT
DECLARE @a_base1   FLOAT
DECLARE @a_base2   FLOAT
DECLARE @a_base3   FLOAT
DECLARE @a_base4   FLOAT
DECLARE @a_iva1    FLOAT
DECLARE @a_iva2    FLOAT
DECLARE @a_iva3    FLOAT
DECLARE @a_iva4    FLOAT
DECLARE @a_re1    FLOAT
DECLARE @a_re2    FLOAT
DECLARE @a_re3    FLOAT
DECLARE @a_re4    FLOAT
DECLARE @dto_c   FLOAT
DECLARE @dto_p   FLOAT
DECLARE @dto_rec FLOAT
DECLARE @p_reten FLOAT
DECLARE @en_euro BIT
DECLARE @a_total   FLOAT
DECLARE @a_impret FLOAT
DECLARE @suma1   FLOAT
DECLARE @suma2   FLOAT
DECLARE @suma3   FLOAT
DECLARE @suma4   FLOAT
DECLARE @recargo1   FLOAT
DECLARE @recargo2   FLOAT
DECLARE @recargo3   FLOAT
DECLARE @recargo4   FLOAT
DECLARE @dto1    FLOAT
DECLARE @dto2    FLOAT
DECLARE @dto3    FLOAT
DECLARE @dto4    FLOAT
DECLARE @base1   FLOAT
DECLARE @base2   FLOAT
DECLARE @base3   FLOAT
DECLARE @base4   FLOAT
DECLARE @iva1    FLOAT
DECLARE @iva2    FLOAT
DECLARE @iva3    FLOAT
DECLARE @iva4    FLOAT
DECLARE @re1    FLOAT
DECLARE @re2    FLOAT
DECLARE @re3    FLOAT
DECLARE @re4    FLOAT
DECLARE @total   FLOAT
DECLARE @imp_ret FLOAT
DECLARE @divisa  CHAR(10)
DECLARE @cambio  FLOAT
DECLARE @importe FLOAT
DECLARE @codigo  CHAR(10)
DECLARE @tipo    CHAR(1)
DECLARE @tabla   FLOAT
DECLARE @cantidad FLOAT
DECLARE @almacen CHAR(4)
DECLARE @linea INT
DECLARE @lineaped  FLOAT
DECLARE @factura   FLOAT
DECLARE @pedido    FLOAT
DECLARE @RETURNMESSAGE CHAR(200)
DECLARE @xtotal  FLOAT
DECLARE @serpedcli CHAR(2)
DECLARE @numpedcli FLOAT
DECLARE @linpedcli FLOAT
DECLARE @contador FLOAT
DECLARE @contador_articulo FLOAT
/***************************************
*** IMPUTAR LO NUEVO *******************
***************************************/
SELECT @empresa = empresa, @serie = serie, @numero = numero,
        @raiz = raiz, @talla = talla, @color = color,
        @total_l = a_tot_l, @cantidad = cantidad, @almacen = almacen,
        @precio=precio,@lineaped=lineaped,
        @contador=centrada
    FROM INSERTED
SELECT @codigo = proveedo, @importe=-total,
     @dto_c=dto_c,@dto_p=dto_p,@dto_rec=dto_rec,@fecha=fecha,
     @a_suma1=a_suma1,@a_suma2=a_suma2,@a_suma3=a_suma3,@a_suma4=a_suma4,
     @a_rec1=a_rec1,@a_rec2=a_rec2,@a_rec3=a_rec3,@a_rec4=a_rec4,
     @p_reten = retencion, @en_euro = en_euro, @cambio=cambio,@divisa=divisa,
     @factura = factura,@pedido=pedido
    FROM albpro
    WHERE empresa=@empresa AND serie=@serie AND numero=@numero
SELECT @tipoiva = (SELECT tipo_iva FROM articulo
            WHERE empresa = @empresa AND raiz = @raiz AND talla = @talla AND color = @color)
/* ---------------------------- TRAZA ------------------------------------------
SELECT 'TIPO IVA'= @tipoiva,'a_suma1 '=@a_suma1,'SUMA 2'=@a_suma2
 ---------------------------- TRAZA ------------------------------------------*/
IF @tipoiva = 1
    SELECT @a_suma1=@a_suma1+@total_l
IF @tipoiva = 2
    SELECT @a_suma2=@a_suma2+@total_l
IF @tipoiva = 3
    SELECT @a_suma3=@a_suma3+@total_l
IF @tipoiva = 4
    SELECT @a_suma4=@a_suma4+@total_l
EXEC sp_xxx_calcula2 @empresa,@serie,@codigo, @fecha,
    @dto_c,@dto_p,@dto_rec,
    @a_suma1,@a_suma2,@a_suma3,@a_suma4,
    @a_rec1,@a_rec2,@a_rec3,@a_rec4, @p_reten, @divisa,@cambio, @en_euro,
    @a_dto1 OUTPUT,@a_dto2 OUTPUT,@a_dto3 OUTPUT,@a_dto4 OUTPUT,
    @a_base1 OUTPUT,@a_base2 OUTPUT,@a_base3 OUTPUT,@a_base4 OUTPUT,
    @a_iva1 OUTPUT,@a_iva2 OUTPUT,@a_iva3 OUTPUT,@a_iva4 OUTPUT,
    @a_re1 OUTPUT,@a_re2 OUTPUT,@a_re3 OUTPUT,@a_re4 OUTPUT,
    @a_impret OUTPUT, @a_total OUTPUT,
    @suma1   OUTPUT,@suma2     OUTPUT,@suma3    OUTPUT,@suma4    OUTPUT,
    @dto1    OUTPUT,@dto2      OUTPUT,@dto3     OUTPUT,@dto4     OUTPUT,
    @base1   OUTPUT,@base2     OUTPUT,@base3    OUTPUT,@base4    OUTPUT,
    @iva1    OUTPUT,@iva2      OUTPUT,@iva3     OUTPUT,@iva4     OUTPUT,
    @re1     OUTPUT,@re2       OUTPUT,@re3      OUTPUT,@re4      OUTPUT,
    @recargo1 OUTPUT,@recargo2 OUTPUT,@recargo3 OUTPUT,@recargo4 OUTPUT,
    @imp_ret OUTPUT, @total    OUTPUT
UPDATE albpro   SET a_suma1=@a_suma1,a_suma2=@a_suma2,a_suma3=@a_suma3, a_suma4=@a_suma4,
        a_dto1=@a_dto1,a_dto2=@a_dto2,a_dto3=@a_dto3,a_dto4=@a_dto4,
        a_base1=@a_base1,a_base2=@a_base2,a_base3=@a_base3,a_base4=@a_base4,
        a_iva1=@a_iva1,a_iva2=@a_iva2,a_iva3=@a_iva3,a_iva4=@a_iva4,
        a_re1=@a_re1,a_re2=@a_re2,a_re3=@a_re3,a_re4=@a_re4,
        a_impret = @a_impret, a_total = @a_total ,
        suma1=@suma1,suma2=@suma2,suma3=@suma3, suma4=@suma4,
        recargo1=@recargo1,recargo2=@recargo2,recargo3=@recargo3,recargo4=@recargo4,
        dto1=@dto1,dto2=@dto2,dto3=@dto3,dto4=@dto4,
        base1=@base1,base2=@base2,base3=@base3,base4=@base4,
        iva1=@iva1,iva2=@iva2,iva3=@iva3,iva4=@iva4,
        re1=@re1,re2=@re2,re3=@re3,re4=@re4,
        impret = @imp_ret, total = @total
    WHERE empresa=@empresa AND serie=@serie AND numero=@numero
SELECT @importe=@importe+@total
IF @factura=0
    EXECUTE sp_riesgo_pro @empresa,@codigo,'P',@importe,@en_euro
IF @pedido<>0
    BEGIN
    EXECUTE sp_linea_ped_pro @empresa,@serie,@pedido,@lineaped,@cantidad
    SELECT @serpedcli=serpedcli,@numpedcli=numpedcli
        FROM compra
        WHERE empresa=@empresa AND serie=@serie AND numero=@pedido
    IF @numpedcli<>0
        BEGIN
        SELECT @linpedcli=linpedcli
            FROM lineacom
            WHERE empresa=@empresa AND serie=@serie AND numero=@pedido AND linea=@lineaped
        UPDATE lineaped SET recibida=recibida+@cantidad
            WHERE empresa=@empresa AND serie=@serpedcli AND numero=@numpedcli
            AND linea=@linpedcli
        END
    END
/*SELECT @xtotal=@cantidad*@precio
EXECUTE sp_xxx_entra_stock @raiz,@talla,@color,@almacen,
        @empresa,@cantidad,@xtotal,@en_euro,
        0,'',@precio
*/






IF @contador<>0 AND @cantidad>0
    BEGIN
    SELECT @contador_articulo=@contador+@cantidad
    UPDATE articulo SET centrada=@contador_articulo WHERE empresa=@empresa AND raiz=@raiz AND talla=@talla AND color=@color
        AND centrada<@contador_articulo
    END









GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO










/****** Object:  Trigger dbo.lindeu2_d    Script Date: 23/3/01 12:32:14 ******/
/****** Object:  Trigger dbo.lindeu2_d    Script Date: 14/12/00 12:25:10 ******/
/****** Object:  Trigger dbo.lindeu2_d    Script Date: 26/9/00 13:23:32 ******/
/****** Object:  Trigger dbo.lindeu2_d    Script Date: 26/6/00 14:57:02 ******/
/****** Object:  Trigger dbo.lindeu2_d    Script Date: 26/6/00 9:03:35 ******/
/****** Object:  Trigger dbo.lindeu2_d    Script Date: 24/3/2000 10:08:31 ******/
/****** Object:  Trigger dbo.lindeu2_d    Script Date: 23/3/2000 15:31:29 ******/
/****** Object:  Trigger dbo.lindeu2_d    Script Date: 23/3/2000 11:25:17 ******/
/****** Object:  Trigger dbo.lindeu2_d    Script Date: 16/3/2000 12:08:28 ******/
/****** Object:  Trigger dbo.lindeu2_d    Script Date: 2/3/2000 8:30:21 ******/
/****** Object:  Trigger dbo.lindeu2_d    Script Date: 24/6/99 16:21:01 ******/
/****** Object:  Trigger dbo.lindeu2_d    Script Date: 1/6/99 13:16:16 ******/
CREATE TRIGGER lindeu2_d ON dbo.LINDEU2
FOR DELETE
AS
DECLARE @empresa     CHAR(4)
DECLARE @serie       CHAR(2)
DECLARE @numero      FLOAT
DECLARE @importe     FLOAT
DECLARE @en_euro     BIT
DECLARE @cliente     CHAR(10)
DECLARE @recibido    CHAR(1)
DECLARE @quitar      FLOAT
SELECT @empresa=empresa,@serie=serie,@numero=numero,@importe=importe,@en_euro=en_euro,
    @recibido=recibido
    FROM DELETED
SELECT @cliente = (SELECT cliente
                                        FROM entrada
                                        WHERE empresa = @empresa AND serie = @serie AND numero = @numero)
IF @recibido='S'
    BEGIN
    SELECT @quitar=-@importe
    EXECUTE sp_riesgo_pro @empresa, @cliente, 'E', @quitar, @en_euro
    EXECUTE sp_riesgo_pro @empresa, @cliente, 'F', @importe, @en_euro
    END










GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO










/****** Object:  Trigger dbo.lindeu2_i    Script Date: 23/3/01 12:32:14 ******/
/****** Object:  Trigger dbo.lindeu2_i    Script Date: 14/12/00 12:25:10 ******/
/****** Object:  Trigger dbo.lindeu2_i    Script Date: 26/9/00 13:23:34 ******/
/****** Object:  Trigger dbo.lindeu2_i    Script Date: 26/6/00 14:57:02 ******/
/****** Object:  Trigger dbo.lindeu2_i    Script Date: 26/6/00 9:03:35 ******/
/****** Object:  Trigger dbo.lindeu2_i    Script Date: 24/3/2000 10:08:31 ******/
/****** Object:  Trigger dbo.lindeu2_i    Script Date: 23/3/2000 15:31:29 ******/
/****** Object:  Trigger dbo.lindeu2_i    Script Date: 23/3/2000 11:25:17 ******/
/****** Object:  Trigger dbo.lindeu2_i    Script Date: 16/3/2000 12:08:28 ******/
/****** Object:  Trigger dbo.lindeu2_i    Script Date: 2/3/2000 8:30:21 ******/
/****** Object:  Trigger dbo.lindeu2_i    Script Date: 24/6/99 16:21:01 ******/
/****** Object:  Trigger dbo.lindeu2_i    Script Date: 1/6/99 13:16:16 ******/
CREATE TRIGGER lindeu2_i ON dbo.LINDEU2
FOR INSERT
AS
DECLARE @empresa     CHAR(4)
DECLARE @serie       CHAR(2)
DECLARE @numero      FLOAT
DECLARE @importe     FLOAT
DECLARE @en_euro     BIT
DECLARE @cliente     CHAR(10)
DECLARE @recibido    CHAR(1)
DECLARE @quitar      FLOAT
SELECT @empresa=empresa,@serie=serie,@numero=numero,@importe=importe,@en_euro=en_euro,
    @recibido=recibido
    FROM inserted
SELECT @cliente = (SELECT cliente
                                        FROM entrada
                                        WHERE empresa = @empresa AND serie = @serie AND numero = @numero)
IF @recibido='S'
    BEGIN
    SELECT @quitar=-@importe
    EXECUTE sp_riesgo_pro @empresa, @cliente, 'F', @quitar, @en_euro
    EXECUTE sp_riesgo_pro @empresa, @cliente, 'E', @importe, @en_euro
    END










GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO










/****** Object:  Trigger dbo.lindeu2_u    Script Date: 23/3/01 12:32:14 ******/
/****** Object:  Trigger dbo.lindeu2_u    Script Date: 14/12/00 12:25:10 ******/
/****** Object:  Trigger dbo.lindeu2_u    Script Date: 26/9/00 13:23:34 ******/
/****** Object:  Trigger dbo.lindeu2_u    Script Date: 26/6/00 14:57:02 ******/
/****** Object:  Trigger dbo.lindeu2_u    Script Date: 26/6/00 9:03:35 ******/
/****** Object:  Trigger dbo.lindeu2_u    Script Date: 24/3/2000 10:08:31 ******/
/****** Object:  Trigger dbo.lindeu2_u    Script Date: 23/3/2000 15:31:29 ******/
/****** Object:  Trigger dbo.lindeu2_u    Script Date: 23/3/2000 11:25:17 ******/
/****** Object:  Trigger dbo.lindeu2_u    Script Date: 16/3/2000 12:08:28 ******/
/****** Object:  Trigger dbo.lindeu2_u    Script Date: 2/3/2000 8:30:21 ******/
/****** Object:  Trigger dbo.lindeu2_u    Script Date: 24/6/99 16:21:02 ******/
/****** Object:  Trigger dbo.lindeu2_u    Script Date: 1/6/99 13:16:16 ******/
CREATE TRIGGER lindeu2_u ON dbo.LINDEU2
FOR UPDATE
AS
DECLARE @empresa     CHAR(4)
DECLARE @serie       CHAR(2)
DECLARE @numero      FLOAT
DECLARE @importe     FLOAT
DECLARE @en_euro     BIT
DECLARE @cliente     CHAR(10)
DECLARE @recibido    CHAR(1)
DECLARE @quitar      FLOAT
SELECT @empresa=empresa,@serie=serie,@numero=numero,@importe=importe,@en_euro=en_euro,
        @recibido=recibido
    FROM inserted
SELECT @cliente = (SELECT cliente
                                        FROM entrada
                                        WHERE empresa = @empresa AND serie = @serie AND numero = @numero)
IF @recibido='S'
    BEGIN
    SELECT @quitar=-@importe
    EXECUTE sp_riesgo_pro @empresa, @cliente, 'F', @quitar, @en_euro
    EXECUTE sp_riesgo_pro @empresa, @cliente, 'E', @importe, @en_euro
    END
SELECT @empresa=empresa,@serie=serie,@numero=numero,@importe=importe,@en_euro=en_euro,
        @recibido=recibido
    FROM deleted
IF @recibido='S'
    BEGIN
    SELECT @quitar=-@importe
    EXECUTE sp_riesgo_pro @empresa, @cliente, 'E', @quitar, @en_euro
    EXECUTE sp_riesgo_pro @empresa, @cliente, 'F', @importe, @en_euro
    END










GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO






/****** Object:  Trigger dbo.lindeud_d    Script Date: 18/5/01 12:58:22 ******/
/****** Object:  Trigger dbo.lindeud_d    Script Date: 3/5/01 9:24:50 ******/
/****** Object:  Trigger dbo.lindeud_d    Script Date: 19/2/01 11:30:22 ******/
/****** Object:  Trigger dbo.lindeud_d    Script Date: 14/12/00 12:25:10 ******/
/****** Object:  Trigger dbo.lindeud_d    Script Date: 26/9/00 13:23:34 ******/
/****** Object:  Trigger dbo.lindeud_d    Script Date: 26/6/00 14:57:03 ******/
/****** Object:  Trigger dbo.lindeud_d    Script Date: 26/6/00 9:03:35 ******/
/****** Object:  Trigger dbo.lindeud_d    Script Date: 24/3/2000 10:08:31 ******/
/****** Object:  Trigger dbo.lindeud_d    Script Date: 23/3/2000 15:31:29 ******/
/****** Object:  Trigger dbo.lindeud_d    Script Date: 23/3/2000 11:25:17 ******/
/****** Object:  Trigger dbo.lindeud_d    Script Date: 16/3/2000 12:08:28 ******/
/****** Object:  Trigger dbo.lindeud_d    Script Date: 2/3/2000 8:30:21 ******/
/****** Object:  Trigger dbo.lindeud_d    Script Date: 24/6/99 16:21:02 ******/
/****** Object:  Trigger dbo.lindeud_d    Script Date: 1/6/99 13:16:16 ******/
CREATE TRIGGER lindeud_d ON dbo.LINDEUD

FOR DELETE
AS
DECLARE @empresa     CHAR(4)
DECLARE @serie       CHAR(2)
DECLARE @numero      FLOAT
DECLARE @importe     FLOAT
DECLARE @en_euro     BIT
DECLARE @cliente     CHAR(10)
DECLARE @recibido    CHAR(1)
DECLARE @quitar      FLOAT
SELECT @empresa=empresa,@serie=serie,@numero=numero,@importe=importe,@en_euro=en_euro,
    @recibido=recibido
    FROM DELETED
DECLARE codcli CURSOR FOR SELECT cliente
    FROM factura WHERE empresa=@empresa AND serie=@serie AND numero=@numero
OPEN CODCLI
FETCH NEXT  FROM codcli INTO @cliente
CLOSE codcli
DEALLOCATE codcli
IF @recibido='S'

    BEGIN
    SELECT @quitar=-@importe
    EXECUTE sp_riesgo_cli @empresa, @cliente, 'E', @quitar, @en_euro
    EXECUTE sp_riesgo_cli @empresa, @cliente, 'F', @importe, @en_euro
    END








GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO






/****** Object:  Trigger dbo.lindeud_i    Script Date: 18/5/01 12:58:22 ******/
/****** Object:  Trigger dbo.lindeud_i    Script Date: 3/5/01 9:24:50 ******/
/****** Object:  Trigger dbo.lindeud_i    Script Date: 19/2/01 11:30:22 ******/
/****** Object:  Trigger dbo.lindeud_i    Script Date: 14/12/00 12:25:10 ******/
/****** Object:  Trigger dbo.lindeud_i    Script Date: 26/9/00 13:23:34 ******/
/****** Object:  Trigger dbo.lindeud_i    Script Date: 26/6/00 14:57:03 ******/
/****** Object:  Trigger dbo.lindeud_i    Script Date: 26/6/00 9:03:35 ******/
/****** Object:  Trigger dbo.lindeud_i    Script Date: 24/3/2000 10:08:31 ******/
/****** Object:  Trigger dbo.lindeud_i    Script Date: 23/3/2000 15:31:29 ******/
/****** Object:  Trigger dbo.lindeud_i    Script Date: 23/3/2000 11:25:17 ******/
/****** Object:  Trigger dbo.lindeud_i    Script Date: 16/3/2000 12:08:28 ******/
/****** Object:  Trigger dbo.lindeud_i    Script Date: 2/3/2000 8:30:21 ******/
/****** Object:  Trigger dbo.lindeud_i    Script Date: 24/6/99 16:21:02 ******/
/****** Object:  Trigger dbo.lindeud_i    Script Date: 1/6/99 13:16:16 ******/
CREATE TRIGGER lindeud_i ON dbo.LINDEUD

FOR INSERT
AS
DECLARE @empresa     CHAR(4)
DECLARE @serie       CHAR(2)
DECLARE @numero      FLOAT
DECLARE @importe     FLOAT
DECLARE @en_euro     BIT
DECLARE @cliente     CHAR(10)
DECLARE @recibido    CHAR(1)
DECLARE @quitar      FLOAT
SELECT @empresa=empresa,@serie=serie,@numero=numero,@importe=importe,@en_euro=en_euro,
    @recibido=recibido
    FROM inserted
DECLARE codcli CURSOR FOR SELECT cliente
    FROM factura WHERE empresa=@empresa AND serie=@serie AND numero=@numero
OPEN CODCLI
FETCH NEXT  FROM codcli INTO @cliente
CLOSE codcli
DEALLOCATE codcli
IF @recibido='S'
    BEGIN
    SELECT @quitar=-@importe
    EXECUTE sp_riesgo_cli @empresa, @cliente, 'F', @quitar, @en_euro
    EXECUTE sp_riesgo_cli @empresa, @cliente, 'E', @importe, @en_euro
    END








GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO






/****** Object:  Trigger dbo.lindeud_U    Script Date: 18/5/01 12:58:22 ******/
/****** Object:  Trigger dbo.lindeud_U    Script Date: 3/5/01 9:24:50 ******/
/****** Object:  Trigger dbo.lindeud_U    Script Date: 19/2/01 11:30:22 ******/
/****** Object:  Trigger dbo.lindeud_U    Script Date: 14/12/00 12:25:10 ******/
/****** Object:  Trigger dbo.lindeud_U    Script Date: 26/9/00 13:23:34 ******/
/****** Object:  Trigger dbo.lindeud_U    Script Date: 26/6/00 14:57:03 ******/
/****** Object:  Trigger dbo.lindeud_U    Script Date: 26/6/00 9:03:35 ******/
/****** Object:  Trigger dbo.lindeud_U    Script Date: 24/3/2000 10:08:31 ******/
/****** Object:  Trigger dbo.lindeud_U    Script Date: 23/3/2000 15:31:29 ******/
/****** Object:  Trigger dbo.lindeud_U    Script Date: 23/3/2000 11:25:17 ******/
/****** Object:  Trigger dbo.lindeud_U    Script Date: 16/3/2000 12:08:28 ******/
/****** Object:  Trigger dbo.lindeud_U    Script Date: 2/3/2000 8:30:21 ******/
/****** Object:  Trigger dbo.lindeud_U    Script Date: 24/6/99 16:21:02 ******/
/****** Object:  Trigger dbo.lindeud_U    Script Date: 1/6/99 13:16:16 ******/
CREATE TRIGGER lindeud_U ON dbo.LINDEUD

FOR UPDATE
AS
DECLARE @empresa     CHAR(4)
DECLARE @serie       CHAR(2)
DECLARE @numero      FLOAT
DECLARE @importe     FLOAT
DECLARE @en_euro     BIT
DECLARE @cliente     CHAR(10)
DECLARE @recibido    CHAR(1)
DECLARE @quitar      FLOAT
SELECT @empresa=empresa,@serie=serie,@numero=numero,@importe=importe,@en_euro=en_euro,
    @recibido=recibido
    FROM inserted
DECLARE codcli CURSOR FOR SELECT cliente
    FROM factura WHERE empresa=@empresa AND serie=@serie AND numero=@numero
OPEN CODCLI
FETCH NEXT  FROM codcli INTO @cliente
CLOSE codcli
DEALLOCATE codcli
IF @recibido='S'
    BEGIN
    SELECT @quitar=-@importe
    EXECUTE sp_riesgo_cli @empresa, @cliente, 'F', @quitar, @en_euro
    EXECUTE sp_riesgo_cli @empresa, @cliente, 'E', @importe, @en_euro
    END
SELECT @empresa=empresa,@serie=serie,@numero=numero,@importe=importe,@en_euro=en_euro,
    @recibido=recibido
    FROM DELETED
/*
DECLARE codcli CURSOR FOR SELECT cliente
    FROM factura WHERE empresa=@empresa AND serie=@serie AND numero=@numero
OPEN CODCLI
FETCH NEXT  FROM codcli INTO @cliente
CLOSE codcli
DEALLOCATE codcli
*/
IF @recibido='S'
    BEGIN
    SELECT @quitar=-@importe
    EXECUTE sp_riesgo_cli @empresa, @cliente, 'E', @quitar, @en_euro
    EXECUTE sp_riesgo_cli @empresa, @cliente, 'F', @importe, @en_euro
    END








GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO




/****** Object:  Trigger dbo.lineaalb_d    Script Date: 23/3/01 12:32:17 ******/
CREATE TRIGGER lineaalb_d ON dbo.LINEAALB
FOR DELETE
AS
DECLARE @empresa     CHAR(4)
DECLARE @serie         CHAR(2)
DECLARE @numero     FLOAT
DECLARE @raiz         CHAR(16)
DECLARE @talla         CHAR(2)
DECLARE @color         CHAR(2)
DECLARE @total_l     FLOAT
DECLARE @tipoiva    INT
DECLARE @cliente        CHAR(10)
DECLARE @fecha   DATETIME
DECLARE @suma1   FLOAT
DECLARE @suma2   FLOAT
DECLARE @suma3   FLOAT
DECLARE @suma4   FLOAT
DECLARE @recargo1   FLOAT
DECLARE @recargo2   FLOAT
DECLARE @recargo3   FLOAT
DECLARE @recargo4   FLOAT
DECLARE @dto1    FLOAT
DECLARE @dto2    FLOAT
DECLARE @dto3    FLOAT
DECLARE @dto4    FLOAT
DECLARE @base1   FLOAT
DECLARE @base2   FLOAT
DECLARE @base3   FLOAT
DECLARE @base4   FLOAT
DECLARE @iva1    FLOAT
DECLARE @iva2    FLOAT

DECLARE @iva3    FLOAT
DECLARE @iva4    FLOAT
DECLARE @re1    FLOAT
DECLARE @re2    FLOAT
DECLARE @re3    FLOAT
DECLARE @re4    FLOAT
DECLARE @dto_c   FLOAT
DECLARE @dto_p   FLOAT
DECLARE @dto_rec FLOAT
DECLARE @p_reten FLOAT
DECLARE @rec_fin FLOAT
DECLARE @en_euro BIT
DECLARE @total   FLOAT
DECLARE @imp_ret FLOAT
DECLARE @importe FLOAT
DECLARE @codigo  CHAR(10)
DECLARE @tipo    CHAR(1)
DECLARE @tabla   FLOAT
DECLARE @cantidad FLOAT
DECLARE @l_costem FLOAT
DECLARE @costemed FLOAT
DECLARE @costemedx FLOAT
DECLARE @almacen CHAR(4)
DECLARE @albaran FLOAT
DECLARE @pedido FLOAT
DECLARE @linea INT
DECLARE @lineaF FLOAT
DECLARE @lineaped FLOAT
SELECT @empresa = empresa, @serie = serie, @numero = numero,
        @raiz = raiz, @talla = talla, @color = color,
        @total_l = total_l, @cantidad = -cantidad, @almacen = almacen, @linea = lineaped, @lineaF = lineafac,
        @l_costem=l_costem,@lineaped=lineaped
    FROM DELETED
SELECT @codigo = cliente, @importe=-total,
     @dto_c=dto_c,@dto_p=dto_p,@dto_rec=dto_rec,@fecha=fecha,
     @suma1=suma1,@suma2=suma2,@suma3=suma3,@suma4=suma4,
     @recargo1=recargo1,@recargo2=recargo2,@recargo3=recargo3,@recargo4=recargo4,
     @p_reten = p_reten, @rec_fin=rec_fin, @en_euro = en_euro, @pedido = pedido,
     @costemed=costemed
    FROM albaran
    WHERE empresa=@empresa AND serie=@serie AND numero=@numero
SELECT @tipoiva = (SELECT tipo_iva FROM articulo
            WHERE empresa = @empresa AND raiz = @raiz AND talla = @talla AND color = @color)
IF @tipoiva = 1
    SELECT @suma1=@suma1-@total_l
IF @tipoiva = 2
    SELECT @suma2=@suma2-@total_l
IF @tipoiva = 3
    SELECT @suma3=@suma3-@total_l
IF @tipoiva = 4
    SELECT @suma4=@suma4-@total_l
EXECUTE sp_xxx_calcular @empresa,@serie,@codigo,@fecha,
    @dto_c,@dto_p,@dto_rec,
    @suma1,@suma2,@suma3,@suma4,
    @recargo1,@recargo2,@recargo3,@recargo4, @p_reten, @rec_fin, @en_euro,
    @dto1 OUTPUT,@dto2 OUTPUT,@dto3 OUTPUT,@dto4 OUTPUT,
    @base1 OUTPUT,@base2 OUTPUT,@base3 OUTPUT,@base4 OUTPUT,
    @iva1 OUTPUT,@iva2 OUTPUT,@iva3 OUTPUT,@iva4 OUTPUT,
    @re1 OUTPUT,@re2 OUTPUT,@re3 OUTPUT,@re4 OUTPUT, @imp_ret OUTPUT, @total OUTPUT
UPDATE albaran SET suma1=@suma1,suma2=@suma2,suma3=@suma3, suma4=@suma4,
        dto1=@dto1,dto2=@dto2,dto3=@dto3,dto4=@dto4,
        base1=@base1,base2=@base2,base3=@base3,base4=@base4,
        iva1=@iva1,iva2=@iva2,iva3=@iva3,iva4=@iva4,
        re1=@re1,re2=@re2,re3=@re3,re4=@re4, imp_ret = @imp_ret, total = @total,
            costemed=@costemed+(@l_costem*@cantidad)
    WHERE empresa=@empresa AND serie=@serie AND numero=@numero
SELECT @importe=@importe+@total
/* ------------ Desimputa RIESGO --------------------------------*/
IF @lineaF = 0
  EXECUTE sp_riesgo_cli @empresa, @codigo, 'P', @importe, @en_euro
/* ------------ Desimputa STOCK --------------------------------*/
EXECUTE sp_xxx_stock @empresa, @raiz, @talla, @color, @cantidad, @almacen
/* ------------ Desimputa SERVIDO --------------------------------*/
IF @pedido <> 0
    EXECUTE sp_linea_ped @empresa, @serie, @pedido, @lineaped, @cantidad










GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO



/****** Object:  Trigger dbo.lineaalb_i    Script Date: 23/3/01 12:32:17 ******/
CREATE TRIGGER lineaalb_i ON dbo.LINEAALB
FOR INSERT
AS
DECLARE @empresa     CHAR(4)
DECLARE @serie         CHAR(2)
DECLARE @numero     FLOAT
DECLARE @raiz         CHAR(16)
DECLARE @talla         CHAR(2)
DECLARE @color         CHAR(2)
DECLARE @total_l     FLOAT
DECLARE @tipoiva    INT
DECLARE @cliente        CHAR(10)
DECLARE @fecha   DATETIME
DECLARE @suma1   FLOAT
DECLARE @suma2   FLOAT
DECLARE @suma3   FLOAT
DECLARE @suma4   FLOAT
DECLARE @recargo1   FLOAT
DECLARE @recargo2   FLOAT
DECLARE @recargo3   FLOAT
DECLARE @recargo4   FLOAT
DECLARE @dto1    FLOAT
DECLARE @dto2    FLOAT
DECLARE @dto3    FLOAT
DECLARE @dto4    FLOAT
DECLARE @base1   FLOAT
DECLARE @base2   FLOAT
DECLARE @base3   FLOAT
DECLARE @base4   FLOAT
DECLARE @iva1    FLOAT
DECLARE @iva2    FLOAT

DECLARE @iva3    FLOAT
DECLARE @iva4    FLOAT
DECLARE @re1    FLOAT
DECLARE @re2    FLOAT
DECLARE @re3    FLOAT
DECLARE @re4    FLOAT
DECLARE @dto_c   FLOAT
DECLARE @dto_p   FLOAT
DECLARE @dto_rec FLOAT
DECLARE @p_reten FLOAT
DECLARE @rec_fin FLOAT
DECLARE @en_euro BIT
DECLARE @total   FLOAT
DECLARE @imp_ret FLOAT
DECLARE @importe FLOAT
DECLARE @codigo  CHAR(10)
DECLARE @tipo    CHAR(1)
DECLARE @tabla   FLOAT
DECLARE @cantidad FLOAT
DECLARE @l_costem FLOAT
DECLARE @costemed FLOAT
DECLARE @costemedx FLOAT
DECLARE @almacen CHAR(4)
DECLARE @albaran FLOAT
DECLARE @pedido FLOAT
DECLARE @linea  FLOAT
DECLARE @lineaF FLOAT
DECLARE @contador FLOAT
DECLARE @contador_articulo FLOAT
DECLARE @lineaped  FLOAT
/***************************************
*** IMPUTAR LO NUEVO *******************
***************************************/
SELECT @empresa = empresa, @serie = serie, @numero = numero, @linea=linea,
        @raiz = raiz, @talla = talla, @color = color,
        @total_l = total_l, @cantidad = cantidad, @almacen = almacen,
        @lineaF = lineafac,@l_costem=l_costem,
        @contador=csalida, @lineaped=lineaped
    FROM INSERTED
SELECT @codigo = cliente, @importe = -total,
     @dto_c=dto_c,@dto_p=dto_p,@dto_rec=dto_rec,@fecha=fecha,
     @suma1=suma1,@suma2=suma2,@suma3=suma3,@suma4=suma4,
     @recargo1=recargo1,@recargo2=recargo2,@recargo3=recargo3,@recargo4=recargo4,
     @p_reten = p_reten, @rec_fin=rec_fin, @en_euro = en_euro, @pedido = pedido,
     @costemed=costemed
    FROM albaran
    WHERE empresa=@empresa AND serie=@serie AND numero=@numero
SELECT @tipoiva = (SELECT tipo_iva FROM articulo
            WHERE empresa = @empresa AND raiz = @raiz AND talla = @talla AND color = @color)
/* ---------------------------- TRAZA ------------------------------------------
SELECT 'TIPO IVA'= @tipoiva,'SUMA1 '=@SUMA1,'SUMA 2'=@SUMA2
 ---------------------------- TRAZA ------------------------------------------*/
IF @tipoiva = 1
    SELECT @suma1=@suma1+@total_l
IF @tipoiva = 2
    SELECT @suma2=@suma2+@total_l
IF @tipoiva = 3
    SELECT @suma3=@suma3+@total_l
IF @tipoiva = 4
    SELECT @suma4=@suma4+@total_l
EXEC sp_xxx_calcular @empresa,@serie, @codigo,@fecha,
    @dto_c,@dto_p,@dto_rec,
    @suma1,@suma2,@suma3,@suma4,
    @recargo1,@recargo2,@recargo3,@recargo4, @p_reten, @rec_fin, @en_euro,
    @dto1 OUTPUT,@dto2 OUTPUT,@dto3 OUTPUT,@dto4 OUTPUT,
    @base1 OUTPUT,@base2 OUTPUT,@base3 OUTPUT,@base4 OUTPUT,
    @iva1 OUTPUT,@iva2 OUTPUT,@iva3 OUTPUT,@iva4 OUTPUT,
    @re1 OUTPUT,@re2 OUTPUT,@re3 OUTPUT,@re4 OUTPUT, @imp_ret OUTPUT, @total OUTPUT
UPDATE albaran SET suma1=@suma1,suma2=@suma2,suma3=@suma3, suma4=@suma4,
        dto1=@dto1,dto2=@dto2,dto3=@dto3,dto4=@dto4,
        base1=@base1,base2=@base2,base3=@base3,base4=@base4,
        iva1=@iva1,iva2=@iva2,iva3=@iva3,iva4=@iva4,
        re1=@re1,re2=@re2,re3=@re3,re4=@re4, imp_ret = @imp_ret, total = @total ,
        costemed=@costemed+(@l_costem*@cantidad)
    WHERE empresa=@empresa AND serie=@serie AND numero=@numero
SELECT @importe = @importe + @total
/* ------------ Imputa RIESGO --------------------------------*/
IF @lineaF=0
    EXECUTE sp_riesgo_cli @empresa, @codigo, 'P', @importe, @en_euro
/* ------------ Imputa STOCK --------------------------------*/
EXECUTE sp_xxx_stock @empresa, @raiz, @talla, @color, @cantidad, @almacen
/* ------------ Imputa SERVIDO --------------------------------*/
IF @pedido <> 0
    EXECUTE sp_linea_ped @empresa, @serie, @pedido, @lineaped, @cantidad


IF @contador<>0 AND @cantidad>0
    BEGIN
    SELECT @contador_articulo=@contador+@cantidad
    UPDATE articulo SET csalida=@contador_articulo WHERE empresa=@empresa AND raiz=@raiz AND talla=@talla AND color=@color
        AND csalida<@contador_articulo
    END






GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO




/****** Object:  Trigger dbo.lineaalb_u    Script Date: 23/3/01 12:32:17 ******/
CREATE TRIGGER lineaalb_u ON dbo.LINEAALB
FOR UPDATE
AS
DECLARE @empresa     CHAR(4)
DECLARE @serie         CHAR(2)
DECLARE @numero     FLOAT
DECLARE @raiz         CHAR(16)
DECLARE @talla         CHAR(2)
DECLARE @color         CHAR(2)
DECLARE @total_l     FLOAT
DECLARE @tipoiva    INT
DECLARE @cliente        CHAR(10)
DECLARE @fecha   DATETIME
DECLARE @suma1   FLOAT
DECLARE @suma2   FLOAT
DECLARE @suma3   FLOAT
DECLARE @suma4   FLOAT
DECLARE @recargo1   FLOAT
DECLARE @recargo2   FLOAT
DECLARE @recargo3   FLOAT
DECLARE @recargo4   FLOAT
DECLARE @dto1    FLOAT
DECLARE @dto2    FLOAT
DECLARE @dto3    FLOAT
DECLARE @dto4    FLOAT
DECLARE @base1   FLOAT
DECLARE @base2   FLOAT
DECLARE @base3   FLOAT
DECLARE @base4   FLOAT
DECLARE @iva1    FLOAT
DECLARE @iva2    FLOAT

DECLARE @iva3    FLOAT
DECLARE @iva4    FLOAT
DECLARE @re1    FLOAT
DECLARE @re2    FLOAT
DECLARE @re3    FLOAT
DECLARE @re4    FLOAT
DECLARE @dto_c   FLOAT
DECLARE @dto_p   FLOAT
DECLARE @dto_rec FLOAT
DECLARE @p_reten FLOAT
DECLARE @rec_fin FLOAT
DECLARE @en_euro BIT
DECLARE @total   FLOAT
DECLARE @imp_ret FLOAT
DECLARE @importe FLOAT
DECLARE @codigo  CHAR(10)
DECLARE @tipo    CHAR(1)
DECLARE @tabla   FLOAT
DECLARE @cantidad FLOAT
DECLARE @l_costem FLOAT
DECLARE @costemed FLOAT
DECLARE @costemedx FLOAT
DECLARE @almacen CHAR(4)
DECLARE @albaran FLOAT
DECLARE @pedido FLOAT
DECLARE @linea INT
DECLARE @lineaF FLOAT
DECLARE @contador FLOAT
DECLARE @contador_articulo FLOAT
DECLARE @lineaped FLOAT


SELECT @empresa = empresa, @serie = serie, @numero = numero,
        @raiz = raiz, @talla = talla, @color = color,
        @total_l = total_l, @cantidad = -cantidad, @almacen = almacen, @linea = lineaped,
        @lineaF = lineafac,@l_costem=l_costem,@lineaped=lineaped
    FROM DELETED
SELECT @codigo = cliente, @importe = -total,
     @dto_c=dto_c,@dto_p=dto_p,@dto_rec=dto_rec,@fecha=fecha,
     @suma1=suma1,@suma2=suma2,@suma3=suma3,@suma4=suma4,
     @recargo1=recargo1,@recargo2=recargo2,@recargo3=recargo3,@recargo4=recargo4,
     @p_reten = p_reten, @rec_fin=rec_fin, @en_euro = en_euro, @pedido = pedido,
     @costemed=costemed
    FROM albaran
    WHERE empresa=@empresa AND serie=@serie AND numero=@numero
SELECT @costemedx=@costemed+(@l_costem*@cantidad)
/* ------------ Desimputa riesgo --------------------------------*/
IF @lineaF = 0
  EXECUTE sp_riesgo_cli @empresa, @codigo, 'P', @importe, @en_euro
/* ------------ Desimputa STOCK --------------------------------*/
EXECUTE sp_xxx_stock @empresa, @raiz, @talla, @color, @cantidad, @almacen
/* ------------ Desimputa SERVIDO --------------------------------*/
IF @pedido <> 0
    EXECUTE sp_linea_ped @empresa, @serie, @pedido, @lineaped, @cantidad
SELECT @tipoiva = (SELECT tipo_iva FROM articulo
            WHERE empresa = @empresa AND raiz = @raiz AND talla = @talla AND color = @color)
/* ---------------------------- TRAZA ------------------------------------------

DECLARE @returnmessage varchar(255)
SELECT @returnmessage = 'Valor de tipoiva en lineafac_U DESHACER= ' + RTRIM(CONVERT(char(30), @tipoiva)) + '.'
PRINT @returnmessage
 ---------------------------- TRAZA ------------------------------------------*/
IF @tipoiva = 1
    SELECT @suma1=@suma1-@total_l
IF @tipoiva = 2
    SELECT @suma2=@suma2-@total_l
IF @tipoiva = 3
    SELECT @suma3=@suma3-@total_l
IF @tipoiva = 4
    SELECT @suma4=@suma4-@total_l
/***************************************
*** IMPUTAR LO NUEVO *******************
***************************************/
SELECT @empresa = empresa, @serie = serie, @numero = numero,
     @raiz = raiz, @talla = talla, @color = color,
     @cantidad = cantidad, @total_l = total_l, @lineaF = lineafac,@almacen=almacen,
     @l_costem=l_costem,
    @contador=csalida,@lineaped=lineaped
    FROM INSERTED
SELECT @tipoiva = (SELECT tipo_iva FROM articulo
            WHERE empresa = @empresa AND raiz = @raiz AND talla = @talla AND color = @color)
/* ---------------------------- TRAZA ------------------------------------------
SELECT @returnmessage = 'Valor de tipoiva en lineafac_U HACER = ' + RTRIM(CONVERT(char(30), @tipoiva)) + '.'
PRINT @returnmessage
 ---------------------------- TRAZA ------------------------------------------*/
IF @tipoiva = 1
    SELECT @suma1=@suma1+@total_l
IF @tipoiva = 2
    SELECT @suma2=@suma2+@total_l
IF @tipoiva = 3
    SELECT @suma3=@suma3+@total_l
IF @tipoiva = 4
    SELECT @suma4=@suma4+@total_l
/* ------------------ CALCULAR --------------------*/
EXEC sp_xxx_calcular @empresa,@serie,@codigo,@fecha,
    @dto_c,@dto_p,@dto_rec,
    @suma1,@suma2,@suma3,@suma4,
    @recargo1,@recargo2,@recargo3,@recargo4, @p_reten, @rec_fin, @en_euro,
    @dto1 OUTPUT,@dto2 OUTPUT,@dto3 OUTPUT,@dto4 OUTPUT,
    @base1 OUTPUT,@base2 OUTPUT,@base3 OUTPUT,@base4 OUTPUT,
    @iva1 OUTPUT,@iva2 OUTPUT,@iva3 OUTPUT,@iva4 OUTPUT,
    @re1 OUTPUT,@re2 OUTPUT,@re3 OUTPUT,@re4 OUTPUT, @imp_ret OUTPUT, @total OUTPUT
UPDATE albaran SET suma1=@suma1,suma2=@suma2,suma3=@suma3, suma4=@suma4,
     dto1=@dto1,dto2=@dto2,dto3=@dto3,dto4=@dto4,
     base1=@base1,base2=@base2,base3=@base3,base4=@base4,
     iva1=@iva1,iva2=@iva2,iva3=@iva3,iva4=@iva4,
     re1=@re1,re2=@re2,re3=@re3,re4=@re4, imp_ret = @imp_ret, total = @total ,
     costemed=@costemedx+(@l_costem*@cantidad)
    WHERE empresa=@empresa AND serie=@serie AND numero=@numero
/* ------------ Imputa RIESGO --------------------------------*/
IF @lineaF = 0
  EXECUTE sp_riesgo_cli @empresa, @codigo, 'P', @total, @en_euro
/* ------------ Imputa STOCK --------------------------------*/
EXECUTE sp_xxx_stock @empresa, @raiz, @talla, @color, @cantidad, @almacen
/* ------------ Imputa SERVIDO --------------------------------*/
IF @pedido <> 0
    EXECUTE sp_linea_ped @empresa, @serie, @pedido, @lineaped, @cantidad


IF @contador<>0 AND @cantidad>0
    BEGIN
    SELECT @contador_articulo=@contador+@cantidad
    UPDATE articulo SET csalida=@contador_articulo WHERE empresa=@empresa AND raiz=@raiz AND talla=@talla AND color=@color
        AND csalida<@contador_articulo
    END










GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO










/****** Object:  Trigger dbo.lineacom_d    Script Date: 23/3/01 12:32:14 ******/
/****** Object:  Trigger dbo.lineacom_d    Script Date: 14/12/00 12:25:10 ******/
CREATE TRIGGER lineacom_d ON dbo.LINEACOM
FOR DELETE
AS
DECLARE @empresa     CHAR(4)
DECLARE @serie         CHAR(2)
DECLARE @numero     FLOAT
DECLARE @raiz         CHAR(16)
DECLARE @talla         CHAR(2)
DECLARE @color         CHAR(2)
DECLARE @total_l     FLOAT
DECLARE @tipoiva    INT
DECLARE @cliente        CHAR(10)
DECLARE @fecha   DATETIME
DECLARE @a_suma1   FLOAT
DECLARE @a_suma2   FLOAT
DECLARE @a_suma3   FLOAT
DECLARE @a_suma4   FLOAT
DECLARE @a_rec1   FLOAT
DECLARE @a_rec2   FLOAT
DECLARE @a_rec3   FLOAT
DECLARE @a_rec4   FLOAT
DECLARE @a_dto1    FLOAT
DECLARE @a_dto2    FLOAT
DECLARE @a_dto3    FLOAT
DECLARE @a_dto4    FLOAT
DECLARE @a_base1   FLOAT
DECLARE @a_base2   FLOAT
DECLARE @a_base3   FLOAT
DECLARE @a_base4   FLOAT
DECLARE @a_iva1    FLOAT
DECLARE @a_iva2    FLOAT
DECLARE @a_iva3    FLOAT
DECLARE @a_iva4    FLOAT
DECLARE @a_re1    FLOAT
DECLARE @a_re2    FLOAT
DECLARE @a_re3    FLOAT
DECLARE @a_re4    FLOAT

DECLARE @dto_c   FLOAT
DECLARE @dto_p   FLOAT
DECLARE @dto_rec FLOAT
DECLARE @p_reten FLOAT
DECLARE @en_euro BIT
DECLARE @a_total   FLOAT
DECLARE @a_impret FLOAT
DECLARE @suma1   FLOAT
DECLARE @suma2   FLOAT
DECLARE @suma3   FLOAT
DECLARE @suma4   FLOAT
DECLARE @recargo1   FLOAT
DECLARE @recargo2   FLOAT
DECLARE @recargo3   FLOAT
DECLARE @recargo4   FLOAT
DECLARE @dto1    FLOAT
DECLARE @dto2    FLOAT
DECLARE @dto3    FLOAT
DECLARE @dto4    FLOAT
DECLARE @base1   FLOAT
DECLARE @base2   FLOAT
DECLARE @base3   FLOAT
DECLARE @base4   FLOAT
DECLARE @iva1    FLOAT
DECLARE @iva2    FLOAT
DECLARE @iva3    FLOAT
DECLARE @iva4    FLOAT
DECLARE @re1    FLOAT
DECLARE @re2    FLOAT
DECLARE @re3    FLOAT
DECLARE @re4    FLOAT
DECLARE @total   FLOAT
DECLARE @imp_ret FLOAT
DECLARE @divisa  CHAR(10)
DECLARE @cambio  FLOAT
DECLARE @importe FLOAT
DECLARE @codigo  CHAR(10)
DECLARE @tipo    CHAR(1)
DECLARE @tabla   FLOAT
DECLARE @cantidad FLOAT
DECLARE @almacen CHAR(4)
DECLARE @linea INT
DECLARE @RETURNMESSAGE CHAR(200)
/***************************************
*** IMPUTAR LO NUEVO *******************
***************************************/
SELECT @empresa = empresa, @serie = serie, @numero = numero,
        @raiz = raiz, @talla = talla, @color = color,
        @total_l = -a_tot_l, @cantidad = -cantidad, @almacen = almacen
    FROM DELETED
SELECT @codigo = cliente, @importe=-total,
     @dto_c=dto_c,@dto_p=dto_p,@dto_rec=dto_rec,@fecha=fecha,
     @a_suma1=a_suma1,@a_suma2=a_suma2,@a_suma3=a_suma3,@a_suma4=a_suma4,
     @a_rec1=a_rec1,@a_rec2=a_rec2,@a_rec3=a_rec3,@a_rec4=a_rec4,
     @p_reten = retencion, @en_euro = en_euro, @cambio=cambio,@divisa=divisa
    FROM compra
    WHERE empresa=@empresa AND serie=@serie
    AND numero=@numero
SELECT @tipoiva = (SELECT tipo_iva FROM articulo
            WHERE empresa = @empresa AND raiz = @raiz AND talla = @talla AND color = @color)
/* ---------------------------- TRAZA ------------------------------------------
SELECT 'TIPO IVA'= @tipoiva,'a_suma1 '=@a_suma1,'SUMA 2'=@a_suma2
 ---------------------------- TRAZA ------------------------------------------*/
IF @tipoiva = 1
    SELECT @a_suma1=@a_suma1+@total_l
IF @tipoiva = 2
    SELECT @a_suma2=@a_suma2+@total_l
IF @tipoiva = 3
    SELECT @a_suma3=@a_suma3+@total_l
IF @tipoiva = 4
    SELECT @a_suma4=@a_suma4+@total_l
EXEC sp_xxx_calcula2 @empresa,@serie, @codigo,@fecha,
    @dto_c,@dto_p,@dto_rec,
    @a_suma1,@a_suma2,@a_suma3,@a_suma4,
    @a_rec1,@a_rec2,@a_rec3,@a_rec4, @p_reten, @divisa,@cambio, @en_euro,
    @a_dto1 OUTPUT,@a_dto2 OUTPUT,@a_dto3 OUTPUT,@a_dto4 OUTPUT,
    @a_base1 OUTPUT,@a_base2 OUTPUT,@a_base3 OUTPUT,@a_base4 OUTPUT,
    @a_iva1 OUTPUT,@a_iva2 OUTPUT,@a_iva3 OUTPUT,@a_iva4 OUTPUT,
    @a_re1 OUTPUT,@a_re2 OUTPUT,@a_re3 OUTPUT,@a_re4 OUTPUT,
    @a_impret OUTPUT, @a_total OUTPUT,
    @suma1   OUTPUT,@suma2     OUTPUT,@suma3    OUTPUT,@suma4    OUTPUT,
    @dto1    OUTPUT,@dto2      OUTPUT,@dto3     OUTPUT,@dto4     OUTPUT,
    @base1   OUTPUT,@base2     OUTPUT,@base3    OUTPUT,@base4    OUTPUT,
    @iva1    OUTPUT,@iva2      OUTPUT,@iva3     OUTPUT,@iva4     OUTPUT,
    @re1     OUTPUT,@re2       OUTPUT,@re3      OUTPUT,@re4      OUTPUT,
    @recargo1 OUTPUT,@recargo2 OUTPUT,@recargo3 OUTPUT,@recargo4 OUTPUT,
    @imp_ret OUTPUT, @total    OUTPUT
UPDATE compra SET a_suma1=@a_suma1,a_suma2=@a_suma2,a_suma3=@a_suma3, a_suma4=@a_suma4,
        a_dto1=@a_dto1,a_dto2=@a_dto2,a_dto3=@a_dto3,a_dto4=@a_dto4,
        a_base1=@a_base1,a_base2=@a_base2,a_base3=@a_base3,a_base4=@a_base4,
        a_iva1=@a_iva1,a_iva2=@a_iva2,a_iva3=@a_iva3,a_iva4=@a_iva4,
        a_re1=@a_re1,a_re2=@a_re2,a_re3=@a_re3,a_re4=@a_re4,
        a_impret = @a_impret, a_total = @a_total ,
        suma1=@suma1,suma2=@suma2,suma3=@suma3, suma4=@suma4,
        recargo1=@recargo1,recargo2=@recargo2,recargo3=@recargo3,recargo4=@recargo4,
        dto1=@dto1,dto2=@dto2,dto3=@dto3,dto4=@dto4,
        base1=@base1,base2=@base2,base3=@base3,base4=@base4,
        iva1=@iva1,iva2=@iva2,iva3=@iva3,iva4=@iva4,
        re1=@re1,re2=@re2,re3=@re3,re4=@re4,
        impret = @imp_ret, total = @total
    WHERE empresa=@empresa AND serie=@serie AND numero=@numero
/*
execute sp_xxx_ponmsg 'antes de poner pedido'
*/
EXECUTE sp_xxx_stockpedi @empresa,@raiz,@talla,@color,@cantidad,@almacen
/*
execute sp_xxx_ponmsg 'despues de poner pedido'
*/










GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO










/****** Object:  Trigger dbo.lineacom_i    Script Date: 23/3/01 12:32:14 ******/
/****** Object:  Trigger dbo.lineacom_i    Script Date: 14/12/00 12:25:10 ******/
CREATE TRIGGER lineacom_i ON dbo.LINEACOM
FOR INSERT
AS
DECLARE @empresa     CHAR(4)
DECLARE @serie         CHAR(2)
DECLARE @numero     FLOAT
DECLARE @raiz         CHAR(16)
DECLARE @talla         CHAR(2)
DECLARE @color         CHAR(2)
DECLARE @total_l     FLOAT
DECLARE @tipoiva    INT
DECLARE @cliente        CHAR(10)
DECLARE @fecha   DATETIME
DECLARE @a_suma1   FLOAT
DECLARE @a_suma2   FLOAT
DECLARE @a_suma3   FLOAT
DECLARE @a_suma4   FLOAT
DECLARE @a_rec1   FLOAT
DECLARE @a_rec2   FLOAT
DECLARE @a_rec3   FLOAT
DECLARE @a_rec4   FLOAT
DECLARE @a_dto1    FLOAT
DECLARE @a_dto2    FLOAT
DECLARE @a_dto3    FLOAT
DECLARE @a_dto4    FLOAT
DECLARE @a_base1   FLOAT
DECLARE @a_base2   FLOAT
DECLARE @a_base3   FLOAT
DECLARE @a_base4   FLOAT
DECLARE @a_iva1    FLOAT
DECLARE @a_iva2    FLOAT
DECLARE @a_iva3    FLOAT
DECLARE @a_iva4    FLOAT
DECLARE @a_re1    FLOAT
DECLARE @a_re2    FLOAT
DECLARE @a_re3    FLOAT
DECLARE @a_re4    FLOAT

DECLARE @dto_c   FLOAT
DECLARE @dto_p   FLOAT
DECLARE @dto_rec FLOAT
DECLARE @p_reten FLOAT
DECLARE @en_euro BIT
DECLARE @a_total   FLOAT
DECLARE @a_impret FLOAT
DECLARE @suma1   FLOAT
DECLARE @suma2   FLOAT
DECLARE @suma3   FLOAT
DECLARE @suma4   FLOAT
DECLARE @recargo1   FLOAT
DECLARE @recargo2   FLOAT
DECLARE @recargo3   FLOAT
DECLARE @recargo4   FLOAT
DECLARE @dto1    FLOAT
DECLARE @dto2    FLOAT
DECLARE @dto3    FLOAT
DECLARE @dto4    FLOAT
DECLARE @base1   FLOAT
DECLARE @base2   FLOAT
DECLARE @base3   FLOAT
DECLARE @base4   FLOAT
DECLARE @iva1    FLOAT
DECLARE @iva2    FLOAT
DECLARE @iva3    FLOAT
DECLARE @iva4    FLOAT
DECLARE @re1    FLOAT
DECLARE @re2    FLOAT
DECLARE @re3    FLOAT
DECLARE @re4    FLOAT
DECLARE @total   FLOAT
DECLARE @imp_ret FLOAT
DECLARE @divisa  CHAR(10)
DECLARE @cambio  FLOAT
DECLARE @importe FLOAT
DECLARE @codigo  CHAR(10)
DECLARE @tipo    CHAR(1)
DECLARE @tabla   FLOAT
DECLARE @cantidad FLOAT
DECLARE @almacen CHAR(4)
DECLARE @linea INT
DECLARE @RETURNMESSAGE CHAR(200)
/***************************************
*** IMPUTAR LO NUEVO *******************
***************************************/
SELECT @empresa = empresa, @serie = serie, @numero = numero,
        @raiz = raiz, @talla = talla, @color = color,
        @total_l = a_tot_l, @cantidad = cantidad, @almacen = almacen
    FROM INSERTED
SELECT @codigo = cliente, @importe=-total,
     @dto_c=dto_c,@dto_p=dto_p,@dto_rec=dto_rec,@fecha=fecha,
     @a_suma1=a_suma1,@a_suma2=a_suma2,@a_suma3=a_suma3,@a_suma4=a_suma4,
     @a_rec1=a_rec1,@a_rec2=a_rec2,@a_rec3=a_rec3,@a_rec4=a_rec4,
     @p_reten = retencion, @en_euro = en_euro, @cambio=cambio,@divisa=divisa
    FROM compra
    WHERE empresa=@empresa AND serie=@serie
    AND numero=@numero
SELECT @tipoiva = (SELECT tipo_iva FROM articulo
            WHERE empresa = @empresa AND raiz = @raiz AND talla = @talla AND color = @color)
/* ---------------------------- TRAZA ------------------------------------------
SELECT 'TIPO IVA'= @tipoiva,'a_suma1 '=@a_suma1,'SUMA 2'=@a_suma2
 ---------------------------- TRAZA ------------------------------------------*/
IF @tipoiva = 1
    SELECT @a_suma1=@a_suma1+@total_l
IF @tipoiva = 2
    SELECT @a_suma2=@a_suma2+@total_l
IF @tipoiva = 3
    SELECT @a_suma3=@a_suma3+@total_l

IF @tipoiva = 4
    SELECT @a_suma4=@a_suma4+@total_l
EXEC sp_xxx_calcula2 @empresa,@serie, @codigo,@fecha,
    @dto_c,@dto_p,@dto_rec,
    @a_suma1,@a_suma2,@a_suma3,@a_suma4,
    @a_rec1,@a_rec2,@a_rec3,@a_rec4, @p_reten, @divisa,@cambio, @en_euro,
    @a_dto1 OUTPUT,@a_dto2 OUTPUT,@a_dto3 OUTPUT,@a_dto4 OUTPUT,
    @a_base1 OUTPUT,@a_base2 OUTPUT,@a_base3 OUTPUT,@a_base4 OUTPUT,
    @a_iva1 OUTPUT,@a_iva2 OUTPUT,@a_iva3 OUTPUT,@a_iva4 OUTPUT,
    @a_re1 OUTPUT,@a_re2 OUTPUT,@a_re3 OUTPUT,@a_re4 OUTPUT,
    @a_impret OUTPUT, @a_total OUTPUT,
    @suma1   OUTPUT,@suma2     OUTPUT,@suma3    OUTPUT,@suma4    OUTPUT,
    @dto1    OUTPUT,@dto2      OUTPUT,@dto3     OUTPUT,@dto4     OUTPUT,
    @base1   OUTPUT,@base2     OUTPUT,@base3    OUTPUT,@base4    OUTPUT,
    @iva1    OUTPUT,@iva2      OUTPUT,@iva3     OUTPUT,@iva4     OUTPUT,
    @re1     OUTPUT,@re2       OUTPUT,@re3      OUTPUT,@re4      OUTPUT,
    @recargo1 OUTPUT,@recargo2 OUTPUT,@recargo3 OUTPUT,@recargo4 OUTPUT,
    @imp_ret OUTPUT, @total    OUTPUT
UPDATE compra SET a_suma1=@a_suma1,a_suma2=@a_suma2,a_suma3=@a_suma3, a_suma4=@a_suma4,
        a_dto1=@a_dto1,a_dto2=@a_dto2,a_dto3=@a_dto3,a_dto4=@a_dto4,
        a_base1=@a_base1,a_base2=@a_base2,a_base3=@a_base3,a_base4=@a_base4,
        a_iva1=@a_iva1,a_iva2=@a_iva2,a_iva3=@a_iva3,a_iva4=@a_iva4,
        a_re1=@a_re1,a_re2=@a_re2,a_re3=@a_re3,a_re4=@a_re4,
        a_impret = @a_impret, a_total = @a_total ,
        suma1=@suma1,suma2=@suma2,suma3=@suma3, suma4=@suma4,
        recargo1=@recargo1,recargo2=@recargo2,recargo3=@recargo3,recargo4=@recargo4,
        dto1=@dto1,dto2=@dto2,dto3=@dto3,dto4=@dto4,
        base1=@base1,base2=@base2,base3=@base3,base4=@base4,
        iva1=@iva1,iva2=@iva2,iva3=@iva3,iva4=@iva4,
        re1=@re1,re2=@re2,re3=@re3,re4=@re4,
        impret = @imp_ret, total = @total
    WHERE empresa=@empresa AND serie=@serie AND numero=@numero
/*
execute sp_xxx_ponmsg 'antes de poner pedido'
*/
EXECUTE sp_xxx_stockpedi @empresa,@raiz,@talla,@color,@cantidad,@almacen
/*
execute sp_xxx_ponmsg 'despues de poner pedido'
*/










GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO










/****** Object:  Trigger dbo.lineacom_u    Script Date: 23/3/01 12:32:14 ******/
/****** Object:  Trigger dbo.lineacom_u    Script Date: 14/12/00 12:25:11 ******/
CREATE TRIGGER lineacom_u ON dbo.LINEACOM
FOR UPDATE
AS
DECLARE @empresa     CHAR(4)
DECLARE @serie         CHAR(2)
DECLARE @numero     FLOAT
DECLARE @raiz         CHAR(16)
DECLARE @talla         CHAR(2)
DECLARE @color         CHAR(2)
DECLARE @total_l     FLOAT
DECLARE @tipoiva    INT
DECLARE @cliente        CHAR(10)
DECLARE @fecha   DATETIME
DECLARE @a_suma1   FLOAT
DECLARE @a_suma2   FLOAT
DECLARE @a_suma3   FLOAT
DECLARE @a_suma4   FLOAT
DECLARE @a_rec1   FLOAT
DECLARE @a_rec2   FLOAT
DECLARE @a_rec3   FLOAT
DECLARE @a_rec4   FLOAT
DECLARE @a_dto1    FLOAT
DECLARE @a_dto2    FLOAT
DECLARE @a_dto3    FLOAT
DECLARE @a_dto4    FLOAT
DECLARE @a_base1   FLOAT
DECLARE @a_base2   FLOAT
DECLARE @a_base3   FLOAT
DECLARE @a_base4   FLOAT
DECLARE @a_iva1    FLOAT
DECLARE @a_iva2    FLOAT
DECLARE @a_iva3    FLOAT
DECLARE @a_iva4    FLOAT
DECLARE @a_re1    FLOAT
DECLARE @a_re2    FLOAT
DECLARE @a_re3    FLOAT
DECLARE @a_re4    FLOAT

DECLARE @dto_c   FLOAT
DECLARE @dto_p   FLOAT
DECLARE @dto_rec FLOAT
DECLARE @p_reten FLOAT
DECLARE @en_euro BIT
DECLARE @a_total   FLOAT
DECLARE @a_impret FLOAT
DECLARE @suma1   FLOAT
DECLARE @suma2   FLOAT
DECLARE @suma3   FLOAT
DECLARE @suma4   FLOAT
DECLARE @recargo1   FLOAT
DECLARE @recargo2   FLOAT
DECLARE @recargo3   FLOAT
DECLARE @recargo4   FLOAT
DECLARE @dto1    FLOAT
DECLARE @dto2    FLOAT
DECLARE @dto3    FLOAT
DECLARE @dto4    FLOAT
DECLARE @base1   FLOAT
DECLARE @base2   FLOAT
DECLARE @base3   FLOAT
DECLARE @base4   FLOAT
DECLARE @iva1    FLOAT
DECLARE @iva2    FLOAT
DECLARE @iva3    FLOAT
DECLARE @iva4    FLOAT
DECLARE @re1    FLOAT
DECLARE @re2    FLOAT
DECLARE @re3    FLOAT
DECLARE @re4    FLOAT
DECLARE @total   FLOAT
DECLARE @imp_ret FLOAT
DECLARE @divisa  CHAR(10)
DECLARE @cambio  FLOAT
DECLARE @importe FLOAT
DECLARE @codigo  CHAR(10)
DECLARE @tipo    CHAR(1)
DECLARE @tabla   FLOAT
DECLARE @cantidad FLOAT
DECLARE @almacen CHAR(4)
DECLARE @linea INT
DECLARE @RETURNMESSAGE CHAR(200)
/***************************************
***************************************/
SELECT @empresa = empresa, @serie = serie, @numero = numero,
        @raiz = raiz, @talla = talla, @color = color,
        @total_l = -a_tot_l, @cantidad = -cantidad, @almacen = almacen
    FROM DELETED
SELECT @codigo = cliente, @importe=-total,
     @dto_c=dto_c,@dto_p=dto_p,@dto_rec=dto_rec,@fecha=fecha,
     @a_suma1=a_suma1,@a_suma2=a_suma2,@a_suma3=a_suma3,@a_suma4=a_suma4,
     @a_rec1=a_rec1,@a_rec2=a_rec2,@a_rec3=a_rec3,@a_rec4=a_rec4,
     @p_reten = retencion, @en_euro = en_euro, @cambio=cambio,@divisa=divisa
    FROM compra
    WHERE empresa=@empresa AND serie=@serie AND numero=@numero
SELECT @tipoiva = (SELECT tipo_iva FROM articulo
            WHERE empresa = @empresa AND raiz = @raiz AND talla = @talla AND color = @color)
IF @tipoiva = 1
    SELECT @a_suma1=@a_suma1+@total_l
IF @tipoiva = 2
    SELECT @a_suma2=@a_suma2+@total_l
IF @tipoiva = 3
    SELECT @a_suma3=@a_suma3+@total_l
IF @tipoiva = 4
    SELECT @a_suma4=@a_suma4+@total_l
EXECUTE sp_xxx_stockpedi @empresa,@raiz,@talla,@color,@cantidad,@almacen
/***************************************
***************************************/
SELECT @empresa = empresa, @serie = serie, @numero = numero,
        @raiz = raiz, @talla = talla, @color = color,
        @total_l = a_tot_l, @cantidad = cantidad, @almacen = almacen
    FROM INSERTED
SELECT @tipoiva = (SELECT tipo_iva FROM articulo
            WHERE empresa = @empresa AND raiz = @raiz AND talla = @talla AND color = @color)
IF @tipoiva = 1
    SELECT @a_suma1=@a_suma1+@total_l
IF @tipoiva = 2
    SELECT @a_suma2=@a_suma2+@total_l
IF @tipoiva = 3
    SELECT @a_suma3=@a_suma3+@total_l
IF @tipoiva = 4
    SELECT @a_suma4=@a_suma4+@total_l
EXEC sp_xxx_calcula2 @empresa,@serie, @codigo,@fecha,
    @dto_c,@dto_p,@dto_rec,
    @a_suma1,@a_suma2,@a_suma3,@a_suma4,

    @a_rec1,@a_rec2,@a_rec3,@a_rec4, @p_reten, @divisa,@cambio, @en_euro,
    @a_dto1 OUTPUT,@a_dto2 OUTPUT,@a_dto3 OUTPUT,@a_dto4 OUTPUT,
    @a_base1 OUTPUT,@a_base2 OUTPUT,@a_base3 OUTPUT,@a_base4 OUTPUT,
    @a_iva1 OUTPUT,@a_iva2 OUTPUT,@a_iva3 OUTPUT,@a_iva4 OUTPUT,
    @a_re1 OUTPUT,@a_re2 OUTPUT,@a_re3 OUTPUT,@a_re4 OUTPUT,
    @a_impret OUTPUT, @a_total OUTPUT,
    @suma1   OUTPUT,@suma2     OUTPUT,@suma3    OUTPUT,@suma4    OUTPUT,
    @dto1    OUTPUT,@dto2      OUTPUT,@dto3     OUTPUT,@dto4     OUTPUT,
    @base1   OUTPUT,@base2     OUTPUT,@base3    OUTPUT,@base4    OUTPUT,
    @iva1    OUTPUT,@iva2      OUTPUT,@iva3     OUTPUT,@iva4     OUTPUT,
    @re1     OUTPUT,@re2       OUTPUT,@re3      OUTPUT,@re4      OUTPUT,
    @recargo1 OUTPUT,@recargo2 OUTPUT,@recargo3 OUTPUT,@recargo4 OUTPUT,
    @imp_ret OUTPUT, @total    OUTPUT
/*********************************************************************************
update xxxmsg set mensajec = '¨paso por lineacom ..................' where sp_id = 23
*******************************************************************************/
UPDATE compra SET a_suma1=@a_suma1,a_suma2=@a_suma2,a_suma3=@a_suma3, a_suma4=@a_suma4,
        a_dto1=@a_dto1,a_dto2=@a_dto2,a_dto3=@a_dto3,a_dto4=@a_dto4,
        a_base1=@a_base1,a_base2=@a_base2,a_base3=@a_base3,a_base4=@a_base4,
        a_iva1=@a_iva1,a_iva2=@a_iva2,a_iva3=@a_iva3,a_iva4=@a_iva4,
        a_re1=@a_re1,a_re2=@a_re2,a_re3=@a_re3,a_re4=@a_re4,
        a_impret = @a_impret, a_total = @a_total ,
        suma1=@suma1,suma2=@suma2,suma3=@suma3, suma4=@suma4,
        recargo1=@recargo1,recargo2=@recargo2,recargo3=@recargo3,recargo4=@recargo4,
        dto1=@dto1,dto2=@dto2,dto3=@dto3,dto4=@dto4,
        base1=@base1,base2=@base2,base3=@base3,base4=@base4,
        iva1=@iva1,iva2=@iva2,iva3=@iva3,iva4=@iva4,
        re1=@re1,re2=@re2,re3=@re3,re4=@re4,
        impret = @imp_ret, total = @total
    WHERE empresa=@empresa AND serie=@serie AND numero=@numero
/*
execute sp_xxx_ponmsg 'antes de poner pedido'
*/
EXECUTE sp_xxx_stockpedi @empresa,@raiz,@talla,@color,@cantidad,@almacen
/*
execute sp_xxx_ponmsg 'despues de poner pedido'
*/










GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO










/****** Object:  Trigger dbo.lineaent_d    Script Date: 23/3/01 12:32:17 ******/
/****** Object:  Trigger dbo.lineaent_d    Script Date: 14/12/00 12:25:13 ******/
CREATE TRIGGER lineaent_d ON dbo.LINEAENT
FOR DELETE
AS
DECLARE @empresa     CHAR(4)
DECLARE @serie         CHAR(2)
DECLARE @numero     FLOAT
DECLARE @raiz         CHAR(16)
DECLARE @talla         CHAR(2)
DECLARE @color         CHAR(2)
DECLARE @total_l     FLOAT
DECLARE @tipoiva    INT
DECLARE @cliente        CHAR(10)
DECLARE @precio         FLOAT
DECLARE @ajustado       FLOAT
DECLARE @fecha   DATETIME
DECLARE @a_suma1   FLOAT
DECLARE @a_suma2   FLOAT
DECLARE @a_suma3   FLOAT
DECLARE @a_suma4   FLOAT
DECLARE @a_rec1   FLOAT
DECLARE @a_rec2   FLOAT
DECLARE @a_rec3   FLOAT
DECLARE @a_rec4   FLOAT
DECLARE @a_dto1    FLOAT
DECLARE @a_dto2    FLOAT
DECLARE @a_dto3    FLOAT
DECLARE @a_dto4    FLOAT
DECLARE @a_base1   FLOAT
DECLARE @a_base2   FLOAT
DECLARE @a_base3   FLOAT
DECLARE @a_base4   FLOAT
DECLARE @a_iva1    FLOAT
DECLARE @a_iva2    FLOAT
DECLARE @a_iva3    FLOAT
DECLARE @a_iva4    FLOAT
DECLARE @a_re1    FLOAT
DECLARE @a_re2    FLOAT
DECLARE @a_re3    FLOAT
DECLARE @a_re4    FLOAT
DECLARE @dto_c   FLOAT
DECLARE @dto_p   FLOAT
DECLARE @dto_rec FLOAT
DECLARE @p_reten FLOAT
DECLARE @en_euro BIT
DECLARE @a_total   FLOAT
DECLARE @a_impret FLOAT
DECLARE @suma1   FLOAT

DECLARE @suma2   FLOAT
DECLARE @suma3   FLOAT
DECLARE @suma4   FLOAT
DECLARE @recargo1   FLOAT
DECLARE @recargo2   FLOAT
DECLARE @recargo3   FLOAT
DECLARE @recargo4   FLOAT
DECLARE @dto1    FLOAT
DECLARE @dto2    FLOAT
DECLARE @dto3    FLOAT
DECLARE @dto4    FLOAT
DECLARE @base1   FLOAT
DECLARE @base2   FLOAT
DECLARE @base3   FLOAT
DECLARE @base4   FLOAT
DECLARE @iva1    FLOAT
DECLARE @iva2    FLOAT
DECLARE @iva3    FLOAT
DECLARE @iva4    FLOAT
DECLARE @re1    FLOAT
DECLARE @re2    FLOAT
DECLARE @re3    FLOAT
DECLARE @re4    FLOAT
DECLARE @total   FLOAT
DECLARE @imp_ret FLOAT
DECLARE @divisa  CHAR(10)
DECLARE @cambio  FLOAT
DECLARE @importe FLOAT
DECLARE @codigo  CHAR(10)
DECLARE @tipo    CHAR(1)
DECLARE @tabla   FLOAT
DECLARE @cantidad FLOAT
DECLARE @almacen CHAR(4)
DECLARE @linea INT
DECLARE @lineaped  FLOAT
DECLARE @albaran   FLOAT
DECLARE @pedido    FLOAT
DECLARE @RETURNMESSAGE CHAR(200)
DECLARE @uc        FLOAT
DECLARE @xtotal    FLOAT
DECLARE @up        FLOAT
DECLARE @uar       CHAR(16)
DECLARE @uat       CHAR(2)
DECLARE @uac       CHAR(2)
DECLARE @ua        CHAR(4)
DECLARE @mensaje   CHAR(255)
/***************************************
*** IMPUTAR LO NUEVO *******************
***************************************/
SELECT @empresa = empresa, @serie = serie, @numero = numero,
        @raiz = raiz, @talla = talla, @color = color,
        @total_l = a_tot_l, @cantidad = -cantidad, @almacen = almacen,
        @precio=precio,@lineaped=lineaped,
        @uar=uar,@uat=uat,@uac=uac,@ua=ua,
        @uc=uc,@up=up
    FROM DELETED
SELECT @codigo = cliente, @importe=-total,
     @dto_c=dto_c,@dto_p=dto_p,@dto_rec=dto_rec,@fecha=fecha,
     @a_suma1=a_suma1,@a_suma2=a_suma2,@a_suma3=a_suma3,@a_suma4=a_suma4,
     @a_rec1=a_rec1,@a_rec2=a_rec2,@a_rec3=a_rec3,@a_rec4=a_rec4,
     @p_reten = retencion, @en_euro = en_euro, @cambio=cambio,@divisa=divisa,
     @albaran= albaran,@pedido=pedido
    FROM entrada
    WHERE empresa=@empresa AND serie=@serie AND numero=@numero
SELECT @tipoiva = (SELECT tipo_iva FROM articulo
            WHERE empresa = @empresa AND raiz = @raiz AND talla = @talla AND color = @color)
IF @tipoiva = 1
    SELECT @a_suma1=@a_suma1-@total_l
IF @tipoiva = 2
    SELECT @a_suma2=@a_suma2-@total_l
IF @tipoiva = 3
    SELECT @a_suma3=@a_suma3-@total_l
IF @tipoiva = 4
    SELECT @a_suma4=@a_suma4-@total_l
EXEC sp_xxx_calcula2 @empresa,@serie, @codigo,@fecha,
    @dto_c,@dto_p,@dto_rec,
    @a_suma1,@a_suma2,@a_suma3,@a_suma4,
    @a_rec1,@a_rec2,@a_rec3,@a_rec4, @p_reten, @divisa,@cambio, @en_euro,
    @a_dto1 OUTPUT,@a_dto2 OUTPUT,@a_dto3 OUTPUT,@a_dto4 OUTPUT,
    @a_base1 OUTPUT,@a_base2 OUTPUT,@a_base3 OUTPUT,@a_base4 OUTPUT,
    @a_iva1 OUTPUT,@a_iva2 OUTPUT,@a_iva3 OUTPUT,@a_iva4 OUTPUT,
    @a_re1 OUTPUT,@a_re2 OUTPUT,@a_re3 OUTPUT,@a_re4 OUTPUT,
    @a_impret OUTPUT, @a_total OUTPUT,
    @suma1   OUTPUT,@suma2     OUTPUT,@suma3    OUTPUT,@suma4    OUTPUT,
    @dto1    OUTPUT,@dto2      OUTPUT,@dto3     OUTPUT,@dto4     OUTPUT,
    @base1   OUTPUT,@base2     OUTPUT,@base3    OUTPUT,@base4    OUTPUT,
    @iva1    OUTPUT,@iva2      OUTPUT,@iva3     OUTPUT,@iva4     OUTPUT,
    @re1     OUTPUT,@re2       OUTPUT,@re3      OUTPUT,@re4      OUTPUT,
    @recargo1 OUTPUT,@recargo2 OUTPUT,@recargo3 OUTPUT,@recargo4 OUTPUT,
    @imp_ret OUTPUT, @total    OUTPUT
UPDATE entrada  SET a_suma1=@a_suma1,a_suma2=@a_suma2,a_suma3=@a_suma3, a_suma4=@a_suma4,
        a_dto1=@a_dto1,a_dto2=@a_dto2,a_dto3=@a_dto3,a_dto4=@a_dto4,
        a_base1=@a_base1,a_base2=@a_base2,a_base3=@a_base3,a_base4=@a_base4,
        a_iva1=@a_iva1,a_iva2=@a_iva2,a_iva3=@a_iva3,a_iva4=@a_iva4,
        a_re1=@a_re1,a_re2=@a_re2,a_re3=@a_re3,a_re4=@a_re4,
        a_impret = @a_impret, a_total = @a_total ,
        suma1=@suma1,suma2=@suma2,suma3=@suma3, suma4=@suma4,
        recargo1=@recargo1,recargo2=@recargo2,recargo3=@recargo3,recargo4=@recargo4,
        dto1=@dto1,dto2=@dto2,dto3=@dto3,dto4=@dto4,
        base1=@base1,base2=@base2,base3=@base3,base4=@base4,
        iva1=@iva1,iva2=@iva2,iva3=@iva3,iva4=@iva4,
        re1=@re1,re2=@re2,re3=@re3,re4=@re4,
        impret = @imp_ret, total = @total
    WHERE empresa=@empresa AND serie=@serie AND numero=@numero
SELECT @importe=@importe+@total
EXECUTE sp_riesgo_pro @empresa,@codigo,'F',@importe,@en_euro
IF @albaran=0
    BEGIN
    IF @pedido<>0
        EXECUTE sp_linea_ped_pro @empresa,@serie,@pedido,@lineaped,@cantidad
    SELECT @uc=-@uc
    SELECT @xtotal=@uc*@up
    SELECT @mensaje='a1 '+convert(char(10),@up)
    EXECUTE SP_XXX_PONMSG @mensaje
    EXECUTE sp_xxx_entra_stock @uar,@uat,@uac,@ua,
        @empresa,@uc,@xtotal,@en_euro,
        0,'',@up
    END










GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO










/****** Object:  Trigger dbo.lineaent_i    Script Date: 23/3/01 12:32:17 ******/
/****** Object:  Trigger dbo.lineaent_i    Script Date: 14/12/00 12:25:13 ******/
CREATE TRIGGER lineaent_i ON dbo.LINEAENT
FOR INSERT
AS
DECLARE @empresa     CHAR(4)
DECLARE @serie         CHAR(2)
DECLARE @numero     FLOAT
DECLARE @raiz         CHAR(16)
DECLARE @talla         CHAR(2)
DECLARE @color         CHAR(2)
DECLARE @total_l     FLOAT
DECLARE @tipoiva    INT
DECLARE @cliente        CHAR(10)
DECLARE @precio         FLOAT
DECLARE @ajustado       FLOAT
DECLARE @fecha   DATETIME
DECLARE @a_suma1   FLOAT
DECLARE @a_suma2   FLOAT
DECLARE @a_suma3   FLOAT
DECLARE @a_suma4   FLOAT
DECLARE @a_rec1   FLOAT
DECLARE @a_rec2   FLOAT
DECLARE @a_rec3   FLOAT
DECLARE @a_rec4   FLOAT
DECLARE @a_dto1    FLOAT
DECLARE @a_dto2    FLOAT
DECLARE @a_dto3    FLOAT
DECLARE @a_dto4    FLOAT
DECLARE @a_base1   FLOAT
DECLARE @a_base2   FLOAT
DECLARE @a_base3   FLOAT
DECLARE @a_base4   FLOAT
DECLARE @a_iva1    FLOAT
DECLARE @a_iva2    FLOAT
DECLARE @a_iva3    FLOAT
DECLARE @a_iva4    FLOAT
DECLARE @a_re1    FLOAT
DECLARE @a_re2    FLOAT
DECLARE @a_re3    FLOAT
DECLARE @a_re4    FLOAT
DECLARE @dto_c   FLOAT
DECLARE @dto_p   FLOAT
DECLARE @dto_rec FLOAT
DECLARE @p_reten FLOAT
DECLARE @en_euro BIT
DECLARE @a_total   FLOAT
DECLARE @a_impret FLOAT
DECLARE @suma1   FLOAT

DECLARE @suma2   FLOAT
DECLARE @suma3   FLOAT
DECLARE @suma4   FLOAT
DECLARE @recargo1   FLOAT
DECLARE @recargo2   FLOAT
DECLARE @recargo3   FLOAT
DECLARE @recargo4   FLOAT
DECLARE @dto1    FLOAT
DECLARE @dto2    FLOAT
DECLARE @dto3    FLOAT
DECLARE @dto4    FLOAT
DECLARE @base1   FLOAT
DECLARE @base2   FLOAT
DECLARE @base3   FLOAT
DECLARE @base4   FLOAT
DECLARE @iva1    FLOAT
DECLARE @iva2    FLOAT
DECLARE @iva3    FLOAT
DECLARE @iva4    FLOAT
DECLARE @re1    FLOAT
DECLARE @re2    FLOAT
DECLARE @re3    FLOAT
DECLARE @re4    FLOAT
DECLARE @total   FLOAT
DECLARE @imp_ret FLOAT
DECLARE @divisa  CHAR(10)
DECLARE @cambio  FLOAT
DECLARE @importe FLOAT
DECLARE @codigo  CHAR(10)
DECLARE @tipo    CHAR(1)
DECLARE @tabla   FLOAT
DECLARE @cantidad FLOAT
DECLARE @almacen CHAR(4)
DECLARE @linea INT
DECLARE @lineaped  FLOAT
DECLARE @albaran   FLOAT
DECLARE @pedido    FLOAT
DECLARE @RETURNMESSAGE CHAR(200)
/***************************************
*** IMPUTAR LO NUEVO *******************
***************************************/
SELECT @empresa = empresa, @serie = serie, @numero = numero,
        @raiz = raiz, @talla = talla, @color = color,
        @total_l = a_tot_l, @cantidad = cantidad, @almacen = almacen,
        @precio=precio,@lineaped=lineaped
    FROM INSERTED
SELECT @codigo = cliente, @importe=-total,
     @dto_c=dto_c,@dto_p=dto_p,@dto_rec=dto_rec,@fecha=fecha,
     @a_suma1=a_suma1,@a_suma2=a_suma2,@a_suma3=a_suma3,@a_suma4=a_suma4,
     @a_rec1=a_rec1,@a_rec2=a_rec2,@a_rec3=a_rec3,@a_rec4=a_rec4,
     @p_reten = retencion, @en_euro = en_euro, @cambio=cambio,@divisa=divisa,
     @albaran = albaran,@pedido=pedido
    FROM entrada
    WHERE empresa=@empresa AND serie=@serie AND numero=@numero
SELECT @tipoiva = (SELECT tipo_iva FROM articulo
            WHERE empresa = @empresa AND raiz = @raiz AND talla = @talla AND color = @color)
/* ---------------------------- TRAZA ------------------------------------------
SELECT 'TIPO IVA'= @tipoiva,'a_suma1 '=@a_suma1,'SUMA 2'=@a_suma2
 ---------------------------- TRAZA ------------------------------------------*/
IF @tipoiva = 1
    SELECT @a_suma1=@a_suma1+@total_l
IF @tipoiva = 2
    SELECT @a_suma2=@a_suma2+@total_l
IF @tipoiva = 3
    SELECT @a_suma3=@a_suma3+@total_l
IF @tipoiva = 4
    SELECT @a_suma4=@a_suma4+@total_l
EXEC sp_xxx_calcula2 @empresa,@serie, @codigo,@fecha,
    @dto_c,@dto_p,@dto_rec,
    @a_suma1,@a_suma2,@a_suma3,@a_suma4,
    @a_rec1,@a_rec2,@a_rec3,@a_rec4, @p_reten, @divisa,@cambio, @en_euro,
    @a_dto1 OUTPUT,@a_dto2 OUTPUT,@a_dto3 OUTPUT,@a_dto4 OUTPUT,
    @a_base1 OUTPUT,@a_base2 OUTPUT,@a_base3 OUTPUT,@a_base4 OUTPUT,
    @a_iva1 OUTPUT,@a_iva2 OUTPUT,@a_iva3 OUTPUT,@a_iva4 OUTPUT,
    @a_re1 OUTPUT,@a_re2 OUTPUT,@a_re3 OUTPUT,@a_re4 OUTPUT,
    @a_impret OUTPUT, @a_total OUTPUT,
    @suma1   OUTPUT,@suma2     OUTPUT,@suma3    OUTPUT,@suma4    OUTPUT,
    @dto1    OUTPUT,@dto2      OUTPUT,@dto3     OUTPUT,@dto4     OUTPUT,
    @base1   OUTPUT,@base2     OUTPUT,@base3    OUTPUT,@base4    OUTPUT,
    @iva1    OUTPUT,@iva2      OUTPUT,@iva3     OUTPUT,@iva4     OUTPUT,
    @re1     OUTPUT,@re2       OUTPUT,@re3      OUTPUT,@re4      OUTPUT,
    @recargo1 OUTPUT,@recargo2 OUTPUT,@recargo3 OUTPUT,@recargo4 OUTPUT,
    @imp_ret OUTPUT, @total    OUTPUT
UPDATE entrada  SET a_suma1=@a_suma1,a_suma2=@a_suma2,a_suma3=@a_suma3, a_suma4=@a_suma4,
        a_dto1=@a_dto1,a_dto2=@a_dto2,a_dto3=@a_dto3,a_dto4=@a_dto4,
        a_base1=@a_base1,a_base2=@a_base2,a_base3=@a_base3,a_base4=@a_base4,
        a_iva1=@a_iva1,a_iva2=@a_iva2,a_iva3=@a_iva3,a_iva4=@a_iva4,
        a_re1=@a_re1,a_re2=@a_re2,a_re3=@a_re3,a_re4=@a_re4,
        a_impret = @a_impret, a_total = @a_total ,
        suma1=@suma1,suma2=@suma2,suma3=@suma3, suma4=@suma4,
        recargo1=@recargo1,recargo2=@recargo2,recargo3=@recargo3,recargo4=@recargo4,
        dto1=@dto1,dto2=@dto2,dto3=@dto3,dto4=@dto4,
        base1=@base1,base2=@base2,base3=@base3,base4=@base4,
        iva1=@iva1,iva2=@iva2,iva3=@iva3,iva4=@iva4,
        re1=@re1,re2=@re2,re3=@re3,re4=@re4,
        impret = @imp_ret, total = @total
    WHERE empresa=@empresa AND serie=@serie AND numero=@numero
SELECT @importe = @importe+@total
EXECUTE sp_riesgo_pro @empresa,@codigo,'F',@importe,@en_euro
IF @albaran=0
    IF @pedido<>0
        EXECUTE sp_linea_ped_pro @empresa,@serie,@pedido,@lineaped,@cantidad










GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO










/****** Object:  Trigger dbo.lineaent_u    Script Date: 23/3/01 12:32:17 ******/
/****** Object:  Trigger dbo.lineaent_u    Script Date: 14/12/00 12:25:13 ******/
CREATE TRIGGER lineaent_u ON dbo.LINEAENT
FOR UPDATE
AS
DECLARE @empresa     CHAR(4)
DECLARE @serie         CHAR(2)
DECLARE @numero     FLOAT
DECLARE @raiz         CHAR(16)
DECLARE @talla         CHAR(2)
DECLARE @color         CHAR(2)
DECLARE @total_l     FLOAT
DECLARE @tipoiva    INT
DECLARE @cliente        CHAR(10)
DECLARE @precio         FLOAT
DECLARE @ajustado       FLOAT
DECLARE @fecha   DATETIME
DECLARE @a_suma1   FLOAT
DECLARE @a_suma2   FLOAT
DECLARE @a_suma3   FLOAT
DECLARE @a_suma4   FLOAT
DECLARE @a_rec1   FLOAT
DECLARE @a_rec2   FLOAT
DECLARE @a_rec3   FLOAT
DECLARE @a_rec4   FLOAT
DECLARE @a_dto1    FLOAT
DECLARE @a_dto2    FLOAT
DECLARE @a_dto3    FLOAT
DECLARE @a_dto4    FLOAT
DECLARE @a_base1   FLOAT
DECLARE @a_base2   FLOAT
DECLARE @a_base3   FLOAT
DECLARE @a_base4   FLOAT
DECLARE @a_iva1    FLOAT
DECLARE @a_iva2    FLOAT
DECLARE @a_iva3    FLOAT
DECLARE @a_iva4    FLOAT
DECLARE @a_re1    FLOAT
DECLARE @a_re2    FLOAT
DECLARE @a_re3    FLOAT
DECLARE @a_re4    FLOAT
DECLARE @dto_c   FLOAT
DECLARE @dto_p   FLOAT
DECLARE @dto_rec FLOAT
DECLARE @p_reten FLOAT
DECLARE @en_euro BIT
DECLARE @a_total   FLOAT
DECLARE @a_impret FLOAT
DECLARE @suma1   FLOAT

DECLARE @suma2   FLOAT
DECLARE @suma3   FLOAT
DECLARE @suma4   FLOAT
DECLARE @recargo1   FLOAT
DECLARE @recargo2   FLOAT
DECLARE @recargo3   FLOAT
DECLARE @recargo4   FLOAT
DECLARE @dto1    FLOAT
DECLARE @dto2    FLOAT
DECLARE @dto3    FLOAT
DECLARE @dto4    FLOAT
DECLARE @base1   FLOAT
DECLARE @base2   FLOAT
DECLARE @base3   FLOAT
DECLARE @base4   FLOAT
DECLARE @iva1    FLOAT
DECLARE @iva2    FLOAT
DECLARE @iva3    FLOAT
DECLARE @iva4    FLOAT
DECLARE @re1    FLOAT
DECLARE @re2    FLOAT
DECLARE @re3    FLOAT
DECLARE @re4    FLOAT
DECLARE @total   FLOAT
DECLARE @imp_ret FLOAT
DECLARE @divisa  CHAR(10)
DECLARE @cambio  FLOAT
DECLARE @importe FLOAT
DECLARE @codigo  CHAR(10)
DECLARE @tipo    CHAR(1)
DECLARE @tabla   FLOAT
DECLARE @cantidad FLOAT
DECLARE @almacen CHAR(4)
DECLARE @linea INT
DECLARE @lineaped  FLOAT
DECLARE @albaran   FLOAT
DECLARE @pedido    FLOAT
DECLARE @RETURNMESSAGE CHAR(200)
/***************************************
***************************************/
SELECT @empresa = empresa, @serie = serie, @numero = numero,
        @raiz = raiz, @talla = talla, @color = color,
        @total_l = a_tot_l, @cantidad = -cantidad, @almacen = almacen,
        @precio=precio,@lineaped=lineaped
    FROM DELETED
SELECT @codigo = cliente, @importe=-total,
     @dto_c=dto_c,@dto_p=dto_p,@dto_rec=dto_rec,@fecha=fecha,
     @a_suma1=a_suma1,@a_suma2=a_suma2,@a_suma3=a_suma3,@a_suma4=a_suma4,
     @a_rec1=a_rec1,@a_rec2=a_rec2,@a_rec3=a_rec3,@a_rec4=a_rec4,
     @p_reten = retencion, @en_euro = en_euro, @cambio=cambio,@divisa=divisa,
     @albaran = albaran,@pedido=pedido
    FROM entrada
    WHERE empresa=@empresa AND serie=@serie AND numero=@numero
EXECUTE sp_riesgo_pro @empresa,@codigo,'F',@importe,@en_euro
IF @albaran=0
    IF @pedido<>0
        EXECUTE sp_linea_ped_pro @empresa,@serie,@pedido,@lineaped,@cantidad
SELECT @tipoiva = (SELECT tipo_iva FROM articulo
            WHERE empresa = @empresa AND raiz = @raiz AND talla = @talla AND color = @color)
IF @tipoiva = 1
    SELECT @a_suma1=@a_suma1-@total_l

IF @tipoiva = 2
    SELECT @a_suma2=@a_suma2-@total_l
IF @tipoiva = 3
    SELECT @a_suma3=@a_suma3-@total_l
IF @tipoiva = 4
    SELECT @a_suma4=@a_suma4-@total_l
/***************************************
***************************************/
SELECT @empresa = empresa, @serie = serie, @numero = numero,
        @raiz = raiz, @talla = talla, @color = color,
        @total_l = a_tot_l, @cantidad = cantidad, @almacen = almacen,
        @precio=precio,@lineaped=lineaped
    FROM INSERTED
SELECT @tipoiva = (SELECT tipo_iva FROM articulo
            WHERE empresa = @empresa AND raiz = @raiz AND talla = @talla AND color = @color)
IF @tipoiva = 1
    SELECT @a_suma1=@a_suma1+@total_l
IF @tipoiva = 2
    SELECT @a_suma2=@a_suma2+@total_l
IF @tipoiva = 3
    SELECT @a_suma3=@a_suma3+@total_l
IF @tipoiva = 4
    SELECT @a_suma4=@a_suma4+@total_l
EXEC sp_xxx_calcula2 @empresa,@serie,@codigo, @fecha,
    @dto_c,@dto_p,@dto_rec,
    @a_suma1,@a_suma2,@a_suma3,@a_suma4,
    @a_rec1,@a_rec2,@a_rec3,@a_rec4, @p_reten, @divisa,@cambio, @en_euro,
    @a_dto1 OUTPUT,@a_dto2 OUTPUT,@a_dto3 OUTPUT,@a_dto4 OUTPUT,
    @a_base1 OUTPUT,@a_base2 OUTPUT,@a_base3 OUTPUT,@a_base4 OUTPUT,
    @a_iva1 OUTPUT,@a_iva2 OUTPUT,@a_iva3 OUTPUT,@a_iva4 OUTPUT,
    @a_re1 OUTPUT,@a_re2 OUTPUT,@a_re3 OUTPUT,@a_re4 OUTPUT,
    @a_impret OUTPUT, @a_total OUTPUT,
    @suma1   OUTPUT,@suma2     OUTPUT,@suma3    OUTPUT,@suma4    OUTPUT,
    @dto1    OUTPUT,@dto2      OUTPUT,@dto3     OUTPUT,@dto4     OUTPUT,
    @base1   OUTPUT,@base2     OUTPUT,@base3    OUTPUT,@base4    OUTPUT,
    @iva1    OUTPUT,@iva2      OUTPUT,@iva3     OUTPUT,@iva4     OUTPUT,
    @re1     OUTPUT,@re2       OUTPUT,@re3      OUTPUT,@re4      OUTPUT,
    @recargo1 OUTPUT,@recargo2 OUTPUT,@recargo3 OUTPUT,@recargo4 OUTPUT,
    @imp_ret OUTPUT, @total    OUTPUT
UPDATE entrada  SET a_suma1=@a_suma1,a_suma2=@a_suma2,a_suma3=@a_suma3, a_suma4=@a_suma4,
        a_dto1=@a_dto1,a_dto2=@a_dto2,a_dto3=@a_dto3,a_dto4=@a_dto4,
        a_base1=@a_base1,a_base2=@a_base2,a_base3=@a_base3,a_base4=@a_base4,
        a_iva1=@a_iva1,a_iva2=@a_iva2,a_iva3=@a_iva3,a_iva4=@a_iva4,
        a_re1=@a_re1,a_re2=@a_re2,a_re3=@a_re3,a_re4=@a_re4,
        a_impret = @a_impret, a_total = @a_total ,
        suma1=@suma1,suma2=@suma2,suma3=@suma3, suma4=@suma4,
        recargo1=@recargo1,recargo2=@recargo2,recargo3=@recargo3,recargo4=@recargo4,

        dto1=@dto1,dto2=@dto2,dto3=@dto3,dto4=@dto4,
        base1=@base1,base2=@base2,base3=@base3,base4=@base4,
        iva1=@iva1,iva2=@iva2,iva3=@iva3,iva4=@iva4,
        re1=@re1,re2=@re2,re3=@re3,re4=@re4,
        impret = @imp_ret, total = @total
    WHERE empresa=@empresa AND serie=@serie AND numero=@numero
EXECUTE sp_riesgo_pro @empresa,@codigo,'F',@total,@en_euro
IF @albaran=0
    IF @pedido<>0
        EXECUTE sp_linea_ped_pro @empresa,@serie,@pedido,@lineaped,@cantidad










GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO










/****** Object:  Trigger dbo.lineafac_d    Script Date: 23/3/01 12:32:18 ******/
CREATE TRIGGER lineafac_d ON dbo.LINEAFAC
FOR DELETE
AS
DECLARE @empresa     CHAR(4)
DECLARE @serie         CHAR(2)
DECLARE @numero     FLOAT
DECLARE @raiz         CHAR(16)
DECLARE @talla         CHAR(2)
DECLARE @color         CHAR(2)
DECLARE @total_l     FLOAT
DECLARE @tipoiva    INT
DECLARE @cliente        CHAR(10)
DECLARE @fecha   DATETIME
DECLARE @suma1   FLOAT
DECLARE @suma2   FLOAT
DECLARE @suma3   FLOAT
DECLARE @suma4   FLOAT
DECLARE @recargo1   FLOAT
DECLARE @recargo2   FLOAT
DECLARE @recargo3   FLOAT
DECLARE @recargo4   FLOAT
DECLARE @dto1    FLOAT
DECLARE @dto2    FLOAT
DECLARE @dto3    FLOAT
DECLARE @dto4    FLOAT
DECLARE @base1   FLOAT
DECLARE @base2   FLOAT
DECLARE @base3   FLOAT
DECLARE @base4   FLOAT
DECLARE @iva1    FLOAT
DECLARE @iva2    FLOAT
DECLARE @iva3    FLOAT
DECLARE @iva4    FLOAT
DECLARE @re1    FLOAT
DECLARE @re2    FLOAT
DECLARE @re3    FLOAT
DECLARE @re4    FLOAT
DECLARE @dto_c   FLOAT
DECLARE @dto_p   FLOAT
DECLARE @dto_rec FLOAT
DECLARE @p_reten FLOAT
DECLARE @rec_fin FLOAT
DECLARE @en_euro BIT
DECLARE @total   FLOAT
DECLARE @imp_ret FLOAT
DECLARE @importe FLOAT
DECLARE @codigo  CHAR(10)
DECLARE @tipo    CHAR(1)
DECLARE @tabla   FLOAT
DECLARE @cantidad FLOAT
DECLARE @l_costem FLOAT
DECLARE @costemed FLOAT
DECLARE @costemedx FLOAT
DECLARE @almacen CHAR(4)
DECLARE @albaran FLOAT
DECLARE @pedido FLOAT
DECLARE @lineaped FLOAT
DECLARE @mensaje  CHAR(255)
DECLARE @p_com   FLOAT
DECLARE @imp_com FLOAT
DECLARE @redondeo FLOAT
SELECT @empresa = empresa, @serie = serie, @numero = numero,
        @raiz = raiz, @talla = talla, @color = color,
        @total_l = total_l, @cantidad = -cantidad, @almacen = almacen,
        @lineaped = lineaped,@en_euro=en_euro,@l_costem=l_costem
    FROM DELETED
SELECT @codigo = cliente, @importe=-total,
     @dto_c=factura.dto_c,@dto_p=dto_p,@dto_rec=dto_rec,@fecha=fecha,
     @suma1=suma1,@suma2=suma2,@suma3=suma3,@suma4=suma4,
     @recargo1=recargo1,@recargo2=recargo2,@recargo3=recargo3,@recargo4=recargo4,
     @p_reten = p_reten, @rec_fin=rec_fin, @en_euro = en_euro, @albaran = albaran, @pedido = pedido,@p_com=p_com,
     @costemed=costemed
    FROM factura
    WHERE factura.empresa=@empresa AND factura.serie=@serie
        AND factura.numero=@numero
SELECT @tipoiva = (SELECT tipo_iva FROM articulo
            WHERE empresa = @empresa AND raiz = @raiz AND talla = @talla AND color = @color)
/* ---------------------------- TRAZA ------------------------------------------
DECLARE @returnmessage varchar(255)
SELECT @returnmessage = 'Valor de tipoiva en lineafac_U DESHACER= ' + RTRIM(CONVERT(char(30), @tipoiva)) + '.'
PRINT @returnmessage
 ---------------------------- TRAZA ------------------------------------------*/
IF @tipoiva = 1
    SELECT @suma1=@suma1-@total_l
IF @tipoiva = 2
    SELECT @suma2=@suma2-@total_l
IF @tipoiva = 3
    SELECT @suma3=@suma3-@total_l
IF @tipoiva = 4
    SELECT @suma4=@suma4-@total_l
EXEC sp_xxx_calcular @empresa,@serie,@codigo,@fecha,
    @dto_c,@dto_p,@dto_rec,
    @suma1,@suma2,@suma3,@suma4,
    @recargo1,@recargo2,@recargo3,@recargo4, @p_reten, @rec_fin, @en_euro,
    @dto1 OUTPUT,@dto2 OUTPUT,@dto3 OUTPUT,@dto4 OUTPUT,
    @base1 OUTPUT,@base2 OUTPUT,@base3 OUTPUT,@base4 OUTPUT,
    @iva1 OUTPUT,@iva2 OUTPUT,@iva3 OUTPUT,@iva4 OUTPUT,
    @re1 OUTPUT,@re2 OUTPUT,@re3 OUTPUT,@re4 OUTPUT, @imp_ret OUTPUT, @total OUTPUT
IF @en_euro=1
    BEGIN
    SELECT @redondeo=2
    END
ELSE
    BEGIN
    SELECT @redondeo=0
    END
SELECT @imp_com=ROUND((@base1+@base2+@base3+@base4)*@p_com/100,@redondeo)
UPDATE factura SET suma1=@suma1,suma2=@suma2,suma3=@suma3, suma4=@suma4,
        dto1=@dto1,dto2=@dto2,dto3=@dto3,dto4=@dto4,
        base1=@base1,base2=@base2,base3=@base3,base4=@base4,
        iva1=@iva1,iva2=@iva2,iva3=@iva3,iva4=@iva4,
        re1=@re1,re2=@re2,re3=@re3,re4=@re4, imp_ret = @imp_ret, total = @total ,
        imp_com=@imp_com,
        costemed=@costemed+(@l_costem*@cantidad)
    WHERE empresa=@empresa AND serie=@serie AND numero=@numero
SELECT @importe=@importe+@total
/* ------------ Desimputa RIESGO --------------------------------*/
EXECUTE sp_riesgo_cli @empresa, @codigo, 'F', @importe, @en_euro
/* ------------ Desimputa STOCK --------------------------------*/
IF @albaran = 0
    BEGIN
    EXECUTE sp_xxx_stock @empresa, @raiz, @talla, @color, @cantidad, @almacen
    /* ------------ Desimputa SERVIDO --------------------------------*/
    IF @pedido <> 0
        EXECUTE sp_linea_ped @empresa, @serie, @pedido, @lineaped, @cantidad
    END










GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO










/****** Object:  Trigger dbo.lineafac_i    Script Date: 23/3/01 12:32:18 ******/
CREATE TRIGGER lineafac_i ON dbo.LINEAFAC
FOR INSERT
AS
DECLARE @empresa     CHAR(4)
DECLARE @serie         CHAR(2)
DECLARE @numero     FLOAT
DECLARE @raiz         CHAR(16)
DECLARE @talla         CHAR(2)
DECLARE @color         CHAR(2)
DECLARE @total_l     FLOAT
DECLARE @tipoiva    INT
DECLARE @cliente        CHAR(10)
DECLARE @fecha   DATETIME
DECLARE @suma1   FLOAT
DECLARE @suma2   FLOAT
DECLARE @suma3   FLOAT
DECLARE @suma4   FLOAT
DECLARE @recargo1   FLOAT
DECLARE @recargo2   FLOAT
DECLARE @recargo3   FLOAT
DECLARE @recargo4   FLOAT
DECLARE @dto1    FLOAT
DECLARE @dto2    FLOAT
DECLARE @dto3    FLOAT
DECLARE @dto4    FLOAT
DECLARE @base1   FLOAT
DECLARE @base2   FLOAT
DECLARE @base3   FLOAT
DECLARE @base4   FLOAT
DECLARE @iva1    FLOAT
DECLARE @iva2    FLOAT
DECLARE @iva3    FLOAT
DECLARE @iva4    FLOAT
DECLARE @re1    FLOAT
DECLARE @re2    FLOAT
DECLARE @re3    FLOAT
DECLARE @re4    FLOAT
DECLARE @dto_c   FLOAT
DECLARE @dto_p   FLOAT
DECLARE @dto_rec FLOAT
DECLARE @p_reten FLOAT
DECLARE @rec_fin FLOAT
DECLARE @en_euro BIT
DECLARE @total   FLOAT
DECLARE @imp_ret FLOAT
DECLARE @importe FLOAT
DECLARE @codigo  CHAR(10)
DECLARE @tipo    CHAR(1)
DECLARE @tabla   FLOAT
DECLARE @cantidad FLOAT
DECLARE @l_costem FLOAT
DECLARE @costemed FLOAT
DECLARE @costemedx FLOAT
DECLARE @almacen CHAR(4)
DECLARE @albaran FLOAT
DECLARE @pedido FLOAT
DECLARE @linea   FLOAT
DECLARE @lineaped  FLOAT
DECLARE @RETURNMESSAGE CHAR(200)
DECLARE @p_com   FLOAT
DECLARE @imp_com FLOAT
DECLARE @redondeo FLOAT
/***************************************
*** IMPUTAR LO NUEVO *******************
***************************************/
SELECT @empresa = empresa, @serie = serie, @numero = numero,
        @raiz = raiz, @talla = talla, @color = color,
        @total_l = total_l, @cantidad = cantidad, @almacen = almacen,
        @en_euro=en_euro,@lineaped=lineaped,@l_costem=l_costem
    FROM INSERTED
SELECT @codigo = cliente, @importe=-total,
     @dto_c=factura.dto_c,@dto_p=dto_p,@dto_rec=dto_rec,@fecha=fecha,
     @suma1=suma1,@suma2=suma2,@suma3=suma3,@suma4=suma4,
     @recargo1=recargo1,@recargo2=recargo2,@recargo3=recargo3,@recargo4=recargo4,
     @p_reten = p_reten, @rec_fin=rec_fin, @en_euro = en_euro, @albaran = albaran,
     @pedido = pedido,@p_com=p_com,     @costemed=costemed
    FROM factura
    WHERE factura.empresa=@empresa AND factura.serie=@serie
        AND factura.numero=@numero
SELECT @tipoiva = (SELECT tipo_iva FROM articulo
            WHERE empresa = @empresa AND raiz = @raiz AND talla = @talla AND color = @color)
/* ---------------------------- TRAZA ------------------------------------------
SELECT 'TIPO IVA'= @tipoiva,'SUMA1 '=@SUMA1,'SUMA 2'=@SUMA2
 ---------------------------- TRAZA ------------------------------------------*/
IF @tipoiva = 1
    SELECT @suma1=@suma1+@total_l
IF @tipoiva = 2
    SELECT @suma2=@suma2+@total_l
IF @tipoiva = 3
    SELECT @suma3=@suma3+@total_l
IF @tipoiva = 4
    SELECT @suma4=@suma4+@total_l
EXEC sp_xxx_calcular @empresa,@serie, @codigo,@fecha,
    @dto_c,@dto_p,@dto_rec,
    @suma1,@suma2,@suma3,@suma4,
    @recargo1,@recargo2,@recargo3,@recargo4, @p_reten, @rec_fin, @en_euro,
    @dto1 OUTPUT,@dto2 OUTPUT,@dto3 OUTPUT,@dto4 OUTPUT,
    @base1 OUTPUT,@base2 OUTPUT,@base3 OUTPUT,@base4 OUTPUT,
    @iva1 OUTPUT,@iva2 OUTPUT,@iva3 OUTPUT,@iva4 OUTPUT,
    @re1 OUTPUT,@re2 OUTPUT,@re3 OUTPUT,@re4 OUTPUT, @imp_ret OUTPUT, @total OUTPUT
IF @en_euro=1
    BEGIN
    SELECT @redondeo=2
    END
ELSE
    BEGIN
    SELECT @redondeo=0
    END
SELECT @imp_com=ROUND((@base1+@base2+@base3+@base4)*@p_com/100,@redondeo)
UPDATE factura SET suma1=@suma1,suma2=@suma2,suma3=@suma3, suma4=@suma4,
        dto1=@dto1,dto2=@dto2,dto3=@dto3,dto4=@dto4,
        base1=@base1,base2=@base2,base3=@base3,base4=@base4,
        iva1=@iva1,iva2=@iva2,iva3=@iva3,iva4=@iva4,
        re1=@re1,re2=@re2,re3=@re3,re4=@re4, imp_ret = @imp_ret, total = @total ,
        imp_com=@imp_com,
        costemed=@costemed+(@l_costem*@cantidad)
    WHERE empresa=@empresa AND serie=@serie AND numero=@numero
SELECT @importe = @importe + @total
/* ------------ Imputa RIESGO --------------------------------*/
EXECUTE sp_riesgo_cli @empresa, @codigo, 'F', @importe, @en_euro
/* ------------ Imputa STOCK --------------------------------*/
IF @albaran = 0
    BEGIN
    EXECUTE sp_xxx_stock @empresa, @raiz, @talla, @color, @cantidad, @almacen
    /* ------------ Imputa SERVIDO --------------------------------*/
    IF @pedido <> 0
        EXECUTE sp_linea_ped @empresa, @serie, @pedido, @lineaped, @cantidad
    END










GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO



/****** Object:  Trigger dbo.lineafac_u    Script Date: 23/3/01 12:32:18 ******/
CREATE TRIGGER lineafac_u ON dbo.LINEAFAC
FOR UPDATE
AS
DECLARE @empresa     CHAR(4)
DECLARE @serie         CHAR(2)
DECLARE @numero     FLOAT
DECLARE @raiz         CHAR(16)
DECLARE @talla         CHAR(2)
DECLARE @color         CHAR(2)
DECLARE @total_l     FLOAT
DECLARE @tipoiva    INT
DECLARE @cliente        CHAR(10)
DECLARE @fecha   DATETIME
DECLARE @suma1   FLOAT
DECLARE @suma2   FLOAT
DECLARE @suma3   FLOAT
DECLARE @suma4   FLOAT
DECLARE @recargo1   FLOAT
DECLARE @recargo2   FLOAT
DECLARE @recargo3   FLOAT
DECLARE @recargo4   FLOAT
DECLARE @dto1    FLOAT
DECLARE @dto2    FLOAT
DECLARE @dto3    FLOAT
DECLARE @dto4    FLOAT
DECLARE @base1   FLOAT
DECLARE @base2   FLOAT
DECLARE @base3   FLOAT
DECLARE @base4   FLOAT
DECLARE @iva1    FLOAT
DECLARE @iva2    FLOAT

DECLARE @iva3    FLOAT
DECLARE @iva4    FLOAT
DECLARE @re1    FLOAT
DECLARE @re2    FLOAT
DECLARE @re3    FLOAT
DECLARE @re4    FLOAT
DECLARE @dto_c   FLOAT
DECLARE @dto_p   FLOAT
DECLARE @dto_rec FLOAT
DECLARE @p_reten FLOAT
DECLARE @rec_fin FLOAT
DECLARE @en_euro BIT
DECLARE @total   FLOAT
DECLARE @imp_ret FLOAT
DECLARE @importe FLOAT
DECLARE @codigo  CHAR(10)
DECLARE @tipo    CHAR(1)
DECLARE @tabla   FLOAT
DECLARE @cantidad FLOAT
DECLARE @l_costem FLOAT
DECLARE @costemed FLOAT
DECLARE @costemedx FLOAT
DECLARE @almacen CHAR(4)
DECLARE @albaran FLOAT
DECLARE @pedido FLOAT
DECLARE @lineaped FLOAT
DECLARE @p_com   FLOAT
DECLARE @imp_com FLOAT
DECLARE @redondeo FLOAT
SELECT @empresa = empresa, @serie = serie, @numero = numero,
        @raiz = raiz, @talla = talla, @color = color,
        @total_l = total_l, @cantidad = -cantidad, @almacen = almacen,
        @lineaped=lineaped,@en_euro=en_euro,@l_costem=l_costem
    FROM DELETED
SELECT @codigo = cliente, @importe=-total,
     @dto_c=factura.dto_c,@dto_p=dto_p,@dto_rec=dto_rec,@fecha=fecha,
     @suma1=suma1,@suma2=suma2,@suma3=suma3,@suma4=suma4,
     @recargo1=recargo1,@recargo2=recargo2,@recargo3=recargo3,@recargo4=recargo4,
     @p_reten = p_reten, @rec_fin=rec_fin, @en_euro = en_euro, @albaran = albaran,
     @pedido = pedido,@p_com=p_com ,@costemed=costemed
    FROM factura
    WHERE factura.empresa=@empresa AND factura.serie=@serie
        AND factura.numero=@numero
SELECT @costemedx=@costemed+(@l_costem*@cantidad)
/* ------------ Desimputa riesgo --------------------------------*/
EXECUTE sp_riesgo_cli @empresa, @codigo, 'F', @importe, @en_euro
/* ------------ Desimputa STOCK --------------------------------*/
IF @albaran = 0
    BEGIN
    EXECUTE sp_xxx_stock @empresa, @raiz, @talla, @color, @cantidad, @almacen
    /* ------------ Desimputa SERVIDO --------------------------------*/
    IF @pedido <> 0
        EXECUTE sp_linea_ped @empresa, @serie, @pedido, @lineaped, @cantidad
    END
SELECT @tipoiva = (SELECT tipo_iva FROM articulo
            WHERE empresa = @empresa AND raiz = @raiz AND talla = @talla AND color = @color)
/* ---------------------------- TRAZA ------------------------------------------
DECLARE @returnmessage varchar(255)
SELECT @returnmessage = 'Valor de tipoiva en lineafac_U DESHACER= ' + RTRIM(CONVERT(char(30), @tipoiva)) + '.'
PRINT @returnmessage
 ---------------------------- TRAZA ------------------------------------------*/
IF @tipoiva = 1
    SELECT @suma1=@suma1-@total_l
IF @tipoiva = 2
    SELECT @suma2=@suma2-@total_l
IF @tipoiva = 3
    SELECT @suma3=@suma3-@total_l
IF @tipoiva = 4
    SELECT @suma4=@suma4-@total_l
/***************************************
*** IMPUTAR LO NUEVO *******************
***************************************/
SELECT @empresa = empresa, @serie = serie, @numero = numero,
     @raiz = raiz, @talla = talla, @color = color,
     @cantidad = cantidad, @total_l = total_l,@lineaped=lineaped,
     @en_euro=en_euro,@l_costem=l_costem
    FROM INSERTED
SELECT @tipoiva = (SELECT tipo_iva FROM articulo
            WHERE empresa = @empresa AND raiz = @raiz AND talla = @talla AND color = @color)
/* ---------------------------- TRAZA ------------------------------------------
SELECT @returnmessage = 'Valor de tipoiva en lineafac_U HACER = ' + RTRIM(CONVERT(char(30), @tipoiva)) + '.'
PRINT @returnmessage
 ---------------------------- TRAZA ------------------------------------------*/
IF @tipoiva = 1
    SELECT @suma1=@suma1+@total_l
IF @tipoiva = 2
    SELECT @suma2=@suma2+@total_l
IF @tipoiva = 3
    SELECT @suma3=@suma3+@total_l
IF @tipoiva = 4
    SELECT @suma4=@suma4+@total_l
EXEC sp_xxx_calcular @empresa,@serie,@codigo,@fecha,
    @dto_c,@dto_p,@dto_rec,
    @suma1,@suma2,@suma3,@suma4,
    @recargo1,@recargo2,@recargo3,@recargo4, @p_reten, @rec_fin, @en_euro,
    @dto1 OUTPUT,@dto2 OUTPUT,@dto3 OUTPUT,@dto4 OUTPUT,
    @base1 OUTPUT,@base2 OUTPUT,@base3 OUTPUT,@base4 OUTPUT,
    @iva1 OUTPUT,@iva2 OUTPUT,@iva3 OUTPUT,@iva4 OUTPUT,
    @re1 OUTPUT,@re2 OUTPUT,@re3 OUTPUT,@re4 OUTPUT, @imp_ret OUTPUT, @total OUTPUT
IF @en_euro=1
    BEGIN
    SELECT @redondeo=2
    END
ELSE
    BEGIN
    SELECT @redondeo=0
    END
SELECT @imp_com=ROUND((@base1+@base2+@base3+@base4)*@p_com/100,@redondeo)
UPDATE factura SET suma1=@suma1,suma2=@suma2,suma3=@suma3, suma4=@suma4,
        dto1=@dto1,dto2=@dto2,dto3=@dto3,dto4=@dto4,
        base1=@base1,base2=@base2,base3=@base3,base4=@base4,
        iva1=@iva1,iva2=@iva2,iva3=@iva3,iva4=@iva4,
        re1=@re1,re2=@re2,re3=@re3,re4=@re4, imp_ret = @imp_ret, total = @total ,
        imp_com=@imp_com,costemed=@costemedx+(@l_costem*@cantidad)
    WHERE empresa=@empresa AND serie=@serie AND numero=@numero
/* ------------ Imputa RIESGO --------------------------------*/
EXECUTE sp_riesgo_cli @empresa, @codigo, 'F', @total, @en_euro
/* ------------ Imputa STOCK --------------------------------*/
IF @albaran = 0
    BEGIN
    EXECUTE sp_xxx_stock @empresa, @raiz, @talla, @color, @cantidad, @almacen
    /* ------------ Imputa SERVIDO --------------------------------*/
    IF @pedido <> 0
        EXECUTE sp_linea_ped @empresa, @serie, @pedido, @lineaped, @cantidad
    END








GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO










/****** Object:  Trigger dbo.lineaofe_d    Script Date: 23/3/01 12:32:14 ******/
/****** Object:  Trigger dbo.lineaofe_d    Script Date: 14/12/00 12:25:11 ******/
/****** Object:  Trigger dbo.lineaofe_d    Script Date: 26/9/00 13:23:21 ******/
/****** Object:  Trigger dbo.lineaofe_d    Script Date: 26/6/00 14:57:04 ******/
/****** Object:  Trigger dbo.lineaofe_d    Script Date: 26/6/00 9:03:33 ******/
/****** Object:  Trigger dbo.lineaofe_d    Script Date: 24/3/2000 10:08:31 ******/
/****** Object:  Trigger dbo.lineaofe_d    Script Date: 23/3/2000 15:31:29 ******/
/****** Object:  Trigger dbo.lineaofe_d    Script Date: 23/3/2000 11:25:18 ******/
/****** Object:  Trigger dbo.lineaofe_d    Script Date: 16/3/2000 12:08:29 ******/
/****** Object:  Trigger dbo.lineaofe_d    Script Date: 2/3/2000 8:30:21 ******/
/****** Object:  Trigger dbo.lineaofe_d    Script Date: 24/6/99 16:21:02 ******/
/****** Object:  Trigger dbo.lineaofe_d    Script Date: 1/6/99 13:16:17 ******/
CREATE TRIGGER lineaofe_d ON dbo.lineaofe
FOR DELETE
AS
DECLARE @empresa     CHAR(4)
DECLARE @serie         CHAR(2)

DECLARE @numero     FLOAT
DECLARE @raiz         CHAR(16)
DECLARE @talla         CHAR(2)
DECLARE @color         CHAR(2)
DECLARE @total_l     FLOAT
DECLARE @tipoiva    INT
DECLARE @cliente        CHAR(10)
DECLARE @fecha   DATETIME
DECLARE @suma1   FLOAT
DECLARE @suma2   FLOAT
DECLARE @suma3   FLOAT
DECLARE @suma4   FLOAT
DECLARE @recargo1   FLOAT
DECLARE @recargo2   FLOAT
DECLARE @recargo3   FLOAT
DECLARE @recargo4   FLOAT
DECLARE @dto1    FLOAT
DECLARE @dto2    FLOAT
DECLARE @dto3    FLOAT
DECLARE @dto4    FLOAT

DECLARE @base1   FLOAT
DECLARE @base2   FLOAT
DECLARE @base3   FLOAT
DECLARE @base4   FLOAT
DECLARE @iva1    FLOAT
DECLARE @iva2    FLOAT
DECLARE @iva3    FLOAT
DECLARE @iva4    FLOAT
DECLARE @re1    FLOAT
DECLARE @re2    FLOAT
DECLARE @re3    FLOAT
DECLARE @re4    FLOAT
DECLARE @dto_c   FLOAT
DECLARE @dto_p   FLOAT
DECLARE @dto_rec FLOAT
DECLARE @p_reten FLOAT
DECLARE @rec_fin FLOAT
DECLARE @en_euro BIT
DECLARE @total   FLOAT
DECLARE @imp_ret FLOAT
DECLARE @importe FLOAT
DECLARE @codigo  CHAR(10)
DECLARE @tipo    CHAR(1)
DECLARE @tabla   FLOAT
DECLARE @cantidad FLOAT
DECLARE @almacen CHAR(4)
DECLARE @albaran FLOAT
DECLARE @ofertas FLOAT
DECLARE @linea INT
DECLARE @reservado FLOAT
DECLARE @sumar_resultado CHAR(1)
SELECT @empresa = empresa, @serie = serie, @numero = numero,
        @raiz = raiz, @talla = talla, @color = color,
        @total_l = total_l, @sumar_resultado=suma
    FROM DELETED
SELECT @codigo = cliente, @importe=-total,
     @dto_c=dto_c,@dto_p=dto_p,@dto_rec=dto_rec,@fecha=fecha,
     @suma1=suma1,@suma2=suma2,@suma3=suma3,@suma4=suma4,
     @recargo1=recargo1,@recargo2=recargo2,@recargo3=recargo3,@recargo4=recargo4,
     @p_reten = p_reten, @rec_fin=rec_fin, @en_euro = en_euro
    FROM ofertas
    WHERE empresa=@empresa AND serie=@serie AND numero=@numero
/* ------------ Desimputa STOCK --------------------------------*/
SELECT @tipoiva = (SELECT tipo_iva FROM articulo
            WHERE empresa = @empresa AND raiz = @raiz AND talla = @talla AND color = @color)
IF @tipoiva = 1 AND @sumar_resultado='S'
    SELECT @suma1=@suma1-@total_l
IF @tipoiva = 2 AND @sumar_resultado='S'
    SELECT @suma2=@suma2-@total_l
IF @tipoiva = 3 AND @sumar_resultado='S'
    SELECT @suma3=@suma3-@total_l
IF @tipoiva = 4 AND @sumar_resultado='S'
    SELECT @suma4=@suma4-@total_l
/* ------------------ CALCULAR --------------------*/
EXEC sp_xxx_calcular @empresa,@serie,@codigo,@fecha,
    @dto_c,@dto_p,@dto_rec,
    @suma1,@suma2,@suma3,@suma4,
    @recargo1,@recargo2,@recargo3,@recargo4, @p_reten, @rec_fin, @en_euro,
    @dto1 OUTPUT,@dto2 OUTPUT,@dto3 OUTPUT,@dto4 OUTPUT,
    @base1 OUTPUT,@base2 OUTPUT,@base3 OUTPUT,@base4 OUTPUT,
    @iva1 OUTPUT,@iva2 OUTPUT,@iva3 OUTPUT,@iva4 OUTPUT,
    @re1 OUTPUT,@re2 OUTPUT,@re3 OUTPUT,@re4 OUTPUT, @imp_ret OUTPUT, @total OUTPUT
UPDATE ofertas SET suma1=@suma1,suma2=@suma2,suma3=@suma3, suma4=@suma4,
     dto1=@dto1,dto2=@dto2,dto3=@dto3,dto4=@dto4,
     base1=@base1,base2=@base2,base3=@base3,base4=@base4,
     iva1=@iva1,iva2=@iva2,iva3=@iva3,iva4=@iva4,
     re1=@re1,re2=@re2,re3=@re3,re4=@re4, imp_ret = @imp_ret, total = @total
    WHERE empresa=@empresa AND serie=@serie AND numero=@numero










GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO










/****** Object:  Trigger dbo.lineaofe_i    Script Date: 23/3/01 12:32:15 ******/
/****** Object:  Trigger dbo.lineaofe_i    Script Date: 14/12/00 12:25:11 ******/
/****** Object:  Trigger dbo.lineaofe_i    Script Date: 26/9/00 13:23:21 ******/
/****** Object:  Trigger dbo.lineaofe_i    Script Date: 26/6/00 14:57:04 ******/
/****** Object:  Trigger dbo.lineaofe_i    Script Date: 26/6/00 9:03:33 ******/
/****** Object:  Trigger dbo.lineaofe_i    Script Date: 24/3/2000 10:08:31 ******/
/****** Object:  Trigger dbo.lineaofe_i    Script Date: 23/3/2000 15:31:29 ******/
/****** Object:  Trigger dbo.lineaofe_i    Script Date: 23/3/2000 11:25:18 ******/
/****** Object:  Trigger dbo.lineaofe_i    Script Date: 16/3/2000 12:08:29 ******/
/****** Object:  Trigger dbo.lineaofe_i    Script Date: 2/3/2000 8:30:21 ******/
/****** Object:  Trigger dbo.lineaofe_i    Script Date: 24/6/99 16:21:02 ******/
/****** Object:  Trigger dbo.lineaofe_i    Script Date: 1/6/99 13:16:17 ******/
CREATE TRIGGER lineaofe_i ON dbo.lineaofe
FOR INSERT
AS
DECLARE @empresa     CHAR(4)
DECLARE @serie         CHAR(2)

DECLARE @numero     FLOAT
DECLARE @raiz         CHAR(16)
DECLARE @talla         CHAR(2)
DECLARE @color         CHAR(2)
DECLARE @total_l     FLOAT
DECLARE @tipoiva    INT
DECLARE @cliente        CHAR(10)
DECLARE @fecha   DATETIME
DECLARE @suma1   FLOAT
DECLARE @suma2   FLOAT
DECLARE @suma3   FLOAT
DECLARE @suma4   FLOAT
DECLARE @recargo1   FLOAT
DECLARE @recargo2   FLOAT
DECLARE @recargo3   FLOAT
DECLARE @recargo4   FLOAT
DECLARE @dto1    FLOAT
DECLARE @dto2    FLOAT
DECLARE @dto3    FLOAT
DECLARE @dto4    FLOAT

DECLARE @base1   FLOAT
DECLARE @base2   FLOAT
DECLARE @base3   FLOAT
DECLARE @base4   FLOAT
DECLARE @iva1    FLOAT
DECLARE @iva2    FLOAT
DECLARE @iva3    FLOAT
DECLARE @iva4    FLOAT
DECLARE @re1    FLOAT
DECLARE @re2    FLOAT
DECLARE @re3    FLOAT
DECLARE @re4    FLOAT
DECLARE @dto_c   FLOAT
DECLARE @dto_p   FLOAT
DECLARE @dto_rec FLOAT
DECLARE @p_reten FLOAT
DECLARE @rec_fin FLOAT
DECLARE @en_euro BIT
DECLARE @total   FLOAT
DECLARE @imp_ret FLOAT
DECLARE @importe FLOAT
DECLARE @codigo  CHAR(10)
DECLARE @tipo    CHAR(1)
DECLARE @tabla   FLOAT
DECLARE @cantidad FLOAT
DECLARE @almacen CHAR(4)
DECLARE @albaran FLOAT
DECLARE @ofertas FLOAT
DECLARE @linea INT
DECLARE @reservado FLOAT
DECLARE @sumar_resultado CHAR(1)
SELECT @empresa = empresa, @serie = serie, @numero = numero,
        @raiz = raiz, @talla = talla, @color = color,
        @total_l = total_l, @sumar_resultado=suma
    FROM INSERTED
SELECT @codigo = cliente, @importe=-total,
     @dto_c=dto_c,@dto_p=dto_p,@dto_rec=dto_rec,@fecha=fecha,
     @suma1=suma1,@suma2=suma2,@suma3=suma3,@suma4=suma4,
     @recargo1=recargo1,@recargo2=recargo2,@recargo3=recargo3,@recargo4=recargo4,
     @p_reten = p_reten, @rec_fin=rec_fin, @en_euro = en_euro
    FROM ofertas
    WHERE empresa=@empresa AND serie=@serie AND numero=@numero
/*select 'el total lienea '=@total_l,@raiz,@talla,@color,@sumar_resultado*/
/*select 'las sumas son '=@suma1,@suma2,@suma3,@suma4*/
SELECT @tipoiva = (SELECT tipo_iva FROM articulo
            WHERE empresa = @empresa AND raiz = @raiz AND talla = @talla AND color = @color)
/*select 'el tipo de iva es '=@tipoiva*/
IF @tipoiva = 1 AND @sumar_resultado='S'
    SELECT @suma1=@suma1+@total_l
IF @tipoiva = 2 AND @sumar_resultado='S'
    SELECT @suma2=@suma2+@total_l
IF @tipoiva = 3 AND @sumar_resultado='S'
    SELECT @suma3=@suma3+@total_l
IF @tipoiva = 4 AND @sumar_resultado='S'
    SELECT @suma4=@suma4+@total_l
/*select 'las sumas nuevas son '=@suma1,@suma2,@suma3,@suma4*/
/* ------------------ CALCULAR --------------------*/
EXEC sp_xxx_calcular @empresa,@serie,@codigo,@fecha,
    @dto_c,@dto_p,@dto_rec,
    @suma1,@suma2,@suma3,@suma4,
    @recargo1,@recargo2,@recargo3,@recargo4, @p_reten, @rec_fin, @en_euro,
    @dto1 OUTPUT,@dto2 OUTPUT,@dto3 OUTPUT,@dto4 OUTPUT,
    @base1 OUTPUT,@base2 OUTPUT,@base3 OUTPUT,@base4 OUTPUT,
    @iva1 OUTPUT,@iva2 OUTPUT,@iva3 OUTPUT,@iva4 OUTPUT,
    @re1 OUTPUT,@re2 OUTPUT,@re3 OUTPUT,@re4 OUTPUT, @imp_ret OUTPUT, @total OUTPUT
UPDATE ofertas SET suma1=@suma1,suma2=@suma2,suma3=@suma3, suma4=@suma4,
     dto1=@dto1,dto2=@dto2,dto3=@dto3,dto4=@dto4,
     base1=@base1,base2=@base2,base3=@base3,base4=@base4,
     iva1=@iva1,iva2=@iva2,iva3=@iva3,iva4=@iva4,
     re1=@re1,re2=@re2,re3=@re3,re4=@re4, imp_ret = @imp_ret, total = @total
    WHERE empresa=@empresa AND serie=@serie AND numero=@numero










GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO




/****** Object:  Trigger dbo.lineaofe_u    Script Date: 23/3/01 12:32:15 ******/
/****** Object:  Trigger dbo.lineaofe_u    Script Date: 14/12/00 12:25:11 ******/
/****** Object:  Trigger dbo.lineaofe_u    Script Date: 26/9/00 13:23:22 ******/
/****** Object:  Trigger dbo.lineaofe_u    Script Date: 26/6/00 14:57:04 ******/
/****** Object:  Trigger dbo.lineaofe_u    Script Date: 26/6/00 9:03:33 ******/
/****** Object:  Trigger dbo.lineaofe_u    Script Date: 24/3/2000 10:08:31 ******/
/****** Object:  Trigger dbo.lineaofe_u    Script Date: 23/3/2000 15:31:29 ******/
/****** Object:  Trigger dbo.lineaofe_u    Script Date: 23/3/2000 11:25:18 ******/
/****** Object:  Trigger dbo.lineaofe_u    Script Date: 16/3/2000 12:08:29 ******/
/****** Object:  Trigger dbo.lineaofe_u    Script Date: 2/3/2000 8:30:21 ******/
/****** Object:  Trigger dbo.lineaofe_u    Script Date: 24/6/99 16:21:02 ******/
/****** Object:  Trigger dbo.lineaofe_u    Script Date: 1/6/99 13:16:17 ******/
CREATE TRIGGER lineaofe_u ON dbo.lineaofe
FOR UPDATE
AS
DECLARE @empresa     CHAR(4)
DECLARE @serie         CHAR(2)

DECLARE @numero     FLOAT
DECLARE @raiz         CHAR(16)
DECLARE @talla         CHAR(2)
DECLARE @color         CHAR(2)
DECLARE @total_l     FLOAT
DECLARE @tipoiva    INT
DECLARE @cliente  CHAR(10)
DECLARE @fecha   DATETIME
DECLARE @suma1   FLOAT
DECLARE @suma2   FLOAT
DECLARE @suma3   FLOAT
DECLARE @suma4   FLOAT
DECLARE @recargo1   FLOAT
DECLARE @recargo2   FLOAT
DECLARE @recargo3   FLOAT
DECLARE @recargo4   FLOAT
DECLARE @dto1    FLOAT
DECLARE @dto2    FLOAT
DECLARE @dto3    FLOAT
DECLARE @dto4    FLOAT
DECLARE @base1   FLOAT
DECLARE @base2   FLOAT
DECLARE @base3   FLOAT
DECLARE @base4   FLOAT
DECLARE @iva1    FLOAT
DECLARE @iva2    FLOAT
DECLARE @iva3    FLOAT
DECLARE @iva4    FLOAT
DECLARE @re1    FLOAT
DECLARE @re2    FLOAT
DECLARE @re3    FLOAT

DECLARE @re4    FLOAT
DECLARE @dto_c   FLOAT
DECLARE @dto_p   FLOAT
DECLARE @dto_rec FLOAT
DECLARE @p_reten FLOAT
DECLARE @rec_fin FLOAT
DECLARE @en_euro BIT
DECLARE @total   FLOAT
DECLARE @imp_ret FLOAT
DECLARE @importe FLOAT
DECLARE @codigo  CHAR(10)
DECLARE @tipo    CHAR(1)
DECLARE @tabla   FLOAT
DECLARE @cantidad FLOAT
DECLARE @almacen CHAR(4)
DECLARE @albaran FLOAT
DECLARE @ofertas FLOAT
DECLARE @linea INT
DECLARE @sys_rsv CHAR(4)
DECLARE @posible FLOAT
DECLARE @sys_negativo BIT

DECLARE @stock FLOAT
DECLARE @reservado FLOAT
DECLARE @hay_quereservar BIT
DECLARE @sumar_resultado CHAR(1)
SELECT @empresa = empresa, @serie = serie, @numero = numero,
        @raiz = raiz, @talla = talla, @color = color,
        @total_l = total_l, @sumar_resultado=suma
    FROM DELETED
SELECT @codigo = cliente, @importe=-total,
     @dto_c=dto_c,@dto_p=dto_p,@dto_rec=dto_rec,@fecha=fecha,
     @suma1=suma1,@suma2=suma2,@suma3=suma3,@suma4=suma4,
     @recargo1=recargo1,@recargo2=recargo2,@recargo3=recargo3,@recargo4=recargo4,
     @p_reten = p_reten, @rec_fin=rec_fin, @en_euro = en_euro
    FROM ofertas
    WHERE empresa=@empresa AND serie=@serie AND numero=@numero
SELECT @tipoiva = (SELECT tipo_iva FROM articulo
            WHERE empresa = @empresa AND raiz = @raiz AND talla = @talla AND color = @color)
IF @tipoiva = 1 AND @sumar_resultado='S'
    SELECT @suma1=@suma1-@total_l
IF @tipoiva = 2 AND @sumar_resultado='S'
    SELECT @suma2=@suma2-@total_l
IF @tipoiva = 3 AND @sumar_resultado='S'
    SELECT @suma3=@suma3-@total_l
IF @tipoiva = 4 AND @sumar_resultado='S'
    SELECT @suma4=@suma4-@total_l
/***************************************
*** IMPUTAR LO NUEVO *******************
***************************************/
SELECT @empresa = empresa, @serie = serie, @numero = numero,
     @raiz = raiz, @talla = talla, @color = color,
     @cantidad = cantidad, @sumar_resultado=suma,@total_l=total_l
    FROM INSERTED
SELECT @tipoiva = (SELECT tipo_iva FROM articulo
            WHERE empresa = @empresa AND raiz = @raiz AND talla = @talla AND color = @color)
IF @tipoiva = 1 AND @sumar_resultado='S'
    SELECT @suma1=@suma1+@total_l

IF @tipoiva = 2 AND @sumar_resultado='S'
    SELECT @suma2=@suma2+@total_l
IF @tipoiva = 3 AND @sumar_resultado='S'
    SELECT @suma3=@suma3+@total_l
IF @tipoiva = 4 AND @sumar_resultado='S'
    SELECT @suma4=@suma4+@total_l
/* ------------------ CALCULAR --------------------*/
EXEC sp_xxx_calcular @empresa,@serie,@codigo,@fecha,
    @dto_c,@dto_p,@dto_rec,
    @suma1,@suma2,@suma3,@suma4,
    @recargo1,@recargo2,@recargo3,@recargo4, @p_reten, @rec_fin, @en_euro,
    @dto1 OUTPUT,@dto2 OUTPUT,@dto3 OUTPUT,@dto4 OUTPUT,
    @base1 OUTPUT,@base2 OUTPUT,@base3 OUTPUT,@base4 OUTPUT,
    @iva1 OUTPUT,@iva2 OUTPUT,@iva3 OUTPUT,@iva4 OUTPUT,
    @re1 OUTPUT,@re2 OUTPUT,@re3 OUTPUT,@re4 OUTPUT, @imp_ret OUTPUT, @total OUTPUT
UPDATE ofertas SET suma1=@suma1,suma2=@suma2,suma3=@suma3, suma4=@suma4,
     dto1=@dto1,dto2=@dto2,dto3=@dto3,dto4=@dto4,
     base1=@base1,base2=@base2,base3=@base3,base4=@base4,
     iva1=@iva1,iva2=@iva2,iva3=@iva3,iva4=@iva4,
     re1=@re1,re2=@re2,re3=@re3,re4=@re4, imp_ret = @imp_ret, total = @total
    WHERE empresa=@empresa AND serie=@serie AND numero=@numero







GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO










/****** Object:  Trigger dbo.lineaped_i    Script Date: 23/3/01 12:32:17 ******/
CREATE TRIGGER lineaped_i ON dbo.LINEAPED
FOR INSERT
AS
DECLARE @empresa     CHAR(4)
DECLARE @serie         CHAR(2)
DECLARE @numero     FLOAT
DECLARE @raiz         CHAR(16)
DECLARE @talla         CHAR(2)
DECLARE @color         CHAR(2)
DECLARE @total_l     FLOAT
DECLARE @tipoiva    INT
DECLARE @cliente        CHAR(10)
DECLARE @fecha   DATETIME
DECLARE @suma1   FLOAT
DECLARE @suma2   FLOAT
DECLARE @suma3   FLOAT
DECLARE @suma4   FLOAT
DECLARE @recargo1   FLOAT
DECLARE @recargo2   FLOAT
DECLARE @recargo3   FLOAT
DECLARE @recargo4   FLOAT
DECLARE @dto1    FLOAT
DECLARE @dto2    FLOAT
DECLARE @dto3    FLOAT
DECLARE @dto4    FLOAT
DECLARE @base1   FLOAT
DECLARE @base2   FLOAT
DECLARE @base3   FLOAT
DECLARE @base4   FLOAT
DECLARE @iva1    FLOAT
DECLARE @iva2    FLOAT

DECLARE @iva3    FLOAT
DECLARE @iva4    FLOAT
DECLARE @re1    FLOAT
DECLARE @re2    FLOAT
DECLARE @re3    FLOAT
DECLARE @re4    FLOAT
DECLARE @dto_c   FLOAT
DECLARE @dto_p   FLOAT
DECLARE @dto_rec FLOAT
DECLARE @p_reten FLOAT
DECLARE @rec_fin FLOAT
DECLARE @en_euro BIT
DECLARE @total   FLOAT
DECLARE @imp_ret FLOAT
DECLARE @importe FLOAT
DECLARE @codigo  CHAR(10)
DECLARE @tipo    CHAR(1)
DECLARE @tabla   FLOAT
DECLARE @cantidad FLOAT
DECLARE @l_costem FLOAT
DECLARE @costemed FLOAT
DECLARE @almacen CHAR(4)
DECLARE @albaran FLOAT
DECLARE @pedido FLOAT
DECLARE @linea INT
DECLARE @sys_rsv CHAR(4)
DECLARE @posible FLOAT
DECLARE @sys_negativo BIT
DECLARE @stock FLOAT
DECLARE @reservado FLOAT
DECLARE @mensaje   CHAR(255)
DECLARE @hay_quereservar BIT
SELECT @empresa = empresa, @serie = serie, @numero = numero,
     @raiz = raiz, @talla = talla, @color = color,
     @cantidad = cantidad, @total_l = total_l, @almacen=almacen,
     @reservado=reservado,@l_costem=l_costem
    FROM INSERTED
SELECT @codigo = cliente, @importe=-total,
     @dto_c=dto_c,@dto_p=dto_p,@dto_rec=dto_rec,@fecha=fecha,
     @suma1=suma1,@suma2=suma2,@suma3=suma3,@suma4=suma4,
     @recargo1=recargo1,@recargo2=recargo2,@recargo3=recargo3,@recargo4=recargo4,
     @p_reten = p_reten, @rec_fin=rec_fin, @en_euro = en_euro,@costemed=costemed
    FROM pedido
    WHERE empresa=@empresa AND serie=@serie AND numero=@numero
SELECT @tipoiva = (SELECT tipo_iva FROM articulo
            WHERE empresa = @empresa AND raiz = @raiz AND talla = @talla AND color = @color)
IF @tipoiva = 1
    SELECT @suma1=@suma1+@total_l
IF @tipoiva = 2
    SELECT @suma2=@suma2+@total_l
IF @tipoiva = 3
    SELECT @suma3=@suma3+@total_l
IF @tipoiva = 4
    SELECT @suma4=@suma4+@total_l
/* ------------------ CALCULAR --------------------*/
EXEC sp_xxx_calcular @empresa,@serie,@codigo,@fecha,
    @dto_c,@dto_p,@dto_rec,
    @suma1,@suma2,@suma3,@suma4,
    @recargo1,@recargo2,@recargo3,@recargo4, @p_reten, @rec_fin, @en_euro,
    @dto1 OUTPUT,@dto2 OUTPUT,@dto3 OUTPUT,@dto4 OUTPUT,
    @base1 OUTPUT,@base2 OUTPUT,@base3 OUTPUT,@base4 OUTPUT,
    @iva1 OUTPUT,@iva2 OUTPUT,@iva3 OUTPUT,@iva4 OUTPUT,
    @re1 OUTPUT,@re2 OUTPUT,@re3 OUTPUT,@re4 OUTPUT, @imp_ret OUTPUT, @total OUTPUT
UPDATE pedido SET suma1=@suma1,suma2=@suma2,suma3=@suma3, suma4=@suma4,
     dto1=@dto1,dto2=@dto2,dto3=@dto3,dto4=@dto4,
     base1=@base1,base2=@base2,base3=@base3,base4=@base4,
     iva1=@iva1,iva2=@iva2,iva3=@iva3,iva4=@iva4,
     re1=@re1,re2=@re2,re3=@re3,re4=@re4, imp_ret = @imp_ret, total = @total ,
     costemed=@costemed+(@l_costem*@cantidad)
    WHERE empresa=@empresa AND serie=@serie AND numero=@numero
EXEC sp_cuanto_reservo @empresa,@raiz,@talla,@color,@cantidad,
    @hay_quereservar OUTPUT ,@almacen OUTPUT,@reservado OUTPUT
IF @hay_quereservar=1
    BEGIN
    UPDATE lineaped SET reservado=@reservado,almacen=@almacen
        WHERE empresa=@empresa AND numero=@numero AND
        serie=@serie
    END

/* ------------ Imputa STOCK --------------------------------*/
IF @reservado<>0
    EXECUTE sp_xxx_stockresrv @empresa, @raiz, @talla, @color, @reservado, @almacen










GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO










/****** Object:  Trigger dbo.lineaped_u    Script Date: 23/3/01 12:32:17 ******/
CREATE TRIGGER lineaped_u ON dbo.LINEAPED
FOR UPDATE
AS
DECLARE @empresa     CHAR(4)
DECLARE @serie         CHAR(2)
DECLARE @numero     FLOAT
DECLARE @raiz         CHAR(16)
DECLARE @talla         CHAR(2)
DECLARE @color         CHAR(2)
DECLARE @total_l     FLOAT
DECLARE @tipoiva    INT
DECLARE @cliente  CHAR(10)
DECLARE @fecha   DATETIME
DECLARE @suma1   FLOAT
DECLARE @suma2   FLOAT
DECLARE @suma3   FLOAT
DECLARE @suma4   FLOAT
DECLARE @recargo1   FLOAT
DECLARE @recargo2   FLOAT
DECLARE @recargo3   FLOAT
DECLARE @recargo4   FLOAT
DECLARE @dto1    FLOAT
DECLARE @dto2    FLOAT
DECLARE @dto3    FLOAT
DECLARE @dto4    FLOAT
DECLARE @base1   FLOAT
DECLARE @base2   FLOAT
DECLARE @base3   FLOAT
DECLARE @base4   FLOAT
DECLARE @iva1    FLOAT
DECLARE @iva2    FLOAT
DECLARE @iva3    FLOAT
DECLARE @iva4    FLOAT
DECLARE @re1    FLOAT
DECLARE @re2    FLOAT
DECLARE @re3    FLOAT
DECLARE @re4    FLOAT
DECLARE @dto_c   FLOAT
DECLARE @dto_p   FLOAT
DECLARE @dto_rec FLOAT
DECLARE @p_reten FLOAT
DECLARE @rec_fin FLOAT
DECLARE @en_euro BIT
DECLARE @total   FLOAT
DECLARE @imp_ret FLOAT
DECLARE @importe FLOAT
DECLARE @codigo  CHAR(10)
DECLARE @tipo    CHAR(1)
DECLARE @tabla   FLOAT
DECLARE @cantidad FLOAT
DECLARE @l_costem FLOAT
DECLARE @costemed FLOAT
DECLARE @costemedx FLOAT
DECLARE @almacen CHAR(4)
DECLARE @albaran FLOAT
DECLARE @pedido FLOAT
DECLARE @linea INT
DECLARE @sys_rsv CHAR(4)
DECLARE @posible FLOAT
DECLARE @sys_negativo BIT
DECLARE @stock FLOAT
DECLARE @reservado FLOAT
DECLARE @hay_quereservar BIT
SELECT @empresa = empresa, @serie = serie, @numero = numero,
        @raiz = raiz, @talla = talla, @color = color,
        @total_l = total_l, @cantidad = -cantidad, @almacen = almacen,
        @reservado=-reservado,@l_costem=l_costem
    FROM DELETED
SELECT @codigo = cliente, @importe=-total,
     @dto_c=dto_c,@dto_p=dto_p,@dto_rec=dto_rec,@fecha=fecha,
     @suma1=suma1,@suma2=suma2,@suma3=suma3,@suma4=suma4,
     @recargo1=recargo1,@recargo2=recargo2,@recargo3=recargo3,@recargo4=recargo4,
     @p_reten = p_reten, @rec_fin=rec_fin, @en_euro = en_euro,@costemed=costemed
    FROM pedido
    WHERE empresa=@empresa AND serie=@serie AND numero=@numero
SELECT @costemedx=@costemed+(@l_costem*@cantidad)
/* ------------ Desimputa STOCK --------------------------------*/
IF @reservado<>0
    EXECUTE sp_xxx_stockresrv @empresa, @raiz, @talla, @color, @reservado, @almacen
SELECT @tipoiva = (SELECT tipo_iva FROM articulo
            WHERE empresa = @empresa AND raiz = @raiz AND talla = @talla AND color = @color)
IF @tipoiva = 1
    SELECT @suma1=@suma1-@total_l
IF @tipoiva = 2
    SELECT @suma2=@suma2-@total_l
IF @tipoiva = 3
    SELECT @suma3=@suma3-@total_l
IF @tipoiva = 4
    SELECT @suma4=@suma4-@total_l
/***************************************
*** IMPUTAR LO NUEVO *******************

***************************************/
SELECT @empresa = empresa, @serie = serie, @numero = numero,
     @raiz = raiz, @talla = talla, @color = color,
     @cantidad = cantidad, @total_l = total_l,@reservado=reservado,
     @almacen=almacen,@l_costem=l_costem
    FROM INSERTED
SELECT @tipoiva = (SELECT tipo_iva FROM articulo
            WHERE empresa = @empresa AND raiz = @raiz AND talla = @talla AND color = @color)
IF @tipoiva = 1
    SELECT @suma1=@suma1+@total_l
IF @tipoiva = 2
    SELECT @suma2=@suma2+@total_l
IF @tipoiva = 3
    SELECT @suma3=@suma3+@total_l
IF @tipoiva = 4
    SELECT @suma4=@suma4+@total_l
/* ------------------ CALCULAR --------------------*/
EXEC sp_xxx_calcular @empresa,@serie,@codigo,@fecha,
    @dto_c,@dto_p,@dto_rec,
    @suma1,@suma2,@suma3,@suma4,
    @recargo1,@recargo2,@recargo3,@recargo4, @p_reten, @rec_fin, @en_euro,
    @dto1 OUTPUT,@dto2 OUTPUT,@dto3 OUTPUT,@dto4 OUTPUT,
    @base1 OUTPUT,@base2 OUTPUT,@base3 OUTPUT,@base4 OUTPUT,
    @iva1 OUTPUT,@iva2 OUTPUT,@iva3 OUTPUT,@iva4 OUTPUT,
    @re1 OUTPUT,@re2 OUTPUT,@re3 OUTPUT,@re4 OUTPUT, @imp_ret OUTPUT, @total OUTPUT
UPDATE pedido SET suma1=@suma1,suma2=@suma2,suma3=@suma3, suma4=@suma4,
     dto1=@dto1,dto2=@dto2,dto3=@dto3,dto4=@dto4,
     base1=@base1,base2=@base2,base3=@base3,base4=@base4,
     iva1=@iva1,iva2=@iva2,iva3=@iva3,iva4=@iva4,
     re1=@re1,re2=@re2,re3=@re3,re4=@re4, imp_ret = @imp_ret, total = @total ,
     costemed=@costemedx+(@l_costem*@cantidad)
    WHERE empresa=@empresa AND serie=@serie AND numero=@numero
EXEC sp_cuanto_reservo @empresa,@raiz,@talla,@color,@cantidad,
    @hay_quereservar OUTPUT ,@almacen OUTPUT,@reservado OUTPUT
IF @hay_quereservar=1
    BEGIN
    UPDATE lineaped SET reservado=@reservado,almacen=@almacen
        WHERE empresa=@empresa AND numero=@numero AND
        serie=@serie
    END

IF @reservado<>0
    EXECUTE sp_xxx_stockresrv @empresa, @raiz, @talla, @color, @reservado, @almacen










GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO










/****** Object:  Trigger dbo.lineaped_d    Script Date: 23/3/01 12:32:17 ******/
CREATE TRIGGER lineaped_d ON dbo.LINEAPED
FOR DELETE
AS
DECLARE @empresa     CHAR(4)
DECLARE @serie         CHAR(2)
DECLARE @numero     FLOAT
DECLARE @raiz         CHAR(16)
DECLARE @talla         CHAR(2)
DECLARE @color         CHAR(2)
DECLARE @total_l     FLOAT
DECLARE @tipoiva    INT
DECLARE @cliente        CHAR(10)
DECLARE @fecha   DATETIME
DECLARE @suma1   FLOAT
DECLARE @suma2   FLOAT
DECLARE @suma3   FLOAT
DECLARE @suma4   FLOAT
DECLARE @recargo1   FLOAT
DECLARE @recargo2   FLOAT
DECLARE @recargo3   FLOAT
DECLARE @recargo4   FLOAT
DECLARE @dto1    FLOAT
DECLARE @dto2    FLOAT
DECLARE @dto3    FLOAT
DECLARE @dto4    FLOAT
DECLARE @base1   FLOAT
DECLARE @base2   FLOAT
DECLARE @base3   FLOAT
DECLARE @base4   FLOAT
DECLARE @iva1    FLOAT
DECLARE @iva2    FLOAT

DECLARE @iva3    FLOAT
DECLARE @iva4    FLOAT
DECLARE @re1    FLOAT
DECLARE @re2    FLOAT
DECLARE @re3    FLOAT
DECLARE @re4    FLOAT
DECLARE @dto_c   FLOAT
DECLARE @dto_p   FLOAT
DECLARE @dto_rec FLOAT
DECLARE @p_reten FLOAT
DECLARE @rec_fin FLOAT
DECLARE @en_euro BIT
DECLARE @total   FLOAT
DECLARE @imp_ret FLOAT
DECLARE @importe FLOAT
DECLARE @codigo  CHAR(10)
DECLARE @tipo    CHAR(1)
DECLARE @tabla   FLOAT
DECLARE @cantidad FLOAT
DECLARE @l_costem FLOAT
DECLARE @costemed FLOAT
DECLARE @almacen CHAR(4)
DECLARE @albaran FLOAT
DECLARE @pedido FLOAT
DECLARE @linea INT
DECLARE @reservado FLOAT
SELECT @empresa = empresa, @serie = serie, @numero = numero,
        @raiz = raiz, @talla = talla, @color = color,
        @total_l = total_l, @cantidad = -cantidad, @almacen = almacen,
        @reservado=-reservado,@l_costem=l_costem
    FROM DELETED
SELECT @codigo = cliente, @importe=-total,
     @dto_c=dto_c,@dto_p=dto_p,@dto_rec=dto_rec,@fecha=fecha,
     @suma1=suma1,@suma2=suma2,@suma3=suma3,@suma4=suma4,
     @recargo1=recargo1,@recargo2=recargo2,@recargo3=recargo3,@recargo4=recargo4,
     @p_reten = p_reten, @rec_fin=rec_fin, @en_euro = en_euro,
     @costemed=costemed
    FROM pedido
    WHERE empresa=@empresa AND serie=@serie AND numero=@numero
/* ------------ Desimputa STOCK --------------------------------*/
IF @reservado<>0
    EXECUTE sp_xxx_stockresrv @empresa, @raiz, @talla, @color, @reservado, @almacen
SELECT @tipoiva = (SELECT tipo_iva FROM articulo
            WHERE empresa = @empresa AND raiz = @raiz AND talla = @talla AND color = @color)
IF @tipoiva = 1
    SELECT @suma1=@suma1-@total_l
IF @tipoiva = 2
    SELECT @suma2=@suma2-@total_l
IF @tipoiva = 3
    SELECT @suma3=@suma3-@total_l
IF @tipoiva = 4
    SELECT @suma4=@suma4-@total_l
/* ------------------ CALCULAR --------------------*/
EXEC sp_xxx_calcular @empresa,@serie,@codigo,@fecha,
    @dto_c,@dto_p,@dto_rec,
    @suma1,@suma2,@suma3,@suma4,
    @recargo1,@recargo2,@recargo3,@recargo4, @p_reten, @rec_fin, @en_euro,
    @dto1 OUTPUT,@dto2 OUTPUT,@dto3 OUTPUT,@dto4 OUTPUT,
    @base1 OUTPUT,@base2 OUTPUT,@base3 OUTPUT,@base4 OUTPUT,
    @iva1 OUTPUT,@iva2 OUTPUT,@iva3 OUTPUT,@iva4 OUTPUT,
    @re1 OUTPUT,@re2 OUTPUT,@re3 OUTPUT,@re4 OUTPUT, @imp_ret OUTPUT, @total OUTPUT
UPDATE pedido SET suma1=@suma1,suma2=@suma2,suma3=@suma3, suma4=@suma4,
     dto1=@dto1,dto2=@dto2,dto3=@dto3,dto4=@dto4,
     base1=@base1,base2=@base2,base3=@base3,base4=@base4,
     iva1=@iva1,iva2=@iva2,iva3=@iva3,iva4=@iva4,
     re1=@re1,re2=@re2,re3=@re3,re4=@re4, imp_ret = @imp_ret, total = @total ,
     costemed=@costemed+(@l_costem*@cantidad)
    WHERE empresa=@empresa AND serie=@serie AND numero=@numero










GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO










/****** Object:  Trigger dbo.lineapla_d    Script Date: 23/3/01 12:32:15 ******/
/****** Object:  Trigger dbo.lineapla_d    Script Date: 14/12/00 12:25:11 ******/
/****** Object:  Trigger dbo.lineapla_d    Script Date: 26/9/00 13:23:25 ******/
/****** Object:  Trigger dbo.lineapla_d    Script Date: 26/6/00 14:57:04 ******/
/****** Object:  Trigger dbo.lineapla_d    Script Date: 26/6/00 9:03:33 ******/
/****** Object:  Trigger dbo.lineapla_d    Script Date: 24/3/2000 10:08:31 ******/
/****** Object:  Trigger dbo.lineapla_d    Script Date: 23/3/2000 15:31:29 ******/
/****** Object:  Trigger dbo.lineapla_d    Script Date: 23/3/2000 11:25:18 ******/
/****** Object:  Trigger dbo.lineapla_d    Script Date: 16/3/2000 12:08:29 ******/
/****** Object:  Trigger dbo.lineapla_d    Script Date: 2/3/2000 8:30:21 ******/
/****** Object:  Trigger dbo.lineapla_d    Script Date: 24/6/99 16:21:02 ******/
/****** Object:  Trigger dbo.lineapla_d    Script Date: 1/6/99 13:16:17 ******/
CREATE TRIGGER lineapla_d ON dbo.LINEAPLA
FOR DELETE
AS
DECLARE @empresa     CHAR(4)
DECLARE @serie         CHAR(2)

DECLARE @numero     FLOAT
DECLARE @raiz         CHAR(16)
DECLARE @talla         CHAR(2)
DECLARE @color         CHAR(2)
DECLARE @total_l     FLOAT
DECLARE @tipoiva    INT
DECLARE @cliente        CHAR(10)
DECLARE @fecha   DATETIME
DECLARE @suma1   FLOAT
DECLARE @suma2   FLOAT
DECLARE @suma3   FLOAT
DECLARE @suma4   FLOAT
DECLARE @recargo1   FLOAT
DECLARE @recargo2   FLOAT
DECLARE @recargo3   FLOAT
DECLARE @recargo4   FLOAT
DECLARE @dto1    FLOAT
DECLARE @dto2    FLOAT
DECLARE @dto3    FLOAT
DECLARE @dto4    FLOAT

DECLARE @base1   FLOAT
DECLARE @base2   FLOAT
DECLARE @base3   FLOAT
DECLARE @base4   FLOAT
DECLARE @iva1    FLOAT
DECLARE @iva2    FLOAT
DECLARE @iva3    FLOAT
DECLARE @iva4    FLOAT
DECLARE @re1    FLOAT
DECLARE @re2    FLOAT
DECLARE @re3    FLOAT
DECLARE @re4    FLOAT
DECLARE @dto_c   FLOAT
DECLARE @dto_p   FLOAT
DECLARE @dto_rec FLOAT
DECLARE @p_reten FLOAT
DECLARE @rec_fin FLOAT
DECLARE @en_euro BIT
DECLARE @total   FLOAT
DECLARE @imp_ret FLOAT
DECLARE @importe FLOAT
DECLARE @codigo  CHAR(10)
DECLARE @tipo    CHAR(1)
DECLARE @tabla   FLOAT
DECLARE @cantidad FLOAT
DECLARE @almacen CHAR(4)
DECLARE @albaran FLOAT
DECLARE @PLANTILL FLOAT
DECLARE @linea INT
SELECT @empresa = empresa, @serie = serie, @numero = numero,
        @raiz = raiz, @talla = talla, @color = color, @total_l = total_l
    FROM DELETED
SELECT @codigo = cliente, @importe=-total,
     @dto_c=dto_c,@dto_p=dto_p,@dto_rec=dto_rec,@fecha=fecha,
     @suma1=suma1,@suma2=suma2,@suma3=suma3,@suma4=suma4,
     @recargo1=recargo1,@recargo2=recargo2,@recargo3=recargo3,@recargo4=recargo4,
     @p_reten = p_reten, @rec_fin=rec_fin, @en_euro = en_euro
    FROM PLANTILL
    WHERE empresa=@empresa AND serie=@serie AND numero=@numero
SELECT @tipoiva = (SELECT tipo_iva FROM articulo
            WHERE empresa = @empresa AND raiz = @raiz AND talla = @talla AND color = @color)
IF @tipoiva = 1
    SELECT @suma1=@suma1-@total_l
IF @tipoiva = 2
    SELECT @suma2=@suma2-@total_l
IF @tipoiva = 3
    SELECT @suma3=@suma3-@total_l
IF @tipoiva = 4
    SELECT @suma4=@suma4-@total_l
/* ------------------ CALCULAR --------------------*/
EXEC sp_xxx_calcular @empresa,@serie,@codigo,@fecha,
    @dto_c,@dto_p,@dto_rec,
    @suma1,@suma2,@suma3,@suma4,
    @recargo1,@recargo2,@recargo3,@recargo4, @p_reten, @rec_fin, @en_euro,
    @dto1 OUTPUT,@dto2 OUTPUT,@dto3 OUTPUT,@dto4 OUTPUT,
    @base1 OUTPUT,@base2 OUTPUT,@base3 OUTPUT,@base4 OUTPUT,
    @iva1 OUTPUT,@iva2 OUTPUT,@iva3 OUTPUT,@iva4 OUTPUT,
    @re1 OUTPUT,@re2 OUTPUT,@re3 OUTPUT,@re4 OUTPUT, @imp_ret OUTPUT, @total OUTPUT
UPDATE PLANTILL SET suma1=@suma1,suma2=@suma2,suma3=@suma3, suma4=@suma4,
     dto1=@dto1,dto2=@dto2,dto3=@dto3,dto4=@dto4,
     base1=@base1,base2=@base2,base3=@base3,base4=@base4,
     iva1=@iva1,iva2=@iva2,iva3=@iva3,iva4=@iva4,
     re1=@re1,re2=@re2,re3=@re3,re4=@re4, imp_ret = @imp_ret, total = @total
    WHERE empresa=@empresa AND serie=@serie AND numero=@numero










GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO










/****** Object:  Trigger dbo.lineapla_i    Script Date: 23/3/01 12:32:15 ******/
/****** Object:  Trigger dbo.lineapla_i    Script Date: 14/12/00 12:25:11 ******/
/****** Object:  Trigger dbo.lineapla_i    Script Date: 26/9/00 13:23:25 ******/
/****** Object:  Trigger dbo.lineapla_i    Script Date: 26/6/00 14:57:04 ******/
/****** Object:  Trigger dbo.lineapla_i    Script Date: 26/6/00 9:03:33 ******/
/****** Object:  Trigger dbo.lineapla_i    Script Date: 24/3/2000 10:08:31 ******/
/****** Object:  Trigger dbo.lineapla_i    Script Date: 23/3/2000 15:31:29 ******/
/****** Object:  Trigger dbo.lineapla_i    Script Date: 23/3/2000 11:25:18 ******/
/****** Object:  Trigger dbo.lineapla_i    Script Date: 16/3/2000 12:08:29 ******/
/****** Object:  Trigger dbo.lineapla_i    Script Date: 2/3/2000 8:30:21 ******/
/****** Object:  Trigger dbo.lineapla_i    Script Date: 24/6/99 16:21:02 ******/
/****** Object:  Trigger dbo.lineapla_i    Script Date: 1/6/99 13:16:17 ******/
CREATE TRIGGER lineapla_i ON dbo.LINEAPLA
FOR INSERT
AS
DECLARE @empresa     CHAR(4)
DECLARE @serie         CHAR(2)

DECLARE @numero     FLOAT
DECLARE @raiz         CHAR(16)
DECLARE @talla         CHAR(2)
DECLARE @color         CHAR(2)
DECLARE @total_l     FLOAT
DECLARE @tipoiva    INT
DECLARE @cliente        CHAR(10)
DECLARE @fecha   DATETIME
DECLARE @suma1   FLOAT
DECLARE @suma2   FLOAT
DECLARE @suma3   FLOAT
DECLARE @suma4   FLOAT
DECLARE @recargo1   FLOAT
DECLARE @recargo2   FLOAT
DECLARE @recargo3   FLOAT
DECLARE @recargo4   FLOAT
DECLARE @dto1    FLOAT
DECLARE @dto2    FLOAT
DECLARE @dto3    FLOAT
DECLARE @dto4    FLOAT

DECLARE @base1   FLOAT
DECLARE @base2   FLOAT
DECLARE @base3   FLOAT
DECLARE @base4   FLOAT
DECLARE @iva1    FLOAT
DECLARE @iva2    FLOAT
DECLARE @iva3    FLOAT
DECLARE @iva4    FLOAT
DECLARE @re1    FLOAT
DECLARE @re2    FLOAT
DECLARE @re3    FLOAT
DECLARE @re4    FLOAT
DECLARE @dto_c   FLOAT
DECLARE @dto_p   FLOAT
DECLARE @dto_rec FLOAT
DECLARE @p_reten FLOAT
DECLARE @rec_fin FLOAT
DECLARE @en_euro BIT
DECLARE @total   FLOAT
DECLARE @imp_ret FLOAT
DECLARE @importe FLOAT
DECLARE @codigo  CHAR(10)
DECLARE @tipo    CHAR(1)
DECLARE @tabla   FLOAT
DECLARE @cantidad FLOAT
DECLARE @almacen CHAR(4)
DECLARE @albaran FLOAT
DECLARE @PLANTILL FLOAT
DECLARE @linea INT
SELECT @empresa = empresa, @serie = serie, @numero = numero,
     @raiz = raiz, @talla = talla, @color = color,
     @total_l = total_l
    FROM INSERTED
SELECT @codigo = cliente, @importe=-total,
     @dto_c=dto_c,@dto_p=dto_p,@dto_rec=dto_rec,@fecha=fecha,
     @suma1=suma1,@suma2=suma2,@suma3=suma3,@suma4=suma4,
     @recargo1=recargo1,@recargo2=recargo2,@recargo3=recargo3,@recargo4=recargo4,
     @p_reten = p_reten, @rec_fin=rec_fin, @en_euro = en_euro
    FROM PLANTILL
    WHERE empresa=@empresa AND serie=@serie AND numero=@numero
SELECT @tipoiva = (SELECT tipo_iva FROM articulo
            WHERE empresa = @empresa AND raiz = @raiz AND talla = @talla AND color = @color)
IF @tipoiva = 1
    SELECT @suma1=@suma1+@total_l
IF @tipoiva = 2
    SELECT @suma2=@suma2+@total_l
IF @tipoiva = 3
    SELECT @suma3=@suma3+@total_l
IF @tipoiva = 4
    SELECT @suma4=@suma4+@total_l
/* ------------------ CALCULAR --------------------*/
EXEC sp_xxx_calcular @empresa,@serie,@codigo,@fecha,
    @dto_c,@dto_p,@dto_rec,
    @suma1,@suma2,@suma3,@suma4,
    @recargo1,@recargo2,@recargo3,@recargo4, @p_reten, @rec_fin, @en_euro,
    @dto1 OUTPUT,@dto2 OUTPUT,@dto3 OUTPUT,@dto4 OUTPUT,
    @base1 OUTPUT,@base2 OUTPUT,@base3 OUTPUT,@base4 OUTPUT,
    @iva1 OUTPUT,@iva2 OUTPUT,@iva3 OUTPUT,@iva4 OUTPUT,
    @re1 OUTPUT,@re2 OUTPUT,@re3 OUTPUT,@re4 OUTPUT, @imp_ret OUTPUT, @total OUTPUT
UPDATE PLANTILL SET suma1=@suma1,suma2=@suma2,suma3=@suma3, suma4=@suma4,
     dto1=@dto1,dto2=@dto2,dto3=@dto3,dto4=@dto4,
     base1=@base1,base2=@base2,base3=@base3,base4=@base4,
     iva1=@iva1,iva2=@iva2,iva3=@iva3,iva4=@iva4,
     re1=@re1,re2=@re2,re3=@re3,re4=@re4, imp_ret = @imp_ret, total = @total
    WHERE empresa=@empresa AND serie=@serie AND numero=@numero










GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO










/****** Object:  Trigger dbo.LINEAPLA_u    Script Date: 23/3/01 12:32:15 ******/
/****** Object:  Trigger dbo.LINEAPLA_u    Script Date: 14/12/00 12:25:11 ******/
/****** Object:  Trigger dbo.LINEAPLA_u    Script Date: 26/9/00 13:23:25 ******/
/****** Object:  Trigger dbo.LINEAPLA_u    Script Date: 26/6/00 14:57:05 ******/
/****** Object:  Trigger dbo.LINEAPLA_u    Script Date: 26/6/00 9:03:34 ******/
/****** Object:  Trigger dbo.LINEAPLA_u    Script Date: 24/3/2000 10:08:31 ******/
/****** Object:  Trigger dbo.LINEAPLA_u    Script Date: 23/3/2000 15:31:29 ******/
/****** Object:  Trigger dbo.LINEAPLA_u    Script Date: 23/3/2000 11:25:18 ******/
/****** Object:  Trigger dbo.LINEAPLA_u    Script Date: 16/3/2000 12:08:29 ******/
/****** Object:  Trigger dbo.LINEAPLA_u    Script Date: 2/3/2000 8:30:21 ******/
/****** Object:  Trigger dbo.LINEAPLA_u    Script Date: 24/6/99 16:21:02 ******/
/****** Object:  Trigger dbo.LINEAPLA_u    Script Date: 1/6/99 13:16:17 ******/
CREATE TRIGGER LINEAPLA_u ON dbo.LINEAPLA
FOR UPDATE
AS
DECLARE @empresa     CHAR(4)
DECLARE @serie         CHAR(2)

DECLARE @numero     FLOAT
DECLARE @raiz         CHAR(16)
DECLARE @talla         CHAR(2)
DECLARE @color         CHAR(2)
DECLARE @total_l     FLOAT
DECLARE @tipoiva    INT
DECLARE @cliente  CHAR(10)
DECLARE @fecha   DATETIME
DECLARE @suma1   FLOAT
DECLARE @suma2   FLOAT
DECLARE @suma3   FLOAT
DECLARE @suma4   FLOAT
DECLARE @recargo1   FLOAT
DECLARE @recargo2   FLOAT
DECLARE @recargo3   FLOAT
DECLARE @recargo4   FLOAT
DECLARE @dto1    FLOAT
DECLARE @dto2    FLOAT
DECLARE @dto3    FLOAT
DECLARE @dto4    FLOAT
DECLARE @base1   FLOAT
DECLARE @base2   FLOAT
DECLARE @base3   FLOAT
DECLARE @base4   FLOAT
DECLARE @iva1    FLOAT
DECLARE @iva2    FLOAT
DECLARE @iva3    FLOAT
DECLARE @iva4    FLOAT
DECLARE @re1    FLOAT
DECLARE @re2    FLOAT
DECLARE @re3    FLOAT

DECLARE @re4    FLOAT
DECLARE @dto_c   FLOAT
DECLARE @dto_p   FLOAT
DECLARE @dto_rec FLOAT
DECLARE @p_reten FLOAT
DECLARE @rec_fin FLOAT
DECLARE @en_euro BIT
DECLARE @total   FLOAT
DECLARE @imp_ret FLOAT
DECLARE @importe FLOAT
DECLARE @codigo  CHAR(10)
DECLARE @tipo    CHAR(1)
DECLARE @tabla   FLOAT
DECLARE @cantidad FLOAT
DECLARE @almacen CHAR(4)
DECLARE @albaran FLOAT
DECLARE @PLANTILL FLOAT
DECLARE @linea INT
SELECT @empresa = empresa, @serie = serie, @numero = numero,
        @raiz = raiz, @talla = talla, @color = color,
        @total_l = total_l, @cantidad = -cantidad
    FROM DELETED
SELECT @codigo = cliente, @importe=-total,
     @dto_c=dto_c,@dto_p=dto_p,@dto_rec=dto_rec,@fecha=fecha,
     @suma1=suma1,@suma2=suma2,@suma3=suma3,@suma4=suma4,
     @recargo1=recargo1,@recargo2=recargo2,@recargo3=recargo3,@recargo4=recargo4,
     @p_reten = p_reten, @rec_fin=rec_fin, @en_euro = en_euro
    FROM PLANTILL
    WHERE empresa=@empresa AND serie=@serie AND numero=@numero
SELECT @tipoiva = (SELECT tipo_iva FROM articulo
            WHERE empresa = @empresa AND raiz = @raiz AND talla = @talla AND color = @color)
IF @tipoiva = 1
    SELECT @suma1=@suma1-@total_l
IF @tipoiva = 2
    SELECT @suma2=@suma2-@total_l
IF @tipoiva = 3
    SELECT @suma3=@suma3-@total_l
IF @tipoiva = 4
    SELECT @suma4=@suma4-@total_l
/***************************************
*** IMPUTAR LO NUEVO *******************
***************************************/
SELECT @empresa = empresa, @serie = serie, @numero = numero,
     @raiz = raiz, @talla = talla, @color = color,
     @cantidad = cantidad, @total_l = total_l
    FROM INSERTED
SELECT @tipoiva = (SELECT tipo_iva FROM articulo
            WHERE empresa = @empresa AND raiz = @raiz AND talla = @talla AND color = @color)
IF @tipoiva = 1
    SELECT @suma1=@suma1+@total_l
IF @tipoiva = 2
    SELECT @suma2=@suma2+@total_l
IF @tipoiva = 3
    SELECT @suma3=@suma3+@total_l
IF @tipoiva = 4
    SELECT @suma4=@suma4+@total_l
/* ------------------ CALCULAR --------------------*/
EXEC sp_xxx_calcular @empresa,@serie,@codigo,@fecha,
    @dto_c,@dto_p,@dto_rec,
    @suma1,@suma2,@suma3,@suma4,
    @recargo1,@recargo2,@recargo3,@recargo4, @p_reten, @rec_fin, @en_euro,
    @dto1 OUTPUT,@dto2 OUTPUT,@dto3 OUTPUT,@dto4 OUTPUT,
    @base1 OUTPUT,@base2 OUTPUT,@base3 OUTPUT,@base4 OUTPUT,
    @iva1 OUTPUT,@iva2 OUTPUT,@iva3 OUTPUT,@iva4 OUTPUT,
    @re1 OUTPUT,@re2 OUTPUT,@re3 OUTPUT,@re4 OUTPUT, @imp_ret OUTPUT, @total OUTPUT
UPDATE PLANTILL SET suma1=@suma1,suma2=@suma2,suma3=@suma3, suma4=@suma4,
     dto1=@dto1,dto2=@dto2,dto3=@dto3,dto4=@dto4,
     base1=@base1,base2=@base2,base3=@base3,base4=@base4,
     iva1=@iva1,iva2=@iva2,iva3=@iva3,iva4=@iva4,
     re1=@re1,re2=@re2,re3=@re3,re4=@re4, imp_ret = @imp_ret, total = @total
    WHERE empresa=@empresa AND serie=@serie AND numero=@numero










GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO










/****** Object:  Trigger dbo.linsal_d    Script Date: 23/3/01 12:32:15 ******/
/****** Object:  Trigger dbo.linsal_d    Script Date: 14/12/00 12:25:14 ******/
/****** Object:  Trigger dbo.linsal_d    Script Date: 26/9/00 13:23:25 ******/
/****** Object:  Trigger dbo.linsal_d    Script Date: 26/6/00 14:57:09 ******/
/****** Object:  Trigger dbo.linsal_d    Script Date: 26/6/00 9:03:37 ******/
/****** Object:  Trigger dbo.linsal_d    Script Date: 24/3/2000 10:08:32 ******/
/****** Object:  Trigger dbo.linsal_d    Script Date: 23/3/2000 15:31:30 ******/
/****** Object:  Trigger dbo.linsal_d    Script Date: 23/3/2000 11:25:18 ******/
/****** Object:  Trigger dbo.linsal_d    Script Date: 16/3/2000 12:08:29 ******/
/****** Object:  Trigger dbo.linsal_d    Script Date: 2/3/2000 8:30:21 ******/
/****** Object:  Trigger dbo.linsal_d    Script Date: 24/6/99 16:21:02 ******/
/****** Object:  Trigger dbo.linsal_d    Script Date: 1/6/99 13:16:17 ******/
CREATE TRIGGER linsal_d ON dbo.LINSAL
FOR DELETE
AS
DECLARE @empresa CHAR(4)
DECLARE @raiz CHAR(16)
DECLARE @talla CHAR(2)
DECLARE @color CHAR(2)
DECLARE @cantidad FLOAT
DECLARE @precio FLOAT
DECLARE @totall FLOAT
DECLARE @numero FLOAT
DECLARE @almacen CHAR(4)
DECLARE @en_euro BIT
SELECT @empresa = empresa, @numero = numero, @raiz = raiz, @talla = talla, @color = color,

        @cantidad = -cantidad, @precio = precio, @almacen = almacen, @en_euro = en_euro
    FROM DELETED
SELECT @totall = (@precio * @cantidad)
IF (SELECT es    FROM salidas WHERE empresa = @empresa AND numero = @numero) = 'E'
    EXECUTE sp_xxx_entra_stock
        @raiz, @talla, @color,
        @almacen, @empresa,
        @cantidad, @totall, @en_euro, 0, '', @precio
ELSE
    EXECUTE sp_xxx_stock @empresa, @raiz, @talla, @color, @cantidad, @almacen
UPDATE salidas SET total = total + @precio * @cantidad
    WHERE empresa = @empresa AND numero = @numero










GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO










/****** Object:  Trigger dbo.linsal_i    Script Date: 23/3/01 12:32:15 ******/
/****** Object:  Trigger dbo.linsal_i    Script Date: 14/12/00 12:25:14 ******/
/****** Object:  Trigger dbo.linsal_i    Script Date: 26/9/00 13:23:25 ******/
/****** Object:  Trigger dbo.linsal_i    Script Date: 26/6/00 14:57:09 ******/
/****** Object:  Trigger dbo.linsal_i    Script Date: 26/6/00 9:03:37 ******/
/****** Object:  Trigger dbo.linsal_i    Script Date: 24/3/2000 10:08:32 ******/
/****** Object:  Trigger dbo.linsal_i    Script Date: 23/3/2000 15:31:30 ******/
/****** Object:  Trigger dbo.linsal_i    Script Date: 23/3/2000 11:25:18 ******/
/****** Object:  Trigger dbo.linsal_i    Script Date: 16/3/2000 12:08:29 ******/
/****** Object:  Trigger dbo.linsal_i    Script Date: 2/3/2000 8:30:21 ******/
/****** Object:  Trigger dbo.linsal_i    Script Date: 24/6/99 16:21:02 ******/
/****** Object:  Trigger dbo.linsal_i    Script Date: 1/6/99 13:16:17 ******/
CREATE TRIGGER linsal_i ON dbo.LINSAL
FOR INSERT
AS
DECLARE @empresa CHAR(4)
DECLARE @raiz CHAR(16)
DECLARE @talla CHAR(2)
DECLARE @color CHAR(2)
DECLARE @cantidad FLOAT
DECLARE @precio FLOAT
DECLARE @totall FLOAT
DECLARE @numero FLOAT
DECLARE @almacen CHAR(4)
DECLARE @en_euro BIT
DECLARE @es CHAR(1)
SELECT @empresa = empresa, @numero = numero, @raiz = raiz, @talla = talla, @color = color,
        @cantidad = cantidad, @precio = precio, @almacen = almacen, @en_euro = en_euro
    FROM INSERTED
SELECT @totall = @precio * @cantidad
IF (SELECT es    FROM salidas WHERE empresa = @empresa AND numero = @numero) = 'E'
    EXECUTE sp_xxx_entra_stock
        @raiz, @talla, @color,
        @almacen, @empresa,
        @cantidad, @totall, @en_euro, 0, '', @precio
ELSE
    EXECUTE sp_xxx_stock @empresa, @raiz, @talla, @color, @cantidad, @almacen
UPDATE salidas SET total = total + @precio * @cantidad
    WHERE empresa = @empresa AND numero = @numero










GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO










/****** Object:  Trigger dbo.linsal_u    Script Date: 23/3/01 12:32:15 ******/
/****** Object:  Trigger dbo.linsal_u    Script Date: 14/12/00 12:25:14 ******/
/****** Object:  Trigger dbo.linsal_u    Script Date: 26/9/00 13:23:25 ******/
/****** Object:  Trigger dbo.linsal_u    Script Date: 26/6/00 14:57:09 ******/
/****** Object:  Trigger dbo.linsal_u    Script Date: 26/6/00 9:03:37 ******/
/****** Object:  Trigger dbo.linsal_u    Script Date: 24/3/2000 10:08:32 ******/
/****** Object:  Trigger dbo.linsal_u    Script Date: 23/3/2000 15:31:30 ******/
/****** Object:  Trigger dbo.linsal_u    Script Date: 23/3/2000 11:25:18 ******/
/****** Object:  Trigger dbo.linsal_u    Script Date: 16/3/2000 12:08:29 ******/
/****** Object:  Trigger dbo.linsal_u    Script Date: 2/3/2000 8:30:21 ******/
/****** Object:  Trigger dbo.linsal_u    Script Date: 24/6/99 16:21:02 ******/
/****** Object:  Trigger dbo.linsal_u    Script Date: 1/6/99 13:16:17 ******/
CREATE TRIGGER linsal_u ON dbo.LINSAL
FOR UPDATE
AS
DECLARE @empresa CHAR(4)
DECLARE @raiz CHAR(16)
DECLARE @talla CHAR(2)
DECLARE @color CHAR(2)
DECLARE @cantidad FLOAT
DECLARE @precio FLOAT
DECLARE @totall FLOAT
DECLARE @numero FLOAT
DECLARE @almacen CHAR(4)
DECLARE @en_euro BIT
SELECT @empresa = empresa, @numero = numero, @raiz = raiz, @talla = talla, @color = color,

        @cantidad = -cantidad, @precio = precio, @almacen = almacen, @en_euro = en_euro
    FROM DELETED
SELECT @totall = (@precio * @cantidad)
IF (SELECT es    FROM salidas WHERE empresa = @empresa AND numero = @numero) = 'E'
    EXECUTE sp_xxx_entra_stock
        @raiz, @talla, @color,
        @almacen, @empresa,
        @cantidad, @totall, @en_euro, 0, '', @precio
ELSE
    EXECUTE sp_xxx_stock @empresa, @raiz, @talla, @color, @cantidad, @almacen
UPDATE salidas SET total = total + @precio * @cantidad
    WHERE empresa = @empresa AND numero = @numero
/****************/
SELECT @empresa = empresa, @numero = numero, @raiz = raiz, @talla = talla, @color = color,
        @cantidad = cantidad, @precio = precio, @almacen = almacen, @en_euro = en_euro
    FROM INSERTED
SELECT @totall = @precio * @cantidad
IF (SELECT es    FROM salidas WHERE empresa = @empresa AND numero = @numero) = 'E'
    EXECUTE sp_xxx_entra_stock
        @raiz, @talla, @color,
        @almacen, @empresa,
        @cantidad, @totall, @en_euro, 0, '', @precio
ELSE
    EXECUTE sp_xxx_stock @empresa, @raiz, @talla, @color, @cantidad, @almacen
UPDATE salidas SET total = total + @precio * @cantidad
    WHERE empresa = @empresa AND numero = @numero










GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO






/****** Object:  Trigger dbo.lmovimi_d    Script Date: 18/5/01 12:58:22 ******/
/****** Object:  Trigger dbo.lmovimi_d    Script Date: 3/5/01 9:24:50 ******/
/****** Object:  Trigger dbo.lmovimi_d    Script Date: 19/2/01 11:30:26 ******/
/****** Object:  Trigger dbo.lmovimi_d    Script Date: 14/12/00 12:25:14 ******/
/****** Object:  Trigger dbo.lmovimi_d    Script Date: 26/9/00 13:23:25 ******/
/****** Object:  Trigger dbo.lmovimi_d    Script Date: 26/6/00 14:57:09 ******/
/****** Object:  Trigger dbo.lmovimi_d    Script Date: 26/6/00 9:03:37 ******/
/****** Object:  Trigger dbo.lmovimi_d    Script Date: 24/3/2000 10:08:32 ******/
/****** Object:  Trigger dbo.lmovimi_d    Script Date: 23/3/2000 15:31:30 ******/
/****** Object:  Trigger dbo.lmovimi_d    Script Date: 23/3/2000 11:25:18 ******/
/****** Object:  Trigger dbo.lmovimi_d    Script Date: 16/3/2000 12:08:29 ******/
/****** Object:  Trigger dbo.lmovimi_d    Script Date: 2/3/2000 8:30:21 ******/
/****** Object:  Trigger dbo.lmovimi_d    Script Date: 24/6/99 16:21:02 ******/
/****** Object:  Trigger dbo.lmovimi_d    Script Date: 1/6/99 13:16:17 ******/
CREATE TRIGGER lmovimi_d ON dbo.LMOVIMI
FOR DELETE
AS
DECLARE @empresa CHAR(4)
DECLARE @raiz CHAR(16)
DECLARE @talla CHAR(2)
DECLARE @color CHAR(2)
DECLARE @cantidad FLOAT
DECLARE @cantidad2 FLOAT
DECLARE @numero INT
DECLARE @almacen1 CHAR(4)
DECLARE @almacen2 CHAR(4)
SELECT @empresa = empresa, @numero = numero, @raiz = raiz, @talla = talla, @color = color,
        @cantidad = cantidad, @cantidad2 = -cantidad
    FROM DELETED
SELECT @almacen1 = almacen1, @almacen2 = almacen2
    FROM movimi
    WHERE empresa = @empresa AND numero = @numero
/* */
EXECUTE sp_xxx_stock @empresa, @raiz, @talla, @color, @cantidad2, @almacen1
EXECUTE sp_xxx_stock @empresa, @raiz, @talla, @color, @cantidad, @almacen2








GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO






/****** Object:  Trigger dbo.lmovimi_i    Script Date: 18/5/01 12:58:22 ******/
/****** Object:  Trigger dbo.lmovimi_i    Script Date: 3/5/01 9:24:50 ******/
/****** Object:  Trigger dbo.lmovimi_i    Script Date: 19/2/01 11:30:26 ******/
/****** Object:  Trigger dbo.lmovimi_i    Script Date: 14/12/00 12:25:14 ******/
/****** Object:  Trigger dbo.lmovimi_i    Script Date: 26/9/00 13:23:25 ******/
/****** Object:  Trigger dbo.lmovimi_i    Script Date: 26/6/00 14:57:10 ******/
/****** Object:  Trigger dbo.lmovimi_i    Script Date: 26/6/00 9:03:37 ******/
/****** Object:  Trigger dbo.lmovimi_i    Script Date: 24/3/2000 10:08:32 ******/
/****** Object:  Trigger dbo.lmovimi_i    Script Date: 23/3/2000 15:31:30 ******/
/****** Object:  Trigger dbo.lmovimi_i    Script Date: 23/3/2000 11:25:18 ******/
/****** Object:  Trigger dbo.lmovimi_i    Script Date: 16/3/2000 12:08:29 ******/
/****** Object:  Trigger dbo.lmovimi_i    Script Date: 2/3/2000 8:30:21 ******/
/****** Object:  Trigger dbo.lmovimi_i    Script Date: 24/6/99 16:21:02 ******/
/****** Object:  Trigger dbo.lmovimi_i    Script Date: 1/6/99 13:16:17 ******/
CREATE TRIGGER lmovimi_i ON dbo.LMOVIMI
FOR INSERT
AS
DECLARE @empresa CHAR(4)
DECLARE @raiz CHAR(16)
DECLARE @talla CHAR(2)
DECLARE @color CHAR(2)
DECLARE @cantidad FLOAT
DECLARE @cantidad2 FLOAT
DECLARE @numero INT
DECLARE @almacen1 CHAR(4)
DECLARE @almacen2 CHAR(4)
SELECT @empresa = empresa, @numero = numero, @raiz = raiz, @talla = talla, @color = color,
        @cantidad = cantidad, @cantidad2 = -cantidad
    FROM INSERTED
SELECT @almacen1 = almacen1, @almacen2 = almacen2
    FROM movimi
    WHERE empresa = @empresa AND numero = @numero
/* */
EXECUTE sp_xxx_stock @empresa, @raiz, @talla, @color, @cantidad, @almacen1
EXECUTE sp_xxx_stock @empresa, @raiz, @talla, @color, @cantidad2, @almacen2








GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO






/****** Object:  Trigger dbo.lmovimi_u    Script Date: 18/5/01 12:58:22 ******/
/****** Object:  Trigger dbo.lmovimi_u    Script Date: 3/5/01 9:24:50 ******/
/****** Object:  Trigger dbo.lmovimi_u    Script Date: 19/2/01 11:30:26 ******/
/****** Object:  Trigger dbo.lmovimi_u    Script Date: 14/12/00 12:25:14 ******/
/****** Object:  Trigger dbo.lmovimi_u    Script Date: 26/9/00 13:23:25 ******/
/****** Object:  Trigger dbo.lmovimi_u    Script Date: 26/6/00 14:57:10 ******/
/****** Object:  Trigger dbo.lmovimi_u    Script Date: 26/6/00 9:03:37 ******/
/****** Object:  Trigger dbo.lmovimi_u    Script Date: 24/3/2000 10:08:32 ******/
/****** Object:  Trigger dbo.lmovimi_u    Script Date: 23/3/2000 15:31:30 ******/
/****** Object:  Trigger dbo.lmovimi_u    Script Date: 23/3/2000 11:25:18 ******/
/****** Object:  Trigger dbo.lmovimi_u    Script Date: 16/3/2000 12:08:29 ******/
/****** Object:  Trigger dbo.lmovimi_u    Script Date: 2/3/2000 8:30:21 ******/
/****** Object:  Trigger dbo.lmovimi_u    Script Date: 24/6/99 16:21:02 ******/
/****** Object:  Trigger dbo.lmovimi_u    Script Date: 1/6/99 13:16:17 ******/
CREATE TRIGGER lmovimi_u ON dbo.LMOVIMI
FOR UPDATE
AS
DECLARE @empresa CHAR(4)
DECLARE @raiz CHAR(16)
DECLARE @talla CHAR(2)
DECLARE @color CHAR(2)
DECLARE @cantidad FLOAT
DECLARE @cantidad2 FLOAT
DECLARE @numero INT
DECLARE @almacen1 CHAR(4)
DECLARE @almacen2 CHAR(4)
SELECT @empresa = empresa, @numero = numero, @raiz = raiz, @talla = talla, @color = color,
        @cantidad = cantidad, @cantidad2 = -cantidad
    FROM DELETED
SELECT @almacen1 = almacen1, @almacen2 = almacen2
    FROM movimi
    WHERE empresa = @empresa AND numero = @numero
EXECUTE sp_xxx_stock @empresa, @raiz, @talla, @color, @cantidad2, @almacen1
EXECUTE sp_xxx_stock @empresa, @raiz, @talla, @color, @cantidad, @almacen2
/* --------------------------------- */
SELECT @empresa = empresa, @numero = numero, @raiz = raiz, @talla = talla, @color = color,
        @cantidad = cantidad, @cantidad2 = -cantidad
    FROM INSERTED
SELECT @almacen1 = almacen1, @almacen2 = almacen2
    FROM movimi
    WHERE empresa = @empresa AND numero = @numero
EXECUTE sp_xxx_stock @empresa, @raiz, @talla, @color, @cantidad, @almacen1
EXECUTE sp_xxx_stock @empresa, @raiz, @talla, @color, @cantidad2, @almacen2








GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO






/****** Object:  Trigger dbo.menulof_d    Script Date: 18/5/01 12:58:22 ******/
/****** Object:  Trigger dbo.menulof_d    Script Date: 3/5/01 9:24:50 ******/
/****** Object:  Trigger dbo.menulof_d    Script Date: 19/2/01 11:30:26 ******/
/****** Object:  Trigger dbo.menulof_d    Script Date: 14/12/00 12:25:14 ******/
/****** Object:  Trigger dbo.menulof_d    Script Date: 26/9/00 13:23:25 ******/
/****** Object:  Trigger dbo.menulof_d    Script Date: 26/6/00 14:57:10 ******/
/****** Object:  Trigger dbo.menulof_d    Script Date: 26/6/00 9:03:37 ******/
/****** Object:  Trigger dbo.menulof_d    Script Date: 24/3/2000 10:08:32 ******/
/****** Object:  Trigger dbo.menulof_d    Script Date: 23/3/2000 15:31:30 ******/
/****** Object:  Trigger dbo.menulof_d    Script Date: 23/3/2000 11:25:18 ******/
/****** Object:  Trigger dbo.menulof_d    Script Date: 16/3/2000 12:08:29 ******/
/****** Object:  Trigger dbo.menulof_d    Script Date: 2/3/2000 8:30:21 ******/
/****** Object:  Trigger dbo.menulof_d    Script Date: 24/6/99 16:21:02 ******/
/****** Object:  Trigger dbo.menulof_d    Script Date: 1/6/99 13:16:17 ******/
CREATE TRIGGER menulof_d ON dbo.MENULOF

FOR DELETE
AS
DECLARE @empresa CHAR(4)
DECLARE @numero FLOAT
DECLARE @estado CHAR(1)
DECLARE @almacen CHAR(4)
DECLARE @raiz CHAR(16)
DECLARE @talla CHAR(2)
DECLARE @color CHAR(2)
DECLARE @raizc CHAR(16)
DECLARE @tallac CHAR(2)
DECLARE @colorc CHAR(2)
DECLARE @cantidad FLOAT
DECLARE @precio FLOAT
DECLARE @totall FLOAT
DECLARE @en_euro BIT
SELECT @empresa = empresa, @numero = numero, @raizc = raizc, @tallac = tallac, @colorc = colorc,
        @cantidad = -cantidad2
    FROM DELETED
SELECT @estado = estado, @almacen = almacen FROM menuof WHERE empresa = @empresa AND numero = @numero
IF @estado = 'X'
    EXECUTE sp_xxx_stock @empresa, @raizc, @tallac, @colorc, @cantidad, @almacen








GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO






/****** Object:  Trigger dbo.menulof_i    Script Date: 18/5/01 12:58:22 ******/
/****** Object:  Trigger dbo.menulof_i    Script Date: 3/5/01 9:24:50 ******/
/****** Object:  Trigger dbo.menulof_i    Script Date: 19/2/01 11:30:26 ******/
/****** Object:  Trigger dbo.menulof_i    Script Date: 14/12/00 12:25:14 ******/
/****** Object:  Trigger dbo.menulof_i    Script Date: 26/9/00 13:23:25 ******/
/****** Object:  Trigger dbo.menulof_i    Script Date: 26/6/00 14:57:10 ******/
/****** Object:  Trigger dbo.menulof_i    Script Date: 26/6/00 9:03:37 ******/
/****** Object:  Trigger dbo.menulof_i    Script Date: 24/3/2000 10:08:32 ******/
/****** Object:  Trigger dbo.menulof_i    Script Date: 23/3/2000 15:31:30 ******/
/****** Object:  Trigger dbo.menulof_i    Script Date: 23/3/2000 11:25:18 ******/
/****** Object:  Trigger dbo.menulof_i    Script Date: 16/3/2000 12:08:29 ******/
/****** Object:  Trigger dbo.menulof_i    Script Date: 2/3/2000 8:30:21 ******/
/****** Object:  Trigger dbo.menulof_i    Script Date: 24/6/99 16:21:02 ******/
/****** Object:  Trigger dbo.menulof_i    Script Date: 1/6/99 13:16:17 ******/
CREATE TRIGGER menulof_i ON dbo.MENULOF

FOR INSERT
AS
DECLARE @empresa CHAR(4)
DECLARE @numero FLOAT
DECLARE @estado CHAR(1)
DECLARE @almacen CHAR(4)
DECLARE @raiz CHAR(16)
DECLARE @talla CHAR(2)
DECLARE @color CHAR(2)
DECLARE @raizc CHAR(16)
DECLARE @tallac CHAR(2)
DECLARE @colorc CHAR(2)
DECLARE @cantidad FLOAT
DECLARE @precio FLOAT
DECLARE @totall FLOAT
DECLARE @en_euro BIT
SELECT @empresa = empresa, @numero = numero, @raizc = raizc, @tallac = tallac, @colorc = colorc,
        @cantidad = cantidad2
    FROM INSERTED
SELECT @estado = estado, @almacen = almacen FROM menuof WHERE empresa = @empresa AND numero = @numero
IF @estado = 'X'
    EXECUTE sp_xxx_stock @empresa, @raizc, @tallac, @colorc, @cantidad, @almacen








GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO






/****** Object:  Trigger dbo.menulof_u    Script Date: 18/5/01 12:58:22 ******/
/****** Object:  Trigger dbo.menulof_u    Script Date: 3/5/01 9:24:50 ******/
/****** Object:  Trigger dbo.menulof_u    Script Date: 19/2/01 11:30:26 ******/
/****** Object:  Trigger dbo.menulof_u    Script Date: 14/12/00 12:25:14 ******/
/****** Object:  Trigger dbo.menulof_u    Script Date: 26/9/00 13:23:25 ******/
/****** Object:  Trigger dbo.menulof_u    Script Date: 26/6/00 14:57:10 ******/
/****** Object:  Trigger dbo.menulof_u    Script Date: 26/6/00 9:03:37 ******/
/****** Object:  Trigger dbo.menulof_u    Script Date: 24/3/2000 10:08:32 ******/
/****** Object:  Trigger dbo.menulof_u    Script Date: 23/3/2000 15:31:30 ******/
/****** Object:  Trigger dbo.menulof_u    Script Date: 23/3/2000 11:25:18 ******/
/****** Object:  Trigger dbo.menulof_u    Script Date: 16/3/2000 12:08:29 ******/
/****** Object:  Trigger dbo.menulof_u    Script Date: 2/3/2000 8:30:21 ******/
/****** Object:  Trigger dbo.menulof_u    Script Date: 24/6/99 16:21:02 ******/
/****** Object:  Trigger dbo.menulof_u    Script Date: 1/6/99 13:16:17 ******/
CREATE TRIGGER menulof_u ON dbo.MENULOF

FOR UPDATE
AS
DECLARE @empresa CHAR(4)
DECLARE @numero FLOAT
DECLARE @estado CHAR(1)
DECLARE @almacen CHAR(4)
DECLARE @raiz CHAR(16)
DECLARE @talla CHAR(2)
DECLARE @color CHAR(2)
DECLARE @raizc CHAR(16)
DECLARE @tallac CHAR(2)
DECLARE @colorc CHAR(2)
DECLARE @cantidad FLOAT
DECLARE @precio FLOAT
DECLARE @totall FLOAT
DECLARE @en_euro BIT
SELECT @empresa = empresa, @numero = numero, @raizc = raizc, @tallac = tallac, @colorc = colorc,
        @cantidad = -cantidad2
    FROM DELETED
/*SELECT @totall = (@precio * @cantidad)*/
SELECT @estado = estado, @almacen = almacen FROM menuof WHERE empresa = @empresa AND numero = @numero
IF @estado = 'X'
    EXECUTE sp_xxx_stock @empresa, @raizc, @tallac, @colorc, @cantidad, @almacen
/****************/
SELECT @empresa = empresa, @numero = numero, @raizc = raizc, @tallac = tallac, @colorc = colorc,
        @cantidad = cantidad2
    FROM INSERTED
IF @estado = 'X'
    EXECUTE sp_xxx_stock @empresa, @raizc, @tallac, @colorc, @cantidad, @almacen








GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO






/****** Object:  Trigger dbo.menuof_u    Script Date: 18/5/01 12:58:22 ******/
/****** Object:  Trigger dbo.menuof_u    Script Date: 3/5/01 9:24:50 ******/
/****** Object:  Trigger dbo.menuof_u    Script Date: 19/2/01 11:30:26 ******/
/****** Object:  Trigger dbo.menuof_u    Script Date: 14/12/00 12:25:14 ******/
/****** Object:  Trigger dbo.menuof_u    Script Date: 26/9/00 13:23:25 ******/
/****** Object:  Trigger dbo.menuof_u    Script Date: 26/6/00 14:57:10 ******/
/****** Object:  Trigger dbo.menuof_u    Script Date: 26/6/00 9:03:37 ******/
/****** Object:  Trigger dbo.menuof_u    Script Date: 24/3/2000 10:08:32 ******/
/****** Object:  Trigger dbo.menuof_u    Script Date: 23/3/2000 15:31:30 ******/
/****** Object:  Trigger dbo.menuof_u    Script Date: 23/3/2000 11:25:18 ******/
/****** Object:  Trigger dbo.menuof_u    Script Date: 16/3/2000 12:08:29 ******/
/****** Object:  Trigger dbo.menuof_u    Script Date: 2/3/2000 8:30:21 ******/
/****** Object:  Trigger dbo.menuof_u    Script Date: 24/6/99 16:21:02 ******/
/****** Object:  Trigger dbo.menuof_u    Script Date: 1/6/99 13:16:17 ******/
CREATE TRIGGER menuof_u ON dbo.MENUOF
FOR UPDATE
AS
DECLARE @empresa CHAR(4)
DECLARE @emp CHAR(4)
DECLARE @raiz CHAR(16)
DECLARE @talla CHAR(2)
DECLARE @color CHAR(2)
DECLARE @cantidad FLOAT
DECLARE @cantidad2 FLOAT
DECLARE @numero FLOAT
DECLARE @numeroC FLOAT
DECLARE @lineaC FLOAT
DECLARE @almacen CHAR(4)
DECLARE @estado CHAR(1)
DECLARE @estadoI CHAR(1)
DECLARE @fabricar BIT
SELECT @empresa = empresa, @numero = numero, @almacen = almacen, @estado = estado
    FROM DELETED
SELECT @empresa = empresa, @numero = numero, @estadoI = estado
    FROM INSERTED
SELECT @fabricar=0
IF @estado='' AND @estadoI='X'
    SELECT @fabricar=1
/*
SELECT @ESTADO,@ESTADOI,@FABRICAR
*/
IF @estado <> @estadoI
    BEGIN
    DECLARE cLineas CURSOR FOR SELECT empresa, numero, linea, cantidad2, raizc, tallac, colorc
                    FROM menulof WHERE empresa = @empresa AND numero = @numero
    OPEN cLineas
    FETCH NEXT FROM cLineas INTO @emp, @numeroC, @lineaC, @cantidad, @raiz, @talla, @color
    SELECT @cantidad2 = -@cantidad
    WHILE (@@fetch_status <> -1)
        BEGIN
        IF (@@fetch_status <> -2)
            BEGIN
            IF @fabricar = 0
                BEGIN
                EXECUTE sp_xxx_stock @empresa, @raiz, @talla, @color, @cantidad2, @almacen
/*
SELECT 'AAAA',@RAIZ,@CANTIDAD2
*/
                END
            ELSE
                BEGIN
                EXECUTE sp_xxx_stock @empresa, @raiz, @talla, @color, @cantidad, @almacen
/*
SELECT 'BBBB',@RAIZ,@CANTIDAD
*/
                END
            END
        FETCH NEXT FROM cLineas INTO @emp, @numeroC, @lineaC, @cantidad, @raiz, @talla, @color
        SELECT @cantidad2 = -@cantidad
        END
    CLOSE cLineas
    DEALLOCATE cLineas
    END








GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO






/****** Object:  Trigger dbo.movimi_u    Script Date: 18/5/01 12:58:22 ******/
/****** Object:  Trigger dbo.movimi_u    Script Date: 3/5/01 9:24:50 ******/
/****** Object:  Trigger dbo.movimi_u    Script Date: 19/2/01 11:30:26 ******/
/****** Object:  Trigger dbo.movimi_u    Script Date: 14/12/00 12:25:14 ******/
/****** Object:  Trigger dbo.movimi_u    Script Date: 26/9/00 13:23:29 ******/
/****** Object:  Trigger dbo.movimi_u    Script Date: 26/6/00 14:57:10 ******/
/****** Object:  Trigger dbo.movimi_u    Script Date: 26/6/00 9:03:37 ******/
/****** Object:  Trigger dbo.movimi_u    Script Date: 24/3/2000 10:08:32 ******/
/****** Object:  Trigger dbo.movimi_u    Script Date: 23/3/2000 15:31:30 ******/
/****** Object:  Trigger dbo.movimi_u    Script Date: 23/3/2000 11:25:18 ******/
/****** Object:  Trigger dbo.movimi_u    Script Date: 16/3/2000 12:08:29 ******/
/****** Object:  Trigger dbo.movimi_u    Script Date: 2/3/2000 8:30:21 ******/
/****** Object:  Trigger dbo.movimi_u    Script Date: 24/6/99 16:21:02 ******/
/****** Object:  Trigger dbo.movimi_u    Script Date: 1/6/99 13:16:17 ******/
CREATE TRIGGER movimi_u ON dbo.MOVIMI
FOR UPDATE
AS
DECLARE @empresa CHAR(4)
DECLARE @emp CHAR(4)
DECLARE @raiz CHAR(16)
DECLARE @talla CHAR(2)
DECLARE @color CHAR(2)
DECLARE @cantidad FLOAT
DECLARE @cantidad2 FLOAT
DECLARE @numero FLOAT
DECLARE @numeroC FLOAT
DECLARE @lineaC FLOAT
DECLARE @almacen1 CHAR(4)
DECLARE @almacen2 CHAR(4)
DECLARE @almacenI1 CHAR(4)
DECLARE @almacenI2 CHAR(4)
SELECT @empresa = empresa, @numero = numero, @almacen1 = almacen1, @almacen2 = almacen2
    FROM DELETED
SELECT @empresa = empresa, @numero = numero, @almacenI1 = almacen1, @almacenI2 = almacen2
    FROM INSERTED
DECLARE cLineas CURSOR FOR SELECT empresa, numero, linea, cantidad, raiz, talla, color
                FROM lmovimi WHERE empresa = @empresa AND numero = @numero
OPEN cLineas
FETCH NEXT FROM cLineas INTO @emp, @numeroC, @lineaC, @cantidad, @raiz, @talla, @color
SELECT @cantidad2 = -@cantidad
WHILE (@@fetch_status <> -1)
    BEGIN
        IF (@@fetch_status <> -2)
            BEGIN
                EXECUTE sp_xxx_stock @empresa, @raiz, @talla, @color, @cantidad2, @almacen1
                EXECUTE sp_xxx_stock @empresa, @raiz, @talla, @color, @cantidad, @almacen2
                EXECUTE sp_xxx_stock @empresa, @raiz, @talla, @color, @cantidad, @almacenI1
                EXECUTE sp_xxx_stock @empresa, @raiz, @talla, @color, @cantidad2, @almacenI2
            END
        FETCH NEXT FROM cLineas INTO @emp, @numeroC, @lineaC, @cantidad, @raiz, @talla, @color
        SELECT @cantidad2 = -@cantidad
    END
CLOSE cLineas
DEALLOCATE cLineas








GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO










/****** Object:  Trigger dbo.ofertas_i    Script Date: 23/3/01 12:32:15 ******/
/****** Object:  Trigger dbo.ofertas_i    Script Date: 14/12/00 12:25:11 ******/
/****** Object:  Trigger dbo.ofertas_i    Script Date: 26/9/00 13:23:29 ******/
/****** Object:  Trigger dbo.ofertas_i    Script Date: 26/6/00 14:57:05 ******/
/****** Object:  Trigger dbo.ofertas_i    Script Date: 26/6/00 9:03:34 ******/
/****** Object:  Trigger dbo.ofertas_i    Script Date: 24/3/2000 10:08:31 ******/
/****** Object:  Trigger dbo.ofertas_i    Script Date: 23/3/2000 15:31:29 ******/
/****** Object:  Trigger dbo.ofertas_i    Script Date: 23/3/2000 11:25:18 ******/
/****** Object:  Trigger dbo.ofertas_i    Script Date: 16/3/2000 12:08:29 ******/
/****** Object:  Trigger dbo.ofertas_i    Script Date: 2/3/2000 8:30:21 ******/
/****** Object:  Trigger dbo.ofertas_i    Script Date: 24/6/99 16:21:02 ******/
CREATE TRIGGER ofertas_i ON dbo.ofertas
FOR INSERT
AS
DECLARE @empresa CHAR(4)
DECLARE @serie   CHAR(2)
DECLARE @numero  FLOAT
DECLARE @fecha   DATETIME
DECLARE @suma1   FLOAT
DECLARE @suma2   FLOAT
DECLARE @suma3   FLOAT
DECLARE @suma4   FLOAT
DECLARE @recargo1   FLOAT
DECLARE @recargo2   FLOAT
DECLARE @recargo3   FLOAT
DECLARE @recargo4   FLOAT
DECLARE @dto1    FLOAT
DECLARE @dto2    FLOAT
DECLARE @dto3    FLOAT
DECLARE @dto4    FLOAT
DECLARE @base1   FLOAT
DECLARE @base2   FLOAT
DECLARE @base3   FLOAT
DECLARE @base4   FLOAT
DECLARE @iva1    FLOAT
DECLARE @iva2    FLOAT
DECLARE @iva3    FLOAT
DECLARE @iva4    FLOAT
DECLARE @re1    FLOAT
DECLARE @re2    FLOAT
DECLARE @re3    FLOAT
DECLARE @re4    FLOAT
DECLARE @dto_c   FLOAT
DECLARE @dto_p   FLOAT
DECLARE @dto_rec FLOAT
DECLARE @p_reten FLOAT
DECLARE @rec_fin FLOAT
DECLARE @en_euro BIT
DECLARE @total   FLOAT
DECLARE @imp_ret FLOAT
DECLARE @importe FLOAT
DECLARE @codigo  CHAR(10)
DECLARE @tipo    CHAR(1)
SELECT @empresa=empresa,@serie=serie,@numero=numero,@codigo = cliente,
     @dto_c=dto_c,@dto_p=dto_p,@dto_rec=dto_rec,@fecha=fecha,
     @suma1=suma1,@suma2=suma2,@suma3=suma3,@suma4=suma4,
     @recargo1=recargo1,@recargo2=recargo2,@recargo3=recargo3,@recargo4=recargo4,
     @p_reten = p_reten, @rec_fin=rec_fin, @en_euro = en_euro
    FROM INSERTED
EXEC sp_xxx_calcular @empresa,@serie, @codigo, @fecha,
    @dto_c,@dto_p,@dto_rec,
    @suma1,@suma2,@suma3,@suma4,
    @recargo1,@recargo2,@recargo3,@recargo4, @p_reten, @rec_fin, @en_euro,
    @dto1 OUTPUT,@dto2 OUTPUT,@dto3 OUTPUT,@dto4 OUTPUT,
    @base1 OUTPUT,@base2 OUTPUT,@base3 OUTPUT,@base4 OUTPUT,
    @iva1 OUTPUT,@iva2 OUTPUT,@iva3 OUTPUT,@iva4 OUTPUT,
    @re1 OUTPUT,@re2 OUTPUT,@re3 OUTPUT,@re4 OUTPUT, @imp_ret OUTPUT, @total OUTPUT
UPDATE ofertas SET dto1=@dto1,dto2=@dto2,dto3=@dto3,dto4=@dto4,
        base1=@base1,base2=@base2,base3=@base3,base4=@base4,
        iva1=@iva1,iva2=@iva2,iva3=@iva3,iva4=@iva4,
        re1=@re1,re2=@re2,re3=@re3,re4=@re4, imp_ret = @imp_ret, total = @total
    WHERE empresa=@empresa AND serie=@serie AND numero=@numero










GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO










/****** Object:  Trigger dbo.ofertas_u    Script Date: 23/3/01 12:32:15 ******/
/****** Object:  Trigger dbo.ofertas_u    Script Date: 14/12/00 12:25:11 ******/
/****** Object:  Trigger dbo.ofertas_u    Script Date: 26/9/00 13:23:29 ******/
/****** Object:  Trigger dbo.ofertas_u    Script Date: 26/6/00 14:57:05 ******/
/****** Object:  Trigger dbo.ofertas_u    Script Date: 26/6/00 9:03:34 ******/
/****** Object:  Trigger dbo.ofertas_u    Script Date: 24/3/2000 10:08:31 ******/
/****** Object:  Trigger dbo.ofertas_u    Script Date: 23/3/2000 15:31:29 ******/
/****** Object:  Trigger dbo.ofertas_u    Script Date: 23/3/2000 11:25:18 ******/
/****** Object:  Trigger dbo.ofertas_u    Script Date: 16/3/2000 12:08:29 ******/
/****** Object:  Trigger dbo.ofertas_u    Script Date: 2/3/2000 8:30:21 ******/
/****** Object:  Trigger dbo.ofertas_u    Script Date: 24/6/99 16:21:02 ******/
CREATE TRIGGER ofertas_u ON dbo.ofertas
FOR UPDATE
AS
DECLARE @empresa CHAR(4)
DECLARE @serie   CHAR(2)
DECLARE @numero  FLOAT
DECLARE @fecha   DATETIME
DECLARE @suma1   FLOAT
DECLARE @suma2   FLOAT
DECLARE @suma3   FLOAT
DECLARE @suma4   FLOAT
DECLARE @recargo1   FLOAT
DECLARE @recargo2   FLOAT
DECLARE @recargo3   FLOAT
DECLARE @recargo4   FLOAT
DECLARE @dto1    FLOAT
DECLARE @dto2    FLOAT
DECLARE @dto3    FLOAT
DECLARE @dto4    FLOAT
DECLARE @base1   FLOAT
DECLARE @base2   FLOAT
DECLARE @base3   FLOAT
DECLARE @base4   FLOAT
DECLARE @iva1    FLOAT
DECLARE @iva2    FLOAT
DECLARE @iva3    FLOAT
DECLARE @iva4    FLOAT
DECLARE @re1    FLOAT
DECLARE @re2    FLOAT
DECLARE @re3    FLOAT
DECLARE @re4    FLOAT
DECLARE @dto_c   FLOAT
DECLARE @dto_p   FLOAT
DECLARE @dto_rec FLOAT
DECLARE @p_reten FLOAT
DECLARE @rec_fin FLOAT
DECLARE @en_euro BIT
DECLARE @total   FLOAT
DECLARE @imp_ret FLOAT
DECLARE @importe FLOAT
DECLARE @codigo  CHAR(10)
DECLARE @tipo    CHAR(1)
SELECT @empresa=empresa,@serie=serie,@numero=numero,@codigo = cliente,
     @dto_c=dto_c,@dto_p=dto_p,@dto_rec=dto_rec,@fecha=fecha,
     @suma1=suma1,@suma2=suma2,@suma3=suma3,@suma4=suma4,
     @recargo1=recargo1,@recargo2=recargo2,@recargo3=recargo3,@recargo4=recargo4,
     @p_reten = p_reten, @rec_fin=rec_fin, @en_euro = en_euro
    FROM INSERTED
EXECUTE sp_xxx_calcular @empresa,@serie, @codigo, @fecha,
        @dto_c,@dto_p,@dto_rec,
        @suma1,@suma2,@suma3,@suma4,
        @recargo1,@recargo2,@recargo3,@recargo4, @p_reten, @rec_fin, @en_euro,
        @dto1 OUTPUT,@dto2 OUTPUT,@dto3 OUTPUT,@dto4 OUTPUT,
        @base1 OUTPUT,@base2 OUTPUT,@base3 OUTPUT,@base4 OUTPUT,
        @iva1 OUTPUT,@iva2 OUTPUT,@iva3 OUTPUT,@iva4 OUTPUT,
        @re1 OUTPUT,@re2 OUTPUT,@re3 OUTPUT,@re4 OUTPUT, @imp_ret OUTPUT, @total OUTPUT
UPDATE ofertas SET dto1=@dto1,dto2=@dto2,dto3=@dto3,dto4=@dto4,
        base1=@base1,base2=@base2,base3=@base3,base4=@base4,
        iva1=@iva1,iva2=@iva2,iva3=@iva3,iva4=@iva4,
        re1=@re1,re2=@re2,re3=@re3,re4=@re4, imp_ret = @imp_ret, total = @total
    WHERE empresa=@empresa AND serie=@serie AND numero=@numero










GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO










/****** Object:  Trigger dbo.pagos_d    Script Date: 23/3/01 12:32:15 ******/
/****** Object:  Trigger dbo.pagos_d    Script Date: 14/12/00 12:25:11 ******/
/****** Object:  Trigger dbo.pagos_d    Script Date: 26/9/00 13:23:35 ******/
/****** Object:  Trigger dbo.pagos_d    Script Date: 26/6/00 14:57:05 ******/
/****** Object:  Trigger dbo.pagos_d    Script Date: 26/6/00 9:03:35 ******/
/****** Object:  Trigger dbo.pagos_d    Script Date: 24/3/2000 10:08:31 ******/
/****** Object:  Trigger dbo.pagos_d    Script Date: 23/3/2000 15:31:30 ******/
/****** Object:  Trigger dbo.pagos_d    Script Date: 23/3/2000 11:25:18 ******/
/****** Object:  Trigger dbo.pagos_d    Script Date: 16/3/2000 12:08:29 ******/
/****** Object:  Trigger dbo.pagos_d    Script Date: 2/3/2000 8:30:21 ******/
/****** Object:  Trigger dbo.pagos_d    Script Date: 24/6/99 16:21:02 ******/
/****** Object:  Trigger dbo.pagos_d    Script Date: 1/6/99 13:16:17 ******/
CREATE TRIGGER pagos_d ON dbo.pagos
FOR DELETE
AS
DECLARE @empresa    CHAR(4)
DECLARE @serie      CHAR(2)
DECLARE @factura    FLOAT
DECLARE @dias       DATETIME
DECLARE @cliente    CHAR(10)
DECLARE @importe    FLOAT
DECLARE @en_euro    BIT
/* recoger los datos de deleted */
SELECT @empresa = empresa, @serie=serie, @factura=factura, @dias=dias,
    @dias=dias,@cliente=cliente,@en_euro=en_euro,@importe = -importe_c
    FROM DELETED
EXECUTE sp_imputa_pago @empresa,@serie,@factura,@dias,@cliente,@importe,@en_euro
RETURN










GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO










/****** Object:  Trigger dbo.pagos_i    Script Date: 23/3/01 12:32:15 ******/
/****** Object:  Trigger dbo.pagos_i    Script Date: 14/12/00 12:25:11 ******/
/****** Object:  Trigger dbo.pagos_i    Script Date: 26/9/00 13:23:35 ******/
/****** Object:  Trigger dbo.pagos_i    Script Date: 26/6/00 14:57:05 ******/
/****** Object:  Trigger dbo.pagos_i    Script Date: 26/6/00 9:03:35 ******/
/****** Object:  Trigger dbo.pagos_i    Script Date: 24/3/2000 10:08:31 ******/
/****** Object:  Trigger dbo.pagos_i    Script Date: 23/3/2000 15:31:30 ******/
/****** Object:  Trigger dbo.pagos_i    Script Date: 23/3/2000 11:25:18 ******/
/****** Object:  Trigger dbo.pagos_i    Script Date: 16/3/2000 12:08:29 ******/
/****** Object:  Trigger dbo.pagos_i    Script Date: 2/3/2000 8:30:21 ******/
/****** Object:  Trigger dbo.pagos_i    Script Date: 24/6/99 16:21:02 ******/
/****** Object:  Trigger dbo.pagos_i    Script Date: 1/6/99 13:16:17 ******/
CREATE TRIGGER pagos_i ON dbo.pagos
FOR INSERT
AS
DECLARE @empresa    CHAR(4)
DECLARE @serie      CHAR(2)
DECLARE @factura    FLOAT
DECLARE @dias       DATETIME
DECLARE @cliente    CHAR(10)
DECLARE @importe    FLOAT
DECLARE @en_euro    BIT
/* recoger los datos de deleted */
SELECT @empresa = empresa, @serie=serie, @factura=factura, @dias=dias,
    @dias=dias,@cliente=cliente,@en_euro=en_euro,@importe=importe_c
    FROM INSERTED
EXECUTE sp_imputa_pago @empresa,@serie,@factura,@dias,@cliente,@importe,@en_euro
RETURN










GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO










/****** Object:  Trigger dbo.pagos_u    Script Date: 23/3/01 12:32:15 ******/
/****** Object:  Trigger dbo.pagos_u    Script Date: 14/12/00 12:25:11 ******/
/****** Object:  Trigger dbo.pagos_u    Script Date: 26/9/00 13:23:35 ******/
/****** Object:  Trigger dbo.pagos_u    Script Date: 26/6/00 14:57:06 ******/
/****** Object:  Trigger dbo.pagos_u    Script Date: 26/6/00 9:03:35 ******/
/****** Object:  Trigger dbo.pagos_u    Script Date: 24/3/2000 10:08:31 ******/
/****** Object:  Trigger dbo.pagos_u    Script Date: 23/3/2000 15:31:30 ******/
/****** Object:  Trigger dbo.pagos_u    Script Date: 23/3/2000 11:25:18 ******/
/****** Object:  Trigger dbo.pagos_u    Script Date: 16/3/2000 12:08:29 ******/
/****** Object:  Trigger dbo.pagos_u    Script Date: 2/3/2000 8:30:21 ******/
/****** Object:  Trigger dbo.pagos_u    Script Date: 24/6/99 16:21:02 ******/
/****** Object:  Trigger dbo.pagos_u    Script Date: 1/6/99 13:16:17 ******/
CREATE TRIGGER pagos_u ON dbo.pagos
FOR UPDATE
AS
DECLARE @empresa    CHAR(4)
DECLARE @serie      CHAR(2)
DECLARE @factura    FLOAT
DECLARE @dias       DATETIME
DECLARE @cliente    CHAR(10)
DECLARE @importe    FLOAT
DECLARE @en_euro    BIT
/* recoger los datos de deleted */
SELECT @empresa = empresa, @serie=serie, @factura=factura, @dias=dias,
    @dias=dias,@cliente=cliente,@en_euro=en_euro,@importe = -importe_c
    FROM DELETED
EXECUTE sp_imputa_pago  @empresa,@serie,@factura,@dias,@cliente,@importe,@en_euro
/* recoger los datos de deleted */
SELECT @empresa = empresa, @serie=serie, @factura=factura, @dias=dias,
    @dias=dias,@cliente=cliente,@en_euro=en_euro,@importe = importe_c
    FROM INSERTED
EXECUTE sp_imputa_pago @empresa,@serie,@factura,@dias,@cliente,@importe,@en_euro










GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO






/****** Object:  Trigger dbo.pedido_d    Script Date: 18/5/01 12:58:22 ******/
/****** Object:  Trigger dbo.pedido_d    Script Date: 3/5/01 9:24:50 ******/
/****** Object:  Trigger dbo.pedido_d    Script Date: 19/2/01 11:30:21 ******/
/****** Object:  Trigger dbo.pedido_d    Script Date: 14/12/00 12:25:09 ******/
/****** Object:  Trigger dbo.pedido_d    Script Date: 26/9/00 13:23:29 ******/
/****** Object:  Trigger dbo.pedido_d    Script Date: 26/6/00 14:56:56 ******/
/****** Object:  Trigger dbo.pedido_d    Script Date: 26/6/00 9:03:34 ******/
/****** Object:  Trigger dbo.pedido_d    Script Date: 24/3/2000 10:08:31 ******/
/****** Object:  Trigger dbo.pedido_d    Script Date: 23/3/2000 15:31:29 ******/
/****** Object:  Trigger dbo.pedido_d    Script Date: 23/3/2000 11:25:17 ******/
/****** Object:  Trigger dbo.pedido_d    Script Date: 16/3/2000 12:08:28 ******/
/****** Object:  Trigger dbo.pedido_d    Script Date: 2/3/2000 8:30:20 ******/
/****** Object:  Trigger dbo.pedido_d    Script Date: 24/6/99 16:21:02 ******/
/****** Object:  Trigger dbo.pedido_d    Script Date: 1/6/99 13:16:17 ******/
/****** Object:  Trigger dbo.pedido_d    Script Date: 20/4/99 8:51:22 ******/
CREATE TRIGGER pedido_d ON dbo.PEDIDO
FOR DELETE
AS
DECLARE @empresa     CHAR(4)
DECLARE @serie         CHAR(2)
DECLARE @numero     FLOAT
SELECT @empresa = empresa, @serie = serie, @numero = numero
    FROM deleted
UPDATE albaran SET albaran.pedido = 0
    WHERE albaran.empresa= @empresa
        AND albaran.pedido= @numero
        AND albaran.serie= @serie
/******************************************************************************
DO METE_ERR WITH 'El pedido se corresponde con el albaran nº ' + albaran.serie +'/'+STR(albaran.numero)
*********************************************************************************/
UPDATE factura SET factura.pedido = 0
    WHERE factura.empresa= @empresa
        AND factura.pedido= @numero
        AND serie= @serie

/******************************************************************************
DO METE_ERR WITH 'El pedido se corresponde con la factura nº '+factura.serie+'/'+STR(factura.numero)
*********************************************************************************/








GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO










/****** Object:  Trigger dbo.pedido_i    Script Date: 23/3/01 12:32:15 ******/
/****** Object:  Trigger dbo.pedido_i    Script Date: 14/12/00 12:25:12 ******/
/****** Object:  Trigger dbo.pedido_i    Script Date: 26/9/00 13:23:29 ******/
/****** Object:  Trigger dbo.pedido_i    Script Date: 26/6/00 14:57:06 ******/
/****** Object:  Trigger dbo.pedido_i    Script Date: 26/6/00 9:03:34 ******/
/****** Object:  Trigger dbo.pedido_i    Script Date: 24/3/2000 10:08:31 ******/
/****** Object:  Trigger dbo.pedido_i    Script Date: 23/3/2000 15:31:30 ******/
/****** Object:  Trigger dbo.pedido_i    Script Date: 23/3/2000 11:25:18 ******/
/****** Object:  Trigger dbo.pedido_i    Script Date: 16/3/2000 12:08:29 ******/
/****** Object:  Trigger dbo.pedido_i    Script Date: 2/3/2000 8:30:21 ******/
/****** Object:  Trigger dbo.pedido_i    Script Date: 24/6/99 16:21:02 ******/
/****** Object:  Trigger dbo.pedido_i    Script Date: 1/6/99 13:16:17 ******/
/****** Object:  Trigger dbo.pedido_i    Script Date: 20/4/99 8:51:22 ******/
CREATE TRIGGER pedido_i ON dbo.PEDIDO
FOR INSERT
AS

DECLARE @empresa CHAR(4)
DECLARE @serie   CHAR(2)
DECLARE @numero  FLOAT
DECLARE @fecha   DATETIME
DECLARE @suma1   FLOAT
DECLARE @suma2   FLOAT
DECLARE @suma3   FLOAT
DECLARE @suma4   FLOAT
DECLARE @recargo1   FLOAT
DECLARE @recargo2   FLOAT
DECLARE @recargo3   FLOAT
DECLARE @recargo4   FLOAT
DECLARE @dto1    FLOAT
DECLARE @dto2    FLOAT
DECLARE @dto3    FLOAT
DECLARE @dto4    FLOAT
DECLARE @base1   FLOAT
DECLARE @base2   FLOAT
DECLARE @base3   FLOAT
DECLARE @base4   FLOAT
DECLARE @iva1    FLOAT
DECLARE @iva2    FLOAT
DECLARE @iva3    FLOAT
DECLARE @iva4    FLOAT
DECLARE @re1    FLOAT
DECLARE @re2    FLOAT
DECLARE @re3    FLOAT
DECLARE @re4    FLOAT
DECLARE @dto_c   FLOAT
DECLARE @dto_p   FLOAT
DECLARE @dto_rec FLOAT
DECLARE @p_reten FLOAT
DECLARE @rec_fin FLOAT
DECLARE @en_euro BIT
DECLARE @total   FLOAT
DECLARE @imp_ret FLOAT
DECLARE @importe FLOAT
DECLARE @codigo  CHAR(10)
DECLARE @tipo    CHAR(1)
DECLARE @madre CHAR(10)
DECLARE @tipomad FLOAT
DECLARE @maximo FLOAT
DECLARE @riesgo_l FLOAT
DECLARE @defecto CHAR(1)
DECLARE @riesgo_t FLOAT
DECLARE @importex FLOAT
DECLARE @msg CHAR(255)
DECLARE @riesgo_x FLOAT
SELECT @empresa=empresa,@serie=serie,@numero=numero,@codigo = cliente,
     @dto_c=dto_c,@dto_p=dto_p,@dto_rec=dto_rec,@fecha=fecha,
     @suma1=suma1,@suma2=suma2,@suma3=suma3,@suma4=suma4,
     @recargo1=recargo1,@recargo2=recargo2,@recargo3=recargo3,@recargo4=recargo4,
     @p_reten = p_reten, @rec_fin=rec_fin, @en_euro = en_euro
    FROM INSERTED
EXEC sp_xxx_calcular @empresa,@serie, @codigo, @fecha,
    @dto_c,@dto_p,@dto_rec,
    @suma1,@suma2,@suma3,@suma4,
    @recargo1,@recargo2,@recargo3,@recargo4, @p_reten, @rec_fin, @en_euro,
    @dto1 OUTPUT,@dto2 OUTPUT,@dto3 OUTPUT,@dto4 OUTPUT,
    @base1 OUTPUT,@base2 OUTPUT,@base3 OUTPUT,@base4 OUTPUT,
    @iva1 OUTPUT,@iva2 OUTPUT,@iva3 OUTPUT,@iva4 OUTPUT,
    @re1 OUTPUT,@re2 OUTPUT,@re3 OUTPUT,@re4 OUTPUT, @imp_ret OUTPUT, @total OUTPUT
UPDATE pedido SET dto1=@dto1,dto2=@dto2,dto3=@dto3,dto4=@dto4,
        base1=@base1,base2=@base2,base3=@base3,base4=@base4,
        iva1=@iva1,iva2=@iva2,iva3=@iva3,iva4=@iva4,
        re1=@re1,re2=@re2,re3=@re3,re4=@re4, imp_ret = @imp_ret, total = @total
    WHERE empresa=@empresa AND serie=@serie AND numero=@numero
SELECT @madre=madre,@tipomad=tipomad,@maximo=maximo,@riesgo_l=riesgo_l FROM clientes WHERE empresa=@empresa AND codigo=@codigo
IF @tipomad>2
    BEGIN
    SELECT @maximo=maximo,@riesgo_l=riesgo_l FROM clientes WHERE empresa=@empresa AND codigo=@madre
    END
IF @maximo<>0
    BEGIN
    IF @total>@maximo
        BEGIN
        SELECT @msg='El pedido supera el m ximo por documento '
        EXEC sp_xxx_PONmsg @msg
        END

    END
SELECT @riesgo_t=riesgo_t FROM cli2 WHERE empresa=@empresa AND codigo=@madre
SELECT @importex=@total
SELECT @defecto = defecto FROM empresa WHERE empresa = @empresa
IF @defecto = 'E' AND @en_euro = 0
    SELECT @importex = @importex * (SELECT sy_c2 FROM sistemad)
IF @defecto = 'P' AND @en_euro = 1
    SELECT @importex = @importex * (SELECT sy_c1 FROM sistemad)
SELECT @riesgo_x=@riesgo_t+@importex
IF (@riesgo_x>@riesgo_l) AND (@riesgo_l<>0)
    BEGIN
    SELECT @msg='Supera el riesgo permitido '
    EXEC sp_xxx_PONmsg @msg
    END










GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO










/****** Object:  Trigger dbo.pedido_u    Script Date: 23/3/01 12:32:15 ******/
/****** Object:  Trigger dbo.pedido_u    Script Date: 14/12/00 12:25:12 ******/
/****** Object:  Trigger dbo.pedido_u    Script Date: 26/9/00 13:23:29 ******/
/****** Object:  Trigger dbo.pedido_u    Script Date: 26/6/00 14:57:06 ******/
/****** Object:  Trigger dbo.pedido_u    Script Date: 26/6/00 9:03:34 ******/
/****** Object:  Trigger dbo.pedido_u    Script Date: 24/3/2000 10:08:31 ******/
/****** Object:  Trigger dbo.pedido_u    Script Date: 23/3/2000 15:31:30 ******/
/****** Object:  Trigger dbo.pedido_u    Script Date: 23/3/2000 11:25:18 ******/
/****** Object:  Trigger dbo.pedido_u    Script Date: 16/3/2000 12:08:29 ******/
/****** Object:  Trigger dbo.pedido_u    Script Date: 2/3/2000 8:30:21 ******/
/****** Object:  Trigger dbo.pedido_u    Script Date: 24/6/99 16:21:02 ******/
/****** Object:  Trigger dbo.pedido_u    Script Date: 1/6/99 13:16:17 ******/
/****** Object:  Trigger dbo.pedido_u    Script Date: 20/4/99 8:51:22 ******/
CREATE TRIGGER pedido_u ON dbo.PEDIDO
FOR UPDATE
AS

DECLARE @empresa CHAR(4)
DECLARE @serie   CHAR(2)
DECLARE @numero  FLOAT
DECLARE @fecha   DATETIME
DECLARE @suma1   FLOAT
DECLARE @suma2   FLOAT
DECLARE @suma3   FLOAT
DECLARE @suma4   FLOAT
DECLARE @recargo1   FLOAT
DECLARE @recargo2   FLOAT
DECLARE @recargo3   FLOAT
DECLARE @recargo4   FLOAT
DECLARE @dto1    FLOAT
DECLARE @dto2    FLOAT
DECLARE @dto3    FLOAT
DECLARE @dto4    FLOAT
DECLARE @base1   FLOAT
DECLARE @base2   FLOAT
DECLARE @base3   FLOAT
DECLARE @base4   FLOAT
DECLARE @iva1    FLOAT
DECLARE @iva2    FLOAT
DECLARE @iva3    FLOAT
DECLARE @iva4    FLOAT
DECLARE @re1    FLOAT
DECLARE @re2    FLOAT
DECLARE @re3    FLOAT
DECLARE @re4    FLOAT
DECLARE @dto_c   FLOAT
DECLARE @dto_p   FLOAT
DECLARE @dto_rec FLOAT
DECLARE @p_reten FLOAT
DECLARE @rec_fin FLOAT
DECLARE @en_euro BIT
DECLARE @total   FLOAT
DECLARE @imp_ret FLOAT
DECLARE @importe FLOAT
DECLARE @codigo  CHAR(10)
DECLARE @tipo    CHAR(1)
DECLARE @madre CHAR(10)
DECLARE @tipomad FLOAT
DECLARE @maximo FLOAT
DECLARE @riesgo_l FLOAT
DECLARE @defecto CHAR(1)
DECLARE @riesgo_t FLOAT
DECLARE @importex FLOAT
DECLARE @msg CHAR(255)
DECLARE @riesgo_x FLOAT
SELECT @empresa=empresa,@serie=serie,@numero=numero,@codigo = cliente,
     @dto_c=dto_c,@dto_p=dto_p,@dto_rec=dto_rec,@fecha=fecha,
     @suma1=suma1,@suma2=suma2,@suma3=suma3,@suma4=suma4,
     @recargo1=recargo1,@recargo2=recargo2,@recargo3=recargo3,@recargo4=recargo4,
     @p_reten = p_reten, @rec_fin=rec_fin, @en_euro = en_euro
    FROM INSERTED
EXECUTE sp_xxx_calcular @empresa,@serie, @codigo, @fecha,
        @dto_c,@dto_p,@dto_rec,
        @suma1,@suma2,@suma3,@suma4,
        @recargo1,@recargo2,@recargo3,@recargo4, @p_reten, @rec_fin, @en_euro,
        @dto1 OUTPUT,@dto2 OUTPUT,@dto3 OUTPUT,@dto4 OUTPUT,
        @base1 OUTPUT,@base2 OUTPUT,@base3 OUTPUT,@base4 OUTPUT,
        @iva1 OUTPUT,@iva2 OUTPUT,@iva3 OUTPUT,@iva4 OUTPUT,
        @re1 OUTPUT,@re2 OUTPUT,@re3 OUTPUT,@re4 OUTPUT, @imp_ret OUTPUT, @total OUTPUT
UPDATE pedido SET dto1=@dto1,dto2=@dto2,dto3=@dto3,dto4=@dto4,
        base1=@base1,base2=@base2,base3=@base3,base4=@base4,
        iva1=@iva1,iva2=@iva2,iva3=@iva3,iva4=@iva4,
        re1=@re1,re2=@re2,re3=@re3,re4=@re4, imp_ret = @imp_ret, total = @total
    WHERE empresa=@empresa AND serie=@serie AND numero=@numero
SELECT @madre=madre,@tipomad=tipomad,@maximo=maximo,@riesgo_l=riesgo_l FROM clientes WHERE empresa=@empresa AND codigo=@codigo
IF @tipomad>2
    BEGIN
    SELECT @maximo=maximo,@riesgo_l=riesgo_l FROM clientes WHERE empresa=@empresa AND codigo=@madre
    END
IF @maximo<>0
    BEGIN
    IF @total>@maximo
        BEGIN
        SELECT @msg='El pedido supera el m ximo por documento '
        EXEC sp_xxx_PONmsg @msg
        END

    END
SELECT @riesgo_t=riesgo_t FROM cli2 WHERE empresa=@empresa AND codigo=@madre
SELECT @importex=@total
SELECT @defecto = defecto FROM empresa WHERE empresa = @empresa
IF @defecto = 'E' AND @en_euro = 0
    SELECT @importex = @importex * (SELECT sy_c2 FROM sistemad)
IF @defecto = 'P' AND @en_euro = 1
    SELECT @importex = @importex * (SELECT sy_c1 FROM sistemad)
SELECT @riesgo_x=@riesgo_t+@importex
IF (@riesgo_x>@riesgo_l) AND (@riesgo_l<>0)
    BEGIN
    SELECT @msg='Supera el riesgo permitido '
    EXEC sp_xxx_PONmsg @msg
    END










GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO






/****** Object:  Trigger dbo.proveedo_d    Script Date: 18/5/01 12:58:22 ******/
/****** Object:  Trigger dbo.proveedo_d    Script Date: 3/5/01 9:24:50 ******/
/****** Object:  Trigger dbo.proveedo_d    Script Date: 19/2/01 11:30:21 ******/
/****** Object:  Trigger dbo.proveedo_d    Script Date: 14/12/00 12:25:09 ******/
/****** Object:  Trigger dbo.proveedo_d    Script Date: 26/9/00 13:23:29 ******/
/****** Object:  Trigger dbo.proveedo_d    Script Date: 26/6/00 14:56:56 ******/
CREATE TRIGGER proveedo_d ON dbo.proveedo
FOR DELETE
AS
DECLARE @empresa char(4)
DECLARE @codigo char(10)
SELECT  @empresa=empresa,@codigo=codigo FROM deleted
DELETE  pro2 WHERE empresa=@empresa AND codigo=@codigo
DELETE cod_pro WHERE empresa=@empresa AND codigo=@codigo








GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO






/****** Object:  Trigger dbo.proveedo_i    Script Date: 18/5/01 12:58:22 ******/
/****** Object:  Trigger dbo.proveedo_i    Script Date: 3/5/01 9:24:50 ******/
/****** Object:  Trigger dbo.proveedo_i    Script Date: 19/2/01 11:30:21 ******/
/****** Object:  Trigger dbo.proveedo_i    Script Date: 14/12/00 12:25:09 ******/
/****** Object:  Trigger dbo.proveedo_i    Script Date: 26/9/00 13:23:30 ******/
/****** Object:  Trigger dbo.proveedo_i    Script Date: 26/6/00 14:56:57 ******/
CREATE TRIGGER proveedo_i ON dbo.proveedo
FOR INSERT
AS
DECLARE @empresa char(4)
DECLARE @codigo char(10)
DECLARE @nombre char(40)
DECLARE @anexo  char(40)
DECLARE @cc      CHAR(20)
SELECT  @empresa=empresa,@codigo=codigo,@nombre=nombre,@anexo=anexo FROM inserted
INSERT INTO pro2 (empresa,codigo) VALUES (@empresa,@codigo)
UPDATE proveedo SET ind_nombre=@nombre+@codigo,ind_anexo=@anexo+@codigo WHERE empresa=@empresa AND codigo=@codigo
INSERT INTO cod_pro (empresa,cc,nombre,anexo,tipo_cod,codigo)
    VALUES (@empresa,@codigo,@nombre,@anexo,'C',@codigo)
IF NOT (LTRIM(RTRIM(@nombre))='')
    BEGIN
    SELECT @cc=@nombre
    INSERT INTO cod_pro (empresa,cc,nombre,anexo,tipo_cod,codigo)
        VALUES (@empresa,@cc,@nombre,@anexo,'N',@codigo)
    END
IF NOT (LTRIM(RTRIM(@anexo))='')
    BEGIN
    SELECT @cc=@anexo
    INSERT INTO cod_pro (empresa,cc,nombre,anexo,tipo_cod,codigo)
        VALUES (@empresa,@cc,@nombre,@anexo,'X',@codigo)
    END








GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO






/****** Object:  Trigger dbo.proveedo_u    Script Date: 18/5/01 12:58:22 ******/
/****** Object:  Trigger dbo.proveedo_u    Script Date: 3/5/01 9:24:50 ******/
/****** Object:  Trigger dbo.proveedo_u    Script Date: 19/2/01 11:30:22 ******/
/****** Object:  Trigger dbo.proveedo_u    Script Date: 14/12/00 12:25:09 ******/
/****** Object:  Trigger dbo.proveedo_u    Script Date: 26/9/00 13:23:30 ******/
/****** Object:  Trigger dbo.proveedo_u    Script Date: 26/6/00 14:56:57 ******/
CREATE TRIGGER proveedo_u ON dbo.proveedo
FOR UPDATE
AS
DECLARE @empresa char(4)
DECLARE @codigo char(10)
DECLARE @nombre char(40)
DECLARE @anexo  char(40)
DECLARE @cc      CHAR(20)
DECLARE @cx      CHAR(10)
SELECT  @empresa=empresa,@codigo=codigo,@nombre=nombre,@anexo=anexo FROM inserted
UPDATE proveedo SET ind_nombre=@nombre+@codigo,ind_anexo=@anexo+@codigo WHERE empresa=@empresa AND codigo=@codigo
DELETE  cod_pro WHERE empresa=@empresa AND codigo=@codigo AND tipo_cod<>'C'
UPDATE cod_pro SET nombre=@nombre,anexo=@anexo WHERE empresa=@empresa AND codigo=@codigo AND tipo_cod='C'
IF NOT (LTRIM(RTRIM(@nombre))='')
    BEGIN
    SELECT @cc=@nombre
    SELECT @cx=@codigo
    INSERT INTO cod_pro (empresa,cc,nombre,anexo,tipo_cod,codigo)
        VALUES (@empresa,@cc,@nombre,@anexo,'N',@cx)
    END
IF NOT (LTRIM(RTRIM(@anexo))='')
    BEGIN
    SELECT @cc=@anexo

    SELECT @cx=@codigo
    INSERT INTO cod_pro (empresa,cc,nombre,anexo,tipo_cod,codigo)
        VALUES (@empresa,@cc,@nombre,@anexo,'X',@cx)
    END








GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO










/****** Object:  Trigger dbo.salidas_u    Script Date: 23/3/01 12:32:15 ******/
/****** Object:  Trigger dbo.salidas_u    Script Date: 14/12/00 12:25:14 ******/
/****** Object:  Trigger dbo.salidas_u    Script Date: 26/9/00 13:23:30 ******/
/****** Object:  Trigger dbo.salidas_u    Script Date: 26/6/00 14:57:11 ******/
/****** Object:  Trigger dbo.salidas_u    Script Date: 26/6/00 9:03:37 ******/
/****** Object:  Trigger dbo.salidas_u    Script Date: 24/3/2000 10:08:32 ******/
/****** Object:  Trigger dbo.salidas_u    Script Date: 23/3/2000 15:31:30 ******/
/****** Object:  Trigger dbo.salidas_u    Script Date: 23/3/2000 11:25:18 ******/
/****** Object:  Trigger dbo.salidas_u    Script Date: 16/3/2000 12:08:29 ******/
/****** Object:  Trigger dbo.salidas_u    Script Date: 2/3/2000 8:30:21 ******/
/****** Object:  Trigger dbo.salidas_u    Script Date: 24/6/99 16:21:02 ******/
/****** Object:  Trigger dbo.salidas_u    Script Date: 1/6/99 13:16:17 ******/
CREATE TRIGGER salidas_u ON dbo.SALIDAS
FOR UPDATE
AS
DECLARE @empresa CHAR(4)
DECLARE @emp CHAR(4)
DECLARE @raiz CHAR(16)
DECLARE @talla CHAR(2)
DECLARE @color CHAR(2)
DECLARE @cantidad FLOAT
DECLARE @cantidad2 FLOAT
DECLARE @numero FLOAT
DECLARE @numeroC FLOAT
DECLARE @lineaC FLOAT
DECLARE @almacen CHAR(4)
DECLARE @precioC FLOAT
DECLARE @totall FLOAT
DECLARE @en_euro BIT
DECLARE @es CHAR(1)
DECLARE @esI CHAR(1)
SELECT @empresa = empresa, @numero = numero, @es = es
    FROM DELETED
SELECT @empresa = empresa, @numero = numero, @esI = es
    FROM INSERTED
IF @es <> @esI
BEGIN
DECLARE cLineas CURSOR FOR SELECT empresa, numero, linea, precio, cantidad, raiz, talla, color, almacen, en_euro
                FROM linsal WHERE empresa = @empresa AND numero = @numero
OPEN cLineas
FETCH NEXT FROM cLineas INTO @emp, @numeroC, @lineaC, @precioC, @cantidad, @raiz, @talla, @color, @almacen, @en_euro
SELECT @cantidad2 = -@cantidad
WHILE (@@fetch_status <> -1)
    BEGIN
        IF (@@fetch_status <> -2)
            BEGIN
                IF @es = 'E'
                    BEGIN
                    SELECT @totall = @precioC * @cantidad2
                    EXECUTE sp_xxx_entra_stock
                        @raiz, @talla, @color,
                        @almacen, @empresa,
                        @cantidad2, @totall, @en_euro, 0, '', @precioC
                    END
                ELSE
                    EXECUTE sp_xxx_stock @empresa, @raiz, @talla, @color, @cantidad2, @almacen
                IF @esI = 'E'
                    BEGIN
                    SELECT @totall = @precioC * @cantidad
                    EXECUTE sp_xxx_entra_stock
                        @raiz, @talla, @color,
                        @almacen, @empresa,
                        @cantidad, @totall, @en_euro, 0, '', @precioC
                    END
                ELSE
                    EXECUTE sp_xxx_stock @empresa, @raiz, @talla, @color, @cantidad, @almacen
            END
        FETCH NEXT FROM cLineas INTO @emp, @numeroC, @lineaC, @precioC, @cantidad, @raiz, @talla, @color, @almacen, @en_euro
        SELECT @cantidad2 = -@cantidad
    END
CLOSE cLineas
DEALLOCATE cLineas
END










GO


/*
Este parche subsana el error 1141.
Cuando un albaran o factura de proveedor tiene gastos de importacion y se cambia de
pesetas a euros (o de euros a pesetas), los gastos de importacion de no se cambian de
moneda
*/
use cg
go

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

ALTER  PROCEDURE sp_cm_doc
  @fichero CHAR(10),@en_euro BIT, @empresa CHAR(4), @serie CHAR(2), @numero FLOAT
AS
DECLARE @sy_c1     FLOAT
DECLARE @sy_c2     FLOAT
DECLARE @esprovee  BIT
DECLARE @esdivisa  BIT
DECLARE @nuevocam  FLOAT
DECLARE @factor    FLOAT
DECLARE @redondeo  FLOAT
DECLARE @lredondeo  FLOAT
DECLARE @divisa    CHAR(10)
DECLARE @cambio    FLOAT
SELECT @fichero=RTRIM(LTRIM(LOWER(@fichero)))
DECLARE sss CURSOR FOR SELECT sy_c1,sy_c2 FROM sistemad WHERE id=1
OPEN sss
FETCH NEXT FROM sss INTO @sy_c1, @sy_c2
CLOSE sss
DEALLOCATE sss
SELECT @factor=@sy_c1,@redondeo=0,@lredondeo=4
IF @en_euro=1
    SELECT @factor=@sy_c2,@redondeo=2,@lredondeo=6
SELECT @esprovee=0,@esdivisa=1
IF @fichero='pagos'
    SELECT @esprovee=1
IF @fichero='compra'
    SELECT @esprovee=1
IF @fichero='albpro'
    SELECT @esprovee=1
IF @fichero='entrada'
    SELECT @esprovee=1
/**************************************************************************************
**************************************************************************************/
IF @fichero='cobros'
    BEGIN
    UPDATE cobros SET importe_c=ROUND(importe_c*@factor,@redondeo),en_euro=@en_euro
        WHERE empresa=@empresa AND numero=@numero
    RETURN
    END
IF @fichero='salidas'
    BEGIN
    RETURN
    END
IF @fichero='pagos'
    BEGIN
    RETURN
    END
/**************************************************************************************
**************************************************************************************/
IF @esprovee=1
BEGIN
/* crear la variable nuevocam
el factor y el redondeo hay que aplicarlos dependiendo de not esdivisa
*/
IF @fichero='compra'
    BEGIN
    SELECT @divisa=divisa,@cambio=cambio FROM compra
        WHERE empresa=@empresa AND serie=@serie AND numero=@numero
    SELECT @nuevocam=@cambio
    SELECT @nuevocam=@cambio*@sy_c1
    IF @en_euro=1
        SELECT @nuevocam=@cambio*@sy_c2
    IF @divisa=''
        BEGIN
        UPDATE lineacom SET a_pre=ROUND(a_pre*@factor,@lredondeo),en_euro=@en_euro,
            a_pre_s=ROUND(a_pre_s*@factor,@lredondeo),
            a_tot_l=ROUND(a_tot_l*@factor,@lredondeo)
            WHERE empresa=@empresa AND serie=@serie AND numero=@numero
        UPDATE lineacom SET precio=a_pre,
            precio_sin=a_pre_s,total_l=a_tot_l
            WHERE empresa=@empresa AND serie=@serie AND numero=@numero
        UPDATE compra   SET en_euro=@en_euro,
            a_rec1=ROUND(a_rec1*@factor,@redondeo),

            a_rec2=ROUND(a_rec2*@factor,@redondeo),
            a_rec3=ROUND(a_rec3*@factor,@redondeo),
            a_rec4=ROUND(a_rec4*@factor,@redondeo)
            WHERE empresa=@empresa AND serie=@serie AND numero=@numero
        END
    ELSE
         BEGIN
        UPDATE lineacom SET precio=a_pre*@nuevocam,
            precio_sin=a_pre_s*@nuevocam,total_l=a_tot_l*@nuevocam
            WHERE empresa=@empresa AND serie=@serie AND numero=@numero
        UPDATE compra   SET en_euro=@en_euro,
            cambio=@nuevocam
            WHERE empresa=@empresa AND serie=@serie AND numero=@numero
        END
    END
IF @fichero='albpro'
    BEGIN
    SELECT @divisa=divisa,@cambio=cambio FROM albpro
        WHERE empresa=@empresa AND serie=@serie AND numero=@numero
    SELECT @nuevocam=@cambio

    SELECT @nuevocam=@cambio*@sy_c1
    IF @en_euro=1
        SELECT @nuevocam=@cambio*@sy_c2
    IF @divisa=''
        BEGIN
        UPDATE linalbp SET a_pre=ROUND(a_pre*@factor,@lredondeo),en_euro=@en_euro,
            a_pre_s=ROUND(a_pre_s*@factor,@lredondeo),
            a_tot_l=ROUND(a_tot_l*@factor,@lredondeo)
            WHERE empresa=@empresa AND serie=@serie AND numero=@numero
        UPDATE linalbp SET precio=a_pre,
            precio_sin=a_pre_s,total_l=a_tot_l
            WHERE empresa=@empresa AND serie=@serie AND numero=@numero
        UPDATE albpro  SET en_euro=@en_euro,
            a_rec1=ROUND(a_rec1*@factor,@redondeo),
            a_rec2=ROUND(a_rec2*@factor,@redondeo),
            a_rec3=ROUND(a_rec3*@factor,@redondeo),
            a_rec4=ROUND(a_rec4*@factor,@redondeo)
            WHERE empresa=@empresa AND serie=@serie AND numero=@numero
        END
    ELSE
         BEGIN
        UPDATE linalbp SET precio=a_pre*@nuevocam,
            precio_sin=a_pre_s*@nuevocam,total_l=a_tot_l*@nuevocam
            WHERE empresa=@empresa AND serie=@serie AND numero=@numero
        UPDATE albpro  SET en_euro=@en_euro,
            cambio=@nuevocam,
            gasto1  =ROUND(gasto1  *@factor,@redondeo),
            gasto2  =ROUND(gasto2  *@factor,@redondeo),
            gasto3  =ROUND(gasto3  *@factor,@redondeo),
            gasto4  =ROUND(gasto4  *@factor,@redondeo),
            gasto5  =ROUND(gasto5  *@factor,@redondeo),
            gasto6  =ROUND(gasto6  *@factor,@redondeo),
            gasto7  =ROUND(gasto7  *@factor,@redondeo),
            gasto8  =ROUND(gasto8  *@factor,@redondeo),
            gasto9  =ROUND(gasto9  *@factor,@redondeo),
            gasto10 =ROUND(gasto10 *@factor,@redondeo),
            arancel1=ROUND(arancel1*@factor,@redondeo),
            arancel2=ROUND(arancel2*@factor,@redondeo),
            arancel3=ROUND(arancel3*@factor,@redondeo),
            arancel4=ROUND(arancel4*@factor,@redondeo),
            arancelt=ROUND(arancelt*@factor,@redondeo),
            estad1  =ROUND(estad1  *@factor,@redondeo),
            estad2  =ROUND(estad2  *@factor,@redondeo),
            estad3  =ROUND(estad3  *@factor,@redondeo),
            estad4  =ROUND(estad4  *@factor,@redondeo),
            iva_a1  =ROUND(iva_a1  *@factor,@redondeo),
            iva_a2  =ROUND(iva_a2  *@factor,@redondeo),
            iva_a3  =ROUND(iva_a3  *@factor,@redondeo),
            iva_a4  =ROUND(iva_a4  *@factor,@redondeo),
            iva_n1  =ROUND(iva_n1  *@factor,@redondeo),
            iva_n2  =ROUND(iva_n2  *@factor,@redondeo),
            iva_n3  =ROUND(iva_n3  *@factor,@redondeo),
            iva_n4  =ROUND(iva_n4  *@factor,@redondeo),
            totalg  =ROUND(totalg  *@factor,@redondeo)
            WHERE empresa=@empresa AND serie=@serie AND numero=@numero
        END
    END
IF @fichero='entrada'
    BEGIN
    SELECT @divisa=divisa,@cambio=cambio FROM entrada
        WHERE empresa=@empresa AND serie=@serie AND numero=@numero
    SELECT @nuevocam=@cambio
    SELECT @nuevocam=@cambio*@sy_c1
    IF @en_euro=1
        SELECT @nuevocam=@cambio*@sy_c2
    IF @divisa=''

        BEGIN
        UPDATE lineaent SET a_pre=ROUND(a_pre*@factor,@lredondeo),en_euro=@en_euro,
            a_pre_s=ROUND(a_pre_s*@factor,@lredondeo),
            a_tot_l=ROUND(a_tot_l*@factor,@lredondeo)
            WHERE empresa=@empresa AND serie=@serie AND numero=@numero
        UPDATE lineaent SET precio=a_pre,
            precio_sin=a_pre_s,total_l=a_tot_l
            WHERE empresa=@empresa AND serie=@serie AND numero=@numero
        UPDATE entrada  SET en_euro=@en_euro,
            a_rec1=ROUND(a_rec1*@factor,@redondeo),
            a_rec2=ROUND(a_rec2*@factor,@redondeo),
            a_rec3=ROUND(a_rec3*@factor,@redondeo),
            a_rec4=ROUND(a_rec4*@factor,@redondeo)
            WHERE empresa=@empresa AND serie=@serie AND numero=@numero
        END
    ELSE
         BEGIN
        UPDATE lineaent SET precio=a_pre*@nuevocam,
            precio_sin=a_pre_s*@nuevocam,total_l=a_tot_l*@nuevocam
            WHERE empresa=@empresa AND serie=@serie AND numero=@numero
        UPDATE entrada  SET en_euro=@en_euro,
            cambio=@nuevocam,
            gasto1  =ROUND(gasto1  *@factor,@redondeo),
            gasto2  =ROUND(gasto2  *@factor,@redondeo),
            gasto3  =ROUND(gasto3  *@factor,@redondeo),
            gasto4  =ROUND(gasto4  *@factor,@redondeo),
            gasto5  =ROUND(gasto5  *@factor,@redondeo),
            gasto6  =ROUND(gasto6  *@factor,@redondeo),
            gasto7  =ROUND(gasto7  *@factor,@redondeo),
            gasto8  =ROUND(gasto8  *@factor,@redondeo),
            gasto9  =ROUND(gasto9  *@factor,@redondeo),
            gasto10 =ROUND(gasto10 *@factor,@redondeo),
            arancel1=ROUND(arancel1*@factor,@redondeo),
            arancel2=ROUND(arancel2*@factor,@redondeo),
            arancel3=ROUND(arancel3*@factor,@redondeo),
            arancel4=ROUND(arancel4*@factor,@redondeo),
            arancelt=ROUND(arancelt*@factor,@redondeo),
            estad1  =ROUND(estad1  *@factor,@redondeo),
            estad2  =ROUND(estad2  *@factor,@redondeo),
            estad3  =ROUND(estad3  *@factor,@redondeo),
            estad4  =ROUND(estad4  *@factor,@redondeo),
            iva_a1  =ROUND(iva_a1  *@factor,@redondeo),
            iva_a2  =ROUND(iva_a2  *@factor,@redondeo),
            iva_a3  =ROUND(iva_a3  *@factor,@redondeo),
            iva_a4  =ROUND(iva_a4  *@factor,@redondeo),
            iva_n1  =ROUND(iva_n1  *@factor,@redondeo),
            iva_n2  =ROUND(iva_n2  *@factor,@redondeo),
            iva_n3  =ROUND(iva_n3  *@factor,@redondeo),
            iva_n4  =ROUND(iva_n4  *@factor,@redondeo),
            totalg  =ROUND(totalg  *@factor,@redondeo)
            WHERE empresa=@empresa AND serie=@serie AND numero=@numero
        END
    END
EXEC sp_resumap @fichero,@empresa,@serie,@numero
IF @fichero='entrada'
    EXEC sp_haz_deu2 @empresa,@serie,@numero
RETURN
END
/**************************************************************************************
ES DE CLIENTE
**************************************************************************************/
IF @fichero='ofertas'
    BEGIN
    UPDATE lineaofe SET precio=ROUND(precio*@factor,@lredondeo),en_euro=@en_euro,
        precio_sin=ROUND(precio_sin*@factor,@lredondeo),
        total_l=ROUND(total_l*@factor,@lredondeo)
        WHERE empresa=@empresa AND serie=@serie AND numero=@numero
    UPDATE ofertas  SET en_euro=@en_euro,
        recargo1=ROUND(recargo1*@factor,@redondeo),
        recargo2=ROUND(recargo2*@factor,@redondeo),
        recargo3=ROUND(recargo3*@factor,@redondeo),
        recargo4=ROUND(recargo4*@factor,@redondeo)
        WHERE empresa=@empresa AND serie=@serie AND numero=@numero
    END
IF @fichero='pedido'
    BEGIN
    UPDATE lineaped SET precio=ROUND(precio*@factor,@lredondeo),en_euro=@en_euro,
        precio_sin=ROUND(precio_sin*@factor,@lredondeo),
        total_l=ROUND(total_l*@factor,@lredondeo)
        WHERE empresa=@empresa AND serie=@serie AND numero=@numero
    UPDATE pedido   SET en_euro=@en_euro,
        recargo1=ROUND(recargo1*@factor,@redondeo),
        recargo2=ROUND(recargo2*@factor,@redondeo),
        recargo3=ROUND(recargo3*@factor,@redondeo),
        recargo4=ROUND(recargo4*@factor,@redondeo)

        WHERE empresa=@empresa AND serie=@serie AND numero=@numero
    END
IF @fichero='albaran'

    BEGIN
    UPDATE lineaalb SET precio=ROUND(precio*@factor,@lredondeo),en_euro=@en_euro,
        precio_sin=ROUND(precio_sin*@factor,@lredondeo),
        total_l=ROUND(total_l*@factor,@lredondeo)
        WHERE empresa=@empresa AND serie=@serie AND numero=@numero
    UPDATE albaran  SET en_euro=@en_euro,
        recargo1=ROUND(recargo1*@factor,@redondeo),
        recargo2=ROUND(recargo2*@factor,@redondeo),
        recargo3=ROUND(recargo3*@factor,@redondeo),
        recargo4=ROUND(recargo4*@factor,@redondeo)
        WHERE empresa=@empresa AND serie=@serie AND numero=@numero
    END
IF @fichero='factura'
    BEGIN
    UPDATE lineafac SET precio=ROUND(precio*@factor,@lredondeo),en_euro=@en_euro,
        precio_sin=ROUND(precio_sin*@factor,@lredondeo),
        total_l=ROUND(total_l*@factor,@lredondeo)
        WHERE empresa=@empresa AND serie=@serie AND numero=@numero
    UPDATE factura  SET en_euro=@en_euro,
        recargo1=ROUND(recargo1*@factor,@redondeo),
        recargo2=ROUND(recargo2*@factor,@redondeo),
        recargo3=ROUND(recargo3*@factor,@redondeo),
        recargo4=ROUND(recargo4*@factor,@redondeo)
        WHERE empresa=@empresa AND serie=@serie AND numero=@numero
    END
IF @fichero='plantill'
    BEGIN
    UPDATE lineapla SET precio=ROUND(precio*@factor,@lredondeo),en_euro=@en_euro,
        precio_sin=ROUND(precio_sin*@factor,@lredondeo),
        total_l=ROUND(total_l*@factor,@lredondeo)
        WHERE empresa=@empresa AND serie=@serie AND numero=@numero
    UPDATE plantill SET en_euro=@en_euro,
        recargo1=ROUND(recargo1*@factor,@redondeo),
        recargo2=ROUND(recargo2*@factor,@redondeo),
        recargo3=ROUND(recargo3*@factor,@redondeo),
        recargo4=ROUND(recargo4*@factor,@redondeo)
        WHERE empresa=@empresa AND serie=@serie AND numero=@numero
    END
EXEC sp_resuma @fichero,@empresa,@serie,@numero
IF @fichero='factura'
    EXEC sp_haz_deuda @empresa,@serie,@numero
GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO




SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO