Euclidao

Olá pessoal!
Andei mexendo com matrizes e consegui mais ou menos isso:
Consistência de Entrada de dados, direção do cálculo e tratamento de números negativos é por conta do freguês...

Function main()
local aAux, cEnt:=space(30), aMain:={}, nY, nL, nH, nM
   MsgGet(" Variação de Valores", "digite os valores seperedos p/espaço", @cEnt)
   aAux:=HB_ATokens( alltrim(cEnt), " ")
   nL := len(aAux)
   aAdd(aMain,{val(aAux[1])}) 
   for nY = 2 to nL
       aAdd(aMain[1]," ")
       aAdd(aMain[1], val(aAux[nY]))
   next
   nM:= len(aMain[1])
   nL := nM/2+1
   for nH = 2 to nL
       aAdd(aMain, array(nM))
       aFill(aMain[nH], " ")
       for nY=nH-1 to nM
           do case
              case nY+1 > nM
                   exit
              case valtype(aMain[nH-1,nY+1]) = "C"	//  Não faz nada
              otherwise
                   aMain[nH,nY] := aMain[nH-1,nY+1] - aMain[nH-1,nY-1]
           endcase
       next
   next
   xbrowser(aMain)
return nil

T+, Euclides

Pois é...

Eu prefiro o que o Sr. postou em 16 dezembro 2014.

Faz o DEFINE:

#define BIF_USENEWUI 0x0050

e aí funciona com o Harbour também

T+

Euclides

Legal, Kapi...

e qual é a vantagem disso em relação ao cGetDir() ?

[]'s, Euclides

Olá Valdir.

Para eliminar a 1/o item em branco, é só fazer isso:

- No programa do Kapi depois de DBCOMBO oDbc1...

oDbc1:del(1)

Acho que é isso... T+

Euclides

crisvam,

se colocar uma vírgula em:

sgls.obj+

assim:

sgls.obj,+

tem grande chance de funcionar...

T+ Euclides

crisvam, isso geramente ocorre por algum erro no .bat (build?) da compilação.

revise-o, ou poste aqui.

[]´s, Euclides

Carlos,

A não ser que esteja errado, você não pode indexar CDX ou NTX com campos de comprimento variável.

Fiz um teste com: INDEX ON TRIM(descricao) TO NOME

Deu o erro: Error description: Error DBFCDX/1026 Data width error

Sugiro utilizar: index on subs(descricao, 1, 20) to nome

O comprimento do campo do INDEX é 20 pode ser variado à vontade.

T+

Euclides

Não achei a parte em que fala em INVADIR O BRASIL...

Uma curiosidade... Tinha militares brasileiros na audiência... O QUE ESTAVAM FAZENDO LÁ???

T+, Euclides

Oi Kapi!

"fui até o fim do arquivo, e tirei algo, o resultado, não me foi satisfatório."

Isso parece lógica FUZZY (tem explicação no wikipedia) :-))

Esta rotina que o Rochinha postou, só verifica se o número de registros reais (tam.-do-arquivo - tam.-header) / tam.registro é igual a valor do número de registros cadastrados no header (se não for igual, tem a opção de corrigir).

Kapi, funciona também com Harbour 3.2

(nas versões anteriores, devolvia um ARRAY em cResult)

No programa:

/// ISTO NAO FUNCIONA NAS NOVAS VERSOES

deve ser corrigido para:

@ 5,5 GROUP TO 150,268 LABEL " Cliente " OF ODLG_c PIXEL

Para mim, pelo menos "SÂO PAULO" está saindo certo...

QCoisa, grite... Euclies

William, eu também não entendi bem a sua pergunta... talvez agora...

O Linares achou que você queria fazer isso pela classe tRichEdit que serve mais para digitar os dados (é meio complicado automatizar).

Antigamente eu utilizava a classe RtfMerge mas ela só funciona em arquivos RTF até 64Kb

Hoje eu utilizo Word com Ole (que funciona também com RTF)

No forum deve ter alguns exemplos, senão, no site do Toledo...

Pode tratar o arquivo RTF diretamente (fopen, fwrite). Abaixo mostro um exemplo:

{\rtf1\ansi\ansicpg1252\deff0\deflang1046{\fonttbl{\f0\fnil\fcharset0 Calibri;}{
\f1\fnil\fcharset0 Arial Rounded MT Bold;}{\f2\fnil\fcharset0 Tahoma;}}
{\colortbl ;\red255\green0\blue0;}
{\*\generator Msftedit 5.41.21.2509;}\viewkind4\uc1\pard\sa200\sl240\slmult1\lan
g22\f0\fs18 Postado Ontem, 06:15\par
\b\fs24 Amigos essa parece ser f\'e1cil mas n\'e3o \'e9:\b0\fs22\par
\cf1  Tenho um richedit e 1 botao.\par
\cf0 Sempre que pulsar o botao, tem que inserir (adicionar) no final do texto ri
chedit a data atual  ( date() ) , s\'f3 que com fonte Tahoma e size = 10.\par
\i Perguntei no forum inter , mas nem o Linares resolveu (ou nao teve tempo)\par
\i0\f1\fs24 Grato, William Adami\par
\f2\fs20 Datas:\par
 \par
}

Isso é arquivo RTF. Se substituir o último '<espaço>\par' por "10/01/2015\par \par" vai acontecer mais ou menos o que você está querendo.

Para continuar, é só substituir o último '<espaço>\par' de novo.

Qualquer coisa, avise.

T+

Euclides

Kapi, este parabens-a-você está desafinado...

experimente este...

Malwarebytes Anti-Malware

http://www.malwarebytes.org/lp/malware_lp_form/

reneumg,

Pode fazer algo assim:

Eu tive problemas quando instalei duas impressoras USB no mesmo computador.

Se estiver rede, pode colocar a multifuncional em um outro computador da rede e compartilhar.

Boa sorte.

Euclides

Oscar, boa tarde.

Existe a função xbrowse() (em ..\source\function\xbrowser.prg) que tem vários parâmetros, entre elas, o lFastEdit.

A minha sugetão, seria alterar esta função para receber um array de campos a serem apresentados (apresentar todos os campos não é sempre a melhor opção).

Em todo caso, vale o esforço para ajudar a comunidade.

Um abraço, Euclides.