PowerBuilder - Documentando o código fonte

Recentemente, fui questionado por várias pessoas sobre a necessidade de se documentar o seu código fonte.

Por isso, resolvi publicar dois sites que possuí ferramentas com este objetivo.

http://www.pbdr.com/
http://www.novalys.net/

Windows - Recuperando arquivos excluídos

As informações do site abaixo podem ser muito úteis em momentos de desespero.

http://www.batori.com.br/noticcon.asp?arquivo=seg06121305.htm

PowerBuilder - Utilizando FTP

Abaixo vai um código interessante para lista arquivos e diretório no FTP utilizanod a dll do Windows WINInet.dll.

/***Declaração de Estrutura
type win32_find_dataa from structure
unsignedlong dwfileattributes
filetime ftcreationtime
filetime ftlastaccesstime
filetime ftlastwritetime
unsignedlong nfilesizehigh
unsignedlong nfilesizelow
unsignedlong dwreserved0
unsignedlong dwreserved1
character cfilename[260]
character calternatefilename[14]
end type


/*** Declaração de Funções externas
function long InternetOpenA(string lpszAgent, long dwAccessType, string lpszProxyName, string lpszProxyBypass, long dwFlags )&
library "wininet.dll"
function long InternetConnectA(long hInternet, string lpszServerName, int nServerPort, string lpszUsername, &
string lpszPassword, long dwService, long dwFlags, long dwContext) library "wininet.dll"
Function Boolean FtpSetCurrentDirectoryA (long hFtpSession, string lpszDirectory) library "wininet.dll"
Function boolean FtpCreateDirectoryA(Long hConnect, string lpszDirectory) library 'wininet.dll';
Function boolean FtpPutFileA(long hConnect, string lpszLocalFile, string lpszNewRemoteFile, long dwFlags, &
long dwContext) library "wininet.dll"
Function boolean FtpGetFileA(long hConnect, string lpszRemoteFile, string lpszNewFile, boolean fFailIfExists, &
long dwFlagsAndAttributes, long dwFlags, long dwContext) library 'wininet.dll'
Function boolean FtpRenameFileA(Long hConnect, string lpszExisting, string lpszNew) library 'wininet.dll';
Function boolean FtpDeleteFileA(Long hConnect, string lpszFileName) library 'wininet.dll';
Function long InternetCloseHandle(long hInet) library "wininet.dll"
Function long FtpFindFirstFileA (Long hFtpSession , string lpszSearchFile, ref WIN32_FIND_DATAA lpFindFileData , long dwFlags, long dwContent) library "wininet.dll"
Function boolean InternetFindNextFileA (Long hFind, ref WIN32_FIND_DATAA lpvFindData) library "wininet.dll"

/*** Variáveis de instáncia
Constant Public long INTERNET_DEFAULT_FTP_PORT = 21, &
INTERNET_SERVICE_FTP = 1, &
FTP_TRANSFER_TYPE_ASCII = 1, &
FTP_TRANSFER_TYPE_BINARY = 2

Public ProtectedWrite long uol_Hnd_open, uol_Hnd_Conexao
Public ProtectedWrite string uos_servidor, uos_dir_atual, uos_usuario, uos_aplicacao, uos_ftp_dir
Private string uos_senha

/**** Função para conectar no FTP
public function long of_conecta_ftp (string p_aplicacao, string p_servername, string p_usuario, string p_senha);
/*----------------------------------------------------------------------------------*/
/* FAZ A CONEXÃO COM O SERVIDOR PARA TRANSFERÊNCIA VIA FTP */
/* PARÂMETROS: p_aplicacao: Nome da aplicação
p_servername: 'ftp.zzzzz.com.br' ou endereço IP Ex.: '255.255.255.255'
p_usuario e p_senha*/

string vlsnulo

setnull(vlsnulo)
uos_servidor = p_servername
uos_usuario= p_usuario
uos_senha = p_senha
uos_aplicacao = p_aplicacao
uos_ftp_dir = ''

uol_hnd_open = internetopena(uos_aplicacao , 1, vlsnulo, vlsnulo, 0)
if uol_hnd_open = 0 or isnull(uol_hnd_open) then
vismsg = 'Erro ao abrir a conexão. Função API InternetOpen'
return - 1
end if

uol_hnd_conexao= internetconnecta( uol_hnd_open, uos_servidor, &
0,uos_usuario, uos_senha, 1, 0, 0)

if uol_hnd_conexao= 0 or isnull(uol_hnd_conexao) then
vismsg= 'Erro ao abrir a conexão. Função API InternetConnect'
internetclosehandle( uol_hnd_open)
return - 1
end if

return 1
end function


