oziel

Obrigado. - Luiz53 - Aormond - Vitor. Problema Resolvido. Todas as dicas foram válidas. Já fiz o programa em Clipper 5 por enquanto. Mas, o objetivo foi alcançado. OZIEL LOPES FW 22c - Clipper 5.3b - Workshop 4.0

Obrigdo... Até breve... OZIEL LOPES FW 22c - Clipper 5.3b - Workshop 4.0

Caros . Hoje estou com um problema pois preciso gerar arquivos de do Sintegra desde 2007 de uma empresa, tenho o programa mais a empresa já fechou. Neste sistema não gera o reg. 74. Preciso de uma dica sobre a transformação de valores numéricos em strings de caracteres. Ex. 12,53 (dbf n 12,2)em um campo 000000001253 (doze posições) para q quando for gravado em arq. txt preencha o campo corretamente. Obrigdo. OZIEL LOPES FW 22c - Clipper 5.3b - Workshop 4.0

Caros . Hoje estou com um problema pois preciso gerar arquivos de do Sintegra desde 2007 de uma empresa, tenho o programa mais a empresa já fechou. Neste sistema não gera o reg. 74. Preciso de uma dica sobre a transformação de valores numéricos em strings de caracteres. Ex. 12,53 (dbf n 12,2)em um campo 000000001253 (doze posições) para q quando for gravado em arq. txt preencha o campo corretamente. Obrigdo. OZIEL LOPES FW 22c - Clipper 5.3b - Workshop 4.0

Ok.. o melhor é esperar... Obrigado... OZIEL LOPES FW 22c - Clipper 5.3b - Workshop 4.0

Gostei Ico. Para os que consideram o forum bom para tirar dúvidas e tb para podermos entrar em contato com alguns mais experientes ou até para conversarmos alguma coisa do genero, a sua proposta é válida, considero que para controlar é um pouco trabaloso,mais pelo menos não teríamos tanta polêmica,de alguem utilizar algo comercialmente ganhar dinheiro etc. e tb seria uma forma do fórum continua sobrevivendo. Espero q venha algo diferente como o prometido OZIEL LOPES FW 22c - Clipper 5.3b - Workshop 4.0

Ok... Obrigado pela resposta. Seu problema é tb nosso pois a homologação é feita com todas os modelos de ECF e a exigência e grande, pois é a Faculdade Visconde de Cairu que faz. Aguardo. TC OZIEL LOPES FW 22c - Clipper 5.3b - Workshop 4.0

Alguém tem um programa de Impressora Fiscal para a Bahia, q seja homologado? - em FW ou FWH Poderemos negociar o fonte ou a utilização do programa. Deve de preferência utilizar DBF por causa do meu prog. de retaguarda. Utilizo um escrito em Clipper 5.2 e Fglib30 não foi homologado pois antigamente não havia essa necessidade, só informar a Sefaz a IE da Empresa responsável. Grato... OZIEL LOPES FW 22c - Clipper 5.3b - Workshop 4.0

Alguém tem um programa de Impressora Fiscal para a Bahia, q seja homologado? - em FW ou FWH Poderemos negociar o fonte ou a utilização do programa. Deve de preferência utilizar DBF por causa do meu prog. de retaguarda. Utilizo um escrito em Clipper 5.2 e Fglib30 não foi homologado pois antigamente não havia essa necessidade, só informar a Sefaz a IE da Empresa responsável. Grato... OZIEL LOPES FW 22c - Clipper 5.3b - Workshop 4.0

Postei a uns dias um tópico sobre Dicas e Dowloads, não estavam funcionando, recebi uma resposta q se não me engano foi do Ico, veja se eu estou com a memoria boa. Agradeço pela dica, se não foi esse nome continue a agradecer que me mandou. Senhores, vamos ter cuidado principalmente para não nos tornarmos iguais a outros foruns, os outros q eu falo são prepotentes, deseducados e até truculentos. Infelizmente não tenho tempo para viver exclusivamente de desenvolvimento de softwares, a minha paixão. Tenho outras atividades como Gerente de TIC e Professor da rede pública, mas senhores, continuo gamado por Clipper e FW e agora estou começando testar o FWH, e pensando em converter outros prog. q tenho em Clipper. Como dizem... "companheiros a luta continua" - Bem se haverá mudanças espero que venham, não quero tiro no pé - Quero estratégia de marketing... progresso... Abraços... OZIEL LOPES FW 22c - Clipper 5.3b - Workshop 4.0

