PC Toledo

VEJA UM EXEMPLO NO LINK AKI DO FORUM:

viewtopic.php?t=7650

SAUDAÇÕES :xau

Colega...

Eu uso assim:
Saudações

AMIGO...

SALVE O FONTE ABAIXO COM UM NOME QUALQUER (EX.: VLIB.PRG) E COLOQUE O MESMO NO ARQUIVO .BC (LINHA DO PRGFILES) PARA O XHARBOUR COMPILAR.



#include "common.ch"
#include "inkey.ch"

#ifdef K_MINMOUSE
** No HB 0.45 nao havia esta constante anteriormente
#else
#define K_MINMOUSE 1001 ...

AMIGO...

CREIO QUE A FORMA MAIS RAPIDA QUE POSSA EXISTIR É USAR O SEGUINTE CÓDIGO:

SELECT 13
INDEX ON EMPRESA TAG 1 TO EMPRESA=cEMPRESA .AND. NUMERO=cNUMERO

O index é muito mais rapido...

Saudações,

ERASMO ANDRIOLI

Caros Colegas:

Tenho dois arquivos:

ARQ1.DBF (campos preenchidos)
LCTO = 1
VALOR = 500

(Isto é, o programa grava um lançamento (nº 1) no ARQ1.DBF no valor de R$ 500,00).

ARQ2.DBF (campos preenchidos)
LCTO = 1 / PARCE = 1 / VLR = 100 / VCTO: 01/03/08 / PAGO: 100
LCTO = 1 / PARCE = 2 / VLR = 100 ...

Seria possível postar a rotina dessa busca, de forma mais detalhada, para os companheiros darem uma olhada? (use modo Code).

Fui...

COLEGA...

Esqueça tudo o que voce tem e comece a utilizar as rotinas descritas no link abaixo:

https://pctoledo.org/forum/viewto ... ght=dbedit

Saudações,

ERASMO

AMIGOS...

Alguem tem um exemplo de entrada no get para a hora?

Exemplo:

Tenho uma var chamada HORA1 = campo de 4 digitos... alfa...

Ela deve receber a entrada do get no formato "99:99"

Más depois de feita a leitura pelo READ é necessário que a hora digitada exista, por exemplo: se alguem ...

Olá "migo"...

Seguinte, então faça assim:

Abra o CONFIG.NT na pasta windows\system32 e coloque no final:

FILES=250
BUFFERS=50

e no AUTOEXEC.NT:

SET CLIPPER=F250

Deve resolver o problema (lembre de sair do prompt e entrar novamente).

Saudações,

ERASMO

Bom dia colega...

No link abaixo, postei uma rotina que pode lhe ajudar, verifique:

https://pctoledo.org/forum/viewtopic.php?t=7650

Saudações,

ERASMO ANDRIOLI :xau

Prezados Senhores:

Gostaria que se possível, fossem postados, exemplos de como abrir um arquivo texto no Word ou Editor de Textos, com textos prontos já gravados em disco, Mesclados com informações advindas de dados informados nos gets do Clipper/Harbour (variáveis de exemplo: NOMECLI, CPF ...

Para numeros só deu certo desta forma:



* Localizando por lan‡amento quando for digitado um numero...
tecla=LASTKEY()
IF tecla >= 48 .AND. tecla <= 57
IF LEN(LTRIM(STR(letra))) < 6
letra=VAL(CHR(tecla))
letra1=STR(letra)
letra2=letra2+letra1
letra=VAL(letra2)
ENDIF
ffseek := letra
SET ...

ESTOU FAZENDO ASSIM PARA BUSCAR UM NOME E NAO ESTA DANDO CERTO, O PROG ESTA "COMENDO" OS CARACTERES...


DECLARE SELFOR[1]
SELFOR[1] :='NOMEFOR+" ³ "+STR(CONTA_P)'
WIN(2,15,21,65,"ESCOLHA UM COLABORADOR",'GR+/N+*','N+*/W')
@03,16 SAY " NOME ³CONTA "
@04,16 SAY ...

Amigos... Companheiros das horas de folga...

Me opinem sobre o seguinte: POSTEM FONTES EXEMPLOS

Se tenho um cliente que vai mandar imprimir um relatorio, e ele tem um printer matricial....

Como configurar o fonte .prg para ler o tipo de impressora (lpt, usb) para que a impressao ocorra de maneira ...

DECLARE array_nf[1]
array_nf[1] :='TRANS(numlcto,"9999999")+"³ "+TRANS(contalcto,"99")+" ³ "+DTOC(dtemlcto)+"³ "+DTOC(dtmvlcto)+"³ "+TRANS(ABS(valorlcto),"@E 9,999,999.99")+"³"+desctp+"³ "+tipo+"³"+ticado'
KEYBOARD CHR(32)
letra := 0
letra1:= ""
letra2:= ""
DBGOBOTTOM()
INKEY(0)
DBEDIT(05,1,18,77 ...