/**** Função para desconectar do FTP
public function long of_desconecta_ftp ();
internetclosehandle( uol_hnd_conexao)
internetclosehandle( uol_hnd_open )

uos_usuario = ''
uos_senha = ''
uos_servidor = ''
uos_aplicacao = ''
uos_dir_atual = ''
uol_hnd_conexao = 0
uol_hnd_open = 0
return 1
end function


/**** Troca o diretório do FTP
public function long of_ftp_set_dir (string p_dir);
if not FtpSetCurrentDirectoryA ( uol_hnd_conexao , p_dir ) then
vismsg = 'Não foi possível encontrar a pasta ' + p_dir + '!'
return -1
end if

//Altera a propriedade uos_ftp_dir (Pasta corrente)
long vll_pos
if p_dir = '\' then
uos_ftp_dir = ''
elseif p_dir = '..' and uos_ftp_dir <> '' then
do while pos(uos_ftp_dir, '\', vll_pos + 1) > 0
vll_pos = pos(uos_ftp_dir, '\', vll_pos + 1)
loop
if vll_pos > 0 then
uos_ftp_dir = left(uos_ftp_dir , vll_pos - 1)
else
uos_ftp_dir = ''
end if
else
uos_ftp_dir += '\' + p_dir
end if
////////////////////
return 1
end function

/**** Renomeia arquivo no FTP
public function long of_ftp_renamefile (string p_nome_ant, string p_nome_atu);
if not FtpRenameFileA(uol_hnd_conexao, p_nome_ant, p_nome_atu) then
vismsg = 'Não foi possível renomear o arquivo ' + uos_ftp_dir + '\'+ p_nome_ant + ' para ' + uos_ftp_dir + &
'\'+ p_nome_atu + '!'
return -1
end if

return 1
end function

/**** Envia arquivo para o FTP
public function long of_ftp_putfile (string p_arquivo_local, string p_arquivo_ftp);
if not ftpputfilea( uol_hnd_conexao, p_arquivo_local, p_arquivo_ftp, ftp_transfer_type_ascii, 0) then
vismsg = 'Erro ao transferir arquivo ' + p_arquivo_local + ' via FTP!'
return -1
end if

return 1
end function

/**** Baixa arquivo do FTP
public function long of_ftp_getfile (string p_remoto, string p_local);
if not FtpGetFileA(uol_hnd_conexao, p_remoto , p_local, false, 0, 1, 0) then
vismsg = 'Não foi possível fazer o download do arquivo '+ uos_ftp_dir + '\'+ p_remoto +' via FTP!'
return -1
end if

return 1
end function

/**** Deleta arquivo do FTP
public function long of_ftp_deletefile (string p_arquivo);if not FTPDeleteFileA(uol_hnd_conexao, p_arquivo) then
vismsg = 'Não foi possível excluir o arquivo ' + uos_ftp_dir + '\'+ p_arquivo + '!'
return -1
end if

return 1
end function


/**** Cria Diretório no FTP
public function long of_ftp_cria_dir (string p_dir);if not this.ftpcreatedirectorya( uol_hnd_conexao , p_dir ) then
vismsg = 'Não foi criar a pasta ' + p_dir + '!'
return -1
end if

return 1
end function


/**** Lista arquivo e diretórios do FTP
public function integer of_ftp_lista_arquivos (string p_filter, ref string p_arquivos[]);
// DESCRIÇÃO:
// * Lista os arquivos existentes no FTP
//
// ARGUMENTOS DE ENTRADA:
// * sfilter : Filtro utilizado para diretórios
// * p_arquivos : Lista de arquivos retornados
//
// RETORNO:
// * 1 : Sucesso
// * -1 : Erro
// * 0 : Registro não encontrado
//
// OBSERVAÇÃO:
// * Lista dos atributos retornados para arquivos
// Public Const FILE_ATTRIBUTE_READONLY = &H1
// Public Const FILE_ATTRIBUTE_HIDDEN = &H2
// Public Const FILE_ATTRIBUTE_SYSTEM = &H4
// Public Const FILE_ATTRIBUTE_DIRECTORY = &H10
// Public Const FILE_ATTRIBUTE_ARCHIVE = &H20
// Public Const FILE_ATTRIBUTE_NORMAL = &H80
// Public Const FILE_ATTRIBUTE_TEMPORARY = &H100
// Public Const FILE_ATTRIBUTE_COMPRESSED = &H800
// Public Const FILE_ATTRIBUTE_OFFLINE = &H1000
//
// CRIADO POR :
// 12/12/2006 - Thiago Campos Pereira
// ALTERADO POR :
//
//========================================================================

long VLLhandleFind, VLLRet, VLLItem
string vlsAux
WIN32_FIND_DATAA VLstrData

//Procura primeiro arquivo no FTP
VLLhandleFind = FtpFindFirstFileA(uol_hnd_conexao, p_Filter, VLstrData, 0, 0)

//Se não encontrar arquivos, sai da função
If VLLhandleFind = 0 then return 1

//Se encontrou arquivo, realizar loop preenchendo vetor com diretórios
do
//Verificar se é arquivo e se não é diretorno
if mod(VLstrData.dwfileattributes , 128) = 0 then
//Se for diretório, armazena nome do diretório
vlsAux = ''
for VLLItem = 1 to upperbound(VLstrData.cfilename)
//No momento que encontrar o caracter 0, quer dizer que é o final do nome do diretório
if asc(VLstrData.cfilename[VLLItem]) = 0 then
p_arquivos[upperbound(p_arquivos) + 1] = vlsAux
exit
else
vlsAux = vlsAux + VLstrData.cfilename[VLLItem]
end if
next
end if

//Procura próximo diretório
if not InternetFindNextFileA(VLLhandleFind, VLstrData) then
VLLhandleFind = 0
end if
loop while VLLhandleFind > 0

return 1
end function

PowerBuilder - Listando Arquivos de um diretório

Constantemente eu vejo desenvolvedores que necessitam listar os arquivos em um diretório especifico.Normalmente, adicionam uma ListBox a uma window e chamam o método DIRLIST para preencher a ListBox com os arquivos.O grande problema é quando não possuímos uma janela no nosso programa. Muitas vezes, o desenvolvedor adiciona uma janela apenas para conseguir utilizar o ListBox, o que é uma ótima solução.
Recentemente, juntei algumas informações na Web e criei o código abaixo, que devolve em um vetor a lista de arquivos de arquivos de uma pasta, criando o ListBox e window dinamicamente.


/*INICIO Da FUnção
Salve o Conteúdo abaixo em um arquivo com o nome f_dir_list.SRF e importe para dentro da sua library*/

