Clique abaixo para nos ajudar
Conectar-se

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
16 usuários online :: Nenhum usuário registrado, Nenhum Invisível e 16 Visitantes :: 2 Motores de busca

Nenhum

[ Ver toda a lista ]


O recorde de usuários online foi de 468 em 1/3/2012, 10:43
TRY BEGIN E FLOCK()

17/4/2017, 10:32 por AJC

Pessoal estou tendo alguns problemas de gravação em rede, estou usando
try begin, mas vi algo na …

Comentários: 0

Exportar Dados Campo Memo Tabela DBF

10/4/2017, 10:28 por fcampos

Olá bom dia.

Estou tentando exportar os dados de algumas tabelas em formato dbf pelo foxpro.
O …

Comentários: 2

Função EVL()

8/4/2017, 12:18 por Clebervfp

Bom dia a todos.
Vim compartilhar de uma Função do próprio VFP que me benefício muito.
Função …

Comentários: 0

COMO BLOQUEAR REGISTRO OU TABELA NO VISUAL FOXPRO PARA GRAVAÇÃO EM REDE

3/4/2017, 10:29 por AJC

Pessoal estou tendo um problema que acontece sempre busco na minha tabela de clientes o ultimo …

Comentários: 2

Controlar Scanner Twain

31/3/2017, 17:31 por Kleber R Bento

Estou usando o EZTW32.DLL para criar uma ferramenta que escaneia e gera PDF. Porém com esses …

Comentários: 0

Estatísticas
Temos 7063 usuários registrados
O último usuário registrado atende pelo nome de Bravera

Os nossos membros postaram um total de 47 mensagens em 24 assuntos

Gerar Carta no Word

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Resolvido Gerar Carta no Word

Mensagem por mauro victoria em 8/2/2011, 16:59

Boa tarde,
Um cliente precisar informar para cada aluno suas notas, fez uma carta no word
onde tem nome,turma,nota, pequei uma rotina do Alceu (rei1.prg eu.doc) no qual ele imprime a carta e funciona muito bem, porem tentei em vez de imprimir gerar uma carta
para cada aluno num diretório para envio posterior, exemplo carta_matricula.doc (carta_0198.doc) porem não consegui gostaria de contar com a colaboração mais uma vez dos amigos.

Aguardo retorno dos amigos

Obrigado. até mais.




mauro victoria
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: Gerar Carta no Word

Mensagem por _batmanvfp_ em 8/2/2011, 17:07

voce nao conseguiu gerar o Documento ,

ou não consegiu , colocar o caminho e o nome do documento ?

tem algum erro especifico ?

_batmanvfp_
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: Gerar Carta no Word

Mensagem por Marcos Guedes em 8/2/2011, 20:22

Esta classe eu fiz depois de o Alceu me pedir bastante:
[Você precisa estar registrado e conectado para ver este link.]

Veja se lhe ajuda.

_________________
Marcos Guedes - Programador e desenvolvedor Web.


Visite o nosso portal:
[Você precisa estar registrado e conectado para ver este link.]

Marcos Guedes
Webmaster
Webmaster


Voltar ao Topo Ir em baixo

Resolvido Re: Gerar Carta no Word

Mensagem por mauro victoria em 9/2/2011, 05:26

voce nao conseguiu gerar o Documento -> Não, o programa imprime o documento sem gravar

ou não consegiu , colocar o caminho e o nome do documento ?

é o que eu preciso gravar o documento num caminho especifico, cada documento tera a nome,turma e nota do aluno e o documento poderá ter o nome exp.aluno_001.doc

tem algum erro especifico ? não há erro


mauro victoria
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: Gerar Carta no Word

Mensagem por Marcos Guedes em 9/2/2011, 08:13

[Você precisa estar registrado e conectado para ver este link.] escreveu:Esta classe eu fiz depois de o Alceu me pedir bastante:
[Você precisa estar registrado e conectado para ver este link.]

Veja se lhe ajuda.
up!

_________________
Marcos Guedes - Programador e desenvolvedor Web.


Visite o nosso portal:
[Você precisa estar registrado e conectado para ver este link.]

Marcos Guedes
Webmaster
Webmaster


Voltar ao Topo Ir em baixo

Resolvido Re: Gerar Carta no Word

Mensagem por mauro victoria em 9/2/2011, 09:12

Bom dia Marcos, sua rotina é muito boa vou aproveitar, mas no momento
preciso que grave um texto personalizado para cada aluno automaticamente
sem a necessidade que a carta abra para depois colocar o nome do documento e gravar, porem aproveitarei para uma outra rotina.

Muito Obrigado.
Se você pode me ajudar estou no aguardo.

até mais

mauro victoria
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: Gerar Carta no Word

