if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[paInsTarifasFleMay]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[paInsTarifasFleMay]
GO
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[paInstm_AfRetiro_Sel]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[paInstm_AfRetiro_Sel]
GO
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[paInsTraRemCntdor]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[paInsTraRemCntdor]
GO
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[paQryComDetalleDmto]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[paQryComDetalleDmto]
GO
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[paQryComprobantesEgo]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[paQryComprobantesEgo]
GO
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[paQryTarifasFleMay]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[paQryTarifasFleMay]
GO
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[paQrytm_PreExtoLta]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[paQrytm_PreExtoLta]
GO
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[paQryTraManifiestoOpe]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[paQryTraManifiestoOpe]
GO
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[paUpTarifasFleMay]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[paUpTarifasFleMay]
GO

SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO


CREATE PROCEDURE [paQryTraManifiestoOpe] @pmFechaIni SMALLDATETIME,@pmFechaFin SMALLDATETIME,@pmIdCia CHAR(2)=Null
,@pmIdVehiculo VARCHAR(10)=Null,@pmIdPoseedor VARCHAR(16)=Null
 AS 
 SELECT RM.TipDoc AS TipMuc,RM.Manifiesto AS NumManif,RM.IdCia AS CdCia,Compania,M.Fecha AS MucFecha,M.FecDespacho AS MucFecDespacho
