FGSIST

Olá pessoal estou com uma pequena dificuldade em resolver este problema. Meu cliente quer imprimir a imagem do tamanho exato. Ou seja tenho a imagem que é: 17,5cm de Altura 21,5cm de Largura estou usando assim e não funciona: oPrnSayBitmap(1,1,cimage,17.5,21.5) Alguém sabe como resolver este problema? 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á pessoal estou com uma pequena dificuldade em resolver este problema. Meu cliente quer imprimir a imagem do tamanho exato. Ou seja tenho a imagem que é: 17,5cm de Altura 21,5cm de Largura estou usando assim e não funciona: oPrnSayBitmap(1,1,cimage,17.5,21.5) Alguém sabe como resolver este problema? 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, valeu amigo pela dica, era o que estava faltando pra implementar minha função. Com a ajuda de todos consegui terminar minha função e ficou muito boa,valeuuuuuuuuuuuuuuuuuuuuuuuuu 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 pelas dicas consegui juntando as idéias de voces agora estou testando na prática e até agora tá indo bem. Qualquer erro dou um grito por socorro. rsrsrs 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á Giba realmente a forma que o Voce o Luiz e o personal me passaram é isso mesmo que estou precisando a questão é que na hora de montar a rotina não estou conseguindo fazer do jeito que funcione. Mas to na luta qualquer coisa chamo voces. 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 /

Obrigado pela resposta Luiz Arruda e Sergio(personal) minha dificuldade é a lógica de programação tem como voce postarem uma idéia na prática? ou seja um exemplo de codigo fonte. 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 /

Caros colegas do forum estou com um pequeno problema e gostaria da ajuda dos amigos. 1-tenho um arquivo de parametros onde fica gravado os numeros de notas fiscais, etc... 2-como os forumulários são contínuos a matriz fica com as notas fiscais de 0000001 a 4000000 e manda pra uma filial do 4000001 a 6000000 e outra filial com 6000001 a 8000000. 3-tanto na matriz quanto nas filiais tenho mais de 2 operadores digitando as notas fiscais. no meu controle de parametros eu gravo na hora que o operador vai digitar a nota o numero sequencial (numero anterior+1) até aí tudo bem.o problema é que quando o operador começa uma nota e para no meio do caminho e sai da tela de digitação sem gravar eu tenho que ir no controle de parametros e excluir o numero só que o outro operador já está com um outro numero aberto e se eu voltar um numero por causa do primeiro operador o controle de paramentro perde a sequencia e salva o numero da nota errado. Alguém pode me ajudar a resolver isso? 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 /

Caros colegas do forum estou com um pequeno problema e gostaria da ajuda dos amigos. 1-tenho um arquivo de parametros onde fica gravado os numeros de notas fiscais, etc... 2-como os forumulários são contínuos a matriz fica com as notas fiscais de 0000001 a 4000000 e manda pra uma filial do 4000001 a 6000000 e outra filial com 6000001 a 8000000. 3-tanto na matriz quanto nas filiais tenho mais de 2 operadores digitando as notas fiscais. no meu controle de parametros eu gravo na hora que o operador vai digitar a nota o numero sequencial (numero anterior+1) até aí tudo bem.o problema é que quando o operador começa uma nota e para no meio do caminho e sai da tela de digitação sem gravar eu tenho que ir no controle de parametros e excluir o numero só que o outro operador já está com um outro numero aberto e se eu voltar um numero por causa do primeiro operador o controle de paramentro perde a sequencia e salva o numero da nota errado. Alguém pode me ajudar a resolver isso? 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 /

Grande amigo Lailton valeu resolvido a questã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 /

Caros amigos do forum estou precisando com urgencia de ao clicar um botão da barra de botões o sistema chame um site e me mostre ele dentro da windows principal do meu sistema tem como? 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/03/2009 15:54:26

Caros amigos do forum estou precisando com urgencia de ao clicar um botão da barra de botões o sistema chame um site e me mostre ele dentro da windows principal do meu sistema tem como? 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/03/2009 15:54:26

