Quantcast
Channel: SCN: Message List
Viewing all articles
Browse latest Browse all 9269

Re: Libro Mayor por Query Manager

$
0
0

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]


Viewing all articles
Browse latest Browse all 9269

Trending Articles