Valeu Joao Batista!
obrigado.
Valdemiro Coimbra
-----Mensagem original-----
De: Joao Batista Sesconetto [mailto:[EMAIL PROTECTED]]
Enviada: 12 Abril 2001 15:27
Para: [EMAIL PROTECTED]
Assunto: RE: [sqlwin] Problemas na base de dados
> ----------
> From: Valdemiro Coimbra[SMTP:[EMAIL PROTECTED]]
> Reply To: [EMAIL PROTECTED]
> Sent: Quarta-feira, 11 de Abril de 2001 06:13
> To: SqlGroup (Correio electr�nico)
> Subject: [sqlwin] Problemas na base de dados
>
> Caro Valdemiro,
>
> Ja aconteceu isto comigo no select :
>
> !!CB!! 129
> If NOT SqlPrepareAndExecute( hSqlInclui,
> "Select Max (CD_CHAVE)
> From TB_ORIGEM_PRODUTO_COOP
> Where NR_COOPERATIVA = :NR_COOPERATIVA And
> CD_UF_PESQUISA = :CD_UF_PESQUISA
> Into :sAUX1 ")
> Call SalQuit( )
> Entrao eu modifiquei o select para :
>
> If NOT SqlPrepareAndExecute( hSqlInclui,
> "Select CD_CHAVE
> From TB_ORIGEM_PRODUTO_COOP
> Where CD_CHAVE IN ( Select Max (CD_CHAVE)
> From TB_ORIGEM_PRODUTO_COOP
> Where NR_COOPERATIVA = :NR_COOPERATIVA And
> CD_UF_PESQUISA = :CD_UF_PESQUISA )
> Into :sAUX1 ")
> Call SalQuit( )
>
> Espero ter ajudado,
>
> Sesconetto.
>
> Pessoal tenho um problema grave e espero que me ajudem.
> Tenho uma aplica��o de vendas, em que um movimento de venda �
> registado e quatro tabelas diferentes, uma delas � onde fica registado
> o numerador das vendas�(a aplica��o � usado por 4 pessoas em rede
> ).�Normalmente funciona bem�mas h� altura em que o select� na tabela
> de numeradores retorna nulo(�mesmo existindo dados), fazendo com que o
> numerador�retorne a 1,��misturando-se com os registos referentes a
> venda n�1 ja existente na tabela de movimentos, e um facto curioso �
> que o mesmo registo � repetido duas vezes na base de dados
> �
> Ex: Call SqlExist( 'Select * from numerador where
> tipodocumento=:cmbTipoDoc' ,�bExiste)
> ������ If bExiste
> ������������ Call SqlImmediate( 'select num, ROWID from sysadm.NUMER�
> int� o :nNumero,��� :sRowID where�cod=:cmbTipoDoc� and FLAG IS NULL�'
> )
> ������������ Set nNumero=nNumero+1
> ������������ If SqlImmediate( 'update� sysadm.NUMER set� num=:nNumero
> where ROWID=:sRowID' )
> �Call SqlClearImmediate(� )
>
> ��������Else
> ������������� Set nNumero=nNumero+1�
> ������������� If SqlImmediate(� 'insert into sysadm.NUMER (num,� cod,
> loja, posto ) values ( :nNumero, :cmbTipoDoc, :nLoja, :nTeste� )' )
> �Call SqlClearImmediate(� )
>
> Valdemiro Coimbra
> �
> * * * * * * * * * * * * * * * * * * * * * * * * * *
> Mailto: vcoimbra @sistec.co.ao <mailto:[EMAIL PROTECTED]> or
> valdemiro @ <mailto:valdemiro@t> netangola.com
> Celular: 091 200607
> Servi�o: 325350
> Web: www.sistec.netangola.com <http://www.sistec.netangola.com/>
>
===============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)
===============
