Amigos deste Forum Amigo Clippeiro Seja Bem vindo ao melhor espaço de Fivewin do Internet. Em relação as suas duvidas, tbem já as tive e posso te dizer que aqui com nossos amigos, você será muito bem acolhido. Em relação as suas duvidas, sim, vc poderá adquirir a ferramenta ideal pra resolver seus problemas. Na pagina inicial deste, envia um email para Virtual que o pessoal ira lhe passar custo e condições especiais pra vc. Ñão sei o seu nivel de conhecimento em FW ou mesmo FHB, mais caso for igual a minha (pouquinha-rsrsrsrs) há uma apostila em espanhol muito boa na parte de DICAS e ainda, tbem é oferecido um Livro legal a um custo mais legal ainda. Posto mais, suas ideias, sugestões, e o seu perfil, assim o pessoal ira ajudar muito vc. FWAbraços. Gilberto

Qual o tamanho da HD em Litros ? Velocidade de enchimento de copos ? FWAbraços!!

luiz..desculpe-me..realmente foi a falta de indicar a lib _DBFCDX no meu arquivo BLI.LNK oK!

Vagner..realmente é isso.. VALEU !!!!!!!!! FWAbraços citação:Olá, Adicione no seu LNK, a Lib _DbfCdx, ou seja, no Clipper5.3 existem duas DbfCdx DbfCdx.Lib _DbfCdx.Lib Vagner Wirts Clipper 5.2 Lib 5.3 - Blinker 5.0 FW 2.0, Harbour 43.0 (Flex), xHarbour 99.1 99.2 99.3 (Simplex) FW 2.5 id=quote>id=quote>

Será o forma de escrever a rotina ? o Request no final ? #include "FiveWin.ch" Static oW Abre() Caixa() Return **************************************************************** Function Caixa() Local oSay1, oSay2 Local oDia , oMes Local oDlg Private wRegi,wVend,wTipo,wVisi,wDia,wMes wDia:=Strzero(Day (date()),2,0) wMes:=Strzero(Month(date()),2,0) Define dialog oDlg Title "ELDC TELEFONICA Roteiro de Visitas" from 00,00 to 25,90 @ 01,05 Say "Regiao" @ 02,05 ComboBox oRegi Var wRegi Of oDlg Prompts Regi_List size 120,80 @ 03,05 Say "Representante" @ 04,05 ComboBox oVend Var wVend Of oDlg Prompts Vend_List size 120,80 @ 05,05 Say "Clientes" @ 07,05 Radio oTipo Var wTipo Of oDlg Prompt "PDVs Ativos","PDVs Inativos","PDVs (todos)" @ 01,30 Say "Visita" @ 01,30 Radio oVisi Var wVisi Of oDlg Prompt "SEG ","TER ","QUA ","QUI ","SEX ","SAB " @ 07,30 Say oSay1 Var "Dia" Of oDlg @ 07,33 Say oSay2 Var "Mes" Of oDlg @ 09,23 Get oDia Var wDia Of oDlg Size 11,10 @ 09,25 Get oMes Var wMes Of oDlg Size 11,10 @ 120,280 button "&Imprimir" Size 50,20 Of Odlg Pixel Action Imprimir() Activate Dialog oDlg center return nil ********************************************************** Function Imprimir() * * ROTINA DE IMPRESSAO * Return nil Static Procedure Abre Request DbfCdx RddSetDefault("DBFCDX") DbSetDriver("DBFCDX") Use Tb_Regi Index On NmRegi Tag Ind1 to Tb_Regi DbSetIndex("Tb_Regi") Use DbUseArea(.t.,"DbfCdx","Tb_Regi","Tb_Regi",.t.,.f.) DbSetIndex("Tb_Regi.cdx") Regi_List:={} Do While ! eof() aadd(Regi_List,Cdregi+"-"+Nmregi) skip Enddo Use Use Tb_Func Index On NmFunci Tag Ind1 to Tb_Func DbSetIndex("Tb_Func") use DbUseArea(.t.,"DbfCdx","Tb_Func","Tb_Func",.t.,.f.) DbSetIndex("Tb_Func.cdx") Vend_List:={} Do While ! eof() if "REP.COMERCIAL"$dsfunc .and. empty(dtdemis) aadd(Vend_List,Cdfunci+"-"+Nmfunci) endif skip Enddo Use Use Tb_Clie Index on dsmunic+dsbairr+tplogra+dsender+numlogr Tag Ind1 to Tb_Clie DbSetIndex("Tb_Clie") use DbUseArea(.t.,"DbfCdx","Tb_Clie","Tb_Clie",.t.,.f.) DbSetIndex("Tb_Clie.cdx") Use Tb_Pedi Index on CdClien+Dtos(DtPedid)+HrPedid Tag Ind1 To Tb_Pedi DbSetIndex("Tb_Pedi") Use DbUseArea(.t.,"DbfCdx","Tb_Pedi","Tb_Pedi",.t.,.f.) DbSetIndex("Tb_Pedi.cdx") Return

