Te lo anexo aqui mismo:
Libro mayor:
DECLARE @CUENTAINI NVARCHAR(210)
DECLARE @CUENTAFIN NVARCHAR(210)
DECLARE @RUC NVARCHAR(32)
DECLARE @RAZONSOCIAL NVARCHAR(100)
SELECT @RAZONSOCIAL = (select TOP 1 CompnyName from OADM)
SELECT @RUC = (select TOP 1 TaxIdNum from OADM)
/* SELECT * FROM .[@BPP_AUX] T0*/
DECLARE @FECHAINI DATETIME
DECLARE @FECHAFIN DATETIME
/* WHERE */
SELECT @FECHAINI /* T0.U_BPP_FECINI */ ='[%0]'
/* AND */
SELECT @FECHAFIN /* T0.U_BPP_FECFIN */ ='[%1]'
SELECT @CUENTAINI = (select T1.FormatCode from .[OACT] T1 Where T1.FormatCode=REPLACE('[%2]','-',''))
SELECT @CUENTAFIN = (select T2.FormatCode from .[OACT] T2 Where T2.FormatCode=REPLACE('[%3]','-',''))
SELECT * FROM
(
SELECT
CONVERT(VARCHAR,@FECHAINI,105) +' al ' + CONVERT(VARCHAR,@FECHAFIN,105) AS 'Periodo',
NULL AS 'RUC',
NULL AS 'Razon Social',
T3.FormatCode AS 'Codigo Cuenta',
0 AS 'Numero Correlativo',
NULL AS 'Fecha',
'Saldo Inicial' AS 'Glosa',
'Deudor'=
CASE
WHEN
(SELECT SUM(A.Debit-A.Credit) FROM JDT1 A INNER JOIN OJDT K ON K.TransId=A.TransId WHERE A.Account=T0.Account AND K.RefDate<@FECHAINI GROUP BY A.Account) >0
THEN
(SELECT SUM(A.Debit-A.Credit) FROM JDT1 A INNER JOIN OJDT K ON K.TransId=A.TransId WHERE A.Account=T0.Account AND K.RefDate<@FECHAINI GROUP BY A.Account)
ELSE 0
END,
'Acreedor'=
CASE
WHEN
(SELECT SUM(A.Debit-A.Credit) FROM JDT1 A INNER JOIN OJDT K ON K.TransId=A.TransId WHERE A.Account=T0.Account AND K.RefDate<@FECHAINI GROUP BY A.Account)<0
THEN
(SELECT SUM(A.Debit-A.Credit) FROM JDT1 A INNER JOIN OJDT K ON K.TransId=A.TransId WHERE A.Account=T0.Account AND K.RefDate<@FECHAINI GROUP BY A.Account)*-1
ELSE 0
END,
T3.AcctName AS 'Nombre Cuenta',
'' as 'NombreSN'
FROM .[OJDT] T1 INNER JOIN .[JDT1] T0 ON T1.TransId = T0.TransId
INNER JOIN .[OFPR] T2 ON T2.AbsEntry = T1.FinncPriod
INNER JOIN .[OACT] T3 ON T3.AcctCode = T0.Account
WHERE
1=1
AND T1.[RefDate]<=@FECHAFIN
AND
T3.FormatCode>=@CUENTAINI and T3.FormatCode<=@CUENTAFIN
GROUP BY T3.FormatCode,T0.Account,T3.AcctName
UNION ALL
SELECT
CONVERT(VARCHAR,@FECHAINI,105) +' al ' + CONVERT(VARCHAR,@FECHAFIN,105) AS 'Periodo',
T0.TransId AS 'RUC',
T1.RefDate AS 'Razon Social',
T3.FormatCode AS 'Codigo Cuenta',
T0.TransId AS 'Numero Correlativo',
T1.RefDate AS 'Fecha',
isnull(T1.Memo,T1.Ref1) AS 'Glosa',
T0.Debit AS 'Deudor',
T0.Credit AS 'Acreedor',
T3.AcctName AS 'Nombre Cuenta',
(CASE WHEN LEFT(T0.shortname,4)='_SYS' THEN (SELECT cardname FROM OCRD WHERE cardcode=T0.contraAct)
ELSE (SELECT cardname FROM OCRD WHERE cardcode=T0.shortname) END) AS 'NombreSN'
FROM .[OJDT] T1 INNER JOIN .[JDT1] T0 ON T1.TransId = T0.TransId
INNER JOIN .[OFPR] T2 ON T2.AbsEntry = T1.FinncPriod
INNER JOIN .[OACT] T3 ON T3.AcctCode = T0.Account
WHERE
1=1
AND T1.[RefDate]>=@FECHAINI
AND T1.[RefDate]<=@FECHAFIN
AND T3.FormatCode>=@CUENTAINI
AND T3.FormatCode<=@CUENTAFIN
) AAA
Order by ,[Fecha],[Numero Correlativo]