USE [dbmov]
GO
/****** Object:  StoredProcedure [dbo].[paQryFacturas_Cr]    Script Date: 09/09/2021 11:56:26 ******/
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		16/08/2018		1			Impresión de factura a crédito para facturación electrónica de syscom 30
HEDINVER		19/11/2018		2			Se agregan alias a los campos
HEDINVER		09/01/2020		3			Se agregan campos de vales credito
HEDINVER		22/01/2020		4			Se comentan los campos de vales credito, se crea subreporte de vales
HEDINVER		16/09/2020		5			Se agrega campo KAR_DCT para el porcentaje del descuento
HEDINVER		24/09/2020		6			Se agregan campos FACTURAS.FAC_COT,FAC_CPD,FAC_CRM,FAC_PED
HEDINVER		2020/11/21		7			Se agrega campo (CON_CFE AS CodigoFE) para indicar el codigo del concepto de facturacion
HEDINVER		2020/12/10		8			Se agrega campo (FACTURAS.FAC_ODC OtrosDescuentos) para indicar el valor agregado por otros descuentos
HEDINVER		2021/06/11		9			Se agrega campo (REFERENCIAS.REF_TAM Tamano) para calcular el peso del producto
-- =============================================
***********************************************************************************/
CREATE PROCEDURE [dbo].[paQryFacturas_Cr] @pmTipDoc VARCHAR(3),@pmFacturaIni INT,@pmFacturaFin INT,@pmIdCia CHAR(2)
 AS 
SELECT
    FACTURAS.FAC_NUM AS NumFactura,FACTURAS.FAC_CIA AS CiaFactura,FACTURAS.FAC_TIP AS TipFactura,FACTURAS.FAC_FEC AS FechaFactura,FACTURAS.FAC_VCE AS FechaVence
	,INFDOC.DOC_FEC AS FecElabora,FACTURAS.FAC_REM AS Remision,FACTURAS.FAC_VAL VrFactura,FACTURAS.FAC_IVA AS VrIva,FACTURAS.FAC_DCT AS VrDescuento
	,FACTURAS.FAC_ARI AS VrAutRetICA,FACTURAS.FAC_ARF AS VrAutRetFte,FACTURAS.FAC_RET AS VrRetencion,FACTURAS.FAC_NET AS VrNeto,FACTURAS.FAC_MOD AS Modulo
	,FACTURAS.FAC_IMP AS VrOtrosImpuestos,FACTURAS.FAC_OTR AS VrOtros,FACTURAS.FAC_PAG AS OtrosPAgos,CONDPAGO.CDP_PLA AS Plazo,TIPOS_DOC.TIP_PRE AS Prefijo
	,FACTURAS.FAC_ICA AS VrIca,FACTURAS.FAC_RIV AS VrReteIva,FACTURAS.FAC_VEH AS PlacaVeh, FACTURAS.FAC_REF AS Referencia, FACTURAS.FAC_RTC AS VrRetecree
	,FACTURAS.FAC_TRC AS TarRetecree,USUARIOS.USU_NOM AS Usuario,FACTURAS.FAC_FLE AS VrFletes, FACTURAS.FAC_PED Pedido, FACTURAS.FAC_COT Cotizacion, FACTURAS.FAC_CPD
	CiaPedido,FACTURAS.FAC_CRM CiaRemision, FACTURAS.FAC_ODC OtrosDescuentos
	--HABILITAR PARA USAR EL FORMATO SIN SUBREPORTE AGRUPADO POR PRODUCTO DEL VALE
----Campos de Vales		
--	,CR.CRE_PLA AS Planilla, CR.CRE_CIA AS CiaPla,CR.CRE_NUM AS NumVale, CR.CRE_VAL AS VrVale,CR.CRE_GAL AS CantGalones
--	,CR.CRE_PRO AS CodProdVale, RF1.REF_DES AS ProdVale, CR.CRE_VEH AS PlacaVale, CR.CRE_OBS AS DescripcionVale
--Cliente
	,NIT.NIT_NIT AS NitCliente,NIT.NIT_NOM AS NomCliente,NIT.NIT_DV AS DigVerificacion,NIT.NIT_DIR AS DirCliente
	,NIT.NIT_TEL AS TelCliente,NIT_1.NIT_NIT AS NitVendedor,NIT_1.NIT_NOM AS NomVendedor,CIUDADES_1.CIU_DES AS CiuCliente, NIT.NIT_EML AS EmailCliente
--Agencias
	,AGENCIAS.AGE_NOM AS NomAgencia, AGENCIAS.AGE_DIR AgeDireccion, AGENCIAS.AGE_TEL AgeTelefono, AGENCIAS.AGE_EML AgeEmail, CA.CIU_DES AgeCiudad
--Productos
    ,KARDEX.KAR_ITM AS Item,KARDEX.KAR_COD AS CodProducto,KARDEX.KAR_SAL AS CantSalida,KARDEX.KAR_PRE AS PrecioUnitario,KARDEX.KAR_IVA AS PorcentajeIva
	,KARDEX.KAR_VDS AS DesctoSalidas,KARDEX.KAR_IMP AS Impuesto,KARDEX.KAR_BAS AS VrUnitario,KARDEX.KAR_SEC AS Seccion,KARDEX.KAR_TAN AS NroTanque
	,REFERENCIAS.REF_DES AS NombreProducto,REFERENCIAS.REF_TAN AS PideTanque, KARDEX.KAR_ICO AS VrImpConsumo, KARDEX.KAR_TIC AS PorcetajeICO, KARDEX.KAR_VIS AS VrIvaSal
	,KARDEX.KAR_REF AS KarReferencia, KARDEX.KAR_PRT AS TarRetFTEDet, KARDEX.KAR_RSA AS ValRetDet, KARDEX.KAR_CRF AS CodPorRetDet, KARDEX.KAR_UNI AS Unidades
	,KARDEX.KAR_COM AS Escombo, U.UNI_DES AS Unidad, KARDEX.KAR_DCT PorcentajeDcto, REFERENCIAS.REF_CFE AS CodigoFE, REFERENCIAS.REF_TAM Tamano
--Documento	
	,INFDOC.DOC_CMP AS TipComprobante,INFDOC.DOC_NCP AS NroComprobante,INFDOC.DOC_DEV AS Devuleto,INFDOC.DOC_NDV AS NroDevolucion,INFDOC.DOC_MUL
	AS MultiplesPagos,INFDOC.DOC_OBS AS Observacion,INFDOC.DOC_POR AS PorcentajeRtfte, INFDOC.DOC_PO1 AS PorcentajeIca
	, MOVSERIAL.MOV_NUM AS NumeroSerial, FACTURAS.FAC_AGE AS IdAgencia
--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
FROM DBMOV.dbo.FACTURAS FACTURAS LEFT JOIN DBPAR.dbo.TIPOS_DOC TIPOS_DOC ON FACTURAS.FAC_TIP = TIPOS_DOC.TIP_COD
    LEFT JOIN DBPAR.dbo.NIT NIT ON FACTURAS.FAC_CLI = NIT.NIT_NIT
    LEFT JOIN DBPAR.dbo.NIT NIT_1 ON FACTURAS.FAC_VEN = NIT_1.NIT_NIT
    LEFT JOIN DBMOV.dbo.KARDEX KARDEX ON FACTURAS.FAC_TIP = KARDEX.KAR_TIP AND FACTURAS.FAC_NUM = KARDEX.KAR_NUM AND FACTURAS.FAC_CIA = KARDEX.KAR_CIA
    LEFT JOIN DBMOV.dbo.INFDOC INFDOC ON FACTURAS.FAC_TIP = INFDOC.DOC_TIP AND FACTURAS.FAC_NUM = INFDOC.DOC_NUM AND FACTURAS.FAC_CIA = INFDOC.DOC_CIA
    LEFT JOIN DBPAR.dbo.AGENCIAS AGENCIAS ON FACTURAS.FAC_AGE = AGENCIAS.AGE_COD AND FACTURAS.FAC_CLI = AGENCIAS.AGE_NIT 
	LEFT JOIN DBPAR.dbo.CIUDADES CA ON AGENCIAS.AGE_CIU=CA.CIU_COD -- Ciudad de la agencia
	LEFT JOIN DBMOV.dbo.Trn_Face Trn_Face ON FACTURAS.FAC_TIP = Trn_Face.TipDoc AND FACTURAS.FAC_NUM = Trn_Face.Documento AND FACTURAS.FAC_CIA = Trn_Face.IdCia
    LEFT JOIN DBPAR.dbo.REFERENCIAS REFERENCIAS ON KARDEX.KAR_COD = REFERENCIAS.REF_COD 
	LEFT JOIN DBPAR.dbo.CONDPAGO CONDPAGO ON INFDOC.DOC_PAG = CONDPAGO.CDP_NUM
    LEFT JOIN DBPAR.dbo.CIUDADES CIUDADES_1 ON NIT.NIT_CIU = CIUDADES_1.CIU_COD
	LEFT JOIN DBACC.dbo.USUARIOS USUARIOS ON INFDOC.DOC_USU = USUARIOS.USU_ID
	LEFT JOIN DBMOV.dbo.MOVSERIAL MOVSERIAL ON KARDEX.KAR_TIP = MOVSERIAL.MOV_TIP AND KARDEX.KAR_NUM = MOVSERIAL.MOV_DOC AND KARDEX.KAR_CIA = MOVSERIAL.MOV_CIA AND KARDEX.KAR_COD = MOVSERIAL.MOV_COD
	LEFT JOIN DBPAR.dbo.UNIDADES U ON REFERENCIAS.REF_UNI=U.UNI_COD
		--HABILITAR PARA USAR EL FORMATO SIN SUBREPORTE AGRUPADO POR PRODUCTO DEL VALE
	--LEFT JOIN DBSAL.DBO.CREDITOS CR ON FACTURAS.FAC_NUM=CR.CRE_FAC AND FACTURAS.FAC_TIP=CR.CRE_TDC AND FACTURAS.FAC_CIA=CR.CRE_CFA
	--LEFT JOIN DBPAR.dbo.REFERENCIAS RF1 ON CR.CRE_PRO = RF1.REF_COD 
	--LEFT JOIN DBMOV.dbo.KARDEX KP ON KP.KAR_TIP='PLA' AND CR.CRE_PLA=KP.KAR_NUM AND CR.CRE_CIA=KP.KAR_CIA AND CR.CRE_PRO=KP.KAR_COD
 WHERE FACTURAS.FAC_TIP=@pmTipDoc AND FACTURAS.FAC_NUM BETWEEN @pmFacturaIni AND @pmFacturaFin AND FACTURAS.FAC_CIA=@pmIdCia
 ORDER BY FACTURAS.FAC_CIA,FACTURAS.FAC_NUM,KARDEX.KAR_ITM

