Erciley Junior

Vitor, te mandei e-mail também. Qualquer coisa, estou a disposição.

Valeu Erci!
(engraçado, perdeu seu perfil ? Eu que to há dois anos sem frequentar aqui direto to com mais posts que você, hahahaha).

Pessoal, para quem interessar, fica meu contato: luis.fernando.majr@gmail.com
Mesmo que não precisem desenvolver nada, precisando de algumas dicas, eu posso ajudar. (no que for de meu conhecimento)
Segue também meu contato no LinkedIn, https://www.linkedin.com/pub/luis-fernando-moreira-de-andrade-junior/55/a2a/802
Estou sumido do fórum pois há 2 anos mudei de emprego, mas passei 4 anos e meio desenvolvendo em FW/MySQL, alguns devem se lembrar de mim no fórum

Indico o Luisão aí em cima fácil, pode confiar.

Projeto -> Propriedades -> Selecionar Compiladores
Do lado direito terá "Versões Instaladas", e aí você seleciona o compilador a usar
Um pouco abaixo, terá o checkbox citado pelo aferra "Usar este script durante o processo de desenvolvimento"

Bom dia Erciley
Possível é, mas não é o maior problema, todo o custo é negociado em relação ao número de participantes, happy houer, coffee break, churrasco, etc. Isso para não falar da parte técnica, como apresentações, projetor, sistema de som, e por ai vai... depois temos a parte do material didático, ou seja, sem um número mínimo para trabalhar não há organização possível.
Mas valeu pela tentativa, eu já entreguei... quem sabe em cima da hora no final do ano fazemos um "junta-junta" de abnegados e vamos tomar umas brejas e conversar em um buteco em SP?
Herberson Gontijo
Ponteware Informática Ltda.

Herberson, apesar de eu não ir, como já disse, não há a possibilidade de você fechar um contrato com o SESC com base nos números que você possui?
Afinal de contas, fechar com eles para reservar 25 dormitórios, ao meu ver, é um número elevado. Digo isso pois a partir daí, os demais que talvez possam vir a aparecer, terão que dar seu jeitinho para se hospedar (fazer o que?).
Bom, não tenho participação nem conhecimento em como funciona, então me desculpe se estiver falando besteira ^^

Evandro
Não coloquei aquí o caminho que estou seguindo pois acredito ser deselegante ficar falando de outra linguagem meste forum.
Sou muito grato ao Clipper/Fivewin e depois ao xHarbour/Fivewin pois graças a eles consegui grande parte do que tenho hoje.
Mas a vida segue e precisamos tomar novos caminhos para não ficarmos parados no tempo.
Já expliquei e explicarei em email meus pontos de vista e da linguagem para algum amigos.
Esses encontros / congressos me trouxeram enormes conhecimentos e não é por causa dessa mudança que deixarei de encontra-los em
outra oportunidade. A grande maioria das vezes não se trata de linguagem e sim de troca de conhecimento.
Abraços
José Carlos
Guarulhos-SP

Amigos do fórum


Conforme prometi, estou manifestando sobre assumir a realização do "IX Congresso FW" em 2014.
Após várias pesquisas, consultas de preço e estudo de viabilidade para realização do “IX Congresso Fivewin”, o resultado apresento abaixo para apreciação de todos.

