recibos en formularios
Publicado por agustina (2 intervenciones) el 16/09/2010 22:43:22
holaa... tengo una cosulta, ya hace bastante que estoy renegando con un programa y siempre tiene un error distinto. estoy haciendo un formulario en el cual tengo un boton que es "aceptar" el cual hace lo siguiente:
ACLARO: "ctasctes" es el nombre de la tabla. numsocio, nomsocio, fecha, importe y mesaporta son los nombres de los campos de la tabla.
el problema que tengo con este boton es que cuando apreto el boton aceptar en el formulario, no me reemplaza los datos del los texts en la tabla... lo he probado varias veces y no tuve solucion.
STORE SPACE (10) TO A
STORE SPACE (30) TO B
STORE 0 TO C
STORE 0 TO D
A=thisform.text1.Value
C=thisform.text2.Value
B=thisform.text3.Value
D=thisform.text4.Value
USE ctasctes INDEX numsocio, nomsocio, fecha, importe, mesaporta
IF thisform.Optiongroup1.Option1.value= 1 THEN
APPEND BLANK
REPLACE numsocio WITH C
REPLACE nomsocio WITH B
REPLACE fecha WITH A
REPLACE importe WITH D
replace mesaporta with "Enero"
ENDIF
IF thisform.optiongroup1.option2.Value= 1 THEN
APPEND BLANK
REPLACE numsocio WITH C
REPLACE nomsocio WITH B
REPLACE fecha WITH A
REPLACE importe WITH D
replace mesaporta with "Febrero"
ENDIF
IF thisform.optiongroup1.option3.Value= 1 THEN
APPEND BLANK
REPLACE numsocio WITH C
REPLACE nomsocio WITH B
REPLACE fecha WITH A
REPLACE importe WITH D
replace mesaporta with "Marzo"
ENDIF
IF thisform.optiongroup1.option4.Value= 1 THEN
APPEND BLANK
REPLACE numsocio WITH C
REPLACE nomsocio WITH B
REPLACE fecha WITH A
REPLACE importe WITH D
replace mesaporta with "Abril"
ENDIF
IF thisform.optiongroup1.option5.Value= 1 THEN
APPEND BLANK
REPLACE numsocio WITH C
REPLACE nomsocio WITH B
REPLACE fecha WITH A
REPLACE importe WITH D
replace mesaporta with "Mayo"
ENDIF
IF thisform.optiongroup1.option6.Value= 1 THEN
APPEND BLANK
REPLACE numsocio WITH C
REPLACE nomsocio WITH B
REPLACE fecha WITH A
REPLACE importe WITH D
replace mesaporta with "Junio"
ENDIF
IF thisform.optiongroup1.option7.Value= 1 THEN
APPEND BLANK
REPLACE numsocio WITH C
REPLACE nomsocio WITH B
REPLACE fecha WITH A
REPLACE importe WITH D
replace mesaporta with "Julio"
ENDIF
IF thisform.optiongroup1.option8.Value= 1 THEN
APPEND BLANK
REPLACE numsocio WITH C
REPLACE nomsocio WITH B
REPLACE fecha WITH A
REPLACE importe WITH D
replace mesaporta with "Agosto"
ENDIF
IF thisform.optiongroup1.option9.Value= 1 THEN
APPEND BLANK
REPLACE numsocio WITH C
REPLACE nomsocio WITH B
REPLACE fecha WITH A
REPLACE importe WITH D
replace mesaporta with "Septiembre"
ENDIF
IF thisform.optiongroup1.option10.Value= 1 THEN
APPEND BLANK
REPLACE numsocio WITH C
REPLACE nomsocio WITH B
REPLACE fecha WITH A
REPLACE importe WITH D
replace mesaporta with "Octubre"
ENDIF
IF thisform.optiongroup1.option11.Value= 1 THEN
APPEND BLANK
REPLACE numsocio WITH C
REPLACE nomsocio WITH B
REPLACE fecha WITH A
REPLACE importe WITH D
replace mesaporta with "Noviembre"
ENDIF
IF thisform.optiongroup1.option12.Value= 1 THEN
APPEND BLANK
REPLACE numsocio WITH C
REPLACE nomsocio WITH B
REPLACE fecha WITH A
REPLACE importe WITH D
replace mesaporta with "Diciembre"
ENDIF
IF thisform.optiongroup1.option13.Value= 1 THEN
APPEND BLANK
REPLACE numsocio WITH C
REPLACE nomsocio WITH B
REPLACE fecha WITH A
REPLACE importe WITH D
replace mesaporta with "Todo el Año"
ENDIF
IF ISBLANK(thisform.text2.Value) THEN
MESSAGEBOX("Faltan rellenar datos")
thisform.text2.SetFocus ()
ENDIF
IF ISBLANK(thisform.text3.Value) THEN
MESSAGEBOX("Indique el número de socio")
thisform.text3.SetFocus ()
ENDIF
IF ISBLANK(thisform.text4.Value) THEN
MESSAGEBOX("Falta completar el nombre del socio")
thisform.text4.SetFocus ()
ENDIF
CLOSE ALL
Otra de las cosas que queria preguntarles es como hago para que en el diseño de un informe al que yo quiero que tenga forma de recibo me reemplace los datos que yo puse en los texts del formulario anterior y no que me pida los campos, no se si me explique! ja pero en resumidas cuentas quiero saber si es posible hace un informe en el cual se puedan poner datos del formulario y no campos de una tabla!
espero que me hayan entendido y que me puedan ayudar!!!!
muchas gracias!!
ACLARO: "ctasctes" es el nombre de la tabla. numsocio, nomsocio, fecha, importe y mesaporta son los nombres de los campos de la tabla.
el problema que tengo con este boton es que cuando apreto el boton aceptar en el formulario, no me reemplaza los datos del los texts en la tabla... lo he probado varias veces y no tuve solucion.
STORE SPACE (10) TO A
STORE SPACE (30) TO B
STORE 0 TO C
STORE 0 TO D
A=thisform.text1.Value
C=thisform.text2.Value
B=thisform.text3.Value
D=thisform.text4.Value
USE ctasctes INDEX numsocio, nomsocio, fecha, importe, mesaporta
IF thisform.Optiongroup1.Option1.value= 1 THEN
APPEND BLANK
REPLACE numsocio WITH C
REPLACE nomsocio WITH B
REPLACE fecha WITH A
REPLACE importe WITH D
replace mesaporta with "Enero"
ENDIF
IF thisform.optiongroup1.option2.Value= 1 THEN
APPEND BLANK
REPLACE numsocio WITH C
REPLACE nomsocio WITH B
REPLACE fecha WITH A
REPLACE importe WITH D
replace mesaporta with "Febrero"
ENDIF
IF thisform.optiongroup1.option3.Value= 1 THEN
APPEND BLANK
REPLACE numsocio WITH C
REPLACE nomsocio WITH B
REPLACE fecha WITH A
REPLACE importe WITH D
replace mesaporta with "Marzo"
ENDIF
IF thisform.optiongroup1.option4.Value= 1 THEN
APPEND BLANK
REPLACE numsocio WITH C
REPLACE nomsocio WITH B
REPLACE fecha WITH A
REPLACE importe WITH D
replace mesaporta with "Abril"
ENDIF
IF thisform.optiongroup1.option5.Value= 1 THEN
APPEND BLANK
REPLACE numsocio WITH C
REPLACE nomsocio WITH B
REPLACE fecha WITH A
REPLACE importe WITH D
replace mesaporta with "Mayo"
ENDIF
IF thisform.optiongroup1.option6.Value= 1 THEN
APPEND BLANK
REPLACE numsocio WITH C
REPLACE nomsocio WITH B
REPLACE fecha WITH A
REPLACE importe WITH D
replace mesaporta with "Junio"
ENDIF
IF thisform.optiongroup1.option7.Value= 1 THEN
APPEND BLANK
REPLACE numsocio WITH C
REPLACE nomsocio WITH B
REPLACE fecha WITH A
REPLACE importe WITH D
replace mesaporta with "Julio"
ENDIF
IF thisform.optiongroup1.option8.Value= 1 THEN
APPEND BLANK
REPLACE numsocio WITH C
REPLACE nomsocio WITH B
REPLACE fecha WITH A
REPLACE importe WITH D
replace mesaporta with "Agosto"
ENDIF
IF thisform.optiongroup1.option9.Value= 1 THEN
APPEND BLANK
REPLACE numsocio WITH C
REPLACE nomsocio WITH B
REPLACE fecha WITH A
REPLACE importe WITH D
replace mesaporta with "Septiembre"
ENDIF
IF thisform.optiongroup1.option10.Value= 1 THEN
APPEND BLANK
REPLACE numsocio WITH C
REPLACE nomsocio WITH B
REPLACE fecha WITH A
REPLACE importe WITH D
replace mesaporta with "Octubre"
ENDIF
IF thisform.optiongroup1.option11.Value= 1 THEN
APPEND BLANK
REPLACE numsocio WITH C
REPLACE nomsocio WITH B
REPLACE fecha WITH A
REPLACE importe WITH D
replace mesaporta with "Noviembre"
ENDIF
IF thisform.optiongroup1.option12.Value= 1 THEN
APPEND BLANK
REPLACE numsocio WITH C
REPLACE nomsocio WITH B
REPLACE fecha WITH A
REPLACE importe WITH D
replace mesaporta with "Diciembre"
ENDIF
IF thisform.optiongroup1.option13.Value= 1 THEN
APPEND BLANK
REPLACE numsocio WITH C
REPLACE nomsocio WITH B
REPLACE fecha WITH A
REPLACE importe WITH D
replace mesaporta with "Todo el Año"
ENDIF
IF ISBLANK(thisform.text2.Value) THEN
MESSAGEBOX("Faltan rellenar datos")
thisform.text2.SetFocus ()
ENDIF
IF ISBLANK(thisform.text3.Value) THEN
MESSAGEBOX("Indique el número de socio")
thisform.text3.SetFocus ()
ENDIF
IF ISBLANK(thisform.text4.Value) THEN
MESSAGEBOX("Falta completar el nombre del socio")
thisform.text4.SetFocus ()
ENDIF
CLOSE ALL
Otra de las cosas que queria preguntarles es como hago para que en el diseño de un informe al que yo quiero que tenga forma de recibo me reemplace los datos que yo puse en los texts del formulario anterior y no que me pida los campos, no se si me explique! ja pero en resumidas cuentas quiero saber si es posible hace un informe en el cual se puedan poner datos del formulario y no campos de una tabla!
espero que me hayan entendido y que me puedan ayudar!!!!
muchas gracias!!
Valora esta pregunta
0