PC Toledo

Se eu entendi, é assim :

Para indexar :
index on dtos(data)+strzero(caixa,N,D) to ind1

Para pesquisar :
seek dtos(mdata)+strzero(mcaixa,N,D)

Legenda: mdata e mcaixa são campos criados para pesquisa. N e D são, respectivamente, tamanho do campo e número de casas decimais.

Espero ter ajudado.

Opa!
Informação errada, tem é uma ponto (.) entre os noves

Já tentou assim @.... say transform(quantidade*valor,"@E 999.99")

Já tentou assim @.... say transform(quantidade*valor,"@E 999,99")

Dê uma olhada neste post, talvez te ajude

https://pctoledo.org/forum/viewto ... t=setscope

Pode ser que o seek está posicionando no próximo registro da condição pesquisada, então tente fazer assim :



Select ITENVEND //BD de Itens das Vendas
Select PROPRIED //BD de PROPRIEDADES
Seek ITENVEND->CODIGO_PR
if found()
@PROW(),90 SAY + transform(NOME,"!!!!!!!!!!!!!!!!!!!!!!!!!!!")
endif ...

Vê se resolve o teu problema

Valeu! Agora entendi, rsrsrs )

Ainda não consegui entender como funciona a função SX_AUTOSHARED(), já li o ng dela mas ainda ficaram algumas dúvidas :

1 - O valor (0-zero) é para forçar os arquivos a abrirem compartilhados usando o drive NTX ?
2 - Seu principal objetivo é impedir quando dois usários acessar o mesmo arquivo, o ...

Boa Noite!

Eu também faço assim para abrir arquivos no modo exclusivo. Eu me interessei pela função sx_autoshare() pelo fato de mesmo os arquivos estando em modo compartilhado, se dois usários acessam-o ao mesmo tempo um fica travado até que o outro saia. Então pensei que com esta função poderia ...

Visitei o post sugerido, para finalizar, está correto os exemplos abaixo ?

Se eu quiser abrir em modo compartilhado

#include 'sixnsx.ch'
rddsetdefault(sixnsx)
sx_autoshared(0)
use arquivo


Se eu quiser abrir em modo exclusivo

#include 'sixnsx.ch'
rddsetdefault(sixnsx)
sx_autoshared(1)
use ...

Verifique alguns post deste fórum que relatam bug´s na Six2 e Six3 e fiquei em dúvida de qual usar. Alguém que use qualquer uma das versões poderia me esclarecer as seguintes dúvidas :

1 - Em qual das duas (Six2 ou Six3) os bug´s causariam menos danos ao programa ?
2 - Tais bug´s acontecem em ...

Como ninguém responde, respondo eu mesmo.


Tem como melhorar e muito....



#include 'sixnsx.ch'
rddsetdefault('sixnsx')
clear
set date french
set cent on
set score off
set epoch to 1980
wlojaf := wlojai :=space(2)
wdatai := wdataf :=date()
@10,20 get wlojai
@10,col()+1 get wlojaf
@11 ...

Está muito lento, mas funcionado. Tem como melhorar ?



#include 'sixnsx.ch'
rddsetdefault('sixnsx')
clear
set date french
set cent on
set score off
set epoch to 1980
wlojaf := wlojai :=space(2)
wdatai := wdataf :=date()
@10,20 get wlojai
@10,col()+1 get wlojaf
@11,20 get wdatai
@11,col()+1 get ...

Ouvi falar que a função DBEval é bem rápida, porém nesta rotina está lenta. Tem como melhorar ?

Caro Romário!

Agradeço de coração a ajuda, pois já estava pensando em ir para outra "praia".

A ajuda é boa, porém não existe a loja "99". É como se o campo loja ficasse em branco, então irá somar todos os itens, se não ficar, somar somente os da loja informada.

Talvez por isso não ser muito ...