global type f_dir_list from function_object
end type

forward prototypes
global function long f_dir_list (string p_diretorio, string p_filtro, integer p_tipo_arquivo, ref string p_arquivos[])
end prototypes

global function long f_dir_list (string p_diretorio, string p_filtro, integer p_tipo_arquivo, ref string p_arquivos[]);
// DESCRIÇÃO:
// * Busca os arquivos de um diretório//
// ARGUMENTOS DE ENTRADA:
// * p_diretorio : Diretorio onde será feito a pesquisa. Se está variável estiver vazia, pesquisa o diretório corrente
// * p_filtro : Filtro utilizado no diretório. Se está variável estiver vazia, lista todos os arquivos
// * p_tipo_arquivo : Tipo do arquivo, conforme lista abaixo, sendo que o Default é 0 + 2 + 4
// - 0 : Arquivos de Leitura e gravação
// - 1 : Arquivos somente leitura
// - 2 : Arquivos Ocultos
// - 4 : Arquivos do Sistema
// - 16 : Sub-Pastas
// - 32 : Arquivos modificados
// - 16384 : Drivers
// - 32768 : Todos os arquivos, exceto arquivo de leitura e gravção
// - Para recuperar a uniao de um ou mais tipos acima, some os valores.
// Por exemplo, para listar arquivos leitura e gravação, subdiretorios e drivers, use 0+16+16384 ou 16400.
// * p_arquivos : Retorna por referencia a lista de arquivos passados
//
// RETORNO:
// * 1 : Sucesso
// * -1 : Erro
// * 0 : não existe arquivos
//
// OBSERVAÇÃO:
//
// CRIADO POR :
// 29/11/2006 - Thiago Campos Pereira
// ALTERADO POR :
//
//========================================================================
//Variaveis
string vls_arquivos[]
window vlw_temp
listbox vllb_temp
int vli_items, vli_i

//Trata Parametros
If isnull(p_diretorio) then
p_diretorio = ""
else
//Verifica se existe a barra no diretorno
p_diretorio = trim(p_diretorio)
if right(p_diretorio,1) = "\" then
//Retira a barra, para fazer pesquisa de diretório
p_diretorio = mid(p_diretorio,1,len(p_diretorio) - 1)
end if

//Verifica se o diretório existe
IF not DirectoryExists(p_diretorio) then
return -1
end if

//Acrescenta barra
p_diretorio = p_diretorio + "\"
end if

if isnull(p_filtro) then p_filtro = "*.*"

if isnull(p_tipo_arquivo) then p_tipo_arquivo = 0 + 2 + 4

//Instancia Objetos
Open(vlw_temp)
vlw_temp.openUserObject( vllb_temp )

//Lista arquivosv
llb_temp.DirList( p_diretorio + p_filtro , p_tipo_arquivo )

//Passa pelos arquivos, gerando lista no array
vli_items = vllb_temp.TotalItems()
For vli_i = 1 to vli_items
vls_arquivos[ vli_i ] = vllb_temp.Text( vli_i )
Next

//Fecha instancia de objetos
vlw_temp.closeUserObject( vllb_temp )
Close( vlw_temp )
p_arquivos = vls_arquivos
return 1
end function

/*Fim da função*/

PowerBuilder – Build 8784 da Versão 9

Recentemente homologamos o Build 8784 do PowerBuilder 9.

A homologação foi um sucesso, sendo considerado o Build mais estável lançado pela Sybase nos últimos tempos.

Além de não detectarmos nenhum erro, resolveram todos os erros existentes, incluindo o problema quando se exclui um SubMenu do Menu ancestral e compila os descendentes.


