Gerar Pagamentos

Marostegan · Outubro 8, 2010

Bom dia pessoal...

Estou com um probleminha aqui num sistema que estou desenvolvendo.

(BD - ACCESS)

Eu preciso que o sistem gere sozinho as parcelas (mensalidades).

Tenho os campos:

Valor:

Meses: (quantidade de mes, ou seja, aprcelas)

Vencimento: (exemplo: se for todo dia 15... aqui nesse campo coloco só 15 e ele automaticamente gera os recibos referente a quantidade de mês que coloquei no campo "meses")

Porém eu não faço nem idéia de como começar.. procurei umas coisas aqui mas não entendi. =/

alguém pode me da uma forcinha?

valew!!

Renanbg · Outubro 8, 2010

tenta aqui

http://forum.imasters.com.br/index.php?/topic/398421-inserir-varios-registros/page__p__1558367__fromsearch__1entry1558367

Marostegan · Outubro 9, 2010

entoa amigo... nao entendi mto bem!

e o que eu preciso é por exemplo!

vai ser parcelas do valor de alguel.. entao todas vao ser o msm valor!

eu teria que jogar, por exemplo, R$ 800,00 no campo valor, 24 meses, vencimento dia 15.. ai ele teria que gerar 24 pagamentos de R$ 800,00 com vencimento dia 15.

precisva msm fazer isso, mas nao to conseguindo...

fico mto grato se puder me dar essa força..

brigadao msm!

abraçoss

Faccruz · Outubro 13, 2010

entoa amigo... nao entendi mto bem!

e o que eu preciso é por exemplo!

vai ser parcelas do valor de alguel.. entao todas vao ser o msm valor!

eu teria que jogar, por exemplo, R$ 800,00 no campo valor, 24 meses, vencimento dia 15.. ai ele teria que gerar 24 pagamentos de R$ 800,00 com vencimento dia 15.

precisva msm fazer isso, mas nao to conseguindo...

fico mto grato se puder me dar essa força..

brigadao msm!

abraçoss

Trabalhe com FOR

Algo assim

for i = 0 to Pred(NumeroParcelas) do
begin
  ParcelaAtual := i + 1;
  ValorParcela := Valor;
  DiaPgto := DiaParcela;
  //Grava as informações no banco.
end;

Marostegan · Outubro 23, 2010

Trabalhe com FOR

Algo assim

for i = 0 to Pred(NumeroParcelas) do
begin
  ParcelaAtual := i + 1;
  ValorParcela := Valor;
  DiaPgto := DiaParcela;
  //Grava as informações no banco.
end;

olá amigo... não entendi! =//

pode me ajudar com um exemplo?

obrigado mais uma vez

pessoal, por favor, alguem pode me ajudar?

brigadaooo

Galuschka · Outubro 29, 2010

uq você não intendeu?

for i = 0 to Pred(NumeroParcelas) do

begin

ParcelaAtual := i + 1;

ValorParcela := Valor;

DiaPgto := DiaParcela;

//Grava as informações no banco.

end;

nesse for você grava cada parcela como uma linha na sua tebela do banco

n sei como funciona o acess e nem sei como ta seu banco mas ficaria alguma coisa assim:

//grava informações do banco
INSERT INTO suatable VALUES (parcelaAtual,valorParcela,diapgto)

parcela atual seria o número da parcela, valor seria o 800 e o dia seria o 15

Marostegan · Outubro 29, 2010

nesse caso ai teria que ter um campo pra eu determinar quantas parcelas seriam... (1, 5, 10...)

é isso?

Galuschka · Outubro 29, 2010

Tenho os campos:

Valor:

Meses: (quantidade de mes, ou seja, aprcelas)

Meses ja diz quantas parcelas vão ser

R$ 800,00 no campo valor, 24 meses, vencimento dia 15.. ai ele teria que gerar 24 pagamentos de R$ 800,00 com vencimento dia 15.

dai você podia fazer uma tabela de parcelas e cada linha seria uma mensalidade (24 linhas), cada uma de 800 reais, e com vencimento pro dia 15, se você for visializar/alterar depois, você podia criar uma coluna com status, por exemplo: ela coluna poderia receber pago,vencido,etc

Marostegan · Fevereiro 15, 2011

pessoal, bom dia!

estou vontando nesse tópico pois estou trabalhando na aprte de gerar parcelas aqui do sisteminha meu mas não estou conseguindo fazer...

