EMITIR CONTRATOS PELO SISTEMA

FUTURA 13/04/2011 20:22:22
#371268

amigos, mas vcs tem o layout deste carne leão mensal que o sistema de imóveis tem que gerar ?, e este é enviado para o proprietário do imóvel ??

ALFTERRA 13/04/2011 20:48:45
#371269

o canê leão nada mais é d q um DARF com o código da receita 0190 veja como calcular nos liks abaixo:

tabela do IR a ser usada: http://www.receita.fazenda.gov.br/legislacao/Ins/2011/in11422011.htm

base de calculo de locação: http://www.portaltributario.com.br/guia/1tributario050606.htm

MAFACILITY 13/04/2011 21:04:54
#371270

Sou Corretor tenho uma imobiliária, tenho um sistema de imobiliária que emite Contrato de Compromisso de Compra e Venda no Word, por que fiz no Word? Por que o contrato nunca é fechado, ou seja, sempre há alguma modificação para fazer(por isso não fiz em PDF), mesmo tendo cláusulas padronizadas sempre há alguma alteração pertinente a compra e venda específica de um determinado imóvel que tem que ser bem amarradinho [Ô]para não machucar ninguém[Ô].


Public Sub contrato()
Dim arq$


arq$ = [Ô]compra_venda[Ô]

Dim Word_VB As New Word.Application
Word_VB.Documents.Add
Word_VB.Visible = True

With Word_VB
.Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
.Selection.Font.Size = 14
.Selection.Font.Bold = True
.Selection.TypeText Text:=[Ô]CONTRATO DE COMPROMISSO DE COMPRA E VENDA[Ô]
.Selection.TypeParagraph
.Selection.ParagraphFormat.Alignment = wdAlignParagraphJustify
.Selection.Font.Size = 11
.Selection.Font.Bold = True
.Selection.Font.Bold = False
.Selection.TypeParagraph
.Selection.TypeText Text:=[Ô] Pelo presente instrumento particular de compromisso de compra e venda, de um lado, [Ô] & txtnom.Text & [Ô], [Ô] _
& [Ô]natural do [Ô] & cbonat.Text & [Ô], [Ô] & cbonac.Text & [Ô], [Ô] & cboec.Text & [Ô], [Ô] & cboreg.Text & [Ô], [Ô] & txtpro.Text & [Ô], carteira de identidade nº [Ô] & Maskrg.Text & [Ô], [Ô] _
& [Ô]inscrito no Cpf/mf sob o nº [Ô] & Maskcp.Text & [Ô], residente e domiciliado à [Ô] & txtend.Text & [Ô], [Ô] & txtbai.Text & [Ô], [Ô] & txtcid.Text & [Ô], [Ô] _
& cbouf.Text & [Ô], [Ô] & Maskcep.Text & [Ô], [Ô] & [Ô]e seu cônjuge, [Ô] & txtconjv.Text & [Ô], carteira de identidade nº [Ô] & Maskrgconjv.Text & [Ô], [Ô] & cbonac.Text _
& [Ô], de ora em diante chamados de VENDEDOR(ES), e de outro lado [Ô] & txtnomc.Text & [Ô], [Ô] & cbonacc.Text & [Ô]natural do [Ô] & cbonatc.Text & [Ô], [Ô] & cboecc.Text & [Ô], [Ô] _
& [Ô], [Ô] & cboregc.Text & [Ô], [Ô] & txtproc.Text & [Ô], carteira de identidade nº [Ô] & Maskrgc.Text & [Ô], inscrito no Cpf/mf sob o nº [Ô] & Maskcpfc.Text & [Ô], sua esposa, [Ô] & txtconjc.Text _
& [Ô], carteira de identidade nº [Ô] & Maskrgconjc.Text & [Ô], [Ô] & cbonacconjc.Text & [Ô], de ora em diante chamamos simplesmente de COMPRADOR(ES), tem, entre si, como justo e contratado [Ô] _
& [Ô]o que se segue.[Ô]
.Selection.TypeParagraph
.Selection.TypeText Text:=[Ô]1 - Os VENDEDORES são senhores e legítimos possuidores e proprietários do imóvel que assim se descreve e caracteriza: [Ô] & txtdesc.Text
.Selection.TypeParagraph
.Selection.TypeText Text:=[Ô]2 - Pelo presente instrumento e na melhor forma de direito, os VENDEDORES tem ajustado vender conforme promete aos COMPRADOR(ES), estes a comprar-lhes o imóvel[Ô] _
& [Ô] descrito e caracterizado na cláusula anterior, que possuem de forma livre e desembaraçada de quaisquer ônus, real, pessoal, fiscal ou extrajudicial, dívidas arrestos ou sequestros, ou ainda[Ô] _
& [Ô] de restrição de qualquer natureza, pelo preço e de conformidade com as cláusulas e condições adiante estabelecidas.[Ô]
.Selection.TypeParagraph
.Selection.TypeText Text:=[Ô]3 - O preço certo e ajustado da venda ora prometida é de R$ [Ô] & Format(Maskvve.Text, [Ô]###,##0.00[Ô]) & [Ô] , por conta do qual os VENDEDOR(ES) confessam e declaram haver recebido dos COMPRADOR(ES)[Ô] _
& [Ô] a quantia de R$ [Ô] & Format(Masksin.Text, [Ô]###,##0.00[Ô]) & [Ô], a título de sinal de princípio de pagamento, conforme recibo assinado pelos VENDEDOR(ES) e que, na época do pagamento, foi entregue aos COMPRADOR(ES), e de cujo[Ô] _
& [Ô] recebimento dão amais ampla e irrevogável quitação para não mais repetir.[Ô]
.Selection.TypeParagraph
.Selection.TypeText Text:=[Ô]Parágrafo 1º - O restante do preço, no valor de R$ [Ô] & Format(Maskdif.Text, [Ô]###,##0.00[Ô]) & [Ô] será pago pelo(s) COMPRADOR(ES) da seguinte forma: [Ô] & txtforma.Text
.Selection.TypeParagraph
.Selection.TypeText Text:=[Ô]Parágrafo 2º - Os COMPRADOR(ES) obrigam-se a pagar pontualmente cada uma das parcelas(promissórias) ao(s) VENDEDOR(ES), na residência destes, à [Ô] & txtend.Text & [Ô], ou onde for indicado, sob pena [Ô] _
& [Ô]de, em não o fazendo e sem prejuízo das sanções consentâneas de seu inadimplemento, ficarem sujeitos ao pagamento de juros moratórios de 1%(um por cento) ao mês.[Ô]
.Selection.TypeParagraph
.Selection.TypeText Text:=[Ô]4 - O não pagamento pelos COMPRADOR(ES) na data do vencimento de qualquer das parcelas ou notas promissórias e dos encargos a que estão obrigados por força contratual e, interpelados judicialmente ou [Ô] _
& [Ô]notificados através de cartório de Títulos e Documentos, não pagarem a mora no prazo de 15(quinze) dias, contados do recebimento da interpelação ou notificação, acarretará, de pleno jure, a rescisão deste contrato, rescisão [Ô] _
& [Ô]esta que se operará em favor dos VENDEDOR(ES) independente de qualquer outro procedimento judicial ou extrajudicial, e, como consequências, perderão os COMPRADOR(ES), desde logo, não só a posse do imóvel prometido, como também [Ô] _
& [Ô]quaisquer parcelas de dinheiro pagas por conta do preço pactuado até a época do inadimplemento, não lhes cabendo o direito de retenção e indenização por benfeitorias coluptárias, úteis e necessárias que tenha realizado no citado [Ô] _
& [Ô]imóvel, o qual deverá ser restituído incontinente sob pena de configuração de esbulho possessório.[Ô]
.Selection.TypeParagraph
.Selection.TypeText Text:=[Ô]Parágrafo Único - feita a interpelação ou notificação referidas nesta cláusula, os COMPRADOR(ES) poderão, no prazo nela mencionado, purgar a mora, pagando: a) o valor da nota promissória ou parcela vencida; [Ô] _
& [Ô]b) os juros moratórios; c) as despesas que os VENDEDOR(ES) hajam feito com a notificação ou interpelação, bem como as relativas a honorários de advogado, se constituído, a base de 10%(dez por cento) sobre o montante devido.[Ô]
.Selection.TypeParagraph
.Selection.TypeText Text:=[Ô]5 - A posse do imóvel, objeto deste contrato, é transmitida pelo(s) VENDEDOR(ES) ao(s) COMPRADOR(ES), neste ato, com a entrega das chaves do citado imóvel; nessa posse permanecendo o(s) COMPRADOR(ES) enquanto [Ô] _
& [Ô] cumprir(em) o com a sua(s) obrigação(ões) contratual, lavradas neste instrumento particular. [Ô]
.Selection.TypeParagraph
.Selection.TypeText Text:=[Ô]6 - Integralizado que seja pelo(s) COMPRADOR(ES) o preço total avançado neste contrato, obrigam-se o(s) VENDEDOR(ES) a outorgar e assinar em nome do(s) COMPRADOR(ES) , ou em nome de quem por eles for indicado [Ô] _
& [Ô]ou que ainda legalmente o(s) represente, a competente escritura definitiva de venda e compra do imóvel descrito na cláusula primeira, totalmente livre e desembaraçado de quaisquer ônus ou gravames de qualquer natureza.[Ô]
.Selection.TypeParagraph
.Selection.TypeText Text:=[Ô]Parágrafo Único - A inadimplência do(s) VENDEDOR(ES), consiste na recusa a outorga da escritura definitiva de que trata esta cláusula; dará ao(s) COMPRADOR(ES) o direito de pedir a adjudição compulsória do imóvel, [Ô] _
& [Ô]na forma da lei, além de outras medidas tendentes ao recebimento de indenização por perda e danos que venham a ser causados em razão da citada recusa.[Ô]
.Selection.TypeParagraph
.Selection.TypeText Text:=[Ô]7 - A partir da data da assinatura do presente contrato, correrão por conta exclusiva do(s) COMPRADOR(ES), todos os impostos, taxas ou contribuições fiscais de qualquer natureza incidente sobre o imóvel objeto deste [Ô] _
& [Ô]contrato e por estes deverão ser pagos nas épocas próprias e nas repartições competentes, ainda que lançadas em nome do(s) VENDEDOR(ES) ou de terceiros; assim como serão, desde já de sua inteira responsabilidade, as despesa como registro de [Ô] _
& [Ô]contrato e da escritura definitiva de venda e compra no registro de imóveis, emolumentos notariais, e outro de qualquer natureza e decorrentes desta transação; inclusive o pagamento do imposto de transmissão de bens imóveis(siza).[Ô]
.Selection.TypeParagraph
.Selection.TypeText Text:=[Ô]8 - O(s) COMPRADOR(ES) poderão ceder e transferir os direitos que lhe(s) decorre(m) deste contrato independente da anuência do VENDEDOR(ES), porém, cedentes e cessionários ficarão solidários no cumprimento das obrigações [Ô] _
& [Ô]ora ajustadas.[Ô]
.Selection.TypeParagraph
.Selection.TypeText Text:=[Ô]9 - O presente contrato é celebrado sob a condição expressa de sua irrevogabilidade, ressalvado o eventual inadimplemento dos COMPRADOR(ES), renunciando os contratantes, expressamente, a faculdade de arrependimento concedida [Ô] _
& [Ô]pelo Art. 1095 do Código Civil.[Ô]
.Selection.TypeParagraph
.Selection.TypeText Text:=[Ô]10 - Para dirimir quaisquer questões que direta e indiretamente decorram deste contrato, as parte elegem o foro desta comarca com renúncia expressa de qualquer outro, por mais privilegiado que seja.[Ô]
.Selection.TypeParagraph
.Selection.TypeText Text:=[Ô]11 - Para todos os fins e efeitos de direito, os contratantes declaram aceitar o presente contrato nos expressos termos em que foi lavrado, obrigando-se a si, seus herdeiros e sucessores a bem e fielmente cumpri-lo.[Ô]
.Selection.TypeParagraph
.Selection.TypeText Text:=[Ô]12 - Fica o Sr(a). Oficial do Registro de Imóveis, autorizado mediante provocação de qualquer das partes contratantes, a promover o registro do presente instrumento, na forma hábil para que as partes declarem que o Sr(a). [Ô] _
& txtnom.Text & [Ô], [Ô] & cboec.Text & [Ô], [Ô] & cboreg.Text & [Ô], [Ô] & txtconjv.Text & [Ô], e, [Ô] & txtnomc.Text & [Ô], [Ô] & cboecc.Text & [Ô], [Ô] & [Ô], [Ô] & cboregc.Text & [Ô], [Ô] & txtconjc.Text & [Ô], também antes da lei 6515 de 1977.[Ô]
.Selection.TypeParagraph
.Selection.TypeText Text:=[Ô] E por estarem assim ajustados, declarando as partes que não estão vinculadas as restrições previdenciárias, como empregados, e nem ao FUNRURAL como contribuintes obrigatórios, firma o presente instrumento particular [Ô] _
& [Ô] em 03(três) vias de igual teor e forma, na presença das duas testemunhas que também o assinam.[Ô]
Selection.TypeParagraph
.Selection.Font.Size = 11
.Selection.TypeText Text:=[Ô]______________, [Ô] & Date
.Selection.Font.Size = 11
.Selection.Font.Bold = True
.Selection.ParagraphFormat.Alignment = wdAl

TECLA 29/04/2011 21:57:07
#372837

Tópico encerrado, já que foram postadas soluções que resolvem o problema, e o usuário não voltou para encerrá-lo.