Theotokos

4 minutos atrás, Jmsilva disse:

Substitua  oFtp:cwd( cPastaServ )   conforme abaixo, atentar para case sensitive. 

oFtp:cwd( "Clientes" )   // Pasta onde esta o Arquivo

 oFtp:cwd( "Borges" )   // Pasta onde esta o Arquivo

Vlw, mas tentei isso já...

18 minutos atrás, Jmsilva disse:

Qual o conteúdo desta variável cPastaServ?

"/Clientes/Borges/"

1 hora atrás, kapiaba disse:

Tente assim. Troque os dados da emagsoftware pelos seus.

 

#include "Fivewin.ch"
	FUNCTION Main()
	    LOCAL cUrl := "ftp://myuser@aruba.it:mypassword@ftp.emagsoftware.it"
	    LOCAL oUrl := TUrl():New( cUrl )
	    LOCAL oFtp := TIpClientFtp():New( oUrl, .T. )
	    oFtp:Open( cUrl )
	    ? oFtp:CWD( "/emagsoftware.it" )
	    ? oFtp:DownloadFile( "email.gif" )
	    oFtp:Close()
	RETURN NIL

 

Regards, saludos.

tmb nao deu! 

39 minutos atrás, Jmsilva disse:

Aparentemente  o erro é cusado por falta do segundo parâmetro oFtp:DownloadFile( cFile ), como o arquivo está em uma pasta diferente ao criar localmente gera o problema.

Tente assim: lRetorno := oFtp:DownloadFile( "nomefile.zip",cfile)

//downloadFile( <cLocalFile>, [<cRemoteFile>] ) --> lSuccess

vê se resolve!

lRetorno := oFtp:DownloadFile( "teste.txt", cFile )

fiz assim, mas continua mesma coisa, só mudou o nome do arquivo, que no FTP é SYSRLI.RLI baixou teste.txt

Fiz uma rotina simples para fazer o download de um arquivo, porem se este arquivo estiver na raiz abaixa certinho... mas se esta dentro de uma pasta ai da problema...

baixa o arquivo, porem o conteúdo dele fica assim: 550 SYSRLI.RLI: N; ao invés do conteúdo certo... 

estou fazendo assim:

   oUrl              := tUrl():New( cUrl )
   oFTP              := tIPClientFtp():New( oUrl, .f. )
   oFTP:nConnTimeout := 20000
   oFTP:bUsePasv     := .T.
 

   IF At( "@", cUser ) > 0
      oFTP:oUrl:cServer   := cServer
      oFTP:oUrl:cUserID   := cUser
      oFTP:oUrl:cPassword := cPassword
   ENDIF
    lOpen := .f.
    *
   MsgRun( "Abrindo FTP", "FTP", {|| lOpen := oFTP:Open( cUrl ) })

   IF lOpen
         cPastaServ := "Clientes/"+AllTrim(cCliFTP)

          file  := 'SYSRLI.RLI'  // Arquivo a ser Baixado

          oFtp:cwd( cPastaServ )   // Pasta onde esta o Arquivo
          oFTP:cReply()
          
          lRetorno := oFtp:DownloadFile( cFile )

Boa Tarde!!!!

Alguem já fez ou sabe como fazer, para saber qual a unidade que google driver criou no computador....

qdo instalamos o google driver para computador, ele cria uma unidade, queria buscar esta informação sem precisar que o usuário informe... é possivel ?

Assim será que funciona? testa ai..

        oLbx:nRowHeight              := 44
        oLbx:nDataLines          := 2    // Number of lines of the data rows
        oLbx:nDataType           := 0    // Data type to be used: 0->rdd, 1->array, ... (more to come) If navigation codeblocks are not specified then get automatically initialized when adjusting the browse depending on this DATA value
 

no final da função tente atualizar xBrowse

oBrw:SetArray( aVerPar_ )

oBrw:Update()

oBrw:Refresh()

verifica a configuração de tamanho da etiqueta... tanto na rotina de impressão, qto na instalação da  impressora... pode ser isso...

se for xbrowse, só em array mesmo... vc monta da forma que deseja e exibe na xbrowse

Tenho um xBrowse com varias colunas e linhas.... gostaria de colorir apenas uma celula conforme o valor dela por exemplo: se negativo ficar com fundo vermelho, ou se maior que ficar azul...

function filewrite(...) onde tem?

DEFAULT NULL : erro aqui acho kkkkk tira default null

5 horas atrás, MAMP2 disse:

deu certo theotokos, so fiquei confuso

com uma coisa, porque com os espacos em branco funcionou?

tem alguma explicacao pra isto?

 

é como Gilmer dissse, cada ttf tem sua instrução.... neste caso a fonte adiocionada ao windows, fica dessa forma, que fiz foi verificar no editor de texto (Word) forma que aparece lá, mas se vc verificar as instruções do .ttf 

da forma que lhe falei para fazer :define font cFont39r name "Libre Barcode 39" size 60, -70 of ip_caixa

4 minutos atrás, MAMP2 disse:

esta dando este erro, segue o PRG fiz um pequenomarcos.prg pra facilitar

 

marcos.prg 3 kB · 1 download

vc definiu ip_caixa como objeto de PRINT....

entao onde esta oPrn:  troque por ip_caixa:

ISSO MESMO!!!!

*************************
function testa_etiqueta()
*************************

sal_lin = 11
sal_col = 4.5
linha   = sal_lin
coluna  = sal_col
te_numero = 0
te_nome = space(10)

define font memvar->rec_sen ;
  name "Courier"  ;
  size 10,15   ;
  bold

DEFINE DIALOG oDlg3 FROM 10,15  TO 17,70 ;
  TITLE "Controle de acesso : "+memvar->te_drive+" Terminal : "+memvar->te_term  ;
  font memvar->rec_sen

  @ linha,coluna say "NUMERO : " of oDlg3 pixel
  coluna += sal_col*09
  @ linha,coluna get oget var memvar->te_numero pict "9999999999" size sal_col*12,10 of oDlg3 pixel
  coluna += sal_col*12
  @ linha,coluna say "NOME   : " of oDlg3 pixel
  coluna += sal_col*08
  @ linha,coluna get oget1 var memvar->te_nome pict "@!" size sal_col*12,10 of oDlg3 pixel valid cont_etique()

activate dialog oDlg3 centered

Return (.t.)

**********************
function cont_etique()
**********************

memvar ip_caixa

LOCAL cFont39r:=alltrim(memvar->te_drive)+"\LibreBarcode39-Regular.ttf"

AddFontResource(cFont39r)

memvar->oDlg3:End()

if memvar->te_esc_imp = "S"
  printerSetUp()
endif

print ip_caixa name " Teste etiqueta codigo de barras" preview
**\ print ip_caixa name " Teste etiqueta codigo de barras"

if Empty( ip_caixa:hDC )
  MsgStop( "Impressora com problemas" )
  close
  return nil
endif

te_prn_esc = upper(PrnGetName())

define font dl_cx_fo1 name "Calibri" size 12, -12 bold of ip_caixa
define font dl_cx_fo2 name "Arial" size 12, -14 bold of ip_caixa
define font dl_cx_fo3 name "Arial" size 14, -14 bold of ip_caixa
define font dl_cx_fo4 name "Arial Black" size 40, 25 bold of ip_caixa
define font dl_cx_fo5 name "Courier New" size 27, -12 bold of ip_caixa
define font dl_cx_fo6 name "Arial" size 10, -10 bold of ip_caixa
//// define font cFont39r name "LibreBarcode39" size 60, -70 of ip_caixa

define font cFont39r name "Libre Barcode 39" size 60, -70 of ip_caixa

define pen dl_caneta1 width 05 color CLR_BLACK

sal_lin  := ip_caixa:nVertRes() / 66
sal_col  := ip_caixa:nHorzRes() / 60

page

lin_lis := sal_lin*2

ip_caixa:Say(lin_lis,sal_col*3,"*"+strzero(te_numero,10)+"*",cFont39r,0,CLR_BLACK)

lin_lis += sal_lin*20

ip_caixa:Say(lin_lis,sal_col*3,te_nome,dl_cx_fo4,0,CLR_BLACK)

endpage

endprint

Return (.t.)

TENTE ASSIM:

define font cFont39r name "Libre Barcode 39" size 60, -70 of ip_caixa

desculpa a ignorância (burrice mesmo), para que serve isto? qual uso que vcs aplicam?

que tenho é esse BARCODE.CH, vê se isso....

BARCODE.CH

é foldeuuuuuuuuuu    kkkkkkkkkkkkkkkkkkkkkkkkkkkkkk

talvez: tenta ai

oFolder:aEnable[1] := .T.

oFolder:aEnable[2] := .F.

oFolder:aEnable[3] := .T.

apresenta ai como resolveu, pode ter outros usuário com o mesmo problema algo parecido, ai ajuda tmb... vlw obgdo!!!