FGSIST

Olá Renato eu trabalhei desenvolvendo sistemas pra UNIMED de Uberlândia por 8 anos tenho algo que controla pagamentos de equipe medica, material hospitalar, tabela da amb e etc O problema é que ainda está em dataflex uma parte já migrei pra clipper agora estou migrando pra harbour. Só que não sei se é o que voce está precisando. Me passa por email uma descrição do sistema que voce está precisando pra ver se posso te ajudar. Abraços Gilson E-mail: Fgsistem@yahoo.com.br MSN: fgsistem@hotmail.com Clipper 5.3 / Fw 2.6 / BLINKER 7.0 / WORKSHOP 4.5 / Fwh 2.6 / Harbour 0.45 / Bcc 5.6 / Ads 8.0 / PellesC /

Olá pessoal se alguém já passou pelo que estou passando e conseguiu resolver me ajude mesmo que não seja a mesma situação mas que possa me ajudar a manipular o setpage() e o sitsize() via programação eu ficarei muito grato. Abraços Gilson E-mail: Fgsistem@yahoo.com.br MSN: fgsistem@hotmail.com Clipper 5.3 / Fw 2.6 / BLINKER 7.0 / WORKSHOP 4.5 / Fwh 2.6 / Harbour 0.45 / Bcc 5.6 / Ads 8.0 / PellesC /

Olá pessoal tenho uma pequena dúvida também e gostaria de mais esclarecimento, eu estou desenvolvendo pra area de transporte e logistica terei que registrar o software? Me disseram que se o sistema gerar qualquer documento fiscal tipo nota fiscal, conhecimento de frete tem que ser registrado e o problema é que o mesmo sistema roda em dois estados e estou entrando em um terceiro estado e segundo as leis de cada estado terei que registrar o sistema. Minha principal dúvida é a seguinte isto procede? Se alguém souber de algo mais me informe obrigado. Abraços Gilson E-mail: Fgsistem@yahoo.com.br MSN: fgsistem@hotmail.com Clipper 5.3 / Fw 2.6 / BLINKER 7.0 / WORKSHOP 4.5 / Fwh 2.6 / Harbour 0.45 / Bcc 5.6 / Ads 8.0 / PellesC /

Olá Leonardo pra imprimir em formulario de nota fiscal quando a nota já estava pronta eu criei essa função pra avançar centimetros no posicionamento pra encaixar nos quadros da nota fiscal. Espero que ajude ************************************************ * COMANDO PULA USANDO ? E ?? * SEM PARAMETRO RESETA A IMPRESSORA * COM PARAMETRO - PULA O CENTIMETRO * EXEMPLO PULA(0.3) PULA 3 CENTIMETROS * EXEMPLO PULA(3) PULA 3 LINHAS ************************************************ FUNCTION PULA1() PARA VAR IF PCOUNT()=0 ?? CHR(27)+CHR(64) RETU "" ENDIF IF VAR>=1 ?? CHR(27)+CHR(51)+CHR(85) FOR X=1 TO INT(VAR) ? NEXT ENDIF ?? CHR(27)+CHR(51)+CHR( (VAR-INT(VAR) )*85) RETU "" Obs: é só substituir o ? por oPrn: Abraços Gilson E-mail: Fgsistem@yahoo.com.br MSN: fgsistem@hotmail.com Clipper 5.3 / Fw 2.6 / BLINKER 7.0 / WORKSHOP 4.5 / Fwh 2.6 / Harbour 0.45 / Bcc 5.6 / Ads 8.0 / PellesC /

Fala amigo kapiaba este ano estou programando pra ir a questão que tá pegando é o casamento de um amigo meu e a patroa tá querendo ir no casamento tô dividido. Abraços Gilson E-mail: Fgsistem@yahoo.com.br MSN: fgsistem@hotmail.com Clipper 5.3 / Fw 2.6 / BLINKER 7.0 / WORKSHOP 4.5 / Fwh 2.6 / Harbour 0.45 / Bcc 5.6 / Ads 8.0 / PellesC /

Grande Paulo Araujo é justamente isso que estava procurando, vou montar aqui um pequeno programa usando o seu modelo e testar qualquer coisa te chamo de novo. valeuuuuuuuu amigo Abraços Gilson E-mail: Fgsistem@yahoo.com.br MSN: fgsistem@hotmail.com Clipper 5.3 / Fw 2.6 / BLINKER 7.0 / WORKSHOP 4.5 / Fwh 2.6 / Harbour 0.45 / Bcc 5.6 / Ads 8.0 / PellesC /