A proposta é realizarmos um evento parecido com o de 2010 no que se refere à estrutura de hospedagem/alimentação, obviamente quanto às palestras/conteúdo, será discutido no decorrer do tempo de acordo com sugestões dos participantes.
Novamente o local proposto foi o SESC-MG (em Belo Horizonte) e o check-in poderá ser feito no dia 21/Nov/2014 (sexta-feira) a partir das 18h e check-out no dia 23/Nov/2014 (domingo) até as 18h. Serão 2 diárias em chalés com ar-condicionado, frigobar, cama de casal, TV, café da manhã e almoço. Na sexta-feira, Teremos um “happy-hour”, para recepcionarmos os participantes, no “Bar dos Jogos”, local com estrutura adequada para tal, além de mesas de sinuca e jogos e no sábado, à noite, teremos o tradicional churrasco de confraternização, no salão do restaurante da piscina. Também serão fornecidos 2 coffee-break no sábado e 2 no domingo, nos intervalos das palestras na parte da manhã e da tarde, respectivamente, com o seguinte cardápio:
Café, leite c/sem Açúcar, ou Chocolate quente. 05 Variedades Pitt four e Sequilhos, 02 Variedades bolo(Chocolate, Limão, Cenoura, Laranja com cobertura) ou broa de fubá 02 Variedades Suco Natural (Sabores Uva, Abacaxi, Manga, Acerola, Goiaba) 02 Variedades de refrigerante primeira linha (Cola e guaraná) 02 Variedades de mini-salgados (Sfira, enrolado de presunto, empada, coxinha, delicia queijo) 02 Variedade de mini-salgados folheados (Abacaxi c/ presunto, ricota, bacon c/ damasco, alho poro) 02 Variedades de mini-croissant (Queijo, presunto e queijo, frango, goiaba, chocolate) 01 Variedade de mini-sanduíche (Presunto e queijo / pasta de frango / pasta de presunto / pasta de atum) 01 Variedade de mini-sanduíche pão caseiro (Lombo, Queijo prato, Requeijão, peito de peru defumado) Pão de Queijo O custo por participante será de R$ 420,00 (ou 5 x R$ 84,00) e para acompanhante R$ 300,00 (ou 5 x R$ 60,00) no mesmo chalé. Os valores poderão ser pagos à vista ou 5 parcelas, a partir de junho/2014, as inscrições poderão ser feitas pela internet e os pagamentos
através de boleto bancário.
Os valores acima foram através de muita negociação e talvez consiga segurá-los até 10 de maio, então seria muito bom todos os interessados se manifestarem o quanto antes para conseguirmos segurar a data e o preço.
Herberson Gontijo
Ponteware Software Ltda.

Oi Kapiaba, acho que demorei BASTANTE pra ver sua mensagem ^^
Ainda quer esse editor? Me passa teu e-mail qualquer coisa, abraço.

kra, isso não é coisa do Deus, toca de madrugada dizendo que o sistema caiu, que o micro não entra na rede, que precisa largar o que estou fazendo para ajudar..kkkkkkkkkkkkkk ai eu perdi e não tenho mais desde então. kkkkkkkkkkkkkkkkk

Acho que você está correto, isto é somente um exemplo, fiz na pressa, para responder um colega no forum inter. Nem sei se no teclado em espanhol, tenha acentuação. Obg. Abs.

Olá Kapiaba, acredito que a conversão das letras que possuem acentuação não está correta, pois o STRTRAN irá procurar a letra com acento já em maiúsculo para retirar o acento e manter em maiúsculo
e acredito que deveria ser o contrário ^^
Abraço.

Señores
Muy buenas noches, al parecer mi post les ha generado molestias, quisiera me entiendan, este señor AlexAvel, Don Juan o como se llame me estafó.
Ayer me habló con indignación, en vez de pedir perdon e intentar arreglar la situación, me amenazó con denunciarme por calumnia.
Doy por pedido mi dinero, mi tiempo y sobre todo MI CONFIANZA, pero quiero que no le pase a nadie mas, no se relacionen con este señor Alex, Axel, AlexAvel, Alessandro Avelino, Don Juan, etc. por que al igual que yo la van a pasar mal.
Pidiendo las disculpas del caso, me despido.

Luis Torres
Lima-Perú

Traducido por Google


Srs.
Boa noite, aparentemente meu post gerou desconforto, gostaria de me entender, este senhor AlexAvel, Don Juan ou o que me enganou.
Ontem falei com indignação, em vez de pedir perdão e tentar corrigir a situação, eu ameaçava me processar por calúnia.
Eu pedir meu dinheiro, meu tempo e toda a minha confiança, mas eu quero não aconteça com mais ninguém, não relacionados com esse cara Alex, Axel, AlexAvel, Alessandro Avelino, Don Juan, etc. porque eu gosto de ir a dar errado.
Fazendo as desculpas apropriadas, eu digo adeus.

Luis Torres
Lima-Peru

relembrei este caso pois entrou no assunto de reclamações...
o problema foi de todos né João, pelas consequencias causadas... primeiro no evento de 2011 que foi prejudicado mas pelo menos amenizado com a vaquinha feita dos organizadores...mandei no dia 5 pessoas daqui, ou seja, 5 inscrições então tive relação direta com isso...
outra consequência ainda mais grave foi que depois nunca mais teve encontro, falta de confiança e desmotivação dos caras que organizavam...
no fim todos pagamos pelo calote que não deve ser esquecido não..

