MatheusFarias

Bem pro carinha que disse que não tem programadores com menos de 30 anos usando fivewin... bem tenho 23 + 2 colegas de idades semelhantes que usam tambem

cTextoAbreGaveta := "" nModeloComandoLocal := 1 IF "MP" $ UPPER(PrnGetName()) // Bematech cTextoAbreGaveta := CHR(29) +CHR(249) +CHR(32) +CHR(0) +CHR(27) +CHR(116) +CHR(8) +CHR(27) +CHR(118) +CHR(140) ENDIF * IF "DARUMA" $ UPPER(PrnGetName()) cTextoAbreGaveta := CHR(27) +CHR(112) ENDIF * IF "EPSON" $ UPPER(PrnGetName()) cTextoAbreGaveta := chr(027)+chr(112)+chr(000)+chr(010)+chr(100) nModeloComandoLocal := 2 ENDIF * *cCaminhoTXT := CurDrive()+":\"+CurDir()+"\GAVETA.TXT" cCaminhoTXT := "C:\SISTEMA\GAVETA.TXT" MemoWrit(cCaminhoTXT,cTextoAbreGaveta) cDestinoComando := "" if left(cImpressoraPadraoAbertura,2) == "\\" cDestinoComando := '"'+cImpressoraPadraoAbertura+'"' else do case case nModeloComandoLocal == 1 cDestinoComando := PrnGetPort() case nModeloComandoLocal == 2 cDestinoComando := '"'+"\\127.0.0.1\"+alltrim(PrnGetName())+'"' endcase endif * cComandoGaveta := 'CMD.EXE /C COPY '+cCaminhoTXT+' '+cDestinoComando WaitRun(cComandoGaveta,0) * **PS: A EPSON PRECISA ESTA COMPARTILHADA

As vezes quando trabalhava com fontes em objetos publicos isso acontecia, apos usar fontes locais somente sem reaproveitar a declaraçao dependendo de como esta sem MEMVAR na compilaçao isso pode ter como conflito.

Era isso ai, faltava fazer essa rotina antes

Postei aqui, pois não consegui postar em Downloads
https://matheusfariasdev.wordpress.com/2017/09/14/migrar-csvxls-para-dbf/

MsgRun('Aguarde, processando informações...','Aguarde...',{|oDlg| testefuncao(oDlg)})
----------------
function teste(oDlg)
oDlg:cMsg:="Alterando texto...."
oDlg:Refresh()

MsgRun('Aguarde, processando informações...','Aguarde...',{|oDlg| testefuncao(oDlg)})
----------------
function teste(oDlg)
oDlg:cMsg:="Alterando texto...."
oDlg:Refresh()

Bem não sei bem sua REAL ideia mas esse comando cria um convite de acesso remoto
WinExec("msra /saveasfile RemotoInteligence senha",1) Se Você conseguir enviar ele por e-mail ou ftp ou qualquer outra coisa ja tem a possibilidade de realizar o acesso. Se quiser tirar algumas dúvidas chama no Skype (farias.chaves)

Bom dia Valdir .
Eu uso o CobreBem e tenho já no sistema implantando para :Caixa ,HSBC ,Banco do Brasil e Santander
Tenho alguns prgs de exemplo tanto para gerar o boleto padrão ou personalizado , como os arquivos de remessa e leitura do arquivo de retorno
Te enviei um email

Galera, como faço para Pegar conteúdo antes do @hotmail.com?
Exempo:
carioca@hotmail.com - Quero somente o carioca
joaopaulo@terra,com.br - Quero somente o joaopaulo
O usuário digita o email dele, e o programa VALIDA e pega a string antes do @ e guarda.
É possivel:
Obg, abs.

Variavel:= Arthur@ig.com.br
SegundaVariavel:= Substr( Variavel , 1 , ( AT( "@" , Variavel )-1 ) )
Retorno:
SegundaVariavel == 'Arthur'

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

Bom dia meus queridos colegas.
Estou com um problema que não tenho idéia do motivo.
Como alguns de vocês sabem, eu trabalho com GTWVW , Fivewin e xHarbour, e estou migrando o sistema aos poucos para fivewin.
Em algum momento, o FOR roda em LEN(aArray)+1, ocasionando o erro Array Acess.
Não sabendo com resolver o problema, retirei o sysrefresh, e coloquei para gravar em um arquivo o valor da variavel de controle, e o len da array, e para minha surpresa, o erro parou de dar. Voltei o sysrefresh, e o erro voltou a acontecer.
Já me adiantando, vou postar o código problemático:
for nImg := 1 to len(mOriginal) sysrefresh() AADD(mArraTmp , {mOriginal[nImg][1],; mOriginal[nImg][2],; mOriginal[nImg][3],; mOriginal[nImg][4],; mOriginal[nImg][5],; mOriginal[nImg][6]}) next nImg Essa array mOriginal tem 21 itens, e o FOR insiste em rodar 22 vezes.
Vou postar também o arquivo de log que o sistema gera:
================ Procedure Type Value ========================== ACERTAARRAYIMG Param 1: N 1 Param 2: A Len: 21 -> esse parametro é a array mOriginal Param 3: A Len: 21 Param 4: N 0 Param 5: L .F. Local 1: U Local 2: U Local 3: U Local 4: A Len: 21 Local 5: A Len: 21 Local 6: N 22 -> Aqui é o nImg, variavel de controle do FOR rodando em len(array) +1 Local 7: U Local 8: N 0 IMAGEMMAIOR Alguém já passou por esse problema?

