william

Washington, eu tb uso o ACBrMonitor para ECF, pra mim é o melhor, por isso vou começar a testar o ACBRNFEMONITOR que pelas funcoes que eu vi , fica bem facil trabalhar com NFE, e com o codigo bem reduzido.... Abraço William Xharbour 1.0 - Fwh - Sqlrdd , Mysql 5.0

Jackson, se vc usa a FWH901 verifique no arquivo IMAGE.PRG que nao faz + uso da NVIEWLIB.DLL e sim da FREEIMAGE.DLL. o metodo printimage abaixo, está na UTILPRN.PRG, veja que ele faz chamada a NVIEWLIB.DLL ******************************************************* METHOD PrintImage( nRow, nCol, xImage, nWidth, nHeight, nRaster ) CLASS TUtilPrn local hDib, hPal, hBmp if ( valtype( xImage ) == "N" ) .OR. !file( xImage ) hBmp := LoadBitmap( GetResources(), xImage ) hPal := PalBmpLoad( xImage ) hDib := DibFromBitmap( hBmp, nHiWord(hPal) ) else #ifndef __XPP__ if ! ( IsWin95() .or. IsWinNT() ) hBmp := NViewLibLoad( AllTrim( xImage )) else hBmp := NViewLib32( AllTrim( xImage )) endif #else hBmp := NViewLibLoad( 0, AllTrim( xImage ) ) #endif hDib := DibFromBitmap( hBmp ) endif ********************************************************** Por isso que eu nao conseguia usar. O IMAGE.PRG do FWH 2.6 trabalha com a nviewlib e foi o unico que fez funcionar sem problemas. Já os cantos arredondados que te davam erro, aqui funciona normal sem problemas. Se vc tiver uma versao da Timprime e Utilprn que trabalhe com a FREEIMAGE.DLL por favor , poste aí para nós. William Xharbour 1.0 - Fwh - Sqlrdd , Mysql 5.0

Alexandre, sempre que precisei alguem do forum me ajudou, e dentro do possivel tento fazer o mesmo, esse é o espirito do forum. Abraço William Xharbour 1.0 - Fwh - Sqlrdd , Mysql 5.0

Boa tarde, ha tempos venho tentando usar a excelente classe para gerar relatórios TIMPRIME , de autoria de nosso colega THE FULL, só que as versoes do FWH a partir do 2.7 já nao permitiam fazer uso da classe porque ela utilizava a NVIEWLIB.DLL , que nao é mais utilizada a partir da versao 2.7. SOLUÇAO: substituir a CLASSE IMAGE.PRG das versoes + novas do Fivewin pelo IMAGE.PRG da versao FWH 2.6. Recompile a lib que a classe Timprime vai funcionar maravilhosamenmte bem ! Abraço William Xharbour 1.0 - Fwh - Sqlrdd , Mysql 5.0

Boa tarde, ha tempos venho tentando usar a excelente classe para gerar relatórios TIMPRIME , de autoria de nosso colega THE FULL, só que as versoes do FWH a partir do 2.7 já nao permitiam fazer uso da classe porque ela utilizava a NVIEWLIB.DLL , que nao é mais utilizada a partir da versao 2.7. SOLUÇAO: substituir a CLASSE IMAGE.PRG das versoes + novas do Fivewin pelo IMAGE.PRG da versao FWH 2.6. Recompile a lib que a classe Timprime vai funcionar maravilhosamenmte bem ! Abraço William Xharbour 1.0 - Fwh - Sqlrdd , Mysql 5.0

Boa Tarde, sobre o tema das Notas Fiscais eletronicas, alguem já conhece ou está usando o ACBrNFeMonitor ? Ele trabalha do mesmo modo que o ACBrMonitor (comunica com todos os modelos de ECF ) via sockets ou trocando arquivo TXT. E é GRATUITO. Segue abaixo LINK para Download. Disponibilizada nova versão do ACBrNFeMonitor. Com esta versão é possível Criar uma NFe a partir de um arquivo no formato INI. Para baixar esta versão use o seguinte endereço - http://djsystem.sytes.net/ccount/click.php?id=5 E para ver como utilizar os novos comandos, acesse http://acbr.sourceforge.net/drupal/?q=node/40 Xharbour 1.0 - Fwh - Sqlrdd , Mysql 5.0

Boa Tarde, sobre o tema das Notas Fiscais eletronicas, alguem já conhece ou está usando o ACBrNFeMonitor ? Ele trabalha do mesmo modo que o ACBrMonitor (comunica com todos os modelos de ECF ) via sockets ou trocando arquivo TXT. E é GRATUITO. Segue abaixo LINK para Download. Disponibilizada nova versão do ACBrNFeMonitor. Com esta versão é possível Criar uma NFe a partir de um arquivo no formato INI. Para baixar esta versão use o seguinte endereço - http://djsystem.sytes.net/ccount/click.php?id=5 E para ver como utilizar os novos comandos, acesse http://acbr.sourceforge.net/drupal/?q=node/40 Xharbour 1.0 - Fwh - Sqlrdd , Mysql 5.0

boa noite, procure nos forums uma classe chamada TMUTEX que faz isso que vc quer. William Adami Xharbour 1.0 - Fwh 8.10 - Sqlrdd , Mysql 5.0

olá , bom dia, sempre tive problemas usando a classe xbrowse, até que migrei para a versao 8.10. Agora está tudo funcionando ok , inclusive as trees dentro do browse... Acho que seu problema é a versáo do Five Xharbour 1.0 - Fwh 8.10 - Sqlrdd , Mysql 5.0

boa tarde, eu resolvi meu problema da seguinte forma: criei um DBF com os itens do sistema desta forma: codigo nome funcao 01.00.00 Cadastros cadas() 01.01.00 Clientes cadcli() 01.01.01 inclusao inccli() 01.01.02 alteracao altcli() 01.02.00 produtos cadprod() 01.02.01 inclusao incprod() 01.02.02 alteracao altprod() 02.00.00 Movimentacao movim() 01.01.00 Vendas vend() 01.01.01 Compras comp() etc.. etc.. etc... O sistema possui uma buttonbar que é montada com os itens lidos do DBF. O controle de acesso é feito com uma TREE que mostra todos os itens do sistema (lidos do DBF) para cada usuario , podendo ser marcado ou desmarcado o acesso por um checkbox. Quando um usuario LOGA no sistema , os itens que nao tem acesso ficam desabilitados (DISABLE) e o usuario somente pode usar os itens que ele tem acesso. A vantagem de usar esse metodo de Menus dinamicos é que quando precisar incluir novos itens no sistema somente cadastra no DBF e ja é incluido automaticamente no sistema sem ter que mudar uma unica linha no sistema. Essa base serve para todos os futuros sistemas a serem desenvolvidos. è um pouco trabalhoso montar a logica e a TREE de acesso (levei duas semanas para fazer)mas compensa investir nisso pois ira trazer trazer muitas facilidades para desenvolvimento de software . William Adami Xharbour 1.0 - Fwh 8.10 - Sqlrdd , Mysql 5.0

no Borland Resource Workshop, no item Options escolha o subitem SET ORDER e vai numerando a ordem dos controles, sempre numerando o Group antes dos gets. Uso a FWH 8.10 com Group e numerando a ordem dos controles nunca tive esse problema de esconder gets.... William Xharbour 1.0 - Fwh 8.10 - Sqlrdd , Mysql 5.0

Atenildo o que eu verifiquei é que se tirar o quit ou o Return nil do final do programa o GPF acaba... pelo que parece o problema é a versao do xhb 1.1... vamos ver se aparece alguma solução William Adami Xharbour 1.0 - Fwh 8.10 - Sqlrdd , Mysql 5.0

bom dia, a BCC640.lib pelo que eu vi ate hoje serve para o sistema conseguir abrir mais areas e mais arquivos alem do padrao suportado pelo xharbour. Vc so precisa compilar ela junto se o seu sistema estiver dando erro de abertura de areas e arquivos, ou seja , se o padrao do xharbour nao for o suficiente para seu sistema rodar. William Adami Xharbour 1.0 - Fwh 8.10 - Sqlrdd , Mysql 5.0

Bom dia , uso a sqlrdd na versao 7.1 (fevereiro 2008) com o Xharbour 1.0 sem problemas. Migrei a pouco para a versao 8.0 de setembro 2008 utilizando o xharbour 1.1. O programa funciona tudo normal, só que quando finalizo o programa com quit ou return nil, aparece um gpf . O codigo do programa é o mesmo que eu uso com sucesso com o xhb 1.0. Alguem ja passou por isso? Alguma solução ? Obrigado William Xharbour 1.0 - Fwh 8.10 - Sqlrdd , Mysql 5.0

Bom dia , uso a sqlrdd na versao 7.1 (fevereiro 2008) com o Xharbour 1.0 sem problemas. Migrei a pouco para a versao 8.0 de setembro 2008 utilizando o xharbour 1.1. O programa funciona tudo normal, só que quando finalizo o programa com quit ou return nil, aparece um gpf . O codigo do programa é o mesmo que eu uso com sucesso com o xhb 1.0. Alguem ja passou por isso? Alguma solução ? Obrigado William Xharbour 1.0 - Fwh 8.10 - Sqlrdd , Mysql 5.0

vc deve verificar se a lib da SQLRDD que vc esta usando é compativel com o xhb 1.1 que vc esta usando. Eu so consegui fazer a sqlrdd funcionar com sucesso usando o xhb versao 1.0 Espero que lhe ajude. William

Bom dia, para incluir ou excluir funcoes na LIB, eu uso o LIB.EXE que vem com o BCC55 . Eu tambem utilizo o programa LIBRA.EXE que exibe as funcoes da lib e permite excluir , incluir, etc... Acho que pra vc a LIBRA.EXE te resolve o problema. William

