Clique abaixo para nos ajudar
Login

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
22 usuários online :: Nenhum usuário registrado, Nenhum Invisível e 22 Visitantes :: 1 Motor de busca

Nenhum

[ Ver toda a lista ]


O recorde de usuários online foi de 468 em 1/3/2012, 10:43
Como preencher campos vazios

9/2/2017, 11:55 por Linghston

Pessoal boa tarde,

É o seguinte, eu preciso preencher os campos de uma coluna da tabela DBF que …

Comentários: 2

Enviar msg para WhatsAPP via VFP

7/2/2017, 10:31 por Eliana

Olá Pessoal!

Alguém sabe se é possível enviar mensagem para o WhatsAPP via VFP?


Grata


Comentários: 0

Tudo dá errado

3/2/2017, 16:50 por Douglas Pascini

Troquei de maquina, achei que seria uma boa, [Você precisa estar registrado e conectado para ver esta imagem.]  pois passei para uma maquina melhor.

Instalei o …

Comentários: 1

URGENTE - Instalação do aplicativo

24/1/2017, 08:51 por Douglas Pascini

Bom dia. Estou com um problema, ao fazer a instalação (colocar os arquivo) do aplicativo na …

Comentários: 0

USAR REPORT FORM

30/12/2016, 09:06 por AJC

Pessoal bom dia,
Estou com um grande problema, já pesquisei muita coisa sobre report form, mas o …

Comentários: 3

Estatísticas
Temos 7020 usuários registrados
O último usuário registrado atende pelo nome de Paulo R. Vieira

Os nossos membros postaram um total de 21 mensagens em 12 assuntos

Gerar a carta com docto Ms Word modelo

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

Vídeo Gerar a carta com docto Ms Word modelo

Mensagem por alceu11 em 17/2/2011, 08:13

[Você precisa estar registrado e conectado para ver este link.]

topico do mauro.
Victoria.!!! la vc tera o fonte de um documento modelo
[Você precisa estar registrado e conectado para ver este link.]

alceu11
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Vídeo Re: Gerar a carta com docto Ms Word modelo

Mensagem por Marcos Guedes em 17/2/2011, 08:55

Reputado!

_________________
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

Vídeo Carta modelo gerando 2 doctos de um original

Mensagem por alceu11 em 17/2/2011, 09:06

link do fonte
[Você precisa estar registrado e conectado para ver este link.]
neste codigo gerar mais de um documento ,,,de um docto modelo MsWord

Com isto e possivel fazer contratos diversos, comunicacoes, advertencias, e a ondi sua imaginacao chegar.....!!!

Exemplo de mais um documento.

Codigo fonte aqui gero dois documentos doc1, e doc2
o modelo segue no zip acima acinalado colegio zip
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

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