tentei seguir as dicas aqui e também de alguns links relacionados, o que está funcionando até agora é isso:

var
SubParc, Sobra, cValor   : Double;
i        : Integer;
begin
//-- Zera a variavel
cValor:= 0;
//-- Limpa o Memo
Memo1.Clear;

for i:= 1 to StrToInt(edtParcelas.Text) do
begin
if i = StrToInt(edtParcelas.Text) then
  begin
  SubParc:= StrToFloat(edtParcelas.Text) - 1;  //pega o total de parcelas e tira uma
  Sobra:= cValor * SubParc;   //Pega o valor da penultina parcela e multiplica pelo total de parcelas menos 1
  cValor:= StrToFloat(edtValor.Text) - Sobra;  //calcula o valor da ultima parcela

  end else
      cValor:= (StrToFloat(edtValor.Text) / StrToFloat(edtParcelas.Text));

//--- Formata o valor
cValor:= StrToFloat(FormatCurr('###,###,##0.00',cValor));
Memo1.Lines.Add(IntToStr(i)+'º Parcela   -   Valor: R$ '+FloatToStr(cValor));
end;
  Memo1.Lines.Add('------------------------------------------------');
  Memo1.Lines.Add('Total = '+FormatFloat('R$ ###,###,##0.00',StrToFloat(edtValor.Text)));
end;

end.

Mas não é isso ainda que eu preciso.

Preciso que quando as parcela forem geradas, também seja acrescetado:

- As tadas de vencimentos de parcelas

- Parcela TAL de TAL (Ex.: Parcela 5 de 19)

Outra coisa... Todas as parcelas geradas deverão ser gravadas em uma tabela (tbl_parcelas no BD bd_dados) (BD é ACCESS)

Montei essa tela aqui pra montar esse exemplo, antes de inserir msm no meu sistema:

Obrigado pessoal!

pessoal, por favor me ajudem...

Desde já agradeço!

lumens · Fevereiro 16, 2011

pessoal, bom dia!

estou vontando nesse tópico pois estou trabalhando na aprte de gerar parcelas aqui do sisteminha meu mas não estou conseguindo fazer...

tentei seguir as dicas aqui e também de alguns links relacionados, o que está funcionando até agora é isso:
var
SubParc, Sobra, cValor   : Double;
i        : Integer;
begin
//-- Zera a variavel
cValor:= 0;
//-- Limpa o Memo
Memo1.Clear;

for i:= 1 to StrToInt(edtParcelas.Text) do
begin
if i = StrToInt(edtParcelas.Text) then
  begin
  SubParc:= StrToFloat(edtParcelas.Text) - 1;  //pega o total de parcelas e tira uma
  Sobra:= cValor * SubParc;   //Pega o valor da penultina parcela e multiplica pelo total de parcelas menos 1
  cValor:= StrToFloat(edtValor.Text) - Sobra;  //calcula o valor da ultima parcela

  end else
      cValor:= (StrToFloat(edtValor.Text) / StrToFloat(edtParcelas.Text));

//--- Formata o valor
cValor:= StrToFloat(FormatCurr('###,###,##0.00',cValor));
Memo1.Lines.Add(IntToStr(i)+'º Parcela   -   Valor: R$ '+FloatToStr(cValor));
end;
  Memo1.Lines.Add('------------------------------------------------');
  Memo1.Lines.Add('Total = '+FormatFloat('R$ ###,###,##0.00',StrToFloat(edtValor.Text)));
end;

end.
Mas não é isso ainda que eu preciso.

Preciso que quando as parcela forem geradas, também seja acrescetado:

- As tadas de vencimentos de parcelas

- Parcela TAL de TAL (Ex.: Parcela 5 de 19)

Outra coisa... Todas as parcelas geradas deverão ser gravadas em uma tabela (tbl_parcelas no BD bd_dados) (BD é ACCESS)

Montei essa tela aqui pra montar esse exemplo, antes de inserir msm no meu sistema:

Obrigado pessoal!

pessoal, por favor me ajudem...

Desde já agradeço!

Dan pelo jeito estam faltando TABELAS

tabela -> cliente

tabela -> produto

tabela -> venda

tabela -> item da venda

tabela -> pagamento <- esta vai pegar as infomações das outras e montar o boleto "cada linha dela será uma parcela" com todas as informações que você precisa!

