Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Calculo de datas
Message
From
13/05/2003 23:33:14
 
 
To
All
General information
Forum:
Visual FoxPro
Category:
Object Oriented Programming
Title:
Calculo de datas
Miscellaneous
Thread ID:
00788042
Message ID:
00788042
Views:
46
Bom dia...

em meu PDV tenho uma tabela para ser cadastradas as formas de pagamento fornecidas pelas lojas com os seguintes campos.

campo, Tipo, tam, decimal

codigo,C,2
descricao,C,30
quitaparc,C,1
parcelas,N,3,0
prazo,N,2,0
intervalo,N,2,0
vencdata,C,1
porcdesc,N,3,2
porcacre,N,3,2

-codigo - código da condição de pagamento.
-descrição - nome da condição, ex.: A Vista, 30 Dias, 3x c/entr, 3x s/entr
-quitaparc - deve ser "S" ou "N" se for "S" a primeira prestação no contas a receber deverá ser quitada.
-parcelas - número de parcelas, ou seja quantas vezes se deve gerar as parcelas.
-prazo - prazo da 1º parcela em dias, ex.: uma condição 28/35/42 dias, então o prazo da primeira parcela será 28 dias
-intervalo - intervalo entre cada parcela, vou usar a mesma condição acima 28/35/42 dias, então o intervalo será 7 dias.
-vencdata - e para aceitar "S" ou "N" se tiver "S" todas as datas de vencimento gerada estarão no mesmo dia.
-porcdesc - porcentagem de desconto sobre o total da venda.
-porcacre - porcentagem de acréscimo sobre o total da venda.

bem para o número de parcelas faço assim;

For w=1 To m.parcelas
repl codigo with m.codigo
.
.
Endfor

agora para trabalhar com as datas, intervalos e prazos não consigo, nisso que necessito da ajuda do grupo.
exemplo de venda.

Nome da Condição: 3x C/entr
Valor da Venda: 300,00
Data da Venda: 01/04/2003


01/05/2003 - 100,00 esta deve ficar quitada
01/06/2003 - 100,00
01/07/2003 - 100,00

Nome da Condição: 5/10/15 Dias
Valor da Venda: 300,00
Data da Venda: 01/04/2003

06/04/2003 - 100,00
11/04/2003 - 100,00
16/04/2003 - 100,00

assim que deve ser, mais não consigo trabalhar com estas datas, podem me ajudar ?


Atenciosamente
Walney Moreira Klein
www.brasilvision.com.br/walney
walney@brasilvision.com.br
(22)2528-0212
Atenciosamente
Walney Informática Ltda
Walney Moreira Klein
www.walney.com.br
Reply
Map
View

Click here to load this message in the networking platform