Luiz Fernando

Ola Rone, eu precisei disto uma vez e não consegui, como vc mesmo dize acima tem que tirar o l2007, dai usei imagem para poder diferenciar a coluna em questão.

Kapiaba a intenção é boa, mais iniciante em fivewin nos dias de hoje acho meio dificil, alguém que esta começando hoje pq motivo iria querer aprender fivewin, lógico que para nós que viemos do clipper foi uma mão na roda. Abs Luiz Fernando

Pessoal fiz um teste manual sem usar programas, aqui no escritorio e em alguns clientes que tenho acesso rodou blz, já nestes dois clientes não. veja como foi o teste manual criei dois arquivo 1) conteudo do primeiro ftp -s:baixarvendas.txt 2) conteudo do segundo arquivo open ftp.empresoft.net nome_do_usuario senha prompt cd empresoft.net/hiperfrios/remessa/002/ mget *.REM mdel *.REM pause Obs: a conclusão que cheguei que programas estilo filezile, linguagens de programação tipo a windev, tem algum detalhe a mais, pois estes roda normal, já em fivewin ou mesmo manual não roda. Abs Luiz Fernando

Exato, são três parte envolvida, eu, o provedor da internet e o local aonde esta hospedado o FTP, com certeza é alguma coisa da classe do fivewin, só pode, pq todas as outras ferramenta da certo, inclusive um pequeno exemplo que fiz usando a windev deu certo. Obs: vou perder uns 3 dias para reescrever as rotinas que usa FTP com a windev, mais não tem o que fazer, o correto mesmo seria esquecer FTP a trabalhar com webservice, mais infelizmente não tenho conhecimento suficiente ainda para isto. Obrigado a todos Abs Luiz Fernando

Ola, lembro de uma edição da infoexame de 2006 "WEB 2.0 a nova geração da internet", e nela dizia que em menos de 5 anos não iria mais existir soft desktop, la se passou mais de uma decada, e aqui esta nós ainda com desktop, mais é bom se preparar, se não aprender outra linguagem aos pouco ira sim sumir do mercado. Abs Luiz Fernando

Mais moça, já foi testado com vários aplicativo, e o FTP esta ok, vou tentar até o final da tarde uma solução dentro do fivewin aqui, caso não tiver sucesso, terei que fazer um projeto a parte para esta finalidade usando a windev, o que da dó é ocupar o tempo com uma coisa que já estava ok em fivewin. Abraços Luiz Fernando

Valdir em 2009 do nada todos meus clientes pararam de funcionar o FTP (uolhost), na época achei que ia ter um infarto devido a gravidade do assunto, pq meus clientes simplesmente para sem este serviço, após duas semanas de muita briga, acabei contratando outro serviço de FTP, problema foi sanado na hora, hoje por precaução tenho 3 provedores de FTP, mais na época tudo dava certo filezila, pelo explorer entre outros sistemas, dai eles dizem o problema é no seu sistema, como posso argumentar alguma coisa com eles, fica dificil. Luiz Fernando