Olá marcelo eu baixei e testei de boa, voce tem que salvar tudo na pasta c:\siscom, espero ter ajudado 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 Ale era isso mesmo que eu estava procurando. 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 folder com 6 dialogs ou abas pra mostrar informações, a questão é a seguinte na primeira aba mostro algumas informações do cliente e fornecedor tais como "codigo e nome" e mais abaixo mostro os pedidos entre os dois o problema é o seguinte pro patrão ver endereço, bairro e cidade etc tem que ver na segunda aba, terceira e assim por diante. Só que o patrão quer ver as informaçõe do cliente e fornecedor na primeira aba só que não tem espaço na primeira dialog do folder, tem como eu montar uma barra de rolagem pra mostrar os outros GETS? Em cima mostraria CODIGO E NOME aí pressionando a barra pra baixo mostra o endereço, bairro, cidade etc.. 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á pessoal tenho uma folder com 6 dialogs ou abas pra mostrar informações, a questão é a seguinte na primeira aba mostro algumas informações do cliente e fornecedor tais como "codigo e nome" e mais abaixo mostro os pedidos entre os dois o problema é o seguinte pro patrão ver endereço, bairro e cidade etc tem que ver na segunda aba, terceira e assim por diante. Só que o patrão quer ver as informaçõe do cliente e fornecedor na primeira aba só que não tem espaço na primeira dialog do folder, tem como eu montar uma barra de rolagem pra mostrar os outros GETS? Em cima mostraria CODIGO E NOME aí pressionando a barra pra baixo mostra o endereço, bairro, cidade etc.. 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 /

Valeu pessoal resolvi usando as ideias de voces e essas deste topico aqui http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=11324 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 Lailton Valeu Eder vou testar os exemplos postados por voces e retorno o resultado. 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í alguém já passou por isso? Tem alguma forma de fazer? 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 tem como maximizar uma dialog dentro de uma window MDI tipo uma MDICHILD? Quando tento maximizar normalmente usando o Activate oDlg on init oDlg:maximize() a tela abre mas a minha dialog definida no pelles fica pequena. Tem como maximizar tudo junto? 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á pessoal tem como maximizar uma dialog dentro de uma window MDI tipo uma MDICHILD? Quando tento maximizar normalmente usando o Activate oDlg on init oDlg:maximize() a tela abre mas a minha dialog definida no pelles fica pequena. Tem como maximizar tudo junto? 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á Marcio uso pela letra mapeada do servidor veja se ajuda é só trocar a letra pelo ip. #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\LOGIST.EXE") // exe na máquina local aDirectory:=DIRECTORY(mUnid+":\FGTRANSP\LOGIST.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\LOGIST.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\LOGIST.EXE" cDestino:="C:\FGTRANSP\LOGIST.EXE" Delete File &cDestino Copy File &cOrigem To &cDestino ENDIF ELSE cOrigem :=mUnid+":\FGTRANSP\LOGIST.EXE" cDestino:="C:\FGTRANSP\LOGIST.EXE" Copy File &cOrigem To &cDestino ENDIF ENDIF WinExec( "LOGIST.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 /

Valeu amigos pelas respostas vou testar as ideias de voces e qualquer coisa grito por socorro. 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í amigos obrigado pelas respostas, estava sem net por isso demorei pra responder. A questão é a seguinte tenho dois executáveis 1 - FGTRANSP.EXE é o que eu faço o atalho usando ele aí se na maquina local não existir a pasta e os arquivos eu crio a pasta e copio o que preciso do servidor pra dentro da pasta. 2 - FGLOGIST.EXE este é o sistema real antes de executar ele eu testo no FGTRANSP.EXE se a copia do servidor é mais recente que ele se não copio só o executável do FGLOGIST.EXE que está no servidor pra dentro da pasta na maquina local aí sim eu executo o FGLOGIST.EXE que é o sistema em questão. O codigo que eu postei aqui é o FGTRANSP.PRG o que estou precisando é verificar na rede onde está o servidor em copiar os dados. 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 /

