> 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( )
>
> Entao 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( )
>
Nao sei se eh a melhor solucao mais funciona.
> 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)
ÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝ
