O QUE TEM NO SEU CTRL+V?

Comente aqui assuntos diversificados, que não se enquadrem em nenhuma dos outras Categorias com Áreas já criadas nesse Espaço e no Fórum de uma maneira Geral.
Avatar do usuário
Ronan
Craque
Craque
Mensagens: 17306
Registrado em: 30 Dez 2015, 17:53
Localização: Aracruz ( Espírito Santo )

Re: O QUE TEM NO SEU CTRL+V?

Mensagem por Ronan » 31 Mai 2019, 11:25

GilsonVGPR escreveu:
31 Mai 2019, 10:49
Ronan escreveu:
31 Mai 2019, 10:43
GilsonVGPR escreveu:
31 Mai 2019, 10:26
Fala, Ronan. Beleza? :pos:

Você viu o que tinha no meu CTRL+V? :entr: Uma dica: azul é a cor mais quente. :pas:
Aê Gilsão, tô só de boa no trampo, último dia de trabalho antes das férias. Aliás, férias bem merecida diga-se de passagem.... :dirol:

Quanto ao seu CTRL+V, melhor deixar quieto hehehe
Eu sei que você não vai resistir, e vai dar uma espiadinha depois. :digi:
:nao:
Imagem

Avatar do usuário
Rvarzim
Promessa
Promessa
Mensagens: 84
Registrado em: 18 Mai 2019, 12:35
Localização: Rio de Janeiro

O QUE TEM NO SEU CTRL+V?

Mensagem por Rvarzim » 31 Mai 2019, 11:59

JUNTOS E SHALLOW NOW

Imagem
LIBERDADE acima de tudo. NINGUÉM acima de todos. DEUS dentro da fé de cada um.

Avatar do usuário
Thiago Vascão
Júnior
Júnior
Mensagens: 1167
Registrado em: 20 Fev 2018, 12:25

Re: O QUE TEM NO SEU CTRL+V?

Mensagem por Thiago Vascão » 31 Mai 2019, 12:07

Como fazer sexo anal com uma cabra.

Eitia!!! Desculpem!!
O único final feliz que conheço, é o final de semana.

Avatar do usuário
Rvarzim
Promessa
Promessa
Mensagens: 84
Registrado em: 18 Mai 2019, 12:35
Localização: Rio de Janeiro

O QUE TEM NO SEU CTRL+V?

Mensagem por Rvarzim » 31 Mai 2019, 14:11

Imagem
LIBERDADE acima de tudo. NINGUÉM acima de todos. DEUS dentro da fé de cada um.

Avatar do usuário
Conde de Vidigueira
Júnior
Júnior
Mensagens: 1065
Registrado em: 18 Jul 2018, 00:28
Localização: Osasco

Re: O QUE TEM NO SEU CTRL+V?

Mensagem por Conde de Vidigueira » 31 Mai 2019, 14:19

É um número de boleto. Se eu colar aqui, será que alguém paga pra mim?

Avatar do usuário
Rvarzim
Promessa
Promessa
Mensagens: 84
Registrado em: 18 Mai 2019, 12:35
Localização: Rio de Janeiro

O QUE TEM NO SEU CTRL+V?

Mensagem por Rvarzim » 31 Mai 2019, 14:29

Conde de Vidigueira escreveu:
31 Mai 2019, 14:19
É um número de boleto. Se eu colar aqui, será que alguém paga pra mim?
Imagem

:lol: :lol: :lol: :lol:
LIBERDADE acima de tudo. NINGUÉM acima de todos. DEUS dentro da fé de cada um.

Avatar do usuário
Rvarzim
Promessa
Promessa
Mensagens: 84
Registrado em: 18 Mai 2019, 12:35
Localização: Rio de Janeiro

O QUE TEM NO SEU CTRL+V?

Mensagem por Rvarzim » 31 Mai 2019, 18:36

Imagem
LIBERDADE acima de tudo. NINGUÉM acima de todos. DEUS dentro da fé de cada um.

Avatar do usuário
Rvarzim
Promessa
Promessa
Mensagens: 84
Registrado em: 18 Mai 2019, 12:35
Localização: Rio de Janeiro

O QUE TEM NO SEU CTRL+V?

Mensagem por Rvarzim » 31 Mai 2019, 19:31

Imagem
LIBERDADE acima de tudo. NINGUÉM acima de todos. DEUS dentro da fé de cada um.

Avatar do usuário
Rvarzim
Promessa
Promessa
Mensagens: 84
Registrado em: 18 Mai 2019, 12:35
Localização: Rio de Janeiro

O QUE TEM NO SEU CTRL+V?

Mensagem por Rvarzim » 31 Mai 2019, 19:49

Imagem


CARAVELA À DERIVA - Vasco pode ter debandada de jogadores, que estariam insatisfeitos até com Luxemburgo.
LIBERDADE acima de tudo. NINGUÉM acima de todos. DEUS dentro da fé de cada um.

Avatar do usuário
VASCORAGEM
Profissional
Profissional
Mensagens: 5897
Registrado em: 31 Dez 2015, 10:01
Localização: Rio de Janeiro - RJ, Brasil

Re: O QUE TEM NO SEU CTRL+V?

Mensagem por VASCORAGEM » 31 Mai 2019, 23:14

Imagem

Avatar do usuário
Rvarzim
Promessa
Promessa
Mensagens: 84
Registrado em: 18 Mai 2019, 12:35
Localização: Rio de Janeiro

O QUE TEM NO SEU CTRL+V?

Mensagem por Rvarzim » 11 Jun 2019, 22:16

Imagem
LIBERDADE acima de tudo. NINGUÉM acima de todos. DEUS dentro da fé de cada um.

Avatar do usuário
Rvarzim
Promessa
Promessa
Mensagens: 84
Registrado em: 18 Mai 2019, 12:35
Localização: Rio de Janeiro

O QUE TEM NO SEU CTRL+V?

Mensagem por Rvarzim » 11 Jun 2019, 22:23

Imagem
LIBERDADE acima de tudo. NINGUÉM acima de todos. DEUS dentro da fé de cada um.

Avatar do usuário
alexandre.vasco
Júnior
Júnior
Mensagens: 2955
Registrado em: 29 Dez 2015, 21:41
Localização: Brasília - DF

Re: O QUE TEM NO SEU CTRL+V?

Mensagem por alexandre.vasco » 12 Jun 2019, 08:16

Rvarzim escreveu:
11 Jun 2019, 22:16
Imagem
Tu me lembra um forista que foi banido

Rsilva

:pens:
Imagem

Avatar do usuário
Rvarzim
Promessa
Promessa
Mensagens: 84
Registrado em: 18 Mai 2019, 12:35
Localização: Rio de Janeiro

O QUE TEM NO SEU CTRL+V?

Mensagem por Rvarzim » 12 Jun 2019, 20:36

Imagem
LIBERDADE acima de tudo. NINGUÉM acima de todos. DEUS dentro da fé de cada um.

Avatar do usuário
GilsonVGPR
Júnior
Júnior
Mensagens: 2633
Registrado em: 31 Dez 2015, 12:13
Localização: Campos dos Goyta City - RJ

Re: O QUE TEM NO SEU CTRL+V?

Mensagem por GilsonVGPR » 13 Jun 2019, 10:09

Rvarzim escreveu:
31 Mai 2019, 14:11
Imagem
Eita! Devia ter acabado de acordar. :bucks: Mas do pescoço pra baixo tá de boa. :pis:
𝒞. 𝑅. 𝒱𝒜𝒮𝒞𝒪 𝒟𝒜 𝒢𝒜𝑀𝒜 -> 𝒞𝒪𝒩𝒬𝒰𝐼𝒮𝒯𝒪𝒰: 𝒮𝒰𝐿-𝒜𝑀𝐸𝑅𝐼𝒞𝒜𝒩𝒪 𝒟𝐸 𝒞𝐿𝒰𝐵𝐸𝒮 𝒞𝒜𝑀𝒫𝐸𝒪̃𝐸𝒮 𝒟𝐸 𝟣𝟫𝟦𝟪 (𝒫𝑅𝐸𝒞𝒰𝑅𝒮𝒪𝑅 𝒟𝒜 𝒯𝒜Ç𝒜 𝐿𝐼𝐵𝐸𝑅𝒯𝒜𝒟𝒪𝑅𝐸𝒮 𝒟𝒜 𝒜𝑀𝐸́𝑅𝐼𝒞𝒜 𝐸 𝒟𝒜 𝒰𝐸𝐹𝒜 𝒞𝐻𝒜𝑀𝒫𝐼𝒪𝒩𝒮 𝐿𝐸𝒜𝒢𝒰𝐸). | 𝒯𝒪𝑅𝒩𝐸𝐼𝒪 𝐼𝒩𝒯𝐸𝑅𝒩𝒜𝒞𝐼𝒪𝒩𝒜𝐿 𝒟𝐸 𝒫𝒜𝑅𝐼𝒮 𝒟𝐸 𝟣𝟫𝟧𝟩 (𝒫𝑅𝐸𝒞𝒰𝑅𝒮𝒪𝑅 𝒟𝒜 𝒞𝒪𝒫𝒜 𝐼𝒩𝒯𝐸𝑅𝒞𝒪𝒩𝒯𝐼𝒩𝐸𝒩𝒯𝒜𝐿 / 𝒯𝒪𝑅𝒩𝐸𝐼𝒪 𝑀𝒰𝒩𝒟𝐼𝒜𝐿 𝒟𝐸 𝒞𝐿𝒰𝐵𝐸𝒮). 𝒞𝒪𝒩𝐹𝐼𝑅𝒜 𝒜𝒬𝒰𝐼.

