
consulta fecha
Publicado por gabriel (19 intervenciones) el 14/12/2016 00:13:47
hola a todos, este codigo genera fechas de vencimientos automaticas de cuotas, cada 7 15 o 30 dias, lo que necesito es que el vencimiento de la primera cuota yo la introduzca manual en un textbox y de ahi ya sea automatico, intente varias formas pero no me sale, si alguien me puede ayudar se lo agradeceria, muchas gracias saludos!
el textbox se llame: text4
el textbox se llame: text4
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
m.canti=xcuotas
DO case
CASE thisform.combo_pagocuota.Value="SEMANAL"
xformapago=7
xnumero=7
fechavence=DATE()+ xnumero
CASE thisform.combo_pagocuota.Value="QUINCENAL"
xformapago=15
xnumero=15
fechavence=DATE()+ xnumero
CASE thisform.combo_pagocuota.Value="MENSUAL"
xformapago=30
xnumero=30
fechavence=DATE()+ xnumero
ENDCASE
importecuota=xmonto/xcuotas
SELECT tcreditos
xconta=1
FOR i = 1 TO m.canti
APPEND BLANK
REPLACE cvencim with fechavence
DO CASE
CASE xFormaPago == 7
fechavence = fechavence + 7
CASE xFormaPago == 15
fechavence = fechavence + 15
CASE xFormaPago == 30
fechavence = GOMONTH(fechavence, 1)
ENDCASE
xconta=xconta+1
ENDFOR
Valora esta pregunta


0