bom dia , esta funcao pega todos os componentes da rede (Unidades e Impressoras) e exibe num listbox para escolha: Abraço William Function qualcamired Local oDlg101,oWnd,ncodigo,cestacao,nquantas,ocoment,odlg2 local volta:="",obrw,area:=select() nquantas :=0 ferase("carimp.dbf") DbCreate( "CARIMP", { { "QUANTAS" , "N", 04, 0 },; { "NOME_IMP" , "C", 14, 0 },; { "ESTACAO" , "C", 23, 0 },; { "COMENTARIO", "C", 30, 0 } } ) if OpenFile( "carimp","carimp", 1, .F. ) endif WAITRUN("COMMAND.COM /C net view > estacao.txt" ,0 ) DbCreate( "CARTES", { { "TEXTO", "C", 100, 0 } } ) if OpenFile( "cartes","cartes", 1, .F. ) endif APPEND FROM estacao.txt SDF dbselectarea("CARTES") dbgotop() Do while !eof() if substr(CARTES->texto,1,2)#'\\' dbskip(1) loop endif dbselectarea('CARIMP') cestacao :=substr(CARTES->texto,1,23) ferase("ESTACAO.TXT") WAITRUN("COMMAND.COM /C net view "+cestacao+" > estacao1.txt",0 ) DbCreate( "CARTIM", { { "TEXTO", "C", 100, 0 } } ) if OpenFile( "cartim","cartim", 2, .F. ) endif APPEND FROM estacao1.txt SDF dbselectarea("CARTIM") dbgotop() Do while !eof() if substr(CARTIM->texto,14,4)#'Disc'.AND.substr(CARTIM->texto,14,4)#'Impr' dbskip(1) loop else if substr(CARTIM->texto,14,4)<>'Disc' ocoment:="Impressora" else ocoment:="Disco" endif endif dbselectarea('CARIMP') append blank nquantas++ replace CARIMP->quantas with nquantas replace CARIMP->estacao with substr(CARTES->texto,1,23) replace CARIMP->nome_imp with '\'+substr(CARTIM->texto,1,13) replace CARIMP->comentario with ocoment dbselectarea('CARTIM') dbskip(1) Enddo dbselectarea('CARTIM') dbclosearea('CARTIM') ferase('CARTIM.DBF') dbselectarea('CARTES') dbskip(1) Enddo dbselectarea('CARTES') dbclosearea('CARTES') ferase('CARTES.DBF') ferase('ESTACAO.TXT') ferase('ESTACAO1.TXT') dbselectarea('CARIMP') go top DEFINE DIALOG oDlg2 RESOURCE "REDE" TITLE "COMPONENTES DA REDE" odlg2:lhelpicon:=.f. REDEFINE LISTBOX obrw FIELDS carimp->NOME_IMP, ; carimp->ESTACAO, ; carimp->COMENTARIO ; HEADERS OemToAnsi( "NOME" ), ; OemToAnsi( "ESTACAO" ), ; OemToAnsi( "DESCRICAO" ) ; COLOR CLR_BLACK, rgb(238,221,130) ; ID 101 ; OF oDlg2 ; ON DBLCLICK (volta:=rtrim(carimp->estacao)+rtrim(carimp->nome_imp),odlg2:end()) obrw:bKeyChar := {|nK| if( nK==VK_RETURN, (volta:=rtrim(carimp->estacao)+rtrim(carimp->nome_imp),odlg2:end()) ,NIL)} activate dialog odlg2 centered dbclosearea("carimp") select(area) Return volta

Dorneles, postei em dicas um exemplo usando xharbour com comunicacao com o Acbr Monitor via sockets (o + rapido). A comunicacao feita via arquivo texto eu nao quiz utilizar pq é + lenta que a via sockets. Vc deve instalar o Acbr Monitor antes de executar o programa. No exemplo existem 30 botoes com as funcoes + usadas e mostra o retorno da funcao. A comunicacao via sokets é feita com funcoes nativas do Xharbour. Bom Proveito William Adami

Daniel , postei em Dicas um tutorial completo sobre como ligar e desligar aparelhos com fivewin via porta LPT1 , incluindo os circuitos eletronicos. Bom proveito ! William Adami

Boa Tarde, comprei uma ecf fiscal bematech MP20FI-II usada, para fazer testes. So que ela veio com data de 27/07/2002, preciso alterar a data para ficar certo. Alguem sabe como fazer isso ? Na dll da bematech nao tem comandos para o modo de intervencao. Obrigado William

Boa Tarde, comprei uma ecf fiscal bematech MP20FI-II usada, para fazer testes. So que ela veio com data de 27/07/2002, preciso alterar a data para ficar certo. Alguem sabe como fazer isso ? Na dll da bematech nao tem comandos para o modo de intervencao. Obrigado William

existe o fivewin para pocket pc, mas este nao funciona para palm-top, pois este utiliza o palm-os, diferente do pocket. para palm-os existe um software chamado CODEWARRIOR William

Tive esse problema com algumas lx 300 e constatei que as primeiras versoes da lx 300 simplesmente desligavam quando mandava imprimir via dos. Nas versoes + recentes da lx 300 esse problema nao ocorre. Alguem da manutecao me disse que isso se resolve trocando-se um chip da lx, mas nao tenho maiores informacoes para lhe dar... William