Avatar do usuário
GilsonVGPR
Júnior
Júnior
Mensagens: 2633
Registrado em: 31 Dez 2015, 12:13
Localização: Campos dos Goyta City - RJ

Re: O QUE TEM NO SEU CTRL+V?

Mensagem por GilsonVGPR » 13 Jun 2019, 10:10

Rvarzim escreveu:
11 Jun 2019, 22:23
Imagem
A Paolla é top, mas, nessa foto parece que tomou uma. :drink:
𝒞. 𝑅. 𝒱𝒜𝒮𝒞𝒪 𝒟𝒜 𝒢𝒜𝑀𝒜 -> 𝒞𝒪𝒩𝒬𝒰𝐼𝒮𝒯𝒪𝒰: 𝒮𝒰𝐿-𝒜𝑀𝐸𝑅𝐼𝒞𝒜𝒩𝒪 𝒟𝐸 𝒞𝐿𝒰𝐵𝐸𝒮 𝒞𝒜𝑀𝒫𝐸𝒪̃𝐸𝒮 𝒟𝐸 𝟣𝟫𝟦𝟪 (𝒫𝑅𝐸𝒞𝒰𝑅𝒮𝒪𝑅 𝒟𝒜 𝒯𝒜Ç𝒜 𝐿𝐼𝐵𝐸𝑅𝒯𝒜𝒟𝒪𝑅𝐸𝒮 𝒟𝒜 𝒜𝑀𝐸́𝑅𝐼𝒞𝒜 𝐸 𝒟𝒜 𝒰𝐸𝐹𝒜 𝒞𝐻𝒜𝑀𝒫𝐼𝒪𝒩𝒮 𝐿𝐸𝒜𝒢𝒰𝐸). | 𝒯𝒪𝑅𝒩𝐸𝐼𝒪 𝐼𝒩𝒯𝐸𝑅𝒩𝒜𝒞𝐼𝒪𝒩𝒜𝐿 𝒟𝐸 𝒫𝒜𝑅𝐼𝒮 𝒟𝐸 𝟣𝟫𝟧𝟩 (𝒫𝑅𝐸𝒞𝒰𝑅𝒮𝒪𝑅 𝒟𝒜 𝒞𝒪𝒫𝒜 𝐼𝒩𝒯𝐸𝑅𝒞𝒪𝒩𝒯𝐼𝒩𝐸𝒩𝒯𝒜𝐿 / 𝒯𝒪𝑅𝒩𝐸𝐼𝒪 𝑀𝒰𝒩𝒟𝐼𝒜𝐿 𝒟𝐸 𝒞𝐿𝒰𝐵𝐸𝒮). 𝒞𝒪𝒩𝐹𝐼𝑅𝒜 𝒜𝒬𝒰𝐼.

Avatar do usuário
GilsonVGPR
Júnior
Júnior
Mensagens: 2633
Registrado em: 31 Dez 2015, 12:13
Localização: Campos dos Goyta City - RJ

Re: O QUE TEM NO SEU CTRL+V?

Mensagem por GilsonVGPR » 13 Jun 2019, 10:11

Rvarzim escreveu:
11 Jun 2019, 22:16
Imagem
Quem é essa prima, mano? :coolsmiley:
𝒞. 𝑅. 𝒱𝒜𝒮𝒞𝒪 𝒟𝒜 𝒢𝒜𝑀𝒜 -> 𝒞𝒪𝒩𝒬𝒰𝐼𝒮𝒯𝒪𝒰: 𝒮𝒰𝐿-𝒜𝑀𝐸𝑅𝐼𝒞𝒜𝒩𝒪 𝒟𝐸 𝒞𝐿𝒰𝐵𝐸𝒮 𝒞𝒜𝑀𝒫𝐸𝒪̃𝐸𝒮 𝒟𝐸 𝟣𝟫𝟦𝟪 (𝒫𝑅𝐸𝒞𝒰𝑅𝒮𝒪𝑅 𝒟𝒜 𝒯𝒜Ç𝒜 𝐿𝐼𝐵𝐸𝑅𝒯𝒜𝒟𝒪𝑅𝐸𝒮 𝒟𝒜 𝒜𝑀𝐸́𝑅𝐼𝒞𝒜 𝐸 𝒟𝒜 𝒰𝐸𝐹𝒜 𝒞𝐻𝒜𝑀𝒫𝐼𝒪𝒩𝒮 𝐿𝐸𝒜𝒢𝒰𝐸). | 𝒯𝒪𝑅𝒩𝐸𝐼𝒪 𝐼𝒩𝒯𝐸𝑅𝒩𝒜𝒞𝐼𝒪𝒩𝒜𝐿 𝒟𝐸 𝒫𝒜𝑅𝐼𝒮 𝒟𝐸 𝟣𝟫𝟧𝟩 (𝒫𝑅𝐸𝒞𝒰𝑅𝒮𝒪𝑅 𝒟𝒜 𝒞𝒪𝒫𝒜 𝐼𝒩𝒯𝐸𝑅𝒞𝒪𝒩𝒯𝐼𝒩𝐸𝒩𝒯𝒜𝐿 / 𝒯𝒪𝑅𝒩𝐸𝐼𝒪 𝑀𝒰𝒩𝒟𝐼𝒜𝐿 𝒟𝐸 𝒞𝐿𝒰𝐵𝐸𝒮). 𝒞𝒪𝒩𝐹𝐼𝑅𝒜 𝒜𝒬𝒰𝐼.

Avatar do usuário
Mohammed Lisboa
Capitão
Capitão
Mensagens: 11045
Registrado em: 30 Dez 2015, 17:34
Localização: Jacarepaguá - RJ

Re: O QUE TEM NO SEU CTRL+V?

Mensagem por Mohammed Lisboa » 13 Jun 2019, 10:13

alexandre.vasco escreveu:
12 Jun 2019, 08:16
Rvarzim escreveu:
11 Jun 2019, 22:16
Imagem
Tu me lembra um forista que foi banido

Rsilva

:pens:



Por que o Rsilva foi banido?
Ponha um Rei na masmorra, e ele continua sendo Rei. Ponha um palhaço no castelo, e ele continua sendo um palhaço.


QUE PAÍS SERÁ ESTE??

Avatar do usuário
alexandre.vasco
Júnior
Júnior
Mensagens: 2955
Registrado em: 29 Dez 2015, 21:41
Localização: Brasília - DF

Re: O QUE TEM NO SEU CTRL+V?

Mensagem por alexandre.vasco » 13 Jun 2019, 10:40

Mohammed Lisboa escreveu:
13 Jun 2019, 10:13
alexandre.vasco escreveu:
12 Jun 2019, 08:16
Rvarzim escreveu:
11 Jun 2019, 22:16
Imagem
Tu me lembra um forista que foi banido

Rsilva

:pens:



Por que o Rsilva foi banido?
Não sei exatamente o motivo
Imagem

Avatar do usuário
GilsonVGPR
Júnior
Júnior
Mensagens: 2633
Registrado em: 31 Dez 2015, 12:13
Localização: Campos dos Goyta City - RJ

Re: O QUE TEM NO SEU CTRL+V?

Mensagem por GilsonVGPR » 13 Jun 2019, 11:19

alexandre.vasco escreveu:
13 Jun 2019, 10:40
Mohammed Lisboa escreveu:
13 Jun 2019, 10:13
alexandre.vasco escreveu:
12 Jun 2019, 08:16


Tu me lembra um forista que foi banido

Rsilva

:pens:
Por que o Rsilva foi banido?
Não sei exatamente o motivo
Olhei lá nos banimentos, e está escrito que foi por descumprimento de acordo estabelecido com a administração, para a volta dele. :pens:

viewtopic.php?f=88&t=2752#p688521 :lore:

Acho que aquelas/essas postagens dele/deste que derrubavam/derrubam(?) o fórum. :fkc:
𝒞. 𝑅. 𝒱𝒜𝒮𝒞𝒪 𝒟𝒜 𝒢𝒜𝑀𝒜 -> 𝒞𝒪𝒩𝒬𝒰𝐼𝒮𝒯𝒪𝒰: 𝒮𝒰𝐿-𝒜𝑀𝐸𝑅𝐼𝒞𝒜𝒩𝒪 𝒟𝐸 𝒞𝐿𝒰𝐵𝐸𝒮 𝒞𝒜𝑀𝒫𝐸𝒪̃𝐸𝒮 𝒟𝐸 𝟣𝟫𝟦𝟪 (𝒫𝑅𝐸𝒞𝒰𝑅𝒮𝒪𝑅 𝒟𝒜 𝒯𝒜Ç𝒜 𝐿𝐼𝐵𝐸𝑅𝒯𝒜𝒟𝒪𝑅𝐸𝒮 𝒟𝒜 𝒜𝑀𝐸́𝑅𝐼𝒞𝒜 𝐸 𝒟𝒜 𝒰𝐸𝐹𝒜 𝒞𝐻𝒜𝑀𝒫𝐼𝒪𝒩𝒮 𝐿𝐸𝒜𝒢𝒰𝐸). | 𝒯𝒪𝑅𝒩𝐸𝐼𝒪 𝐼𝒩𝒯𝐸𝑅𝒩𝒜𝒞𝐼𝒪𝒩𝒜𝐿 𝒟𝐸 𝒫𝒜𝑅𝐼𝒮 𝒟𝐸 𝟣𝟫𝟧𝟩 (𝒫𝑅𝐸𝒞𝒰𝑅𝒮𝒪𝑅 𝒟𝒜 𝒞𝒪𝒫𝒜 𝐼𝒩𝒯𝐸𝑅𝒞𝒪𝒩𝒯𝐼𝒩𝐸𝒩𝒯𝒜𝐿 / 𝒯𝒪𝑅𝒩𝐸𝐼𝒪 𝑀𝒰𝒩𝒟𝐼𝒜𝐿 𝒟𝐸 𝒞𝐿𝒰𝐵𝐸𝒮). 𝒞𝒪𝒩𝐹𝐼𝑅𝒜 𝒜𝒬𝒰𝐼.

VasTJK
Promessa
Promessa
Mensagens: 73
Registrado em: 05 Abr 2019, 21:27

Re: O QUE TEM NO SEU CTRL+V?

Mensagem por VasTJK » 13 Jun 2019, 11:33

GilsonVGPR escreveu:
13 Jun 2019, 10:10
Rvarzim escreveu:
11 Jun 2019, 22:23
Imagem
A Paolla é top, mas, nessa foto parece que tomou uma. :drink:
Depois de 2 anos consumindo crack ela deve ficar assim...

Avatar do usuário
hmleite
Promessa
Promessa
Mensagens: 40
Registrado em: 04 Jan 2016, 13:52
Localização: João Pessoa - PB

Re: O QUE TEM NO SEU CTRL+V?

Mensagem por hmleite » 14 Jun 2019, 08:43

No erro desculpável, fazendo uma análise levando-se em consideração o “homem médio”, entende-se que não teria como o agente ter consciência plena daquela conduta delituosa e exclui o dolo, já o inescusável, exclui o Dolo, mas permite a punição pelo crime culposo, se houver.
Enviado do meu Siemens A 40.

wellyson
Promessa
Promessa
Mensagens: 328
Registrado em: 15 Out 2016, 13:52
Localização: Natal/RN

Re: O QUE TEM NO SEU CTRL+V?

Mensagem por wellyson » 14 Jun 2019, 13:26

B4CA44AFB0AD39AA86FD5EA25FFCBF80C8D36E1A

Avatar do usuário
Rvarzim
Promessa
Promessa
Mensagens: 84
Registrado em: 18 Mai 2019, 12:35
Localização: Rio de Janeiro

O QUE TEM NO SEU CTRL+V?

Mensagem por Rvarzim » 14 Jun 2019, 17:56

Imagem
LIBERDADE acima de tudo. NINGUÉM acima de todos. DEUS dentro da fé de cada um.

Avatar do usuário
Rvarzim
Promessa
Promessa
Mensagens: 84
Registrado em: 18 Mai 2019, 12:35
Localização: Rio de Janeiro

O QUE TEM NO SEU CTRL+V?

Mensagem por Rvarzim » 14 Jun 2019, 18:18

Imagem
LIBERDADE acima de tudo. NINGUÉM acima de todos. DEUS dentro da fé de cada um.

jpdantas
Júnior
Júnior
Mensagens: 1202
Registrado em: 05 Fev 2017, 18:28
Localização: Natal

Re: O QUE TEM NO SEU CTRL+V?

Mensagem por jpdantas » 18 Jun 2019, 10:09

juntar $ pra fazer um aporte no momento oportuno
Se não escolhermos as nossas prioridades alguém fará isso por nós.

Avatar do usuário
VASCORAGEM
Profissional
Profissional
Mensagens: 5897
Registrado em: 31 Dez 2015, 10:01
Localização: Rio de Janeiro - RJ, Brasil

Re: O QUE TEM NO SEU CTRL+V?

Mensagem por VASCORAGEM » 24 Jun 2019, 18:40

Imagem

Avatar do usuário
Dom Pedro III
Juvenil
Juvenil
Mensagens: 863
Registrado em: 08 Jan 2018, 21:29

Re: O QUE TEM NO SEU CTRL+V?

Mensagem por Dom Pedro III » 10 Jul 2019, 01:25

O quadro abaixo da postagem se chama "Destruição", a penúltima das pinturas na série "O Curso do Império", do estadunidense Thomas Cole.

Imaginemos o choque que seria caso os Estados Unidos da América caíssem economicamente e politicamente sem uma previsão divulgada pela mídia. Seríamos pegos de surpresa (mesmo que isso esteja de fato ocorrendo). Apenas imaginem o que ocorreria com coisas como a Bolsa de Valores, ou organizações mundiais como a ONU. Ocorreriam muitas complicações geopolíticas pelo fato de que os Estados Unidos são o império global, e um império caindo consequentemente leva à precariedade de vários setores.

Mas levemos esta questão aos tempos em que tudo era menos tecnológico, fora da era das informações. Imaginem se um império como o de Roma caísse. Pense nas consequências que isso teria. Este foi um dos motivos pelos quais a Idade Média se iniciou. A queda do império romano fez com que todas as instituições e cidades conhecidas e estabelecidas não funcionassem mais.

Com a queda do Império Romano nas mãos de seus governantes corruptos e dos povos germânicos, os domínios romanos obviamente estavam em um estado caótico. A pilhagem era massiva, a quebra de monumentos e queima de documentos era absurda. A Idade Média surgia da queda de uma hegemonia de ordem política e social essencialmente romana.


Muitos historiadores marcam a Idade Média como a era do "obscurantismo". Entretanto, o suposto obscurantismo, não foi obra de uma sociedade católica cristã dogmática, mas sim de um ambiente hostil de guerra total. Thomas Hobbes já levantava o questionamento em "Leviatã", sobre a situação do homem em estado de guerra de todos contra todos: "Numa tal situação não há lugar para a indústria, pois seu fruto é incerto; consequentemente não há cultiva da terra, nem navegação, nem uso das mercadorias que podem ser importadas pelo mar; não há construções confortáveis, nem instrumentos para
mover e remover as coisas que precisam de grande força; não há conhecimento da face da Terra, nem cômputo do tempo, nem artes, nem letras; não há sociedade; e o que é pior do que tudo, um constante temor e perigo de morte violenta. E a vida do homem é solitária, pobre, sórdida, embrutecida e curta."

A Idade média era um período no qual você tinha a possibilidade brutal de ser pilhado por algum homem armado ou camponês desesperado, além de nenhuma perspectiva de defesa por simples falta de recursos próprios ou da vila ou cidade na qual você vive. Em um ambiente hostil cuja sobrevivência é a única coisa que importa, qual a possibilidade de uma vida intelectual florescente neste meio? Quase nula.

Leituras sugeridas para ampliar o conhecimento sobre o Império Romano e sua queda.

- WICKHAM, Chris. The Inheritance of Rome.
- WOODS, Thomas. How the Catholic Church has built Western Civilization.
“There is not a more perilous or immoral habit of mind than the sanctifying of success.”

John Dalberg-Acton

zcpinheiro
Júnior
Júnior
Mensagens: 1077
Registrado em: 22 Fev 2016, 13:05
Localização: Rio de Janeiro

Re: O QUE TEM NO SEU CTRL+V?

Mensagem por zcpinheiro » 10 Jul 2019, 10:20

Text
---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
--25416 Moana (ANDORINHA) BLOCO 2 - 403 (43119) 13871 - MRR CRED INTERMEDIACAO FINANCEIRA LTDA - Atraso: 558.637,95 quit: 3.940,64
--25401 Moana (ANDORINHA) LOJAS - 02 (43148) 49066 - VALDEMAR TEIXEIRA DE VASCONCELOS - Atraso: 565.723,68 quit: 75.377,10
--25443 Moana (ANDORINHA) LOJAS - 01 (43147) 49054 - ROSENEA DE OLIVEIRA NECO - Atrasado: 497.092,49 quit: 1.362.380,66

/*

select
v.Vencto,*
from
planejamento..Recebiveis_a_Vencer_MEGA v with (nolock)
where
Cod_Versao = 340
and AnoMes_Carga = 201905
and v.Cod_Empreendimento = 9938
--and year(v.Vencto) < 2010
and v.Num_Contrato = '25537'



*/
CREATE Procedure [dbo].[sp_Mostra_Acompanhamento_Repasse_v2]
@AnoBase int = 0,
@spid int = 0,
@Estoque int = 1

as
Set nocount on


declare @Data_Base datetime
declare @AnoMes int

if @AnoBase = 0 begin
select @Data_Base = '20991231'
select @AnoBase = MAX(AnoMêsCarga) from Parcela_inadimplecia
end else begin
select @Data_Base = dateadd(m,1,cast(cast(@AnoBase as CHAR(6)) + '01' as datetime))
end

--delete w_Parcela_inadimplecia where spid = @spid

--insert into w_Parcela_inadimplecia (spid,Id_Unidades,Valor,Data)
select
spid = @spid,
Id_Unidades = Id_Unidades,
Valor = SUM(valor),
Data = MIN(Data)
into #Parcela_inadimplecia
from
Parcela_inadimplecia with (nolock)
where
AnoMêsCarga = @AnoBase
group by Id_Unidades

--print @AnoBase

--delete w_Pagos where spid = @spid

--insert into w_Pagos (spid, Num_Contrato, desconto, Valor_Principal,Valor_Pago)
select
spid = @spid,
Num_Contrato = Num_Contrato,
Desconto = SUM(Valor_Desconto),
Valor_Principal = SUM(Valor_Corrigido),
Valor_Pago = sum(Valor_Pago)
into #Pagos
from
planejamento..RecebiveisPagos_MEGA_V2 v with (nolock)
where
Cod_Versao = 340
and AnoMes_Carga = 100000
and Num_Contrato not in (18457, 18421, 18459, 18419, 18414, 18460, 18420, 18415, 18447, 18445, 18431, 18450, 18452,
18443, 18416, 18442, 18441, 18432, 18439, 18436, 18435, 18440, 18454, 18461, 18463, 18434, 19429)
--and Num_Contrato not in (18457, 20322, 18421, 18554, 18459, 23552, 18419, 18553, 18414, 18733, 18460, 23565, 18420, 20231,
-- 18415, 18552, 18447, 18576, 18445, 20197, 18431, 20556, 18450, 18619, 18452, 20829, 18443, 20560,
-- 18416, 18551, 18442, 18550, 18441, 20647, 18432, 22383, 18439, 22672, 18436, 18547, 18435, 21713,
-- 18440, 18544, 18454, 18577, 18461, 20826, 18462, 19429, 18463, 19974, 18434, 18749)


group by Num_Contrato

--union all
insert into #Pagos (spid,Num_Contrato, Desconto, Valor_Principal, Valor_Pago)
select
spid= @spid,
Num_Contrato = Num_Contrato,
Desconto = SUM(Valor_Desconto),
Valor_Principal = SUM(Valor_Corrigido),
Valor_Pago = sum(Valor_Pago)
--into #Pagos
from
planejamento..RecebiveisPagos_MEGA_V2 v with (nolock)
where
Cod_Versao = 340
and AnoMes_Carga = 100000
and Num_Contrato in (18457, 18421, 18459, 18419, 18414, 18460, 18420, 18415, 18447, 18445, 18431, 18450, 18452,
18443, 18416, 18442, 18441, 18432, 18439, 18436, 18435, 18440, 18454, 18461, 18463, 18434, 19429)
and v.Tipo_Parcela <> 'Sinal'
group by Num_Contrato

--union all

--insert into #Pagos (spid,Num_Contrato, Desconto, Valor_Principal, Valor_Pago)
--select
-- spid = @spid,
-- Num_Contrato = Num_Contrato,
-- Desconto = SUM(Valor_Desconto),
-- Valor_Principal = SUM(Valor_Corrigido),
-- Valor_Pago = sum(Valor_Pago)
----into #Pagos
--from
-- planejamento..RecebiveisPagos_MEGA_V2 v with (nolock)
--where
-- Cod_Versao = 340
-- and AnoMes_Carga = 100000
-- and Num_Contrato in (20322, 18554, 23552, 18553, 18733, 23565, 20231, 18552, 18576, 20197, 20556, 18619, 20829,
-- 20560, 18551, 18550, 20647, 22383, 22672, 18547, 21713, 18544, 18577, 20826, 19974, 18749, 18462)
--group by Num_Contrato

select
@AnoMes = MAX(AnoMes_Carga)
from
planejamento..Recebiveis_a_Vencer_MEGA v with (nolock)
where
Cod_Versao = 340

--delete w_Vencer where spid = @spid
--insert into w_Vencer (spid, Num_Contrato,Valor,Conclusao, Dt_Conclusao)
select
spid = @spid,
Num_Contrato = Num_Contrato,
Valor = sum(Valor_Corrigido_DataBase),
Valor_Juros_Multa = sum( case when v.Num_Contrato = '25416' then 0. else
--isnull(v.Valor_Corrigido_Juros_Multa ,0)
isnull(Valor_Corrigido_DataBase,0) + isnull( v.Valor_Multa,0) + isnull( v.Valor_Juros,0)

end),
Conclusao = sum(case when Serie_Parcela = 'conclusão' then
Valor_Corrigido_DataBase
else
0.
end),
Dt_Conclusao = max(case when Serie_Parcela = 'conclusão' then
Vencto
else
null
end)
into #Vencer
from
planejamento..Recebiveis_a_Vencer_MEGA v with (nolock)
where
Cod_Versao = 340
--and AnoMes_Carga = 201905
and AnoMes_Carga = @AnoMes
group by Num_Contrato



--delete W_MAX_Andamento where spid = @spid

--insert into W_MAX_Andamento (spid, Id_Unidades,Id_Andamento)
select
spid = @spid,
Id_Unidades = Id_Unidades,
Id_Andamento = max(Id_Andamento),
Data = cast('19900101' as datetime),
Andamento = cast('' as varchar(8000)),
id_farol = cast(0 as int),
id_sintese = cast(0 as int)

into #MAX_Andamento
from
Andamento with (nolock)
where
Data < @Data_Base
and (Cod_Usuario NOT IN (3, 7) or Cod_Usuario is null)
group by Id_Unidades

update w
set Data = a.data,
Andamento = isnull(a.Andamento,''),
id_farol = a.id_farol,
id_sintese = a.id_sintese
from
#MAX_Andamento w join Andamento a with (nolock)
on w.Id_Andamento = a.Id_Andamento
and w.Id_Unidades = a.Id_Unidades
where
spid = @spid

select
spid = @spid,
Unidades_Estoque = Unidades_Estoque,
Id_Andamento = max(Id_Andamento),
Data = cast('19900101' as datetime),
Andamento = cast('' as varchar(8000)),
id_farol = cast(0 as int),
id_sintese = cast(0 as int)

into #MAX_Andamento_Estoque
from
Andamento_Estoque with (nolock)
where
Data < @Data_Base
group by Unidades_Estoque


update w
set Data = a.data,
Andamento = isnull(a.Andamento,''),
id_farol = a.id_farol,
id_sintese = a.id_sintese
from
#MAX_Andamento_Estoque w join Andamento_Estoque a with (nolock)
on w.Id_Andamento = a.Id_Andamento
and w.Unidades_Estoque = a.Unidades_Estoque
where
spid = @spid




--if @Estoque = 1 begin

select
--spid = @spid,
Cod_Empreendimento = e.Cod_Empreendimento,
Bloco = e.Bloco,
Unidade = e.Unidade,
data = max(e.Data),
Preco = 0
into #Estoque
from
planejamento..Estoque_Mes e with (nolock)
where
e.Unidade is not null
and e.Cod_Versao = 340
and @Estoque = 1
group by e.Cod_Empreendimento,e.Bloco,e.Unidade


update em
set preco = e.valor
from
#Estoque em join planejamento..Estoque_Mes e
on em.data = e.Data
--and em.Unidade = ltrim(rtrim(substring(e.Unidade,0,charindex('(',e.Unidade))))
and em.Unidade = e.Unidade


--end


select distinct
id = isnull(u.Id_Unidades,0),
Data = a.Data,
Empreendimento= e.Nome_Empreendimento,
Empresa = isnull(emp.Nome_Empresa,''),
CNPJ = isnull(dbo.Format_CNPJ(emp.CNPJ),''),
Bloco = v.Bloco,
Unidade= v.Unidade,
Cliente= case when f.Id_Farol = 8 then ''
else LTRIM(RTRIM(CAST(c.cod_cliente_mega AS CHAR(5)))) + ' - ' + c.Nome
end,
Data_Contrato = cast(SUBSTRING(v.Data_Assinatura,7,4) + SUBSTRING(v.Data_Assinatura,4,2) + SUBSTRING(v.Data_Assinatura,1,2) as datetime),
Contrato= v.Num_Contrato,
Valor_PVC= isnull(v.Valor_Venda,0),
Total_Pago= isnull(p.Valor_Pago,0),

Desconto = isnull(p.Desconto,0),

Saldo= isnull(wv.Valor,0),
CV_Atualizada = isnull(wv.Valor,0.) + isnull(p.Valor_Pago,0.),-- isnull(p.Valor_Principal,0.),
Valor_atraso = isnull(wpi.valor,0),
Valor_Juros_Multa = case when v.Num_Contrato in ('25416','25401') then
isnull(wv.Valor_Juros_Multa,0) + isnull(wpi.valor,0)
else
isnull(wv.Valor_Juros_Multa,0)
end,
Farol= case when v.Num_Contrato = 0 then
v.Status_Unidade + ' - ' + v.Status_Contrato
else
F.Descricao
end,
Sintese= case when v.Num_Contrato = 0 then
v.Status_Unidade + ' - ' + v.Status_Contrato
else
s.Descricao
end,
ITBI,
bc.Acordo,
Hipoteca,
Pe.Penhora,
Valor_Penhora = pu.valor,
nome_Banco,
data_contrato_financiamento = case when data_contrato_financiamento < '19100101' then null else data_contrato_financiamento end,
contrato_financiamento,
Valor_Financiamento,
FGTS,
Data_Movimento = case when Data_Movimento < '19100101' then null else Data_Movimento end,
Valor_IQ,
Data_Movimento_IQ = case when Data_Movimento_IQ < '19100101' then null else Data_Movimento_IQ end,
Valor_Remanescente = case when ISNULL(Valor_IQ,0) = 0 then 0 else
(ISNULL(Valor_Financiamento,0) + ISNULL(FGTS,0)) - ISNULL(Valor_IQ,0)
end,
Data_Movimento2 = case when Data_Movimento2 < '19100101' then null else Data_Movimento2 end,
Rendimento,
Diferenca_VMD_Pago_pela_Vendedora,
Data_Movimento3 = case when Data_Movimento3 < '19100101' then null else Data_Movimento3 end ,
Conta_Corrente,
Recebido = case when Recebido < '19100101' then null else Recebido end,

d.Desconto_Autorizado,
d.Assuncao_Divida,
d.Multa_Atraso_Obra,
d.Desconto_Antecipacao,
d.Desconto_Residual,

Procurado_Dor1,
Procurado_Dor2,
Enviado_para_IQ = case when Enviado_para_IQ < '19100101' then null else Enviado_para_IQ end,
Retorno_para_IQ = case when Retorno_para_IQ < '19100101' then null else Retorno_para_IQ end,
Envio_para_Cliente = case when Envio_para_Cliente < '19100101' then null else Envio_para_Cliente end,
Prenota = case when Prenota < '19100101' then null else Prenota end,
Prenotacao,
Responsavel_registro,
sr.Status_Registro,
Observacoes= isnull(A.Andamento,mae.Andamento),
PreVencimento = case when PreVencimento < '19100101' then null else PreVencimento end,
Noticacao_10D = case when Noticacao_10D < '19100101' then null else Noticacao_10D end,
Noticacao_30D = case when Noticacao_30D < '19100101' then null else Noticacao_30D end,
Noticacao_60D = case when Noticacao_60D < '19100101' then null else Noticacao_60D end,
Vistoria = case when Vistoria < '19100101' then null else Vistoria end,
Chaves = case when Chaves < '19100101' then null else Chaves end,
Notficacao_Aviso,
Notficacao_RTD,
Data_Leilao = case when Data_Leilao < '19100101' then null else Data_Leilao end,
Data_Leilao2 = case when Data_Leilao2 < '19100101' then null else Data_Leilao2 end,
data_distrato = case when data_distrato < '19100101' then null else data_distrato end,
Dt_Conclusao = wv.Dt_Conclusao,
Classificacao_Financeira = cf.Nome,
Nome_Usuario = u2.Nome_Usuario,
Atrasado = case when f.Id_Farol = 8 then 0
else isnull(abs(DATEDIFF(d,wpi.data,getdate())),0)
end,
data_entraga = case when data_entraga < '19100101' then null else data_entraga end,
data_entraga_repcactuada = case when data_entraga_repcactuada < '19100101' then null else data_entraga_repcactuada end,
Liberacao_chaves = case when Liberacao_chaves < '19100101' then null else Liberacao_chaves end,
gc.Banco,
gc.Tipo_Garantia,
bc.Num_Processo,
tpa.TP_Acao

from
planejamento..Vendas_MEGA v join Empreendimento e
on v.Cod_Empreendimento = e.Cod_Empreendimento
join Empresa emp
on e.Cod_Empresa = emp.Cod_Empresa
left join Unidades u
on ltrim(rtrim(v.Num_Contrato)) = ltrim(rtrim(u.Num_Contrato))
left join Cliente c
on u.cod_cliente = c.cod_cliente_mega
left join #MAX_Andamento a with (nolock)
on a.Id_Unidades = u.Id_Unidades
And a.spid = @spid
left join Farol f
on a.id_farol = f.Id_Farol
left join Sintese s
on a.id_sintese = s.Id_Sintese
left join #Pagos p with (nolock)
on p.Num_Contrato = u.Num_Contrato
and p.spid = @spid
left join #Vencer wv with (nolock)
on wv.Num_Contrato = u.Num_Contrato
and wv.spid = @spid
left join Base_Acompanhamento_Repasse bc
on bc.Id_Unidades = u.Id_Unidades
left join Status_Registro sr
on sr.Cod_Status_Registro = bc.Cod_Status_Registro
left join #Parcela_inadimplecia wpi
on wpi.Id_Unidades = u.Id_Unidades
and wpi.spid = @spid
left join Classificacao_Financeira cf
on bc.Id_Classificacao_Financeira = cf.Id_Classificacao_Financeira
left join Usuario2 u2
on u2.Cod_Usuario = bc.Cod_Usuario
left join Desconto_Unidades d
on d.Id_Unidades = u.Id_Unidades
left join Penhora_unidade pu
on pu.unidade = v.Unidade
left join Penhora pe
on Pe.Id_Penhora = pu.Id_Penhora
left join #MAX_Andamento_Estoque mae
on mae.Unidades_Estoque = v.Unidade
left join Garantia_Contrato gc
on gc.Id_Unidades = cast(substring(v.Unidade,charindex('(',v.Unidade) + 1,charindex(')',v.Unidade) - charindex('(',v.Unidade) - 1 ) as integer)
left join TP_Acao tpa on tpa.Cod_TP_Acao = bc.Cod_TP_Acao
where
v.Cod_Versao = 340
--and v.status_unidade not in ( 'Disponível','Permutada','Transferido')
--and v.status_unidade not in ( 'Permutada','Transferido')
and v.Status_Contrato not in ('Distratado','Transferido','Cessão de Direitos','Sem Contrato')
and v.Desc_Empreendimento not in ('PALMS RECREIO - RPC','PALMS RECREIO - POWER','PALMS RECREIO - AREAS FERREIRA',
'WEST VINTAGE- PERMUTANTE LBJMIR','MELIA ANGRA DECK KIT','LA PLAYA FESTMALL - LOTE 8 - CURACAO DECOR')
and v.Cod_Empreendimento not in (10037)
--and not exists (select 1
-- from planejamento..Vendas_MEGA_Movimentacao r2
-- where r2.Cod_Versao = 340
-- and r2.Cod_Empreendimento = v.Cod_Empreendimento
-- and r2.Bloco = v.Bloco
-- and r2.Unidade = v.Unidade
-- and r2.Num_Contrato = v.Num_Contrato
-- and r2.Status_Unidade2 = 'Estoque')

union all

select distinct
id = isnull(u.Id_Unidades,0),
Data = a.Data,
Empreendimento= e.Nome_Empreendimento,
Empresa = isnull(emp.Nome_Empresa,''),
CNPJ = isnull(dbo.Format_CNPJ(emp.CNPJ),''),
Bloco = v.Bloco,
Unidade= v.Unidade,
Cliente= case when f.Id_Farol = 8 then ''
else LTRIM(RTRIM(CAST(c.cod_cliente_mega AS CHAR(5)))) + ' - ' + c.Nome
end,
Data_Contrato = cast(SUBSTRING(v.Data_Assinatura,7,4) + SUBSTRING(v.Data_Assinatura,4,2)
+ SUBSTRING(v.Data_Assinatura,1,2) as datetime),

------------------------------------------------------------------------------------
Contrato= isnull(v.Num_Contrato,'') + ' ' + isnull(v2.Num_Contrato,''),
Valor_PVC= isnull(v2.Valor_Venda,v.Valor_Venda),
Total_Pago= isnull(p.Valor_Pago,0) + isnull(p2.Valor_Pago,0), --Tirar Sinal

Desconto = isnull(p.Desconto,0) + isnull(p2.Desconto,0),

Saldo= isnull(wv.Valor,0) + isnull(wv2.Valor,0),

CV_Atualizada = isnull(wv2.Valor,0.) + isnull(p2.Valor_Pago,0.),

Valor_atraso = isnull(wpi.valor,0) + isnull(wpi2.valor,0),
Valor_Juros_Multa = isnull(wv.Valor_Juros_Multa,0) + isnull(wv2.Valor_Juros_Multa,0),

------------------------------------------------------------------------------------------

Farol= case when v.Num_Contrato = 0 then
v.Status_Unidade + ' - ' + v.Status_Contrato
else
F.Descricao
end,
Sintese= case when v.Num_Contrato = 0 then
v.Status_Unidade + ' - ' + v.Status_Contrato
else
s.Descricao
end,
ITBI,
bc.Acordo,
Hipoteca,
pe.Penhora ,
Valor_Penhora = pu.valor,
nome_Banco,
data_contrato_financiamento = case when data_contrato_financiamento < '19100101' then null
else data_contrato_financiamento end,
contrato_financiamento,
Valor_Financiamento,
FGTS,
Data_Movimento = case when Data_Movimento < '19100101' then null else Data_Movimento end,
Valor_IQ,
Data_Movimento_IQ = case when Data_Movimento_IQ < '19100101' then null else Data_Movimento_IQ end,
Valor_Remanescente = case when ISNULL(Valor_IQ,0) = 0 then 0 else
(ISNULL(Valor_Financiamento,0) + ISNULL(FGTS,0)) - ISNULL(Valor_IQ,0)
end,
Data_Movimento2 = case when Data_Movimento2 < '19100101' then null else Data_Movimento2 end,
Rendimento,
Diferenca_VMD_Pago_pela_Vendedora,
Data_Movimento3 = case when Data_Movimento3 < '19100101' then null else Data_Movimento3 end ,
Conta_Corrente,
Recebido = case when Recebido < '19100101' then null else Recebido end,

d.Desconto_Autorizado,
d.Assuncao_Divida,
d.Multa_Atraso_Obra,
d.Desconto_Antecipacao,
d.Desconto_Residual,

Procurado_Dor1,
Procurado_Dor2,
Enviado_para_IQ = case when Enviado_para_IQ < '19100101' then null else Enviado_para_IQ end,
Retorno_para_IQ = case when Retorno_para_IQ < '19100101' then null else Retorno_para_IQ end,
Envio_para_Cliente = case when Envio_para_Cliente < '19100101' then null else Envio_para_Cliente end,
Prenota = case when Prenota < '19100101' then null else Prenota end,
Prenotacao,
Responsavel_registro,
sr.Status_Registro,
Observacoes= isnull(A.Andamento,mae.Andamento),
PreVencimento = case when PreVencimento < '19100101' then null else PreVencimento end,
Noticacao_10D = case when Noticacao_10D < '19100101' then null else Noticacao_10D end,
Noticacao_30D = case when Noticacao_30D < '19100101' then null else Noticacao_30D end,
Noticacao_60D = case when Noticacao_60D < '19100101' then null else Noticacao_60D end,
Vistoria = case when Vistoria < '19100101' then null else Vistoria end,
Chaves = case when Chaves < '19100101' then null else Chaves end,
Notficacao_Aviso,
Notficacao_RTD,
Data_Leilao = case when Data_Leilao < '19100101' then null else Data_Leilao end,
Data_Leilao2 = case when Data_Leilao2 < '19100101' then null else Data_Leilao2 end,
data_distrato = case when data_distrato < '19100101' then null else data_distrato end,
Dt_Conclusao = wv.Dt_Conclusao,
Classificacao_Financeira = cf.Nome,
Nome_Usuario = u2.Nome_Usuario,
Atrasado = case when f.Id_Farol = 8 then 0
else isnull(abs(DATEDIFF(d,wpi.data,getdate())),0)
end,
data_entraga = case when data_entraga < '19100101' then null else data_entraga end,
data_entraga_repcactuada = case when data_entraga_repcactuada < '19100101' then null
else data_entraga_repcactuada end,
Liberacao_chaves = case when Liberacao_chaves < '19100101' then null else Liberacao_chaves end,
gc.Banco,
gc.Tipo_Garantia,
bc.Num_Processo,
tpa.TP_Acao
from
planejamento..Vendas_MEGA v
join Empreendimento e
on v.Cod_Empreendimento = e.Cod_Empreendimento
join Empresa emp
on e.Cod_Empresa = emp.Cod_Empresa
and e.Cod_Empreendimento =10037
left join Unidades u
on ltrim(rtrim(v.Num_Contrato)) = ltrim(rtrim(u.Num_Contrato))
left join Cliente c
on u.cod_cliente = c.cod_cliente_mega
left join #MAX_Andamento a with (nolock)
on a.Id_Unidades = u.Id_Unidades
And a.spid = @spid
left join Farol f
on a.id_farol = f.Id_Farol
left join Sintese s
on a.id_sintese = s.Id_Sintese
left join #Pagos p with (nolock)
on p.Num_Contrato = u.Num_Contrato
and p.spid = @spid
left join #Vencer wv with (nolock)
on wv.Num_Contrato = u.Num_Contrato
and wv.spid = @spid
left join Base_Acompanhamento_Repasse bc
on bc.Id_Unidades = u.Id_Unidades
left join Status_Registro sr
on sr.Cod_Status_Registro = bc.Cod_Status_Registro
left join #Parcela_inadimplecia wpi
on wpi.Id_Unidades = u.Id_Unidades
and wpi.spid = @spid
left join Classificacao_Financeira cf
on bc.Id_Classificacao_Financeira = cf.Id_Classificacao_Financeira
left join Usuario2 u2
on u2.Cod_Usuario = bc.Cod_Usuario
left join Desconto_Unidades d
on d.Id_Unidades = u.Id_Unidades
left join planejamento..Vendas_MEGA v2
on v.Cod_Versao = v2.Cod_Versao
and v.Cod_Empreendimento = v2.Cod_Empreendimento
--and v.Status_Contrato = v2.Status_Contrato
and v.status_unidade = v2.status_unidade
and v.Bloco = v2.Bloco
and ltrim(rtrim(substring(v.Unidade,0,charindex('(',v.Unidade)))) =
ltrim(rtrim(substring(v2.Unidade,0,charindex('(',v2.Unidade))))
and v2.Desc_Empreendimento in ('PALMS RECREIO - RPC','PALMS RECREIO - POWER','PALMS RECREIO - AREAS FERREIRA')
left join Unidades un
on ltrim(rtrim(v2.Num_Contrato)) = ltrim(rtrim(un.Num_Contrato))
and un.Cod_Empreendimento = 10037
left join #Pagos p2 with (nolock)
on p2.Num_Contrato = un.Num_Contrato
and p2.spid = @spid
left join #Vencer wv2 with (nolock)
on wv2.Num_Contrato = un.Num_Contrato
and wv2.spid = @spid
left join #Parcela_inadimplecia wpi2 with (nolock)
on wpi2.Id_Unidades = un.Id_Unidades
and wpi2.spid = @spid
left join Penhora_unidade pu
on pu.unidade = v.Unidade
left join Penhora pe
on Pe.Id_Penhora = pu.Id_Penhora
left join #MAX_Andamento_Estoque mae
on mae.Unidades_Estoque = v.Unidade
left join Garantia_Contrato gc
on gc.Id_Unidades = cast(substring(v.Unidade,charindex('(',v.Unidade) + 1,charindex(')',v.Unidade) - charindex('(',v.Unidade) - 1 ) as integer)
left join TP_Acao tpa on tpa.Cod_TP_Acao = bc.Cod_TP_Acao
where
v.Cod_Versao = 340
and v.Cod_Empreendimento = 10037
--and Bloco = 'BLOCO 9'
--and ltrim(rtrim(substring(Unidade,0,charindex('(',Unidade)))) = 109
and v.status_unidade not in ( 'Permutada','Transferido')
and v.Status_Contrato not in ('Distratado','Transferido','Cessão de Direitos','Sem Contrato')
and v.Desc_Empreendimento not in ('PALMS RECREIO - RPC','PALMS RECREIO - POWER','PALMS RECREIO - AREAS FERREIRA',
'WEST VINTAGE- PERMUTANTE LBJMIR','MELIA ANGRA DECK KIT','LA PLAYA FESTMALL - LOTE 8 - CURACAO DECOR')


union all

select
id = 0,
Data = null,
Empreendimento= e.Nome_Empreendimento,
Empresa = isnull(emp.Nome_Empresa,''),
CNPJ = isnull(dbo.Format_CNPJ(emp.CNPJ),''),
Bloco = v.Bloco,
Unidade= v.Unidade,
Cliente= null,
Data_Contrato= null,
Contrato= Num_Contrato,
Valor_PVC= 0,
Total_Pago= 0,
Desconto = 0,
Saldo= isnull(em.preco,0),
CV_Atualizada = 0 ,
Valor_atraso = 0,
Valor_Juros_Multa = isnull(em.preco,0),
Farol= 'ESTOQUE',
Sintese= 'EM ESTOQUE',
ITBI= null,
Acordo= null,
Hipoteca= null,
Penhora = pe.Penhora,
Valor_Penhora = pu.valor,
nome_Banco= null,
Contrato_financiamento= null,
Data_Contrato_financiamento= null,
Valor_Financiamento= null,
FGTS= null,
Data_Movimento3 = null,
Valor_IQ = null,
Data_Movimento_IQ= null,
Valor_Remanescente= null,
Data_Movimento= null,
Rendimento= null,
Diferenca_VMD_Pago_pela_Vendedora= null,
Data_Movimento2 = null,
Conta_Corrente= null,
Recebido= null,
Desconto_Autorizado= null,
Assuncao_Divida= null,
Multa_Atraso_Obra= null,
Desconto_Antecipacao= null,
Desconto_Residual= null,
Procurado_Dor1= null,
Procurado_Dor2= null,
Enviado_para_IQ= null,
Retorno_para_IQ= null,
Envio_para_Cliente= null,
Prenota= null,
Prenotacao= null,
Responsavel_registro = null,
Status_Registro= null,
Observacoes= mae.Andamento,
PreVencimento= null,
Noticacao_10D= null,
Noticacao_30D= null,
Noticacao_60D= null,
Vistoria= null,
Chaves= null,
Notficacao_Aviso = null,
Notficacao_RTD = null,
Data_Leilao = null,
Data_Leilao2 = null,
data_distrato = null,
Dt_Conclusao = null,
Classificacao_Financeira = null,
Nome_Usuario = null,
Atraso = null,
data_entraga = null,
data_entraga_repcactuada = null,
Liberacao_chaves = null,
gc.Banco,
gc.Tipo_Garantia,
TP_Acao = null,
Num_Processo = null

from
planejamento..Vendas_MEGA v join Empreendimento e
on v.Cod_Empreendimento = e.Cod_Empreendimento
join Empresa emp
on e.Cod_Empresa = emp.Cod_Empresa
left join PLANEJAMENTO..Projecao_Vendas pv
on pv.Cod_Versao = v.Cod_Versao
and pv.Cod_Empreendimento = v.Cod_Empreendimento
and pv.Bloco = v.Bloco
and pv.Unidade = v.Unidade
and permuta = 1
left join #Estoque em
--on ltrim(rtrim(substring(v.Unidade,0,charindex('(',v.Unidade)))) = em.Unidade
on v.Unidade = em.Unidade
and v.Bloco = em.bloco
and v.Cod_Empreendimento = em.Cod_Empreendimento
left join Penhora_unidade pu
on pu.unidade = v.Unidade
left join Penhora pe
on Pe.Id_Penhora = pu.Id_Penhora
left join #MAX_Andamento_Estoque mae
on mae.Unidades_Estoque = v.Unidade
left join Garantia_Contrato gc
on gc.Id_Unidades = cast(substring(v.Unidade,charindex('(',v.Unidade) + 1,charindex(')',v.Unidade) - charindex('(',v.Unidade) - 1 ) as integer)
where
v.Cod_Versao = 340
and pv.Id_Projecao_Vendas is null
and status_unidade in ('Disponível','Permutada','Transferido','Vendida','Sem Contrato')
--and v.Status_Contrato not in ('Distratado')
and exists (select 1
from planejamento..Vendas_MEGA_Movimentacao r2
where r2.Cod_Versao = 340
and r2.Cod_Empreendimento = v.Cod_Empreendimento
and r2.Bloco = v.Bloco
and r2.Unidade = v.Unidade
and r2.Num_Contrato = v.Num_Contrato
and r2.Status_Unidade2 = 'Estoque')
and v.Desc_Empreendimento not in ('PALMS RECREIO - RPC','PALMS RECREIO - POWER','WEST VINTAGE- PERMUTANTE LBJMIR',
'PALMS RECREIO - AREAS FERREIRA','MELIA ANGRA DECK KIT','LA PLAYA FESTMALL - LOTE 8 - CURACAO DECOR')
--and v.Bloco not like '%KITS E OPTION LINE%'
and @Estoque = 1
and v.Cod_Empreendimento not in (
--Retirando empreendimentos que não eram para estar aqui
1381, 1361, 1252, 1388, 1405, 595, 764, 1422, 2566, 3443, 3648, 924, 916, 921, 917, 1410,
724, 1902, 1490, 1487, 1269, 825, 3503, 823, 1513, 1597, 1488, 1518, 1519, 3478, 826,
827, 790, 1353, 1404, 1999, 1201, 3433,
--Retirando empreendimentos antigos
2564,2561,1669,757,698,1390
)
and not exists (select 1
from planejamento..Vendas_MEGA r2
where r2.Cod_Versao = 340
and r2.Cod_Empreendimento = v.Cod_Empreendimento
and r2.Bloco = v.Bloco
and r2.Unidade = v.Unidade
--and r2.Num_Contrato = v.Num_Contrato
--and r2.Status_Unidade2 = 'Estoque'

and r2.status_unidade not in ( 'Permutada','Transferido')
and r2.Status_Contrato not in ('Distratado','Transferido','Cessão de Direitos','Sem Contrato')
and r2.Desc_Empreendimento not in ('PALMS RECREIO - RPC','PALMS RECREIO - POWER','PALMS RECREIO - AREAS FERREIRA',
'WEST VINTAGE- PERMUTANTE LBJMIR','MELIA ANGRA DECK KIT','LA PLAYA FESTMALL - LOTE 8 - CURACAO DECOR')
)

union all

select
id = 0,
Data = null,
Empreendimento= e.Nome_Empreendimento,
Empresa = isnull(emp.Nome_Empresa,''),
CNPJ = isnull(dbo.Format_CNPJ(emp.CNPJ),''),
Bloco = v.Bloco,
Unidade= v.Unidade,
Cliente= null,
Data_Contrato= null,
Contrato= Num_Contrato,
Valor_PVC= 0,
Total_Pago= 0,
Desconto = 0,
Saldo= 0 ,
CV_Atualizada = 0 ,
Valor_atraso = 0,
Valor_Juros_Multa = 0,
Farol= 'PERMUTA',
Sintese= 'PERMUTA',
ITBI= null,
Acordo= null,
Hipoteca= null,
Penhora = pe.Penhora ,
Valor_Penhora = pu.valor,
nome_Banco= null,
Contrato_financiamento= null,
Data_Contrato_financiamento= null,
Valor_Financiamento= null,
FGTS= null,
Data_Movimento3 = null,
Valor_IQ = null,
Data_Movimento_IQ= null,
Valor_Remanescente= null,
Data_Movimento= null,
Rendimento= null,
Diferenca_VMD_Pago_pela_Vendedora= null,
Data_Movimento2 = null,
Conta_Corrente= null,
Recebido= null,
Desconto_Autorizado= null,
Assuncao_Divida= null,
Multa_Atraso_Obra= null,
Desconto_Antecipacao= null,
Desconto_Residual= null,
Procurado_Dor1= null,
Procurado_Dor2= null,
Enviado_para_IQ= null,
Retorno_para_IQ= null,
Envio_para_Cliente= null,
Prenota= null,
Prenotacao= null,
Responsavel_registro = null,
Status_Registro= null,
--null,
Observacoes= mae.Andamento,
PreVencimento= null,
Noticacao_10D= null,
Noticacao_30D= null,
Noticacao_60D= null,
Vistoria= null,
Chaves= null,
Notficacao_Aviso = null,
Notficacao_RTD = null,
Data_Leilao = null,
Data_Leilao2 = null,
data_distrato = null,
Dt_Conclusao = null,
Classificacao_Financeira = null,
Nome_Usuario = null,
Atraso = null,
data_entraga = null,
data_entraga_repcactuada = null,
Liberacao_chaves = null,
gc.Banco,
gc.Tipo_Garantia,
Num_Processo = null,
TP_Acao = null
from
planejamento..Vendas_MEGA v join Empreendimento e
on v.Cod_Empreendimento = e.Cod_Empreendimento
join Empresa emp
on e.Cod_Empresa = emp.Cod_Empresa
join PLANEJAMENTO..Projecao_Vendas pv
on pv.Cod_Versao = v.Cod_Versao
and pv.Cod_Empreendimento = v.Cod_Empreendimento
and pv.Bloco = v.Bloco
and pv.Unidade = v.Unidade
left join Penhora_unidade pu
on pu.unidade = v.Unidade
left join Penhora pe
on Pe.Id_Penhora = pu.Id_Penhora
left join #MAX_Andamento_Estoque mae
on mae.Unidades_Estoque = v.Unidade
left join Garantia_Contrato gc
on gc.Id_Unidades = cast(substring(v.Unidade,charindex('(',v.Unidade) + 1,charindex(')',v.Unidade) - charindex('(',v.Unidade) - 1 ) as integer)
where
v.Cod_Versao = 340
and permuta = 1
and status_unidade in ('Disponível','Permutada','Transferido','Vendida','Sem Contrato')
--and v.Status_Contrato not in ('Distratado')
and exists (select 1
from planejamento..Vendas_MEGA_Movimentacao r2
where r2.Cod_Versao = 340
and r2.Cod_Empreendimento = v.Cod_Empreendimento
and r2.Bloco = v.Bloco
and r2.Unidade = v.Unidade
and r2.Num_Contrato = v.Num_Contrato
and r2.Status_Unidade2 = 'Estoque')
and v.Desc_Empreendimento not in ('PALMS RECREIO - RPC','PALMS RECREIO - POWER','WEST VINTAGE- PERMUTANTE LBJMIR',
'PALMS RECREIO - AREAS FERREIRA','MELIA ANGRA DECK KIT','LA PLAYA FESTMALL - LOTE 8 - CURACAO DECOR')
and @Estoque = 1
and not exists (select 1
from planejamento..Vendas_MEGA r2
where r2.Cod_Versao = 340
and r2.Cod_Empreendimento = v.Cod_Empreendimento
and r2.Bloco = v.Bloco
and r2.Unidade = v.Unidade
--and r2.Num_Contrato = v.Num_Contrato
--and r2.Status_Unidade2 = 'Estoque'

and r2.status_unidade not in ( 'Permutada','Transferido')
and r2.Status_Contrato not in ('Distratado','Transferido','Cessão de Direitos','Sem Contrato')
and r2.Desc_Empreendimento not in ('PALMS RECREIO - RPC','PALMS RECREIO - POWER','PALMS RECREIO - AREAS FERREIRA',
'WEST VINTAGE- PERMUTANTE LBJMIR','MELIA ANGRA DECK KIT','LA PLAYA FESTMALL - LOTE 8 - CURACAO DECOR')
)


order by 3 desc ,6,7

Avatar do usuário
Eternamente VASCO
Promessa
Promessa
Mensagens: 119
Registrado em: 11 Jul 2019, 12:01

O QUE TEM NO SEU CTRL+V?

Mensagem por Eternamente VASCO » 21 Jul 2019, 11:26

Inteligência artificial consegue prever mortes para salvar vidas
Pesquisadores da USP criaram algoritmos que analisam a interação entre 37 fatores em poucas horas
Por LITZA MATTOS
14/07/19 - 03h00

O mesmo mecanismo usado para sugerir um filme na Netflix ou um possível “crush” no Tinder está sendo adaptado por pesquisadores para que os algoritmos consigam prever o risco de morte em pacientes. Estudo realizado na Universidade de São Paulo (USP) usando a inteligência artificial (IA) já conseguiu prever 70% dos óbitos de um grupo de idosos.

Algoritmos são elementos que regem a maior parte dos eletrônicos. Na matemática e na computação, eles funcionam como uma sequência de instruções para que a máquina realize determinada tarefa. Dessa forma, usando os computadores especializados em IA do Laboratório de Big Data e Análise Preditiva em Saúde (Labdaps) da USP, os algoritmos criados por alunos e professores da universidade conseguem aprender e analisar em poucas horas as complexas interações entre 37 fatores que podem levar ao óbito, explica o professor da Faculdade de Saúde Pública da USP, Alexandre Chiavegatto Filho.

A coleta de dados para acompanhar a evolução do estado de saúde dos idosos começou no ano 2000, e depois a IA foi incorporada. “Muitos participantes já foram a óbito, no entanto, os dados foram usados para, a partir das informações coletadas, ensinar o algoritmo a aprender a identificar quem vai a óbito”, diz.


Segundo Filho, foram testados cinco tipos de algoritmos. “Um deles, inspirado no cérebro humano, possui redes neurais artificiais e apresentou o melhor resultado”, afirma. Redes neurais artificiais são ferramentas matemáticas que procuram simular a forma, o comportamento e as funções de um neurônio biológico.

Recentemente, outro grupo de estudantes da USP foi premiado no Instituto de Tecnologia de Massachusetts (MIT), nos Estados Unidos, por desenvolver um software que calcula o risco de uma pessoa ser afetada por doenças crônicas – condições essas responsáveis pela morte de 41 milhões de pessoas por ano no mundo.

Saúde

A IA lidera a nova revolução na medicina, abrindo inúmeras possibilidades. Maior precisão no diagnóstico e intervenções individualizadas são alguns exemplos que devem moldar o atendimento do futuro, que, segundo Filho, está próximo. “Ninguém vai a óbito só porque se alimenta mal ou só porque é sedentário. É uma interação complexa que acaba levando a problemas graves. Por isso, acredito que, até o fim do ano, vai ter uma verdadeira explosão da IA na saúde”, afirma.

O projeto do Labdaps ainda está na fase de testar aonde a IA funciona bem. “Não começamos a colocar em prática no dia a dia da atenção clínica, mas acreditamos que, até o fim do ano, essa já será uma realidade”, projeta Filho. Procurado, o Conselho Federal de Medicina (CFM) não quis comentar o assunto.

China e EUA são outros exemplos pelo mundo

Em artigo publicado na revista “Nature Medicine”, cientistas chineses mostraram que construíram um sistema de inteligência artificial que diagnostica automaticamente condições comuns da infância – desde a gripe até a meningite – após o processamento dos sintomas do paciente, histórico, resultados laboratoriais e outros dados clínicos. As informações foram coletadas com base nos registros de quase 600 mil pacientes chineses que visitaram um hospital pediátrico, em um período de 18 meses.

Pesquisadores nos Estados Unidos também estão nessa “corrida”. Organizações, incluindo o Google, estão desenvolvendo e testando sistemas que analisam registros eletrônicos de saúde para sinalizar condições como osteoporose, diabetes, hipertensão e insuficiência cardíaca.

Curiosidade

“Calculadora da morte”: DeathRiskRankings.com

Foi desenvolvido por pesquisadores da Universidade Carnegie Mellon, nos EUA, para prever a probabilidade da morte de uma pessoa com base em dados disponíveis nos Estados Unidos e Europa.

27/08/2009

No dia em que foi lançado, o site recebeu mais de um milhão de visitantes e travou. Em 24 horas, a página bateu o recorde da universidade por um mês. Em 2011, o site tornou-se indisponível.



Minientrevista

Alexandre Filho

Professor da USP

Labdaps

Na prática como funcionaria?

Seria um software instalado no computador, onde o médico vai inserir informações do paciente e, com um clique, o algoritmo vai indicar os riscos. É uma tecnologia extremamente barata, com custo quase zero para ser colocada em prática, e de rápida adoção.

Como os médicos devem reagir a essa novidade?

Eu tenho visto uma evolução dos profissionais nesse sentido. Eu tenho dado palestras e, até três anos atrás, eles estavam apreensivos e com medo do que ia acontecer. Mas, de um ano pra cá, as perguntas não são mais no sentido se a máquina vai tirar o emprego ou diminuir o salário deles. As perguntas têm sido mais técnicas, porque eles costumam ir a congressos e estão vendo que, nos Estados Unidos, por exemplo, a IA tem tido resultados positivos.

Como a IA pode mudar as relações de trabalho?

A grande ironia é que a medida que os médicos vão tomando suas decisões baseadas na IA, vai aumentando a demanda. Ou seja, as pessoas vão começar a ir mais em hospitais, porque vão saber que, quando tiverem um problema de saúde, vão ter o problema resolvido com maior chance de sucesso por médicos que usam a IA. E os médicos vão ter mais oportunidades de emprego.
Por amor incondicional ao VASCO, eu sou SÓCIO TORCEDOR!!!

Responder

Voltar para “Outros Assuntos”