function argument value type or count is invalid

[Cristian Torres]

hola..!! aguien me podria ayudar.. tengo un ptroble can este error (function argument value type or count is invalid) utilizando seek rtrim

[Ariel D'Alfeo]

mas datos... como el bloque de código

-- 
Ariel D'Alfeo
Córdoba, Argentina

El 28/03/2013 12:33, Cristian Torres escribió:

[Cristian Torres]

USE parejas_rejistradas ORDER 1 

DO WHILE  .T.

    VRNP= space(15)

     VRNP_f= space(15)

     vNo_pareja=0

     fecha_mat= ("  /  /  ")

   

    Define Windows wagregar from 1,1 to 30,60;

    Float noclose nozoom nominimize panel title;

    "agregar registros_tabla datos pareja registrada" in windows wmenugeneral

    Move windows wagregar center

    Activate windows wagregar

    CLEAR 

    @2,1 say "Numero de pareja         :" get vNo_pareja picture "9999 "

    READ

    IF EMPTY(Vno_pareja) THEN 

        CLEAR 

        Release windows wagregar

        RETURN 

    ENDIF 

   

    SEEK RTRIM (vno_pareja) **AQUI ES EL ERROR**

    IF FOUND() THEN 

        =MESSAGEBOX("este registro ya existe ",32,"Informacion")

        LOOP

    ENDIF 

     

    @3,1 say "RNP Masculino :" get vrnp picture "9999-9999-99999"

    @4,1 say "RNP Femenino       :" get vrnp_f picture "9999-9999-99999  "

    @6,1 say "Fecha de matrimonio :" get vfecha_mat

    READ

    Guardar=" "

    @12,1 say "desea guarder [S/N]" get guardar;

    Valid guardar$"SN" error "S ó N"

    Read

    If guardar="S" then 

        Append Blank

        Replace no_paraja with Vno_pareja

        Replace rnp with Vrnp

        Replace rnp_f with vrnp_f

        Replace fecha_Mat with vfecha_mat

    EndIf

    @12,1 to 13,90 clear 

    Salir=" "

    @12,1 say "Desea Salir del programa [S/N] "; 

    get Salir valid Salir$"SN" error "S ó N"

    Read

    If Salir="S" then 

        Clear

        Release windows wagregar

       DO menu_general 

    ENDIF 

ENDDO

[Patricio Muñoz]

Este estaba facil

El error se produce porque la variable vno_pareja es numerica y tu le estas colocando un rtrim()

Bendiciones

2013/3/28 Cristian Torres <crt...@gmail.com>

[Ariel D'Alfeo]

si segun la declaracion de variables    vNo_pareja=0 (numerico)
 pueba con SEEK RTRIM (STR(vno_pareja)) o directamente    SEEK vno_pareja

[Cristian Torres]

Muchas gracias Ariel..!!

[Cristian Torres]

hay disculpen solo k ahora me dice st error : DATE TYPE MISMATCH

EN ESTA PARTE:

    Guardar=" "

    @12,1 say "desea guarder [S/N]" get guardar;

    Valid guardar$"SN" error "S ó N"

    Read

    If guardar="S" then 

        Append Blank

        Replace no_parEja with Vno_pareja

        Replace rnp with Vrnp

        Replace rnp_f with vrnp_f

        Replace fecha_Mat with vfecha_mat **AQUI**

    EndIf

El jueves, 28 de marzo de 2013 08:48:37 UTC-7, Cristian Torres escribió:

Muchas gracias Ariel..!!

[Ariel D'Alfeo]

no encuentra la variable, fijate si esta bien escrita (igual que cuando la declaraste), segun el problema anterior esta variable la declaraste como fecha_mat y aca la pusiste como vfecha_mat
borra la "v" y va a andar

[Cristian Torres]

MMM ya repare el error Muchas gracias a todos..

[FidelJ]

Pero es una variable numérica. Defines vno_pareja=0. rtrim, trim, alltrim son para tipo Characeter.

[Carlos Miguel FARIAS]

Estás haciendo mantenimiento a una aplicación FOX p/DOS? Porque el READ común no se usa en versiones visuales.
Además el código es copia de código dbase, pero no usa ni cerca lo que permite la versión FOX - DOS.
Si mal no recuerdo (no tengo manual de Fox a Mano) pero en el SAY GET tenemos clausula DEFAULT, si la cantidad de campos que carga, coincide con los de la tabla, podría perfectamente inicialar con SCATTER MEMVAR BLANK y guardar con GATHER, en lugar de los replace.
Las variables en los GET podría llamarlos con m.nombrecampoentabla, y simplifica mucho código.
Saludos: Miguel, La Pampa (RA)

2013/3/28 FidelJ <fjch...@gmail.com>