Data Vencimento Fatura

[Gilberto Jr 26]

Pessoa, bom dia;

 

Eu criei no meu sistema uma pagina para lançamento de títulos que deverão ser pago. No meu formulário tem o campo parcelas. A quantidade de parcelas que a pessoa escolher o sistema vai dividir o valor bruto pela quantidade de parcelas.

 

Até ai tudo bem, a minha duvida é na hora de salvar as datas e vencimentos das faturas.

 

Exemplo, se eu coloque a data de vencimento para o dia 01/07/2015 e o valor bruto do titulo é R$ 90,00 e divido em 3 parcelas, então ficaria assim:

 

01/07/2015: R$ 30,00

01/08/2015: R$ 30,00

01/09/2015: R$ 30,00

 

No meu insert esta dividindo o valor da forma correta. Porem na hora de salvar a data de vencimento sempre vai colocar a data 01/07/2015 pois foi essa data que eu coloquei no meu formulário.

 

O Código segue

valor = request.Form("valordocumento")

parcela = request.Form("parcelas")

dividido = valor/parcela

for i = 0 to parcela-1

user = session("nome")

parc = buscaparcela("parcela")

parc2 = 0+1

set insertcpg = conn.execute("insert into tec_contaspagar (numero_documento, tipo, data, parcela, valor_parcela, data_vencimento, forma_pgto, id_rede, id_cliente, id_fornecedor, user_system, dataregistro) values ('"&request.Form("documento")&"','A','"&mask_data(request.Form("dataemissao"))&"','"&parc2&"','"&replace(replace(dividido,",","."),"R$","")&"','"&mask_data(request.Form("datavencimento"))&"','"&request.Form("formapgto")&"','99','99','"&request.Form("fornecedor")&"','"&user&"','"&mask_data(Date)&"')")
next
%>

Se alguém puder me ajudar.

 

Att;

[xanburzum 169]

Não entendi ?!?!?! a parte do "Porem na hora de salvar a data de vencimento sempre vai colocar a data 01/07/2015 pois foi essa data que eu coloquei no meu formulário."

 

Mas essa não é a 1ª data de vencimento...

crie o restante das outras datas apenas dando um DAteAdd na 1ª data

[Gilberto Jr 26]

Então Xan, eu to fazendo assim usando DateAdd. Só que a data esta ficando no formato 01/01/2000.

 

O código que estou usando é o seguinte.

data = mask_data("2015-07-24")


for i = 0 to parcela-1

response.Write(DateAdd("m",i,data)&"<br />")
next

E esta imprimindo assim

24/07/2015
24/08/2015
24/09/2015

 

Eu estou usando a seguinte função para formatar a data. A função que eu estou usando é a seguinte.

function mask_data( obj )
		obj = CDAte( obj )
		dia = Day( obj  )
		mes = Month( obj )
		ano = Year( obj )
	
			if dia < 10 then
				dia = "0" & dia
			end if

			if mes < 10 then
				mes = "0" & mes
			end if
					
		 mask_data = ano &"-"& mes &"-"& dia
end function

para a data ficar nesse formato

 

2015-07-24
2015-08-24
2015-09-24

 

Att;

[Gilberto Jr 26]

Resolvido.

 

usei o seguinte código pra funcionar.

function mask_data( obj )
		obj = CDAte( obj )
		dia = Day( obj  )
		mes = Month( obj )
		ano = Year( obj )
	
			if dia < 10 then
				dia = "0" & dia
			end if

			if mes < 10 then
				mes = "0" & mes
			end if
					
		 mask_data = ano &"-"& mes &"-"& dia
end function

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

for i = 0 to parcela-1

response.Write(mask_data(formatdatetime(DateAdd("m",i,data),2))&"<br />")
next

E funcionou perfeito.

 

Obrigado Xan pela orientação.

 

Att;

[xanburzum 169]

Maravilha...perfect