Marostegan · Fevereiro 16, 2011

pessoal, bom dia!

estou vontando nesse tópico pois estou trabalhando na aprte de gerar parcelas aqui do sisteminha meu mas não estou conseguindo fazer...

tentei seguir as dicas aqui e também de alguns links relacionados, o que está funcionando até agora é isso:
var
SubParc, Sobra, cValor   : Double;
i        : Integer;
begin
//-- Zera a variavel
cValor:= 0;
//-- Limpa o Memo
Memo1.Clear;

for i:= 1 to StrToInt(edtParcelas.Text) do
begin
if i = StrToInt(edtParcelas.Text) then
  begin
  SubParc:= StrToFloat(edtParcelas.Text) - 1;  //pega o total de parcelas e tira uma
  Sobra:= cValor * SubParc;   //Pega o valor da penultina parcela e multiplica pelo total de parcelas menos 1
  cValor:= StrToFloat(edtValor.Text) - Sobra;  //calcula o valor da ultima parcela

  end else
      cValor:= (StrToFloat(edtValor.Text) / StrToFloat(edtParcelas.Text));

//--- Formata o valor
cValor:= StrToFloat(FormatCurr('###,###,##0.00',cValor));
Memo1.Lines.Add(IntToStr(i)+'º Parcela   -   Valor: R$ '+FloatToStr(cValor));
end;
  Memo1.Lines.Add('------------------------------------------------');
  Memo1.Lines.Add('Total = '+FormatFloat('R$ ###,###,##0.00',StrToFloat(edtValor.Text)));
end;

end.
Mas não é isso ainda que eu preciso.

Preciso que quando as parcela forem geradas, também seja acrescetado:

- As tadas de vencimentos de parcelas

- Parcela TAL de TAL (Ex.: Parcela 5 de 19)

Outra coisa... Todas as parcelas geradas deverão ser gravadas em uma tabela (tbl_parcelas no BD bd_dados) (BD é ACCESS)

Montei essa tela aqui pra montar esse exemplo, antes de inserir msm no meu sistema:

Obrigado pessoal!

pessoal, por favor me ajudem...

Desde já agradeço!
Dan pelo jeito estam faltando TABELAS

tabela -> cliente

tabela -> produto

tabela -> venda

tabela -> item da venda

tabela -> pagamento <- esta vai pegar as infomações das outras e montar o boleto "cada linha dela será uma parcela" com todas as informações que você precisa!

olá amigo.

não não, as informações não será pega de nenhuma tabela.. o usuário irá digitar, veja a tela que montei de exemplo. o usuario tem os campos pra digitar as informações...

porém depois que preencher tudo e clicar em GERAR, deverá ser gerado a quantidade de parcelas. e todas elas deverá ser gravada no banco de dados (veja que coloquei uma DBGrid, ela já está conectada com uma tabela no banco de dados)

o que eu nao sei fazer é como fazer esse procedimento depois que clicar no botao GERAR.

