Hola, Buenas,
Necesito imprimir en un Talón ZF110 el campo ADRC-SORT2 (concepto de busqueda 2) que tambi'en viene en muchas otras tablas, SADR x ejempl.
En la REGUH (tabla de datos que se insertan en el formulario) existe el SORT1, pero no el SORT2, as'i que he decidido hacer una llamada a un perform desde el Formulario... ya que la clave para la tabla (ADRNR) si
la tengo en el Formulario...y he insertado un c'odigo que no me funciona... a pesar que veo que todo est'a correcto...
/: DEFINE: &SOCIO& = &SADR-SORT2&
/: DEFINE: &VALUE& = ®UH-ADRNR&
/: PERFORM GET_N_SOCIO IN PROGRAM ZRFFOUS_C_NSOCIO
/: USING &VALUE&CHANGING &SOCIO&
/: ENDPERFORM
T1 &SOCIO&
Y he creado un programa con su respectivo perform...
--------------------------------------------------
FORM get_n_socio TABLES INPUT_TABLE STRUCTURE ITCSY OUTPUT_TABLE STRUCTURE ITCSY.
LOOP AT INPUT_TABLE.
VALUE = INPUT_TABLE-VALUE.
SELECT SINGLE * FROM adrc WHERE ADdrnumber = VALUE.
socio= adrc-sort2.
ENDLOOP.
LOOP AT OUTPUT_TABLE.
OUTPUT_TABLE-VALUE = socio.
MODIFY OUTPUT_TABLE.
ENDLOOP.
ENDFORM.
--------------------------------------
Y con muchas pruebas, y sin ver nada incorrecto... no funciona.<>*
Alguien tuvo algo Parecido?? Saben si cometo alg'un erro??
Muchas Gracias
Necesito imprimir en un Talón ZF110 el campo ADRC-SORT2 (concepto de busqueda 2) que tambi'en viene en muchas otras tablas, SADR x ejempl.
En la REGUH (tabla de datos que se insertan en el formulario) existe el SORT1, pero no el SORT2, as'i que he decidido hacer una llamada a un perform desde el Formulario... ya que la clave para la tabla (ADRNR) si
la tengo en el Formulario...y he insertado un c'odigo que no me funciona... a pesar que veo que todo est'a correcto...
/: DEFINE: &SOCIO& = &SADR-SORT2&
/: DEFINE: &VALUE& = ®UH-ADRNR&
/: PERFORM GET_N_SOCIO IN PROGRAM ZRFFOUS_C_NSOCIO
/: USING &VALUE&CHANGING &SOCIO&
/: ENDPERFORM
T1 &SOCIO&
Y he creado un programa con su respectivo perform...
--------------------------------------------------
FORM get_n_socio TABLES INPUT_TABLE STRUCTURE ITCSY OUTPUT_TABLE STRUCTURE ITCSY.
LOOP AT INPUT_TABLE.
VALUE = INPUT_TABLE-VALUE.
SELECT SINGLE * FROM adrc WHERE ADdrnumber = VALUE.
socio= adrc-sort2.
ENDLOOP.
LOOP AT OUTPUT_TABLE.
OUTPUT_TABLE-VALUE = socio.
MODIFY OUTPUT_TABLE.
ENDLOOP.
ENDFORM.
--------------------------------------
Y con muchas pruebas, y sin ver nada incorrecto... no funciona.<>*
Alguien tuvo algo Parecido?? Saben si cometo alg'un erro??
Muchas Gracias
Comentario