Af Frker

TRUNCATE TABLE #DETAMOV
go
-- 42231.30
TRUNCATE TABLE #RESUMOV
go
-- 42231.32
DROP TABLE #SUCYBOD
go
-- 42231.35
SELECT 'SUC'=KOSU,'BOD'=KOBO INTO #SUCYBOD FROM TABBO WITH ( NOLOCK )
go
-- 42231.37
SELECT KOPR INTO #PASOKOPR FROM MAEPR WITH (NOLOCK) WHERE TIPR <> 'SSN' AND TIPR <> 'FLN'
go
-- 42231.40
SELECT D.KOPRCT,SUM(D.CAPRCO1*FICO+D.CAPRAD1*FIAD) ASFIUD01,SUM(D.CAPRCO2*FICO+D.CAPRAD2*FIAD) AS FIUD02 INTO #PASOSALDO FROM MAEDDO AS D WITH ( NOLOCK ) INNER JOIN TABTIDO ON TABTIDO.TIDO = D.TIDO INNER JOIN #PASOKOPR ON #PASOKOPR.KOPR = D.KOPRCT WHERE D.PRCT= 0 AND D.LILG IN ('SI','CR') AND D.EMPRESA = '01' AND D.FEEMLI<{d '2012-10-01'} GROUP BY D.KOPRCT
go
-- 42231.50
INSERT INTO #PASOSALDO SELECT M.KOPR,0,0 FROM MAEPR AS M WITH (NOLOCK ) INNER JOIN MAEPREM AS E ON E.KOPR=M.KOPR AND E.EMPRESA='01' WHERE M.KOPR IN ( SELECT KOPR FROM #PASOKOPR WITH (NOLOCK) ) AND M.KOPR NOT IN ( SELECT KOPRCT FROM #PASOSALDO WITH (NOLOCK) )
go
-- 42231.73
ALTER TABLE #PASOSALDO ADD [NOKOPR] [varchar](50) NULL,[UD01PR] [char](2) NULL,[UD02PR] [char](2) NULL,[PPP] [float] NULL
go
-- 42231.94
UPDATE #PASOSALDO SETNOKOPR=MAEPR.NOKOPR,UD01PR=MAEPR.UD01PR,UD02PR=MAEPR.UD02PR FROM MAEPR WHERE MAEPR.KOPR=#PASOSALDO.KOPRCT
go
-- 42231.97
UPDATE #PASOSALDO SET PPP=0.0
go
-- 42232.14
INSERT INTO #RESUMOV ( NUDO, FECHA, KOPR, NOKOPR, UDPR, PPP, ENTRADA, SALIDA, PVALORIZ,FECHAP,ENTRADAP, SALIDAP,PPPFIN,VALFIN ) SELECT 'SALDO',{d '2012-09-30'}, KOPRCT, NOKOPR, UD01PR, PPP,CASE WHEN FIUD01>0 THEN FIUD01 ELSE 0 END,CASEWHEN FIUD01<0 THEN FIUD01*-1 ELSE 0 END,FIUD01*PPP, {d '2012-10-09'},0,0,0,0 FROM #PASOSALDO
go
-- 42232.22
SELECT TOP 1 * FROM CONFIGP WITH ( NOLOCK ) WHERE EMPRESA='01'
go
-- 42232.33
INSERT INTO #DETAMOV (TIDO,TIDOPA,NUDO,ENDO,MODO,TIMODO,TAMODO,FECHA,KOPR,NOKOPR,UDPR,NREG,PRECIO,VANELI,PPP,RLUDPR,ENTRADA,SALIDA,PVALORIZ,TEPVALORIZ,TSPVALORIZ,SULIDO,BOSULIDO,IDMAEEDO,IDMAEDDO,HORAGRAB,ARPROD,SUBTIDO,PERIODO,NUMECOM,CUENTA,SUBAUXI,SUBDEBE,SUBHABER ) SELECT EDO.TIDO,DDO.TIDOPA,EDO.NUDO,EDO.ENDO,EDO.MODO,EDO.TIMODO,EDO.TAMODO,DDO.FEEMLI,DDO.KOPRCT,DDO.NOKOPR,(CASE WHEN DDO.UDTRPR=1 THEN DDO.UD01PR ELSE DDO.UD02PR END) AS UDPR,DDO.NULIDO AS NREG,0.0 AS PRECIO,0.0 AS VANELI,0.0 AS PPPRPM,DDO.RLUDPR,( CASE WHEN TD.FICO+TD.FIAD>0 THEN (CASE WHEN DDO.TIDO='GAR' ANDDDO.CAPRCO1<0 THEN 0 ELSE (DDO.CAPRCO1*TD.FICO+DDO.CAPRAD1*TD.FIAD) END ) ELSE 0 END ) AS ENTRADA,( CASE WHEN TD.FICO+TD.FIAD<0 THEN (DDO.CAPRCO1*TD.FICO+DDO.CAPRAD1*TD.FIAD)*-1 ELSE (CASE WHEN DDO.TIDO='GAR' AND DDO.CAPRCO1<0 THEN (DDO.CAPRCO1*TD.FICO+DDO.CAPRAD1*TD.FIAD)*-1 ELSE 0 END ) END ) AS SALIDA,0.0 AS PVALORIZ,0.0 AS TEPVALORIZ,0.0 AS TSPVALORIZ,DDO.SULIDO,DDO.BOSULIDO,DDO.IDMAEEDO,DDO.IDMAEDDO,EDO.HORAGRAB,DDO.ARPROD,EDO.SUBTIDO, ' ' AS PERIODO,' ' AS NUMECOM,' ' AS CUENTA,' ' AS SUBAUXI,0 AS SUBDEBE,0 AS SUBHABER FROM MAEDDO AS DDO INNER JOIN MAEEDO AS EDO ON DDO.IDMAEEDO=EDO.IDMAEEDO AND EDO.EMPRESA='01' INNER JOIN #PASOSALDO AS XX ON XX.KOPRCT=DDO.KOPRCT INNER JOIN TABTIDO AS TD ON TD.TIDO=DDO.TIDO WHERE (TD.FICO <> 0 OR TD.FIAD<> 0 OR DDO.TIDO = 'DIN') AND DDO.FEEMLI BETWEEN {d '2012-10-01'} AND {d '2012-10-09'} AND DDO.LILG IN ('SI','CR' ) AND DDO.ARPROD <> 'COMOD' AND EXISTS ( SELECT * FROM #SUCYBOD AS SB WHERE SB.SUC=DDO.SULIDO AND SB.BOD=DDO.BOSULIDO )
go
-- 42232.36
DROP TABLE #CONTAB
go
-- 42232.82
SELECT CCOMPRE.PERIODO,CCOMPRE.NUMECOM,CCOMPRD.GRANCUE+CCOMPRD.MAYOR+CCOMPRD.CUENTA ASCUENTA,CCOMPRD.SUBAUXI,CCOMPRD1.SUBDEBE,CCOMPRD1.SUBHABER,CCOMPRD1.IDRST INTO #CONTAB FROM CCOMPRD1 WITH ( NOLOCK ) INNER JOIN CCOMPRD ON CCOMPRD.IDCOMPRD = CCOMPRD1.IDCOMPRD INNER JOIN CCOMPRE ON CCOMPRE.IDCOMPRE = CCOMPRD.IDCOMPRE WHERE EXISTS (SELECT * FROM #DETAMOV WHERE CCOMPRD1.ARCHIRST = 'MAEDDO' AND CCOMPRD1.IDRST = #DETAMOV.IDMAEDDO )
go
-- 42232.85
UPDATE #DETAMOV SET PERIODO =...