:(

bdexterholland · Fevereiro 20, 2011

CREATE TABLE parcelas (
 codigo bigint not null auto_increment primary key,
 cliente integer not null,
 codigo_venda integer not null,
 numero_parcela integer not null,
 valor_parcela double not null,
 data_pagamento integer default null,
 /*outros campos*/

Acho que sua dificuldade não está relacionado a programação e sim a modelagem do DB...

Marostegan · Fevereiro 21, 2011

CREATE TABLE parcelas (
 codigo bigint not null auto_increment primary key,
 cliente integer not null,
 codigo_venda integer not null,
 numero_parcela integer not null,
 valor_parcela double not null,
 data_pagamento integer default null,
 /*outros campos*/

Acho que sua dificuldade não está relacionado a programação e sim a modelagem do DB...

olá amigo... desculpa a pergunta... mas vamos lá

já fiz essa tabela.. mas como faço pra qjuando clicar no botão gerar parcelas... o sistema gerar automaticamente essas parcelas e já gravar todas elas no BD?

obrigado.

bdexterholland · Fevereiro 24, 2011

Pois então kara, você precisa saber qual será o valor de cada parcela, com base no shot que você postou temos uma conta de 8000,00 em 26 parcelas, logo :

var
 valorParcela : Double;
 I : integer;
 dataVencimento : String
valorParcela := 8000 / 26;

for i := 1 to 26 do
 begin
   dataVencimento := ('26/' + IntToStr(MonthOf(now) + I) + '/2011');
   SQL := 'INSERT INTO parcelas (cliente, valor_Parcela, numero_Parcela, data_Vencimento) VALUES (' + Cliente.Codigo + ', ' + valorParcela + ', ' + i + ', ' + dataVencimento + ');';
   //ExecutaSQL;
 end;

Marostegan · Fevereiro 27, 2011

olá amigo!

tentei copiar e colcar esse código que você postou no delphi pra eu testar e ir modificando para o que eu preciso... mas quando tento copilar da erro na linha

dataVencimento := ('26/' + IntToStr(MonthOf(now) + I) + '/2011');

depois mostra os erros:

[Error] u_cad_parcelas.pas(50): Undeclared identifier: 'MonthOf'

[Error] u_cad_parcelas.pas(51): Undeclared identifier: 'SQL'

[Error] u_cad_parcelas.pas(51): Undeclared identifier: 'Cliente'

[Error] u_cad_parcelas.pas(51): Incompatible types: 'String' and 'Extended'

[Error] u_cad_parcelas.pas(51): Incompatible types: 'String' and 'Integer'

[Error] u_cad_parcelas.pas(55): ';' expected but '.' found

[Error] u_cad_parcelas.pas(57): Declaration expected but end of file found

desculpe esse monte de perguntas, mas não estou entendendo isso e nem conseguindo fazer... e realmente preciso muito disso! :(

obrigado pela atenção e ajuda!

bdexterholland · Fevereiro 28, 2011

olá amigo!

tentei copiar e colcar esse código que você postou no delphi pra eu testar e ir modificando para o que eu preciso... mas quando tento copilar da erro na linha
dataVencimento := ('26/' + IntToStr(MonthOf(now) + I) + '/2011');
depois mostra os erros:

[Error] u_cad_parcelas.pas(50): Undeclared identifier: 'MonthOf'

[Error] u_cad_parcelas.pas(51): Undeclared identifier: 'SQL'

[Error] u_cad_parcelas.pas(51): Undeclared identifier: 'Cliente'

[Error] u_cad_parcelas.pas(51): Incompatible types: 'String' and 'Extended'

[Error] u_cad_parcelas.pas(51): Incompatible types: 'String' and 'Integer'

[Error] u_cad_parcelas.pas(55): ';' expected but '.' found

[Error] u_cad_parcelas.pas(57): Declaration expected but end of file found

desculpe esse monte de perguntas, mas não estou entendendo isso e nem conseguindo fazer... e realmente preciso muito disso! :(

obrigado pela atenção e ajuda!

MonthOf Faz parte da Unit DateUtils, ela puxa o mês referente a data informada.

SQL é uma variável que deve ser declarada como String ou pode ser a propriedade SQL do seu dataSet.

O erro Incompatible types: 'String' and 'Extended' é gerado porque eu escrevi exemplo de qualquer forma, apenas para usar de exemplo, na linha onde é gerada a query, faz necessário converter a variável valorParcela usando a função FloatToStr.

O error Incompatible types: 'String' and 'Integer é gerado porque faz necessário converter a variável i para o tipo string usando a função IntToStr.

Os outros dois erros são referente a forma que você colou o código (que não deveria ter feito, deveria analisar o exemplo e adapatar a sua realidade).

Marostegan · Março 4, 2011

Nossa amigo, não consigo entender e nem fazer de jeito nenhum!

To tendo que cadastrar parcela por parcela (uma por uma)

olha como está:

Por favor, me ajude a fazer gerar automaticamente isso... preciso mto msm e não consigo entender como fazer :(

Se puder me ajudar agradeço msm, de coração!

valeww

bdexterholland · Março 4, 2011

Bom cara, vamos lá...

Você precisa de uma tabela que armazene as parcelas. Sua tabela precisa conter pelo menos os seguintes campos:

  codigo --> Codigo interno da parcela.
 cliente --> Código do cliente no qual a parcela está vinculada.
 codigo_venda --> Código da venda no qual a parcela pertence.
 numero_parcela --> O numero da parcela, ou seja, se foi divida em 10 vezes, então esta seria a parcela 3 (exemplo).
 valor_parcela --> O valor da parcela,
 Vencimento_Parcela --> Data de vencimento da parcela.

Com relação a inadimplência, você pode criar uma nova tabela e lançar os pagamentos realizados ou lançar na mesma tabela a data e o valor do pagamento, eu pessoalmente prefio a segunda opção, portanto vamos adicionar os outros campos:

  Data_Pagamento --> Data no qual foi realizado o pagamento.
 Valor_Pago --> Valor incluindo juros, se aplicável.

Se a data de pagamento está em branco, pressupõe-se que não foi realizado o pagamento.

DDL da tabela:

Create Table Parcelas (
 CodigoParcela int not null auto_increment primary key, /* Código da parcela na tabela de parcelas */
 CodigoVenda   int not null, /* Codigo da venda no qual a parcela se refere (Deve estar préviamente cadastrada em sua base */
 CodigoCliente int not null, /* Campo opcional, analise friamente a necessidade dele */
 NumeroParcela int not null, /* Qual parcela é esta? (parcela 1? 5? 99?)
 ValorParcela  double not null, /* Qual é o valor desta parcela? */
 DataVencimento DateTime not null, /* Data de vencimento da parcela */
 ValorPago     Double default null, /* Valor pago pela parcela, caso tenha juros, será valor da parcela + juros */
 DataPagamento DateTime default null /* Data no qual foi realizada a quitação da parcela */
);

No delphi, iremos gerar as parcelas. Para gerar as parcelas, precisamos saber;

Qual é a venda.

Quem está devendo.

Quais são os valores das parcelas.

Quais as datas de vencimento das parcelas.

Observe um detalhe neste ponto: Eu estou informando o cliente 2 vezes, isto pode ser desnecessário (mais provavel que seja mesmo), portanto, é possível não informar o cliente dentro da tabela de parcela.

Supondo que em seu sistema eu estou cadastrado com o código 2512, fiz uma compra no valor de R$ 800,00 dividido em 10 vezes e quero o vencimento para todo dia 15, a partir do mês de Maio, você lançou a venda em seu sistema e a mesma foi cadastrada com o codigo 20111234321. Uma vez que sabemos quem comprou, qual a venda, qual o valor e em quantas parcelas foi dividido o pagamento, vamos gerar as parcelas:

Para saber o valor de cada parcela, vamos dividir o valor total da venda pelo número de parcelas:

TotalVenda / TotalParcelas

Var
 ValorParcela : Double;
 CodigoVenda  : Integer;
 CodigoCliente: Integer;
 NumeroParcela: Integer;
 TotalParcelas: Integer;
 DataParcela  : DateTime;

begin
 CodigoVenda   := 20111234321;
 CodigoCliente := 2512;
 TotalParcelas := 10;
 ValorParcela  := 800/TotalParcelas;

Query.SQL.Clear;
Query.SQL.add('SET AUTOCOMMIT=0;START TRANSACTION'); //Estude transações no banco de dados que está utilizando
Try
	Query.ExecSQL;
except
	MessageDLG('Falha grave! Abortando...', mtError, [mbOK], 0);
	exit;
end;

 for NumeroParcela := 1 to NumeroParcelas do
   begin
		DataParcela	:= StrToDate('15/05/2011'); //Bole uma forma de gerar a data para cada parcela...
		Query.SQL.Clear;
		Query.SQL.add('INSERT INTO parcelas');
		Query.SQL.add('(CodigoVenda, CodigoCliente, NumeroParcela, ValorParcela, DataVencimento)');
		Query.SQL.Add('VALUES');
		Query.SQL.Add('(:PVenda, :PCliente, :PParcela, :PValor, :PData);');
		Query.ParamByName('PVenda').AsInteger 	:= CodigoVenda;
		Query.ParamByName('PCliente').AsInteger := CodigoCliente;
		Query.ParamByName('PParcela').AsInteger := NumeroParcela;
		Query.ParamByName('PValor').AsDouble 		:= ValorParcela; //Não sei sei existe o campo asDouble para ParamByName, tente asFloat se necessário
		Query.ParamByName('PData').AsDate				:= DataParcela;
		ShowMessage(Query.SQL.Text); //Só para conferir como ficou a situação...
		try
			Query.ExecSQL;				
		except
			Beep;
			MessageDLG('Falha ao gerar a parcela ' + DateToStr(DataParcela), mtError, [mbOk], 0);
		end;
	end;

Query.SQL.Clear;
Query.SQL.add('COMMIT;'); //Estude transações no banco de dados que está utilizando
Try
	Query.ExecSQL;
except
	MessageDLG('Falha grave! Abortando...', mtError, [mbOK], 0);
	exit;
end;
MessageDLG('Fim da Geração de parcelas!', mtInformation, [mbOK], 0);

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

Estude este exemplo, não cole-o no seu código....

Marostegan · Março 4, 2011

obrigado amigo!

vou testar aqui!

bom, vamos lá...

fiz algumas alterações aqui, porém está dando um erro que acredito que seje aqui: (meu banco de dados é ACCESS... como ficaria essa parte do código!?)

        Query.SQL.add('SET AUTOCOMMIT=0;START TRANSACTION'); //Estude transações no banco de dados que está utilizando

com as alterações, ficou assim!

Var
 ValorParcela : Double;
 CodigoVenda  : Integer;
 CodigoCliente: Integer;
 NumeroParcela: Integer;
 TotalParcelas: Integer;
 DataParcela  : TDateTime;

begin

 ValorParcela  := 800/TotalParcelas;

       Query.SQL.Clear;
       Query.SQL.add('SET AUTOCOMMIT=0;START TRANSACTION'); //Estude transações no banco de dados que está utilizando
       Try
               Query.ExecSQL;
       except
               MessageDLG('Falha grave! Abortando...', mtError, [mbOK], 0);
               exit;
       end;

 for NumeroParcela := 1 to NumeroParcela do
   begin
                       DataParcela     := StrToDate('15/05/2011'); //Bole uma forma de gerar a data para cada parcela...
                       Query.SQL.Clear;
                       Query.SQL.add('INSERT INTO tbl_parcelas');
                       Query.SQL.add('(CodigoVenda, CodigoCliente, NumeroParcela, ValorParcela, DataVencimento)');
                       Query.SQL.Add('VALUES');
                       Query.SQL.Add('(:PVenda, :PCliente, :PParcela, :PValor, :PData);');
                       Query.Parameters.ParamByName('PVenda').Value := CodigoVenda;
                       Query.Parameters.ParamByName('PCliente').Value := CodigoCliente;
                       Query.Parameters.ParamByName('PParcela').Value := NumeroParcela;
                       Query.Parameters.ParamByName('PValor').Value   := ValorParcela; //Não sei sei existe o campo asDouble para ParamByName, tente asFloat se necessário
                       Query.Parameters.ParamByName('PData').Value    := DataParcela;
                       ShowMessage(Query.SQL.Text); //Só para conferir como ficou a situação...
                       try
                               Query.ExecSQL;
                       except
                               Beep;
                               MessageDLG('Falha ao gerar a parcela ' + DateToStr(DataParcela), mtError, [mbOk], 0);
                       end;
               end;

       Query.SQL.Clear;
       Query.SQL.add('COMMIT;'); //Estude transações no banco de dados que está utilizando
       Try
               Query.ExecSQL;
       except
               MessageDLG('Falha grave! Abortando...', mtError, [mbOK], 0);
               exit;
       end;
       MessageDLG('Fim da Geração de parcelas!', mtInformation, [mbOK], 0);
      end;

Quanto ao erro que aparece ao clicar no botão GERAR (é dentro desse botão que coloquei esse código)

... with message 'Instrução SQL inválida. 'DELETE', 'INSERT', 'PROCEDURE', 'SELECT' ou 'UPDATE' esperadp'. Process stopped.....

Como posso arrumar isso?

Obrigado mais uma vez pelas ajudas e pela paciência também!

bdexterholland · Março 4, 2011

coloque um breakpoint na linha onde é feita a divisão, execute o programa com o F9 e tente gerar as parcelas, o delphi urá "pausar" a execução do programa na linha onde colocou o breakpoint, agora execute o programa com o botão F7, pressione F7 para cada linha do código. Bom, poste em qual linha foi gerada a mensagem de erro para analisarmos.

Provavelmente o erro é porque o Access não suporta transações, não que eu saiba...

Arquivado

Gerar Pagamentos

Recommended Posts

Marostegan 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Renanbg 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

Marostegan 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Faccruz 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Marostegan 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Galuschka 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Marostegan 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Galuschka 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Marostegan 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

lumens 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Marostegan 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

bdexterholland 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Marostegan 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

bdexterholland 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Marostegan 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

bdexterholland 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Marostegan 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

bdexterholland 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Marostegan 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

bdexterholland 0