syda

Mesmo que você não tenha CNPJ poderá solicitar do fisco local uma NF avulsa pelo teu CPF. Shirley d'Almeida FWH 7.04 (janeiro/2007) + xHarbour 0.99.71 (comercial) + xBuild + Resource Builder Manaus - Amazonas

Olá, Utilizo um .prg que me foi enviado por e-mail pelo Sandro Sanches, que está funcionando perfeitamente, só que em xHarbour comercial. Postei o arquivo em dicas. Poste o resultado dos teus testes. Este .prg usa a hbcomm para se comunicar com a balança. Shirley d'Almeida FWH 7.04 (janeiro/2007) + xHarbour 0.99.71 (comercial) + xBuild + Resource Builder Manaus - Amazonas

Exemplos usando DBF não tem nenhum, nem nas postagens, pesquisei antes de colocar este tópico. Shirley d'Almeida FWH 7.04 (janeiro/2007) + xHarbour 0.99.71 (comercial) + xBuild + Resource Builder Manaus - Amazonas

Olá pessoal, Alguém tem exemplos de uso do RMCHART com DBF? Grata. Shirley d'Almeida FWH 7.04 (janeiro/2007) + xHarbour 0.99.71 (comercial) + xBuild + Resource Builder Manaus - Amazonas

Olá pessoal, Alguém tem exemplos de uso do RMCHART com DBF? Grata. Shirley d'Almeida FWH 7.04 (janeiro/2007) + xHarbour 0.99.71 (comercial) + xBuild + Resource Builder Manaus - Amazonas

Você pode solicitar do pessoal da RENET uma licença demo para 05 terminais por 30 dias. Shirley d'Almeida FWH 7.04 (janeiro/2007) + xHarbour 0.99.71 (comercial) + xBuild + Resource Builder Manaus - Amazonas

Olá, Desculpa a demora na resposta, estava ausente esses últimos dias. O ADS é excelente, mas tem algumas coisinhas que às vezes empacam. O pessoal da Renet se esforça, sempre que precisei de ajuda eles responderam, mas o forte deles definitivamente não é clipper e nem xharbour. A minha dificuldade está apenas em um arquivo temporário que ainda não consegui arredondar, mesmo com a ajuda e paciêncioa infinita do Giovany. O resto funciona maravilhosamente bem, as tabelas abrem e atualizam muito mais rapidamente, para você ter idéia eu tinha uma tabela de consulta aos pedidos de clientes que demorava 19 segundos. Passou a fazer em apenas 3 segundos. Se você já trabalha com o ADS que vem no xHarbour, não terá dificuldades em usar a versão 8.1. O produto é caro, mas como disse o Evandro, verifique se não seria o caso de você já migrar para o SQL. No meu caso valeu cada centavo investido pelo fato de eu ainda ter um sistema em Clipper e precisava aumentar o número de terminais consultando a base. Abraços. Shirley d'Almeida FWH 7.04 (janeiro/2007) + xHarbour 0.99.71 (comercial) + xBuild + Resource Builder Manaus - Amazonas

O ADS é extremamente rápido em algumas situações e em outras trava completamente, eu mesmo com uma versão atualizada 8.1 (paga), e com suporte do distribuidor no Brasil, estou enfrentando também um problema que aparentemente é simples mas que não foi encontrada uma solução. Uso um arquivo temporário que de forma intermitente dá erro de criação. Isso já me tirou do sério de tal forma que estou re-escrevendo meu código para voltar ao CDX enquanto o SQL não vem! Dou razão ao Luiz, o visual peca, temos que ficar apelando para controles activex, que são uma dificuldade à parte, não temos certas funcionalidades há muito disponibilizadas em outras linguagens, nosso Folder (nativo) é simplório, isso sem falar do Preview. Há e ainda tem o problema da documentação, que nos obriga sempre a pesquisar e pesquisar, muitas vezes sem encontrar nada e torcer para que outro colega tenha passado pelo problema e solucionado. É realmente frustrante. É por essas e muitas outras que estou iniciando um treinamento em outra linguagem que já vem preparada para .net. Adoro o FW, pois com ele + xharbour pude aproveitar um pouco o pouco que sabia de programação clipper, mas na corrida tecnológica não podemos ficar para trás. Shirley d'Almeida FWH 7.04 (janeiro/2007) + xHarbour 0.99.71 (comercial) + xBuild + Resource Builder Manaus - Amazonas Editado por - syda on 22/05/2007 15:00:59

Oi Alessandro, A pesquisa funcionou! Só que a digitação ficou estranha, os caracteres ficam apagando a 1ª letra. Assim se é digitado REFUGO aparece somente EFUGO, mas o registro é posicionado corretamente no Browse. Obrigada! Shirley d'Almeida FWH 7.04 (janeiro/2007) + xHarbour 0.99.71 (comercial) + xBuild + Resource Builder Manaus - Amazonas

Olá pessoal, Preciso implementar uma pesquisa diferente no TSBrowse, já tenho a opção de pesquisar nativa do browse, mas preciso implementar uma com GET, baixei os vários exemplos exixtentes no Fórum mas não consegui fazer nenhum funcionar. A idéia é ter um browse com botões tipo rádio para o usuário escolher o que vai pesquisar. Dependendo do RADIO escolhido o get assume o tamanho do campo a ser pesquisado {codigo=05, descricao=40} e vai mostrando a pesquisa no controle BROWSE conforme o usuário for digitando no get. Sei que o TSBROWSE faz isso, como disse já esta implementado, mas o usuário não vê o que está digitando e se houver uma pequena pausa na digitação já atrapalha a pesquisa, o meu usuário precisa ver o que está digitando. E ainda tem que posicionar no browse pois o usuário pode querer editar o resultado encontrado. Tentei assim, sem sucesso: #INCLUDE "FIVEWIN.CH" #INCLUDE "Colors.ch" #INCLUDE "TSBUTTON.CH" #INCLUDE "TSBROWSE.CH" #INCLUDE "ADS.CH" #INCLUDE "VKEY.CH" // //-------------------------------------------------------------------------------------------- FUNCTION CAD1() OVAR1:=SPACE(20) LOPT1:=1 LOPT2:=1 DEFINE BRUSH OBRUSH1 FILE '..\OBJETOS\FUNDOAZ.BMP' DEFINE DIALOG ODLG2 RESOURCE "BRWAPARA" SIZE 620,548 ; COLOR CLNAVY BRUSH OBRUSH1 TRANSPARENT DEFINE FONT oFCourier14B NAME "COURIER NEW" SIZE -0,-14 BOLD DEFINE FONT oFCourier14 NAME "COURIER NEW" SIZE -0,-14 DEFINE FONT aFont NAME "Arial" SIZE 0, -12 SET FONT OF ODLG2 TO OFCOURIER14 SELE 11 // APARAS SET ORDER TO TAG INDICE1 IN INDAPA REDEFINE BROWSE oBrw ALIAS "APARAS" ID 301 OF ODLG2 // PERMITIR A EDIÇÃO DOS CAMPOS oBrw:LoadFields(.F.) // cor das células - TEXTO E FUNDO oBrw:SetColor({1,2},{CLPRETO,CLBRANCO}) // cor do cabeçalho - TEXTO E FUNDO oBrw:SetColor({3,4},{CLPRETO,CLCINZA}) // cor da célula com foco - TEXTO E FUNDO oBrw:SetColor({5,6},{CLPRETO,NRGB(129,213,255)}) // cor da célula SENDO EDITADA - TEXTO E FUNDO oBrw:SetColor({7,8},{CLPRETO,NRGB(202,218,254)}) // cor do RODAPÉ - TEXTO E FUNDO oBrw:SetColor({9,10},{CLPRETO,CLCINZA}) // cor controlling index column cells oBrw:SetColor({13,14},{CLPRETO,NRGB(129,213,255)}) // cor grade oBrw:SetColor(15,CLMUSGO) oBrw:nHeightCell += 6 oBrw:nHeightHead += 4 // Mudando a Largura das colunas oBrw:SetColSize( 01, 060) oBrw:SetColSize( 02, 250) // activating incremental search with two tags in columns 1 and 5 // oBrw:aColumns[1]:cOrder := "INDICE1" oBrw:aColumns[2]:cOrder := "INDICE2" oBrw:aColumns[2]:lSeek := .T. oBrw:GoPos( 2, 1 ) REDEFINE RADIO ORADIO1 VAR LOPT1 ID 302 OF ODLG2 REDEFINE RADIO ORADIO2 VAR LOPT2 ID 303 OF ODLG2 REDEFINE GET OGET1 VAR OVAR1 ID 101 OF ODLG2 ; ON CHANGE( OBRW:Refresh(), Buscar( nKey, oGet1 ) ) REDEFINE SBUTTON OBNT1 ID 201 PROMPT "&Incluir" OF ODLG2 FILE "..\OBJETOS\INCLUIR2.BMP" ; TEXT 4 COLORS CLPRETO,RGB(185,185,185) REDEFINE SBUTTON OBNT2 ID 202 PROMPT "&Editar" OF ODLG2 FILE "..\OBJETOS\EDITAR2.BMP" ; TEXT 4 COLORS CLPRETO,RGB(185,185,185) REDEFINE SBUTTON OBNT3 ID 203 PROMPT "E&xcluir" OF ODLG2 FILE "..\OBJETOS\EXCLUIR2.BMP" ; TEXT 4 COLORS CLPRETO,RGB(185,185,185) REDEFINE SBUTTON OBNT4 ID 204 PROMPT "&Voltar" OF ODLG2 FILE "..\OBJETOS\VOLTAR2.BMP" ; TEXT 4 ACTION ODLG2:END() COLORS CLPRETO,RGB(185,185,185) ACTIVATE DIALOG ODLG2 CENTER VALID !GetKeyState( VK_ESCAPE ) ON INIT oDlg2:lHelpIcon:=.F. RETURN NIL //---------------------------------------------------------- STATIC function Buscar( nKey, oGet ) local cFras if (nKey >= 032 .OR. nKey <= 126) cFras:= upper( AllTrim( oGet:cTitle ) ) seek cFras elseif nKey == 08 cFras := SUBSTR( cFras, 01, LEN(cFras)-1) seek cFras endif OBRW:REFRESH() return NIL id=code>id=code>Se após digitar no GET der no ENTER ocorre o seguinte erro: Application =========== Path and name: C:\FSisprod\FWH\producao.exe (32 bits) Size: 2,344,448 bytes Time from start: 0 hours 0 mins 10 secs Error occurred at: 22/04/2007, 15:31:55 Error description: Error BASE/1004 Message not found: TDIALOG:GONEXTCONTROL Stack Calls =========== Called from: => TDIALOG:ERROR(179) Called from: tobject.prg => (b)HBOBJECT:HBOBJECT(105) Called from: => TDIALOG:MSGNOTFOUND(0) Called from: DIALOG.PRG => TDIALOG:GONEXTCONTROL(167) Called from: TGET.PRG => TGET:KEYCHAR(0) Called from: WINDOW.PRG => TWINDOW:HANDLEEVENT(0) Called from: control.prg => TCONTROL:HANDLEEVENT(1360) Called from: TGET.PRG => TGET:HANDLEEVENT(0) Called from: WINDOW.PRG => _FWH(0) Called from: => DIALOGBOX(0) Called from: DIALOG.PRG => TDIALOG:ACTIVATE(0) Called from: cad1.prg => CAD1(80) Called from: SISPRODF.PRG => (b)MONTAMENU(564) Called from: MENU.PRG => TMENU:COMMAND(0) Called from: WINDOW.PRG => TWINDOW:COMMAND(0) Called from: WINDOW.PRG => TWINDOW:HANDLEEVENT(0) Called from: WINDOW.PRG => _FWH(0) Called from: => WINRUN(0) Called from: WINDOW.PRG => TWINDOW:ACTIVATE(0) Called from: SISPRODF.PRG => MAIN(273) id=code>id=code> E os botões RADIO ficam sempre ligados, mesmo tendo colocado como disable no resource. Abraços. Shirley d'Almeida FWH 7.04 (janeiro/2007) + xHarbour 0.99.71 (comercial) + xBuild + Resource Builder Manaus - Amazonas Editado por - syda on 22/04/2007 16:53:46

