william

bom dia deu certo aqui obrigado !

Boa noite , alguem trabalha com fastreport com impressora argox os-214? Não estou conseguindo imprimir corretamente nas etiquetas. Estou usando rolo de etiquetas de 1 coluna de etiquetas 6 cm x 3 cm. Se alguem puder me enviar um FR3 de exemplo para imprimir nessa etiqueta ou mesmo em alguma outra parecida , eu agradeço muito Obrigado williamdebritoadami@gmail.com

bom dia, já tentou usar a Fastreports ? Vc instala os drivers da argox e "desenha" a impressão independente de PPLA ou B Segue exemplo: function main() local oFrPrn select 1 use teste go top oFrPrn := frReportManager():new() oFrPrn:SetIcon(1) // Icone da janela do FRH oFrPrn:SetTitle( 'Etiquetas' ) // Titulo da janela do FRH oFrPrn:LoadLangRes( 'brazil.xml') // Arquivo de idioma oFrPrn:SetWorkArea( 'teste' , select('teste') ) oFrPrn:LoadFromFile('teste.fr3') // para leitura direta de arquivo FR3 oFrPrn:PreviewOptions:SetAllowEdit( .f. ) // inibe o botao de edicao do relatorio pelo usuario oFrPrn:DesignReport() // aqui para "desenhar" o relatorio oFrPrn:ShowReport() // aqui para gerar o preview do relatorio oFrPrn:ClearDataSets() oFrPrn:DestroyFR() dbclosearea() return nil testa aí e veja se funciona. Att. William Adami teste.fr3

li em algum lugar que era da atualizacao de 15/09 , localizei a atualizacao mas nao me permite desinstalar... tio Bill só ferrando a gente Se alguem tiver alguma solucao por favor compartilhe com nós Obrigado

Bom dia Talvez alguem tenha passado por isso e saiba como solucionar... Em alguns clientes que tem uma rede de computadores e tem o servidor com windows 10 e uma impressora compartilhada na rede (instalada no servidor), de uns tempos para cá nos terminais não consigo imprimir ou mesmo acessar a impressora na rede. Acredito ter havido uma atualizaçao do windows e após isso perdeu o acesso a impressora. segue abaixo foto do erro :

KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK

boa tarde, segue como eu faço com os antigos DBF : * As funcoes que uso: FUNCTION OpenFile( cFile, cAlias, nModo, lRetenta ) DEFAULT cAlias TO Subs( cFile, rAt( '\', cFile )+1), nModo TO 2 DEFAULT lRetenta TO nModo > 1 Do While .T. DO CASE; Case nModo == 1 USE (cFile) ALIAS (cAlias) NEW EXCLUSIVE Case nModo == 2 USE (cFile) ALIAS (cAlias) NEW SHARED Other USE (cFile) ALIAS (cAlias) NEW SHARED READONLY End If neterr() If lRetenta .AND. MsgRetryCancel( 'Arquivo ' + cFile + ; ' sendo usado em outra estacao!', 'Alerta') loop else retu .f. endif Endif exit Enddo return .T. ***** rede *********** FUNCTION REGLOCK(P1) local Local1 if p1=NIL p1:= 5 endif do while (.T.) for Local1:= 1 to p1 if (RLock()) return .T. endif InKey(0.5) next if !msgyesno("Registro Bloqueado! Tenta novamente ?") return .F. endif enddo RETURN( .F. ) function adireg(tempo) local loca1 do while (.T.) for Local1:= 1 to tempo append blank if (!neterr()) return .T. endif InKey(0.5) next if !msgyesno("Arquivo Bloqueado! Tenta novamente ?") return .F. endif enddo return .T. * Exemplos: para abrir os arquivos: if OpenFile( ".\dados\orca","or", 1, .F. ) select or or->(dbgotop()) endif * para travar o registro para alterar ou excluir: if reglock(10) replace confbds->contro with "OK" replace confbds->contro1 with "OK1" dbunlock() endif * para incluir novo registro: if adireg(10) replace numterm with "01" replace conf->t1 with 12 replace conf->t2 with 18 dbunlock() endif

putz descobri o porque disso. Na unidade C: ele mostra as pastas com nomes longos. Mas na unidade D: já não mostra. Segue abaixo a tradução: Por padrão, as versões modernas do Windows criam nomes de arquivo 8.3 em C: mas não os criam em volumes não pertencentes ao sistema recém-formatados. Para verificar se a criação de nome 8.3 está habilitada em D :, abra um prompt de comando como Administrador e execute: fsutil 8dot3name query d: A linha final deve indicar se este suporte está habilitado ou não. Para habilitar, use fsutil 8dot3name set d: 0 Observe que isso significa que todos os arquivos recém-criados em D: têm nomes 8.3, mas os arquivos existentes não. Corrigir isso para um conjunto existente de arquivos exigirá a cópia dos arquivos em um novo diretório para garantir que os nomes 8.3 sejam criados. Observe que isso precisa acontecer para cada diretório intermediário também (ou seja, um novo diretório em D: \ precisa ser criado porque D: \ Videogames não terá um nome 8.3.)

Salve Kapiaba Vc já está usando o Workshop em ambiente 64 bits? Estou testando aqui e está rodando corretamente. A única coisa que percebi é que quando vai abrir um .rc , o workshop não está mostrando as pastas que tem nomes longos. Só mostra as pastas com até 8 caracteres no nome. Isso se resolve facilmente renomeando as pastas para que fiquem com 8 caracteres, daí aparecem na lista. Porem será que não existe algo para se resolver isso, e fazer aparecer as pastas que tem nomes longos ? Obrigado

Salve mestre Legal , daí já abre via .bat , o .rc desejado. Show !

Boa noite Consegui rodar o Borland Resource WorkShop em windows 10 / 64 bits , segue a dica como fazer. 1- Baixe aqui o winevdm (baixei a versao 0.7.0) https://github.com/otya128/winevdm/releasesr 2- Baixe o conteudo dentro da pasta c:\emulador 3- supondo que o workshop esteja instalado na pasta c:\workshop , crie um atalho chamando o workshop da seguinte maneira: (coloque a linha abaixo como destino do atalho) C:\emulador\otvdmw.exe c:\workshop\workshop.exe pronto ! a mágica tá feita ! Att. William Adami

boa tarde com o pdfpowertools uso a seguinte linha de comando num arquivo .BAT para assinar. A senha tem que ser a senha do certificado digital PdfPowerTool.exe /INPUT taylor.pdf /OUTPUT taylor3.pdf /SIGNCERTIFICATE Ivair.pfx /SIGNPASSWORD 1234 /DISPLAYSIGNATURE /SIGN Mas no final resolvi meu problema utilizando a solução do Giovanyvecchi Att. William

blz Fladimir , muito bem explicado. Obrigado

bom dia estou prestes a comprar a API do Hendell porem o cliente me fez umas perguntas que eu nao soube responder, talvez os amigos que já utilizam possam dar sua opiniao. 1) tem limite de envio de mensagens ? 2) quantas mensagens consegue enviar por minuto? 3) se houver bloqueio, pode ser utilizado com mais de um chip ? 4) o cliente disse que utilizava em 2018 um sistema de envio em massa de mensagens e que sempre "queimava" os chips. Isso acontece mesmo? o cliente é uma escola que deseja enviar mensagens aos seus alunos via zap, sao mais de 4000 alunos , será que a api suportará? obrigado William

