USE [dbmov]
GO
/****** Object:  StoredProcedure [dbo].[paQryDevF_Cr]    Script Date: 16/02/2021 8:06:42 ******/
DROP PROCEDURE [dbo].[paQryDevF_Cr]
GO
/****** Object:  StoredProcedure [dbo].[paQryDevF_Cr]    Script Date: 16/02/2021 8:06:42 ******/
SET ANSI_NULLS OFF
GO
SET QUOTED_IDENTIFIER OFF
GO
/**********************************************************************************
-- =============================================
-- Author:	Heiman Daza
-- Create date(dd/MM/yyyy): 16/08/2018
-- Description:	Impresión de factura a crédito de transporte para facturación electrónica de syscom 30

* History ------------------------------------------------------------------------
* Author           	|Date        	|Version	|Reason
HEDINVER		17/08/2018			1			Impresión de devoluciones factura a crédito para facturación electrónica de syscom 30
HEDINVER		20/11/2018			2			Se agregan alias a los campos
HEDINVER		13/01/2020			3			Se agregan campos de Trn_Face
HEDINVER		10/12/2020			4			Se agrega campo DEVOLUCIONES.DEV_DVC OtrosDescuentos
HEDINVER		28/12/2020			5			Se agregan campos de factura relacionada(FecValidaFACT,CufeFcr)
-- =============================================
***********************************************************************************/
CREATE PROCEDURE [dbo].[paQryDevF_Cr] @pmTipDev VARCHAR(3),@pmDevolucionIni INT,@pmDevolucionFin INT,@pmIdCia CHAR(2)
AS 
SELECT DEVOLUCIONES.DEV_TIP AS TipoDev,DEVOLUCIONES.DEV_NUM AS NumDevolucion,DEVOLUCIONES.DEV_CIA AS CiaDevolucion,DEVOLUCIONES.DEV_FEC AS 
FechaDev,DEVOLUCIONES.DEV_CON AS CodConcepto,DEVOLUCIONES.DEV_CLI AS NitCliente,DEVOLUCIONES.DEV_AGE AS CodAgencia,AGENCIAS.AGE_NOM AS Agencia
,DEVOLUCIONES.DEV_DOC AS NumDocumento,DEVOLUCIONES.DEV_CDC AS  CiaDocumento,DEVOLUCIONES.DEV_VAL AS VrDevolucion,DEVOLUCIONES.DEV_IVA AS
VrIva,DEVOLUCIONES.DEV_DCT AS VrDescuento,DEVOLUCIONES.DEV_RET AS VrRetencion,DEVOLUCIONES.DEV_ICA AS VrReteica,DEVOLUCIONES.DEV_COS AS VrCosto
,DEVOLUCIONES.DEV_FLE AS VrFletes,DEVOLUCIONES.DEV_OTR AS VrOtros,DEVOLUCIONES.DEV_FAL AS VrFaltantes,DEVOLUCIONES.DEV_PAG AS VrOtrosPAgos
,DEVOLUCIONES.DEV_IMP AS VrOtImpuesto,DEVOLUCIONES.DEV_NET AS VrNeto,DEVOLUCIONES.DEV_PAR AS Parcial,DEVOLUCIONES.DEV_VEN AS NitVendedor
,DEVOLUCIONES.DEV_CMS AS PorComision,DEVOLUCIONES.DEV_VEH AS Vehiculo,DEVOLUCIONES.DEV_MOD AS Modulo,CONCEPTOS.CON_DES AS Concepto
,NIT.NIT_NOM AS NomCliente,TIPOS_DOC.TIP_DES AS DescDocumento,CIUDADES.CIU_DES AS Ciudad,NIT_1.NIT_NOM AS NomVendedor,INFDOC.DOC_CMP AS TipComprobante
,INFDOC.DOC_NCP AS NumComprobante,INFDOC.DOC_OBS AS Observacion,DEVOLUCIONES.DEV_ARI AS VrAutRetICA, DEVOLUCIONES.DEV_ARF AS VrAutRetFte
,DEVOLUCIONES.DEV_DVC OtrosDescuentos
-- DETALLE 
,KARDEX.KAR_TIP AS TipDoc,KARDEX.KAR_NUM AS NumDoc,KARDEX.KAR_CIA AS CiaDet,Transporte,KARDEX.KAR_ITM AS Item,KARDEX.KAR_COD AS CodProducto
,Remesa,KARDEX.REF_DES AS DescProducto,KARDEX.REF_TAN AS PideTanque,KARDEX.KAR_ENT AS CantEntradas,KARDEX.KAR_PRE AS VrUnitario
,KARDEX.KAR_IVA AS PorIva,KARDEX.KAR_TAN AS NroTanque,KARDEX.KAR_SEC AS CodSeccion,KARDEX.Referencia2, KARDEX.CiuOrigen, KARDEX.CiuDestino
,KARDEX.Manifiesto, KARDEX.CiaMuc, KARDEX.Peso, KARDEX.Placa,KARDEX.ConcFact,KAR_VIE VrIVA
--Factura Electronica
,Trn_Face.Prefijo AS PrefijoFace,Trn_Face.NumFace,Trn_Face.CUFE,Trn_Face.CUFE_QR,Trn_Face.Resolucion,Trn_Face.RangoNum,Trn_Face.FecVigencia,
	Trn_Face.FechaValidacion,TFF.Prefijo AS PrefNot, TFF.NumFace AS NumNota, TFF.CUFE CufeFcr,TFF.FechaValidacion FecValidaFACT
FROM dbmov.dbo.DEVOLUCIONES DEVOLUCIONES LEFT JOIN dbpar.dbo.CONCEPTOS CONCEPTOS ON DEVOLUCIONES.DEV_CON = CONCEPTOS.CON_COD
LEFT JOIN dbpar.dbo.NIT NIT ON DEVOLUCIONES.DEV_CLI = NIT.NIT_NIT
LEFT JOIN dbpar.dbo.TIPOS_DOC TIPOS_DOC ON DEVOLUCIONES.DEV_TIP = TIPOS_DOC.TIP_COD
LEFT JOIN dbpar.dbo.CIUDADES CIUDADES ON DEVOLUCIONES.DEV_CIU = CIUDADES.CIU_COD
LEFT JOIN dbpar.dbo.NIT NIT_1 ON DEVOLUCIONES.DEV_VEN = NIT_1.NIT_NIT
LEFT JOIN dbmov.dbo.INFDOC INFDOC ON DEVOLUCIONES.DEV_TIP = INFDOC.DOC_TIP AND DEVOLUCIONES.DEV_NUM = INFDOC.DOC_NUM AND DEVOLUCIONES.DEV_CIA = INFDOC.DOC_CIA
LEFT JOIN DBMOV.dbo.Trn_Face Trn_Face ON DEVOLUCIONES.DEV_TIP = Trn_Face.TipDoc AND DEVOLUCIONES.DEV_NUM = Trn_Face.Documento AND DEVOLUCIONES.DEV_CIA = Trn_Face.IdCia
INNER JOIN (SELECT KARDEX.KAR_TIP,KARDEX.KAR_NUM,KARDEX.KAR_CIA,CASE WHEN KARDEX.KAR_ITM> 0 THEN 0 ELSE 1 END AS TRANSPORTE,KARDEX.KAR_ITM,KARDEX.KAR_COD,0 AS REMESA
	,REFERENCIAS.REF_DES,REFERENCIAS.REF_TAN,KARDEX.KAR_ENT,KARDEX.KAR_PRE,KARDEX.KAR_IVA,KARDEX.KAR_TAN,KARDEX.KAR_SEC,'' PLACA,'' Referencia2, '' CiuOrigen, '' CiuDestino
	,0 Manifiesto,'' CiaMuc, 0 Peso,'' ConcFact, KARDEX.KAR_VIE
	FROM DBMOV.dbo.KARDEX KARDEX LEFT JOIN DBPAR.dbo.REFERENCIAS REFERENCIAS ON KARDEX.KAR_COD = REFERENCIAS.REF_COD 
UNION
SELECT DETMOV.DET_TIP,DETMOV.DET_NUM,DETMOV.DET_CIA,CASE WHEN DETMOV.DET_ITM > 0 THEN 1 ELSE 0 END,DETMOV.DET_ITM,DETMOV.DET_COD,DETMOV.DET_ORD
	,DETMOV.DET_DES,'FALSE',0,DETMOV.DET_VAL,TP.POR_VAL,'','',DETMOV.DET_VEH,DETMOV.DET_RF1, C.CIU_DES, C1.CIU_DES
	,R.REM_PLA,R.REM_CPL,DETMOV.DET_PES,DETMOV.DET_CON,DETMOV.DET_IVA
FROM dbmov.dbo.DETMOV DETMOV LEFT JOIN dbpar.dbo.CIUDADES C1 ON DETMOV.DET_CDE = C1.CIU_COD
LEFT JOIN DBPAR.dbo.CIUDADES C ON DETMOV.DET_ORI = C.CIU_COD LEFT JOIN DBMOV.dbo.REMESAS R ON DETMOV.DET_ORD = R.REM_NUM 
AND DETMOV.DET_TDC = R.REM_TIP AND DETMOV.DET_COD = R.REM_CIA 
LEFT JOIN DBPAR.dbo.CONCEPTOSFAC CF ON DETMOV.DET_CON=CF.CON_COD LEFT JOIN DBPAR.dbo.TABLAPOR AS TP ON CF.CON_IVA=TP.POR_COD)AS
	KARDEX ON DEVOLUCIONES.DEV_TIP = KARDEX.KAR_TIP AND DEVOLUCIONES.DEV_NUM = KARDEX.KAR_NUM AND DEVOLUCIONES.DEV_CIA = KARDEX.KAR_CIA
LEFT JOIN dbpar.dbo.AGENCIAS AGENCIAS ON DEVOLUCIONES.DEV_AGE = AGENCIAS.AGE_COD AND DEVOLUCIONES.DEV_CLI = AGENCIAS.AGE_NIT
LEFT JOIN DBMOV.dbo.Trn_Face TFF ON DEVOLUCIONES.DEV_TDC = TFF.TipDoc AND DEVOLUCIONES.DEV_DOC = TFF.Documento AND DEVOLUCIONES.DEV_CDC = TFF.IdCia
WHERE DEVOLUCIONES.DEV_TIP=@pmTipDev  AND DEVOLUCIONES.DEV_NUM BETWEEN @pmDevolucionIni AND @pmDevolucionFin AND DEVOLUCIONES.DEV_CIA=@pmIdCia
ORDER BY DEVOLUCIONES.DEV_CIA,DEVOLUCIONES.DEV_NUM

GO