Olá pessoal estou precisando de uma grande ajuda pra atualizar o executável do sistema na rede. Ou seja preciso de um sistema .exe de preferencia feito em five tipo ATUALIZA.EXE daí coloco o atualiza no HD do servidor dentro da pasta h:\Atualiza e no hd do servidor também coloco a pasta do meu sistema h:\SISESTOQ. Até aí tudo bem a questão é a seguinte quando eu crio um atalho em uma maquina da rede crio na maquina uma pasta c:\SISESTOQ com os arquivos basicos pra executar o sistema e ficar melhor o tráfego na rede sendo que o dados estão no h:\SISESTOQ. O que eu quero que o ATUALIZA.EXE faça é se estiver criando um atalho pela primeira vez em uma maquina o meu atalho deve chamar o ATUALIZA.EXE e o mesmo se encarrega de tudo, ou seja criar a pasta, com as opções basicas pra rodar o sistema. Agora quando eu atualizar o sistema do servidor o que o ATUALIZA.EXE deve fazer, checar se o SISESTOQ.EXE da pasta c:\SISESTOQ é mais antigo que o SISESTOQ.EXE da pasta h:\SISESTOQ se for copia automaticamente pra pasta o SISESTOQ.EXE do servidor pra maquina em questão. Se alguém puder me ajudar ficarei muito grato. Abraços Gilson E-mail: Fgsistem@yahoo.com.br MSN: fgsistem@hotmail.com Clipper 5.3 / Fw 2.6 / BLINKER 7.0 / WORKSHOP 4.5 / Fwh 2.6 / Harbour 0.45 / Bcc 5.6 / Ads 8.0 / PellesC / Editado por - fgsist on 17/10/2007 17:50:00

Olá pessoal estou precisando de uma grande ajuda pra atualizar o executável do sistema na rede. Ou seja preciso de um sistema .exe de preferencia feito em five tipo ATUALIZA.EXE daí coloco o atualiza no HD do servidor dentro da pasta h:\Atualiza e no hd do servidor também coloco a pasta do meu sistema h:\SISESTOQ. Até aí tudo bem a questão é a seguinte quando eu crio um atalho em uma maquina da rede crio na maquina uma pasta c:\SISESTOQ com os arquivos basicos pra executar o sistema e ficar melhor o tráfego na rede sendo que o dados estão no h:\SISESTOQ. O que eu quero que o ATUALIZA.EXE faça é se estiver criando um atalho pela primeira vez em uma maquina o meu atalho deve chamar o ATUALIZA.EXE e o mesmo se encarrega de tudo, ou seja criar a pasta, com as opções basicas pra rodar o sistema. Agora quando eu atualizar o sistema do servidor o que o ATUALIZA.EXE deve fazer, checar se o SISESTOQ.EXE da pasta c:\SISESTOQ é mais antigo que o SISESTOQ.EXE da pasta h:\SISESTOQ se for copia automaticamente pra pasta o SISESTOQ.EXE do servidor pra maquina em questão. Se alguém puder me ajudar ficarei muito grato. Abraços Gilson E-mail: Fgsistem@yahoo.com.br MSN: fgsistem@hotmail.com Clipper 5.3 / Fw 2.6 / BLINKER 7.0 / WORKSHOP 4.5 / Fwh 2.6 / Harbour 0.45 / Bcc 5.6 / Ads 8.0 / PellesC / Editado por - fgsist on 17/10/2007 17:50:00

Olá robson e pessoal que interessa por gerar arquivos txt de base de dados gerados pelo dataflex. Todo cliente que usa um sistema desenvolvido em dataflex recebe junto com o sistema uma copia do dataflex pra manutenção nas base de dados ou seja DFRUN - pra executar o sistem, DFQUERY - pra gerar filtros das base de dados nos formatos SDF OU DELIMITED, DFFILE - para manipulação de bancos de dados é onde se gera os arquivos dat,fld,def, etc... Na maquina do cliente tem uma pasta chamada df23b com certeza mas se não tiver do prompt do DOS execute DFQUERY que irá mostrar os arquivo pra voce gerar o txt. Se precisarem de ajuda com dataflex me chamem pelo msn ou por email. Abraços Gilson E-mail: Fgsistem@yahoo.com.br MSN: fgsistem@hotmail.com Clipper 5.3 / Fw 2.6 / BLINKER 7.0 / WORKSHOP 4.5 / Fwh 2.6 / Harbour 0.45 / Bcc 5.6 / Ads 8.0 / PellesC /

