Ol� Cristiane, qual erro est� aparecendo para voc� ?
-----Mensagem original-----
De: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]
Enviada em: sexta-feira, 17 de agosto de 2001 09:05
Para: [EMAIL PROTECTED]
Assunto: [sqlwin] D�vida
Estou tendo problema no comando a seguir
Se vcs poderem me ajudar . Desde j� agrade�o.
Na verdade crio o select em tempo de execu��o, pois o mesmo depende do n�mero de
dias passado
Neste parte eu estou come�ando a criar o select
Set sSelect = "SELECT CASE WHEN CLASS_PED = 'P' THEN 'PROMO��O' " ||
"WHEN CLASS_PED = 'S' THEN 'SAZONAL' WHEN PED_RA = 'S' THEN 'RA' " ||
"WHEN CLASS_PED != 'P' AND CLASS_PED != 'S' THEN 'OUTROS' END AS
CAMPO," ||
"REPLACE(CAST(SUM(CASE WHEN (P.DT_ENTREGA ='" || SalFmtFormatDateTime(
dtDiaInicio, 'MM/dd/yyyy') || "') THEN QTDPEDIDA ELSE 0 END ) AS
CHAR(12)),'.',',') AS " || sColuna
� o group by do select
Set sGroup = " GROUP BY CASE WHEN CLASS_PED = 'P' THEN 'PROMO��O' " ||
"WHEN CLASS_PED = 'S' THEN 'SAZONAL' WHEN PED_RA = 'S' THEN 'RA' " ||
"WHEN CLASS_PED != 'P' AND CLASS_PED != 'S' THEN 'OUTROS' END "
Set sLink = " AND DT_ENTREGA < '" || SalFmtFormatDateTime( dtDiaInicio,
'MM/dd/yyyy' ) || "' "
Set dtInicio = dtDiaInicio + 1
While dtInicio <= dlgPrvPedido.dtDiaFim
Set sCol = 'PED' || SalStrLeftX( SalFmtFormatDateTime( dtInicio,
'MM/dd/yyyy' ) , 2) ||
SalStrMidX( SalFmtFormatDateTime( dtInicio, 'MM/dd/yyyy' ), 3,2 )
|| SalStrRightX( SalFmtFormatDateTime( dtInicio, 'MM/dd/yyyy' ), 4 )
Nesta parte estou complementando o select com as datas at� data
in�cio ser = a data fim
Set sSelect = sSelect || ",REPLACE(CAST(SUM(CASE WHEN (P.DT_ENTREGA ='" ||
SalFmtFormatDateTime( dtInicio, 'MM/dd/yyyy') || "') THEN " ||
"QTDPEDIDA ELSE 0 END ) AS CHAR(12)),'.',',') AS " || sCol
Set dtInicio = dtInicio + 1
Nesta parte eu complemento o select
Set sSelect = sSelect || " INTO PED_" || sLogin || sSistema || " " ||
" FROM PEDIDO P, ITENS_PEDIDO IP " || sFrom || " " ||
" WHERE P.CODPEDIDO = IP.CODPEDIDO AND P.DT_EMISSAO = IP.DT_EMISSAO
AND " ||
"P.SITUACAO NOT IN ('1','2','9') AND IP.SITUACAO NOT IN ('1','2','9')
" || sQueryLink
Set sSelect = sSelect || sGroup
Nesta parte executo � onde esta dando erro
O comando fica assim :
SELECT CASE WHEN TIPO = 'P' THEN 'PROMO��O'
WHEN TIPO = 'S' THEN 'SAZONAL' WHEN TIPO = 'S' THEN 'RA'
WHEN TIPO != 'P' AND TIPO != 'S' THEN 'OUTROS' END AS CAMPO,
REPLACE(CAST(SUM(CASE WHEN (P.DT_ENTREGA ='08/05/2001') THEN QTDPEDIDA ELSE 0
END ) AS CHAR(12)),'.',',') AS PED08052001,
REPLACE(CAST(SUM(CASE WHEN (P.DT_ENTREGA ='08/06/2001') THEN QTDPEDIDA ELSE 0
END ) AS CHAR(12)),'.',',') AS PED08062001,
REPLACE(CAST(SUM(CASE WHEN (P.DT_ENTREGA ='08/07/2001') THEN QTDPEDIDA ELSE 0
END ) AS CHAR(12)),'.',',') AS PED08072001,
REPLACE(CAST(SUM(CASE WHEN (P.DT_ENTREGA ='08/08/2001') THEN QTDPEDIDA ELSE 0
END ) AS CHAR(12)),'.',',') AS PED08082001,
REPLACE(CAST(SUM(CASE WHEN (P.DT_ENTREGA ='08/09/2001') THEN QTDPEDIDA ELSE 0
END ) AS CHAR(12)),'.',',') AS PED08092001,
REPLACE(CAST(SUM(CASE WHEN (P.DT_ENTREGA ='08/10/2001') THEN QTDPEDIDA ELSE 0
END ) AS CHAR(12)),'.',',') AS PED08102001,
REPLACE(CAST(SUM(CASE WHEN (P.DT_ENTREGA ='08/11/2001') THEN QTDPEDIDA ELSE 0
END ) AS CHAR(12)),'.',',') AS PED08112001,
REPLACE(CAST(SUM(CASE WHEN (P.DT_ENTREGA ='08/12/2001') THEN QTDPEDIDA ELSE 0
END ) AS CHAR(12)),'.',',') AS PED08122001,
REPLACE(CAST(SUM(CASE WHEN (P.DT_ENTREGA ='08/13/2001') THEN QTDPEDIDA ELSE 0
END ) AS CHAR(12)),'.',',') AS PED08132001
INTO PED_CRISTIANE21 FROM TABELA1 P, TABELA2 IP , TABELA3 F
WHERE P.CODPEDIDO = IP.CODPEDIDO AND P.DT_EMISSAO = IP.DT_EMISSAO AND
P.SITUACAO NOT IN ('1','2','9') AND IP.SITUACAO NOT IN ('1','2','9') AND
F.CODFILIAL = P.CODFILIAL
GROUP BY CASE WHEN TIPO = 'P' THEN 'PROMO��O'
WHEN TIPO= 'S' THEN 'SAZONAL' WHEN TIPO = 'S' THEN 'RA'
WHEN TIPO!= 'P' AND TIPO != 'S' THEN 'OUTROS' END
Call SqlPrepareAndExecute( hSql1, sSelect ) - depois de motado eu consigo
inserir na tabela de PED_CRISTIANE21, mas logo em seguida aparece o erro
Grata,
Cristiane
=============================================Lista de Centura SQLWindows
Administrador : [EMAIL PROTECTED]
[ http://www.centuraexplorer.com ]
Para sair desta lista mande mensagem para:
[EMAIL PROTECTED] sem nada no Subject e
com o comando a seguir no corpo da msg:
"unsubscribe sqlwin" (sem as aspas)
=============================================
