¡¡¡ SABIA QUE TENIA QUE SER ALGO ASÍ, ¡¡¡

 SETVAR((&FECHA &TOT))  esto es lo que había 
 SETVAR((FECHA &TOT))   esto lo que debe haber según Dario 

FUNCIONA PERFECTAMENTE, GRACIAS A TODOS




-----Mensaje original-----
De: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
En nombre de Dario Heinze
Enviado el: jueves, 15 de septiembre de 2005 19:23
Para: [email protected]
Asunto: RE: QRY con selección variable

Jesus, creo por lo que vi que en el comando STRQMQRY el parametro 
SETVAR((&FECHA &TOT))       

deberia ser

SETVAR((FECHA &TOT))  

Saludos,

Dario G. I. Heinze
Dpto AS/400 - C.P.C. S.A.
San Martin 3071 - Santa Fe - Argentina
Tel. 54 342 4558558 int. 112/232
E-Mail: [EMAIL PROTECTED]


> -----Mensaje original-----
> De:   Jesus Ropero [SMTP:[EMAIL PROTECTED]
> Enviado el:   Jueves, 15 de Septiembre de 2005 13:26
> Para: [email protected]
> Asunto:       QRY con selección variable
> 
> Buenas tardes:
>  
> Llevo toda la tarde "pegándome" con este CL que como veis incorpora un
> STRQMQRY:
>  
>                                                           
>  DCL        VAR(&FECHA) TYPE(*CHAR) LEN(10) /* Variable + 
>               del QRY */                                  
>  DCL        VAR(&COM) TYPE(*CHAR) LEN(1) VALUE(X'7D') /* +
>               Comillas */                                 
>  DCL        VAR(&TOT) TYPE(*CHAR) LEN(12) /* +            
>               Comillas-fecha-comillas */                  
>  CHGVAR     VAR(&TOT) VALUE(&COM *TCAT &FECHA *TCAT &COM) 
>                                                           
>  STRQMQRY   QMQRY(JULIO/VIDRIO2) QMFORM(*QMQRY) +         
>               ALWQRYDFN(*YES) SETVAR((&FECHA &TOT))       
>  
> y por desgracia este es el resultado:
>  
>  
> 
>  8>> call crtetiqv00
> 
>         313 - STRQMQRY QMQRY(JULIO/VIDRIO2) QMFORM(*QMQRY) 
> ALWQRYDFN(*YES)
> 
>        SETVAR((' ' ''''''))
> 
>       no es una variable de Gestión de Consultas válida.
> 
>      Se ha encontrado un error en el mandato STRQMQRY.
> 
>      Error de función. CPF0001 no supervisado por CRTETIQV00 en la
> sentencia    
>        313, instrucción X'001C'.                      
>  
> ¿ me podeis dar alguna idea, por favor ?
>  
> Muchas gracias
>  
> [EMAIL PROTECTED] <mailto:[EMAIL PROTECTED]>
>  
>                           <<Archivo: Metalkris.gif>>

__________________________________________________
Forum.HELP400 es un servicio más de NEWS/400.
© Publicaciones Help400, S.L. - Todos los derechos reservados
http://www.help400.es _____________________________________________________

Para darte de baja visita la siguente URL:
http://coyote.combios.es/mailman/listinfo/forum.help400


__________________________________________________
Forum.HELP400 es un servicio más de NEWS/400.
© Publicaciones Help400, S.L. - Todos los derechos reservados
http://www.help400.es
_____________________________________________________

Para darte de baja visita la siguente URL:
http://coyote.combios.es/mailman/listinfo/forum.help400

Responder a