Mensagem por Marcos Guedes em 9/2/2011, 09:29

A rotina abre a classe apenas se for especificado!
No exemplo que disponibilizei, deixei visível para melhor visualização.
É só dar uma estudada na classe.

_________________
Marcos Guedes - Programador e desenvolvedor Web.


Visite o nosso portal:
[Você precisa estar registrado e conectado para ver este link.]

Marcos Guedes
Webmaster
Webmaster


Voltar ao Topo Ir em baixo

Resolvido Re: Gerar Carta no Word

Mensagem por mauro victoria em 9/2/2011, 09:47

A minha ideia e primeiro gravar esta carta para cada aluno com o nome aluno_matricula.doc e depois envi-la por email automaicamente

Modelo da carta no word usando a rotina do alceu porem ele imprime eu preciso que grave com o a matricula do aluno.

Local da Logo do Cliente

Prezados Responsáveis:


A partir deste ano, estão disponíveis no site do TOY o boletim e os boletos bancários dos alunos. Para acessar sua área restrita, entre no site do TRY ([Você precisa estar registrado e conectado para ver este link.] e clique em ‘alunos’. Irá abrir uma página pedindo login e senha.

Para ver o boletim e boleto de <wnome> digite:
<wlogin> no campo “login”
<wsenha>. no campo “senha” (sugerimos mudar a senha no primeiro acesso ao sistema).

Uma vez em sua área restrita você poderá escolher entre ver o boletim ou imprimir o boleto bancário do mês.

Se você não quiser acessar essas informações de seu filho via site do TOY, não tem problema pois continuaremos a enviar o boletim e boleto através dos alunos.
Qualquer dúvida, é só entrar em contato conosco.


Grato pela sua atenção,

A Direção

mauro victoria
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: Gerar Carta no Word

Mensagem por _batmanvfp_ em 9/2/2011, 10:24

Olá Mauro vi que tinha sua resposta pra mim lá em cima,
vo te dar uma ideia
tente ver esse exemplinho do Richtext, pois tanto o registro selecionado ele gera as tags na boa a explicacao está abaixo.
E mais o restante que precisa pra mover e trocar o nome do arquivo.
Caso tentar criar emcima desses comandos e tiver duvidas só postar .


tem que juntar umas 3 coisas

1 - Automacao Word
2 - Mover
3 - Mudar o nome do arquivo


1 - Esse codigo transforma dados de tabela em Registro no Word

algo do genero como Richtext para testar ,
se criar um doc e ou rtf e colocar <<nome>>
e fazer o codigo abaixo após processa-lo ele subistui a tag <<nome>> por um nome
ex. Francisco Everardo Oliveira Silva
só que nao edita mais que uma vez , por que ai perdeu a TAG <<nome>> por ter
trocado pelo nome após processado

Código:
CLOSE DATABASES ALL
USE c:\Project\Data\cadclie?
oaplword = createobject("Word.Application")
oaplword.documents.add("C:\SISTEMA\contrato.rtf")
odocativo = oaplword.activedocument
oconteudo = odocativo.range
oconteudo.find.execute("<<NOME>>",,,,,,,,,cadclie.clie_nom,2) &&localiza e troca as palavras-chave
odocativo.saveas("C:\SISTEMA\contrato.rtf") && Salva o arquivo
oaplword.quit


2 - provavelmente se tiver 1 arquivos para N alunos vai usar esse codigo

Código:
DECLARE INTEGER CopyFile IN KERNEL32.DLL ;
  STRING @SourceFileName, ;
  STRING @DestFileName, ;
  INTEGER bFailIfExists
IF CopyFile("c:\autoexec.bat","c:\api\autoexec.bat",0) # 0
  messagebox("Copiou...")
ELSE
  messagebox("Não Copiou...")
ENDIF


3 - Mudar nome arquivo
Esse codigo capaz que precisara misturar com o copyfile

Código:

LOCAL lcFile
lcCaminho = 'C:\DOCS\'
lcFile =  PADL(this.parent.txtaluno.value,5,"5")
copy to (lcCaminho + lcFile) sdf


Resumindo, através do Registro gera as strings do word , move para um outro local com o numero do codigo ou nome curso do aluno.doc

ou mudando as ordens

e depois entra o email

Estas informações peguei tudo picadas de codigos diferentes,
mais seria usar esses comandos e da pra fazer tudo certinho
colocando mais uns IF e setando tudo as variaveis



_batmanvfp_
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: Gerar Carta no Word

Mensagem por mauro victoria em 9/2/2011, 14:20

Obrigado pelo suporte, fiz algumas alterações e funcionou perfeitamente
caso alguem precise e só pedir.

Até mais.

mauro victoria
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: Gerar Carta no Word

Mensagem por alceu11 em 9/2/2011, 15:01

Nos do forum precisamos da solucao, para que futuras, consultas.
estaja aqui a solucao.
O que adianta resolver o topico, e voce nao compartilha a solucao, encontrada
afinal nos somos uma comunidade!!! Pense que aqui temos uma familia.!!!
Sera que eu vou ter que colocar a solucao.....?

Vc deveria postar a sua solucao, com 1 exemplo!!!.

******Mas enquanto vc pensa se vai ajudar ,

segue um codigo tinha feita a solucao completa com vc keria, mais porem o basico
vai aqui neste codigo
[Você precisa estar registrado e conectado para ver este link.]
*****************
Código:

***********Atencao como os paths a ondi estao o meu arquivo colegio.doc.**********
CLOSE DATABASES ALL
SET DELETED ON
CREATE CURSOR CTST (campo C(10), Sobrepor C(100) ,arquivo c(14), FOI C(1))
SELECT CTST
INSERT INTO CTST (campo,sobrepor,arquivo) VALUES ('<nome>', 'Alceu nao Pediu Nada, ke mentira!!! ','doc1.doc')
INSERT INTO CTST (campo,sobrepor,arquivo) VALUES ('<endereco>', 'R.Macae,45 Vl.Soares','doc1.doc')
INSERT INTO CTST (campo,sobrepor,arquivo) VALUES ('<cidade>', 'Poto Ferreira-SP','doc1.doc')
INSERT INTO CTST (campo,sobrepor,arquivo) VALUES ('<ling>', 'Conclusao 2º Ciclo V.FoxPro','doc1.doc' )
INSERT INTO CTST (campo,sobrepor,arquivo) VALUES ('<nome>', 'Mauro toda hora tenho ke te pedir o exemplo','doc2.doc')
INSERT INTO CTST (campo,sobrepor,arquivo) VALUES ('<endereco>', 'Av.Inajar,5645 Vl.Santos','doc2.doc')
INSERT INTO CTST (campo,sobrepor,arquivo) VALUES ('<cidade>', 'Poto Ferreira-SP','doc2.doc')
INSERT INTO CTST (campo,sobrepor,arquivo) VALUES ('<ling>', 'Conclusao 2º Ciclo V.FoxPro','doc2.doc')
*browse


SELECT CTST
 DO WHILE !EOF()
SET DEFAULT TO SYS(5)+SYS(2003)

 
oaplword = createobject("Word.Application")
oaplword.documents.add("\PEDRO\aworld\COLEGIO.DOc")
 
oSele = oaplword.ActiveDocument.ActiveWindow.ActivePane.Selection
 
 
IF NOT EOF()
 SCAN ALL
oSele.HomeKey(6) && TOPO DO DOCUMENTO
oSele.Find.Text = ALLTRIM( CTST.campo )
oSele.Find.Forward = .T.
oSele.Find.MatchWholeWord = .T.
oSele.Find.Execute()
*oSele.TypeText( ALLTRIM( CTST.sobrepor ) )
If oSele.Find.Found
oSele.TypeText( Iif( Empty(CTST.sobrepor), ' ', ALLTRIM(CTST.sobrepor) ) )
REPLACE CTST.FOI WITH 'S'
warq=ALLTRIM(ctst.arquivo)
DELETE IN ctst
Endif

ENDSCAN
ELSE
  WAIT WINDOW 'vc nao tem registros para este relatorio' TIMEOUT 2
ENDIF


 
Wait Windows "Salvando Documento "+warq NOWAIT noclear

oaplword.ActiveDocument.SaveAs( "\pedro\aworld\"+warq ) &&... salvo o documento como .DOC mantendo o template intacto (.DOT)

&&.. fica no laço enquanto o documento esta sendo salvo
Do While oaplword.ActiveDocument.saved=.F.
Enddo
Wait Windows "Fechando Documento o arquivo doc foi gerado "+warq  NOWAIT noclear
**************************************************
*se quizer imprimir o documento é so tirar o comentario
*      oWord.ActiveDocument.PrintOut()
*      oWord.DisplayAlerts = .F.
*      =Inkey(2)
************************
oaplword.quit
WAIT clear
SELECT ctst
GO top

IF EOF()
 EXIT
 endif
ENDDO

SELECT ctst
USE IN ctst
Nos matamos a cobra e mostramos o pau.
avatar
alceu11
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Resolvido Re: Gerar Carta no Word

Mensagem por alceu11 em 2/3/2011, 09:20

O video sobre codigo da reposta no dia 09/2/2011
vc encontra na secao videos
[Você precisa estar registrado e conectado para ver este link.]
avatar
alceu11
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo


 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum