INSERT INTO WAPEBBA.dbo.WAP_COMPPosicaoDiariaPedComCot

SELECT
     --C7_EMISSAO,
     @DATA AS DTPOSICAO,
     ISNULL(SUM(QTD_PED),0) AS QTD_PED
    ,ISNULL(SUM(QTD_QUALIF),0) AS QTD_QUALIF
    ,ISNULL(ROUND((CAST(SUM(QTD_QUALIF) AS FLOAT) / CAST(SUM(QTD_PED) AS FLOAT)) * 100,0),0) AS PERC_QUALIF
    , ROUND((CAST(SUM(SUM_QUALIF) AS FLOAT) / CAST(SUM(SUM_PED) AS FLOAT)) * 100,0) AS PERC_QUALIF_VALOR
--INTO WAPEBBA.dbo.WAP_COMPPosicaoDiariaPedComCot
FROM (
SELECT

--TOP 100

-- agora utilizando novas regras da tabela de/para intranet - 25/02/2019 - saulob

    ISNULL(  

    ( SELECT TOP 1 COMP_COD 
    FROM [WAPEBBA].[dbo].[COMPRAS_DEPARA_CC] DCC
    WHERE DCC.D_E_L_E_T_ = 'N'
    AND DCC.GP_MRC_COD = B1_GRPCOMP
    AND DCC.FILIAL = C7_FILIAL
    AND DCC.CCUSTO_COD = C7_CC
    AND DCC.EMPRESA = '06' ) ,
        
    
    ( SELECT TOP 1 LTRIM(RTRIM(ZZ1.ZZ1_COMPRA)) 
    FROM DADOSADV12.dbo.ZZ1060 ZZ1
    WHERE ZZ1.D_E_L_E_T_ = ''
    AND ZZ1.ZZ1_GRUPO = B1_GRPCOMP
    AND ZZ1.ZZ1_FILIAL = C7_FILIAL ) 
    
    ) AS COMP_COD,
    
    ISNULL ( 
    
    ( SELECT TOP 1 COMPRADOR 
    FROM [WAPEBBA].[dbo].[COMPRAS_DEPARA_CC] DCC
    WHERE DCC.D_E_L_E_T_ = 'N'
    AND DCC.GP_MRC_COD = B1_GRPCOMP
    AND DCC.FILIAL = C7_FILIAL
    AND DCC.CCUSTO_COD = C7_CC
    AND DCC.EMPRESA = '06' ) , 
    
    ( SELECT TOP 1 UPPER(LTRIM(RTRIM(ZZ1.ZZ1_COMNOM))) 
    FROM DADOSADV12.dbo.ZZ1060 ZZ1
    WHERE ZZ1.D_E_L_E_T_ = ''
    AND ZZ1.ZZ1_GRUPO = B1_GRPCOMP
    AND ZZ1.ZZ1_FILIAL = C7_FILIAL ) ) AS COMPRADOR    

    -- agora utilizando novas regras da tabela de/para intranet - 25/02/2019 - saulob
    /* -- desligado em 25/02/2019 , agora utilizando novas regras da tabela de/para intranet - saulob
CASE
    --WHEN (C7_FILIAL = '11' OR C7_FILIAL = '16') AND (B1_GRPCOMP = '1101' OR B1_GRPCOMP = '1102') AND C7_CC = '200606' THEN '139'
--    WHEN (C7_FILIAL = '11' OR C7_FILIAL = '16') AND (B1_GRPCOMP = '1101' OR B1_GRPCOMP = '1102') AND C7_CC = '200606' THEN '143' -- saulob, 10/08/2018
    --WHEN (C7_FILIAL = '11' OR C7_FILIAL = '16') AND (B1_GRPCOMP = '1101' OR B1_GRPCOMP = '1102') AND C7_CC = '200606' THEN '146' -- saulob, 26/09/2018
    WHEN (C7_FILIAL = '11' OR C7_FILIAL = '16') AND (B1_GRPCOMP = '1101' OR B1_GRPCOMP = '1102') AND C7_CC = '200606' THEN '148' -- saulob, 13/11/2018
    --WHEN (LTRIM(RTRIM(C7_CC)) = '200606' AND (C7_FILIAL = '02' OR C7_FILIAL = '17')) THEN '141'
    --WHEN (LTRIM(RTRIM(C7_CC)) = '200606' AND (C7_FILIAL = '02' OR C7_FILIAL = '17')) THEN '144' -- saulob, 10/08/2018
    --WHEN (LTRIM(RTRIM(C7_CC)) = '200606' AND (C7_FILIAL = '02' OR C7_FILIAL = '17')) THEN '143' -- saulob, 26/09/2018
    --WHEN (LTRIM(RTRIM(C7_CC)) = '200606' AND (C7_FILIAL = '02' OR C7_FILIAL = '17')) THEN '147' -- saulob, 13/11/2018
    WHEN (LTRIM(RTRIM(C7_CC)) = '200606' AND (C7_FILIAL = '02' OR C7_FILIAL = '17')) THEN '151' -- saulob, 07/02/2019

    ELSE
        CASE
            WHEN LEFT(LTRIM(RTRIM(C7_CC)),1) = '3' THEN '104'
            ELSE (SELECT TOP 1 LTRIM(RTRIM(ZZ1.ZZ1_COMPRA)) FROM DADOSADV12.dbo.ZZ1060 ZZ1 WHERE ZZ1.D_E_L_E_T_ = '' AND ZZ1.ZZ1_GRUPO = B1.B1_GRPCOMP AND ZZ1.ZZ1_FILIAL = C7.C7_FILIAL)
        END
END AS COMP_COD

, CASE
    --WHEN (C7_FILIAL = '11' OR C7_FILIAL = '16') AND (B1_GRPCOMP = '1101' OR B1_GRPCOMP = '1102') AND C7_CC = '200606' THEN 'KEYTH CARVALHO'
    --WHEN (C7_FILIAL = '11' OR C7_FILIAL = '16') AND (B1_GRPCOMP = '1101' OR B1_GRPCOMP = '1102') AND C7_CC = '200606' THEN 'CRYS SANTIAGO' -- saulob, 10/08/2018
    --WHEN (C7_FILIAL = '11' OR C7_FILIAL = '16') AND (B1_GRPCOMP = '1101' OR B1_GRPCOMP = '1102') AND C7_CC = '200606' THEN 'KAREN MARQUES GUIMARAES' -- saulob, 26/09/2018
    WHEN (C7_FILIAL = '11' OR C7_FILIAL = '16') AND (B1_GRPCOMP = '1101' OR B1_GRPCOMP = '1102') AND C7_CC = '200606' THEN 'BRUNO DANIEL GOMES DE SOUZA' -- saulob, 13/11/2018
    --WHEN (LTRIM(RTRIM(C7_CC)) = '200606' AND (C7_FILIAL = '02' OR C7_FILIAL = '17')) THEN 'ADRIANA TORRES' 
    --WHEN (LTRIM(RTRIM(C7_CC)) = '200606' AND (C7_FILIAL = '02' OR C7_FILIAL = '17')) THEN 'MARCIO JUNIOR'  -- saulob, 10/08/2018
    --WHEN (LTRIM(RTRIM(C7_CC)) = '200606' AND (C7_FILIAL = '02' OR C7_FILIAL = '17')) THEN 'CRYSLEINE THAINARA MARQUES SANTIAGO'  -- saulob, 26/09/2018
    --WHEN (LTRIM(RTRIM(C7_CC)) = '200606' AND (C7_FILIAL = '02' OR C7_FILIAL = '17')) THEN 'BIANCA INGRID MENEZES ARAUJO'  -- saulob, 22/10/2018
    --WHEN (LTRIM(RTRIM(C7_CC)) = '200606' AND (C7_FILIAL = '02' OR C7_FILIAL = '17')) THEN 'BRUNO DANIEL GOMES DE SOUZA'  -- saulob, 13/11/2018
    WHEN (LTRIM(RTRIM(C7_CC)) = '200606' AND (C7_FILIAL = '02' OR C7_FILIAL = '17')) THEN 'ANA CAROLINA ALVES DE JESUS'  -- saulob, 07/02/2019
    
    ELSE
        CASE WHEN LEFT(LTRIM(RTRIM(C7_CC)),1) = '3' THEN 'MANUELA SOUZA'
        ELSE (SELECT TOP 1 UPPER(LTRIM(RTRIM(ZZ1.ZZ1_COMNOM))) FROM DADOSADV12.dbo.ZZ1060 ZZ1 WHERE ZZ1.D_E_L_E_T_ = '' AND ZZ1.ZZ1_GRUPO = B1.B1_GRPCOMP AND ZZ1.ZZ1_FILIAL = C7.C7_FILIAL)
    END
END AS COMPRADOR

*/

, C7_FILIAL
, C7_NUMCOT
, C7_PRODUTO
, COUNT(C7_NUM) AS QTD_PED

, SUM(C7_TOTAL) AS SUM_PED

, CASE
    WHEN

        C7_TIPO = 1 AND
        ( (SELECT COUNT(*) FROM DADOSADV12.dbo.SC8060 AS C8 WHERE C8.D_E_L_E_T_ = '' AND C8_FILIAL = C7_FILIAL
        AND C7_NUMCOT = C8_NUM AND C7_PRODUTO = C8_PRODUTO AND C8_TOTAL <> 0) >= 2 )

        THEN SUM(C7_TOTAL)

    WHEN C7_TIPO = 2 THEN SUM(C7_TOTAL)
    ELSE 0
  END AS SUM_QUALIF

, C7_EMISSAO
, CASE WHEN (SELECT COUNT(*) FROM DADOSADV12.dbo.SC8060 AS C8 WHERE C8.D_E_L_E_T_ = '' AND C8_FILIAL = C7_FILIAL AND C7_NUMCOT = C8_NUM AND C7_PRODUTO = C8_PRODUTO AND C8_TOTAL <> 0) >= 2 THEN 1 ELSE 0 END AS QTD_QUALIF

FROM DADOSADV12.dbo.SC7060 AS C7

INNER JOIN DADOSADV12.dbo.SB1060 AS B1 ON C7.D_E_L_E_T_ = B1.D_E_L_E_T_  AND B1_COD = C7_PRODUTO AND B1_GRPCOMP NOT IN ('0101', '2007', '0112')
INNER JOIN DADOSADV12.dbo.ZZ1060 AS Z1 ON Z1.D_E_L_E_T_ = C7.D_E_L_E_T_ AND ZZ1_GRUPO = B1_GRPCOMP AND ZZ1_FILIAL = C7_FILIAL

WHERE C7.D_E_L_E_T_ = ''

-- PEDIDO LIBERADO
AND C7_CONAPRO = 'L'

-- PEDIDOS COM SC
AND C7_NUMSC <> ''

-- PEDIDO COMPRA
AND C7_TIPO IN (1)

-- FILTRO POR DIARIO
AND C7_EMISSAO BETWEEN (LEFT(@DATA,6) + '01') AND @DATA

-- EXCLUI PEDIDOS ELIMINADOS
AND NOT (LTRIM(RTRIM(C7_RESIDUO)) IN ('S', 'R') AND C7_QUJE = 0)

AND C7_EXCLUSI = 'N'
AND C7_URGENTE = 'N'

AND Str(C7.R_E_C_N_O_, 12) IN (SELECT Str(C7.R_E_C_N_O_, 12) 
            FROM   DADOSADV12.dbo.SC7060 AS C7 
                    INNER JOIN DADOSADV12.dbo.SCR060 AS SCR 
                            ON C7.D_E_L_E_T_ = 
                            SCR.D_E_L_E_T_ 
                            AND C7_FILIAL = CR_FILIAL 
                            AND C7_NUM = CR_NUM 
            WHERE  C7.D_E_L_E_T_ = '' 
                    AND C7_CONAPRO = 'L' 
                     AND CR_DATALIB  BETWEEN (LEFT(@DATA,6) + '01') AND @DATA ) 

GROUP BY C7_FILIAL
, B1_GRPCOMP
, C7_CC
, C7_NUMCOT
, C7_PRODUTO
, C7_EMISSAO
, C7_TIPO
) TBL

