FGSIST

Olá Pessoal gostei da idéia.

Gilson 43 anos Uberlândia-Mg atualmente em Capinópolis e Ituiutaba-Mg.

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á Gilmer gostaria de saber se a lib da Cte já está pronta qual o preço e condições de pagamento.

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á Gilmer gostaria de saber se a lib da Cte já está pronta qual o preço e condições de pagamento.

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 Luis, to pegando as manhas.

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 Samir.

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á, amigos estou precisando de uma ajuda, pra resolver um grande problema, tenho uma função que faço um filtro no banco de dados e depois seleciono as informações e gero um relatorio. Essa função é pro cliente fazer pesquisas rapidas, no momento estou gerando o relatorio via REPORT e TPRINTER agora quero saber se alguém pode me ajudar a gerar um relatorio via programação e executar no FASTREPORT.

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á, amigos estou precisando de uma ajuda, pra resolver um grande problema, tenho uma função que faço um filtro no banco de dados e depois seleciono as informações e gero um relatorio. Essa função é pro cliente fazer pesquisas rapidas, no momento estou gerando o relatorio via REPORT e TPRINTER agora quero saber se alguém pode me ajudar a gerar um relatorio via programação e executar no FASTREPORT.

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á Samir estamos precisando de um sistema que controle alunos, professores, controle de exercicios, tabela imc, etc se possivel me manda uma copia de demonstraçã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á amigos do forum estou precisando de um sistema pra controle de academia. Alguém tem?

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á amigos do forum estou precisando de um sistema pra controle de academia. Alguém tem?

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á Marsan eu faço assim e funciona perfeitamente.

#include "Fivewin.ch"

#include "Directry.ch"

//-----------------------------------------------------------------------------------------\\

Function Main(mUnid)

PRIV WDATA1 :=CTOD(" / / ")

PRIV WTIME1 :=""

PRIV WDATA2 :=CTOD(" / / ")

PRIV WTIME2 :=""

PRIV CORIGEM :=""

PRIV CDESTINO:=""

IF mUnid=nil

QUIT

ENDIF

IF !lIsDir( "C:\FGTRANSP\" )

LMKDIR( "C:\FGTRANSP\" )

vArq:=Directory(mUnid+":\FGTRANSP\*.*")

For X:=1 to Len(vArq)

cOrigem :=mUnid+":\FGTRANSP\"+vArq[X,1]

cDestino:="C:\FGTRANSP\"+vArq[X,1]

Copy File &cOrigem To &cDestino

NEXT

ELSE

IF FILE("C:\FGTRANSP\GERENT.EXE") // exe na máquina local

aDirectory:=DIRECTORY(mUnid+":\FGTRANSP\GERENT.EXE") // exe no servidor

AEVAL(aDirectory, { |aFile| QOUT(aFile[F_DATE]),wdata1:=aFile[F_DATE] })

AEVAL(aDirectory, { |aFile| QOUT(aFile[F_TIME]),wtime1:=aFile[F_TIME] })

aDirectory2:=DIRECTORY("C:\FGTRANSP\GERENT.EXE")

AEVAL(aDirectory2, { |aFile| QOUT(aFile[F_DATE]),wdata2:=aFile[F_DATE] })

AEVAL(aDirectory2, { |aFile| QOUT(aFile[F_TIME]),wtime2:=aFile[F_TIME] })

IF WDATA1>WDATA2 .OR. ;

( WDATA1=WDATA2 .AND. ;

VAL(SUBS(WTIME1,1,2)+SUBS(WTIME1,4,2)+SUBS(WTIME1,7,2)) >;

VAL(SUBS(WTIME2,1,2)+SUBS(WTIME2,4,2)+SUBS(WTIME2,7,2)) )

cOrigem :=mUnid+":\FGTRANSP\GERENT.EXE"

cDestino:="C:\FGTRANSP\GERENT.EXE"

Delete File &cDestino

Copy File &cOrigem To &cDestino

ENDIF

ELSE

cOrigem :=mUnid+":\FGTRANSP\GERENT.EXE"

cDestino:="C:\FGTRANSP\GERENT.EXE"

Copy File &cOrigem To &cDestino

ENDIF

ENDIF

WinExec( "GERENT.EXE "+mUnid )

Return nil

//--------------------------------------------------------------------------\\

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á Servulo, eu tenho me add no msn pra gente poder falar melhor ou me manda um email. 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á Gilmer manda os valores pra nós também e manda também os valores da lib da ct-e.

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á Flávio eu tenho algo mas não está 100% preciso saber mais sobre o sistema de assistencia medica que voce trabalha, o que tem ele pra eu te passar uma cópia do que tenho aqui.

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á S.A.OLIVEIRA manda pra mim também o fr3 de impressão de boletos.

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á mmatos566 estou desenvolvendo mas talvez a gente possa trocar informações e ajudar um ao outro. Me add no msn ou skype. 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á Kapiaba eu tenho interesse em ver o protótipo tem como me mandar um demo do mesmo? 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á Willian, vou mudar a resolução então na hora de criar as telas vou manter a resolução 800x600 e logo reporto o resultado, valeu amigo quero continuar a incentiva-lo a continuar partilhar suas conquistas, como é o caso de grandes feras aqui do forum que tem feito o mesmo. Valeuuuuuuuuuuuuuuuuu

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á Willian sucesso garantido amigo, só que me deparei com uma questão aqui, ou seja minha buttonbar tem 15 botões tamanho 75 x 65 quando rodo o sistema em uma resolução 1280x800 fica redondinho, já se mudo a resolução pra 800x600 na tela só se redimensiona a window já a buttonbar e os botões não e neste caso não mostra os 15 botões apenas 10 e a metade do 11. Voce pode me dar uma idéia do que pode ser ou se estou utilizando a função de maneira errada?

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á Willian tá ficando muito bom mesmo, fora o ajuste na buttonbar que estou aguardando, testei na listbox e não deu certo não, ou seja os headers e fields da listbox não acompanham a resoluçã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 /

Valeu Willian fico no aguardo, no mais estou satisfeito com esta função só tá faltando mesmo é a parte da buttonbar, fora isso como já disse show de bola.

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 /

Alguém testou o problema com a buttonbar como eu postei acima? 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á Willian, ficou show de bola o problema é que não consegui fazer a resolução acompanhar a buttonbar ou seja em uma resolução 1280x800 eu tenho 15 botões na buttonbar fica legal mas se mudo a resolução pra 800x600 só me mostra 10 botões na buttonbar, tem como resolver isso? No mais voce se superou amigo parabéns.

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 /

É isso mesmo Jõao bosco funciona também sem informar a altura e a largura. Eta fivewin porreta de bão sô

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 Washington é isso mesmo ficou certinho certinho valeuuuuuuuuuuuuu

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 /