NÃO!!!!!! RSRSRSRSRS

Olá amigo Luiz..Veja o meu .LNK BLINKER CLIPPER SYMBOL OFF fi teste out teste.exe PACKCODE DEFBEGIN name PROG description 'Roteiro de Visitas' exetype Windows 3.1 code moveable discardable preload data preload moveable stacksize 1000 heapsize 1024 segment 'PLANKTON_TEXT' nondiscardable segment 'EXTEND_TEXT' nondiscardable segment 'OM_TEXT' nondiscardable segment 'OSMEM_TEXT' nondiscardable segment 'SORTOF_TEXT' nondiscardable segment 'STACK_TEXT' nondiscardable DEFEND NOBELL Lib \fw\lib\Five Lib \fw\lib\FiveC Lib \fw\lib\Objects Lib \fw\lib\WinApi Lib \c53\lib\Clipper Lib \c53\lib\Extend Lib \c53\lib\DbfNtx Lib \c53\lib\DbfCdx Lib \c53\lib\Terminal Mais mesmo assim, valeu. citação:O erro está no seu Arquivo.LNK LIB C:\CLP53\LIB\_DbfCdx - ou onde estiver Abraços. LUIZ ARRUDA - Corumba-MS FW 2.4 - CLP 5.3 - WS - Windows XP iko67@ibest.com.br Editado por - ico on 27/04/2006 17:13:43 id=quote>id=quote>id=blue>

Amigos deste Forum, Boa Tarde. Alguem tem uma relação de erros do Blinker. Olhem só o erro que deu em uma pequena rotina que fiz: BLINKER : 1115 : \C53\LIB\DBFCDX.LIB(CL53INIT): ´_DBFCDX´ : unresolved external ...e não consigo saber o que é ! FWAbraço

Amigos deste Forum, Boa Tarde. Alguem tem uma relação de erros do Blinker. Olhem só o erro que deu em uma pequena rotina que fiz: BLINKER : 1115 : \C53\LIB\DBFCDX.LIB(CL53INIT): ´_DBFCDX´ : unresolved external ...e não consigo saber o que é ! FWAbraço

Amigos deste Forum, Boa Tarde. Alguem tem uma relação de erros do Blinker. Olhem só o erro que deu em uma pequena rotina que fiz: BLINKER : 1115 : \C53\LIB\DBFCDX.LIB(CL53INIT): ´_DBFCDX´ : unresolved external ...e não consigo saber o que é ! FWAbraço

Luciane.. No inicio da sua rotina, vc esta colocando : Request DbfCdx RddSetDefault("DBFCDX") DbSetDriver("DbfCdx") Use Clientes Index On CGC_CLI TAG Ind1 To Clientes Index On NOME_CLI TAG Ind2 To Clientes DbSetIndex("Clientes") DbSetOrder(1) << aqui é a ordem do indice a ser aberto. Por exemplo, a chave CGC_CLI esta no indice 1 NOME_CLI esta no indice 2 Bem...eu trabalho assim. FWAbraços.