UPDATE SA1060 
                 WITH (ROWLOCK) 
                  SET A1_SALDUP  = @nA1_SALDUP , A1_SALDUPM  = @nA1_SALDUPM , A1_VACUM  = @nA1_VACUM , A1_MAIDUPL  = @nA1_MAIDUPL 
                 , A1_ATR  = @nA1_ATR , A1_NROPAG  = @nA1_NROPAG , A1_PAGATR  = @nA1_PAGATR , A1_PRICOM  = @cA1_PRICOM , 
                      A1_ULTCOM  = @cA1_ULTCOM , A1_SALFIN  = @nA1_SALFIN , A1_SALFINM  = @nA1_SALFINM , A1_MSALDO  = @nA1_MSALDO 
                 , A1_MATR  = @nA1_MATR , A1_METR  = @nA1_METR , A1_MCOMPRA  = @nA1_MCOMPRA , A1_NROCOM  = @nA1_NROCOM 
                WHERE A1_FILIAL  = @cFilial_A1  and A1_COD  = @cCliente  and A1_LOJA  = @cLoja  and D_E_L_E_T_  = ' '

UPDATE SA1060 SET S_T_A_M_P_ = GETUTCDATE()  WHERE R_E_C_N_O_ IN ( SELECT R_E_C_N_O_ FROM INSERTED )

INSERT INTO #TEMPDILPDCAETT12
    
    SELECT (CASE WHEN C7_TIPO = '1' THEN 'PDC' ELSE 'ATE' END) AS TIPO,

C7_FILIAL AS FILIAL_COD,

(CASE WHEN C7_FILIAL='02' THEN 'ARACATI'
WHEN C7_FILIAL='01' THEN 'RECIFE'
WHEN C7_FILIAL='11' THEN 'ARAGURARI'
WHEN C7_FILIAL='12' THEN 'S.PAULO FL'
WHEN C7_FILIAL='14' THEN 'CONTAGEM'
WHEN C7_FILIAL='15' THEN 'S.PAULO'
WHEN C7_FILIAL='16' THEN 'MAG-ARG'
WHEN C7_FILIAL='17' THEN 'MAG-ARC'
WHEN C7_FILIAL='18' THEN 'ESPLANADA-ARG'
WHEN C7_FILIAL='19' THEN 'PLENA-ARG'
WHEN C7_FILIAL='20' THEN 'DEP.RECIFE'
WHEN C7_FILIAL='21' THEN 'DEP.S.PAULO'
WHEN C7_FILIAL='22' THEN 'MINAS MIX-ARG'
ELSE 'N/A' END) AS FILIAL,
--C1_NUM AS SC,
--C1_ITEM AS SC_ITEM,
--SUBSTRING(C1_EMISSAO,7,2)+'/'+SUBSTRING(C1_EMISSAO,5,2)+'/'+SUBSTRING(C1_EMISSAO,1,4) AS DATA_SC,


--LTRIM(RTRIM( (CASE WHEN C1_XDTAN5 <> '' THEN CONVERT(CHAR(12), CONVERT(DATETIME, C1_XDTAN5), 103)
--    WHEN C1_XDTAN4 <> '' THEN CONVERT(CHAR(12), CONVERT(DATETIME, C1_XDTAN4), 103)
--    WHEN C1_XDTAN3 <> '' THEN CONVERT(CHAR(12), CONVERT(DATETIME, C1_XDTAN3), 103)
--    WHEN C1_XDTAN2 <> '' THEN CONVERT(CHAR(12), CONVERT(DATETIME, C1_XDTAN2), 103)
--    WHEN C1_XDTAN1 <> '' THEN CONVERT(CHAR(12), CONVERT(DATETIME, C1_XDTAN1), 103)
--    WHEN C1_DATAPRO <> '' THEN CONVERT(CHAR(12), CONVERT(DATETIME, C1_DATAPRO), 103)
--    ELSE '' END) )) AS DT_LIB_SC,

--LTRIM(RTRIM(C1_SOLICIT)) AS SOLICIT,
B1_GRPCOMP AS GP_MRC_COD,
LTRIM(RTRIM(BM_DESC))  AS GRP_MERC,    
LTRIM(RTRIM(B1_COD)) AS PRDUTO_COD, 
LTRIM(RTRIM(B1_DESC)) AS PRODUTO, 
C7_QUANT AS QUANTIDADE,
C7_UM    AS UND_MEDIDA,
C7_USER AS COMPP_COD,
UPPER(LTRIM(RTRIM(C7_USERNOM))) AS COMPRAD_P,
--C1_APROV AS STATUS,
C7_NUM AS PEDIDO,
C7_ITEM AS PC_ITEM,
SUBSTRING(C7_EMISSAO,7,2)+'/'+SUBSTRING(C7_EMISSAO,5,2)+'/'+SUBSTRING(C7_EMISSAO,1,4) AS DT_PEDIDO,
C7_QUANT AS QTD_PC,
C7_QUJE AS QTD_ENT,
ISNULL((SELECT SUM(B2_QATU) FROM DADOSADV12.dbo.SB2060 SB2 WHERE SB2.D_E_L_E_T_=' ' 
AND SB2.B2_FILIAL=SC7.C7_FILIAL AND SB2.B2_COD=SC7.C7_PRODUTO AND SB2.B2_LOCAL<>'DI'),0) AS SLD_AT_EST,
C7_PRECO AS PC_UNIT,
C7_PRECO+(C7_VALIPI/C7_QUANT) AS PC_UNIT_IPI,    
C7_TOTAL+C7_VALIPI AS VAL_TT,
SUBSTRING(C7_DATPRF,7,2)+'/'+SUBSTRING(C7_DATPRF,5,2)+'/'+SUBSTRING(C7_DATPRF,1,4) AS DT_ENTREGA,

DATEDIFF(DAY, C7_EMISSAO, C7_DATPRF) AS PRAZO_ESTM,
A2_COD     AS FORN_COD,
A2_LOJA AS LOJA,
A2_CGC AS CNPJ,
LTRIM(RTRIM(A2_NOME)) AS RZ_SOCIAL,
B1_TIPO AS TP_COMPRA,    
C7_CC AS CC_COD,
LTRIM(RTRIM((SELECT I3_DESC FROM DADOSADV12.dbo.SI3060 SI3A WHERE SI3A.I3_CUSTO=C7_CC AND I3_DESC<>' ' AND SI3A.D_E_L_E_T_=' '))) AS CC_DESC,
C7_RESIDUO AS ELIMINACAO,
C7_QTDACLA AS QTD_CLASSF,

(CASE WHEN C7_CONAPRO='L' THEN 'LIBERADO' ELSE (CASE WHEN C7_ENCER='E' THEN 'BLOQUEADO' ELSE 
(CASE WHEN ISNULL((SELECT TOP(1)CR_STATUS FROM DADOSADV12.dbo.SCR060 SCR WHERE SCR.D_E_L_E_T_='' 
AND CR_FILIAL=C7_FILIAL AND CR_NUM=C7_NUM AND CR_STATUS='04'),'02')='04' THEN 'BLOQUEADO' ELSE 'AGUARDANDO LIBERACAO' 
END) END) END) AS SITUACAO,

    -- adicionado campo OBS_APROV a pedido de bruna chamado xmon 051732 (saulo benigno)
    ISNULL((SELECT TOP 1 LEFT(SCR.CR_OBS, 255) FROM DADOSADV12.dbo.SCR060 SCR
    WHERE SCR.CR_NUM = C7_NUM
    AND SCR.D_E_L_E_T_ = ''
    AND SCR.CR_OBS <> ''), '') AS OBS_APROV,
    -- adicionado campo OBS_APROV a pedido de bruna chamado xmon 051732 (saulo benigno)

C7_OBS AS PC_OBS,

ISNULL((SELECT ROUND((SUM(SD1.D1_QUANT) / 6),0) FROM DADOSADV12.dbo.SD1060 SD1 
WHERE SD1.D_E_L_E_T_='' AND SD1.D1_FILIAL=SC7.C7_FILIAL AND SD1.D1_COD=SC7.C7_PRODUTO 
AND SD1.D1_DTDIGIT>=CONVERT(CHAR , GETDATE()-180, 112)),0) AS CONSMMES,

--C1_VALESTI VL_ORC_UNI,
--C1_TOTESTI VL_ORC_TT,
C7_ENVMAIL EBBA_PRINT,
  