Bem, a principio queria colorir o get em destaque. Já tentei com SETCOLORGET + não funcionou. OZIEL LOPES FW 22c - Clipper 5.3b - Workshop 4.0

Não sei se vai ajudar. No site da Serasa tem uma informação q haveria prob. com Vista e Seven. No meu caso instalei o cert dig da A1. Assim, utilizei o XP, no meu caso foi renovação. O arq foi instalado na maquina e depois eu fiz uma cópia de segurança, para guardar e tb se necessário instalar em outra máquina. Para exportar: Painel de Controle-Opções de Internet-Conteudo-Certificado-Exportar. Ver se a dica serve. OZIEL LOPES FW 22c - Clipper 5.3b - Workshop 4.0

Ok. Obrigado pela resposta. OZIEL LOPES FW 22c - Clipper 5.3b - Workshop 4.0

Em dicas não consegui achar o botão para baixar os arquivos e em Downloads dar o erro abaixo - testei no Mozilla 3.66 e no Explorer 8.0. - alguém sabe o que é... Microsoft OLE DB Provider for ODBC Drivers error '80040e37' [MySQL][ODBC 3.51 Driver][mysqld-5.1.35-log]Table 'db2603.Download' doesn't exist /download.asp, line 62 OZIEL LOPES FW 22c - Clipper 5.3b - Workshop 4.0

Em dicas não consegui achar o botão para baixar os arquivos e em Downloads dar o erro abaixo - testei no Mozilla 3.66 e no Explorer 8.0. - alguém sabe o que é... Microsoft OLE DB Provider for ODBC Drivers error '80040e37' [MySQL][ODBC 3.51 Driver][mysqld-5.1.35-log]Table 'db2603.Download' doesn't exist /download.asp, line 62 OZIEL LOPES FW 22c - Clipper 5.3b - Workshop 4.0

Edvaldo. Também tive esse problema há alguns meses atrás o sistema sempre dava problemas de corrupção de arquivos. Resolvemos o prob do NO pois ele estava ligado com duas Maqs e não aguentava, também descobrimos que os operadores desligavam a tomada da rede elétrica qdo saiam no final do expediente. (a bateria perdia a carga) Foi detetado que um dos computadores da rede estava com virus o q provocava travamento do sistema e em vários casos a corrupção dos arq. principalmente *.fpt pois uso dbs e cdx. Não tivemos outra solução a não ser colocar um servidor de arquivos separado e optamos por Linux Samba, colocamos um Squid para gerenciar a internet. Hoje estamos vivendo melhor, sem travamento e sem dor de cabeça. Espero que minha informação tenha lhe dado alguma ideia. OZIEL LOPES FW 22c - Clipper 5.3b - Workshop 4.0

Colegas... Estou com uns probleminhas em alguns cadastros, descobri que o problema estava relacionado com o arquivo tipo memo. Mensagem: Clipper internal error ! GetCadastro(325)- Internal Error (1112) Já criei nova estrutura, mandei os registros e o problema continua exatametente no mesmo registro. Para encurtar a conversa, imprimi o cadastro, apaguei o registro e criei um novo. Será que não tem outra solução... Vejam abaixo: No programa principal ........... REQUEST DBFCDX RddSetDefault("DBFCDX") DbSetDriver("DBFCDX") Programa de Cadastro .... Select Cadastro Set Index to Cadastro Set Order to 1 DbGoTop() ............ @ 180.9,210.0 DBUTTON "Edita " FILE ".\BMP\DBSELEC.BMP" SIZE 40,20 GLIP POS 3 ; ACTION( GetCadastro(.F.), oBrw:Refresh() ) ; TOOLTIP OemToAnsi( "Modificar Cadastro Selecionado" ) ..... Function Getcadastro() ..... mContra = Cadastro->Contra // Area Memo onde acontece o erro .... OZIEL LOPES FW 22c - Clipper 5.3b - Workshop 4.0

Colegas... Estou com uns probleminhas em alguns cadastros, descobri que o problema estava relacionado com o arquivo tipo memo. Mensagem: Clipper internal error ! GetCadastro(325)- Internal Error (1112) Já criei nova estrutura, mandei os registros e o problema continua exatametente no mesmo registro. Para encurtar a conversa, imprimi o cadastro, apaguei o registro e criei um novo. Será que não tem outra solução... Vejam abaixo: No programa principal ........... REQUEST DBFCDX RddSetDefault("DBFCDX") DbSetDriver("DBFCDX") Programa de Cadastro .... Select Cadastro Set Index to Cadastro Set Order to 1 DbGoTop() ............ @ 180.9,210.0 DBUTTON "Edita " FILE ".\BMP\DBSELEC.BMP" SIZE 40,20 GLIP POS 3 ; ACTION( GetCadastro(.F.), oBrw:Refresh() ) ; TOOLTIP OemToAnsi( "Modificar Cadastro Selecionado" ) ..... Function Getcadastro() ..... mContra = Cadastro->Contra // Area Memo onde acontece o erro .... OZIEL LOPES FW 22c - Clipper 5.3b - Workshop 4.0

Infelizmente... escrevi infelismente... Felizmente alterei para. SetHandleCount(100) REQUEST DBFCDX RddSetDefaut("DBFCDX") dbSetDriver("DBFCDX") e funcionou. Tudo indica que eu tenha que ir para FWH o mais ráipdo possível para ver ser esses probleminhas não aparecem .... Obrigado. OZIEL LOPES FW 22c - Clipper 5.3b - Workshop 4.0

Obrigado. Fiz as alterações Mas invelismente erro continua... OZIEL LOPES FW 22c - Clipper 5.3b - Workshop 4.0

Fiz as alterações Deu esse erro. Mensagem: Blinker : 1115 : DBFCDX.LIB (SWUTIL3): ´__FCOMPP´ Unresolved exeternal. OZIEL LOPES FW 22c - Clipper 5.3b - Workshop 4.0

Colegas. Meu sistema roda desde 2005 em FW com Clipper 5.2e, linkeditado com Blinker 7.0 fiz umas mudanças colocando o prog. de indices no sistema e me deparei com um problema, quando indexo em um prog. utilizando o Clipper 5.2e os indices CDX ficam perfeitos, mais quando roda no clipper 5.3 o arq. de indices ficam zerados. Notei que o tamanho do arq cdx fica pequeno. Detalhe é que reindexando pelo Foxprox 2.6 ou ARC 32 os indices ficam ok. Vejam os fontes abaixo. // Arquivo LNK ------------------ BLINKER INCREMENTAL OFF BLINKER CLIPPER SYMBOL OFF BLINKER EXECUTABLE COMPRESS NOBELL PACKCODE PACKDATA DEFBEGIN name FiveWin description 'GRH 4.5 ' exetype Windows 3.1 code moveable discardable preload data preload moveable stacksize 9500 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 BEGIN AREA File GRH .... File Func .... File Mpar // para quem evitar bug no Blinker ENDAREA LIB C:\FW22C\LIB\FIVE LIB C:\FW22C\LIB\FIVEC LIB C:\FW22C\LIB\OBJECTS LIB C:\FW22C\LIB\WINAPI LIB C:\CLIP53\LIB\CLIPPER LIB C:\CLIP53\LIB\_DBFCDX,DBFCDX LIB C:\CLIP53\LIB\EXTEND LIB C:\CLIP53\LIB\TERMINAL LIB C:\CLIP53\LIB\Dbuttons //---------------------------------------------- // Arquivo Principal do programa -> GRH.PRG REQUEST _DBFCDX RddSetDefault("_DBFCDX") SetHandleCount( 200 ) //---- Arquivo de Funções Func.prg ---------------------------- #include "FiveWin.ch" #Include 'Inkey.Ch' PROCEDURE Reindexar LOCAL bAction bAction := { | oMeter, oText, oDlg, lEnd | Reorganiza( oMeter, oText, oDlg, @lEnd ) } If MsgYesNo(" Confirma a Reorganizacao ? "," Mensagem: ") = .T. Continue Else MsgRun(" Retornando ao Sistema... "," Mensagem ") Return Endif MsgMeter( bAction ,"Preparando...","Reorganização da base de dados" ) RETURN //------------------------------------------------------------------------- STATIC FUNCTION Reorganiza(oMeter,oText,oDlg,lEnd) DbCloseAll() oText:SetText(" Limpando arquivos de Indices... ") // Apagando Arquivos de Indices // para cria‡Æo de novos arquivos Erase ATENDE.CDX .... .... // Fim // Reoganizando o Arq de Atendimentos oText:SetText("Classificando Atendimentos... Arq ") Use ATENDE Alias ATENDE EXCLU oMeter:nTotal := ATENDE->( LastRec()*1 ) PACK INDEX ON NOME TAG ATENDEN TO ATENDE; EVAL {|| oMeter:Set(ATENDE->( Recno() ))} EVERY 5 //1 INDEX ON EMPRESA TAG ATENDEE TO ATENDE; EVAL {|| oMeter:Set(ATENDE->( Recno() ))} EVERY 5 //2 INDEX ON DTOS(DT_ADM)+NOME TAG ATENDED TO ATENDE; EVAL {|| oMeter:Set(ATENDE->( Recno() ))} EVERY 5 // 3 INDEX ON DTOS(NASC) TAG ATENDENS TO ATENDE; EVAL {|| oMeter:Set(ATENDE->( Recno() ))} EVERY 5 // 4 INDEX ON IDADE TAG ATENDEID TO ATENDE; EVAL {|| oMeter:Set(ATENDE->( Recno() ))} EVERY 5 // 5 INDEX ON DATA TAG ATENDEDT TO ATENDE; EVAL {|| oMeter:Set(ATENDE->( Recno() ))} EVERY 5 // 6 INDEX ON NUMCAM TAG ATENDECA TO ATENDE; EVAL {|| oMeter:Set(ATENDE->( Recno() ))} EVERY 5 // 7 INDEX ON DTOS(DTENTREGA)+SETOR TAG ATENDTEN TO ATENDE; EVAL {|| oMeter:Set(ATENDE->( Recno() ))} EVERY 5 // 8 INDEX ON DTOS(DTSUBST)+SETOR TAG ATENDTSU TO ATENDE; EVAL {|| oMeter:Set(ATENDE->( Recno() ))} EVERY 5 // 9 INDEX ON CODIGO TAG ATENDCOD TO ATENDE; EVAL {|| oMeter:Set(ATENDE->( Recno() ))} EVERY 5 // 10 INDEX ON DTOS(CONSULTA)+NOME TAG AT_CONS TO ATENDE; EVAL {|| oMeter:Set(ATENDE->( Recno() ))} EVERY 5 // 11 //----- Arquivo Auto53.bat -------------- @echo Off PATH C:\WINDOWS;C:\WINDOWS\SYSTEM32;C:\CLIP53;C:\CLIP53A\BIN;C:\PVSW\BIN;%PATH% SET INCLUDE=C:\CLIP53\INCLUDE SET LIB=C:\CLIP53\LIB SET OBJ=C:\CLIP53\OBJ SET PLL=C:\CLIP53\PLL SET TEMP=C:\WINDOWS\TEMP SET SWAP=C:\WINDOWS\TEMP SET CLIPPER=F141 //---------------------------------------- OZIEL LOPES FW 22c - Clipper 5.3b - Workshop 4.0