Bom dia Luiz.
Eu não costumo alterar o tamanho da array que estou rodando uma estrutura de repetição. Faça o teste, coloque array temporária para receber os valores, depois substitua ela logo após o FOR.
Outra coisa interessante: Se você usa xHarbour, a função DelMatriz pode ser substituída pelo código abaixo:
aDel(Vetor,Item,.T.) O terceiro parametro serve para diminuir o tamanho da array, e faz exatamente o que o ASIZE faz logo após o aDel.
[]'s
Ana

Kapiaba , se acompanhar a leitura do post , o arthur tinha uma duvida sobre o icone da aplicaçao que ele esta desenvolvendo , Sou Amigo dele , e comentei no post : Que coisa o cara migra fast report para prg e nao consegue colocar um icon srsrsrs 
Entao as pessoas magicamente entenderam q ele estava fazendo algo no fast report , que nao é , somente lendo o post voce pode ver isso , entao agora disse q a leitura é a mãe do entendimento do texto pois essa nao é a duvida dele , graças a Deus encontramos o erro , que era o nome do ICONE no Recurso (.Res) (No Programa Pelles C 7.0 32 Bits) quando mudamos o nome no recurso e deixamos igual funcionou corretamente 
Explicaçao 
Errado:
 
-Nome no prg: Define icon oico Resource "FR3toPRG"
-Nome no res: "FR3toPRG" DO ICONE
 
Certo:
 
-Nome no prg: Define icon oico Resource "FR3TOPRG"
-Nome no res: "FR3TOPRG" DO ICONE

Que coisa o cara migra fast report para prg e nao consegue colocar um icon srsrsrs 

Pessoal pode parecer algo besta, mas eu defini um ícone na maquina do meu trabalho WXP eficou bonitinho, mas quando passei para meu desktop de casa W7 e meu notebook W8 ele não aparece ícone, fica somo se não tivesse ícone nenhum. Alguém já passou por isso ? 

Quanto ao código é aquele procedimento padrão.
 
 
Define icon oicon resource "Nome"
 
Define dialog odlg resource "DLG" icon oicon
 
Activate dialog odlg centered

Olá Pessoal,
Podem contar comigo também, posso ajudar financeiramente. E estou de acordo com o Arthur Silvestre, temos que investir em formação de mais gente, eu tenho contratado direto programador PHP para aprender xBase, mas temos que criar metodos, palestras para incentivar novatos a programar nessa linguagem.

Venho mais uma vez sugerir para o item 2 que seja aberto um período do evento para que pessoas que de fato querem aprender a programar estejam presentes para conhecer o fivewin. Quanto ao local não tenho sugestão alguma, afinal moro na PB. Estou a acompanhar o tópico.

Uma sugestão minha seria de trazes o congresso não somente para os 'dinossauros', mas também abrir uma areá para pessoas que queiram aprender a programar e começar utilizando a linguagem FiveWin. Isso pode trazes cada vez mais pessoas para o fórum e consequentemente para os encontro. Quanto mais gente melhor. Acredito que seria uma boa ideia para ir difundindo cada vez mais a linguagem na cabeça das pessoas.

Olá pessoal...
 
Me perdoem...
 
Embora a sugestão do Kleyber seja ótima, não vejo como podemos trazer o Linarers se não conseguimos nem Organizar um Encontro de Amigos, quanto mais um Congresso de fato.
 
Até o momento,  tivemos 162 visitas e 12 repostas neste post. Como realizar algo com tamanha importância sem a plena participação da comunidade ?
 
Acho legal alguns virem aqui e apresentar o seu manifesto favorável, porém, cadê a grande massa de usuários deste Fórum ?
 
Sem uma concreta participação da maioria, fica complicado realizarmos algo.
 
Todos os Eventos realizados até hoje, somente foram possíveis graças á participação daquela meia dúzia de abnegados que se colocam à frente, disponibilizando seus escassos tempos para que esses Encontros sejam realizados.
 
Sugiro a Contratação de um Profissional para cuidar de todos os detalhes deste próximo evento.
 
Esta é apenas a minha opinião.
 
Um abraço

http://forums.fivetechsupport.com/viewtopic.php?f=6&t=24694&p=133829&hilit=Barra+de+desplazamiento+vertical#p133829
 
http://forums.fivetechsupport.com/viewtopic.php?f=6&t=24076&p=129663&hilit=Barra+de+desplazamiento+vertical#p129663
 
http://forums.fivetechsupport.com/viewtopic.php?f=6&t=20734&p=110073&hilit=Barra+de+desplazamiento+vertical#p110073
 
Abs,

Consegui pessoal, porém o código ficou extremamente grande, mas da para aplicar no sistema de todos e funciona redondo com dbf.
 
 
Código extremamente enorme:
 
oBrw:lVThumbTrack:=.T.
 
 
abs, kkkkkkkkkkkkkkkkkkkkkkkkkkkk

Olha se Voce conhece bem os comandos consegue usar o Harbour para usar seus bancos de Dados , não sei se é sua preferencia uma interface ainda no terminal mas muito boa ela é , entre no site do harbour e faça o Download do Hb3.0 na pasta Bin tem o Hbrun , que é um "Compilador em tempo real" do harbour ele executa o que voce coloca assim existem todos os comandos do clipper que voce consegue manipular o banco com mai agilidade , Obs: Esses comandos o Clipper do banco de dados são semelhantes ao do fivewin 
Links http://vivaclipper.wordpress.com/2013/02/01/hbrun/
         http://sourceforge.net/projects/harbour-project/files/binaries-windows/3.0.0/harbour-3.0.0-win.exe/download
 
Acredito que vai lhe ajudar