codigo para cursor

75 views
Skip to first unread message

contabil...@gmail.com

unread,
Mar 17, 2013, 5:03:04 PM3/17/13
to publice...@googlegroups.com
buenas tardes:

agradezco si me pueden ayudar con lo siguiente, tengo un cursor  de la siguiente forma:

cop15 (cod_cta c(15),nom_cta c(70),TIP_CTA C(1),NAT_CTA C(1),NIV_CTA n(1),SAL_ANT N(18,2),DEBITO N(18,2),CREDITO N(18,2),SAL_FIN N(18,2),;
SAL_00 N(18,2),DEB_01 N(18,2),CRE_01 N(18,2),SAL_01 N(18,2),DEB_02 N(18,2),CRE_02 N(18,2),SAL_02 N(18,2),;
DEB_03 N(18,2),CRE_03 N(18,2),SAL_03 N(18,2),DEB_04 N(18,2),CRE_04 N(18,2),SAL_04 N(18,2),;
DEB_05 N(18,2),CRE_05 N(18,2),SAL_05 N(18,2),DEB_06 N(18,2),CRE_06 N(18,2),SAL_06 N(18,2),;
DEB_07 N(18,2),CRE_07 N(18,2),SAL_07 N(18,2),DEB_08 N(18,2),CRE_08 N(18,2),SAL_08 N(18,2),;
DEB_09 N(18,2),CRE_09 N(18,2),SAL_09 N(18,2),DEB_10 N(18,2),CRE_10 N(18,2),SAL_10 N(18,2),;
DEB_11 N(18,2),CRE_11 N(18,2),SAL_11 N(18,2),DEB_12 N(18,2),CRE_12 N(18,2),SAL_12 N(18,2),;
DEB_13 N(18,2),CRE_13 N(18,2),SAL_13 N(18,2),;
COD_TER C(15),NOM_TER C(70),ANO C(4),ORD1 C(1),ORD2 C(1))
INDEX ON COD_CTA+nom_ter TAG LLAVE

quiero hacer una consulta para enviar a excel pero que me valide si la natuaraleza de cuenta es "d" entonces me haga una resta entre el (deb_01-deb_02) y asi sucesivamente he pensado en algo asi pero no me funciona

