Theotokos

Vlw, mas tentei isso já...

"/Clientes/Borges/"

tmb nao deu!

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

é 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

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!!!