(SELECT SUBSTRING(MAX(STR(R_E_C_N_O_,12)+SUBSTRING(CR_DATALIB,7,2)+'/'+SUBSTRING(CR_DATALIB,5,2)+'/'+SUBSTRING(CR_DATALIB,1,4)),13,10) 
    FROM DADOSADV12.dbo.SCR060 SCR
   WHERE SCR.D_E_L_E_T_='' AND SCR.CR_FILIAL=SC7.C7_FILIAL AND 
    SCR.CR_NUM=SC7.C7_NUM AND 
    SCR.CR_TIPO='PC')   AS DT_LIB_PC,

--C1_URGENTE AS URGENCIA,

DATEDIFF(DAY, C7_EMISSAO, GETDATE()) AS DIAS_ABERT,

    -- agora utilizando novas regras da tabela de/para intranet - 25/02/2019 - saulob

    ISNULL(  

    ( SELECT TOP 1 COMP_COD 
    FROM [WAPEBBA].[dbo].[COMPRAS_DEPARA_CC] DCC
    WHERE DCC.D_E_L_E_T_ = 'N'
    AND DCC.GP_MRC_COD = SB1.B1_GRPCOMP
    AND DCC.FILIAL = SC7.C7_FILIAL
    AND DCC.CCUSTO_COD = C7_CC
    AND DCC.EMPRESA = '06' 
    ORDER BY DATA_CADASTRO DESC) ,
        
    
    ( SELECT TOP 1 LTRIM(RTRIM(ZZ1.ZZ1_COMPRA)) 
    FROM DADOSADV12.dbo.ZZ1060 ZZ1
    WHERE ZZ1.D_E_L_E_T_ = ''
    AND ZZ1.ZZ1_GRUPO = SB1.B1_GRPCOMP
    AND ZZ1.ZZ1_FILIAL = SC7.C7_FILIAL ) 
    
    ) AS COMP_COD,
    
    ISNULL ( 
    
    ( SELECT TOP 1 COMPRADOR 
    FROM [WAPEBBA].[dbo].[COMPRAS_DEPARA_CC] DCC
    WHERE DCC.D_E_L_E_T_ = 'N'
    AND DCC.GP_MRC_COD = SB1.B1_GRPCOMP
    AND DCC.FILIAL = SC7.C7_FILIAL
    AND DCC.CCUSTO_COD = C7_CC
    AND DCC.EMPRESA = '06' 
    ORDER BY DATA_CADASTRO DESC) , 
    
    ( SELECT TOP 1 UPPER(LTRIM(RTRIM(ZZ1.ZZ1_COMNOM))) 
    FROM DADOSADV12.dbo.ZZ1060 ZZ1
    WHERE ZZ1.D_E_L_E_T_ = ''
    AND ZZ1.ZZ1_GRUPO = SB1.B1_GRPCOMP
    AND ZZ1.ZZ1_FILIAL = SC7.C7_FILIAL ) ) AS COMPRADOR,    


    -- agora utilizando novas regras da tabela de/para intranet - 25/02/2019 - saulob

/*
    (CASE WHEN LEFT(LTRIM(RTRIM(C1_CC)),1) = '3' THEN '104'
    ELSE LTRIM(RTRIM(ZZ1.ZZ1_COMPRA)) END) AS COMP_COD,

(CASE WHEN LEFT(LTRIM(RTRIM(C1_CC)),1) = '3' THEN 'CAROLINE MELO'
    ELSE UPPER(LTRIM(RTRIM(ZZ1.ZZ1_COMNOM))) END) AS COMPRADOR, 
    */
    /* -- desligado em 25/02/2019 , agora utilizando novas regras da tabela de/para intranet - saulob
    (CASE WHEN (C7_FILIAL = '11' OR C7_FILIAL = '16')
    --AND (B1_GRPCOMP = '1101' OR B1_GRPCOMP = '1102') 
    --AND C7_CC = '200606' THEN '139' -- KEYTH CARVALHO' ,  saulo benigno, 07/06/2018, xmon 71312
    --AND C7_CC = '200606' THEN '143'  -- CRYS SANTIAGO ,  saulo benigno, 10/08/2018
    --AND C7_CC = '200606' THEN '146'  -- KAREN ,  saulo benigno, 26/09/2018
    AND C7_CC = '200606' THEN '148'  -- BRUNO SOUZA ,  saulo benigno, 13/11/2018

    ELSE 
    
    (CASE WHEN LEFT(LTRIM(RTRIM(C7_CC)),1) = '3' THEN '119' -- era 104 CAROLINE MELO atualizado para Manuela 119, xmon 063207
    
    --WHEN (LTRIM(RTRIM(C7_CC)) = '200606' AND (C7_FILIAL = '02' OR C7_FILIAL = '17')) THEN '141' -- ADRIANA TORRES ,  saulo benigno, 07/06/2018, xmon 71312
    -- KEYTH CARVALHO' ,  saulo benigno, 04/04/2018, xmon 67683
    --WHEN (LTRIM(RTRIM(C7_CC)) = '200606' AND (C7_FILIAL = '02' OR C7_FILIAL = '17')) THEN '144' -- MARCIO JUNIOR ,  saulo benigno, 10/08/2018
    --WHEN (LTRIM(RTRIM(C7_CC)) = '200606' AND (C7_FILIAL = '02' OR C7_FILIAL = '17')) THEN '143' -- CRYS SANTIAGO ,  saulo benigno, 26/09/2018
    --WHEN (LTRIM(RTRIM(C7_CC)) = '200606' AND (C7_FILIAL = '02' OR C7_FILIAL = '17')) THEN '148' -- BRUNO SOUZA ,  saulo benigno, 13/11/2018
    --WHEN (LTRIM(RTRIM(C7_CC)) = '200606' AND (C7_FILIAL = '02' OR C7_FILIAL = '17')) THEN '147' -- BIANCA INGRID MENEZES ARAUJO ,  saulo benigno, 22/10/2018
    WHEN (LTRIM(RTRIM(C7_CC)) = '200606' AND (C7_FILIAL = '02' OR C7_FILIAL = '17')) THEN '151' -- ANA CAROLINA ALVES DE JESUS ,  saulo benigno, 07/02/2019

    
    ELSE ( SELECT TOP 1 LTRIM(RTRIM(ZZ1.ZZ1_COMPRA)) 
    FROM DADOSADV12.dbo.ZZ1060 ZZ1
    WHERE ZZ1.D_E_L_E_T_ = ''
    AND ZZ1.ZZ1_GRUPO = SB1.B1_GRPCOMP
    AND ZZ1.ZZ1_FILIAL = SC7.C7_FILIAL ) END ) END) AS COMP_COD,

    (CASE WHEN (C7_FILIAL = '11' OR C7_FILIAL = '16')
    --AND (B1_GRPCOMP = '1101' OR B1_GRPCOMP = '1102') 
    --AND C7_CC = '200606' THEN 'KEYTH CARVALHO' -- KEYTH CARVALHO' ,  saulo benigno, 07/06/2018, xmon 71312
    --AND C7_CC = '200606' THEN 'CRYS SANTIAGO'  -- CRYS SANTIAGO ,  saulo benigno, 10/08/2018
    --AND C7_CC = '200606' THEN 'KAREN MARQUES GUIMARAES'  -- KAREN MARQUES ,  saulo benigno, 26/09/2018
    AND C7_CC = '200606' THEN 'BRUNO DANIEL GOMES DE SOUZA'  -- BRUNO SOUZA ,  saulo benigno, 13/11/2018

    ELSE

    (CASE WHEN LEFT(LTRIM(RTRIM(C7_CC)),1) = '3' THEN 'MANUELA SOUZA' -- era CAROLINE MELO atualizado para Manuela, xmon 063207
    
    --WHEN (LTRIM(RTRIM(C7_CC)) = '200606' AND (C7_FILIAL = '02' OR C7_FILIAL = '17')) THEN 'ADRIANA TORRES' -- ADRIANA TORRES ,  saulo benigno, 07/06/2018, xmon 71313
    -- saulo benigno, 04/04/2018, xmon 67683    
    --WHEN (LTRIM(RTRIM(C7_CC)) = '200606' AND (C7_FILIAL = '02' OR C7_FILIAL = '17')) THEN 'MARCIO JUNIOR' -- MARCIO JUNIOR ,  saulo benigno, 10/08/2018
    --WHEN (LTRIM(RTRIM(C7_CC)) = '200606' AND (C7_FILIAL = '02' OR C7_FILIAL = '17')) THEN 'CRYSLEINE THAINARA MARQUES SANTIAGO' -- CRYS SANTIAGO ,  saulo benigno, 26/09/2018
    --WHEN (LTRIM(RTRIM(C7_CC)) = '200606' AND (C7_FILIAL = '02' OR C7_FILIAL = '17')) THEN 'BRUNO DANIEL GOMES DE SOUZA' -- BRUNO SOUZA ,  saulo benigno, 13/11/2018
    --WHEN (LTRIM(RTRIM(C7_CC)) = '200606' AND (C7_FILIAL = '02' OR C7_FILIAL = '17')) THEN 'BIANCA INGRID MENEZES ARAUJO' -- BIANCA INGRID MENEZES ARAUJO ,  saulo benigno, 22/10/2018
    WHEN (LTRIM(RTRIM(C7_CC)) = '200606' AND (C7_FILIAL = '02' OR C7_FILIAL = '17')) THEN 'ANA CAROLINA ALVES DE JESUS' -- ANA CAROLINA ALVES DE JESUS ,  saulo benigno, 07/02/2019

    ELSE ( SELECT TOP 1 UPPER(LTRIM(RTRIM(ZZ1.ZZ1_COMNOM))) 
    FROM DADOSADV12.dbo.ZZ1060 ZZ1
    WHERE ZZ1.D_E_L_E_T_ = ''
    AND ZZ1.ZZ1_GRUPO = SB1.B1_GRPCOMP
    AND ZZ1.ZZ1_FILIAL = SC7.C7_FILIAL ) END) END) AS COMPRADOR,

    */

        (CASE WHEN C7_DATPRF > CONVERT(VARCHAR(12),GETDATE(),112) THEN '0'
    ELSE DATEDIFF(DAY, C7_DATPRF, GETDATE()) END) AS DIAS_ATRSD,


   (CASE WHEN C7_DATPRF >= CONVERT(VARCHAR(12),GETDATE(),112) THEN 'DENTRO DO PRAZO'
    WHEN C7_DATPRF <=  C7_EMISSAO THEN 'ERRADA'
    ELSE 'ATRASADO' END) AS STATUS_PC,


