quinta-feira, 21 de maio de 2009

Mensagem Clarion com Pergunta - Clarion/matos/amarildo

CASE MESSAGE('Você deseja Gerar a página HTML?','Sucesso na geração do Arquivo',ICON:Question,BUTTON:Yes+BUTTON:No,BUTTON:No,1)
OF BUTTON:No
CYCLE
OF BUTTON:Yes
DeleteFile('\amarildo\a.txt')
end

Line Printer - Aumentar para limitacao caracteres - 21 05 09

hpvBuffer STRING(2048) <- aqui aumenta tamanho
Correção da limitação de 500 caracter por linha do Lineprint para 2048 caracteres. Esse erro foi verificado devido a remessa dos arquivos contabeis exigir 600 caracteres. Caso alguem passe por isso é só mudar dentro do template para o tamanho que achar necessário.

quarta-feira, 13 de maio de 2009

Clarion - Queue - Pegar Campos (13 05 09)

LOOP
Campo# += 1
Nome" = WHO(ListQueue,Campo#)
if Nome" = '' then
Campo# -= 1
BREAK
END
END

message(Campo#)

terça-feira, 12 de maio de 2009

Clarion - Programa Manual


program
map
testproc(string)
end

code
testproc('teste de ')

testproc procedure(mensagem)
code
message(mensagem)

segunda-feira, 11 de maio de 2009