******* Observação em 11/12/2006
Apenas para complementar o Post. Foi encontrado um Bug neste Build do PowerBuilder, onde a função dw_1.Object.DataWindow.Data.XML não respeita o “XML Declaration”, sempre gerando UTF-8 e trazendo problemas, principalmente relativos a acentos e caracteres especiais.

Para contornar o problema, utilizei o comando export da DataWindow, gravei um arquivo temporário e recuperei o conteúdo do arquivo através de FileOpen/FileRead.

PowerBuilder – Chamando uma aplicativo e aguardando a finalização

Abaixo vai um código fornecido pelo Ricardo Contin, que chama uma executável a partir do PowerBuilder e fica aguardando a execução do mesmo.

Este código é muito útil, principalmente quando você depende do resultado da outra aplicação, com a compactação de um arquivo, criptografia e etc...

Rodar um executavel e esperar
OleObject wsh
integer li_rc
CONSTANT integer MAXIMIZED = 3
CONSTANT integer MINIMIZED = 2
CONSTANT integer NORMAL = 1
CONSTANT boolean WAIT = TRUE
CONSTANT boolean NOWAIT = FALSE

wsh = CREATE OleObject
li_rc = wsh.ConnectToNewObject( "WScript.Shell" )
li_rc = wsh.Run("Notepad" , NORMAL, WAIT)

a msg abaixo so deve aparecer apos vc fechar o notepad
messagebox("ola", "teste")

se usar WAIT teremos em Run o codigo de retorno da aplicacao chamada
as constantes definidas podem tbm ser:

0 Hides the window and activates another window.
1 Activates and displays a window. If the window is minimized or maximized, the system restores it to its original size and position. An application should specify this flag when displaying the window for the first time.
2 Activates the window and displays it as a minimized window.
3 Activates the window and displays it as a maximized window.
4 Displays a window in its most recent size and position. The active window remains active.
5 Activates the window and displays it in its current size and position.
6 Minimizes the specified window and activates the next top-level window in the Z order.
7 Displays the window as a minimized window. The active window remains active.
8 Displays the window in its current state. The active window remains active.
9 Activates and displays the window. If the window is minimized or maximized, the system restores it to its original size and position. An application should specify this flag when restoring a minimized window.
10 Sets the show state based on the state of the program that started the application.

Oracle - Tabela temporária

Este artigo explica muito bem como trabalhar com tabelas temporárias no Oracle.

PowerBuilder - Exportando dados de uma DataWindow para o MS Excel

Texto retirado do grupo de discussão de PB

Exportando dados de uma DataWindow para o Excel ultilizando OLE AutomationX

O PowerBuilder tem uma função para exportar dados para MS-Excel, mas ela limitada a dados de DML , com esta rotina podemos exportar toda a DataWindow. É um código simples e pode ser aperfeiçoado para uma aplicação mais complexa.

Passo 1 : Crie um nonvisual object salve ente objeto como nca_excel

Passo 2 : Crie uma função neste objeto com o nome de GetColumns Insira o código abaixo :

// Monta uma lista de todas as colunas da DW para exportação

Long ll_I, ll_Cols

ll_Cols = Long( adw_DW.Describe( 'datawindow.column.count' ) )

FOR ll_I = ll_cols TO 1 STEP -1

as_columns[ ll_I ] = adw_DW.Describe( '#' + String( ll_I ) + '.Name' )

NEXT

Passo 3: Crie uma função neste objeto com o nome de GetData. Esta função retorna um ANY. Propositalmente esta função foi colocada separada porque ela pode ser expandida e tratar ambém um Datasource.Insira o código abaixo :

Long ll_Col

Any la_A

IF al_Row > adw_DW.RowCount() THEN RETURN ""

ll_Col = Long( adw_DW.Describe( as_Column + ".ID" ) )

IF ll_Col > 0 THEN la_A = adw_DW.object.data.primary.current[ al_Row, ll_Col ]

RETURN la_A

Passo 4:Crie uma função neste objeto com o nome de inttocolumn .Esta função retorna um String.

// Converte a posição da coluna para o spreadsheet da coluna no Excel

String ls_Col

Integer li_Min, li_Max

IF ai_col <= 0 THEN RETURN ""

li_Max = ai_col / 26

li_Min = ai_col - ( li_Max * 26 )

IF li_Max > 0 THEN

ls_Col = Char( 64 + li_Max )

END IF

ls_Col += String( Char( 64 + li_Min ) )

RETURN ls_Col

Passo 5: Esta é a rotina principal do Objeto Crie uma função neste objeto com o nome de ExportToExcel .

// Exportando dados para o Excel

OleObject lole_OLE, lole_Sheet

String ls_Columns[]

Long ll_Row, ll_Col, ll_Cols

lole_OLE = CREATE OleObject

SetPointer( HourGlass! )

lole_OLE.ConnectToNewObject( 'excel.application' )

lole_OLE.Workbooks.Add

lole_sheet = lole_OLE.Application.ActiveWorkbook.WorkSheets[1]

this.GetColumns( adw_DW, ls_Columns )

ll_Cols = UpperBound( ls_Columns )

FOR ll_col = 1 TO ll_cols

lole_Sheet.Cells[ 1, ll_Col ] = ls_Columns[ ll_Col ]

NEXT

FOR ll_Row = 2 TO al_rows + 1

FOR ll_Col = 1 TO ll_cols

lole_Sheet.Cells[ ll_Row, ll_Col ] = this.GetData( adw_DW, ll_Row - 1, ls_Columns[ ll_Col ] )

NEXT

NEXT

lole_Sheet.Range( inttocolumn( 1 ) + "1:" + inttocolumn( ll_Cols ) + "1").Select

lole_OLE.Selection.Font.Bold = True

lole_Sheet.Range("A1:A1").Select

lole_Sheet.Columns( inttocolumn( 1 ) + ":" + inttocolumn( ll_cols ) ).EntireColumn.AutoFit

lole_OLE.Application.Visible = TRUE

// Código corrigido por Cristina da ( Multipla )

lole_OLE.Application.Workbooks(1).Saveas("C:\TESTE.XLS")

// lole_OLE.DisconnectObject() DESTROY lole_OLE

Salve o objeto..... Na sua aplicação em um botão ou item de menu escreva a chamada do objeto.

nca_excel lnca_Excel

lnca_Excel.ExportToExcel( dw_1, dw_1.RowCount() )

Onde " dw_1" é a DataWindow que você quer exportar.

Oracle - Gerando Número Sequencial de Registros

Texto escrito por João Carlos S. Ribeiro

Pessoal,

Para quem não conhece, a função analítica do Oracle DENSE_RANK gera um número seqüencial para cada linha pertencente a um determinado grupo de linhas. Vejam o exemplo:

Suponhamos a tabela MUNICIPIO:

SGUF NOMMUN
AP Santana
AP Macapá
MG Belo Horizonte
MG Leopoldina
MG Cataguases
SP São Paulo
SP Campinas
SP Santos
SP Mogi-mirim
SP Jundiaí

Para gerar um seqüencial dos municípios, classificados alfabeticamente, DENTRO dos estados, podemos fazer:

SELECT sguf, DENSE_RANK () OVER (PARTITION BY sguf ORDER BY nommun) AS seq, nommun
FROM municipio
ORDER BY 1, 2;

Resultado:

sguf seq nommun
AP 1 Macapá
AP 2 Santana
MG 1 Belo Horizonte
MG 2 Cataguases
MG 3 Leopoldina
SP 1 Campinas
SP 2 Jundiaí
SP 3 Mogi-mirim
SP 4 Santos
SP 5 São Paulo

Mais detalhes podem ser obtidos na documentação do Oracle.

Diversos – Solução para Problemas com Monitor 15' LCD da Proview

Entrei em contato com uma autorizada que me informou que este erro ocorreu em um lote especifico de monitores LCD da Proview.
Para resolvê-lo, é necessário um equipamento especifico que reinstala o FirmWare do equipamento.
O grande problema é que existe apenas um equipamento destes para todo o Brasil. Estou aguardando que este equipamento chegue a Belo Horizonte para realizar o conserto do meu monitor.

Palm - Tipos de Reset

Um amigo meu, Ricardo Contin, me passou a lista de Reset abaixo:


Vire e mexe aparece novos usuários pedindo que se explique como fazer Resets e Hard Resets, pois bem aí vai tudo explicadinho:

1 - Soft Reset (reset suave)
Descrição:
Um soft reset diz a nosso PDA que deixe de fazer o que estava fazendo e comece de novo. Toda a informação que nele temos se conserva. Quando fazemos um soft reset uma tela de boas-vindas aparece e posteriormente nos leva a Preferências.
Procedimento:
Para fazer um soft reset é necessário introduzir pelo orifício atrás do PDA uma ponta de um clipes ou a ponta de algumas stylus apropriadas para isto (como a stylus das séries Tungstens), solte e pronto. É importante lembrar que é um toque leve e suave . JAMAIS USE PONTAS EXTREMAMENTE FINAS: EX.ALFINETES E AGULHAS.

2 - Duplo Soft Reset (duplo reset suave)
Descrição:
Se depois de fazer um soft reset no PDA o mesmo não se acende e está comprovado que tudo está bem (tem carga na bateria, o contraste (Brilho) está bem, etc) pode provar o duplo soft reset.
Procedimento:
Para fazer o duplo soft reset faz o mesmo que fez para o soft reset mas duas vezes seguidas (apertar 2 vezes o botão de reset atrás do palm em menos de 1 segundo)

3 - Warm Reset (reset medio)
Descrição:
Quando fazemos um warm reset em nosso PDA, ele se reinicia, mas ao fazer o carregamento das extensões (os hacks, os programas gestores de hacks, os patches do sistema, as preferências de alarmes, etc) pode ser esta a fonte do problema. Se for este o caso, o PDA te dará error cada vez que carregue, detendo o processo de carregamento dos programas ao tentar carregar a aplicação danificada. Como com o warm reset estas aplicações não se carregam, te dará a oportunidade de descobrir aquilo que está dando conflito com o sistema (normalmente apagando a fonte do problema) e reiniciando normalmente.
Procedimento:
Para fazer o warm reset aperta o botão de rolamento para cima (Direcional para cima) e simultaneamente aperte o botão de reset (atrás do palm), solta o botão de reset e quando aparecer a tela de boas-vindas solta o botão de rolamento (scroll). Deste modo não se perde a informação de PDA.
Se não estiver seguro de que programa está causando o "error", pode usar um programa como ResetEmu depois do warm reset para detectá-lo.http://www.79bmedia.com/resetemu/d_index.html

4 - Hard Reset (reset duro)
Descrição:
Com um hard reset você apagará tudo que estiver armazenado na memória do PDA, exceto as aplicações e preferências de fábrica (veja extendendo hard reset). Uma vez resetado o PDA será necessário restaurar tudo que tinha com um Hotsync (Se usas Palm OS 3.1 ou anterior e não tiver nenhum programa de Backup, como BackupBuddy ou BackupMan, é muito possivel que terá que reinstalar tudo outra vez.
Por isso, é aconselhavel só fazer o hard reset se todos os métodos anteriores não funcionaram ou se quiser eliminar toda a informação de seu PDA (Por exemplo: na hora de vender o seu PDA, ou se quiser fazer uma limpeza geral).
Procedimento:
Para fazer um hard reset siga os passos seguintes:
Mantenha apertado o botão de Liga-Desliga do PDA.
Ao mesmo tempo em que mantém apertado o botão Liga-Desliga, dê um reset por trás (no furinho).
Solta o botão de reset.
Quando o "logo" da Palm aparecer no visor, pode soltar o botão de Liga-Desliga.
Se tiver feito o procedimento corretamente, aparecerá uma mensagem no visor anunciando que você vai apagar toda a informação do seu PDA, permitindo confirmar a ação ao pressionar o botão direcional para cima. Se não quiser confirmar, é só apertar qualquer outro botão, que o mesmo só dará um soft reset.

5 - Extended Hard Reset (reset duro extendido)
Descrição:
O extended hard reset fará exatamente o mesmo que o hard reset, só com uma diferença: impede a criação de algumas bases de dados que o fabricante pôs (números de telefones do suporte nos contatos, alguma nota de texto no Notepad, as conexões em Preferências, sons de alarme MIDI, a mensagem de boa vinda no Correo, alguns exemplos de fotos, etc). Atente que apagará todas estas informações do seu PDA.
Se fizer o extended hard reset e logo instalar alguma aplicação, te dará um "error"; por isso é recomendável depois de um extended hard reset, entrar em cada uma das aplicações do palm (Agenda, contatos, notas, Correio, Tarefas, etc) para assegurar que foi criado a base de dados. Depois de um extended hard reset não terá mais sons de alarmes adicionais.
Procedimento:
Para fazer um extended hard reset:
Aperta e mantém apertado o botão de Liga-Desliga do seu PDA.
Enquanto o mantém apertado, dê um reset por trás.
Solte o botão de reset.
Quando o "logo" da Palm aparecer no visor, pode soltar o botão de Liga-Desliga.
Quando te perguntar se realmente deseja fazê-lo, aperte e MANTENHA APERTADO o botão direcional (scroll) para cima.
Lembre-se em mantê-lo apertado, ao mantê-lo apertado,aperte em qualquer ordem, o botão de AGENDA, CONTATOS, TAREFAS, e NOTAS.
Solte o botão direcional (scroll) e o processo do extended hard reset terminará.
Tenha em mente que se não chegar a apertar os 04 BOTÕES enquanto mantém o botão direcional para cima apertado, só ocorrerá um soft reset.

6 - FlashPro Reset
Descrição:
Nos PDAs que usam FlashPro (aplicação que permite acessar a memória Flash sobrando) é possivel que uma aplicação que estiver corrompida (danificada) na memória Flash impeça o PDA de responder aos RESETS.
Só deve usar o Flash Pro reset se seu PDA não reage frente à um Hard reset!
Procedimento:
Para fazê-lo:
Aperte e mantenha apertado o botão de Notas de seu PDA.
Enquanto o mantem apertado, dê um reset por trás.
Solte o botão de reset.
Quando o "logo" da Palm aparecer no visor, solte o botão de Notas.
Quando aparecer esta mensagem: "hit the ToDo button to reformat flash" no visor, aperta o botão de tarefas para completar o reset.
Todas as aplicações ou dados que estiverem armazenados na memória Flash se apagará e será necessário reinstalar-las.

7 - JackFlash Reset
Descrição:
Nos PDAS que usam Jack Flash (aplicação que permite acessar a memória Flash sobrando) é possivel haver movido uma aplicação danificada, corrompida ou que não pode ser instalada na memória Flash, impedindo que o PDA responda aos resets.
Procedimento:
Para fazer um JackFlash reset:
Aperte o botão de reset na parte de trás de seu PDA.
Solte o botão de reset.
Imediatamente depois do passo anterior, aperta e mantém apertado o botão de Notas. Se foi feito corretamente, soará um apito do alarme.
Uma vez que haja apitado o alarme, solte o botão de Notas.
Uma vez completado, use o JackFlash para mover as aplicações danificadas ou que não podem ser instaladas na memória Flash para a memória RAM.
O conteúdo da memória Flash não será visivel até que execute o JackFlash ou faça um hard reset. Este método não apaga nada da Flash, com o qual poderá iniciar bem seu PDA e usar o JackFlash para acessar as informações ali guardadas.

8 - Debug Reset
Descrição:
Algumas vezes, quando se tenta atualizar o Palm OS, pode haver uma interrupção no processo que pode ocasionar em seu PDA, uma falha no sistema, na qual ele acusa que seu PDA não tem sistema operativo.
Este reset abrirá O Nº de SERIE do seu PDA para permitir gravar diretamente na memória Flash o sistema operativo.
Este reset só deve ser feito quando na utilização de atualização do sistema nos for necessário.
Procedimento:
Para fazê-lo:
Aperta e mantém apertado o botão de rolagem(direcional) para baixo.
Aperta o botão de reset atrás.
Quando o "logo" da Palm aparecer no visor, solta o botão direcional.
Em alguns modelos de PDA aparecerá um pequeno quadro piscando em um canto do visor.


Aí estão todos os RESETS possíveis....(até o momento)

Oracle – Diferença no Group By no 10G

Nas versões 8.x e 9 do Oracle, ao se fazer o Group by o resultado já vinha ordenado na ordem das colunas do Group By, como se houvesse um Order By implícito. Este procedimento ocorria, mas não era documentado pela Oracle.

A partir do Oracle 10G, o Order By não ocorre mais, sendo necessário realizar a ordenação manual. Este procedimento está documentado no manual do Oracle 10G.

A partir desta mudança vai uma dica. Nunca confie no que o SGBD faz implicitamente. Se você quer o resultado do Group By ordenado, utilize o Order By para garantir isso.

Oracle - Trabalhando com duas transações

Artigo enviado por Wellington Fernandes do CarmoAnalista de Sistemas

Pessoal, na semana passada precisei usar mais um recurso interessante do oracle que novamente compartilho com vocês.

Eu tinha um bloco pl/sql que, apesar de ter alguns delete, insert e update no seu conteúdo, deveria fazer um commit apenas no final da execução, geralmente o processamento é feito em segundos. Acontece que o update, sem um motivo aparente, começou a demorar mais que o normal. Com isso logo veio a pergunta, porque não fazer um commit a cada comando? Considerando o contexto da rotina, o commit a cada comando não seria possível, exceto em um update. Mas como fazer um commit isolado no meio da transação? A resposta é pragma autonomous_transaction;

Funciona apenas dentro de uma procedure, você cria uma procedure e coloca a declaração pragma autonomous_transaction; pronto essa procedure será considerada uma transação a parte, execute o seu comando e execute o commit.

PS: Funciona desde o Oracle 8i

Exemplo

Begin

Insert ......
Delete ......

Chamada da procedure com a transação autônima.......esse pedaço terá um commit a parte

Etc.......

Commit;
End;

VisualStudio 2005 - Trabalhando com GridLayout no ASP.Net

Como estou sendo questionado constantemente sobre como mudar de FlowLayout para GridLoyout nas páginas ASP.NET no VisualStudio 2005, abaixo vai um link de como fazer esta mudança.

 

http://www.mikepope.com/blog/DisplayBlog.aspx?permalink=1367

Oracle - Performance X uso de funções

É comum encontrarmos queries com a utilização de funções (to_date, to_char, etc...) em colunas na clausura Where, como o exemplo abaixo:

 

( to_date(to_char(ac1.dataacid,'dd/mm/yyyy'),'dd/mm/yyyy')  >= :VIDDataInicial_AnoI )

 

O problema dessa implementação é que ao utilizarmos uma função na coluna, o Oracle deixa de utilizar algum índice que exista nessa coluna.

 

Por isso, SEMPRE devemos utilizar as funções nos parâmetros. Dessa forma, a comparação acima ficaria:

 

ac1.dataacid >= to_date(to_char(:VIDDataInicial_AnoI,'dd/mm/yyyy' ) || ' 00:00:00', ,'dd/mm/yyyy hh24:mi:ss') AND

 

PowerBuilder - Bugs no Build 8716 da versão 9

Abaixo vai a lista de Bugs que eu encontrei na Build 8716 do PowerBuilder 9:

 

Duplicação de valores na DataWindow

    Em todas as DataWindows onde você pode inserir várias linhas (Múltiplos registros), quando você insere a primeira linha, funciona perfeito. Quando você tentar inserir a segunda linha, o PowerBuilder está mostrando o valor da primeira linha em tela, como se estivesse duplicando os valores anteriores, mas o campo continua vazio. a explicação técnica é que o valor e duplicado indevidamente em tela mas não no Buffer.

PowerBuilder - Conectando ao Oracle 10G utilizando Cliente do Oracle 8i

PowerBuilder 9.0.3 Build 8716

 

Recentemente, fizemos a migração do nossos servidores Oracle 8i para Oracle 10G. Para reduzir os impactos resolvemos fazer a migração em partes, primeiro migrando o Servidor e posteriormente migrando o Cliente nas estações.

 

Fizemos a homologação e não encontramos problemas. Após a migração, notamos que em algumas funções o tempo piorou muito. Fizemos uma analise do problemas e descobrimos que as queries utilizadas pelo PowerBuilder 9 , API do Oracle 804, para acessar o Catalogo do Oracle funciona muito bem no Oracle 8 e Oracle 9, mas possui uma performance horrível no Oracle 10.

 

Só para comparação, para listar as tabelas do Oracle 8 no DBProfile demorava 1 segundo. Após a migração para Oracle 10, começou a demorar 22 segundos.

 

Para resolver o problema, fizemos a migração do cliente para Oracle 9 (também funciona com Cliente do Oracle 10) e passamos a utilizar a API do Oracle 9 para conectar utilizando o PowerBuilder.

PowerBuilder - Usando DataWindow para manipular XML

Apenas uma dica para quem quer trabalhar com manipulação de XML em uma DataWindow.

 

O primeiro passo é desenvolver o template que você deseja e associa-lo a DataWindow. A associação pode ser feita no próprio DWPainter ou dinamicamente, como no exemplo abaixo:

 

dw_1.Object.DataWindow.Export.XML.UseTemplate=<Nome do Template XML>

 

Após definir o template, pode ser extrair ou importar os dados diretamente de um arquivo ou variável string, da seguinte forma:

 

- Importação

    - dw_1.importstring(XML!, <variável contendo o XML>) 

    - dw_1.importfile(<Nome do arquivo>) 

 

- Exportação

    - dw_1.Object.DataWindow.Data.XML

    - dw_1.SaveAs(<Nome do arquivo>,XML!,false)

PowerBuilder - Utilizando HTTP Post

Recentemente tive a necessidade de utilizar o HTTP Post, chamando uma URL passando um XML e recebendo um XML de resposta.

 

No final das contas, o processo é simples, mas não achei nada "pronto" na Web de como utiliza-lo.

 

Abaixo vão os passos necessários para criação de um objeto que chama o método HTTP Post:

 

1 - Objeto com resultado Web

    - Crie um User Object do tipo Standart/InternetResult

    - Declare uma variável de instancia onde será armazenada o retorno (No nosso exemplo, criamos a variável VISRetornoWeb )

    - Na função InternetData(), atribua o parâmetro da função para a variável criada no passo acima

        VISRetornoWeb = string(data)

 

        return 1

 

2 - Criando objeto para disparar metodo HTTP Post

    - Cria um objeto do tipo Custom

    - Crie uma instancia do objeto criado na etapa 1 (No nosso caso, a instancia chama UOI_internet_resultado)

    - Crie uma função para chamar o método HTTP Post com os seguintes argumentos

        * Value String p_URL

        * Value String p_ParametroWeb (Parâmetros que serão passados para Web)

        * Reference String p_RetornoWeb (Parâmetros que serão retornados da Web)

    - Coloque o seguinte código na função

Blob Vlblb_args
String Vls_headers
Long Vll_ret

 

p_retornoWeb = ''

 

Vlblb_args = blob(p_parametroWeb)

 

vll_ret = UOI_Inet.PostURL(p_url, Vlblb_args, vls_headers,  UOI_internet_resultado)

 

if vll_ret = 1 then
 VISMSG = ""
elseif vll_ret = -1 then
 VISMSG = "Erro ao chamar o objeto de acesso a internet."
 Return -1
elseif vll_ret = -2 then
 VISMSG = "A URL informada é inválida."
 Return -1
elseif vll_ret = -4 then
 VISMSG = "Não foi possível conectar a Internet."
 Return -1
elseif vll_ret = -5 then
 VISMSG = "Não foi possível conectar a Internet utilizando protocolo seguro (HTTPS)."
 Return -1
elseif vll_ret = -5 then
 VISMSG = "Ocorreu um erro na requisão a Internet."
 Return -1
else
 VISMSG = "Ocorreu um erro não documentado no acesso a Internet. - Codigo :" + string(vll_ret)
 return -1
end if

 

p_retornoWeb = uoi_internet_resultado.visretornoweb

 

return 1

PowerBuilder - Abrindo um documento

Em algumas situações, o comando RUN não consegui abrir o documento que desejamos ou abre o documento utilizando uma aplicação diferente da configurada como "padrão" para aquele tipo de documento.

 

Para resolver este problema, pode-se utilizar o comando abaixo:

 

String VLSArquivo
long ret

 

ret = run('rundll32 SHELL32.DLL,ShellExec_RunDLL ' + '"'+VLSArquivo+'"')
if ret = -1 then
    vismsg = 'Não foi possível executar '+VLSArquivo+'!'
    return 0
end if
return 1