,M.IdVehiculo AS PlacaVeh,M.TipoAfiVehic AS TipoAfiVeh,M.IdConductor AS CedCondutor,CDT.RazonSocial AS NomConductor,M.IdPoseedor AS NitPoseedor,NP.RazonSocial AS NomPoseedor,M.nRemolque AS NumRemolque
,RM.TipRem AS TipRem,RM.Remesa AS NumRemesa,RM.IdCiaRem AS CdCiaRem,R.Fecha AS FechaRem,IdMercancia,DescripMcias,D.Cantidad AS Cant,D.PesoNeto AS PesoNetoRem
,D.UndMed AS CdUmPeso,UMP.Unidad AS UmPeso,D.Volumen AS VolumenRem,UndVol,Cases,Cajas,Palets,D.TarifClie AS TarifaClie,UndTarifa,RM.TarifPago AS TarifaPago,RM.TarifTabla AS TarifaTabla,UndTarifPago
,Remision,DocCliente,Referencia1,Referencia2,Referencia3,D.IdEmp AS CdEmp,Empaque,D.IdUnd AS CdUnd,UM.Unidad AS UndMedida
,D.IdOrigen AS CdCiuOrigen,LO.Localidad AS CiuOrigen,LO.IdDep AS CodDepOrigen,DPO.Departamento AS DptoOrigen,D.IdDestino AS CdCiuDestino,LD.Localidad AS CiuDestino,LD.IdDep AS CodDepDestino,DPD.Departamento AS DptoDestino
,M.IdRuta AS CdRuta,T.TipoId AS ClieTipId,IdCliente,T.Dv AS ClieDv,T.RazonSocial AS NomCliente,R.IdAgencia AS CdAgencia,Agencia,R.Modalidad AS TipoRemesa,NitRemite,Remitente,NitDestntario,Destinatario
,M.VrFletes AS MucVrFletes,dbo.FuncMucListaAntcipos(RM.Manifiesto,RM.IdCia) AS Anticipos,M.VrAnticipo+VrAntAdic AS VrAnticipos,M.VrRetencion AS MucVrRetencion,M.VrReteIca AS MucVrReteIca,M.Observacion AS MucObserv,M.Anulado AS MucAnulado,EstOrden
--datos ordenes de pago
,M.TipOdp AS CdTipOdp,M.OrdPago AS NumOrden,M.IdCiaOdp AS MucCiaOdp,M.FechaOdp AS FecOrden,OP.PesoTotal AS OdpPesoNeto,OP.Unidades AS OdpCantidad,OP.Volumen AS OdpVolumen
,OP.TarifaTabla AS OdpTarifTabla,OP.TarifaFlete AS OdpTarifFlete,OP.UnidTarifa AS OdpUndTarifa,OP.VrTotalFletes AS OdpTotalFletes,OP.VrDescuento AS OdpVrDcto,OP.VrRetencion AS OdpVrRetFte
,OP.VrReteIca AS OdpReteIca,OP.VrAnticipos AS OdpAnticipos,OP.VrFaltantes AS OdpFaltantes,VrSeguros,VrFondos,VrAportes,VrOtrosDctos,VrImpuestos,VrEstampilla,VrOtrosPagos,OP.VrNeto AS OdpVrNetoPagar,ODP.Observacion AS OdpObserv
--egresos
,OP.TipEgr,Egreso,IdCiaEgr,EG.Fecha AS FecEgreso,EG.NumCheque,TotalEgresos
--datos remesas
,R.NumPedido AS nPedido,IdCiaPed,FechaPed,R.TipDcm AS TipOdc,R.NumDocmto AS nOCargue,R.IdCiaDcm AS CdCiaOdc,R.FechaDcm AS FecOCargue,R.Observacion AS RemObserv
--Datos del vehic/ poseedor
,NP.TipoId AS TercTipId,NP.Dv AS TercDv,NP.NomCial AS TercNomCial,NP.Direccion AS TercDireccion,NP.IdLocal AS TercCodCiudad,L.Localidad AS NomCiudad,NP.Telefono AS TercTelefono,NP.e_mail AS TercEmail
,NumVeh,V.IdTipoVeh AS CdTipVeh,TipoVehiculo,V.IdMarca AS CdMarca,MV.Marca AS MarcaVeh,V.IdColor AS CdColor,NomColor,V.IdCrceria AS CdCarr,TipoCar,Modelo,Config
,PesoVacio,PesoMax,NumMotor,SerieChasis,NumSerie,NitEmpresa,NE.RazonSocial AS VehNomEmpresa,V.IdPpd AS CdTipProp,TipoProp,TPR.VehPropio AS VehEsPropio,TipoAfil,NumSoat,FecSoat,VigSoat
,CertGases,FecCertGas,VigCertGas,V.Descripcion AS VehDescripcion
,CertJudicial,FecJudicial,VigJudicial,Licencia,CatLicencia,CT.IdLugar AS CdLugar,LugarLic,FecLicencia,VigLicencia,CDT.Direccion AS CdtDireccion,CDT.Telefono AS CdtTelefono,CDT.e_mail AS CdtEmail,CDT.TelMovil AS CdtCelular
 FROM Trn_TraManifRem AS RM INNER JOIN Trn_TraManifiesto AS M ON RM.TipDoc=M.TipDoc AND RM.Manifiesto=M.Manifiesto AND RM.IdCia=M.IdCia
 INNER JOIN Trn_TraRemMcias AS D ON RM.TipRem=D.TipDoc AND RM.Remesa=D.NumOrden AND RM.IdCiaRem=D.IdCia AND RM.ItemRem=D.Item
 INNER JOIN Trn_TraRemesa AS R ON RM.TipRem=R.TipDoc AND RM.Remesa=R.NumOrden AND RM.IdCiaRem=R.IdCia
 INNER JOIN Companias AS CN ON RM.IdCia=CN.IdCia 
 INNER JOIN Localidades AS LO ON D.IdOrigen=LO.IdLocal INNER JOIN Departamentos AS DPO ON LO.IdDep=DPO.IdDep
 INNER JOIN Localidades AS LD ON D.IdDestino=LD.IdLocal INNER JOIN Departamentos AS DPD ON LD.IdDep=DPD.IdDep
 INNER JOIN UndMed AS UM ON D.IdUnd=UM.IdUnd INNER JOIN Terceros AS T ON R.IdCliente=T.IdTercero
 INNER JOIN Terceros AS CDT ON M.IdConductor=CDT.IdTercero INNER JOIN Terceros AS NP ON M.IdPoseedor=NP.IdTercero 
 INNER JOIN Localidades AS L ON NP.IdLocal=L.IdLocal 
 INNER JOIN Vehiculos AS V ON M.IdVehiculo=V.IdVehiculo INNER JOIN TiposVeh AS TV ON V.IdTipoVeh=TV.IdTipoVeh 
 INNER JOIN Marcas AS MV ON V.IdMarca=MV.IdMarca INNER JOIN TiposCol AS CL ON V.IdColor=CL.IdColor
 INNER JOIN TiposCar AS TC ON V.IdCrceria=TC.IdCrceria  INNER JOIN TiposPpt AS TPR ON V.IdPpd=TPR.IdPpd
 LEFT JOIN Terceros AS NE ON  V.NitEmpresa=NE.IdTercero
 LEFT JOIN Trn_TraOrdenPago AS ODP ON M.TipOdp=ODP.TipDoc AND M.OrdPago=ODP.OrdPago AND M.IdCiaOdp=ODP.IdCia
 LEFT JOIN Trn_TraOrdenManif AS OP ON M.TipOdp=OP.TipDoc AND M.OrdPago=OP.OrdPago AND M.IdCiaOdp=OP.IdCia
 LEFT JOIN Agencias AS A ON R.IdAgencia=A.IdAgencia LEFT JOIN Sys_Um AS UMP ON D.UndMed=UMP.UndMed 
 LEFT JOIN Empaques AS EQ ON D.IdEmp=EQ.IdEmp
 LEFT JOIN TercCndtores AS CT ON M.IdConductor=CT.IdConductor LEFT JOIN ExpLicencias AS EL ON CT.IdLugar=EL.IdLugar
 LEFT JOIN Trn_Comprobantes AS EG ON OP.TipEgr=EG.TipCom AND OP.Egreso=EG.Comprobante AND OP.IdCiaEgr=EG.IdCia
 --total de egresos
 LEFT JOIN (SELECT EO.TipOdp AS TipOrden,EO.OrdPago AS NumOPago,EO.IdCiaOdp AS CdCiaOpago,SUM(VrAbonado) AS TotalEgresos
 FROM Trn_TraEgrOrden AS EO INNER JOIN Trn_Comprobantes AS E ON EO.TipCom=E.TipCom AND EO.NumEgreso=E.Comprobante AND EO.IdCia=E.IdCia
 WHERE E.Anulado=0 GROUP BY EO.TipOdp,EO.OrdPago,EO.IdCiaOdp) AS EGT ON M.TipOdp=EGT.TipOrden AND M.OrdPago=EGT.NumOPago AND M.IdCiaOdp=EGT.CdCiaOpago