Valeu amigo Karinha desculpa a demora na resposta,mas já estou com o sistema de clube engatilhado, mais uma vez obrigado pela força. Abraços Gilson E-mail: Fgsistem@yahoo.com.br MSN: fgsistem@hotmail.com Clipper 5.3 / Fw 2.6 / BLINKER 7.0 / WORKSHOP 4.5 / Fwh 2.6 / Harbour 0.45 / Bcc 5.6 / Ads 8.0 / PellesC /

Fala aí amigo Karinha rapaz voce é um grande motivador pra mim principalmente no que diz respeito a desenvolver a questão é que estou muito apertado com um sistema de transportes que alias voce mesmo que me motivou a quebrar a cuca e desenvolver, mas já estou pegando umas ideias com amigos que conhecem da area e estamos trocando ideias logo estarei reportando aqui o resultado. valeuuuuuuuuu Abraços Gilson E-mail: Fgsistem@yahoo.com.br MSN: fgsistem@hotmail.com Clipper 5.3 / Fw 2.6 / BLINKER 7.0 / WORKSHOP 4.5 / Fwh 2.6 / Harbour 0.45 / Bcc 5.6 / Ads 8.0 / PellesC /

E aí pessoal ninguém sabe de algo sobre sistema para clube ou tem uma ideia de como funciona pra me ajudar. Abraços Gilson E-mail: Fgsistem@yahoo.com.br MSN: fgsistem@hotmail.com Clipper 5.3 / Fw 2.6 / BLINKER 7.0 / WORKSHOP 4.5 / Fwh 2.6 / Harbour 0.45 / Bcc 5.6 / Ads 8.0 / PellesC /

Caros colegas do forum alguém tem ou gostaria de trabalhar em parceria em um sistema para clube social, pousada etc... Obs. Preciso controlar associados, dependentes, carnes ou boletas de pagamento, cartão magnetico etc... Caso alguém tenha um sistema assim ou gostaria de trabalhar junto me adicione no msn ou me envie um email ou responda aqui no forum é urgente. Abraços Gilson E-mail: Fgsistem@yahoo.com.br MSN: fgsistem@hotmail.com Clipper 5.3 / Fw 2.6 / BLINKER 7.0 / WORKSHOP 4.5 / Fwh 2.6 / Harbour 0.45 / Bcc 5.6 / Ads 8.0 / PellesC /

Caros colegas do forum alguém tem ou gostaria de trabalhar em parceria em um sistema para clube social, pousada etc... Obs. Preciso controlar associados, dependentes, carnes ou boletas de pagamento, cartão magnetico etc... Caso alguém tenha um sistema assim ou gostaria de trabalhar junto me adicione no msn ou me envie um email ou responda aqui no forum é urgente. Abraços Gilson E-mail: Fgsistem@yahoo.com.br MSN: fgsistem@hotmail.com Clipper 5.3 / Fw 2.6 / BLINKER 7.0 / WORKSHOP 4.5 / Fwh 2.6 / Harbour 0.45 / Bcc 5.6 / Ads 8.0 / PellesC /

Valeu pessoal como disse o Paulo Araujo RESOLVIDO a questão do if e obrigado pelas outras dicas pessoal Abraços Gilson E-mail: Fgsistem@yahoo.com.br MSN: fgsistem@hotmail.com Clipper 5.3 / Fw 2.6 / BLINKER 7.0 / WORKSHOP 4.5 / Fwh 2.6 / Harbour 0.45 / Bcc 5.6 / Ads 8.0 / PellesC /

Valeu Evandro funcionou 100%, Agora estou esperando o contra ataque do Kapiaba Abraços Gilson E-mail: Fgsistem@yahoo.com.br MSN: fgsistem@hotmail.com Clipper 5.3 / Fw 2.6 / BLINKER 7.0 / WORKSHOP 4.5 / Fwh 2.6 / Harbour 0.45 / Bcc 5.6 / Ads 8.0 / PellesC /