sele cod_cta,nom_cta,cod_ter,nom_ter,iif(nat_cta="D",(deb_01-cre_01,cred_01-deb_01),(deb_02-cre_02,cre_02-deb_02).............. from _cop15  where ord1="1" 
GO TOP
copy to excel

hasta ahora estoy empezando con vfp
les agradezco si me pueden ayudar

saludos



Irwin Rodriguez

unread,
Mar 17, 2013, 5:37:34 PM3/17/13
to publice...@googlegroups.com
Saludos,

Con tu ejemplo te da error o no te trae datos? sugiero que coloques UPPER(NAT_CTA="D") por si existe una letra en minúsculas.
--
Ing. Irwin Rodríguez
Consultor Informático
0412-521.06.79
 

Antes de imprimir este documento piense bien si es necesario hacerlo, el árbol que servirá para hacer el papel tardará 7 años en crecer. 

 
NOTA: La información mostrada en este mensaje es de caracter Confidencial y está dirigida unicamente a los contactos señalados en el encabezado; si el lector de este correo no es el destinatario del mismo, se le notifica que cualquier copia o distribución queda totalmente prohibida. Si usted ha recibido este mensaje por error, por favor notifique inmediatamente al remitente por este mismo medio y bórrelo de su sistema.

contabil...@gmail.com

unread,
Mar 17, 2013, 9:20:23 PM3/17/13
to publice...@googlegroups.com
ME DA ERROR

Víctor Hugo Espínola Domínguez

unread,
Mar 18, 2013, 9:41:29 AM3/18/13
to publicesvfoxpro
Hola contabilidad.ryc

>iif(nat_cta="D",(deb_01-cre_01,cred_01-deb_01),(deb_02-cre_02,cre_02-deb_02)....

iif(nat_cta="D",deb_01-cre_01,cred_01-deb_01), iif(nat_cta="D",deb_02-cre_02,cre_02-deb_02)....

Saludos,
Víctor.



Alfonso Arce Silvestre

unread,
Mar 18, 2013, 9:56:47 AM3/18/13
to Comunidad de Visual Foxpro en Español
Hola, te sugioero hacer lo siguiente:

Mediante código VFP, determinar que las operaciones matematicas, y posteriormente crear tu Cursor, con la información ya depudara y está misma exportarla a Excel un un Copy to

saludos

Irwin Rodriguez

unread,
Mar 18, 2013, 3:17:51 PM3/18/13
to publice...@googlegroups.com

Que error te da? puedes subir la tabla y tu linea de código para ayudarte?

Ing. Irwin Rodriguez
Consultor Informático
0412-521.06.79

El 17/03/2013 20:50, <contabil...@gmail.com> escribió:

ME DA ERROR


El domingo, 17 de marzo de 2013 16:37:34 UTC-5, Irwin Rodriguez escribió:


>
> Saludos,
>
> Con tu ejemplo te da error o no te trae datos? sugiero que coloques UPPER(NAT_CTA=...

El 17 de marzo de 2013 16:33, <contabil...@gmail.com> escribió:


>>
>> buenas tardes:
>>
>> agradezco si me pueden ayudar con lo siguiente, tengo un cursor  de la s...

>
>
>
> --
> Ing. Irwin Rodríguez
> Consultor Informático
> 0412-521.06.79
>  
>>

>> Antes de impri...

Fernando D. Bozzo

unread,
Mar 18, 2013, 4:38:07 PM3/18/13
to publice...@googlegroups.com
Hola:

¿Podrías poner el SQL completo, e indicar que error te da?

R & C Consultores Ltda .

unread,
Mar 19, 2013, 6:41:05 PM3/19/13
to publice...@googlegroups.com
me funciono perfecto con este codigo

mil gracias

R & C Consultores Ltda .

unread,
Mar 19, 2013, 9:29:19 PM3/19/13
to publice...@googlegroups.com

R & C Consultores Ltda .

unread,
Mar 19, 2013, 9:39:17 PM3/19/13
to publice...@googlegroups.com
buenas noches, ya pude ejecutar la consulta y enviarla a excel como la necesitaba, utilizando el siguiente codigo:

sele cod_cta,nom_cta,NIV_CTA,cod_ter,nom_ter,IIF(nat_cta="D",deb_01-cre_01,cre_01-deb_01),iif(nat_cta="D",deb_02-cre_02,cre_02-deb_02),iif(nat_cta="D",deb_03-cre_03,cre_03-deb_03),iif(nat_cta="D",deb_04-cre_04,cre_04-deb_04),iif(nat_cta="D",deb_05-cre_05,cre_05-deb_05),;
iif(nat_cta="D",deb_06-cre_06,cre_06-deb_06),iif(nat_cta="D",deb_07-cre_07,cre_07-deb_07),iif(nat_cta="D",deb_08-cre_08,cre_08-deb_08),iif(nat_cta="D",deb_09-cre_09,cre_09-deb_09),iif(nat_cta="D",deb_10-cre_10,cre_10-deb_10),iif(nat_cta="D",deb_11-cre_11,cre_11-deb_11),iif(nat_cta="D",deb_12-cre_12,cre_12-deb_12), SAL_12 from _cop22p1 order By cod_cta 
  GO TOP
copy to excel

y me genera un archivo en excel asi (adjunto): sin embargo todavia me faltan una cosa, que debo hacer para cambiar  exp_5, exp_6 por enero, febrero...etc.

mil y mil gracias por su valiosa ayuda
ejemplo.jpg

Roberto Tello & Asoc. - Estudio Informatico

unread,
Mar 19, 2013, 9:44:53 PM3/19/13
to publice...@googlegroups.com

sele cod_cta,nom_cta,NIV_CTA,cod_ter,nom_ter,IIF(nat_cta="D",deb_01-cre_01,cre_01-deb_01) as NNNNN,.......... y asi el resto

Sdos.-

Roberto

Argentino como Franchesco...!!

ejemplo.jpg

contabil...@gmail.com

unread,
Mar 19, 2013, 10:05:50 PM3/19/13
to publice...@googlegroups.com, rl...@uolsinectis.com.ar
mil y mil gracias 

saludos,
Reply all
Reply to author
Forward
0 new messages