quinta-feira, 18 de junho de 2009

Clarion - Comandos - 18 06 09 14:55



TESTE1 ROUTINE
DATA
Loc:teste string(255)
CODE
IF LOC:TESTE='SIM'
ELSE
END

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#)