Olá pessoal esta é muito boa já me deixou até tonto pra achar uma resposta mas como voces estão na disputa vai aí minha dúvida: Tenho um if(codigo=1,funcao1(),funcao2()) desta maneira funciona muito bem o que quero é o seguinte: IF(CODIGO=1,FUNCAO1() FUNCAO2(),FUNCAO3()) não sei se entenderam quero que se o if for true execute as duas funções primeiras, se for false executa a terceira função. Abraços Gilson E-mail: Fgsistem@yahoo.com.br MSN: fgsistem@hotmail.com Clipper 5.3 / Fw 2.6 / BLINKER 7.0 / WORKSHOP 4.5 / Fwh 2.6 / Harbour 0.45 / Bcc 5.6 / Ads 8.0 / PellesC /

Olá pessoal esta é muito boa já me deixou até tonto pra achar uma resposta mas como voces estão na disputa vai aí minha dúvida: Tenho um if(codigo=1,funcao1(),funcao2()) desta maneira funciona muito bem o que quero é o seguinte: IF(CODIGO=1,FUNCAO1() FUNCAO2(),FUNCAO3()) não sei se entenderam quero que se o if for true execute as duas funções primeiras, se for false executa a terceira função. Abraços Gilson E-mail: Fgsistem@yahoo.com.br MSN: fgsistem@hotmail.com Clipper 5.3 / Fw 2.6 / BLINKER 7.0 / WORKSHOP 4.5 / Fwh 2.6 / Harbour 0.45 / Bcc 5.6 / Ads 8.0 / PellesC /

Olá pessoal do forum alguém sabe do Alexandre Zilves do Rio de Janeiro ele sumiu, alguém sabe se está tudo bem com ele? Ele estava migrande os sistemas dele tava tendo dificuldades e depois simplemente sumiu. Tá sempre off no MSN e no SKYPE e não tenho visto mais ele aqui no forum. Se alguém tiver noticias dele de um alô pra gente. Um abraço a todos. Abraços Gilson E-mail: Fgsistem@yahoo.com.br MSN: fgsistem@hotmail.com Clipper 5.3 / Fw 2.6 / BLINKER 7.0 / WORKSHOP 4.5 / Fwh 2.6 / Harbour 0.45 / Bcc 5.6 / Ads 8.0 / PellesC /

Olá pessoal do forum alguém sabe do Alexandre Zilves do Rio de Janeiro ele sumiu, alguém sabe se está tudo bem com ele? Ele estava migrande os sistemas dele tava tendo dificuldades e depois simplemente sumiu. Tá sempre off no MSN e no SKYPE e não tenho visto mais ele aqui no forum. Se alguém tiver noticias dele de um alô pra gente. Um abraço a todos. Abraços Gilson E-mail: Fgsistem@yahoo.com.br MSN: fgsistem@hotmail.com Clipper 5.3 / Fw 2.6 / BLINKER 7.0 / WORKSHOP 4.5 / Fwh 2.6 / Harbour 0.45 / Bcc 5.6 / Ads 8.0 / PellesC /

Olá Pessoal estou precisando da ajuda dos amigos pra resolver um problema que está me esquentando a cabeça. Conforme o exemplo abaixo tenho um relatorio de acerto com motoristas onde o indice é NOME+DATA DE LANCAMENTO onde pego os dados do relatorio no arquivo MOVACEMO todos os dados estão no arquivo só que quando peço pra listar as informações pega errado. Preciso também imprimir somente os dados de uma filial que informo na tela de solicitação do relatorio mas o relatorio não funciona onde será que está o erro? Fico no aguardo IF lImp PRINTER oPrn PREVIEW NAME "Visualizando Relatorio de Acertos com Motoristas" ELSE PRINTER oPrn NAME "Imprimindo Relatorio de Acertos com Motoristas" ENDIF oPrn:lPrvModal:=.T. //oPrn:Setlandscape() //imprime na horizontal oPrn:SetPortrait() //imprime na vertical oPrn:SetPage( 9 ) // -> A4 = 210mm x 297mm oPrn:SetSize(2100,2970) // -> For‡a tamanho A4 = 210mm x 297mm DEFINE FONT oFnt1 NAME "Courier New" SIZE 0, -10 BOLD OF oPrn DEFINE FONT oFnt2 NAME "Courier New" SIZE 0, -08 BOLD OF oPrn DEFINE PEN oPen COLOR CLR_BLACK WIDTH 5 If FILE(M->oPath+"\Logemp.BMP") cLogo:=M->oPath+"\Logemp.bmp" Else cLogo:=M->oPath+"\Logo.bmp" Endif cEmp :=Alltrim(t_Empresa) cRod1:=Alltrim("FG-SISTEMAS GERENCIAIS") cRod2:=Alltrim("FGFROTAS - MODULO DE FROTAS") cRod3:=Alltrim("Email: fgsistem@yahoo.com.br") cRod4:=Alltrim("Msn: fgsistem@hotmail.com") cRod5:=Alltrim("Telefone: 34-9973-1349") Col :=oPrn:nlogpixelx()/2.54 Lin :=oPrn:nlogpixely()/2.54 PAGE nLin:= 3 If oCheck1 nTVcred:=0 nTVDebi:=0 nTVsald:=0 nTIten :=0 Do While (!Eof()) nVcred := 0 nVdebi := 0 nVsald := 0 nIten := 0 nGrup := 0 If cCpfMot != Space(11) cCpfMoto := cCpfMot Else cCpfMoto := CpfMoto Endif Do while (CpfMoto = cCpfMoto .and. Data>=cDatai .and. Data<=cdataf .and. !EOF()) //--- Cabecalho // If nLin=3 oPrn:Box(00.50*Lin,00.50*Col,02.95*Lin,19.80*Col) oPrn:SayBitmap(00.65*Col,00.70*Lin,cLogo,04.30*Col,02.30*Lin) oPrn:Say(00.75*Lin,02.60*Col, PrnCentra(t_empresa, Space(70)),oFnt1) oPrn:Say(00.75*Lin,15.00*Col,"Emissão: "+cf(Date()),oFnt1,,,2) oPrn:Say(01.30*Lin,02.60*Col, PrnCentra(t_endereco, Space(70)), oFnt1 ) oPrn:Say(01.30*Lin,15.00*Col,"Página(s): "+TRAN(oPrn:nPage,"9999"),oFnt1,,,2) oPrn:Say(01.85*Lin,02.60*Col, PrnCentra(t_cidade, Space(70)), oFnt1 ) oPrn:Say(01.85*Lin,15.00*Col,"Hora: "+Time(),oFnt1,,,2) oPrn:Say(02.40*Lin,02.60*Col, PrnCentra(t_telefone, Space(70)), oFnt1 ) oPrn:Say(02.40*Lin,15.00*Col,"Usuario: "+t_codusuario,oFnt1,,,2) If oRadio1=1 oPrn:Say(03.00*Lin,02.60*Col, PrnCentra("RELATORIO DE ACERTO DE TODOS MOTORISTAS DA FILIAL - "+cFilial, Space(70)), oFnt1 ) Endif If oRadio1=2 oPrn:Say(03.00*Lin,02.60*Col, PrnCentra("RELATORIO DE ACERTO DE UM MOTORISTA DA FILIAL - "+cFilial, Space(70)), oFnt1 ) Endif oPrn:Line(03.40*Lin,00.50*Col,03.40*Lin,19.80*Col,,,oPen) oPrn:Say(03.50*Lin,02.60*Col, PrnCentra("PERIODO: "+DTOC(cDatai)+" A "+DTOC(cDataf), Space(70)), oFnt1) oPrn:Line(03.90*Lin,00.50*Col,03.90*Lin,19.80*Col,,,oPen) oPrn:Say(04.00*Lin,00.50*col, " MOTORISTA NOME DO MOTORISTA FUNCAO FILIAL CREDITO DEBITO SALDO", oFnt2) oPrn:Line(04.40*Lin,00.50*Col,04.40*Lin,19.80*Col,,,oPen) nLin:=04.45 Endif //--- Corpo do relatorio // If (Cpfmoto = cCpfmoto .and. filial = cfilial) nVsald+=(VRCREDI - VRDEBIT) nVcred+=vrcredi nVdebi+=vrdebit ++nIten Endif If nLin>=25 oPrn:Box(26.15*Lin,00.50*Col,26.70*Lin,19.80*Col,,,oPen) //box rodape oPrn:Say(26.25*Lin,01.50*Col,PrnCentra(cRod1+" - "+cRod2+" - "+cRod3, Space(100)),oFnt2) nGrup:=1 nLin:=3 oPrn:EndPage() oPrn:StartPage() Endif If nCont=100 nCont:=0 Endif oMtr:Set(nCont++) sysrefresh() skip Enddo If (nIten>0 .and. filial = cfilial) If cpfmoto!=space(11) oPrn:Say(nLin*Lin,00.75*Col, Trans(CpfMoto,"@R 999.999.999-99"), oFnt2) oPrn:Say(nLin*Lin,03.35*Col, Trans(Nommoto,"@!"), oFnt2) oPrn:Say(nLin*Lin,10.15*Col, Tipmoto, oFnt2) oPrn:Say(nLin*Lin,12.80*Col, Filial, oFnt2) oPrn:Say(nLin*Lin,13.80*Col, TRANS(NVCRED,"@R 9,999.99"), oFnt2) oPrn:Say(nLin*Lin,15.90*Col, TRANS(NVDEBI,"@R 9,999.99"), oFnt2) oPrn:Say(nLin*Lin,18.05*Col, TRANS(NVSALD,"@R 99,999.99"), oFnt2) nTVcred+= nVcred nTVdebi+= nVdebi nTVsald+= nVsald ++nTiten ++nIten nLin+=00.30 Endif Endif If cCpfMot = cCpfMoto Skip Endif Enddo If ((nLin<=25 .or. nLin>=25) .and. nTIten>0) nLin:=nLin+0.50 oPrn:Say(nLin*Lin,00.90*Col, "TOTAL DE FUNCIONARIOS=> ", oFnt2) oPrn:Say(nLin*Lin,05.40*Col, Trans(nTiten,"@R 9999"), oFnt2) oPrn:Say(nLin*Lin,08.00*Col, "TOTAL GERAL VALORES=> ", oFnt2) oPrn:Say(nLin*Lin,13.50*Col, TRANS(NTVCRED,"@R 999,999.99"), oFnt2) oPrn:Say(nLin*Lin,15.60*Col, TRANS(NTVDEBI,"@R 999,999.99"), oFnt2) oPrn:Say(nLin*Lin,17.80*Col, TRANS(NTVSALD,"@R 999,999.99"), oFnt2) oPrn:Box(26.15*Lin,00.50*Col,26.70*Lin,19.80*Col,,,oPen) //box rodape oPrn:Say(26.25*Lin,01.50*Col,PrnCentra(cRod1+" - "+cRod2+" - "+cRod3, Space(100)),oFnt2) Endif Abraços Gilson E-mail: Fgsistem@yahoo.com.br MSN: fgsistem@hotmail.com Clipper 5.3 / Fw 2.6 / BLINKER 7.0 / WORKSHOP 4.5 / Fwh 2.6 / Harbour 0.45 / Bcc 5.6 / Ads 8.0 / PellesC /