id=quote>id=quote>Trave enquanto não acontece nada grave, é melhor prevenir do que remediar, eu também estou insatisfeito com o SPAM, mas resolvi simplesmente criando um filtro no meu email...

RCA Sistemas - Itaocara - RJ

WinExec()
Executes another Windows application



Syntax:


WinExec( <nCmdLine>, <nCmdShow> ) --> <hInstance>
Parameters:
<nCmdLine>
A string that contains the command line to execute. If it does not contains a
path, then Windows searches in this order:
1 The
current directory. 2 The
Windows directory (the directory containing WIN.COM); the GetWinDir() function
retrieves the path of this directory. 3 The
Windows system directory (the directory containing such system files as
GDI.EXE); the GetSysDir() function retrieves the path of this directory.
4 The
directory containing the executable file for the current task; the
GetModuleFileName function retrieves the path of this directory.
5 The
directories listed in the PATH environment variable.
6 The
directories mapped in a network. <nCmdShow>
Specifies how the windows application has to be shown. See ShowWindow() for a
description of all possible values. Returns:

<hInstance>
The return value identifies the instance of the loaded module, if the function
is successful. Otherwise, the return value is an error value less than 32:
0 System was out of memory, executable file was corrupt, or relocations were invalid.

2 File was not found.
3 Path was not found.
5 Attempt was made to dynamically link to a task, or there was a sharing or
network-protection error.
6 Library required separate data segments for each task.
8 There was insufficient memory to start the application.
10 Windows version was incorrect.
11 Executable file was invalid. Either it was not a Windows application or there was an error
in the .EXE image.
12 Application was designed for a different operating system.
13 Application was designed for MS-DOS 4.0.
14 Type of executable file was unknown.
15 Attempt was made to load a real-mode application (developed for an earlier version of
Windows).
16 Attempt was made to load a second instance of an executable file containing multiple
data segments that were not marked read-only.
19 Attempt was made to load a compressed executable file. The file must be decompressed
before it can be loaded.
20 Dynamic-link library (DLL) file was invalid. One of the DLLs required to run this application
was corrupt.
21 Application requires 32-bit extensions.

Observations:

The
LoadModule() function provides an alternative method for running an application.

Array é de Deus, DBF não é, hehehe
Estou usando Array sim. ^^
O código que usei foi exatamente oq postei acima...... =/
[edit]
posta aí como está fazendo qualquer coisa, q aí dou uma olhada...

Se for só exibição esse número de item
simplesmente crie uma coluna AddCol()
e exiba ALLTRIM(STR(oBrw:nArrayAT))
com isso não precisa de cálculo algum para quando o usuário apagar algum item, só precisará de um Refresh no browse (se é q entendi seu problema)

Se for só exibição esse número de item
simplesmente crie uma coluna AddCol()
e exiba ALLTRIM(STR(oBrw:nArrayAT))
com isso não precisa de cálculo algum para quando o usuário apagar algum item, só precisará de um Refresh no browse (se é q entendi seu problema)

oBrw:aCols[1]:bPaintText :={|oCol,hDC,cText,aCoord| PCS_MudaTextoXbrw( oCol, hDC, cText, aCoord, oPub:fNorm12, oPub:CorGet,oPub:CorGetW ) }
**-------------------------------------------------------------------------**
FUNCTION PCS_MudaTextoXbrw( oCol, hDC, cText, aCoord, oFonte,oCor1,oCor2 )
**-------------------------------------------------------------------------**
LOCAL nTop:=aCoord[ 1 ], nLeft := aCoord[ 2 ]
LOCAL nBottom:=aCoord[ 3 ], nRight := aCoord[ 4 ]
LOCAL nRow:= nTop
LOCAL cLine,nFontHt, nAt
LOCAL hBrush:=CreateSolidBrush( oPub:CorBege )
nAt:=AT(CRLF,cText )
IF(nAt>0)
cLine:=Left( cText, nAt - 1 )
SetTextColor( hDC, oCor1 )
nFontHt:=GetTextHeight( oCol:oBrw:hWnd, hDC )
DrawTextEx( hDC, cLine, { nRow, nLeft, nRow + nFontHt + 4, nRight }, oCol:nDataStyle )
nRow +=nFontHt + 4 //default 4
cLine:=SubStr( cText, nAt + 2 )
ELSE
cLine:=cText
ENDIF
DeleteObject( hBrush )
oFonte:Activate( hDC )
SetTextColor( hDC, oCor2 )
DrawTextEx( hDC, cLine, { nRow, nLeft, nBottom, nRight }, oCol:nDataStyle )
oFonte:DeActivate( hDC )
RETURN(NIL)