#include "Fivewin.ch" #include "Directry.ch" //--------------------------------------------------------\\ IF FILE("C:\FGTRANSP\FGLOGIST.EXE") // exe na máquina local PRIV WDATA1:=CTOD(" / / ") PRIV WTIME1:="" PRIV WDATA2:=CTOD(" / / ") PRIV WTIME2:="" aDirectory:=DIRECTORY("FGLOGIST.EXE","D") // 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\FGLOGIST.EXE","D") 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)) ) // EU QUERO AQUI COPIAR O FGLOGIST.EXE DO SERVIDOR, PARA // A MAQUINA LOCAL QUE CHAMOU O SISTEMA SUBSTITUINDO O FGLOGIST.EXE // ANTIGO PELO NOVO ATUALIZADO. // LEMBRANDO QUE O SERVIDOR É UM SERVIDOR DEDICADO COM HD PARTICIONADO // E O SISTEMA ESTà NO D: DO SERVIDOR NA PASTA FGTRANSP E EM CADA MAQUINA // LOCAL EU TENHO A MESMA PASTA COM O FGTRANSP.EXE E O FGLOGIST.EXE SENDO QUE // SE ESTIVER CRIANDO O ATALHO PELA PRIMEIRA VEZ EM UMA MAQUINA QUALQUER // O DIRETORIO SERà CRIADO E OS ARQUIVOS INICIAIS SERÃO COPIADOS DO SERVIDOR PARA A MAQUINA // MINHA DIFICULDADE É FAZER ISSO ACONTECER. // SE ALGUÉM PUDER ME AJUDAR FICO MUITO GRATO. ENDIF ELSE // SE ESTIVER CRIANDO O ATALHO PELA PRIMEIRA VEZ EM UMA MAQUINA QUALQUER // O DIRETORIO SERà CRIADO E OS ARQUIVOS INICIAIS SERÃO COPIADOS DO SERVIDOR PARA A MAQUINA // NESTE PONTO AQUI. 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 /

#include "Fivewin.ch" #include "Directry.ch" //--------------------------------------------------------\\ IF FILE("C:\FGTRANSP\FGLOGIST.EXE") // exe na máquina local PRIV WDATA1:=CTOD(" / / ") PRIV WTIME1:="" PRIV WDATA2:=CTOD(" / / ") PRIV WTIME2:="" aDirectory:=DIRECTORY("FGLOGIST.EXE","D") // 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\FGLOGIST.EXE","D") 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)) ) // EU QUERO AQUI COPIAR O FGLOGIST.EXE DO SERVIDOR, PARA // A MAQUINA LOCAL QUE CHAMOU O SISTEMA SUBSTITUINDO O FGLOGIST.EXE // ANTIGO PELO NOVO ATUALIZADO. // LEMBRANDO QUE O SERVIDOR É UM SERVIDOR DEDICADO COM HD PARTICIONADO // E O SISTEMA ESTà NO D: DO SERVIDOR NA PASTA FGTRANSP E EM CADA MAQUINA // LOCAL EU TENHO A MESMA PASTA COM O FGTRANSP.EXE E O FGLOGIST.EXE SENDO QUE // SE ESTIVER CRIANDO O ATALHO PELA PRIMEIRA VEZ EM UMA MAQUINA QUALQUER // O DIRETORIO SERà CRIADO E OS ARQUIVOS INICIAIS SERÃO COPIADOS DO SERVIDOR PARA A MAQUINA // MINHA DIFICULDADE É FAZER ISSO ACONTECER. // SE ALGUÉM PUDER ME AJUDAR FICO MUITO GRATO. ENDIF ELSE // SE ESTIVER CRIANDO O ATALHO PELA PRIMEIRA VEZ EM UMA MAQUINA QUALQUER // O DIRETORIO SERà CRIADO E OS ARQUIVOS INICIAIS SERÃO COPIADOS DO SERVIDOR PARA A MAQUINA // NESTE PONTO AQUI. 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 /