Utilizamos cookies propias y de terceros para mejorar la experiencia de navegación, y ofrecer contenidos y publicidad de interés.
Al continuar con la navegación entendemos que se acepta nuestra política de cookies.
Iniciar sesión Cerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta

FoxPro/Visual FoxPro - Ventas a credito

Vista:
Me gusta: Está pregunta es útil y esta clara
0
No me gusta: Está pregunta no esta clara o no es útil
 
Asunto:

Ventas a credito

Autor:Luis (1 intervención)
Fecha:24/08/2009 14:02:39
Hola amigos tengo un problema de crear una venta credito y sus formas de pago no se como encaralo el sistema que hise solo factura contado por favor sis pueden ayudarme les agadesere muchisimo
Responder
Me gusta: Está respuesta es útil y esta clara
0
No me gusta: Está respuesta no esta clara o no es útil
 
Asunto:

RE:Ventas a credito

Autor:alberto (396 intervenciones)
Fecha:24/08/2009 19:42:37
prueba esta rutina amigo te hace el calculo de ventas en cuotas y te saca la fecha de vencimiento, la aporto un amigo del foro y anda de 10.
saludos

CLEAR
SET CENTURY on
SET DATE TO BRITISH

TxtFec_Enga = DATE()
nCuota = 1
nMeses = 6 &&Los meses que quieres desplegar

*- Separo por bloques la fecha
nMes = MONTH(txtFec_enga)
nDia = DAY(txtFec_enga)
nAno = YEAR(txtFec_enga)
nDiaf = DAY(txtFec_enga)


DO WHILE NMeses >= nCuota

*-Armo la fecha
fec_cuo = ctod(PADL(nDia,2,"0")+"/"+PADL(nMes,2,"0")+"/"+PADL(nAno,4,"0"))
?fec_cuo

nCuota = nCuota + 1
if nMes = 12
nMes = 1
else
nMes = MONTH(fec_cuo) + 1
endif

** Calcula ultimo dia del Mes **
Tufecha = ctod("01"+"/"+PADL(nMes,2,"0")+"/"+PADL(nAno,4,"0"))

nDiaf = DAY(txtFec_enga)

do case
case nDiaf > 28 and nMes = 2
nDia = 28
case nDiaf > 30 and nMes <> 2
nDia = DAY(gomonth(TuFecha - DAY(TuFecha) + 1, 1 )-1) &&Ultimo Dia
otherwise
nDia = nDiaf
endcase
*- Sumo si fuera otro año
nAno = YEAR(fec_cuo)
nAno = iif(nMes=1,nAno + 1,nAno)
ENDDO
Comentar