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