Olá Pessoal estou precisando da ajuda dos amigos pra resolver um problema que está me esquentando a cabeça. Conforme o exemplo abaixo tenho um relatorio de acerto com motoristas onde o indice é NOME+DATA DE LANCAMENTO onde pego os dados do relatorio no arquivo MOVACEMO todos os dados estão no arquivo só que quando peço pra listar as informações pega errado. Preciso também imprimir somente os dados de uma filial que informo na tela de solicitação do relatorio mas o relatorio não funciona onde será que está o erro? Fico no aguardo IF lImp PRINTER oPrn PREVIEW NAME "Visualizando Relatorio de Acertos com Motoristas" ELSE PRINTER oPrn NAME "Imprimindo Relatorio de Acertos com Motoristas" ENDIF oPrn:lPrvModal:=.T. //oPrn:Setlandscape() //imprime na horizontal oPrn:SetPortrait() //imprime na vertical oPrn:SetPage( 9 ) // -> A4 = 210mm x 297mm oPrn:SetSize(2100,2970) // -> For‡a tamanho A4 = 210mm x 297mm DEFINE FONT oFnt1 NAME "Courier New" SIZE 0, -10 BOLD OF oPrn DEFINE FONT oFnt2 NAME "Courier New" SIZE 0, -08 BOLD OF oPrn DEFINE PEN oPen COLOR CLR_BLACK WIDTH 5 If FILE(M->oPath+"\Logemp.BMP") cLogo:=M->oPath+"\Logemp.bmp" Else cLogo:=M->oPath+"\Logo.bmp" Endif cEmp :=Alltrim(t_Empresa) cRod1:=Alltrim("FG-SISTEMAS GERENCIAIS") cRod2:=Alltrim("FGFROTAS - MODULO DE FROTAS") cRod3:=Alltrim("Email: fgsistem@yahoo.com.br") cRod4:=Alltrim("Msn: fgsistem@hotmail.com") cRod5:=Alltrim("Telefone: 34-9973-1349") Col :=oPrn:nlogpixelx()/2.54 Lin :=oPrn:nlogpixely()/2.54 PAGE nLin:= 3 If oCheck1 nTVcred:=0 nTVDebi:=0 nTVsald:=0 nTIten :=0 Do While (!Eof()) nVcred := 0 nVdebi := 0 nVsald := 0 nIten := 0 nGrup := 0 If cCpfMot != Space(11) cCpfMoto := cCpfMot Else cCpfMoto := CpfMoto Endif Do while (CpfMoto = cCpfMoto .and. Data>=cDatai .and. Data<=cdataf .and. !EOF()) //--- Cabecalho // If nLin=3 oPrn:Box(00.50*Lin,00.50*Col,02.95*Lin,19.80*Col) oPrn:SayBitmap(00.65*Col,00.70*Lin,cLogo,04.30*Col,02.30*Lin) oPrn:Say(00.75*Lin,02.60*Col, PrnCentra(t_empresa, Space(70)),oFnt1) oPrn:Say(00.75*Lin,15.00*Col,"Emissão: "+cf(Date()),oFnt1,,,2) oPrn:Say(01.30*Lin,02.60*Col, PrnCentra(t_endereco, Space(70)), oFnt1 ) oPrn:Say(01.30*Lin,15.00*Col,"Página(s): "+TRAN(oPrn:nPage,"9999"),oFnt1,,,2) oPrn:Say(01.85*Lin,02.60*Col, PrnCentra(t_cidade, Space(70)), oFnt1 ) oPrn:Say(01.85*Lin,15.00*Col,"Hora: "+Time(),oFnt1,,,2) oPrn:Say(02.40*Lin,02.60*Col, PrnCentra(t_telefone, Space(70)), oFnt1 ) oPrn:Say(02.40*Lin,15.00*Col,"Usuario: "+t_codusuario,oFnt1,,,2) If oRadio1=1 oPrn:Say(03.00*Lin,02.60*Col, PrnCentra("RELATORIO DE ACERTO DE TODOS MOTORISTAS DA FILIAL - "+cFilial, Space(70)), oFnt1 ) Endif If oRadio1=2 oPrn:Say(03.00*Lin,02.60*Col, PrnCentra("RELATORIO DE ACERTO DE UM MOTORISTA DA FILIAL - "+cFilial, Space(70)), oFnt1 ) Endif oPrn:Line(03.40*Lin,00.50*Col,03.40*Lin,19.80*Col,,,oPen) oPrn:Say(03.50*Lin,02.60*Col, PrnCentra("PERIODO: "+DTOC(cDatai)+" A "+DTOC(cDataf), Space(70)), oFnt1) oPrn:Line(03.90*Lin,00.50*Col,03.90*Lin,19.80*Col,,,oPen) oPrn:Say(04.00*Lin,00.50*col, " MOTORISTA NOME DO MOTORISTA FUNCAO FILIAL CREDITO DEBITO SALDO", oFnt2) oPrn:Line(04.40*Lin,00.50*Col,04.40*Lin,19.80*Col,,,oPen) nLin:=04.45 Endif //--- Corpo do relatorio // If (Cpfmoto = cCpfmoto .and. filial = cfilial) nVsald+=(VRCREDI - VRDEBIT) nVcred+=vrcredi nVdebi+=vrdebit ++nIten Endif If nLin>=25 oPrn:Box(26.15*Lin,00.50*Col,26.70*Lin,19.80*Col,,,oPen) //box rodape oPrn:Say(26.25*Lin,01.50*Col,PrnCentra(cRod1+" - "+cRod2+" - "+cRod3, Space(100)),oFnt2) nGrup:=1 nLin:=3 oPrn:EndPage() oPrn:StartPage() Endif If nCont=100 nCont:=0 Endif oMtr:Set(nCont++) sysrefresh() skip Enddo If (nIten>0 .and. filial = cfilial) If cpfmoto!=space(11) oPrn:Say(nLin*Lin,00.75*Col, Trans(CpfMoto,"@R 999.999.999-99"), oFnt2) oPrn:Say(nLin*Lin,03.35*Col, Trans(Nommoto,"@!"), oFnt2) oPrn:Say(nLin*Lin,10.15*Col, Tipmoto, oFnt2) oPrn:Say(nLin*Lin,12.80*Col, Filial, oFnt2) oPrn:Say(nLin*Lin,13.80*Col, TRANS(NVCRED,"@R 9,999.99"), oFnt2) oPrn:Say(nLin*Lin,15.90*Col, TRANS(NVDEBI,"@R 9,999.99"), oFnt2) oPrn:Say(nLin*Lin,18.05*Col, TRANS(NVSALD,"@R 99,999.99"), oFnt2) nTVcred+= nVcred nTVdebi+= nVdebi nTVsald+= nVsald ++nTiten ++nIten nLin+=00.30 Endif Endif If cCpfMot = cCpfMoto Skip Endif Enddo If ((nLin<=25 .or. nLin>=25) .and. nTIten>0) nLin:=nLin+0.50 oPrn:Say(nLin*Lin,00.90*Col, "TOTAL DE FUNCIONARIOS=> ", oFnt2) oPrn:Say(nLin*Lin,05.40*Col, Trans(nTiten,"@R 9999"), oFnt2) oPrn:Say(nLin*Lin,08.00*Col, "TOTAL GERAL VALORES=> ", oFnt2) oPrn:Say(nLin*Lin,13.50*Col, TRANS(NTVCRED,"@R 999,999.99"), oFnt2) oPrn:Say(nLin*Lin,15.60*Col, TRANS(NTVDEBI,"@R 999,999.99"), oFnt2) oPrn:Say(nLin*Lin,17.80*Col, TRANS(NTVSALD,"@R 999,999.99"), oFnt2) oPrn:Box(26.15*Lin,00.50*Col,26.70*Lin,19.80*Col,,,oPen) //box rodape oPrn:Say(26.25*Lin,01.50*Col,PrnCentra(cRod1+" - "+cRod2+" - "+cRod3, Space(100)),oFnt2) Endif Abraços Gilson E-mail: Fgsistem@yahoo.com.br MSN: fgsistem@hotmail.com Clipper 5.3 / Fw 2.6 / BLINKER 7.0 / WORKSHOP 4.5 / Fwh 2.6 / Harbour 0.45 / Bcc 5.6 / Ads 8.0 / PellesC /