Amigos deste forum , Boa Tarde!!! Amigo Lauro..SEJA MUITO BEM VINDO AO MELHOR FORUM DO MUNDO!!! Veja em Dicas..lá tem uma apostila, em espanhol, mais te garanto, é muito boa! FWAbraços!

Paulo Bom Dia! A pergunta é "CASO EU TRAVE UM REGISTRO, OS CAMPOS DO REGISTRO, EU CONSEGUIRIA DE ALGUM MODO SOMENTE ENXERGAR O REGISTRO EM OUTRA ESTAÇÃO ?" + Mesmo Assim. Valeu!

Bom Dia Amigos do Forum!!! Como todo o sistema em Clipper em rede, tem DBF compatilhados. Muito bem, quando, por exemplo, faço uma pesquisa no DBF todo, caso tenha um registro sendo lido por outra Estação, este não será enxergado pelo micro que começõu a pesquisa no DBF, pois este registro estará travado. Pois bem, como enxergar os dados deste registro mesmo ele estando travado por outra estação ? Exemplo : Use Tb_Client Do while ! eof() If ! Travareg(b_tenta) skip loop Endif ** Registro esta travado para esta maquina ** Só que neste meio tempo, outra estação tbem precisa ** apenas pesquisar o registro, lógico, sem o direito de ** alteração. ** Já pensei em criar um View, mais queria outro ** jeito utilizando DBF . . Unlock Skip Enddo Use Return FWAbraços

Bom Dia Amigos do Forum!!! Como todo o sistema em Clipper em rede, tem DBF compatilhados. Muito bem, quando, por exemplo, faço uma pesquisa no DBF todo, caso tenha um registro sendo lido por outra Estação, este não será enxergado pelo micro que começõu a pesquisa no DBF, pois este registro estará travado. Pois bem, como enxergar os dados deste registro mesmo ele estando travado por outra estação ? Exemplo : Use Tb_Client Do while ! eof() If ! Travareg(b_tenta) skip loop Endif ** Registro esta travado para esta maquina ** Só que neste meio tempo, outra estação tbem precisa ** apenas pesquisar o registro, lógico, sem o direito de ** alteração. ** Já pensei em criar um View, mais queria outro ** jeito utilizando DBF . . Unlock Skip Enddo Use Return FWAbraços

Bom Dia Amigos do Forum!!! Como todo o sistema em Clipper em rede, tem DBF compatilhados. Muito bem, quando, por exemplo, faço uma pesquisa no DBF todo, caso tenha um registro sendo lido por outra Estação, este não será enxergado pelo micro que começõu a pesquisa no DBF, pois este registro estará travado. Pois bem, como enxergar os dados deste registro mesmo ele estando travado por outra estação ? Exemplo : Use Tb_Client Do while ! eof() If ! Travareg(b_tenta) skip loop Endif ** Registro esta travado para esta maquina ** Só que neste meio tempo, outra estação tbem precisa ** apenas pesquisar o registro, lógico, sem o direito de ** alteração. ** Já pensei em criar um View, mais queria outro ** jeito utilizando DBF . . Unlock Skip Enddo Use Return FWAbraços

CHRIS.....VALEU!!!!!!!!!!!!

INFINITY...OK! Modelo 50.001 Placa V9....é do modelo antigo grande. citação:Corrigindo... O Chip é o Infinity.. Tenho um amigo que vende com preço bom... a noite posto o telefone id=quote>id=quote>

Procura-se : Play Station 2 Destravado com Chip Infinito PS. É o meu patrão que quer tá !!!!!!!! Paga a vista sem choro!! PS. Enquanto eu trabalho (rsrsrs) FwAbraços!

Procura-se : Play Station 2 Destravado com Chip Infinito PS. É o meu patrão que quer tá !!!!!!!! Paga a vista sem choro!! PS. Enquanto eu trabalho (rsrsrs) FwAbraços!

Procura-se : Play Station 2 Destravado com Chip Infinito PS. É o meu patrão que quer tá !!!!!!!! Paga a vista sem choro!! PS. Enquanto eu trabalho (rsrsrs) FwAbraços!

