case message

Excel ler arquivo em clarion - ocx - matos/amarildo 07 12 09

St - Declaracao de Estoque de mercadorias - icm - matos (10 Horas de Desenvolvimento)

Clarion imagens webcam - matos 02 12 09 21.14

http://www.clarionfreeimage.com/index.html

Pegar ultimo dia do mes - matos informatica - 15 10 09 08:31

LOC:DataFinal = Date(Month(LOC:DataInicial) + 1 , 1 , Year(LOC:DataInicial)) - 1 

Exemplo Basico de leitura de arquivo xml Clarion - Matos Informatica 25 09 09

http://f1.grp.yahoofs.com/v1/YD29SoTbKhf3kdRL-Sm8nSpF17XBFoEhHzKgN2m2cC-G05Dd80gS2q3ZlIY_Ilks98V-CdR7BERGXumFeGNuYDslnABk/ExemploLeituraArquivoExcel.txt

Exemplo básico de leitura de um arquivo XLS, criando uma Queue

 SETCURSOR(CURSOR:Wait)
 ?Excel{PROP:Create} = 'Excel.VBAModule'
 ?Excel{PROP:DoVerb} = -2
 ?Excel{'Application.Application.Visible'} = FALSE
 ?Excel{'Application.Workbooks.Open("'& NomeArquivoPlanilha &'")'}
 ?Excel{'Application.Sheets.Item('& QualPlanilha &').Select'}

 DISPLAY

 ?Excel{'Application.Range("A1").Select'} !Selecionar a Celula A1
 ?Excel{'Application.Selection.SpecialCells(11).Select'} !Selecionar a ultima linha da planilha
 end# = ?Excel{'Application.Selection.Row'} !Pegar o numero da ultima linha da planilha
 ?Excel{'Application.Range("A1").Select'}

 FREE(QFilial)

 ?Excel{'Application.Range("A1").Select'} !Verifica se é para ler a legenda
 IF CLIP(?Excel{'Application.ActiveCell.Value'}) = 'LEGENDA'
    ?Excel{'Application.Range("A2").Select'}
    IF CLIP(?Excel{'Application.ActiveCell.Value'}) = 'Filial'
       LOOP IX# = 3 TO end# !Iniciar na linha 3 até a ultima linha
          ?Excel{'Application.Range("A' & IX# & '").Select'}
          IF NOT CLIP(?Excel{'Application.ActiveCell.Value'}) > 0 THEN BREAK. !Verificando se a celula está sem valor, 
          QF:CodFilial = CLIP(?Excel{'Application.ActiveCell.Value'}) !Pegar o valor da celular selecionada
          QF:Cor = ?Excel{'Application.Selection.Interior.ColorIndex'} !Pegar a cor da celular selecionada
          ADD(QCoresFilial)
       END
    END
 END

Gerando um relatorio Diretamente para Pdf - Matos Informatica Ltda

Gerando um relatorio Diretamente para Pdf -Gescla-forum

Se você possui o Clarion 6 versão Enterprise ou comprou separadamente os templates de Relatórios avançados, pode gerar um relatório diretamente para um arquivo PDF, sem que o usuário precise acessar a opção no menu de Visualização. Para fazer isto, uma vez habilitado o uso do Template, na extensão local do relatório, na guia General, configure o output name type para uma variável, e crie uma variável local que receberá o nome do relatorio, por exempo: LOC:Relpdf, do tipo sring com 256 caracteres. A variável pode ser selecionada para a extensão, uma vez que tenha sido criada.
Nas propriedades do Relatório, na giua Report Targets, selecione Report Target como Other, e Other Target como PDF.
Nas opções do Preview, configure o Skip Preview como True.
No embed Begining of Procedure After Opening Files, defina o nome do relatório.
O relatório será impresso diretamente para um PDF, sem que o usuário precise intervir.
_________________
Julio César Pedroso é analista desenvolvedor Clarion. Programa em Clarion, Windev, c# e PlPgsql. Atualmente desenvolve projetos na empresa Pedroso Informática, www.pedrosoinformatica.com.br e trabalha com a ferramenta Visual Studio 2005