FoxPro/Visual FoxPro - AYUDA CON SELECT SQL VFP8

Bien amigos. de antes Agradezco a los que me ayuden a dar una idea

yo siempre he trabajado con Bucles para hacer algunos calculos pero ya me canse debido a que he leido en algunos foros
que SELECT SQL. ES LO MAXIMO
quiero hacer lo siguiente con Select por el momento me funciona pero muy complicado debe haber otra forma mas compacta del mi select
VENTAS DE CREDITO
SELECT SUM(TOTAL) FROM FACTURA WHERE TIPO='CR' INTO CURSOR MICURSOR
VENTAS DE CONTADO
SELECT SUM(TOTAL) FROM FACTURA WHERE TIPO='CO' INTO CURSOR MICURSOR
ABONOS
SELECT SUM(PAGOS) FROM FACTURA WHERE TIPO='AB' INTO CURSOR MICURSOR
CANCELACIONES
SELECT SUM(PAGOS) FROM FACTURA WHERE TIPO='CA' INTO CURSOR MICURSOR

CANCELACIONES
SELECT SUM(NOTAS_D) FROM FACTURA WHERE TIPO='ND' INTO CURSOR MICURSOR

*** ASI SUCESIBAMENTE ... YO SE QUE EL SORRO TODO LO PUEDE PERO YONI AUN NO.
ESTE ES UN PEQU. EJEMPL. COMO HAGO PARA SACAR ESTA INFORMACIONE DE UN CAMPOS PERO CON SUM() Y DISTINTAS CONDICIONES
UNA SOLA LINEA DE SELECT SQL()

Dougals Sanchez
Nicaragua

Ok, aclaracion primero, no tengo el VFP 8 para corraborar el SELEC pero creo que te servira este ejemplo, lo pongo incompleto ya creo que podras decifrar el resto. Ojo, esto no le he probado, pero me parece que te problema puede ser resulto con estas subconsultas.

SELEC ;
(SELEC SUM(TOTAL) FROM FACTURA WHERE TIPO="CR") AS ;
CREDITO,;
(SELEC SUM(TOTAL) FROM FACTURA WHERE TIPO="CO") AS;
CONTADO;
FROM FACTURA INTO CURSOR RESULTADOS

Advertencia, este tipo de SELECS creo que solo son validos en la version VFP 8 en adelante (tal vez en la 7)

De casualidad revise las caracteristicas nuevas de la version 9 y me fije que las habia confundido con las de la ocho. Asi que el SELECT que te di no funcionara con la version 8. Es posible que haya una solucion con multiples INNERS JOINS para sacar todo en un solo SELECT, pero en ese caso si tendria que probarlo, lo malo es que solo tengo la version 6 y no se si soporta multiples INNERS JOINS

Algo asi:

SELECT ;
SUM(IIF(tipo = "CR", total, 0)) as "Credito", ;
SUM(IIF(tipo = "CO", total, 0)) as "Contado" ;
FROM factura ;
INTO CURSOR miCursor

El resto lo puedes llenar tu

GRACIA LA ULTIMA FORMA ES EXCELETE TE AGRADEZCO MUCHO