Error en programa multiusuario, a veces no inserta datos

[franko1809]

-- para que no marque error
if corre is null then
set corre=1;
end if;

Aqui podrias decirle que si el error es que no grabo nada sea por duplicidad de pk entonces empieza nuevamente pero se crearia un bucle infinito, para evitar eso podrias enviar un mensaje de si/no, nose si se entienda lo que digo.

Debes capturar el error de pk que se produce ya que actualmente no te marca ningun error y el usuario ni se entera que su carta no se grabo.