PC Toledo

Acho que no caso a função que deve ser usada é a FIELDNAME(), que retorna o nome do campo.

Como não foi especificado muito do código onde essa verificação será empregada fica difícil poder ajudar mais.

Aqui está a página do fabricante do Mediator: http://www.otc.pl/index.asp?s=21

Vou colocar aqui um exemplo de código que uso num módulo de um sistema meu:

Coluna := oItemBr:GetColumn(oItemBr:ColPos)
If oItemBr:ColPos = 2
Loop
ElseIf oItemBr:ColPos = 3
MCORRIDA := VetItens[E,10]
JanCorr := AbreJanela(11,28,13,52)

@ 12,30 Say "Corrida:"
@ 12,39 Get MCORRIDA Picture ...

Ricardo Sales Ribeiro escreveu:Amigo Lopes
Agradeço a sua ajuda, como posso ver esta solução q já foi apresentada por outro colega?

Veja esse topico aqui: https://pctoledo.org/forum/viewtopic.php?t=2883

Colocar logotipo em arquivo texto até hoje não vi como, até consigo fazer com que logotipos sejam impressos em impressoras matriciais porém não ficam legíveis caso tentem abrir o arquivo .TXT gerado para o relatório.

Uma solução para o seu caso poderia ser gerar .RTF ao invés de .TXT

Aqui tem uma ...

Você usou alí no seu código "request medntx" mas na hora de setar o RDD usou o "RDDSETDEFAULT("MEDCDX")"

Tenta usar "RDDSETDEFAULT("MEDNTX")" para ver se assim consegue acessar a tabela.

Creio que ele esteja falando desse cadastro.

Infelizmente não tenho e portanto não tenho como enviar.

Caro Romário (mudou de profissão, largou futebol e veio pro Clipper hehehe)

Unico problema aparentemente que notei nesse script foi na seguinte linha:

BLINKER INCREMENTAL OF (esse OF era para ser com 2 Fs, ou seja, OFF)

Mude para BLINKER INCREMENTAL OFF e tenta compilar novamente para ver se ...

Daniel escreveu:Eu uso assim

Set Index To (Rota)+'CodInd1.NTX'

Se não funcionar como o colega falou, tente o seguinte modo:

Jarbas, tente alterar seu programa da seguinte forma:

logRes:=MedLogin("","localhost","19C8","pdvmaster","pdvmaster","pdv2006")
if logRes <> 0
Percebi nos testes que fiz que em alguns casos o medlogin retornava um valor maior que ZERO mas não estava conectado corretamente.

Se for esse o caso ...

Caso ainda não tenha resolvido tenho 2 meios aqui que sempre funcionaram comigo:

1o
nSaveRecno := RecNo()
oDivBr:RefreshAll()
While !oDivBr:Stabilize(); EndDo
While Recno() != nSaveRecno
oDivBr:up()
While !oDivBr:Stabilize() ; EndDo
EndDo
Esse pode ser meio demorado dependendo da sua base de ...

%SystemRoot% é uma constante do Windows que indica o caminho onde foi instalado seu sistema: C:\WINDOWS, C:\WINNT, etc

Em meus sitemas costumo usar os seguintes processos para checar se o diretório existe:

// Verifica se possui o diretorio de backup
VetDir := Directory(DIR_FIL+"*.","D")
If (nEnc := aScan(VetDir,{|x| x[1] == "BACK" .and. x[5] = "D"})) = 0
//Run("MD "+DIR_FIL+"BACK >>NUL")
MakeDir(DIR_FIL+"BACK ...

Depois de quebrar a cabeça um pouco consegui fazer tudo funcionar direitinho aqui. :))
Muito obrigado Rochinha e Dudu_XBase pelas dias postadas aqui, sem elas acho que não teria conseguido :*


Fiz um programa que pega as tabelas que uso em meu sistema e as inclui no MySQl, depois adiciona os ...

Bom Dia.
dbf2med.exe
Cria estrutura do dbf no mysql deverá ser executado antes do dat2med

Tentei utilizar esse programinha pra importar uma base de dados de testes que tenho aqui porém deu problemas devido utilizar .FPT para os arquivos memo.
Alguém sabe se tem uma alternativa pra importação ...