Pessoal agradeço as dicas acima, mais não vai nem a pau, tentei trocar a porta como mencionado pelo Jackson, analisei os exemplos do link do Kapiaba, ele conecta no FTP normal, só não consegue receber e nem enviar arquivos, tenho hoje três serviços com empresas diferente de FTP, todas ocorre o mesmo problema. conforme o código abaixo verifiquei os caminhos arquivos esta tudo ok, até pq a mesma rotina funciona em varios clientes, a unica coincidência neste dois clientes que eles trocaram a NET(net de radio para fibra), este mesmo provedor tenho outros clientes que usa e funciona normal. if Len( a_temp ) >= 1 for x=1 TO Len(a_temp) FtpSendFiles( {cPath1+"PALM\REMESSA\"+cVende+"\" + a_temp[x][1]}, ; { "cCamFtpEnv/fpgto.rem"+ a_temp[x][1] }, oFtp) next endif FUNCTION FtpSendFiles( aSource, aTarget, oFTP ) ******************************************************************************** LOCAL nBufSize:=4096 LOCAL n LOCAL hSource LOCAL cBuffer := Space( nBufSize ) LOCAL nBytes, nFile := 0, nTotal := 0 LOCAL nTotSize := 0 LOCAL oFile ? "aqui 2" FOR n = 1 TO Len( aSource ) IF ! File( aSource[ n ] ) MsgStop( "Arquivos não Encontrados: " + aSource[ n ] ) EXIT ENDIF hSource = FOpen( aSource[ n ] ) nTotSize += FSeek( hSource, 0, 2 ) FClose( hSource ) SysRefresh() NEXT FOR n = 1 TO Len( aSource ) hSource = FOpen( aSource[ n ] ) oFile = TFtpFile():New( aTarget[ n ], oFTP ) oFile:OpenWrite() FSeek( hSource, 0, 0 ) nFile := 0 SysRefresh() WHILE ( nBytes := FRead( hSource, @cBuffer, nBufSize ) ) > 0 oFile:Write( SubStr( cBuffer, 1, nBytes ) ) SysRefresh() END FClose( hSource ) oFile:End() NEXT RETURN nil

Mais moça, como dize acima, uso a rotina deste 2010, funciona em todos clientes, sendo assim o problema não é na função em si, mais mesmo assim segue o codigo abaixo. FUNCTION FtpRec(cVende,aFtp) LOCAL a_temp := aFiles := {} LOCAL cServFtp,cUserFTp,cPassFtp,cRemessa LOCAL lRet := .T. LOCAL oInternet, oFtp cServFtp := aFtp[1,3] cUserFTp := aFtp[1,4] cPassFtp := aFtp[1,5] cRemessa := aFtp[1,6] // remessa do ftp cRetorno := aFtp[1,7] // retorno do ftp PRIVATE cCaminho := cRemessa+cVende+"/" oInternet := TInternet():New() oFTP := TFTP():New( Alltrim(cServFtp), oInternet, Alltrim(cUserFtp),Alltrim(cPassFtp) ) if !Empty( oFTP:hFTP ) aFiles := FtpDirectory( "&cCaminho/*.rem", "A", oFTP:hFTP ) if Len( aFiles ) >= 1 for x=1 TO Len(aFiles) FtpGetFile( oFTP:hFTP, "&cCaminho/" + aFiles[x][1],cPath1+"PALM\"+cVende+"\"+aFiles[x][1] ) oFtp:DeleteFile( "&cCaminho/" + aFiles[x][1] ) next endif else lRet := .F. endif oFTP:End() oInternet:End() RETURN lRet obrigado

Colegas uso FTP para envio e recebimento de arquivos deste 2010, sempre funcionou normal, coisa de 3 semanas dois cliente meus mudaram a net para fibra, deste então meu sistema não consegue mais enviar e nem receber arquivo nestes dois clientes, pior que o suporte da empresa de net faz teste pelo filezile e roda normal, fiz um pequeno teste usando outra linguagem e tb vai normal, sera que alguém ja passou por algo parecido. Obs: ele consegue conectar normal ao FTP, só não consegue transferir arquivos. Obrigado

Vlw Kapiaba obrigado pela ajuda...

Pessoal alguém tem alguma solução para TEF, aonde trabalhe em segundo plano junto com meu sistema, estou com uma demanda aqui para isto, caso preferir passar orçamento por email. empresoft@globo.com Obrigado.

Fladimir nunca tinha usado o Aeval com uma condição, vou fazer os teste aqui, obrigado. Obs: o Marcelo(marca) tb me deu outra solução em usar um FOR NEXT da posição atual da localização do primeiro elemento encontrado. Obrigado a todos.

Colegas veja a situação abaixo nPos := ascan( aSql_e, { |x| x[1] == aSql_c[i,1] } ) if nPos > 0 Abatimento+= aSql_e[nPos,3] endif dentro da array aSql_e existe mais de um resultado , mais neste caso acima pega somente o primeiro que localizar como dar um WHILE ou algo do tipo, para pegar todos elementos que aSql_e[xx,1] seja igual a aSql_c[xx,1] Obrigado

um forma de trabalhar em caso de valor seria assim na hora de gravar pro arquivo strzero(suavariavel*1000,12) nor arquivo iria ficar assim 000000000340 para pegar este valor de volta pro sistema val(str(val(suavariavel)/1000,10,2))

Evandro o duro que qdo se trata de pedido de venda nunca iremos saber se é 10 ou 150 itens, se for um pedido só até que é facil fazer a comparação e soltar a segunda via numa outra folha, o duro é a impressão em lote de varios pedidos. Obs: venho trabalhando nisto a um tempo, acredito que a solução esteja quase pronta, assim que conseguir posto aqui. Abraços.

Ola Evandro, mudar o tamanho da pagina dentro do FR3 realmente é simples, mais como fazer uma impressora lazer trabalhar com meia folha, a matricial LX300 até existe como configurar como 33 linhas.

Obrigado Vagner deu certo...

Alessandro obrigado pela resposta, meu problema que não consigo sair do cGetFile32 sem selecionar arquivo, sempre que usuario for usar esta rotina sera na criação de uma pasta nova, e não vai ter nenhum conteudo, a pasta sempre estara vazia. Obrigado

Colegas eu preciso pegar o nome de uma pasta, não estou conseguindo, com a rotina abaixo só da certo se eu selecionar um arquivo, que não é o caso, pois so preciso do nome da pasta na variavel cGet[3] redefine get oGet[3] var cGet[3] pict"@" of oDlg id 103 ; action (cGet[3]:=cGetFile("Arquivo de Licença (*.*) |*.*|" + ; "C:\",; 'EMPRE-SOFT' ),oGet[3]:refresh() ) BITMAP"PASTA" ; color COR_GET1 Obrigado

Ola Hudson , duas perguntas, vc eta usando qual RDD(lib) para utilizar o MYSQL, esta trabalhando com instruções pura em SQL.

nSequenciaNossoNumero := STR( nSequenciaNossoNumero, 6 ) oCBX:OutroDadoConfiguracao1 := Left(nSequenciaNossoNumero,1) //-- Prefixo do Nosso Numero q varia de 2 a 9 Ola Fladimir não consigo acertar este código de barra nem a pau, viu no código acima vc pega o digito do nosso numero, seria isto? Obrigado

Fladimir muito obrigado pela força, exatamente o que precisava. Abraços

Colegas devido a urgência não tenho como estudar e mudar todo o sistema para uma nova solução no momento, preciso mesmo fazer pelo cobrebem acredito que deve ser algum detalhe bobo na configuração da conta acima. Obrigado

Colegas alguém tem um modelo de como definir os dados para este banco, não consigo acertar o codigo de barra de forma alguma. estou fazendo assim BANCO = 748 AGENCIA = 0718.89 CONTA = 70003-6 CEDENTE = 7003 nosso numero inicia = 00001 nosso numero final = 99999 Obrigado