Function qualcamired Local oDlg101,oWnd,ncodigo,cestacao,nquantas,ocoment,odlg2 local volta:="",obrw,area:=select() nquantas :=0 ferase("carimp.dbf") DbCreate( "CARIMP", { { "QUANTAS" , "N", 04, 0 },; { "NOME_IMP" , "C", 14, 0 },; { "ESTACAO" , "C", 23, 0 },; { "COMENTARIO", "C", 30, 0 } } ) if OpenFile( "carimp","carimp", 1, .F. ) endif WAITRUN("COMMAND.COM /C net view > estacao.txt" ) DbCreate( "CARTES", { { "TEXTO", "C", 100, 0 } } ) if OpenFile( "cartes","cartes", 1, .F. ) endif APPEND FROM estacao.txt SDF dbselectarea("CARTES") dbgotop() Do while !eof() if substr(CARTES->texto,1,2)#'\\' dbskip(1) loop endif dbselectarea('CARIMP') cestacao :=substr(CARTES->texto,1,23) ferase("ESTACAO.TXT") WAITRUN("COMMAND.COM /C net view "+cestacao+" > estacao1.txt" ) DbCreate( "CARTIM", { { "TEXTO", "C", 100, 0 } } ) if OpenFile( "cartim","cartim", 2, .F. ) endif APPEND FROM estacao1.txt SDF dbselectarea("CARTIM") dbgotop() Do while !eof() if substr(CARTIM->texto,14,4)#'Disc'.AND.substr(CARTIM->texto,14,4)#'Impr' dbskip(1) loop else if substr(CARTIM->texto,14,4)<>'Disc' ocoment:="Impressora" else ocoment:="Disco" endif endif dbselectarea('CARIMP') append blank nquantas++ replace CARIMP->quantas with nquantas replace CARIMP->estacao with substr(CARTES->texto,1,23) replace CARIMP->nome_imp with '\'+substr(CARTIM->texto,1,13) replace CARIMP->comentario with ocoment dbselectarea('CARTIM') dbskip(1) Enddo dbselectarea('CARTIM') dbclosearea('CARTIM') ferase('CARTIM.DBF') dbselectarea('CARTES') dbskip(1) Enddo dbselectarea('CARTES') dbclosearea('CARTES') ferase('CARTES.DBF') ferase('ESTACAO.TXT') ferase('ESTACAO1.TXT') dbselectarea('CARIMP') go top DEFINE DIALOG oDlg2 RESOURCE "REDE" TITLE "COMPONENTES DA REDE" odlg2:lhelpicon:=.f. REDEFINE LISTBOX obrw FIELDS carimp->NOME_IMP, ; carimp->ESTACAO, ; carimp->COMENTARIO ; HEADERS OemToAnsi( "NOME" ), ; OemToAnsi( "ESTACAO" ), ; OemToAnsi( "DESCRICAO" ) ; COLOR CLR_BLACK, rgb(238,221,130) ; ID 101 ; OF oDlg2 ; ON DBLCLICK (volta:=rtrim(carimp->estacao)+rtrim(carimp->nome_imp),odlg2:end()) obrw:bKeyChar := {|nK| if( nK==VK_RETURN, (volta:=rtrim(carimp->estacao)+rtrim(carimp->nome_imp),odlg2:end()) ,NIL)} activate dialog odlg2 centered dbclosearea("carimp") select(area) Return volta Olá , acima está a rotina que eu uso para isso.
Abraço
William Adami

Olá Pessoal,
Acho muito interessante ver o linares pessoalmente, mas o congresso e o encontro, "para mim" é muito mais importante do que ver pessoalmente o linares, acho que para o linares, melhor seria no ano que vem, com mais tempo e planejamento, senao ficamos sem ver pessoalmente o linares e sem o encontro deste ano.
acho que ta na hora de tomarmos atitude, ou desistirmos de uma vez, acho que poderíamos votar e decidir de uma vez sobre o evento, entao eu sugiro decidirmos:
1) vai ter o encontro ou nao ( eu voto que sim )
2) devemos definir a data do encontro ( eu sugiro no dia 15 e 16 de novembro.)
3) devemos definir o local ( eu sugiro o hotel do ultimo encontro em guarulhos, achei muito bom o local, o custo beneficio e a logistica dele, pois tem translado gratuito do aeroporto para o hotel, o almoco foi no proprio hotel, sem necessitar de deslocamentos, e o almoço foi bom a um preço bom, e praticamente junto ao hotel, os melhores bares e restaurantes da regiao, que podemos ir a eles andando por um ou dois quarteirões, ou seja, nao precisamos reinventar a roda, vamos bater o martelo, nele ou em outro local de uma vez, o tempo corre contra a gente)
4) homologar os organizadores
( - para já negociar e reservar o local do encontro,
- abrir oficialmente a lista de inscrições,
- enviar as boletas e receber o valor do congresso.
- já comprarmos as passagens
- se ninguem quizer tomar a frente e viabilizar o encontro, eu sugiro o heberson e o evandro, mas acho que os atuais ai de sp seriam os ideiais e voto neles)
5) abrir votacao sobre os topicos do congresso.
( este tópico teremos até perto do evento para decidirmos, o resto acho que deveria ser resolvido agora)
6) se o linares vier otimo, se nao vier este ano, fica para o ano que vem, ou para quando der para ele, se nao vier nao tem problema, o importante é o encontro, senao já era e mais um ano sem encontro, o linares pode vir ano que vem, mas o encontro deste ano, se nao for este ano, já era).
Como já dizia aquela musica da época da ditadura "QUEM SABE FAZ A HORA E NÃO ESPERA ACONTECER !!!"
Vamos resolver isto de uma vez sem mais delongas, ou vamos desistir do encontro deste ano de uma vez, e nao ficarmos com expectativas sobre o evento.
Atenciosamente,
Narlem
BH - MG

Olá Valdir,
Muito bom saber que assim como eu você também quer a realização do encontro deste ano, então vamos juntar forças, nós e os outros integrantes
desta comunidade para realizar o encontro deste ano.
Eu participei juntamente com o heberson, evandro, cacau, tiao fivewin e outros da organização do ultimo encontro aqui em belo horizonte e
sei muito bem o trabalho e a dor de cabeça que dá fazer isto, pergunte ao heberson e pra cacau pra voce ver, eles se envolveram de corpo e
alma na realização daquele evento, mas se muitos ajudarem fica mais facil.
Eu me coloco a disposição para ajudar quem quer que seja que queira viabilizar este evento, infelizmente estou um pouco limitado por
nao estar em sp, e sim em bh, mas tamos ai para ajudar no que der e se for preciso.
Eu acho que devemos fazer o que a maioria quer, entao precisamos ver o que a maioria quer, entao selecionei alguns pontos para votarmos ,
estas sao minhas sugestoes de alguns tópicos para votação pela experiencia que passei,
espero tambem sugestoes de mais itens para a enquete, e entao fazemos a enquete, e aceitamos o resultado da maioria, talvez a maioria nem
quer o encontro.
Sugiro para a enquete os seguintes itens já dou meu voto neles.
1) Vai ter o encontro, (sim)
2) Data do encontro ( 15/16 novembro, aproveitando o que ja foi posto aqui antes)
3) local ( como ja disse anteriormente, no mesmo hotel do ultimo encontro em sp)
4) Organizadores ( os que estao ja trabalhando nisto conforme os posts anteriores )
5) Topicos, ( depois de definido o encontro, abrir discussão sobre quais palestras e topicos )
Sinceramente, espero ter contribuido para a viablização do encontro deste ano, pelo que vimos nos posts anteriores, tem muita
gente ansiosa e querendo o encontro, então vamos trabalhar para viabliza-lo.
Meu intuito nestes dois ultimos posts, foram exclusivamente ajudar de uma certa forma na viabilizacao do evento, somente isto.
Narlem
BH - MG

A Hb_ATokens funciona otimo para o que voce deseja junto com o ttxtfile
veja o ex:
oTxtFile = TTxtFile():New( "c:\caminho\arquivo.txt" ) // como abrir o arquivo
While oTxtFile:nLine<=oTxtFile:nTLines
sTexto:=oTxtFile:ReadLn() // Le a linha
aTexto:=Hb_ATokens (sTexto,"|")// cria o vetor
oTxtFile:Skip() // pula a linha para a proxima
end
assim ele vai andar em cada linha e te retornar um vetor com as posiçoes
referencias
http://www.freag.net/en/t/1cml3/hb_atokens
http://wiki.fivetechsoft.com/doku.php?id=fivewin_class_ttxtfile