Amigos deste forum..Boa Tarde! Por favor, me ajudem...Nesta pequena rotina, ainda não acabada, eu somente quero ver os valores das variáveis já que não tem DEBUGADOR, só que esta dando erro, exemplo com a variavel WREGI. Pela lógica ela teria qque ser Public. #include "FiveWin.ch" static oW Caixa() Return *********************************************** Function Caixa() Static wRegi,wVend,wTipo,wVisi,wDia,wMes Local oRegi, oVend Local oTipo, oVisi Local oSay1, oSay2 Local oDia , oMes Static oDlg wDia:=Strzero(Day (date()),2,0) wMes:=Strzero(Month(date()),2,0) Use Tb_Regi Regi_List:={} Do While ! eof() aadd(Regi_List,Cdregi+"-"+Nmregi) skip Enddo Use Use Tb_Func Vend_List:={} Do While ! eof() if "REP.COMERCIAL"$dsfunc .and. empty(dtdemis) aadd(Vend_List,Cdfunci+"-"+Nmfunci) endif skip Enddo Use Define dialog oDlg Title "ELDC TELEFONICA Roteiro de Visitas" from 00,00 to 25,90 @ 01,05 Say "Regiao" @ 02,05 ComboBox oRegi Var wRegi Of oDlg Prompts Regi_List size 120,80 @ 03,05 Say "Representante" @ 04,05 ComboBox oVend Var wVend Of oDlg Prompts Vend_List size 120,80 @ 05,05 Say "Clientes" @ 07,05 Radio oTipo Var wTipo Of oDlg Prompt "PDVs Ativos","PDVs Inativos","PDVs (todos)" @ 01,30 Say "Visita" @ 01,30 Radio oVisi Var wVisi Of oDlg Prompt "SEG ","TER ","QUA ","QUI ","SEX ","SAB " @ 07,30 Say oSay1 Var "Dia" Of oDlg @ 07,33 Say oSay2 Var "Mes" Of oDlg @ 09,23 Get oDia Var wDia Of oDlg Size 11,10 @ 09,25 Get oMes Var wMes Of oDlg Size 11,10 @ 120,280 button "&Imprimir" Size 50,20 Of Odlg Pixel Action Imprimir() Activate Dialog oDlg center return nil ********************************************************** Function Imprimir() If isprinter()=.f. MsgInfo("ERRO: Verifique a Impressora!","ATENCAO") return nil endif ** somente mostrar o conteudo das variaveis MsgInfo(wregi) MsgInfo(wvend) MsgInfo(wtipo) MsgInfo(wvisi) MsgInfo(wdia) MsgInfo(wmes) return **** fwAbraço