Colegas. Meu sistema roda desde 2005 em FW com Clipper 5.2e, linkeditado com Blinker 7.0 fiz umas mudanças colocando o prog. de indices no sistema e me deparei com um problema, quando indexo em um prog. utilizando o Clipper 5.2e os indices CDX ficam perfeitos, mais quando roda no clipper 5.3 o arq. de indices ficam zerados. Notei que o tamanho do arq cdx fica pequeno. Detalhe é que reindexando pelo Foxprox 2.6 ou ARC 32 os indices ficam ok. Vejam os fontes abaixo. // Arquivo LNK ------------------ BLINKER INCREMENTAL OFF BLINKER CLIPPER SYMBOL OFF BLINKER EXECUTABLE COMPRESS NOBELL PACKCODE PACKDATA DEFBEGIN name FiveWin description 'GRH 4.5 ' exetype Windows 3.1 code moveable discardable preload data preload moveable stacksize 9500 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 BEGIN AREA File GRH .... File Func .... File Mpar // para quem evitar bug no Blinker ENDAREA LIB C:\FW22C\LIB\FIVE LIB C:\FW22C\LIB\FIVEC LIB C:\FW22C\LIB\OBJECTS LIB C:\FW22C\LIB\WINAPI LIB C:\CLIP53\LIB\CLIPPER LIB C:\CLIP53\LIB\_DBFCDX,DBFCDX LIB C:\CLIP53\LIB\EXTEND LIB C:\CLIP53\LIB\TERMINAL LIB C:\CLIP53\LIB\Dbuttons //---------------------------------------------- // Arquivo Principal do programa -> GRH.PRG REQUEST _DBFCDX RddSetDefault("_DBFCDX") SetHandleCount( 200 ) //---- Arquivo de Funções Func.prg ---------------------------- #include "FiveWin.ch" #Include 'Inkey.Ch' PROCEDURE Reindexar LOCAL bAction bAction := { | oMeter, oText, oDlg, lEnd | Reorganiza( oMeter, oText, oDlg, @lEnd ) } If MsgYesNo(" Confirma a Reorganizacao ? "," Mensagem: ") = .T. Continue Else MsgRun(" Retornando ao Sistema... "," Mensagem ") Return Endif MsgMeter( bAction ,"Preparando...","Reorganização da base de dados" ) RETURN //------------------------------------------------------------------------- STATIC FUNCTION Reorganiza(oMeter,oText,oDlg,lEnd) DbCloseAll() oText:SetText(" Limpando arquivos de Indices... ") // Apagando Arquivos de Indices // para cria‡Æo de novos arquivos Erase ATENDE.CDX .... .... // Fim // Reoganizando o Arq de Atendimentos oText:SetText("Classificando Atendimentos... Arq ") Use ATENDE Alias ATENDE EXCLU oMeter:nTotal := ATENDE->( LastRec()*1 ) PACK INDEX ON NOME TAG ATENDEN TO ATENDE; EVAL {|| oMeter:Set(ATENDE->( Recno() ))} EVERY 5 //1 INDEX ON EMPRESA TAG ATENDEE TO ATENDE; EVAL {|| oMeter:Set(ATENDE->( Recno() ))} EVERY 5 //2 INDEX ON DTOS(DT_ADM)+NOME TAG ATENDED TO ATENDE; EVAL {|| oMeter:Set(ATENDE->( Recno() ))} EVERY 5 // 3 INDEX ON DTOS(NASC) TAG ATENDENS TO ATENDE; EVAL {|| oMeter:Set(ATENDE->( Recno() ))} EVERY 5 // 4 INDEX ON IDADE TAG ATENDEID TO ATENDE; EVAL {|| oMeter:Set(ATENDE->( Recno() ))} EVERY 5 // 5 INDEX ON DATA TAG ATENDEDT TO ATENDE; EVAL {|| oMeter:Set(ATENDE->( Recno() ))} EVERY 5 // 6 INDEX ON NUMCAM TAG ATENDECA TO ATENDE; EVAL {|| oMeter:Set(ATENDE->( Recno() ))} EVERY 5 // 7 INDEX ON DTOS(DTENTREGA)+SETOR TAG ATENDTEN TO ATENDE; EVAL {|| oMeter:Set(ATENDE->( Recno() ))} EVERY 5 // 8 INDEX ON DTOS(DTSUBST)+SETOR TAG ATENDTSU TO ATENDE; EVAL {|| oMeter:Set(ATENDE->( Recno() ))} EVERY 5 // 9 INDEX ON CODIGO TAG ATENDCOD TO ATENDE; EVAL {|| oMeter:Set(ATENDE->( Recno() ))} EVERY 5 // 10 INDEX ON DTOS(CONSULTA)+NOME TAG AT_CONS TO ATENDE; EVAL {|| oMeter:Set(ATENDE->( Recno() ))} EVERY 5 // 11 //----- Arquivo Auto53.bat -------------- @echo Off PATH C:\WINDOWS;C:\WINDOWS\SYSTEM32;C:\CLIP53;C:\CLIP53A\BIN;C:\PVSW\BIN;%PATH% SET INCLUDE=C:\CLIP53\INCLUDE SET LIB=C:\CLIP53\LIB SET OBJ=C:\CLIP53\OBJ SET PLL=C:\CLIP53\PLL SET TEMP=C:\WINDOWS\TEMP SET SWAP=C:\WINDOWS\TEMP SET CLIPPER=F141 //---------------------------------------- OZIEL LOPES FW 22c - Clipper 5.3b - Workshop 4.0

Não sei se é o caso. Olha o que fizemos. Meu prog. em FW funcionava em uma Rede Windows XP. a rede travava sempre, por prob de virus. Agora colocomos uma rede o Linux - Samba, colocamos um Squid para gerenciamento de internet e o Ubuntu 9.0 em um dos terminais. Tá tudo funcionando Legal... Máquinas com Linux e Windows XP SP3. Abraços. OZIEL LOPES FW 22c - Clipper 5.3b - Workshop 4.0

Baixei o Blinker 7.0.e executei, o prob não estava Blinker. Dscobri que o prob. estava na bateria que continuava a ler o path do Clipper52 e não do Clip53. Agora vou testar OrdScope() Mais uma vez Obrigao. OZIEL LOPES FW 22c - Clipper 5.3b - Workshop 4.0