PC Toledo

Amparo,

Salve numa variável o total de registros deletados e tira do total.

Count to cDeletados For Deleted()
? Str( LastRec() - cDeletados, 6)

Abraços
Mauricio

O caminho é + ou - esse

Sele ?????? (arq. DBF com os dados a serem somados)
Set Order to ?? (tem que ser por codigo do cliente)

TotCliente = 0
TotGeral = 0
Quebra = CodCliente
Do While .not. Eof()
Cabecalho
Dados do Documento

TotCliente = TotCliente + Valor
TotGeral = TotGeral + Valor
If ...

Andril,

Teste a rotina, creio que poderá dar uma início para você.
Conforme vc vai digitando, o número da coluna é atualizada.
Também é atualizado utilizando setas, backspace, home e end.
Do jeito que está, você terá problemas utilizando "@!s70".
Tente adaptar a sua necessidade


#include "inkey ...

Paulo,

O que vc tem usado para enviar a impressão...Ex:
@ 10,10 say ....

@ prow(),pcol() say ...

? ....

Zoc

Olá Leonardo,

Acho que é por aí que está o problema, veja se vc pode dar mais algumas dicas.

Os dados estão sendo digitados diretamente num programa em Minigui, gravo e atualizo um browse... a ordem não fica correta. Ex:

JOAQUIM
JOSÉ
JOÃO
O (letra o)
RITA
ZULMIRO
Ó (letra O com acento)

Se eu ...

Transferiram minha pergunta para o grupo de harbour, mas eu gostaria de respostas do pessoal da Minigui, pois o problema está em usar a Minigui... em harbour o indice funciona normal.

Criar indices com palavras acentuadas, não ficam na ordem correta.

Já utilizo as linhas abaixo, mas não resolve ...

Valeu Maligno!!!

E aproveitando... este pacote internacional é alguma atualização da Six?

Maligno,

Como não encontrava mais o pacote completo na minha máquina, baixei justamente de seu link, mas não encontrei o obj SIXPOR.

Se você puder me arrumar te agradeço.

Maurício

João Luiz,

Você poderia me fornecer a SIXPOR.OBJ, o pacote que eu tenho da SIX3 não veio com este OBJ.

Grato,

mauricio@aglonmedicamentos.com.br

Sergio,

Se o campo que vai preencher for indexado, dá para usar a rotina abaixo:


cNOME = space(40)
@ 10,10 GET cNOME PICT "@!"" WHEN BUSCANOME()
READ


// Faça alterações necessária para adequar ao seu programa
// A alteração será no indice, nas cores e nas coordenadas do get ...

Apesar do Jeff não ter comentado como resolveu o problema, eu creio que só faltou colocar O REQUEST no inicio do PRG.

REQUEST DESCEND

tente

dbseek( trim( doc ))

function ver_cpf()
if empty( cpf )
return .t.
endif
set order to 5
seek cpf
if !eof()
tone(286)
alert("c.p.f ja cadastrado para " +cliente)
return .f.
endif
return .t.

Desculpe, mais uma informação:

Altere os system.ini dos terminais que estão instalados o sistema.

Coloque no arquivo SYSTEM.INI os seguintes comandos após a seção [386Enh]

[NetWork]
PrintBufTime=1

[IFSMGR]
PrintBufTime=1