blz já entrei em contato com ele. O valor é de 650 . vou ver se o cliente paga . Obrigado

boa tarde Fladimir, poderia me enviar o contato do fornecedor? tenho um cliente que precisa enviar zap para os seus clientes e esta disposto a comprar a API. Vc sabe o preço? Obrigado William

Salve Kapiaba , acho que vc está confundindo as coisas. A função em questão é a ISUTF8() que está faltando. No seu exemplo é para setar para UTF8. A funcao ISUTF8 serve para testar se uma cadeia de caracteres está ou não no padrão UTF8

inclui a codepage.lib e continua dando o erro. A funçao nao está nesta lib

bom dia , uso xharbour , acrescentei a rtl.lib porem nao resolveu a falta da funcao ISUTF8. Deve estar em alguma outra lib.

nao achei a lib que contem a ISUTF8 mas achei a funcao: FuncTion IsUtf8( cString ) Local i, cIdUtf := Chr( 195 ) Local aUtf := { 129, 130, 131, 132, 135, 137, 138, 141, 147, 148, ; 149, 150, 154, 156, 160, 161, 163, 162, 164, 167, ; 169, 170, 173, 179, 180, 181, 182, 186, 188 } For i = 1 To Len( aUtf ) If At( cIdUtf + Chr( aUtf[ i ] ), cString ) > 0 Return .T. Endif Next Return .F. agora foi. Obrigado !

bom dia fui compilar e está faltando a funcao ISUTF8 , qual lib devo adicionar ? Obrigado

bom dia, já trabalhei com o coletor de dados LUCAS 9000 a muitos anos atras. Basicamente vc tem que fazer um item para gerar um arquivo produto.txt contendo as informacoes dos produtos (nome, codigo,etc..) para ser importado pelo coletor. depois usa o coletor para ler os produtos nas prateleiras, onde será registrada a quantidade em estoque no leitor. Terminada a leitura/contagem no estoque, o leitor exporta um arquivo texto com o resultado da leitura que será importado pelo seu sistema. Não tem muito segredo, só troca de arquivos texto com layout pre definido.

para assinar acho que sim. agora precisa saber se é do padrão ICP Brasil, vc sabe se é ? Senão não vale juridicamente aqui no Brasil.

show de bola ! muito obrigado pelo seu relato. Clareou muita coisa ! abraço William

Boa noite Giovany, muito legal sua lógica de gravar o pfx no campo blob. O documento PDF vc tambem grava em BLOB depois de assinado ? Se o cliente quizer uma copia , puxa do BLOB gerando o PDF fisicamente, é isso? No mais vou estudar sua classe para começar os testes. Muito obrigado, Att, William