Página 1 de 1

Contratos access x word

Enviado: 25 Out 2017, 09:37
por João Batista
Estou trabalhando em um projeto para imobiliária, onde cadastro determinado contrato de locação, e através de um botão o access gera o contrato em word.
A dificuldade está no seguinte: Eu posso ter no campo assinatura (final do contrato) apenas 3 assinaturas como posso ter até 10 assinaturas ou mais.
Pensei em loop para verificar na tblContrato quantos irão assinar, e preencher no word os devidos campos para as assinaturas, porém não estou conseguindo.
seria algo assim:
Na tblContrato eu tenho como Locador o João (1 assinatura); como Locatário o Pedro e sua esposa (2 assinaturas); como fiador o Manoel e sua esposa (2 assinaturas), portando no word os campos ficariam assim:
_____________________________________
João

______________________________________
Pedro

______________________________________
esposa do Pedro

______________________________________
Manoel

______________________________________
esposa do Manoel

a dificuldade está em gerar automaticamente, nos casos onde eu necessito de mais campos para assinaturas.

Re: Contratos access x word

Enviado: 25 Out 2017, 09:45
por Avelino Sampaio
João,

está montando o contrato no Word preenchendo os indicadores (bookmarks) ?

Aguardamos

Re: Contratos access x word

Enviado: 26 Out 2017, 09:04
por João Batista
correto,
criei o indicador (bookmarks) para os campos de assinaturas.
optei em criar apenas um indicador para este campo, e de acordo com a quantidade de assinaturas eu acrescento linhas para as assinaturas.
O que acontece é que tenho casos onde o Locatário é casado (daí preciso de 2 campos para assinatura), se for solteiro apenas 1 campo de assinatura.
Tem casos também onde tenho até 4 Locatários (casados ou solteiros), daí o "bicho" vai pegando, pois preciso criar até 8 campos para assinaturas (se todos forem casados).
Ainda tenho casos onde existem 2 Proprietários e os 2 tem que entrar no contrato (neste caso seriam 2 campos para as assinaturas dos proprietários) + os campos para as assinaturas dos Locatários + campos para assinaturas de fiador(res).

ao extremo, poderá ter até:
4 Proprietários + 4 Locatários solteiros ou 4 Locatários casados (se for casado seriam 8 assinaturas) + 4 fiadores solteiros ou 4 fiadores casados (se for casado seriam 8 assinaturas)

Re: Contratos access x word

Enviado: 26 Out 2017, 10:34
por Avelino Sampaio
João,

o que vem a mente é vc criar 20 indicadores ( um em cada linha). 10 indicadores são para criar as linhas e os outros 10 são para os nomes.

Código:
...
.ActiveDocument.Bookmarks("I30").Select:
.Selection.Text = "_________________________________________"
.ActiveDocument.Bookmarks("I31").Select:
.Selection.Text = "Avelino Sampaio"
.ActiveDocument.Bookmarks("I32").Select:
.Selection.Text = "_________________________________________"
.ActiveDocument.Bookmarks("I33").Select:
.Selection.Text = "João Batista"
...


Ou usar único indicador, com quebra de linhas (vbNewLine)

Código:
Dim strAss as String
.ActiveDocument.Bookmarks("I30").Select:
strAss = "_________________________________________" & vbNewLine
strAss = strAss & "Avelino Sampaio" & vbnewline
strAss = strAss & "_________________________________________" & vbNewLine
strAss = strAss & "João Batista"
.Selection.Text = strAss


Aguardamos

Re: Contratos access x word

Enviado: 26 Out 2017, 20:24
por João Batista
Avelino,
e como ficaria nos casos em que eu tivesse somente 3 assinaturas?
os demais indicadores não seriam preenchidos, porém, eu teria páginas em branco no final do contrato.

tem como eliminar as páginas em branco, ou os indicadores que não forem preenchidos?

tinha imaginado fazer através de loop, ou da mesma forma em que gero parcelas. Se tenho 20 parcelas, insere na tbl 20 parcelas com vencimentos futuros. Da mesma forma se tenho 3 locatários inseriria 3 linhas para as assinaturas, se tenho 10 locatários, inseriria 10 linhas para as assinaturas.
isto é possível, ou melhor é viável?

Re: Contratos access x word

Enviado: 13 Nov 2017, 10:25
por Avelino Sampaio
João

conseguiu resolver ?

Aguardamos