--(CASE WHEN C1_COTACAO='XXXXXX' THEN ' ' ELSE C1_COTACAO END) AS NUM_COT,
--(CASE WHEN C1_COTACAO='XXXXXX' THEN ' ' WHEN C1_COTACAO='' THEN ' ' ELSE 
--(CASE WHEN ISNULL((SELECT SUM(C8_PRECO) FROM DADOSADV12.dbo.SC8060 SC8 
--WHERE SC8.D_E_L_E_T_=' ' AND SC8.C8_FILIAL=C1_FILIAL AND SC8.C8_NUM=C1_COTACAO 
--AND SC8.C8_PRODUTO=C1_PRODUTO),0.0000)=0.0000 THEN 'N' ELSE 'R' END) END) AS ST_COTACAO,


--DATEDIFF(DAY, 

--(CASE WHEN C1_XDTAN5 <> '' THEN C1_XDTAN5
--    WHEN C1_XDTAN4 <> '' THEN C1_XDTAN4
--    WHEN C1_XDTAN3 <> '' THEN C1_XDTAN3
--    WHEN C1_XDTAN2 <> '' THEN C1_XDTAN2
--    WHEN C1_XDTAN1 <> '' THEN C1_XDTAN1
--    WHEN C1_DATAPRO <> '' THEN C1_DATAPRO
--    ELSE '' END) 

--, C7_EMISSAO) AS TMP_ATD_SC,

CONVERT(VARCHAR(12),GETDATE(),103) + ' - ' + CONVERT(VARCHAR(5),GETDATE(),114) AS ULT_ATUALZ

,C7_EMISSAO AS DATA_INDICE

--INTO WAPEBBA.dbo.SRE_COMPRAS_DILPDCAE

    FROM DADOSADV12.dbo.SC7060 SC7,
    DADOSADV12.dbo.SA2060 SA2,
    --DADOSADV12.dbo.SC1060 SC1,
    DADOSADV12.dbo.SB1060 SB1 LEFT JOIN 
    DADOSADV12.dbo.SBM060 SBM ON SBM.D_E_L_E_T_=' ' AND SBM.BM_GRUPO=SB1.B1_GRPCOMP
    --,    DADOSADV12.dbo.ZZ1060 ZZ1

WHERE SC7.D_E_L_E_T_=' ' AND
 C7_TIPO IN ('1','2') AND
 --C7_QUJE<C7_QUANT AND   
 --C7_QUANT<>0 AND
    SB1.D_E_L_E_T_=' ' AND
 SB1.B1_COD=C7_PRODUTO AND
 SA2.D_E_L_E_T_=' ' AND
 SA2.A2_COD=C7_FORNECE AND
 SA2.A2_LOJA=C7_LOJA AND
 --SC1.D_E_L_E_T_=' ' AND
 --SC1.C1_FILIAL = C7_FILIAL AND
 --SC1.C1_NUM = C7_NUMSC AND
 --SC1.C1_ITEM = C7_ITEMSC AND
 --YEAR(C1_EMISSAO)>=2012 AND
 YEAR(C7_EMISSAO) >= 2012 
 

     -- FILTROS UTILIZADOS (POR SAULO)
    AND NOT (LTRIM(RTRIM(C7_RESIDUO)) IN ('S') AND C7_QUJE = 0)
    AND LTRIM(RTRIM(C7_CONAPRO)) = 'L'
    --AND C7_ENCER <> 'E'

    -- PEDIDOS COM SC
    AND C7_NUMSC <> ''

INSERT INTO
                        WAPEBBA.dbo.WAP_IntranetDW_v5
                    (
                        DATA_INDICE,
                        ANO_INDICE,
                        MES_INDICE,
                        COD_DR,
                        NOME_DR,
                        GEREN,
                        NOMEGEREN,
                        REGION,
                        NOMEREGION,
                        SUPER,
                        NOMESUPER,
                        CODVEN,
                        NOMEVEN,
                        FILIALPEDIDO,
                        NUMPEDIDO,
                        PEDTRIN,
                        NUMITEM,
                        STATUSITEM,
                        STATUSPED,
                        CODPROD,
                        PRODDESC,
                        CATR1,
                        R1,
                        R1S,
                        CODCLI,
                        LOJACLI,
                        CLIENTE,
                        REDVEN,
                        REDVEN_DESC,
                        ESTADO,
                        CANAL,
                        ESPECIAIS_NOME,
                        ESPECIAIS_INDICE,
                        FATDIA,
                        CARTDIA,
                        CARTEIRA,
                        VENDIDO,
                        VALVEN,
                        VALENT,
                        PEDDIA,
                        QUANTFATDIA,
                        QUANTCARTDIA,
                        QUANTCARTEIRA,
                        QUANTVENDIDO,
                        QTDVEN,
                        QTDENT,
                        QUANTPEDDIA,
                        ORIGEM,
                        EMPRESA,
                        DATA_JOB,
                        DW_C5_EMISSAO,
                        DW_CARTEIRA
                    )

                    SELECT
                        CAST(D1_DTDIGIT AS DATE)                                              AS DATA_INDICE,
                        CAST(LEFT(D1_DTDIGIT, 4) AS INTEGER)                                  AS ANO_INDICE,
                        CAST(SUBSTRING(D1_DTDIGIT, 5, 2) AS INTEGER)                          AS MES_INDICE,
                        RTRIM(LTRIM(ESTRUTURA_COMERCIAL.COD_N5))                              AS COD_DR,
                        RTRIM(LTRIM(ESTRUTURA_COMERCIAL.NOME_N5))                             AS NOME_DR,
                        RTRIM(LTRIM(ESTRUTURA_COMERCIAL.COD_N4))                              AS GEREN,
                        RTRIM(LTRIM(ESTRUTURA_COMERCIAL.NOME_N4))                             AS NOMEGEREN,
                        RTRIM(LTRIM(ESTRUTURA_COMERCIAL.COD_N3))                              AS REGION,
                        RTRIM(LTRIM(ESTRUTURA_COMERCIAL.NOME_N3))                             AS NOMEREGION,
                        RTRIM(LTRIM(ESTRUTURA_COMERCIAL.COD_N2))                              AS SUPER,
                        RTRIM(LTRIM(ESTRUTURA_COMERCIAL.NOME_N2))                             AS NOMESUPER,
                        RTRIM(LTRIM(ESTRUTURA_COMERCIAL.COD_N1))                              AS CODVEN,
                        RTRIM(LTRIM(ESTRUTURA_COMERCIAL.NOME_N1))                             AS NOMEVEN,
                        D1_FILIAL                                                             AS FILIALPEDIDO,
                        C5_NUM                                                                AS NUMPEDIDO,
                        ''                                                                    AS PEDTRIN,
                        D1_ITEM                                                               AS NUMITEM,
                        NULL                                                                  AS STATUSITEM,
                        NULL                                                                  AS STATUSPED,
                        RTRIM(LTRIM(D1_COD))                                                  AS CODPROD,
                        RTRIM(LTRIM(B1_DESC))                                                 AS PRODDESC,
                        RTRIM(LTRIM(B1_ZCATR1))                                               AS CATR1,
                        ''                                                                    AS R1,
                        ''                                                                    AS R1S,
                        RTRIM(LTRIM(D1_FORNECE))                                              AS CODCLI,
                        RTRIM(LTRIM(D1_LOJA))                                                 AS LOJACLI,
                        RTRIM(LTRIM(A1_NOME))                                                 AS CLIENTE,
                        RTRIM(LTRIM(MAIN.A1_REDVEN))                                          AS REDVEN,
                        RTRIM(LTRIM(MAIN.AC0_DESCRI))                                         AS REDVEN_DESC,
                        RTRIM(LTRIM(MAIN.A1_EST))                                             AS ESTADO,
                        RTRIM(LTRIM(MAIN.Z6_DESCRI))                                          AS CANAL,
                        ''                                                                    AS ESPECIAIS_NOME,
                        ''                                                                    AS ESPECIAIS_INDICE,
                        D1_TOTAL * -1                                                         AS FATDIA,
                        0                                                                     AS CARTDIA,
                        0                                                                     AS CARTEIRA,
                        0                                                                     AS VENDIDO,
                        0                                                                     AS VALVEN,
                        0                                                                     AS VALENT,
                        D1_TOTAL * -1                                                         AS PEDDIA,
                        D1_QUANT * -1                                                         AS QUANTFATDIA,
                        0                                                                     AS QUANTCARTDIA,
                        0                                                                     AS QUANTCARTEIRA,
                        D1_QUANT * -1                                                         AS QUANTVENDIDO,
                        D1_QUANT * -1                                                         AS QTDVEN,
                        0                                                                     AS QTDENT,
                        D1_QUANT * -1                                                         AS QUANTPEDDIA,
                        IIF(UD_ASSUNTO IS NOT NULL AND D1_FORMUL = 'S', 'TROCA', 'DEVOLUCAO') AS ORIGEM,
                        EMPRESAS.CODIGO_ALFANUMERICO                                          AS EMPRESA,
                        GETDATE()                                                             AS DATA_JOB,
                        NULL                                                                  AS DW_C5_EMISSAO,
                        NULL                                                                  AS DW_CARTEIRA
                    FROM #TempMain AS MAIN
                    JOIN PORTALEBBAPROTHEUS.dbo.EMPRESAS
                        ON
                            EMPRESAS.EMPRESA_ID COLLATE DATABASE_DEFAULT = MAIN.EMPRESA_ID COLLATE DATABASE_DEFAULT
                    LEFT JOIN (
                        SELECT
                            D2_DOC, D2_LOJA, D2_CLIENTE, D2_PEDIDO, EMPRESA_ID, D2_FILIAL
                        FROM
                            PORTALEBBAPROTHEUS.dbo.SD2
                        WHERE
                            SD2.D_E_L_E_T_ = ''
                        GROUP BY
                            D2_DOC, D2_LOJA, D2_CLIENTE, D2_PEDIDO, EMPRESA_ID, D2_FILIAL
                        ) AS SD2
                        ON
                            D2_CLIENTE = D1_FORNECE AND
                            D2_LOJA = D1_LOJA AND
                            D2_DOC = D1_NFORI AND
                            CASE
                                WHEN SD2.EMPRESA_ID = '10' AND D2_FILIAL = '01' THEN '27'
                                WHEN SD2.EMPRESA_ID = '10' AND D2_FILIAL = '02' THEN '28'
                                WHEN SD2.EMPRESA_ID = '10' AND D2_FILIAL = '03' THEN '29'
                                WHEN SD2.EMPRESA_ID = '10' AND D2_FILIAL = '04' THEN '30'
                                WHEN SD2.EMPRESA_ID = '11' AND D2_FILIAL = '01' THEN '31'
                                WHEN SD2.EMPRESA_ID = '11' AND D2_FILIAL = '02' THEN '21'
                                ELSE D2_FILIAL
                            END = D1_FILIAL AND
                            CASE
                                WHEN SD2.EMPRESA_ID = '10' THEN '06'
                                WHEN SD2.EMPRESA_ID = '11' THEN '06'
                                ELSE '06'
                            END = MAIN.EMPRESA_ID
                    JOIN PORTALEBBAPROTHEUS.dbo.SC5 AS SC5
                        ON
                            C5_NUM = D2_PEDIDO AND
                            CASE
                                WHEN SC5.EMPRESA_ID = '10' AND C5_FILIAL = '01' THEN '27'
                                WHEN SC5.EMPRESA_ID = '10' AND C5_FILIAL = '02' THEN '28'
                                WHEN SC5.EMPRESA_ID = '10' AND C5_FILIAL = '03' THEN '29'
                                WHEN SC5.EMPRESA_ID = '10' AND C5_FILIAL = '04' THEN '30'
                                WHEN SC5.EMPRESA_ID = '11' AND C5_FILIAL = '01' THEN '31'
                                WHEN SC5.EMPRESA_ID = '11' AND C5_FILIAL = '02' THEN '21'
                                ELSE C5_FILIAL
                            END = D2_FILIAL AND
                            C5_LOJACLI = D2_LOJA AND
                            C5_CLIENTE = D2_CLIENTE AND
                            CASE
                                WHEN SC5.EMPRESA_ID = '10' THEN '06'
                                WHEN SC5.EMPRESA_ID = '11' THEN '06'
                                ELSE '06'
                            END = SD2.EMPRESA_ID AND
                            SC5.D_E_L_E_T_ = '' AND
                            (SC5.C5_EMISSAO BETWEEN
                                CONCAT(CAST(LEFT(@data_ini, 4) AS INTEGER) - 6,RIGHT(@data_ini,4)) AND @data_fim)
                    JOIN PORTALEBBAPROTHEUS.dbo.ESTRUTURA_COMERCIAL
                        ON
                            ESTRUTURA_COMERCIAL.COD_N1 COLLATE DATABASE_DEFAULT = IIF(SC5.C5_VN1_VN2 = '2' AND A1_VEND2 <> '', A1_VEND2, A1_VEND)
                    LEFT JOIN (
                        SELECT
                            DISTINCT UC_NUMNF, UC_FILIAL, SUC.EMPRESA_ID AS EMPRESA_ID, UD_ASSUNTO
                        FROM
                            PORTALEBBAPROTHEUS.dbo.SUC
                        JOIN PORTALEBBAPROTHEUS.dbo.SUD
                            ON
                                UD_FILIAL = UC_FILIAL AND
                                UD_CODIGO = UC_CODIGO AND
                                SUD.EMPRESA_ID  = SUC.EMPRESA_ID  AND
                                UD_ASSUNTO = '000013'
                        WHERE
                            SUC.D_E_L_E_T_ = '' AND
                            SUD.D_E_L_E_T_ = '' AND
                            UC_CODCANC = ''
                        ) AS CALLCENTER
                        ON
                            UC_NUMNF = D1_NFORI AND
                            UC_FILIAL = D1_FILIAL AND
                            CALLCENTER.EMPRESA_ID COLLATE DATABASE_DEFAULT = MAIN.EMPRESA_ID COLLATE DATABASE_DEFAULT AND
                            (D1_DTDIGIT BETWEEN @data_ini AND @data_fim)

FETCH curSE1 
                INTO @nValor , @nSaldo , @nValLiq , @nVlcruz , @cCliente , @cLoja , @nMoeda , @cEmissao , @cTipo , @cVencto , 
                      @cVencReal , @cBaixa , @cPrefixo , @cNum , @cParcela , @cOrigem , @cFatura , @cMsFil , @cPedido , @cSerie 
            

SELECT [XX1_DESCR] FROM [dbo].[XX1] WHERE [R_E_C_N_O_]=@1

UPDATE controladoria.margem SET estdest = LTRIM(RTRIM(X5_DESCRI))
            FROM controladoria.margem MAR
                     LEFT JOIN DADOSADV12.dbo.SA1060 SA1 ON SA1.D_E_L_E_T_ = '' AND SA1.A1_COD = MAR.codcli COLLATE SQL_Latin1_General_CP437_BIN AND SA1.A1_LOJA = MAR.lojacli COLLATE SQL_Latin1_General_CP437_BIN
                     LEFT JOIN DADOSADV12.dbo.SA2060 SA2 ON SA2.D_E_L_E_T_ = '' AND SA2.A2_COD = MAR.codcli COLLATE SQL_Latin1_General_CP437_BIN AND SA2.A2_LOJA = MAR.lojacli COLLATE SQL_Latin1_General_CP437_BIN
                     LEFT JOIN DADOSADV12.dbo.SX5060 EST ON EST.D_E_L_E_T_ = '' AND EST.X5_TABELA = '12' AND EST.X5_CHAVE = ISNULL(A1_EST, A2_EST)
            WHERE MAR.estdest <> X5_DESCRI COLLATE SQL_Latin1_General_CP437_BIN

UPDATE SA2060 
                    WITH (ROWLOCK) 
                     SET A2_SALDUP  = @nA2_SALDUP , A2_SALDUPM  = @nA2_SALDUPM , A2_PRICOM  = @cA2_PRICOM , A2_ULTCOM  = @cA2_ULTCOM 
                    , A2_MCOMPRA  = @nA2_MCOMPRA , A2_MNOTA  = @nA2_MNOTA , A2_NROCOM  = @nA2_NROCOM , A2_MSALDO  = @nA2_MSALDO 
                    
                   WHERE A2_FILIAL  = @cFilial_A2  and A2_COD  = @cFornece  and A2_LOJA  = @cLoja  and D_E_L_E_T_  = ' '

INSERT INTO dre_distrital_consolidado
            (chave, mes, valor, grupo_distrital_id, tipo_relatorio, origem, created_at)
            SELECT
                dre.chave,
                '202603' AS mes,
                SUM(CT2_VALOR) AS valor,
                COALESCE(
                    grupo_distritais_chave_exclusiva.grupo_distrital_id,
                    grupo_distritais_centro_custo.grupo_distrital_id
                ) AS grupo_distrital_id,
                '0' AS tipo_relatorio,
                'ct2' AS origem,
                GETDATE() AS created_at
            FROM (
            -- D�BITO
            SELECT
                CT2_CCD AS CHAVE_CC,
                CT2_DEBITO AS CHAVE_CONTA,
                CT2_VALOR * -1 AS CT2_VALOR
            FROM PORTALEBBAPROTHEUS.dbo.CT2
            WHERE
                CT2.D_E_L_E_T_ = ''
                AND CT2_VALOR <> 0
                AND LEFT(CT2_DATA, 6) = '202603'

            UNION ALL

            -- CR�DITO
            SELECT
                CT2_CCC AS CHAVE_CC,
                CT2_CREDIT AS CHAVE_CONTA,
                CT2_VALOR
            FROM PORTALEBBAPROTHEUS.dbo.CT2
            WHERE
                CT2.D_E_L_E_T_ = ''
                AND CT2_VALOR <> 0
                AND LEFT(CT2_DATA, 6) = '202603'
        ) AS CT2_UNION
             LEFT JOIN dre_grupo_distritais_centro_custo AS grupo_distritais_centro_custo
                ON grupo_distritais_centro_custo.codigo_centro_custo = LTRIM(RTRIM(CHAVE_CC)) COLLATE DATABASE_DEFAULT 
            -- CHAVES DRE - CC ignorado quando vazio na movimenta��o ou igual a 999999 no agrupamento do DRE
            OUTER APPLY(
                SELECT TOP 1 dre_c.chave
                FROM PORTALEBBA.dbo.dre_chaves as dre_c
                INNER JOIN PORTALEBBA.dbo.dre_agrupamentos dre_a ON
                    dre_c.id = dre_a.dre_chave_id
                    AND LTRIM(RTRIM(dre_a.conta)) = LTRIM(RTRIM(CT2_UNION.CHAVE_CONTA)) COLLATE DATABASE_DEFAULT
                    AND LTRIM(RTRIM(dre_a.centro_custo)) = IIF(
                        LTRIM(RTRIM(CT2_UNION.CHAVE_CC)) = '' OR LTRIM(RTRIM(dre_a.centro_custo)) = '999999',
                        LTRIM(RTRIM(dre_a.centro_custo)),
                        LTRIM(RTRIM(CT2_UNION.CHAVE_CC)) COLLATE DATABASE_DEFAULT
                    )
            ) AS dre
            LEFT JOIN
                dre_grupo_distritais_chave_exclusiva AS grupo_distritais_chave_exclusiva ON
                grupo_distritais_chave_exclusiva.chave = dre.chave
            WHERE
                dre.chave != ''
            GROUP BY
                dre.chave,
                COALESCE(
                    grupo_distritais_chave_exclusiva.grupo_distrital_id,
                    grupo_distritais_centro_custo.grupo_distrital_id
                )

INSERT INTO WAPEBBA.dbo.WAP_COMPPosicaoDiariaPedComCot

SELECT
     --C7_EMISSAO,
     @DATA AS DTPOSICAO,
     ISNULL(SUM(QTD_PED),0) AS QTD_PED
    ,ISNULL(SUM(QTD_QUALIF),0) AS QTD_QUALIF
    ,ISNULL(ROUND((CAST(SUM(QTD_QUALIF) AS FLOAT) / CAST(SUM(QTD_PED) AS FLOAT)) * 100,0),0) AS PERC_QUALIF
    , ROUND((CAST(SUM(SUM_QUALIF) AS FLOAT) / CAST(SUM(SUM_PED) AS FLOAT)) * 100,0) AS PERC_QUALIF_VALOR
--INTO WAPEBBA.dbo.WAP_COMPPosicaoDiariaPedComCot
FROM (
SELECT

--TOP 100

-- agora utilizando novas regras da tabela de/para intranet - 25/02/2019 - saulob

    ISNULL(  

    ( SELECT TOP 1 COMP_COD 
    FROM [WAPEBBA].[dbo].[COMPRAS_DEPARA_CC] DCC
    WHERE DCC.D_E_L_E_T_ = 'N'
    AND DCC.GP_MRC_COD = B1_GRPCOMP
    AND DCC.FILIAL = C7_FILIAL
    AND DCC.CCUSTO_COD = C7_CC
    AND DCC.EMPRESA = '06' ) ,
        
    
    ( SELECT TOP 1 LTRIM(RTRIM(ZZ1.ZZ1_COMPRA)) 
    FROM DADOSADV12.dbo.ZZ1060 ZZ1
    WHERE ZZ1.D_E_L_E_T_ = ''
    AND ZZ1.ZZ1_GRUPO = B1_GRPCOMP
    AND ZZ1.ZZ1_FILIAL = C7_FILIAL ) 
    
    ) AS COMP_COD,
    
    ISNULL ( 
    
    ( SELECT TOP 1 COMPRADOR 
    FROM [WAPEBBA].[dbo].[COMPRAS_DEPARA_CC] DCC
    WHERE DCC.D_E_L_E_T_ = 'N'
    AND DCC.GP_MRC_COD = B1_GRPCOMP
    AND DCC.FILIAL = C7_FILIAL
    AND DCC.CCUSTO_COD = C7_CC
    AND DCC.EMPRESA = '06' ) , 
    
    ( SELECT TOP 1 UPPER(LTRIM(RTRIM(ZZ1.ZZ1_COMNOM))) 
    FROM DADOSADV12.dbo.ZZ1060 ZZ1
    WHERE ZZ1.D_E_L_E_T_ = ''
    AND ZZ1.ZZ1_GRUPO = B1_GRPCOMP
    AND ZZ1.ZZ1_FILIAL = C7_FILIAL ) ) AS COMPRADOR    

    -- agora utilizando novas regras da tabela de/para intranet - 25/02/2019 - saulob
    /* -- desligado em 25/02/2019 , agora utilizando novas regras da tabela de/para intranet - saulob
CASE
    --WHEN (C7_FILIAL = '11' OR C7_FILIAL = '16') AND (B1_GRPCOMP = '1101' OR B1_GRPCOMP = '1102') AND C7_CC = '200606' THEN '139'
--    WHEN (C7_FILIAL = '11' OR C7_FILIAL = '16') AND (B1_GRPCOMP = '1101' OR B1_GRPCOMP = '1102') AND C7_CC = '200606' THEN '143' -- saulob, 10/08/2018
    --WHEN (C7_FILIAL = '11' OR C7_FILIAL = '16') AND (B1_GRPCOMP = '1101' OR B1_GRPCOMP = '1102') AND C7_CC = '200606' THEN '146' -- saulob, 26/09/2018
    WHEN (C7_FILIAL = '11' OR C7_FILIAL = '16') AND (B1_GRPCOMP = '1101' OR B1_GRPCOMP = '1102') AND C7_CC = '200606' THEN '148' -- saulob, 13/11/2018
    --WHEN (LTRIM(RTRIM(C7_CC)) = '200606' AND (C7_FILIAL = '02' OR C7_FILIAL = '17')) THEN '141'
    --WHEN (LTRIM(RTRIM(C7_CC)) = '200606' AND (C7_FILIAL = '02' OR C7_FILIAL = '17')) THEN '144' -- saulob, 10/08/2018
    --WHEN (LTRIM(RTRIM(C7_CC)) = '200606' AND (C7_FILIAL = '02' OR C7_FILIAL = '17')) THEN '143' -- saulob, 26/09/2018
    --WHEN (LTRIM(RTRIM(C7_CC)) = '200606' AND (C7_FILIAL = '02' OR C7_FILIAL = '17')) THEN '147' -- saulob, 13/11/2018
    WHEN (LTRIM(RTRIM(C7_CC)) = '200606' AND (C7_FILIAL = '02' OR C7_FILIAL = '17')) THEN '151' -- saulob, 07/02/2019

    ELSE
        CASE
            WHEN LEFT(LTRIM(RTRIM(C7_CC)),1) = '3' THEN '104'
            ELSE (SELECT TOP 1 LTRIM(RTRIM(ZZ1.ZZ1_COMPRA)) FROM DADOSADV12.dbo.ZZ1060 ZZ1 WHERE ZZ1.D_E_L_E_T_ = '' AND ZZ1.ZZ1_GRUPO = B1.B1_GRPCOMP AND ZZ1.ZZ1_FILIAL = C7.C7_FILIAL)
        END
END AS COMP_COD

, CASE
    --WHEN (C7_FILIAL = '11' OR C7_FILIAL = '16') AND (B1_GRPCOMP = '1101' OR B1_GRPCOMP = '1102') AND C7_CC = '200606' THEN 'KEYTH CARVALHO'
    --WHEN (C7_FILIAL = '11' OR C7_FILIAL = '16') AND (B1_GRPCOMP = '1101' OR B1_GRPCOMP = '1102') AND C7_CC = '200606' THEN 'CRYS SANTIAGO' -- saulob, 10/08/2018
    --WHEN (C7_FILIAL = '11' OR C7_FILIAL = '16') AND (B1_GRPCOMP = '1101' OR B1_GRPCOMP = '1102') AND C7_CC = '200606' THEN 'KAREN MARQUES GUIMARAES' -- saulob, 26/09/2018
    WHEN (C7_FILIAL = '11' OR C7_FILIAL = '16') AND (B1_GRPCOMP = '1101' OR B1_GRPCOMP = '1102') AND C7_CC = '200606' THEN 'BRUNO DANIEL GOMES DE SOUZA' -- saulob, 13/11/2018
    --WHEN (LTRIM(RTRIM(C7_CC)) = '200606' AND (C7_FILIAL = '02' OR C7_FILIAL = '17')) THEN 'ADRIANA TORRES' 
    --WHEN (LTRIM(RTRIM(C7_CC)) = '200606' AND (C7_FILIAL = '02' OR C7_FILIAL = '17')) THEN 'MARCIO JUNIOR'  -- saulob, 10/08/2018
    --WHEN (LTRIM(RTRIM(C7_CC)) = '200606' AND (C7_FILIAL = '02' OR C7_FILIAL = '17')) THEN 'CRYSLEINE THAINARA MARQUES SANTIAGO'  -- saulob, 26/09/2018
    --WHEN (LTRIM(RTRIM(C7_CC)) = '200606' AND (C7_FILIAL = '02' OR C7_FILIAL = '17')) THEN 'BIANCA INGRID MENEZES ARAUJO'  -- saulob, 22/10/2018
    --WHEN (LTRIM(RTRIM(C7_CC)) = '200606' AND (C7_FILIAL = '02' OR C7_FILIAL = '17')) THEN 'BRUNO DANIEL GOMES DE SOUZA'  -- saulob, 13/11/2018
    WHEN (LTRIM(RTRIM(C7_CC)) = '200606' AND (C7_FILIAL = '02' OR C7_FILIAL = '17')) THEN 'ANA CAROLINA ALVES DE JESUS'  -- saulob, 07/02/2019
    
    ELSE
        CASE WHEN LEFT(LTRIM(RTRIM(C7_CC)),1) = '3' THEN 'MANUELA SOUZA'
        ELSE (SELECT TOP 1 UPPER(LTRIM(RTRIM(ZZ1.ZZ1_COMNOM))) FROM DADOSADV12.dbo.ZZ1060 ZZ1 WHERE ZZ1.D_E_L_E_T_ = '' AND ZZ1.ZZ1_GRUPO = B1.B1_GRPCOMP AND ZZ1.ZZ1_FILIAL = C7.C7_FILIAL)
    END
END AS COMPRADOR

*/

, C7_FILIAL
, C7_NUMCOT
, C7_PRODUTO
, COUNT(C7_NUM) AS QTD_PED

, SUM(C7_TOTAL) AS SUM_PED

, CASE
    WHEN

        C7_TIPO = 1 AND
        ( (SELECT COUNT(*) FROM DADOSADV12.dbo.SC8060 AS C8 WHERE C8.D_E_L_E_T_ = '' AND C8_FILIAL = C7_FILIAL
        AND C7_NUMCOT = C8_NUM AND C7_PRODUTO = C8_PRODUTO AND C8_TOTAL <> 0) >= 2 )

        THEN SUM(C7_TOTAL)

    WHEN C7_TIPO = 2 THEN SUM(C7_TOTAL)
    ELSE 0
  END AS SUM_QUALIF

, C7_EMISSAO
, CASE WHEN (SELECT COUNT(*) FROM DADOSADV12.dbo.SC8060 AS C8 WHERE C8.D_E_L_E_T_ = '' AND C8_FILIAL = C7_FILIAL AND C7_NUMCOT = C8_NUM AND C7_PRODUTO = C8_PRODUTO AND C8_TOTAL <> 0) >= 2 THEN 1 ELSE 0 END AS QTD_QUALIF

FROM DADOSADV12.dbo.SC7060 AS C7

INNER JOIN DADOSADV12.dbo.SB1060 AS B1 ON C7.D_E_L_E_T_ = B1.D_E_L_E_T_  AND B1_COD = C7_PRODUTO AND B1_GRPCOMP NOT IN ('0101', '2007', '0112')
INNER JOIN DADOSADV12.dbo.ZZ1060 AS Z1 ON Z1.D_E_L_E_T_ = C7.D_E_L_E_T_ AND ZZ1_GRUPO = B1_GRPCOMP AND ZZ1_FILIAL = C7_FILIAL

WHERE C7.D_E_L_E_T_ = ''

-- PEDIDO LIBERADO
AND C7_CONAPRO = 'L'

-- PEDIDOS COM SC
AND C7_NUMSC <> ''

-- PEDIDO COMPRA
AND C7_TIPO IN (1)

-- FILTRO POR DIARIO
AND C7_EMISSAO BETWEEN (LEFT(@DATA,6) + '01') AND @DATA

-- EXCLUI PEDIDOS ELIMINADOS
AND NOT (LTRIM(RTRIM(C7_RESIDUO)) IN ('S', 'R') AND C7_QUJE = 0)

AND C7_EXCLUSI = 'N'
AND C7_URGENTE = 'N'

AND Str(C7.R_E_C_N_O_, 12) IN (SELECT Str(C7.R_E_C_N_O_, 12) 
            FROM   DADOSADV12.dbo.SC7060 AS C7 
                    INNER JOIN DADOSADV12.dbo.SCR060 AS SCR 
                            ON C7.D_E_L_E_T_ = 
                            SCR.D_E_L_E_T_ 
                            AND C7_FILIAL = CR_FILIAL 
                            AND C7_NUM = CR_NUM 
            WHERE  C7.D_E_L_E_T_ = '' 
                    AND C7_CONAPRO = 'L' 
                     AND CR_DATALIB  BETWEEN (LEFT(@DATA,6) + '01') AND @DATA ) 

GROUP BY C7_FILIAL
, B1_GRPCOMP
, C7_CC
, C7_NUMCOT
, C7_PRODUTO
, C7_EMISSAO
, C7_TIPO
) TBL

UPDATE SA1060 
                 WITH (ROWLOCK) 
                  SET A1_SALDUP  = @nA1_SALDUP , A1_SALDUPM  = @nA1_SALDUPM , A1_VACUM  = @nA1_VACUM , A1_MAIDUPL  = @nA1_MAIDUPL 
                 , A1_ATR  = @nA1_ATR , A1_NROPAG  = @nA1_NROPAG , A1_PAGATR  = @nA1_PAGATR , A1_PRICOM  = @cA1_PRICOM , 
                      A1_ULTCOM  = @cA1_ULTCOM , A1_SALFIN  = @nA1_SALFIN , A1_SALFINM  = @nA1_SALFINM , A1_MSALDO  = @nA1_MSALDO 
                 , A1_MATR  = @nA1_MATR , A1_METR  = @nA1_METR , A1_MCOMPRA  = @nA1_MCOMPRA , A1_NROCOM  = @nA1_NROCOM 
                WHERE A1_FILIAL  = @cFilial_A1  and A1_COD  = @cCliente  and A1_LOJA  = @cLoja  and D_E_L_E_T_  = ' '

UPDATE SA1060 SET S_T_A_M_P_ = GETUTCDATE()  WHERE R_E_C_N_O_ IN ( SELECT R_E_C_N_O_ FROM INSERTED )

WAITFOR(RECEIVE conversation_handle, service_contract_name, message_type_name, message_body 
                FROM ExternalMailQueue INTO @msgs), TIMEOUT @rec_timeout

FETCH curSE1 
                INTO @nValor , @nSaldo , @nValLiq , @nVlcruz , @cCliente , @cLoja , @nMoeda , @cEmissao , @cTipo , @cVencto , 
                      @cVencReal , @cBaixa , @cPrefixo , @cNum , @cParcela , @cOrigem , @cFatura , @cMsFil , @cPedido , @cSerie 
            

SELECT [XX1_DESCR] FROM [dbo].[XX1] WHERE [R_E_C_N_O_]=@1

SELECT SPF.R_E_C_N_O_ AS RECNO FROM SPF060 SPF INNER JOIN SRA060 SRA ON SRA.RA_FILIAL = SPF.PF_FILIAL AND SRA.RA_MAT = SPF.PF_MAT WHERE SPF.PF_DATA >= '20240901' AND SPF.PF_DATA <= '20260325' AND SPF.PF_INTGTAF = '        ' AND SRA.RA_CATEFD IN ('101','102','103','104','105','106','107','108','111','301','302','303','306','307','309') AND SPF.D_E_L_E_T_ = ' ' AND SRA.D_E_L_E_T_ = ' 'ORDER BY SPF.PF_FILIAL, SPF.PF_MAT, SPF.PF_DATA

UPDATE SA2060 
                    WITH (ROWLOCK) 
                     SET A2_SALDUP  = @nA2_SALDUP , A2_SALDUPM  = @nA2_SALDUPM , A2_PRICOM  = @cA2_PRICOM , A2_ULTCOM  = @cA2_ULTCOM 
                    , A2_MCOMPRA  = @nA2_MCOMPRA , A2_MNOTA  = @nA2_MNOTA , A2_NROCOM  = @nA2_NROCOM , A2_MSALDO  = @nA2_MSALDO 
                    
                   WHERE A2_FILIAL  = @cFilial_A2  and A2_COD  = @cFornece  and A2_LOJA  = @cLoja  and D_E_L_E_T_  = ' '

SELECT [XX1_PARAM] FROM [dbo].[XX1] WHERE [R_E_C_N_O_]=@1

UPDATE SE2060 SET E2_CCBCO = A2_CCBANC FROM SE2060 E2 INNER JOIN SA2060 A2 ON E2_FORNECE = A2_COD AND E2_LOJA = A2_LOJA AND A2_CCUSA = '1' AND A2.D_E_L_E_T_ = '' WHERE E2_FILIAL = '  ' AND E2_SALDO > 0 AND E2_CCBCO = '' AND E2.D_E_L_E_T_ = ''

SELECT @bufferPoolResumo = '
    <table>
        <thead>
            <tr>
                <th>Banco de Dados</th>
                <th style="text-align:right;">Paginas</th>
                <th style="text-align:right;">Memoria (MB)</th>
                <th style="text-align:right;">% do Total</th>
            </tr>
        </thead>
        <tbody>' +
    ISNULL(
    (
        SELECT 
            '<tr>' +
            '<td>' + REPLACE(REPLACE(REPLACE(REPLACE(DB_NAME(database_id), '&', '&amp;'), '<', '&lt;'), '>', '&gt;'), '"', '&quot;') + '</td>' +
            '<td class="numeric">' + CAST(COUNT(*) AS NVARCHAR) + '</td>' +
            '<td class="numeric">' + CAST(COUNT(*) * 8 / 1024 AS NVARCHAR) + '</td>' +
            '<td class="numeric">' + CAST(CAST(100.0 * COUNT(*) / NULLIF(@total_buffer_pages, 0) AS DECIMAL(18,2)) AS NVARCHAR) + '</td>' +
            '</tr>'
        FROM sys.dm_os_buffer_descriptors
        WHERE database_id <> 32767
        GROUP BY database_id
        ORDER BY COUNT(*) * 8 / 1024 DESC
        FOR XML PATH(''), TYPE
    ).value('.', 'NVARCHAR(MAX)'),
    '<tr><td colspan="4">Nenhum dado de buffer pool encontrado.</td></tr>'
    ) +
    '</tbody>
    </table>'

SELECT C6_FILIAL AS FILIAL,C6_NUM AS PEDIDO,C6_CLI AS CLIFOR,C6_LOJA AS LOJA,C5_MOEDA AS MOEDA,C5_TXMOEDA AS TXMOEDA,C5_CONDPAG AS CONDPAG,COALESCE(C9_PEDIDO,' ') AS CODSC9 FROM SC6060 SC6 INNER JOIN SC5060 SC5 ON SC5.C5_FILIAL = SC6.C6_FILIAL AND SC5.C5_NUM = SC6.C6_NUM AND SC5.C5_CLIENTE = SC6.C6_CLI AND SC5.C5_LOJACLI = SC6.C6_LOJA AND SC5.D_E_L_E_T_ = ' ' LEFT JOIN SC9060 SC9 ON SC9.C9_FILIAL = SC6.C6_FILIAL AND SC9.C9_PEDIDO = SC6.C6_NUM AND SC9.C9_PRODUTO = SC6.C6_PRODUTO AND SC9.C9_ITEM = SC6.C6_ITEM AND SC9.C9_CLIENTE = SC6.C6_CLI AND SC9.C9_LOJA = SC6.C6_LOJA AND SC9.C9_BLEST = ' ' AND SC9.C9_BLCRED = ' ' AND SC9.D_E_L_E_T_ = ' ' WHERE  (CONVERT(VARCHAR(23), SC6.S_T_A_M_P_ , 21 ) >= '2026-01-21 14:46:28' OR CONVERT(VARCHAR(23), SC9.S_T_A_M_P_ , 21 ) >= '2026-01-21 14:46:28' OR CONVERT(VARCHAR(23), SC5.S_T_A_M_P_ , 21 ) >= '2026-01-21 14:46:28') AND SC6.D_E_L_E_T_ = ' ' GROUP BY C6_FILIAL, C6_NUM, C6_CLI, C6_LOJA, C5_MOEDA, C5_TXMOEDA, C5_CONDPAG, C9_PEDIDO UNION  SELECT C6_FILIAL AS FILIAL,C6_NUM AS PEDIDO,C6_CLI AS CLIFOR,C6_LOJA AS LOJA,C5_MOEDA AS MOEDA,C5_TXMOEDA AS TXMOEDA,C5_CONDPAG AS CONDPAG,COALESCE(C9_PEDIDO,' ') AS CODSC9 FROM SC6060 SC6 INNER JOIN SC5060 SC5 ON SC5.C5_FILIAL = SC6.C6_FILIAL AND SC5.C5_NUM = SC6.C6_NUM AND SC5.C5_CLIENTE = SC6.C6_CLI AND SC5.C5_LOJACLI = SC6.C6_LOJA AND SC5.D_E_L_E_T_ = ' ' LEFT JOIN SC9060 SC9 ON SC9.C9_FILIAL = SC6.C6_FILIAL AND SC9.C9_PEDIDO = SC6.C6_NUM AND SC9.C9_PRODUTO = SC6.C6_PRODUTO AND SC9.C9_ITEM = SC6.C6_ITEM AND SC9.C9_CLIENTE = SC6.C6_CLI AND SC9.C9_LOJA = SC6.C6_LOJA AND SC9.C9_BLEST = ' ' AND SC9.C9_BLCRED = ' ' AND SC9.D_E_L_E_T_ = ' ' INNER JOIN F76060 F76 ON SC6.C6_FILIAL = F76.F76_FILORI AND F76.F76_PEDIDO = SC6.C6_NUM AND F76.F76_ITEM = SC6.C6_ITEM AND F76.F76_CLIFOR = SC6.C6_CLI AND F76.F76_LOJA = SC6.C6_LOJA AND F76.F76_TIPO = '1' AND F76.D_E_L_E_T_ = ' ' WHERE  F76.F76_DTJOBT < '20260324' AND SC6.C6_ENTREG < '20260324' AND SC6.D_E_L_E_T_ = ' ' GROUP BY C6_FILIAL, C6_NUM, C6_CLI, C6_LOJA, C5_MOEDA, C5_TXMOEDA, C5_CONDPAG, C9_PEDIDO

