Visual Pro/5 (BBx) - Letras x fechas

<<>>
   
Vista:

Letras x fechas

Publicado por Jovel (1 intervención) el 19/02/2018 15:54:23
Soy nuevo en esto amigos de este foro
Y quiero desarrollar un módulo de ventas donde me permita hacer ventas al crédito y que al ingresar el nro de letras me arroje las fechas de pago mensual a partir del día del credito
Mucho agradeceré su apoyo
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
1
Responder
Imágen de perfil de Carlos

Letras x fechas

Publicado por Carlos (5 intervenciones) el 04/03/2018 05:47:37
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
0010 rem "CLVCR""Calculo de Letras por Ventas a Credito""CEMS, 03/03/2018
0020 begin
0030 print 'CS',"Calculo de Letras por Ventas a Credito"
0040 input "Monto de la Venta : ",MONTO
0050 input "Numero de Letras  : ",LETRAS
0060 input "Fecha del Credito : ",FECHA$
0070 let JUL=jul(num(FECHA$(7)),num(FECHA$(4,2)),num(FECHA$(1,2)),err=0090)
0080 goto 0200
0090 print ""
0100 print "error!! la fecha debe estar en formato DD/MM/AAAA"
0110 goto 0060
0120 rem
0200 rem ^100
0210 let MENSUALIDAD=MONTO/LETRAS
0220 print ""
0230 print "Cuota    Fecha      Mensualidad"
0240 print "----- ---------- --------------"
0250 for CUOTA=1 to LETRAS
0260 let JUL=JUL+30,D$=date(JUL:"%Dz/%Mz/%Y")
0270 print CUOTA:"####BB",D$," ",MENSUALIDAD:"###,###,##0.00"
0280 next CUOTA
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar