Ir para conteúdo

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Gilberto Jr

Data Emissão Mais dias de Prazo

Recommended Posts

Boa tarde;

 

Eu tenho um codigo que insere as datas de vencimento de cada parcela.

 

Exemplo: Eu tenho um valor de R$ 200,00 e estou dividindo esse valor em 4 vezes. Então ficaria assim.

 

26/06/2015 = R$ 50,00

26/07/2015 = R$ 50,00

26/08/2015 = R$ 50,00

26/09/2015 = R$ 50,00

 

Mas no meu formulario tem o campo prazo que é numerico. Tipo 30 dias.

 

Então deveria ficar assim

 

26/07/2015 = R$ 50,00

26/08/2015 = R$ 50,00

26/09/2015 = R$ 50,00

26/10/2015 = R$ 50,00

 

Pegaria a data de emissão digitada no formulario e somaria mais o prazo que é 30 dias.

 

O código que eu tenho é esse.

data = request.Form("dataemissao")



for i = 0 to parcela-1

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

next

Att;

Compartilhar este post


Link para o post
Compartilhar em outros sites


data = request.Form("dataemissao")

 

if data = "" then

data = date()

end if

 

data = DateAdd("d", 30, data)

 

ParcelaInicial = 1

ParcelaFinal = O QUE VEM DO FORM

 

for Parcelas = ParcelaInicial to ParcelaFinal

 

AQUI VOCE GRAVA DATA, VALOR ....

 

data = DateAdd("d", 30, data)

next

Compartilhar este post


Link para o post
Compartilhar em outros sites

Beleza Ronaldo,

 

Resolveu o meu problema.

for i = ParcelaInicial to ParcelaFinal

data = DateAdd("d", cint(prazo), formatdatetime(data,2))

set buscaparcela = conn.execute("select count(*) as parcela from tec_contaspagar where numero_documento='"&request.Form("documento")&"' and tipo='A' and id_fornecedor='"&request.Form("fornecedor")&"'")


user = session("nome")

parc = buscaparcela("parcela")

parc2 = cint(parc)+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,acertado, user_system, dataregistro) values ('"&request.Form("documento")&"','A','"&mask_data(request.Form("dataemissao"))&"','"&parc2&"','"&replace(replace(formatcurrency(dividido),",","."),"R$","")&"','"&mask_data(data)&"','"&request.Form("formapgto")&"','99','439','"&request.Form("fornecedor")&"',1,'"&session("nome")&"','"&mask_data(Date)&"')")
next

Att;

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.