UPDATE SA1060 SET S_T_A_M_P_ = GETUTCDATE()  WHERE R_E_C_N_O_ IN ( SELECT R_E_C_N_O_ FROM INSERTED )

UPDATE SA2060 SET S_T_A_M_P_ = GETUTCDATE()  WHERE R_E_C_N_O_ IN ( SELECT R_E_C_N_O_ FROM INSERTED )

SELECT @CPROGRAM = coalesce(@CPROGRAM,program_name) from sys.dm_exec_sessions WHERE Session_id = @@SPID

SELECT @CUNICKEY = CAST(I.A1_FILIAL AS VARCHAR(max))+CAST(I.A1_COD AS VARCHAR(max))+CAST(I.A1_LOJA AS VARCHAR(max)) FROM INSERTED I

SELECT @NMULTLINE = COUNT(*) FROM INSERTED I

UPDATE SC2060 
        WITH (ROWLOCK) 
         SET C2_CPF0101  = C2_CPI0101,
             C2_CPF0201  = C2_CPI0201,
             C2_CPF0301  = C2_CPI0301,
             C2_CPF0401  = C2_CPI0401,
             C2_CPF0501  = C2_CPI0501,
             C2_CPF0601  = C2_CPI0601,
             C2_CPF0701  = C2_CPI0701,
             C2_CPF0801  = C2_CPI0801,
             C2_CPF0901  = C2_CPI0901,
             C2_CPF1001  = C2_CPI1001,
             C2_CPF1101  = C2_CPI1101,
             C2_CPF1201  = C2_CPI1201,
             C2_CPF1301  = C2_CPI1301,
             C2_CPF1401  = C2_CPI1401,
             C2_CPF1501  = C2_CPI1501,
 
             C2_APF0101  = C2_API0101,
             C2_APF0201  = C2_API0201,
             C2_APF0301  = C2_API0301,
             C2_APF0401  = C2_API0401,
             C2_APF0501  = C2_API0501,
             C2_APF0601  = C2_API0601,
             C2_APF0701  = C2_API0701,
             C2_APF0801  = C2_API0801,
             C2_APF0901  = C2_API0901,
             C2_APF1001  = C2_API1001,
             C2_APF1101  = C2_API1101,
             C2_APF1201  = C2_API1201,
             C2_APF1301  = C2_API1301,
             C2_APF1401  = C2_API1401,
             C2_APF1501  = C2_API1501

         WHERE R_E_C_N_O_  >= @nRec  and R_E_C_N_O_  < @nRec  + 1024  and C2_FILIAL  = @cFil_SC2  and D_E_L_E_T_  <> '*'

SELECT @cModo  = X2_MODO , @cModoUn  = X2_MODOUN , @cModoEmp  = X2_MODOEMP , @iTamFil  = X2_TAMFIL , @iTamUn  = X2_TAMUN 
     , @iTamEmp  = X2_TAMEMP 
     FROM SX2060 
     WHERE X2_CHAVE  = @IN_ALIAS  and D_E_L_E_T_  = ' '

UPDATE SD3060 SET S_T_A_M_P_ = GETUTCDATE()  WHERE R_E_C_N_O_ IN ( SELECT R_E_C_N_O_ FROM INSERTED )

INSERT INTO TRB06SP (TRB_FILIAL , TRB_FILTRA , TRB_ALIAS , TRB_RECNO , TRB_ORDEM , TRB_CHAVE , TRB_NIVEL , TRB_NIVSD3 , 
                TRB_COD , TRB_DTBASE , TRB_OP , TRB_CF , TRB_SEQ , TRB_SEQPRO , TRB_DTORIG , TRB_RECSD1 , TRB_TES , TRB_DOC , 
                TRB_SERIE , TRB_TIPO , TRB_LOCAL , TRB_RECTRB , TRB_TIPONF , TRB_QUANT , TRB_USATRA , TRB_ITEM , TRB_MOD ) 
         VALUES (@cFILIALCOR , @cRetFil , @cAlias , @nRECFILE , @cOrdem , @cTRB_CHAVE , @cTRB_NIVEL , @cTRB_NIVSD3 , @cTRB_COD , 
                @dTRB_DTBASE , @cTRB_OP , @cTRB_CF , @cTRB_SEQ , @cTRB_SEQPRO , @dTRB_DTORIG , @cNRECRE5 , @cTRB_TES , @cTRB_DOC , 
                @cTRB_SERIE , @cTRB_TIPO , @cTRB_LOCAL , @nNRECTRB , @cTRB_TIPONF , @nTRB_QUANT , @cTRB_FILTRA , @cTRB_ITEM , 
                @cTRB_MOD )

UPDATE SC9060 SET S_T_A_M_P_ = GETUTCDATE()  WHERE R_E_C_N_O_ IN ( SELECT R_E_C_N_O_ FROM INSERTED )

UPDATE SA1060 SET S_T_A_M_P_ = GETUTCDATE()  WHERE R_E_C_N_O_ IN ( SELECT R_E_C_N_O_ FROM INSERTED )

UPDATE SA2060 SET S_T_A_M_P_ = GETUTCDATE()  WHERE R_E_C_N_O_ IN ( SELECT R_E_C_N_O_ FROM INSERTED )

SELECT @CPROGRAM = coalesce(@CPROGRAM,program_name) from sys.dm_exec_sessions WHERE Session_id = @@SPID

SELECT @CUNICKEY = CAST(I.A1_FILIAL AS VARCHAR(max))+CAST(I.A1_COD AS VARCHAR(max))+CAST(I.A1_LOJA AS VARCHAR(max)) FROM INSERTED I

SELECT @NMULTLINE = COUNT(*) FROM INSERTED I

UPDATE SC2060 
        WITH (ROWLOCK) 
         SET C2_CPF0101  = C2_CPI0101,
             C2_CPF0201  = C2_CPI0201,
             C2_CPF0301  = C2_CPI0301,
             C2_CPF0401  = C2_CPI0401,
             C2_CPF0501  = C2_CPI0501,
             C2_CPF0601  = C2_CPI0601,
             C2_CPF0701  = C2_CPI0701,
             C2_CPF0801  = C2_CPI0801,
             C2_CPF0901  = C2_CPI0901,
             C2_CPF1001  = C2_CPI1001,
             C2_CPF1101  = C2_CPI1101,
             C2_CPF1201  = C2_CPI1201,
             C2_CPF1301  = C2_CPI1301,
             C2_CPF1401  = C2_CPI1401,
             C2_CPF1501  = C2_CPI1501,
 
             C2_APF0101  = C2_API0101,
             C2_APF0201  = C2_API0201,
             C2_APF0301  = C2_API0301,
             C2_APF0401  = C2_API0401,
             C2_APF0501  = C2_API0501,
             C2_APF0601  = C2_API0601,
             C2_APF0701  = C2_API0701,
             C2_APF0801  = C2_API0801,
             C2_APF0901  = C2_API0901,
             C2_APF1001  = C2_API1001,
             C2_APF1101  = C2_API1101,
             C2_APF1201  = C2_API1201,
             C2_APF1301  = C2_API1301,
             C2_APF1401  = C2_API1401,
             C2_APF1501  = C2_API1501

         WHERE R_E_C_N_O_  >= @nRec  and R_E_C_N_O_  < @nRec  + 1024  and C2_FILIAL  = @cFil_SC2  and D_E_L_E_T_  <> '*'

UPDATE SD3060 SET S_T_A_M_P_ = GETUTCDATE()  WHERE R_E_C_N_O_ IN ( SELECT R_E_C_N_O_ FROM INSERTED )

SELECT @cModo  = X2_MODO , @cModoUn  = X2_MODOUN , @cModoEmp  = X2_MODOEMP , @iTamFil  = X2_TAMFIL , @iTamUn  = X2_TAMUN 
     , @iTamEmp  = X2_TAMEMP 
     FROM SX2060 
     WHERE X2_CHAVE  = @IN_ALIAS  and D_E_L_E_T_  = ' '

INSERT INTO TRB06SP (TRB_FILIAL , TRB_FILTRA , TRB_ALIAS , TRB_RECNO , TRB_ORDEM , TRB_CHAVE , TRB_NIVEL , TRB_NIVSD3 , 
                TRB_COD , TRB_DTBASE , TRB_OP , TRB_CF , TRB_SEQ , TRB_SEQPRO , TRB_DTORIG , TRB_RECSD1 , TRB_TES , TRB_DOC , 
                TRB_SERIE , TRB_TIPO , TRB_LOCAL , TRB_RECTRB , TRB_TIPONF , TRB_QUANT , TRB_USATRA , TRB_ITEM , TRB_MOD ) 
         VALUES (@cFILIALCOR , @cRetFil , @cAlias , @nRECFILE , @cOrdem , @cTRB_CHAVE , @cTRB_NIVEL , @cTRB_NIVSD3 , @cTRB_COD , 
                @dTRB_DTBASE , @cTRB_OP , @cTRB_CF , @cTRB_SEQ , @cTRB_SEQPRO , @dTRB_DTORIG , @cNRECRE5 , @cTRB_TES , @cTRB_DOC , 
                @cTRB_SERIE , @cTRB_TIPO , @cTRB_LOCAL , @nNRECTRB , @cTRB_TIPONF , @nTRB_QUANT , @cTRB_FILTRA , @cTRB_ITEM , 
                @cTRB_MOD )

INSERT INTO SC9060_TTAT_LOG VALUES ( 'C9_CARGA', @COLD, @CNEW, 'C', @NRECNONEW, @CUSER, @CID, @CLOGIN, @CHOST, @CPROGRAM, @COPERA, @CDELNEW, @DDATASTAMP, @CMD5, @CUNICKEY )