WHERE RM.TipDoc='MUC' AND M.Fecha BETWEEN @pmFechaIni AND @pmFechaFin AND M.IdCia LIKE ISNULL(@pmIdCia,'%%')
AND  M.IdVehiculo LIKE ISNULL(@pmIdVehiculo,'%') AND M.IdPoseedor LIKE ISNULL(@pmIdPoseedor,'%')






GO
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO



CREATE PROCEDURE [paQrytm_PreExtoLta] @pmtmEst CHAR(2),@pmFecCorte SMALLDATETIME
AS 
SELECT tmIdCliente,T.RazonSocial AS NomCliente,tmIdAgencia,NomAgencia AS Agencia,tmFecha,tmFecVence,tmTipDoc,TipoDoc,tmNumero,tmIdCia,Compania,tmItem,tmCargos,tmAbonos
,tmIdLinea,LinCredito,CupoCredito,tmConcepto,tmDetalle,tmReferencia,tmCredito,tmVrPrestamo,tmVrCuota,tmTotAbonos,tmTipoAbono,tmNCuota,tmIdVend,VN.RazonSocial AS NomVendedor
,tmTipRef,tmDocRef,tmIdCiaRef,tmTipCom,tmComprobante,tmIdCiaCom,tmAnulado,tmNumDev,tmFecDev,tmDTF_EA,tmTasaNom,tmTasaEfe
,tmSanClie,tmSanCia,tmSanAgenc,tmSanAgeCia,tmSanLinea,tmSanLineaCia,tmSanConc,tmSanConcCia,IdReg,tmTimeSys
,NumCredito,NPlazos,Causacion,FecPrestamo,TipoCredito,P.Observacion AS Observ
--Total pagos a capital
,ISNULL(CASE tmTipDoc WHEN 'PR1' THEN (SELECT SUM(Trn_FinAbonos.TotalAbono) FROM Trn_FinAbonos INNER JOIN Trn_FinCuotas ON Trn_FinAbonos.TipDoc=Trn_FinCuotas.TipDoc
 AND Trn_FinAbonos.IdPrestamo=Trn_FinCuotas.IdPrestamo AND Trn_FinAbonos.IdCiaPre=Trn_FinCuotas.IdCia AND Trn_FinAbonos.ItemPre=Trn_FinCuotas.Item
 WHERE Trn_FinAbonos.TipDoc=EX.tmTipDoc AND Trn_FinAbonos.IdPrestamo=EX.tmNumero AND Trn_FinAbonos.IdCiaPre=EX.tmIdCia
 AND Trn_FinAbonos.Fecha<=@pmFecCorte AND Trn_FinCuotas.Concepto='CAPITAL') ELSE 0 END,0) AS VrPagosCapital
,ISNULL(CASE tmTipDoc WHEN 'PR1' THEN (SELECT COUNT(NumCuota) FROM Trn_FinCuotas WHERE Trn_FinCuotas.TipDoc=EX.tmTipDoc AND Trn_FinCuotas.IdPrestamo=EX.tmNumero AND Trn_FinCuotas.IdCia=EX.tmIdCia
 AND Trn_FinCuotas.Fecha<=@pmFecCorte AND Trn_FinCuotas.Concepto='CAPITAL') ELSE 0 END,0) AS CuotasCausadas
--datos del cliente
,T.TipoId AS ClieTipoId,T.Dv AS ClieDv,T.Direccion AS ClieDireccion,T.IdLocal AS ClieCdCiudad,L.Localidad AS NomCiudad,L.IdDep AS CdDep,DP.Departamento AS ClieDpto
,T.Telefono AS ClieTelefono,T.Fax AS ClieFax,T.e_mail AS ClieEmail,CLI.IdGrupo AS CdGrupoCli,GrupoClie,CLI.IdTipoTerc AS CdTipoTerc,TipoTercero,EsExento
FROM tm_PreExto AS EX INNER JOIN Terceros AS T ON EX.tmIdCliente=T.IdTercero INNER JOIN  Companias AS CI ON EX.tmIdCia=CI.IdCia
INNER JOIN LineasCred AS LC ON EX.tmIdLinea=LC.IdLinea
INNER JOIN  TercCliePrestamo AS CLI ON EX.tmIdCliente=CLI.IdClie AND EX.tmIdAgencia=CLI.IdAgencia
INNER JOIN GruposCli AS GC ON CLI.IdGrupo=GC.IdGrupo  INNER JOIN  TiposTerc AS TTC ON CLI.IdTipoTerc=TTC.IdTipoTerc
INNER JOIN Localidades AS L ON T.IdLocal=L.IdLocal  INNER JOIN Departamentos AS DP ON L.IdDep=DP.IdDep 
LEFT JOIN Terceros AS VN ON EX.tmIdVend=VN.IdTercero
LEFT JOIN TercClieLineas AS CL ON EX.tmIdCliente=CL.IdClie AND EX.tmIdAgencia=CL.IdAgencia AND EX.tmIdLinea=CL.IdLinea
LEFT JOIN Sys_TiposDoc AS TD ON EX.tmTipDoc=TD.IdDoc 
LEFT JOIN Trn_FinPrestamo AS P ON EX.tmTipDoc=P.TipDoc AND EX.tmNumero=P.IdPrestamo AND EX.tmIdCia=P.IdCia
WHERE tmEst=@pmtmEst



GO
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO


CREATE PROCEDURE [paQryComprobantesEgo] @pmFechaIni SMALLDATETIME,@pmFechaFin SMALLDATETIME,@pmIdCia CHAR(2)=Null,@pmIdTercero VARCHAR(16)=Null
 AS 
 SELECT C.TipCom AS CdTipEgr,TipoCom,C.Comprobante AS NumEgreso,C.IdCia AS CdCiaEgr,Compania,C.Fecha AS FecEgreso,T.TipoId AS TercTipo,C.IdTercero AS NitTercero,T.Dv AS TercDv
,T.RazonSocial AS NomTercero,VrTotal,C.IdCta AS CdCtaCte,NumeroCta,CTA.IdBanco AS CdBanco,Banco,EnEfectivo,C.NumCheque AS NoCheque,FecCheque
,TipDoc,Documento,IdCiaDoc,Anulado,NumDev,FecDev,pVehiculo,C.VehPropio AS VehEsPropio,CedCondtor,CD.RazonSocial AS NomConductor,Beneficiario,Anticipo,C.Observacion AS Observ
 FROM Trn_Comprobantes AS C INNER JOIN Companias AS CI ON C.IdCia=CI.IdCia INNER JOIN Terceros AS T ON C.IdTercero=T.IdTercero
 INNER JOIN TiposCom AS TC ON C.TipCom=TC.IdCom
 LEFT JOIN CtasCorrientes AS CTA ON C.IdCta=CTA.IdCta LEFT JOIN Bancos AS BCT ON CTA.IdBanco=BCT.IdBanco
 LEFT JOIN Terceros AS CD ON C.CedCondtor=CD.IdTercero 
 WHERE C.Fecha BETWEEN @pmFechaIni AND @pmFechaFin AND C.EsEgreso=1 AND C.IdCia LIKE ISNULL(@pmIdCia,'%%') AND C.IdTercero LIKE ISNULL(@pmIdTercero,'%')


GO
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
CREATE PROCEDURE [paQryComDetalleDmto] @pmTipDoc VARCHAR(3),@pmDocumentoIni INT,@pmDocumentoFin INT,@pmIdCia CHAR(2)
 AS 
 SELECT TipCom,TipoCom,Comprobante,D.IdCia AS CdCia,Compania,Item,Fecha,D.IdCuenta AS CdCuenta,NomCuenta,Detalle,VrDebito,VrCredito,D.IdTercero AS NitTercero,T.RazonSocial AS NomTercero
,IdVehiculo,D.IdCCosto AS CdCCosto,CCosto,D.IdSubCos AS CdSubCosto,SubCosto,VehPropio,VrBase,TarifaBase,TipDoc,Documento,IdCiaDoc,CodConce,Concepto
,TipFac,Factura,IdCiaFac,ItemFac,FecVence,CodCta,NumeroCta,CTA.IdBanco AS CdBanco,Banco,NumCheque,Integrado,TipoAplica,Consolida,CodCargo
,NitOtros,N.RazonSocial AS NomTerceroOtros,CodSubgpo,CiuOrigen,Localidad,CodAgncia,A.Agencia AS NomAgencia,Referncia,NitDoc,TipDocRef,DocRef,IdCiaRef
,TimeSys,IdCiaCrea,D.IdUsuario AS CdUsuario,Usuario
 FROM Trn_ComDetalle AS D INNER JOIN Companias AS CI ON D.IdCia=CI.IdCia INNER JOIN TiposCom AS TC ON D.TipCom=TC.IdCom
 INNER JOIN Terceros AS T ON D.IdTercero=T.IdTercero INNER JOIN Puc AS P ON D.IdCuenta=P.IdCuenta
 INNER JOIN adm_Usuarios AS U ON D.IdUsuario=U.IdUsuario
 LEFT JOIN CentroCosto AS O ON D.IdCCosto=O.IdCCosto  LEFT JOIN SubCentros AS SC ON D.IdSubCos=SC.IdSubCos
 LEFT JOIN Agencias AS A ON D.CodAgncia=A.IdAgencia LEFT JOIN Conceptos AS CN ON D.CodConce=CN.IdConcepto
 LEFT JOIN CtasCorrientes AS CTA ON D.CodCta=CTA.IdCta LEFT JOIN Bancos AS BCT ON CTA.IdBanco=BCT.IdBanco
 LEFT JOIN Terceros AS N ON D.NitOtros=N.IdTercero LEFT JOIN Localidades AS DL ON D.CiuOrigen=DL.IdLocal
 WHERE TipDoc=@pmTipDoc AND Documento  BETWEEN @pmDocumentoIni AND @pmDocumentoFin AND D.IdCia=@pmIdCia
 AND Integrado=1

GO
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
CREATE PROCEDURE [paQryTarifasFleMay] @pmNumero INT
 AS 
 SELECT Numero,TipoTarifa,IdOrigen,IdAgencia,NitEmpresa,IdTipoVeh,TipoLiquida,VrTarifa,Inactivo,FechaCrea,IdUsuario
 FROM TarifasFleMay
 WHERE Numero=@pmNumero


GO
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
CREATE PROCEDURE [paInsTarifasFleMay] @pmNumero INT,@pmTipoTarifa VARCHAR(10),@pmIdOrigen VARCHAR(8),@pmIdAgencia VARCHAR(16),@pmNitEmpresa VARCHAR(16),@pmIdTipoVeh VARCHAR(4)
,@pmTipoLiquida VARCHAR(10),@pmVrTarifa DECIMAL(14,4),@pmInactivo BIT,@pmFechaCrea SMALLDATETIME,@pmIdUsuario VARCHAR(11)
 AS 
 INSERT INTO TarifasFleMay (Numero,TipoTarifa,IdOrigen,IdAgencia,NitEmpresa,IdTipoVeh,TipoLiquida,VrTarifa,Inactivo,FechaCrea,IdUsuario)
 VALUES (@pmNumero,@pmTipoTarifa,@pmIdOrigen,@pmIdAgencia,@pmNitEmpresa,@pmIdTipoVeh,@pmTipoLiquida,@pmVrTarifa,@pmInactivo,@pmFechaCrea,@pmIdUsuario)

GO
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
CREATE PROCEDURE [paUpTarifasFleMay] @pmNumero INT,@pmTipoTarifa VARCHAR(10),@pmIdOrigen VARCHAR(8),@pmIdAgencia VARCHAR(16),@pmNitEmpresa VARCHAR(16),@pmIdTipoVeh VARCHAR(4)
,@pmTipoLiquida VARCHAR(10),@pmVrTarifa DECIMAL(14,4),@pmInactivo BIT
 AS 
 UPDATE TarifasFleMay SET TipoTarifa=@pmTipoTarifa,IdOrigen=@pmIdOrigen,IdAgencia=@pmIdAgencia,NitEmpresa=@pmNitEmpresa,IdTipoVeh=@pmIdTipoVeh,TipoLiquida=@pmTipoLiquida
,VrTarifa=@pmVrTarifa,Inactivo=@pmInactivo
 WHERE Numero=@pmNumero

GO
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO

CREATE PROCEDURE [paInstm_AfRetiro_Sel] @pmtmNumero VARCHAR(5),@pmIdMov VARCHAR(4),@pmNumero INT,@pmIdCia CHAR(2)
 AS 
 INSERT INTO tm_AfRetiro (tmNumero,tmItem,tmIdActivo,tmIdCausal,tmNitTercero,tmNomTercero,tmCostoIni,tmMejoras,tmDisminucion,tmAcuAjustes,tmDepAcum
,tmAjuDepAcum,tmVrIngreso,tmFechaRet,tmIdCueDeb,tmIdCueIng,tmConcepto,tmIdCia,tmCdCCosto,tmCdSubCos,tmNitRespons)
 SELECT  @pmtmNumero,Item,R.IdActivo,R.IdCausal,NitTercero,NomTercero,VrCostoIni,R.VrMejoras,R.VrDisminucion,VrAcuAjustes,VrDepAcum
,VrAjuDepAcum,VrIngreso,FechaRet,IdCueDeb,IdCueIng,Concepto,R.IdCia,IdCCosto,IdSubCos,IdRespons
 FROM Trn_AfMovRetiro AS R INNER JOIN  Activos AS A ON R.IdActivo=A.IdActivo
 WHERE R.IdMov=@pmIdMov AND R.Numero=@pmNumero AND R.IdCia=@pmIdCia

GO
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO

CREATE PROCEDURE [paInsTraRemCntdor] @pmTipDoc VARCHAR(3),@pmNumOrden INT,@pmIdCia CHAR(2),@pmItem INT,@pmIdTipoCon VARCHAR(4),@pmNumContdor VARCHAR(50),@pmPesoNeto DECIMAL(14,4),@pmIdTipoPre VARCHAR(4)
,@pmNumPrecinto VARCHAR(30),@pmColorPrecinto VARCHAR(20),@pmSellos VARCHAR(150),@pmPeligroso BIT,@pmPerecedero BIT,@pmToxico BIT,@pmInflamable BIT,@pmDifmanejo BIT,@pmFragil BIT,@pmDevCont BIT
,@pmCdLocCont VARCHAR(8),@pmPatioCont VARCHAR(50),@pmObservacion VARCHAR(150)
 AS 
 INSERT INTO Trn_TraRemCntdor (TipDoc,NumOrden,IdCia,Item,IdTipoCon,NumContdor,PesoNeto,IdTipoPre,NumPrecinto,ColorPrecinto,Sellos,Peligroso,Perecedero,Toxico,Inflamable,Difmanejo,Fragil,DevCont,CdLocCont,PatioCont,Observacion)
 VALUES (@pmTipDoc,@pmNumOrden,@pmIdCia,@pmItem,@pmIdTipoCon,@pmNumContdor,@pmPesoNeto,@pmIdTipoPre,@pmNumPrecinto,@pmColorPrecinto,@pmSellos,@pmPeligroso,@pmPerecedero,@pmToxico,@pmInflamable
,@pmDifmanejo,@pmFragil,@pmDevCont,@pmCdLocCont,@pmPatioCont,@pmObservacion)