FoxPro/Visual FoxPro - Error en ejercicios artimeticos Formulario

Quetal sigo esperando la ayuda para resolver las operaciones aritmeticas:

aquiesta mi codigo
-----------------------------------------------
en mis txtbox tengo los datos que se introducen como ser
txtcodramo=94
txtcod.value =12
estos dos se operan en (asignacion)
asignacion=(94*100)+12
tiene que salir
asigancion=9412
-------------------------------------------------
aca abajo estan los datos
-------------------------------------------

p1=thisform.txtcodramo.value
p2=thisform.txtcod.value
q=100
*asignado=(p1*100)+p2 && "AQUI NO REALIZA LA OPERACION ARITMETICA QUE FALTA?"

LOCATE FOR (codramo2)=thisform.txtcod.Value
IF found()
MESSAGEBOX("El Codigo: "+co +CHR(13) +"YA EXISTE!!!!",0+32+256)
return
else
iq=MESSAGEBOX("Esta Seguro de guardar los datos?",1+48)
IF iq=2
WITH thisform
.txtcodramo.value=""
.txtramo.value=""
.txtcod.value=""
endwith
thisform.refresh
ELSE
APPEND BLANK
GO bottom
replace ramos.cod_mod_ra WITH thisform.txtcodramo.Value
replace ramos.ramo WITH ALLTRIM(thisform.txtramo.Value)
replace ramos.codramo2 WITH thisform.txtcod.Value
replace ramos.cod_ramo WITH asignado &&ACA QUIERO PONER EL VALOR ASIGNADO ARRIVA
ENDIF
ENDIF

Hiiste lo que te dijo Plinio para ver los valores de las variables de memoria?

Algun mensaje de error?
2- dime que te devuelven estos wait windows

p1=thisform.txtcodramo.value
wait window TYPE("p1")
p2=thisform.txtcod.value
wait window TYPE("p2")
q=100
*asignado=(p1*100)+p2 && "AQUI NO REALIZA LA OPERACION ARITMETICA QUE FALTA?"

Una pregunta muy tonta el asterico de la ultima linea lo pusiste a proposito para
esta consulta?

Ya viste las repuestas que se te dio mas abajo?