Olá pessoal, Preciso implementar uma pesquisa diferente no TSBrowse, já tenho a opção de pesquisar nativa do browse, mas preciso implementar uma com GET, baixei os vários exemplos exixtentes no Fórum mas não consegui fazer nenhum funcionar. A idéia é ter um browse com botões tipo rádio para o usuário escolher o que vai pesquisar. Dependendo do RADIO escolhido o get assume o tamanho do campo a ser pesquisado {codigo=05, descricao=40} e vai mostrando a pesquisa no controle BROWSE conforme o usuário for digitando no get. Sei que o TSBROWSE faz isso, como disse já esta implementado, mas o usuário não vê o que está digitando e se houver uma pequena pausa na digitação já atrapalha a pesquisa, o meu usuário precisa ver o que está digitando. E ainda tem que posicionar no browse pois o usuário pode querer editar o resultado encontrado. Tentei assim, sem sucesso: #INCLUDE "FIVEWIN.CH" #INCLUDE "Colors.ch" #INCLUDE "TSBUTTON.CH" #INCLUDE "TSBROWSE.CH" #INCLUDE "ADS.CH" #INCLUDE "VKEY.CH" // //-------------------------------------------------------------------------------------------- FUNCTION CAD1() OVAR1:=SPACE(20) LOPT1:=1 LOPT2:=1 DEFINE BRUSH OBRUSH1 FILE '..\OBJETOS\FUNDOAZ.BMP' DEFINE DIALOG ODLG2 RESOURCE "BRWAPARA" SIZE 620,548 ; COLOR CLNAVY BRUSH OBRUSH1 TRANSPARENT DEFINE FONT oFCourier14B NAME "COURIER NEW" SIZE -0,-14 BOLD DEFINE FONT oFCourier14 NAME "COURIER NEW" SIZE -0,-14 DEFINE FONT aFont NAME "Arial" SIZE 0, -12 SET FONT OF ODLG2 TO OFCOURIER14 SELE 11 // APARAS SET ORDER TO TAG INDICE1 IN INDAPA REDEFINE BROWSE oBrw ALIAS "APARAS" ID 301 OF ODLG2 // PERMITIR A EDIÇÃO DOS CAMPOS oBrw:LoadFields(.F.) // cor das células - TEXTO E FUNDO oBrw:SetColor({1,2},{CLPRETO,CLBRANCO}) // cor do cabeçalho - TEXTO E FUNDO oBrw:SetColor({3,4},{CLPRETO,CLCINZA}) // cor da célula com foco - TEXTO E FUNDO oBrw:SetColor({5,6},{CLPRETO,NRGB(129,213,255)}) // cor da célula SENDO EDITADA - TEXTO E FUNDO oBrw:SetColor({7,8},{CLPRETO,NRGB(202,218,254)}) // cor do RODAPÉ - TEXTO E FUNDO oBrw:SetColor({9,10},{CLPRETO,CLCINZA}) // cor controlling index column cells oBrw:SetColor({13,14},{CLPRETO,NRGB(129,213,255)}) // cor grade oBrw:SetColor(15,CLMUSGO) oBrw:nHeightCell += 6 oBrw:nHeightHead += 4 // Mudando a Largura das colunas oBrw:SetColSize( 01, 060) oBrw:SetColSize( 02, 250) // activating incremental search with two tags in columns 1 and 5 // oBrw:aColumns[1]:cOrder := "INDICE1" oBrw:aColumns[2]:cOrder := "INDICE2" oBrw:aColumns[2]:lSeek := .T. oBrw:GoPos( 2, 1 ) REDEFINE RADIO ORADIO1 VAR LOPT1 ID 302 OF ODLG2 REDEFINE RADIO ORADIO2 VAR LOPT2 ID 303 OF ODLG2 REDEFINE GET OGET1 VAR OVAR1 ID 101 OF ODLG2 ; ON CHANGE( OBRW:Refresh(), Buscar( nKey, oGet1 ) ) REDEFINE SBUTTON OBNT1 ID 201 PROMPT "&Incluir" OF ODLG2 FILE "..\OBJETOS\INCLUIR2.BMP" ; TEXT 4 COLORS CLPRETO,RGB(185,185,185) REDEFINE SBUTTON OBNT2 ID 202 PROMPT "&Editar" OF ODLG2 FILE "..\OBJETOS\EDITAR2.BMP" ; TEXT 4 COLORS CLPRETO,RGB(185,185,185) REDEFINE SBUTTON OBNT3 ID 203 PROMPT "E&xcluir" OF ODLG2 FILE "..\OBJETOS\EXCLUIR2.BMP" ; TEXT 4 COLORS CLPRETO,RGB(185,185,185) REDEFINE SBUTTON OBNT4 ID 204 PROMPT "&Voltar" OF ODLG2 FILE "..\OBJETOS\VOLTAR2.BMP" ; TEXT 4 ACTION ODLG2:END() COLORS CLPRETO,RGB(185,185,185) ACTIVATE DIALOG ODLG2 CENTER VALID !GetKeyState( VK_ESCAPE ) ON INIT oDlg2:lHelpIcon:=.F. RETURN NIL //---------------------------------------------------------- STATIC function Buscar( nKey, oGet ) local cFras if (nKey >= 032 .OR. nKey <= 126) cFras:= upper( AllTrim( oGet:cTitle ) ) seek cFras elseif nKey == 08 cFras := SUBSTR( cFras, 01, LEN(cFras)-1) seek cFras endif OBRW:REFRESH() return NIL id=code>id=code>Se após digitar no GET der no ENTER ocorre o seguinte erro: Application =========== Path and name: C:\FSisprod\FWH\producao.exe (32 bits) Size: 2,344,448 bytes Time from start: 0 hours 0 mins 10 secs Error occurred at: 22/04/2007, 15:31:55 Error description: Error BASE/1004 Message not found: TDIALOG:GONEXTCONTROL Stack Calls =========== Called from: => TDIALOG:ERROR(179) Called from: tobject.prg => (b)HBOBJECT:HBOBJECT(105) Called from: => TDIALOG:MSGNOTFOUND(0) Called from: DIALOG.PRG => TDIALOG:GONEXTCONTROL(167) Called from: TGET.PRG => TGET:KEYCHAR(0) Called from: WINDOW.PRG => TWINDOW:HANDLEEVENT(0) Called from: control.prg => TCONTROL:HANDLEEVENT(1360) Called from: TGET.PRG => TGET:HANDLEEVENT(0) Called from: WINDOW.PRG => _FWH(0) Called from: => DIALOGBOX(0) Called from: DIALOG.PRG => TDIALOG:ACTIVATE(0) Called from: cad1.prg => CAD1(80) Called from: SISPRODF.PRG => (b)MONTAMENU(564) Called from: MENU.PRG => TMENU:COMMAND(0) Called from: WINDOW.PRG => TWINDOW:COMMAND(0) Called from: WINDOW.PRG => TWINDOW:HANDLEEVENT(0) Called from: WINDOW.PRG => _FWH(0) Called from: => WINRUN(0) Called from: WINDOW.PRG => TWINDOW:ACTIVATE(0) Called from: SISPRODF.PRG => MAIN(273) id=code>id=code> E os botões RADIO ficam sempre ligados, mesmo tendo colocado como disable no resource. Abraços. Shirley d'Almeida FWH 7.04 (janeiro/2007) + xHarbour 0.99.71 (comercial) + xBuild + Resource Builder Manaus - Amazonas Editado por - syda on 22/04/2007 16:53:46

