Jump to content
Fivewin Brasil

FGSIST

Membros
  • Posts

    581
  • Joined

  • Last visited

FGSIST's Achievements

Newbie

Newbie (1/14)

0

Reputation

  1. 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 /
  2. 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 /
  3. 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 /
  4. 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 /
  5. 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 /
  6. 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 /
  7. 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 /
  8. 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 /
  9. 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 /
  10. 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 /
  11. 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 /
  12. 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 /
  13. 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 /
  14. 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 /
  15. 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 /
×
×
  • Create New...