Grande Kapiaba obrigado pela resposta, vou verificar cada uma das sugestões, quanto a mudar de versão do five, vou esperar mais um pouco estou fechando com um cliente novo aí vai sobrar grana pra mudar de versão. Abraços Gilson E-mail: Fgsistem@yahoo.com.br MSN: fgsistem@hotmail.com Clipper 5.3 / Fw 2.6 / BLINKER 7.0 / WORKSHOP 4.5 / Fwh 2.6 / Harbour 0.45 / Bcc 5.6 / Ads 8.0 / PellesC /

Olá Kapiaba estou com um problema semelhante a questão é a seguinte nas minhas dialogs eu uso brush só que nos objetos checkbox e radiobox o brush não cobre o fundo, já nos objetos textos assume a cor do brush o que será isso? Tem como resolver? Fico no aguardo Abraços Gilson E-mail: Fgsistem@yahoo.com.br MSN: fgsistem@hotmail.com Clipper 5.3 / Fw 2.6 / BLINKER 7.0 / WORKSHOP 4.5 / Fwh 2.6 / Harbour 0.45 / Bcc 5.6 / Ads 8.0 / PellesC /

Olá se alguém tiver mais alguma ideia ficarei muito grato. Abraços Gilson E-mail: Fgsistem@yahoo.com.br MSN: fgsistem@hotmail.com Clipper 5.3 / Fw 2.6 / BLINKER 7.0 / WORKSHOP 4.5 / Fwh 2.6 / Harbour 0.45 / Bcc 5.6 / Ads 8.0 / PellesC /