=?iso-8859-1?Q?Re:_[sqlwin]_RES:_[sqlwin]_D=FAvida?=

Fri, 17 Aug 2001 10:07:03 -0700 

Telmo o erro que esta a aparecendo � Function sequencia erro n�mero 20062




Telmo Thadeu Fonseca <[EMAIL PROTECTED]>@virtualand.net on 17/08/2001
10:24:23

Favor responder a [EMAIL PROTECTED]

Enviado Por:   [EMAIL PROTECTED]


Para: [EMAIL PROTECTED]
cc:
Assunto:  [sqlwin] RES: [sqlwin] D�vida




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)
=============================================




=============================================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)
=============================================

Responder a