Amigos deste forum..Boa Tarde! Por favor, me ajudem...Nesta pequena rotina, ainda não acabada, eu somente quero ver os valores das variáveis já que não tem DEBUGADOR, só que esta dando erro, exemplo com a variavel WREGI. Pela lógica ela teria qque ser Public. #include "FiveWin.ch" static oW Caixa() Return *********************************************** Function Caixa() Static wRegi,wVend,wTipo,wVisi,wDia,wMes Local oRegi, oVend Local oTipo, oVisi Local oSay1, oSay2 Local oDia , oMes Static oDlg wDia:=Strzero(Day (date()),2,0) wMes:=Strzero(Month(date()),2,0) Use Tb_Regi Regi_List:={} Do While ! eof() aadd(Regi_List,Cdregi+"-"+Nmregi) skip Enddo Use Use Tb_Func Vend_List:={} Do While ! eof() if "REP.COMERCIAL"$dsfunc .and. empty(dtdemis) aadd(Vend_List,Cdfunci+"-"+Nmfunci) endif skip Enddo Use Define dialog oDlg Title "ELDC TELEFONICA Roteiro de Visitas" from 00,00 to 25,90 @ 01,05 Say "Regiao" @ 02,05 ComboBox oRegi Var wRegi Of oDlg Prompts Regi_List size 120,80 @ 03,05 Say "Representante" @ 04,05 ComboBox oVend Var wVend Of oDlg Prompts Vend_List size 120,80 @ 05,05 Say "Clientes" @ 07,05 Radio oTipo Var wTipo Of oDlg Prompt "PDVs Ativos","PDVs Inativos","PDVs (todos)" @ 01,30 Say "Visita" @ 01,30 Radio oVisi Var wVisi Of oDlg Prompt "SEG ","TER ","QUA ","QUI ","SEX ","SAB " @ 07,30 Say oSay1 Var "Dia" Of oDlg @ 07,33 Say oSay2 Var "Mes" Of oDlg @ 09,23 Get oDia Var wDia Of oDlg Size 11,10 @ 09,25 Get oMes Var wMes Of oDlg Size 11,10 @ 120,280 button "&Imprimir" Size 50,20 Of Odlg Pixel Action Imprimir() Activate Dialog oDlg center return nil ********************************************************** Function Imprimir() If isprinter()=.f. MsgInfo("ERRO: Verifique a Impressora!","ATENCAO") return nil endif ** somente mostrar o conteudo das variaveis MsgInfo(wregi) MsgInfo(wvend) MsgInfo(wtipo) MsgInfo(wvisi) MsgInfo(wdia) MsgInfo(wmes) return **** fwAbraço

Amigos deste forum..Boa Tarde! Por favor, me ajudem...Nesta pequena rotina, ainda não acabada, eu somente quero ver os valores das variáveis já que não tem DEBUGADOR, só que esta dando erro, exemplo com a variavel WREGI. Pela lógica ela teria qque ser Public. #include "FiveWin.ch" static oW Caixa() Return *********************************************** Function Caixa() Static wRegi,wVend,wTipo,wVisi,wDia,wMes Local oRegi, oVend Local oTipo, oVisi Local oSay1, oSay2 Local oDia , oMes Static oDlg wDia:=Strzero(Day (date()),2,0) wMes:=Strzero(Month(date()),2,0) Use Tb_Regi Regi_List:={} Do While ! eof() aadd(Regi_List,Cdregi+"-"+Nmregi) skip Enddo Use Use Tb_Func Vend_List:={} Do While ! eof() if "REP.COMERCIAL"$dsfunc .and. empty(dtdemis) aadd(Vend_List,Cdfunci+"-"+Nmfunci) endif skip Enddo Use Define dialog oDlg Title "ELDC TELEFONICA Roteiro de Visitas" from 00,00 to 25,90 @ 01,05 Say "Regiao" @ 02,05 ComboBox oRegi Var wRegi Of oDlg Prompts Regi_List size 120,80 @ 03,05 Say "Representante" @ 04,05 ComboBox oVend Var wVend Of oDlg Prompts Vend_List size 120,80 @ 05,05 Say "Clientes" @ 07,05 Radio oTipo Var wTipo Of oDlg Prompt "PDVs Ativos","PDVs Inativos","PDVs (todos)" @ 01,30 Say "Visita" @ 01,30 Radio oVisi Var wVisi Of oDlg Prompt "SEG ","TER ","QUA ","QUI ","SEX ","SAB " @ 07,30 Say oSay1 Var "Dia" Of oDlg @ 07,33 Say oSay2 Var "Mes" Of oDlg @ 09,23 Get oDia Var wDia Of oDlg Size 11,10 @ 09,25 Get oMes Var wMes Of oDlg Size 11,10 @ 120,280 button "&Imprimir" Size 50,20 Of Odlg Pixel Action Imprimir() Activate Dialog oDlg center return nil ********************************************************** Function Imprimir() If isprinter()=.f. MsgInfo("ERRO: Verifique a Impressora!","ATENCAO") return nil endif ** somente mostrar o conteudo das variaveis MsgInfo(wregi) MsgInfo(wvend) MsgInfo(wtipo) MsgInfo(wvisi) MsgInfo(wdia) MsgInfo(wmes) return **** fwAbraço

E N T E N D I !!!!!!!