Seria interessante se vo�� mandasse , pelo menos, o trecho da aplica�ao
problem�tica, pois se o erro acontece depois de inserir, o problema pode n�o estar
no comando de insert/ select.
[EMAIL PROTECTED] wrote:
> 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)
==============================================
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)
==============================================