Com a ajuda dos amigos (muito pacientes) do Fórum consegui finalmente usar o TSBROWSE e telas criadas (.RC). Agora sou @say e Resource. Obrigada a todos que colaboraram, direta ou indiretamente (quando simplesmente pesquisei as respostas postadas). Shirley d'Almeida FWH 7.04 (janeiro/2007) + xHarbour 0.99.71 (comercial) + xBuild + Resource Builder Manaus - Amazonas Editado por - syda on 21/04/2007 11:51:53

Com a ajuda dos amigos (muito pacientes) do Fórum consegui finalmente usar o TSBROWSE e telas criadas (.RC). Agora sou @say e Resource. Obrigada a todos que colaboraram, direta ou indiretamente (quando simplesmente pesquisei as respostas postadas). Shirley d'Almeida FWH 7.04 (janeiro/2007) + xHarbour 0.99.71 (comercial) + xBuild + Resource Builder Manaus - Amazonas Editado por - syda on 21/04/2007 11:51:53

Grata Alessandro, funcionou redondinho! Shirley d'Almeida FWH 7.04 (janeiro/2007) + xHarbour 0.99.71 (comercial) + xBuild + Resource Builder Manaus - Amazonas

Olá, É possível usar dois dbf em um mesmo objeto obrw? COLUNA1 COLUNA2 COLUNA3 COLUNA4 pedido data cod_cli nome_cli dbf1 dbf1 dbf1 dbf2 - pesquisa id=code>id=code>Shirley d'Almeida FWH 7.04 (janeiro/2007) + xHarbour 0.99.71 (comercial) + xBuild + Resource Builder Manaus - Amazonas Editado por - syda on 20/04/2007 16:33:21